Overview
| Comment: | Require EXACT match of component type (so that TF doesn't match EMTF, etc.) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
545be5d75690abd29e00635b4c702000 |
| User & Date: | geraint@users.sourceforge.net on 2004-09-02 21:50:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2004-09-02
| ||
| 21:51:30 | Polytropic CR (for SimpleGasTurbine). check-in: 0a19995bcf user: geraint@users.sourceforge.net tags: origin/master, trunk | |
| 21:50:49 | Require EXACT match of component type (so that TF doesn't match EMTF, etc.) check-in: 545be5d756 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
| 00:06:46 | Implementation of lsin CR in Perl. check-in: a8786d1ec4 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/lib/cr/perl/lcos.pm from [ef30e9647e] to [ed0476b24c].
| ︙ | ︙ | |||
42 43 44 45 46 47 48 |
s/\((.*)\)/$1/; # strip brackets
my @args = split (/,/); # split arguments
$_ = $args[0]; # get component type
# select rule to use
| | | 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 = lcos_emtf (@args); }
# if a substitution has been made ($retval)
if ($retval)
{
return $retval; # return substituted expression
}
else # return nothing
|
| ︙ | ︙ |
Modified mttroot/mtt/lib/cr/perl/lin.pm from [09da787f54] to [7dc815294b].
| ︙ | ︙ | |||
47 48 49 50 51 52 53 |
s/\((.*)\)/$1/; # strip brackets
my @args = split (/,/); # split arguments
$_ = $args[0]; # get component type
# select rule to use
| | | | | | | | | | | 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
|
| ︙ | ︙ |
Modified mttroot/mtt/lib/cr/perl/lsin.pm from [9fda45b597] to [28dc8cdd40].
| ︙ | ︙ | |||
42 43 44 45 46 47 48 |
s/\((.*)\)/$1/; # strip brackets
my @args = split (/,/); # split arguments
$_ = $args[0]; # get component type
# select rule to use
| | | 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
|
| ︙ | ︙ |