Overview
Comment:Require EXACT match of component type (so that TF doesn't match EMTF, etc.)
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: e777591396d3a2791a3282d8ed7084edad811abe3c7c3257917ab293928e854d
User & Date: geraint@users.sourceforge.net on 2004-09-02 21:50:49.000
Other Links: branch diff | manifest | tags
Context
2004-09-02
21:51:30
Polytropic CR (for SimpleGasTurbine). check-in: 896433377b 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: e777591396 user: geraint@users.sourceforge.net tags: origin/master, trunk
00:06:46
Implementation of lsin CR in Perl. check-in: f516a8cf20 user: geraint@users.sourceforge.net tags: origin/master, trunk
Changes
42
43
44
45
46
47
48
49

50
51
52
53
54
55
56
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 (/^EMTF|emtf$/)	{ $retval = lcos_emtf	(@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
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 (/^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
42
43
44
45
46
47
48
49

50
51
52
53
54
55
56
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 (/^EMTF|emtf$/)	{ $retval = lsin_emtf	(@args); }
    
    # if a substitution has been made ($retval)
    if ($retval)
    {
	return $retval;		# return substituted expression
    }
    else			# return nothing

MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]