::SpiceGenTcl::Common::SourcesTop, Main, Index

method constructor {type args} {

    if {$type eq {v}} {
        set typeName voltage
    } else {
        set typeName current
    }
    set arguments [argparse -inline -pfirst -help "Creates object of class '[string totitle ${type}ac]' that describes ac $typeName source" {
        {-dc= -default 0 -help {DC voltage value}}
        {-ac= -required -help {AC voltage value}}
        {-acphase= -help {Phase of AC voltage}}
        {name -help {Name of the device without first-letter designator}}
        {np -help {Name of node connected to positive pin}}
        {nm -help {Name of node connected to negative pin}}
    }]
    set dcVal [dget $arguments dc]
    if {([llength $dcVal]>1) && ([@ $dcVal 1] eq {-eq})} {
        lappend params [list dc [@ $dcVal 0] -poseq]
    } else {
        lappend params [list dc $dcVal -pos]
    }
    set acVal [dget $arguments ac]
    lappend params {acsw ac -posnocheck}
    if {([llength $acVal]>1) && ([@ $acVal 1] eq {-eq})} {
        lappend params [list ac [@ $acVal 0] -poseq]
    } else {
        lappend params [list ac $acVal -pos]
    }
    dict for {paramName value} $arguments {
        if {$paramName ni {ac dc name np nm}} {
            if {([llength $value]>1) && ([@ $value 1] eq {-eq})} {
                lappend params [list $paramName [@ $value 0] -poseq]
            } else {
                lappend params [list $paramName $value -pos]
            }
        }
    }
    next $type[dget $arguments name] [list [list np [dget $arguments np]] [list nm [dget $arguments nm]]] $params
}

method constructor {args} {

    # Creates object of class `Cccs` that describes linear current-controlled current source.
    #  name - name of the device without first-letter designator F
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -consrc - name of controlling source
    #  -gain - current gain
    #  -m - parallel source multiplicator
    # ```
    # FXXXXXXX N+ N- VNAM VALUE <m=val>
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Cccs new 1 net1 0 netc 0 -consrc vc -gain 10 -m 1
    # ```
    # Synopsis: name np nm -consrc value -gain value ?-m value?
    set arguments [argparse -inline -pfirst -help {Creates object of class `Cccs` that describes linear current-controlled current source} {
        {-consrc -required -help {Name of controlling source}}
        {-gain -required -help {Current gain}}
        {-m= -help {Parallel source multiplicator}}
        {name -help {Name of the device without first-letter designator F}}
        {np -help {Name of node connected to positive pin}}
        {nm -help {Name of node connected to negative pin}}
    }]
    set consrcVal [dget $arguments consrc]
    lappend params [list consrc $consrcVal -posnocheck]
    set gainVal [dget $arguments gain]
    if {([llength $gainVal]>1) && ([@ $gainVal 1] eq {-eq})} {
        lappend params [list igain [@ $gainVal 0] -poseq]
    } else {
        lappend params [list igain $gainVal -pos]
    }
    dict for {paramName value} $arguments {
        if {$paramName ni {consrc gain name np nm}} {
            lappend params [list $paramName {*}$value]
        }
    }
    next f[dget $arguments name] [list [list np [dget $arguments np]] [list nm [dget $arguments nm]]] $params
}

method constructor {args} {

    # Creates object of class `Ccvs` that describes linear current-controlled current source.
    #  name - name of the device without first-letter designator H
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -consrc - name of controlling source
    #  -transr - transresistance
    # ```
    # HXXXXXXX N+ N- VNAM VALUE
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Ccvs new 1 net1 0 -consrc vc -transr {tres -eq}
    # ```
    # Synopsis: name np nm -consrc value -transr value
    set arguments [argparse -inline -pfirst -help {Creates object of class `Ccvs` that describes linear current-controlled current source} {
        {-consrc -required -help {Name of controlling source}}
        {-transr -required -help Transresistance}
        {name -help {Name of the device without first-letter designator H}}
        {np -help {Name of node connected to positive pin}}
        {nm -help {Name of node connected to negative pin}}
    }]
    set consrcVal [dget $arguments consrc]
    lappend params [list consrc $consrcVal -posnocheck]
    set transrVal [dget $arguments transr]
    if {([llength $transrVal]>1) && ([@ $transrVal 1] eq {-eq})} {
        lappend params [list transr [@ $transrVal 0] -poseq]
    } else {
        lappend params [list transr $transrVal -pos]
    }
    next h[dget $arguments name] [list [list np [dget $arguments np]] [list nm [dget $arguments nm]]] $params
}

