Overview
Comment:Gracefully handles nonexistent implementation of a CR.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: cb798908364e07fde888d5c1976bb2a9b975da0f065063b021289433553841c3
User & Date: geraint@users.sourceforge.net on 2004-08-31 14:04:08
Other Links: branch diff | manifest | tags
Context
2004-09-02
00:06:21
Implementation of lcos CR in Perl. check-in: af94f50ad7 user: geraint@users.sourceforge.net tags: origin/master, trunk
2004-08-31
14:04:08
Gracefully handles nonexistent implementation of a CR. check-in: cb79890836 user: geraint@users.sourceforge.net tags: origin/master, trunk
02:03:26
C++ headers no longer required to simulate without Reduce.
Perl CRs work for all languages: r, m, C++, etc.
check-in: ccc7cb45ca user: geraint@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/lib/cr/perl/apply_cr.pl from [3ed2161205] to [1de0fc9f10].

133
134
135
136
137
138
139

140
141
142
143
144
145

146
147
148
149
150
151
152
	}
    }
    if ($cr eq '') {
	return;
    }

    # call cr(arg1,arg2,...)

    no strict 'refs';		# allow symbolic references
    my $expr = $expressions[$i];
    eval "require $cr";
    $cr->import (@_[1 .. $#_]);    
    &$cr ($expr);
    use strict 'refs';


}
#-------------------------------------------------------------------------------
sub display_subexpressions() {

    for ($i = 0; $i <= $#expressions; $i++) {
	my $prefix = " ";







>
|
|
|
|
|
|
>







133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
	}
    }
    if ($cr eq '') {
	return;
    }

    # call cr(arg1,arg2,...)
    if (-e "$cr.pm") {
	no strict 'refs';		# allow symbolic references
	my $expr = $expressions[$i];
	eval "require $cr";
	$cr->import (@_[1 .. $#_]);    
	&$cr ($expr);
	use strict 'refs';
    }

}
#-------------------------------------------------------------------------------
sub display_subexpressions() {

    for ($i = 0; $i <= $#expressions; $i++) {
	my $prefix = " ";


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