42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
s/\((.*)\)/$1/; # strip brackets
my @args = split (/,/); # split arguments
$_ = $args[0]; # get component type
# select rule to use
if (/EMTF|emtf/) { $retval = lsin_emtf (@args); }
# if a substitution has been made ($retval)
if ($retval)
{
return $retval; # return substituted expression
}
else # return nothing
|
|
|
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
s/\((.*)\)/$1/; # strip brackets
my @args = split (/,/); # split arguments
$_ = $args[0]; # get component type
# select rule to use
if (/^EMTF|emtf$/) { $retval = lsin_emtf (@args); }
# if a substitution has been made ($retval)
if ($retval)
{
return $retval; # return substituted expression
}
else # return nothing
|