method constructor {type args} {

    if {$type eq {v}} {
        set typeName voltage
    } else {
        set typeName current
    }
    set arguments [argparse -inline -pfirst -help "Creates object of class '[string totitle ${type}dc]' that describes simple constant $typeName source" {
        {-dc= -required -help {DC value}}
        {name -help {Name of the device without first-letter designator}}
        {np -help {Name of node connected to positive pin}}
        {nm -help {Name of node connected to negative pin}}
    }]
    set dcVal [dget $arguments dc]
    if {([llength $dcVal]>1) && ([@ $dcVal 1] eq {-eq})} {
        lappend params [list dc [@ $dcVal 0] -poseq]
    } else {
        lappend params [list dc $dcVal -pos]
    }
    next $type[dget $arguments name] [list [list np [dget $arguments np]] [list nm [dget $arguments nm]]] $params
}

method constructor {type args} {

    if {$type eq {v}} {
        set typeName voltage
    } else {
        set typeName current
    }
    set arguments [argparse -inline -pfirst -help "Creates object of class '[string totitle ${type}exp]' that describes exponential $typeName source" {
        {-dc= -help {DC value}}
        {-ac= -help {AC value}}
        {-acphase= -require ac -help {}}
        {-i1|v1= -required -help {Initial value}}
        {-i2|v2= -required -help {Pulsed value}}
        {-td1= -required -help {Rise delay time}}
        {-tau1= -required -help {Rise time constant}}
        {-td2= -required -help {Fall delay time}}
        {-tau2= -required -help {Fall time constant}}
        {name -help {Name of the device without first-letter designator}}
        {np -help {Name of node connected to positive pin}}
        {nm -help {Name of node connected to negative pin}}
    }]
    if {[dexist $arguments dc]} {
        lappend params {dc -sw}
        set dcVal [dget $arguments dc]
        if {([llength $dcVal]>1) && ([@ $dcVal 1] eq {-eq})} {
            lappend params [list dcval [@ $dcVal 0] -poseq]
        } else {
            lappend params [list dcval $dcVal -pos]
        }
    }
    if {[dexist $arguments ac]} {
        lappend params {acsw ac -posnocheck}
        set acVal [dget $arguments ac]
        if {([llength $acVal]>1) && ([@ $acVal 1] eq {-eq})} {
            lappend params [list ac [@ $acVal 0] -poseq]
        } else {
            lappend params [list ac $acVal -pos]
        }
        if {[dexist $arguments acphase]} {
            set acphaseVal [dget $arguments acphase]
            if {([llength $acphaseVal]>1) && ([@ $acphaseVal 1] eq {-eq})} {
                lappend params [list acphase [@ $acphaseVal 0] -poseq]
            } else {
                lappend params [list acphase $acphaseVal -pos]
            }
        }
    }
    set paramsOrder {v1 v2 td1 tau1 td2 tau2}
    lappend params {model exp -posnocheck}
    my ParamsProcess $paramsOrder $arguments params
    next $type[dget $arguments name] [list [list np [dget $arguments np]] [list nm [dget $arguments nm]]] $params
}

method constructor {args} {

    # Creates object of class `Iac` that describes ac current source.
    #  name - name of the device without first-letter designator I
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -dc - AC current value
    #  -acphase - phase of AC current
    # ```
    # IYYYYYYY n+ n- <AC<ACMAG<ACPHASE>>>
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Iac new 1 netp netm -ac 10 -acphase 45
    # Synopsis: name np nm -ac value ?-acphase value?
    next i {*}$args
}

