Mercurial > hg > Gears > Gears
changeset 893:e656a5d80d1c
add meta.pm
| author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
|---|---|
| date | Tue, 26 Jan 2021 14:36:55 +0900 |
| parents | 3fa258d0891a |
| children | ff670811f17a |
| files | src/parallel_execution/examples/DPPMC/meta.pm |
| diffstat | 1 files changed, 23 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/parallel_execution/examples/DPPMC/meta.pm Tue Jan 26 14:36:55 2021 +0900 @@ -0,0 +1,23 @@ +package meta; +use strict; +use warnings; + +sub replaceMeta { + return ( + [qr/.*PhisImpl/ => \&generateMcMeta], + #[qr/.+/ => \&all], + ); +} + + +sub generateMcMeta { + my ($currentCodeGear, $context, $next) = @_; + return "goto mcMeta($context, $next);\n"; +} + +sub hello { + return "helo!\n"; +} + + +1;