src/cmdlets/New-GraphObject.ps1
|
# Copyright 2021, Adam Edwards # # Licensed under the Apache License, Version 2.0 (the "License"); # you may not use this file except in compliance with the License. # You may obtain a copy of the License at # # http://www.apache.org/licenses/LICENSE-2.0 # # Unless required by applicable law or agreed to in writing, software # distributed under the License is distributed on an "AS IS" BASIS, # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. # See the License for the specific language governing permissions and # limitations under the License. . (import-script ../typesystem/TypeManager) . (import-script common/TypeParameterCompleter) . (import-script common/TypePropertyParameterCompleter) function New-GraphObject { [cmdletbinding(positionalbinding=$false, defaultparametersetname='optionallyqualified')] param( [parameter(position=0, mandatory=$true)] $TypeName, [ValidateSet('Any', 'Primitive', 'Enumeration', 'Complex', 'Entity')] $TypeClass = 'Any', [parameter(position=1, parametersetname='optionallyqualified')] [parameter(position=1, parametersetname='fullyqualified')] [string[]] $Property, [parameter(position=2, parametersetname='optionallyqualified')] [parameter(position=2, parametersetname='fullyqualified')] [object[]] $Value, $GraphName, [parameter(parametersetname='optionallyqualifiedpropmap', mandatory=$true)] [parameter(parametersetname='fullyqualifiedpropmap', mandatory=$true)] $PropertyTable, [parameter(parametersetname='fullyqualified', mandatory=$true)] [parameter(parametersetname='fullyqualifiedpropmap', mandatory=$true)] [switch] $FullyQualifiedTypeName, [switch] $Json, [switch] $Recurse, [switch] $SetDefaultValues, [switch] $SkipPropertyCheck ) Enable-ScriptClassVerbosePreference $targetContext = $::.ContextHelper |=> GetContextByNameOrDefault $GraphName $typeManager = $::.TypeManager |=> Get $targetContext $isFullyQualified = $FullyQualifiedTypeName.IsPresent -or ( $typeClass -ne 'Primitive' -and $TypeName.Contains('.') ) $remappedTypeClass = if ( $TypeClass -ne 'Any' ) { $TypeClass } else { 'Unknown' } if ( $Value -and ! $Property ) { throw [ArgumentException]::('When the Value parameter is specified, the property parameter must also be specified') } if ( $Value ) { $valueLength = ( $Value | measure-object ).count $propertyLength = ( $Property | measure-object ).count if ( $valueLength -gt $propertyLength ) { throw [ArgumentException]::("The specified Value parameter's length of $ValueLength must be less than the specified Property parameter's length of $propertyLength") } } $prototype = $typeManager |=> GetPrototype $remappedTypeClass $TypeName $isFullyQualified $SetDefaultValues.IsPresent $Recurse.IsPresent $Property $Value $PropertyTable $SkipPropertyCheck.IsPresent $prototypeJson = $prototype.ObjectPrototype | convertto-json -depth 24 if ( $Json.IsPresent ) { $prototypeJSON } else { $resultObject = $prototypeJSON | convertfrom-json $::.TypeUriHelper |=> DecorateObjectWithType $resultObject $prototype.Type $resultObject } } $::.ParameterCompleter |=> RegisterParameterCompleter New-GraphObject TypeName (new-so TypeParameterCompleter) $::.ParameterCompleter |=> RegisterParameterCompleter New-GraphObject Property (new-so TypePropertyParameterCompleter) $::.ParameterCompleter |=> RegisterParameterCompleter New-GraphObject GraphName (new-so GraphParameterCompleter) |