::SpiceGenTcl::Ngspice::SourcesTop, Main, Index

method constructor {name type npNode nmNode args} {

    set arguments [argparse -inline {
        {-v0= -required}
        {-va= -required}
        {-mf= -required}
        {-fc= -required}
        {-td= -required}
        -phases=
    }]
    set paramsOrder [list v0 va mf fc td phases]
    foreach param $paramsOrder {
        if {[dict exists $arguments $param]} {
            dict append argsOrdered $param [dict get $arguments $param]
        }
    }
    lappend params "model am -posnocheck"
    dict for {paramName value} $argsOrdered {
        if {([llength $value]>1) && ([lindex $value 1]=="-eq")} {
            lappend params "$paramName [lindex $value 0] -poseq"
        } else {
            lappend params "$paramName $value -pos"
        }
    }
    next $type$name [list "np $npNode" "nm $nmNode"] $params
}

method constructor {name npNode nmNode args} {

    # Creates object of class `BehaviouralSource` that describes behavioural source.
    #  name - name of the device without first-letter designator R
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -i - current expression
    #  -v - voltage expression
    # ```
    # BXXXXXXX n+ n- <i=expr> <v=expr> <tc1=value> <tc2=value> <dtemp=value> <temp=value>
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::Sources::BehaviouralSource new 1 netp netm -v "V(a)+V(b)+pow(V(c),2)" -tc1 1
    # ```
    set arguments [argparse -inline {
        {-i= -forbid {v}}
        {-v= -forbid {i}}
        -tc1=
        -tc2=
        -noisy=
        {-temp= -forbid {dtemp}}
        {-dtemp= -forbid {temp}}
    }]
    if {[dict exists $arguments i]} {
        lappend params "i [dict get $arguments i] -eq"
    } elseif {[dict exists $arguments v]} {
        lappend params "v [dict get $arguments v] -eq"
    } else {
        error "Equation must be specified as argument to -i or -v"
    }
    dict for {paramName value} $arguments {
        if {$paramName ni {i v}} {
            lappend params "$paramName $value"
        }
    }
    next b$name [list "np $npNode" "nm $nmNode"] $params
}

method constructor {name npNode nmNode args} {

    # Creates object of class `Iam` that describes single-frequency FM current source.
    #  name - name of the device without first-letter designator I
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -v0 - initial value
    #  -va - pulsed value
    #  -mf - modulating frequency
    #  -fc - carrier frequency
    #  -td - signal delay, optional
    #  -phases - phase, optional, require -td
    # ```
    # IYYYYYYY n+ n- AM(VA VO MF FC TD PHASES)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::Sources::Iam new 1 net1 net2 -v0 0 -va 2 -mf 1e3 -fc {freq -eq} -td 1e-6 -phases {phase -eq}
    # ```
    next $name i $npNode $nmNode {*}$args
}

method constructor {name npNode nmNode args} {

    # Creates object of class `Ipulse` that describes pulse current source.
    #  name - name of the device without first-letter designator I
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -low - low value
    #  -high - high value
    #  -td - time delay
    #  -tr - rise time
    #  -tf - fall time
    #  -pw - width of pulse
    #  -per - period time
    #  -np - number of pulses, optional
    # ```
    # IYYYYYYY n+ n- PULSE(V1 V2 TD TR TF PW PER NP)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::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 -np {np -eq}
    # ```
    next $name i $npNode $nmNode {*}$args
}

method constructor {name npNode nmNode args} {

    # Creates object of class `Isffm` that describes single-frequency FM current source.
    #  name - name of the device without first-letter designator I
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -v0 - initial value
    #  -va - pulsed value
    #  -fc - carrier frequency
    #  -mdi - modulation index
    #  -fs - signal frequency
    #  -phasec - carrier phase, optional
    #  -phases - signal phase, optional, require -phasec
    # ```
    # IYYYYYYY n+ n- SFFM(VO VA FC MDI FS PHASEC PHASES)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::Sources::Isin new 1 net1 net2 -v0 0 -va 1 -fc {freq -eq} -mdi 0 -fs 1e3 -phasec {phase -eq}
    # ```
    next $name i $npNode $nmNode {*}$args
}