method constructor {args} {

    # Creates object of class `Idc` that describes simple constant current source.
    #  name - name of the device without first-letter designator I
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -dc - DC voltage value
    # ```
    # IYYYYYYY n+ n- <<DC> DC/TRAN VALUE>>
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Idc new 1 netp netm -dc 10
    # ```
    # Synopsis: name np nm -dc value
    next i {*}$args
}

method constructor {args} {

    # Creates object of class `Iexp` that describes exponential current source.
    #  name - name of the device without first-letter designator I
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -i1 - initial value
    #  -i2 - pulsed value
    #  -td1 - rise delay time
    #  -tau1 - rise time constant
    #  -td2 - fall delay time
    #  -tau2 - fall time constant
    #  -dc - DC value, optional
    #  -ac - AC value, optional
    #  -acphase - phase of AC signal, optional, requires -ac
    # ```
    # IYYYYYYY n+ n- EXP(V1 V2 TD1 TAU1 TD2 TAU2)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Iexp new 1 net1 net2 -i1 0 -i2 1 -td1 1e-9 -tau1 1e-9 -td2 {td2 -eq} -tau2 10e-6
    # ```
    # Synopsis: name np nm -i1 value -i2 value -td1 value -tau1 value -td2 value -tau2 value
    #   ?-phase|phi value???
    next i {*}$args
}

method constructor {args} {

    # Creates object of class `Ipulse` that describes pulse current source.
    #  name - name of the device without first-letter designator I
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -low - low value, aliases: -voff, -ioff
    #  -high - high value, aliases: -von, ion
    #  -td - time delay
    #  -tr - rise time
    #  -tf - fall time
    #  -pw - width of pulse, alias -ton
    #  -per - period time, alias -tper
    #  -dc - DC value, optional
    #  -ac - AC value, optional
    #  -acphase - phase of AC signal, optional, requires -ac
    # ```
    # IYYYYYYY n+ n- PULSE(V1 V2 TD TR TF PW PER)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Ipulse new 1 net1 net2 -low 0 -high 1 -td {td -eq} -tr 1e-9 -tf 1e-9 -pw 10e-6 -per 20e-6
    # ```
    # Synopsis: name np nm -voff|ioff|low value -von|ion|high value -td value -tr value -tf value
    #   -pw|ton value ?-phase|phi value???
    next i {*}$args
}

method constructor {args} {

    # Creates object of class `Ipwl` that describes piece-wise current source.
    #  name - name of the device without first-letter designator I
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -seq - sequence of pwl points in form {t0 i0 t1 i1 t2 i2 t3 i3 ...}
    #  -dc - DC value, optional
    #  -ac - AC value, optional
    #  -acphase - phase of AC signal, optional, requires -ac
    # ```
    # IYYYYYYY n+ n- PWL (T1 I1 <T2 I2 T3 I3 T4 I4 ...>)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Ipwl new 1 np nm -seq {0 0 {t1 -eq} 1 2 2 3 3 4 4}
    # ```
    # Synopsis: name np nm -seq list ?-phase|phi value???
    next i {*}$args
}

method constructor {args} {

    # Creates object of class `Isffm` that describes single-frequency FM current source.
    #  name - name of the device without first-letter designator I
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -i0 - initial value, aliases: -voff, -v0, -ioff
    #  -ia - pulsed value, aliases: -vamp, -va, -iamp
    #  -fc - carrier frequency, alias -fcar
    #  -mdi - modulation index
    #  -fs - signal frequency, alias -fsig
    #  -dc - DC value, optional
    #  -ac - AC value, optional
    #  -acphase - phase of AC signal, optional, requires -ac
    # ```
    # IYYYYYYY n+ n- SFFM(VO VA FC MDI FS)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Isin new 1 net1 net2 -i0 0 -ia 1 -fc {freq -eq} -mdi 0 -fs 1e3
    # ```
    # Synopsis: name np nm -i0|voff|ioff|v0 value -ia|vamp|iamp|va value -fc|fcar value -mdi value
    #   -fs|fsig value ?-phi|phase value???
    next i {*}$args
}

