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: |
648423338216f7cf561cf2b11b0ea2af |
| 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: fb59d9c88a user: geraint@users.sourceforge.net tags: origin/master, trunk | |
|
2004-08-31
| ||
| 14:04:08 | Gracefully handles nonexistent implementation of a CR. check-in: 6484233382 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: 8f17b25e1d 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 |
}
}
if ($cr eq '') {
return;
}
# call cr(arg1,arg2,...)
| > | | | | | | > | 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 = " ";
|
| ︙ | ︙ |