47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
s/\((.*)\)/$1/; # strip brackets
my @args = split (/,/); # split arguments
$_ = $args[0]; # get component type
# select rule to use
if (/AE|ae/) { $retval = lin_amp (@args); }
if (/AF|af/) { $retval = lin_amp (@args); }
if (/C|c/) { $retval = lin_cir (@args); }
if (/EMTF|emtf/) { $retval = lin_emtf (@args); }
if (/FMR|fmr/) { $retval = lin_fmr (@args); }
if (/GY|gy/) { $retval = lin_gy (@args); }
if (/I|i/) { $retval = lin_cir (@args); }
if (/R|r/) { $retval = lin_cir (@args); }
if (/TF|tf/) { $retval = lin_tf (@args); }
# if a substitution has been made ($retval)
if ($retval)
{
return $retval; # return substituted expression
}
else # return nothing
|
|
|
|
|
|
|
|
|
|
|
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
s/\((.*)\)/$1/; # strip brackets
my @args = split (/,/); # split arguments
$_ = $args[0]; # get component type
# select rule to use
if (/^AE|ae$/) { $retval = lin_amp (@args); }
if (/^AF|af$/) { $retval = lin_amp (@args); }
if (/^C|c$/) { $retval = lin_cir (@args); }
if (/^EMTF|emtf$/) { $retval = lin_emtf (@args); }
if (/^FMR|fmr$/) { $retval = lin_fmr (@args); }
if (/^GY|gy$/) { $retval = lin_gy (@args); }
if (/^I|i$/) { $retval = lin_cir (@args); }
if (/^R|r$/) { $retval = lin_cir (@args); }
if (/^TF|tf$/) { $retval = lin_tf (@args); }
# if a substitution has been made ($retval)
if ($retval)
{
return $retval; # return substituted expression
}
else # return nothing
|