fundev/Sources/runtime-manager/debugger-nub/gdb-mi gdb-access.dylan, 1.1.2.18, 1.1.2.19

Update of /var/lib/cvs/fundev/Sources/runtime-manager/debugger-nub/gdb-mi
In directory cantor:/tmp/cvs-serv14587

Modified Files:
      Tag: fundev-2-1-gdb-nub
        gdb-access.dylan 
Log Message:
this compiles now


Index: gdb-access.dylan
===================================================================
RCS file: 
/var/lib/cvs/fundev/Sources/runtime-manager/debugger-nub/gdb-mi/Attic/gdb-access.dylan,v
retrieving revision 1.1.2.18
retrieving revision 1.1.2.19
diff -u -d -r1.1.2.18 -r1.1.2.19
--- gdb-access.dylan    27 Mar 2004 02:41:01 -0000      1.1.2.18
+++ gdb-access.dylan    27 Mar 2004 02:55:31 -0000      1.1.2.19
@@ -378,31 +378,17 @@
   =>
   {
     define function "parse-" ## ?name(mi-tuple :: <byte-string>, matched :: 
<list>, more) => ();
-//      block (return)
-///        local method finish(inp :: <byte-string>, matched :: <list>, more)
-///                let got :: singleton(1) = matched.size;
-///                return(matched.head(?name ## "-<result>"));
-///              end;
-
-        let m = match(mi-tuple, ?"tag" "={"); // more.head(inp, pair(if (m & 
m.empty?) make.curry else #f.always end if, matched), more.tail) end method }
-//        if (m)
-//          let m = m & match(m, ?"var1");
-//          let (m, val) = m & parse-as(m, <integer>);
-          ?tuple-fields;
-            let m = m & match(m, "}");
-            more.head(inp,
-                      pair(if (m & m.empty?)
-                             method(cla) apply(make, cla, 
?tuple-keyword/values) end method
-                           else
-                             #f.always
-                           end if,
-                           matched),
-                      more.tail)
-                                
-//        end;
-//        let parsers = list(?p-sequence, finish);
-//        parsers.head(mi-tuple, #(), parsers.tail);
-//      end block;
+      let m = match(mi-tuple, ?"tag" "={");
+      ?tuple-fields;
+      let m = m & match(m, "}");
+      more.head(mi-tuple,
+                pair(if (m & m.empty?)
+                       method(cla) apply(make, cla, 
vector(?tuple-keyword/values)) end method
+                     else
+                       #f.always
+                     end if,
+                     matched),
+                more.tail)
     end
   }
   
@@ -422,11 +408,11 @@
 
   tuple-fields:
     { } => { }
-    { ?tag:name ?type:expression; ... } => { let (m, ?tag :: ?type) = m & 
parse-as(m, ?type); ... }
+    { ?tag:name ?type:expression; ... } => { let (m, ?tag :: false-or(?type)) 
= m & parse-as(m, ?type); ... }
 
   tuple-keyword/values:
     { } => { }
-    { ?tag:name ?:expression; ... } => { ?#"tag"; ?tag, ... }
+    { ?tag:name ?:expression; ... } => { ?#"tag", ?tag, ... }
 end;
 
 


_______________________________________________
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
http://www.gwydiondylan.org/mailman/listinfo/gd-chatter