From 80a0bd9ea1619f62ec0ced637db85f83bcc0a06b Mon Sep 17 00:00:00 2001 From: Theo Souchon Date: Tue, 14 Mar 2023 15:25:09 +0900 Subject: [PATCH] fix parsefrom --- src/ccmeta.leg | 1 - src/tests/tests-parsimony/{toFix => }/realObjectPF.c | 4 ++++ src/tests/tests-parsimony/{toFix => }/realObjectPF.out | 10 +++++++--- 3 files changed, 11 insertions(+), 4 deletions(-) rename src/tests/tests-parsimony/{toFix => }/realObjectPF.c (90%) rename src/tests/tests-parsimony/{toFix => }/realObjectPF.out (94%) diff --git a/src/ccmeta.leg b/src/ccmeta.leg index 87e33c0..795b3cc 100644 --- a/src/ccmeta.leg +++ b/src/ccmeta.leg @@ -2326,7 +2326,6 @@ mvalue = ( i:META_IDENT { i= newGetVariable(i) } ( a:meta_argumentList { ) | META_LPAREN ( i:meta_exp ) META_RPAREN ) { $$= eval(globals, i) } - #) { i = eval(globals, i); puts("mvalue-yylval");println(i);$$= i } mstmts = ( s:eval_stmt )* META_RCB { $$= s } # return the last stmt diff --git a/src/tests/tests-parsimony/toFix/realObjectPF.c b/src/tests/tests-parsimony/realObjectPF.c similarity index 90% rename from src/tests/tests-parsimony/toFix/realObjectPF.c rename to src/tests/tests-parsimony/realObjectPF.c index 4e7b573..8242bfb 100644 --- a/src/tests/tests-parsimony/toFix/realObjectPF.c +++ b/src/tests/tests-parsimony/realObjectPF.c @@ -26,5 +26,9 @@ int main() { oop p = newPoint(3, 4); + // @send p magnitude(); + + // @send p getX(); + return 0; } \ No newline at end of file diff --git a/src/tests/tests-parsimony/toFix/realObjectPF.out b/src/tests/tests-parsimony/realObjectPF.out similarity index 94% rename from src/tests/tests-parsimony/toFix/realObjectPF.out rename to src/tests/tests-parsimony/realObjectPF.out index 29dc8d5..dbfa178 100644 --- a/src/tests/tests-parsimony/toFix/realObjectPF.out +++ b/src/tests/tests-parsimony/realObjectPF.out @@ -1,3 +1,7 @@ +// This example serves to illustrate the possibility +// of adding the object aspect to C +// using the parseFrom primitive. + #include #include #include @@ -137,9 +141,9 @@ int main() addMethod(_class_Point, _selector_getX, (method_t) Point_getX); oop p = newPoint(3, 4); - send(p, magnitude); - - send(p, getX); + // @send p magnitude(); + + // @send p getX(); return 0; } \ No newline at end of file