::SpiceGenTcl::Ltspice::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}}
        {-rser= -help {Series resistor value}}
        {-cpar= -help {Parallel capacitor 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 0] eq {-eq})} {
        lappend params [list -poseq dc [@ $dcVal 1]]
    } else {
        lappend params [list -pos dc $dcVal]
    }
    set acVal [dget $arguments ac]
    if {([llength $acVal]>1) && ([@ $acVal 0] eq {-eq})} {
        lappend params [list -eq ac [@ $acVal 1]]
    } else {
        lappend params [list ac $acVal]
    }
    dict for {paramName value} $arguments {
        if {$paramName ni {dc ac name np nm}} {
            if {([llength $value]>1) && ([@ $value 1] eq {-eq})} {
                lappend params [list $paramName [@ $value 0] -eq]
            } else {
                lappend params [list $paramName {*}$value]
            }
        }
    }
    next $type[dget $arguments name] [list [list np [dget $arguments np]] [list nm [dget $arguments nm]]] $params
}

method constructor {args} {

    # Creates object of class `BehaviouralSource` that describes behavioural source.
    #  name - name of the device without first-letter designator B
    #  np - name of node connected to positive pin
    #  nm - name of node connected to negative pin
    #  -i - current expression
    #  -v - voltage expression
    #  -ic - initial condition
    #  -tripdv - voltage control step rejection
    #  -tripdt - voltage control time step rejection
    # ```
    # Bnnn n001 n002 V=<expression> [ic=<value>]
    # + [tripdv=<value>] [tripdt=<value>]
    # + [laplace=<expression> [window=<time>]
    # + [nfft=<number>] [mtol=<number>]]
    # ```
    # ```
    #  Bnnn n001 n002 I=<expression> [ic=<value>]
    # + [tripdv=<value>] [tripdt=<value>] [Rpar=<value>]
    # + [laplace=<expression> [window=<time>]
    # + [nfft=<number>] [mtol=<number>]]
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ltspice::Sources::BehaviouralSource new 1 netp netm -v "V(a)+V(b)+pow(V(c),2)"
    # ```
    # Synopsis: name np nm -v value ?-ic value? ?-tripdv value -tripdt value? ?-laplace value
    #   ?-window value? ?-nfft value? ?-mtol value??
    # Synopsis: name np nm -i value ?-ic value? ?-tripdv value -tripdt value? ?-laplace value
    #   ?-window value? ?-nfft value? ?-mtol value??
    set arguments [argparse -inline -pfirst -help {Creates object of class 'BehaviouralSource' that describes behavioural source} {
        {-i= -forbid {v} -help {Current expression}}
        {-v= -forbid {i} -help {Voltage expression}}
        {-ic= -help {Initial condition}}
        {-tripdv= -require tripdt -help {Voltage control step rejection}}
        {-tripdt= -require tripdv -help {Voltage control time step rejection}}
        {-laplace= -help {Laplace equation}}
        {-window= -require laplace}
        {-nfft= -require laplace}
        {-mtol= -require laplace}
        {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 i]} {
        lappend params [list -eq i [dget $arguments i]]
    } elseif {[dexist $arguments v]} {
        lappend params [list -eq v [dget $arguments v]]
    } else {
        return -code error {Equation must be specified as argument to -i or -v}
    }
    dict for {paramName value} $arguments {
        if {$paramName ni {i v name np nm}} {
            if {[@ $value 0] eq {-eq}} {
                lappend params [list -eq $paramName [@ $value 1]]
            } else {
                lappend params [list $paramName $value]
            }
        }
    }
    next b[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 voltage value}}
        {-rser= -help {Series resistor value}}
        {-cpar= -help {Parallel capacitor 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 0] eq {-eq})} {
        lappend params [list -poseq dc [@ $dcVal 1]]
    } else {
        lappend params [list -pos dc $dcVal]
    }
    dict for {paramName value} $arguments {
        if {$paramName ni {dc name np nm}} {
            if {([llength $value]>1) && ([@ $value 1] eq {-eq})} {
                lappend params [list $paramName [@ $value 0] -eq]
            } else {
                lappend params [list $paramName {*}$value]
            }
        }
    }
    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" {
        {-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}}
        {-rser= -help {Series resistor value}}
        {-cpar= -help {Parallel capacitor 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 paramsOrder {v1 v2 td1 tau1 td2 tau2}
    lappend params {-posnocheck model exp}
    my ParamsProcess $paramsOrder $arguments params
    dict for {paramName value} $arguments {
        if {($paramName ni $paramsOrder) && ($paramName ni {name np nm})} {
            if {([llength $value]>1) && ([@ $value 0] eq {-eq})} {
                lappend params [list -eq $paramName [@ $value 1]]
            } else {
                lappend params [list $paramName {*}$value]
            }
        }
    }
    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 - DC current value, default 0
    #  -ac - AC current value
    # ```
    # Ixxx n+ n- <current> AC=<amplitude>
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ltspice::Sources::Iac new 1 netp netm -ac 10
    # ```
    # Synopsis: name np nm -ac value ?-dc value?
    if {({-rser} in $args) || ({-cpar} in $args)} {
        return -code error {Current source doesn't support rser and cpar parameters}
    }
    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 current value
    # ```
    # Ixxx n+ n- <current>
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ltspice::Sources::Idc new 1 netp netm -dc 10
    # ```
    # Synopsis: name np nm -dc value
    if {({-rser} in $args) || ({-cpar} in $args)} {
        return -code error {Current source doesn't support rser and cpar parameters}
    }
    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
    # ```
    # Ixxx n+ n- EXP(I1 I2 Td1 Tau1 Td2 Tau2)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ltspice::Sources::Iexp new 1 net1 net2 -i1 0 -i2 1 -td1 1e-9 -tau1 1e-9 -td2 {-eq td2} -tau2 10e-6
    # ```
    # Synopsis: name np nm -i1 value -i2 value -td1 value -tau1 value -td2 value -tau2 value
    if {({-rser} in $args) || ({-cpar} in $args)} {
        return -code error {Current source doesn't support rser and cpar parameters}
    }
    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
    #  -npulses - number of pulses, optional, alias -ncycles
    # ```
    # Ixxx n+ n- PULSE(Ioff Ion Tdelay Trise Tfall Ton Tperiod Ncycles)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ltspice::Sources::Ipulse new 1 net1 net2 -low 0 -high 1 -td {-eq td} -tr 1e-9 -tf 1e-9 -pw 10e-6 -per 20e-6 -npulses {-eq np}
    # ```
    # Synopsis: name np nm -low|ioff value -high|ion value -td value -tr value -tf value -pw|ton value
    #   -per|tper value ?-np|ncycles value?
    if {({-rser} in $args) || ({-cpar} in $args)} {
        return -code error {Current source doesn't support rser and cpar parameters}
    }
    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 v0 t1 v1 t2 v2 t3 v3 ...}
    #  -rser - series resistor value, optional
    #  -cpar - parallel capacitor value, optional
    # ```
    # Ixxx n+ n- PWL(t1 i1 t2 i2 t3 i3...)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ltspice::Sources::Ipwl new 1 np nm -seq {0 0 {-eq t1} 1 2 2 3 3 4 4}
    # ```
    # Synopsis: name np nm -seq list
    if {({-rser} in $args) || ({-cpar} in $args)} {
        return -code error {Current source doesn't support rser and cpar parameters}
    }
    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
    # ```
    # Ixxx n+ n- SFFM(Ioff Iamp Fcar MDI Fsig)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ltspice::Sources::Isin new 1 net1 net2 -i0 0 -ia 1 -fc {-eq freq} -mdi 0 -fs 1e3
    # ```
    # Synopsis: name np nm -i0|ioff value -ia|iamp value -fc|fcar value -mdi value -fs|fsig value
    if {({-rser} in $args) || ({-cpar} in $args)} {
        return -code error {Current source doesn't support rser and cpar parameters}
    }
    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
    #  -v0 - DC shift value, aliases: -voffset, -v0, -ioffset
    #  -va - 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 -theta, alias -phi
    #  -ncycles - number of cycles, optional, require -td, -theta and -phase
    # ```
    # Ixxx n+ n- SINE(Ioffset Iamp Freq Td Theta Phi Ncycles)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ltspice::Sources::Isin new 1 net1 net2 -v0 0 -va 2 -freq {-eq freq} -td 1e-6 -theta {-eq theta}
    # ```
    # Synopsis: name np nm -i0|ioffset value -ia|iamp value -freq value ?-td value ?-theta value
    #   ?-phase|phi value ?-ncycles value????
    if {({-rser} in $args) || ({-cpar} in $args)} {
        return -code error {Current source doesn't support rser and cpar parameters}
    }
    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" {
        {-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}}
        {-ncycles|npulses= -help {Number of pulses}}
        {-rser= -help {Series resistor value}}
        {-cpar= -help {Parallel capacitor 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 paramsOrder {low high td tr tf ton tper npulses}
    lappend params {-posnocheck model pulse}
    my ParamsProcess $paramsOrder $arguments params
    dict for {paramName value} $arguments {
        if {($paramName ni $paramsOrder) && ($paramName ni {name np nm})} {
            if {([llength $value]>1) && ([@ $value 0] eq {-eq})} {
                lappend params [list -eq $paramName [@ $value 1]]
            } else {
                lappend params [list $paramName {*}$value]
            }
        }
    }
    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" {
        {-seq= -required -help {Sequence of pwl points in form {t0 i0 t1 i1 t2 i2 t3 i3 ...}}}
        {-rser= -help {Series resistor value}}
        {-cpar= -help {Parallel capacitor 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 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] 0] eq {-eq})} {
            lappend paramList [list -poseq [@ $param 0] [@ [@ $param 1] 1]]
        } else {
            lappend paramList [list -pos [@ $param 0] [@ $param 1]]
        }
    }
    foreach paramName {rser cpar} {
        if {[dexist $arguments $paramName]} {
            set paramVal [dget $arguments $paramName]
            if {([llength $paramVal]>1) && ([@ $paramVal 0] eq {-eq})} {
                lappend paramList [list -eq $paramName [@ $paramVal 1]]
            } else {
                lappend paramList [list $paramName {*}$paramVal]
            }
        }
    }
    set paramList [linsert $paramList 0 {-posnocheck model pwl}]
    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" {
        {-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}}
        {-rser= -help {Series resistor value}}
        {-cpar= -help {Parallel capacitor 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 paramsOrder {v0 va fc mdi fs}
    lappend params {-posnocheck model sffm}
    my ParamsProcess $paramsOrder $arguments params
    dict for {paramName value} $arguments {
        if {($paramName ni $paramsOrder) && ($paramName ni {name np nm})} {
            if {([llength $value]>1) && ([@ $value 0] eq {-eq})} {
                lappend params [list -eq $paramName [@ $value 1]]
            } else {
                lappend params [list $paramName {*}$value]
            }
        }
    }
    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" {
        {-i0|voffset|ioffset|v0= -required -help {DC value}}
        {-ia|vamp|iamp|va= -required -help {AC 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}}
        {-ncycles= -require {td theta phase} -help {Number of periods}}
        {-rser= -help {Series resistor value}}
        {-cpar= -help {Parallel capacitor 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 paramsOrder {v0 va freq td theta phase ncycles}
    lappend params {-posnocheck model sin}
    my ParamsProcess $paramsOrder $arguments params
    dict for {paramName value} $arguments {
        if {($paramName ni $paramsOrder) && ($paramName ni {name np nm})} {
            if {([llength $value]>1) && ([@ $value 0] eq {-eq})} {
                lappend params [list -eq $paramName [@ $value 1]]
            } else {
                lappend params [list $paramName {*}$value]
            }
        }
    }
    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
    #  -dc - DC voltage value, default 0
    #  -ac - AC voltage value
    #  -rser - series resistor value, optional
    #  -cpar - parallel capacitor value, optional
    # ```
    # Vxxx n+ n- <voltage> AC=<amplitude> [Rser=<value>] [Cpar=<value>]
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Vac new 1 netp netm -ac 10 -cpar 1e-9
    # ```
    # Synopsis: name np nm -ac value ?-dc value? ?-rser value? ?-cpar value?
    next v {*}$args
}

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
    #  -rser - series resistor value, optional
    #  -cpar - parallel capacitor value, optional
    # ```
    # Vxxx n+ n- <voltage> [Rser=<value>] [Cpar=<value>]
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ltspice::Sources::Vdc new 1 netp netm -dc 10 -rser 0.001
    # ```
    # Synopsis: name np nm -dc value ?-rser value? ?-cpar 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
    #  -rser - series resistor value, optional
    #  -cpar - parallel capacitor value, optional
    # ```
    # Vxxx n+ n- EXP(V1 V2 Td1 Tau1 Td2 Tau2)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ltspice::Sources::Vexp new 1 net1 net2 -v1 0 -v2 1 -td1 1e-9 -tau1 1e-9 -td2 {-eq td2} -tau2 10e-6
    # ```
    # Synopsis: name np nm -v1 value -v2 value -td1 value -tau1 value -td2 value -tau2 value
    #   ?-rser value? ?-cpar 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
    #  -pw - width of pulse, alias -ton
    #  -per - period time, alias -tper
    #  -npulses - number of pulses, optional, alias -ncycles
    #  -rser - series resistor value, optional
    #  -cpar - parallel capacitor value, optional
    # ```
    # Vxxx n+ n- PULSE(V1 V2 Tdelay Trise Tfall Ton Tperiod Ncycles)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ltspice::Sources::Vpulse new 1 net1 net2 -low 0 -high 1 -td {-eq td} -tr 1e-9 -tf 1e-9 -pw 10e-6 -per 20e-6 -npulses {-eq np}
    # ```
    # Synopsis: name np nm -low|voff value -high|von value -td value -tr value -tf value -pw|ton value
    #   -per|tper value ?-np|ncycles value? ?-rser value? ?-cpar 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 ...}
    #  -rser - series resistor value, optional
    #  -cpar - parallel capacitor value, optional
    # ```
    # Vxxx n+ n- PWL(t1 v1 t2 v2 t3 v3...)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ltspice::Sources::Vpwl new 1 np nm -seq {0 0 {-eq t1} 1 2 2 3 3 4 4}
    # ```
    # Synopsis: name np nm -seq list ?-rser value? ?-cpar 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
    #  -rser - series resistor value, optional
    #  -cpar - parallel capacitor value, optional
    # ```
    # Vxxx n+ n- SFFM(Voff Vamp Fcar MDI Fsig)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ltspice::Sources::Vsin new 1 net1 net2 -v0 0 -va 1 -fc {-eq freq} -mdi 0 -fs 1e3
    # ```
    # Synopsis: name np nm -v0|voff value -va|vamp value -fc|fcar value -mdi value -fs|fsig value
    #   ?-rser value? ?-cpar 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 -theta, alias -phi
    #  -ncycles - number of cycles, optional, require -td, -theta and -phase
    #  -rser - series resistor value, optional
    #  -cpar - parallel capacitor value, optional
    # ```
    # Vxxx n+ n- SINE(Voffset Vamp Freq Td Theta Phi Ncycles)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Common::Sources::Vsin new 1 net1 net2 -v0 0 -va 2 -freq {-eq freq} -td 1e-6 -theta {-eq theta}
    # ```
    # Synopsis: name np nm -v0|voffset value -va|vamp value -freq value ?-td value ?-theta value
    #   ?-phase|phi value ?-ncycles value???? ?-rser value? ?-cpar value?
    next v {*}$args
}