method constructor {name type npNode nmNode args} {

    set arguments [argparse -inline {
        {-low= -required}
        {-high= -required}
        {-td= -required}
        {-tr= -required}
        {-tf= -required}
        {-pw= -required}
        {-per= -required}
        -np=
    }]
    set paramsOrder [list low high td tr tf pw per np]
    foreach param $paramsOrder {
        if {[dict exists $arguments $param]} {
            dict append argsOrdered $param [dict get $arguments $param]
        }
    }
    lappend params "model pulse -posnocheck"
    dict for {paramName value} $argsOrdered {
        if {([llength $value]>1) && ([lindex $value 1]=="-eq")} {
            lappend params "$paramName [lindex $value 0] -poseq"
        } else {
            lappend params "$paramName $value -pos"
        }
    }
    next $type$name [list "np $npNode" "nm $nmNode"] $params
}

method constructor {name type npNode nmNode args} {

    set arguments [argparse -inline {
        {-v0= -required}
        {-va= -required}
        {-fc= -required}
        {-mdi= -required}
        {-fs= -required}
        -phasec=
        {-phases= -require {phasec}}
    }]
    set paramsOrder [list v0 va fc mdi fs phasec phases]
    foreach param $paramsOrder {
        if {[dict exists $arguments $param]} {
            dict append argsOrdered $param [dict get $arguments $param]
        }
    }
    lappend params "model sffm -posnocheck"
    dict for {paramName value} $argsOrdered {
        if {([llength $value]>1) && ([lindex $value 1]=="-eq")} {
            lappend params "$paramName [lindex $value 0] -poseq"
        } else {
            lappend params "$paramName $value -pos"
        }
    }
    next $type$name [list "np $npNode" "nm $nmNode"] $params
}

method constructor {name npNode nmNode args} {

    # Creates object of class `Vam` that describes single-frequency FM voltage source.
    #  name - name of the device without first-letter designator V
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -v0 - initial value
    #  -va - pulsed value
    #  -mf - modulating frequency
    #  -fc - carrier frequency
    #  -td - signal delay, optional
    #  -phases - phase, optional, require -td
    # ```
    # VYYYYYYY n+ n- AM(VA VO MF FC TD PHASES)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::Sources::Vam new 1 net1 net2 -v0 0 -va 2 -mf 1e3 -fc {freq -eq} -td 1e-6 -phases {phase -eq}
    # ```
    next $name v $npNode $nmNode {*}$args
}

method constructor {name npNode nmNode args} {

    # Creates object of class `Vport` that describes simple constant voltage source.
    #  name - name of the device without first-letter designator V
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -dc - DC voltage value
    #  -ac - AC voltage value
    #  -portnum - number of port
    #  -z0 - internal source impedance
    # ```
    # VYYYYYYY n+ n- DC 0 AC 1 portnum n1 <z0 n2>
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::Sources::Vport new 1 netp netm -dc 1 -ac 1 -portnum 1 -z0 100
    # ```
    set arguments [argparse -inline {
        {-dc= -required}
        {-ac= -required}
        {-portnum= -required}
        {-z0=}
    }]
    dict for {paramName value} $arguments {
        lappend params "$paramName -sw"
        if {([llength $value]>1) && ([lindex $value 1]=="-eq")} {
            lappend params "${paramName}val [lindex $value 0] -poseq"
        } else {
            lappend params "${paramName}val $value -pos"
        }
    }
    next v$name [list "np $npNode" "nm $nmNode"] $params
}

method constructor {name npNode nmNode args} {

    # Creates object of class `Vpulse` that describes pulse voltage source.
    #  name - name of the device without first-letter designator V
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -low - low value
    #  -high - high value
    #  -td - time delay
    #  -tr - rise time
    #  -tf - fall time
    #  -pw - width of pulse
    #  -per - period time
    #  -np - number of pulses, optional
    # ```
    # VYYYYYYY n+ n- PULSE(V1 V2 TD TR TF PW PER NP)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::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 -np {np -eq}
    # ```
    next $name v $npNode $nmNode {*}$args
}

method constructor {name npNode nmNode args} {

    # Creates object of class `Vsffm` that describes single-frequency FM voltage source.
    #  name - name of the device without first-letter designator V
    #  npNode - name of node connected to positive pin
    #  nmNode - name of node connected to negative pin
    #  -v0 - initial value
    #  -va - pulsed value
    #  -fc - carrier frequency
    #  -mdi - modulation index
    #  -fs - signal frequency
    #  -phasec - carrier phase, optional
    #  -phases - signal phase, optional, require -phasec
    # ```
    # VYYYYYYY n+ n- SFFM(VO VA FC MDI FS PHASEC PHASES)
    # ```
    # Example of class initialization:
    # ```
    # ::SpiceGenTcl::Ngspice::Sources::Vsin new 1 net1 net2 -v0 0 -va 1 -fc {freq -eq} -mdi 0 -fs 1e3 -phasec {phase -eq}
    # ```
    next $name v $npNode $nmNode {*}$args
}