Changeset 21220

Timestamp:

07/04/08 16:03:29 (5 months ago)

Author:

ruoso

Message:

[smop] SMOPSLIMECapturize.new and SMOPNATIVEint are not identifiers...

Files:

• misc/sm0p/sm0p.pm (modified) (5 diffs)

misc/sm0p/sm0p.pm

@@ -16 +16 @@
     <node_empty> { make $<node_empty> ~ '' }
     || <node_result> { make $<node_result> ~ '' }
+    || <node_move_capturize> { make $<node_move_capturize> ~ '' }
     || <node_capturized> { make $<node_capturized> ~ '' }
     || <node_full> { make $<node_full> ~ '' }
@@ -39 +40 @@
 }
 
+
+token node_move_capturize {
+    <ws> SMOP__SLIME__CurrentFrame '.' move_capturize '('
+    <ws> <capturize> <ws> ')' <ws> ';' <ws>
+    { make 'SMOP_DISPATCH(interpreter, SMOP__SLIME__Node, SMOP__ID__new, '
+      ~ ' SMOP__NATIVE__capture_create(interpreter, SMOP__SLIME__Node, NULL, (SMOP__Object*[]){'
+      ~ ' SMOP__ID__responder, SMOP_REFERENCE(interpreter,(SMOP__Object*)SMOP_RI(SMOP__SLIME__CurrentFrame)), '
+      ~ ' SMOP__ID__identifier, SMOP_REFERENCE(interpreter,SMOP__ID__move_capturize), '
+      ~ ' SMOP__ID__capture, SMOP__NATIVE__capture_create(interpreter, SMOP__SLIME__CurrentFrame, '
+      ~ ' (SMOP__Object*[]){' ~ $<capturize> ~ ',NULL}, NULL) , NULL  }))' }
+}
+
 token node_capturized {
     <ws> <responder> '.' <identifier> '('
@@ -75 +88 @@
 
 token positionals {
-    <identifier>
+  [ <identifier>
     [
    ||  <ws> \, <ws> <positionals>
@@ -82 +95 @@
         { make 'SMOP_REFERENCE(interpreter,' ~ $<identifier> ~ '), NULL' }
     ]
+  ]||[ <nativeint>
+    [
+   ||  <ws> \, <ws> <positionals>
+        { make $<nativeint> ~ ', ' ~ $<positionals>  }
+   ||  <ws>
+        { make $<nativeint> ~ ', NULL' }
+    ]]
 }
 
@@ -110 +130 @@
 
 token identifier {
-    <capturize> { make $<capturize> ~ '' }
- ||'$' <name> { make $<name> ~ '' }
+   '$' <name> { make $<name> ~ '' }
  ||<idconst> { make $<idconst> ~ ''}
  ||<name> { make $<name> ~ '' }
- ||<nativeint> { make $<nativeint> ~ '' }
 }