method constructor {args} {

    # Creates object of class `Isin` that describes sinusoidal current source.
    #  name - name of the device without first-letter designator I
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -i0 - DC shift value, aliases: -voffset, -v0, -ioffset
    #  -ia - amplitude value, aliases: -vamp, -va, -iamp
    #  -freq - frequency of sinusoidal signal
    #  -td - time delay, optional
    #  -theta - damping factor, optional, require -td
    #  -phase - phase of signal, optional, require -td and -phase, alias -phi
    #  -dc - DC value, optional
    #  -ac - AC value, optional
    #  -acphase - phase of AC signal, optional, requires -ac
    # ```
    # IYYYYYYY n+ n- SIN(VO VA FREQ TD THETA PHASE)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Isin new 1 net1 net2 -i0 0 -ia 2 -freq {freq -eq} -td 1e-6 -theta {theta -eq}
    # ```
    # Synopsis: name np nm -i0|ioffset value -ia|iamp value -freq value ?-td value ?-theta value
    #   ?-phase|phi value???
    next i {*}$args
}

method constructor {type args} {

    if {$type eq {v}} {
        set typeName voltage
    } else {
        set typeName current
    }
    set arguments [argparse -inline -pfirst -help "Creates object of class '[string totitle ${type}pulse]' that describes pulse $typeName source" {
        {-dc= -help {DC value}}
        {-ac= -help {AC value}}
        {-acphase= -require ac -help {AC phase}}
        {-voff|ioff|low= -required -help {Low value}}
        {-von|ion|high= -required -help {High value}}
        {-td= -required -help {Delay time}}
        {-tr= -required -help {Rise time}}
        {-tf= -required -help {Fall time}}
        {-pw|ton= -required -help {Width of pulse}}
        {-per|tper= -required -help {Period time}}
        {name -help {Name of the device without first-letter designator}}
        {np -help {Name of node connected to positive pin}}
        {nm -help {Name of node connected to negative pin}}
    }]
    if {[dexist $arguments dc]} {
        lappend params {dc -sw}
        set dcVal [dget $arguments dc]
        if {([llength $dcVal]>1) && ([@ $dcVal 1] eq {-eq})} {
            lappend params [list dcval [@ $dcVal 0] -poseq]
        } else {
            lappend params [list dcval $dcVal -pos]
        }
    }
    if {[dexist $arguments ac]} {
        lappend params {acsw ac -posnocheck}
        set acVal [dget $arguments ac]
        if {([llength $acVal]>1) && ([@ $acVal 1] eq {-eq})} {
            lappend params [list ac [@ $acVal 0] -poseq]
        } else {
            lappend params [list ac $acVal -pos]
        }
        if {[dexist $arguments acphase]} {
            set acphaseVal [dget $arguments acphase]
            if {([llength $acphaseVal]>1) && ([@ $acphaseVal 1] eq {-eq})} {
                lappend params [list acphase [@ $acphaseVal 0] -poseq]
            } else {
                lappend params [list acphase $acphaseVal -pos]
            }
        }
    }
    set paramsOrder {low high td tr tf ton tper}
    lappend params {model pulse -posnocheck}
    my ParamsProcess $paramsOrder $arguments params
    next $type[dget $arguments name] [list [list np [dget $arguments np]] [list nm [dget $arguments nm]]] $params
}

