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: 545be5d75690abd29e00635b4c702000613e11789ee4cbd2b3cecbc7af8cb9b5
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified mttroot/mtt/lib/cr/perl/lcos.pm from [ef30e9647e] to [ed0476b24c].

︙
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
︙

Modified mttroot/mtt/lib/cr/perl/lin.pm from [09da787f54] to [7dc815294b].

︙
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
︙

Modified mttroot/mtt/lib/cr/perl/lsin.pm from [9fda45b597] to [28dc8cdd40].

︙
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 ]