method constructor {type args} {

    if {$type eq {v}} {
        set typeName voltage
    } else {
        set typeName current
    }
    set arguments [argparse -inline -pfirst -help "Creates object of class '[string totitle ${type}pwl]' that describes piece-wise $typeName source" {
        {-dc= -help {DC value}}
        {-ac= -help {AC value}}
        {-acphase= -require ac -help {Phase of AC signal}}
        {-seq= -required -help {Sequence of pwl points in form {t0 i0 t1 i1 t2 i2 t3 i3 ...}}}
        {name -help {Name of the device without first-letter designator}}
        {np -help {Name of node connected to positive pin}}
        {nm -help {Name of node connected to negative pin}}
    }]
    set start 0
    if {[dexist $arguments dc]} {
        lappend paramList {dc -sw}
        set dcVal [dget $arguments dc]
        if {([llength $dcVal]>1) && ([@ $dcVal 1] eq {-eq})} {
            lappend paramList [list dcval [@ $dcVal 0] -poseq]
        } else {
            lappend paramList [list dcval $dcVal -pos]
        }
        incr start 2
    }
    if {[dexist $arguments ac]} {
        lappend paramList {acsw ac -posnocheck}
        set acVal [dget $arguments ac]
        if {([llength $acVal]>1) && ([@ $acVal 1] eq {-eq})} {
            lappend paramList [list ac [@ $acVal 0] -poseq]
        } else {
            lappend paramList [list ac $acVal -pos]
        }
        if {[dexist $arguments acphase]} {
            set acphaseVal [dget $arguments acphase]
            if {([llength $acphaseVal]>1) && ([@ $acphaseVal 1] eq {-eq})} {
                lappend paramList [list acphase [@ $acphaseVal 0] -poseq]
            } else {
                lappend paramList [list acphase $acphaseVal -pos]
            }
            incr start 1
        }
        incr start 2
    }
    set pwlSeqVal [dget $arguments seq]
    set pwlSeqLen [llength $pwlSeqVal]
    if {$pwlSeqLen%2} {
        return -code error "Number of elements '$pwlSeqLen' in pwl sequence is odd in element '$type[dget $arguments name]', must be even"
    } elseif {$pwlSeqLen<4} {
        return -code error "Number of elements '$pwlSeqLen' in pwl sequence in element '$type[dget $arguments name]' must be >=4"
    }
    # parse pwlSeq argument
    for {set i 0} {$i<[llength $pwlSeqVal]/2} {incr i} {
        set 2i [* 2 $i]
        set 2ip1 [+ $2i 1]
        lappend params [list t$i [@ $pwlSeqVal $2i]] [list $type$i [@ $pwlSeqVal $2ip1]]
    }
    foreach param $params {
        if {([llength [@ $param 1]]>1) && ([@ [@ $param 1] 1] eq {-eq})} {
            lappend paramList [list [@ $param 0] [@ [@ $param 1] 0] -poseq]
        } else {
            lappend paramList [list [@ $param 0] [@ $param 1] -pos]
        }
    }
    set paramList [linsert $paramList $start {model pwl -posnocheck}]
    next $type[dget $arguments name] [list [list np [dget $arguments np]] [list nm [dget $arguments nm]]] $paramList
}

method constructor {type args} {

    if {$type eq {v}} {
        set typeName voltage
    } else {
        set typeName current
    }
    set arguments [argparse -inline -pfirst -help "Creates object of class '[string totitle ${type}sffm]' that describes single-frequency FM $typeName source" {
        {-dc= -help {DC value}}
        {-ac= -help {AC value}}
        {-acphase= -require ac -help {Phase of AC signal}}
        {-i0|voff|ioff|v0= -required -help {Initial value}}
        {-ia|vamp|iamp|va= -required -help {Pulsed value}}
        {-fcar|fc= -required -help {Carrier frequency}}
        {-mdi= -required -help {Modulation index}}
        {-fsig|fs= -required -help {Signal frequency}}
        {name -help {Name of the device without first-letter designator}}
        {np -help {Name of node connected to positive pin}}
        {nm -help {Name of node connected to negative pin}}
    }]
    if {[dexist $arguments dc]} {
        lappend params {dc -sw}
        set dcVal [dget $arguments dc]
        if {([llength $dcVal]>1) && ([@ $dcVal 1] eq {-eq})} {
            lappend params [list dcval [@ $dcVal 0] -poseq]
        } else {
            lappend params [list dcval $dcVal -pos]
        }
    }
    if {[dexist $arguments ac]} {
        lappend params {acsw ac -posnocheck}
        set acVal [dget $arguments ac]
        if {([llength $acVal]>1) && ([@ $acVal 1] eq {-eq})} {
            lappend params [list ac [@ $acVal 0] -poseq]
        } else {
            lappend params [list ac $acVal -pos]
        }
        if {[dexist $arguments acphase]} {
            set acphaseVal [dget $arguments acphase]
            if {([llength $acphaseVal]>1) && ([@ $acphaseVal 1] eq {-eq})} {
                lappend params [list acphase [@ $acphaseVal 0] -poseq]
            } else {
                lappend params [list acphase $acphaseVal -pos]
            }
        }
    }
    set paramsOrder {v0 va fc mdi fs}
    lappend params {model sffm -posnocheck}
    my ParamsProcess $paramsOrder $arguments params
    next $type[dget $arguments name] [list [list np [dget $arguments np]] [list nm [dget $arguments nm]]] $params
}

method constructor {type args} {

    if {$type eq {v}} {
        set typeName voltage
    } else {
        set typeName current
    }
    set arguments [argparse -inline -pfirst -help "Creates object of class '[string totitle ${type}sin]' that describes sinusoidal $typeName source" {
        {-dc= -help {DC value}}
        {-ac= -help {AC value}}
        {-acphase= -require ac -help {phase of AC signal}}
        {-i0|voffset|ioffset|v0= -required -help {DC shift value}}
        {-ia|vamp|iamp|va= -required -help {Amplitude value}}
        {-freq= -required -help {Frequency of sinusoidal signal}}
        {-td= -help {Time delay}}
        {-theta= -require {td} -help {Damping factor}}
        {-phi|phase= -require {td theta} -help {Phase of signal}}
        {name -help {Name of the device without first-letter designator}}
        {np -help {Name of node connected to positive pin}}
        {nm -help {Name of node connected to negative pin}}
    }]
    if {[dexist $arguments dc]} {
        lappend params {dc -sw}
        set dcVal [dget $arguments dc]
        if {([llength $dcVal]>1) && ([@ $dcVal 1] eq {-eq})} {
            lappend params [list dcval [@ $dcVal 0] -poseq]
        } else {
            lappend params [list dcval $dcVal -pos]
        }
    }
    if {[dexist $arguments ac]} {
        lappend params {acsw ac -posnocheck}
        set acVal [dget $arguments ac]
        if {([llength $acVal]>1) && ([@ $acVal 1] eq {-eq})} {
            lappend params [list ac [@ $acVal 0] -poseq]
        } else {
            lappend params [list ac $acVal -pos]
        }
        if {[dexist $arguments acphase]} {
            set acphaseVal [dget $arguments acphase]
            if {([llength $acphaseVal]>1) && ([@ $acphaseVal 1] eq {-eq})} {
                lappend params [list acphase [@ $acphaseVal 0] -poseq]
            } else {
                lappend params [list acphase $acphaseVal -pos]
            }
        }
    }
    set paramsOrder {v0 va freq td theta phase}
    lappend params {model sin -posnocheck}
    my ParamsProcess $paramsOrder $arguments params
    next $type[dget $arguments name] [list [list np [dget $arguments np]] [list nm [dget $arguments nm]]] $params
}

method constructor {args} {

    # Creates object of class `Vac` that describes ac voltage source.
    #  name - name of the device without first-letter designator V
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -ac - AC voltage value
    #  -acphase - phase of AC voltage
    # ```
    # VYYYYYYY n+ n- <AC<ACMAG<ACPHASE>>>
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Vac new 1 netp netm -ac 10 -acphase 45
    # ```
    # Synopsis: name np nm -ac value ?-acphase value?
    next v {*}$args
}

method constructor {args} {

    # Creates object of class `Vccs` that describes linear voltage-controlled current source.
    #  name - name of the device without first-letter designator G
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  ncp - name of node connected to positive controlling pin
    #  ncm - name of node connected to negative controlling pin
    #  -trcond - transconductance
    #  -m - multiplier factor, optional
    # ```
    # GXXXXXXX N+ N- NC+ NC- VALUE <m=val>
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Vccs new 1 net1 0 netc 0 -trcond 10 -m 1
    # ```
    # Synopsis: name np nm ncp ncm -trcond value ?-m value?
    set arguments [argparse -inline -pfirst -help {Creates object of class `Vccs` that describes linear voltage-controlled current source} {
        {-trcond -required -help Transconductance}
        {-m= -help {Multiplier factor}}
        {name -help {Name of the device without first-letter designator G}}
        {np -help {Name of node connected to positive pin}}
        {nm -help {Name of node connected to negative pin}}
        {ncp -help {Name of node connected to positive controlling pin}}
        {ncm -help {Name of node connected to negative controlling pin}}
    }]
    set trcondVal [dget $arguments trcond]
    if {([llength $trcondVal]>1) && ([@ $trcondVal 1] eq {-eq})} {
        lappend params [list trcond [@ $trcondVal 0] -poseq]
    } else {
        lappend params [list trcond $trcondVal -pos]
    }
    dict for {paramName value} $arguments {
        if {$paramName ni {trcond name np nm ncp ncm}} {
            lappend params [list $paramName {*}$value]
        }
    }
    next g[dget $arguments name] [list [list np [dget $arguments np]] [list nm [dget $arguments nm]] [list ncp [dget $arguments ncp]] [list ncm [dget $arguments ncm]]] $params
}

method constructor {args} {

    # Creates object of class `Vcvs` that describes linear voltage-controlled current source.
    #  name - name of the device without first-letter designator E
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  ncp - name of node connected to positive controlling pin
    #  ncm - name of node connected to negative controlling pin
    #  -gain - voltage gain
    # ```
    # EXXXXXXX N+ N- NC+ NC- VALUE
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Vcvs new 1 net1 0 netc 0 -gain 10
    # ```
    # Synopsis: name np nm ncp ncm -gain value
    set arguments [argparse -inline -pfirst -help {Creates object of class `Vcvs` that describes linear voltage-controlled current source} {
        {-gain -required -help {Voltage gain}}
        {name -help {Name of the device without first-letter designator E}}
        {np -help {Name of node connected to positive pin}}
        {nm -help {Name of node connected to negative pin}}
        {ncp -help {Name of node connected to positive controlling pin}}
        {ncm -help {Name of node connected to negative controlling pin}}
    }]
    set gainVal [dget $arguments gain]
    if {([llength $gainVal]>1) && ([@ $gainVal 1] eq {-eq})} {
        lappend params [list vgain [@ $gainVal 0] -poseq]
    } else {
        lappend params [list vgain $gainVal -pos]
    }
    next e[dget $arguments name] [list [list np [dget $arguments np]] [list nm [dget $arguments nm]] [list ncp [dget $arguments ncp]] [list ncm [dget $arguments ncm]]] $params
}

method constructor {args} {

    # Creates object of class `Vdc` that describes simple constant voltage source.
    #  name - name of the device without first-letter designator V
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -dc - DC voltage value
    # ```
    # VYYYYYYY n+ n- <<DC> DC/TRAN VALUE>>
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Vdc new 1 netp netm -dc 10
    # ```
    # Synopsis: name np nm -dc value
    next v {*}$args
}

method constructor {args} {

    # Creates object of class `Vexp` that describes exponential voltage source.
    #  name - name of the device without first-letter designator V
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -v1 - initial value
    #  -v2 - pulsed value
    #  -td1 - rise delay time
    #  -tau1 - rise time constant
    #  -td2 - fall delay time
    #  -tau2 - fall time constant
    #  -dc - DC value, optional
    #  -ac - AC value, optional
    #  -acphase - phase of AC signal, optional, requires -ac
    # ```
    # VYYYYYYY n+ n- EXP(V1 V2 TD1 TAU1 TD2 TAU2)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Vexp new 1 net1 net2 -v1 0 -v2 1 -td1 1e-9 -tau1 1e-9 -td2 {td2 -eq} -tau2 10e-6
    # ```
    # Synopsis: name np nm -i1|v1 value -i2|v2 value -td1 value -tau1 value -td2 value -tau2 value
    #   ?-phi|phase value???
    next v {*}$args
}

method constructor {args} {

    # Creates object of class `Vpulse` that describes pulse voltage source.
    #  name - name of the device without first-letter designator V
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -low - low value, aliases: -voff, -ioff
    #  -high - high value, aliases: -von, ion
    #  -td - time delay
    #  -tr - rise time
    #  -tf - fall time
    #  -ton - width of pulse, alias -pw
    #  -tper - period time, alias -per
    #  -dc - DC value, optional
    #  -ac - AC value, optional
    #  -acphase - phase of AC signal, optional, requires -ac
    # ```
    # VYYYYYYY n+ n- PULSE(V1 V2 TD TR TF PW PER)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Vpulse new 1 net1 net2 -low 0 -high 1 -td {td -eq} -tr 1e-9 -tf 1e-9 -pw 10e-6 -per 20e-6
    # ```
    # Synopsis: name np nm -voff|ioff|low value -von|ion|high value -td value -tr value -tf value
    #   -pw|ton value ?-dc value? ?-ac value ?-acphase value??
    next v {*}$args
}

method constructor {args} {

    # Creates object of class `Vpwl` that describes piece-wise voltage source.
    #  name - name of the device without first-letter designator V
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -seq - sequence of pwl points in form {t0 v0 t1 v1 t2 v2 t3 v3 ...}
    #  -dc - DC value, optional
    #  -ac - AC value, optional
    #  -acphase - phase of AC signal, optional, requires -ac
    # ```
    # VYYYYYYY n+ n- PWL (T1 V1 <T2 V2 T3 V3 T4 V4 ...>)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Vpwl new 1 np nm -seq {0 0 {t1 -eq} 1 2 2 3 3 4 4}
    # ```
    # Synopsis: name np nm -seq list ?-phase|phi value???
    next v {*}$args
}

method constructor {args} {

    # Creates object of class `Vsffm` that describes single-frequency FM voltage source.
    #  name - name of the device without first-letter designator V
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -v0 - initial value, aliases: -voff, -i0, -ioff
    #  -va - pulsed value, aliases: -vamp, -ia, -iamp
    #  -fc - carrier frequency, alias -fcar
    #  -mdi - modulation index
    #  -fs - signal frequency, alias -fsig
    #  -dc - DC value, optional
    #  -ac - AC value, optional
    #  -acphase - phase of AC signal, optional, requires -ac
    # ```
    # VYYYYYYY n+ n- SFFM(VO VA FC MDI FS)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Vsin new 1 net1 net2 -v0 0 -va 1 -fc {freq -eq} -mdi 0 -fs 1e3
    # ```
    # Synopsis: name np nm -i0|voff|ioff|v0 value -ia|vamp|iamp|va value -fc|fcar value -mdi value
    #   -fs|fsig ?-phi|phase value???
    next v {*}$args
}

method constructor {args} {

    # Creates object of class `Vsin` that describes sinusoidal voltage source.
    #  name - name of the device without first-letter designator V
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -v0 - DC shift value, aliases: -voffset, -i0, -ioffset
    #  -va - amplitude value, aliases: -vamp, -ia, -iamp
    #  -freq - frequency of sinusoidal signal
    #  -td - time delay, optional
    #  -theta - damping factor, optional, require -td
    #  -phase - phase of signal, optional, require -td and -phase, alias -phi
    #  -dc - DC value, optional
    #  -ac - AC value, optional
    #  -acphase - phase of AC signal, optional, requires -ac
    # ```
    # VYYYYYYY n+ n- SIN(VO VA FREQ TD THETA PHASE)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Vsin new 1 net1 net2 -v0 0 -va 2 -freq {freq -eq} -td 1e-6 -theta {theta -eq}
    # ```
    # Synopsis: name np nm -i0|voffset|ioffset|v0 value -ia|vamp|iamp|va value -freq value
    #   ?-td value ?-theta value ?-phi|phase value???
    next v {*}$args
}