[Gd-chatter] r11451 - trunk/libraries/packetizer

[hannes at gwydiondylan.org]

Author: hannes
Date: Sat Sep 15 20:46:14 2007
New Revision: 11451

Modified:
   trunk/libraries/packetizer/protocol-definer-macro.dylan
Log:
Job: 7299
some cleanup which was locally around since months


Modified: trunk/libraries/packetizer/protocol-definer-macro.dylan
==============================================================================
--- trunk/libraries/packetizer/protocol-definer-macro.dylan	(original)
+++ trunk/libraries/packetizer/protocol-definer-macro.dylan	Sat Sep 15 20:46:14 2007
@@ -122,21 +122,6 @@
                getter: ?name,
                setter: ?name ## "-setter",
                ?args), ... }
-   { repeated field ?:name \:: ?field-type:name, ?args:*; ... }
-     => { make(<repeated-field>,
-               name: ?#"name",
-               type: ?field-type,
-               getter: ?name,
-               setter: ?name ## "-setter",
-               ?args), ... }
-   { repeated field ?:name \:: ?field-type:name = ?init:expression, ?args:*; ... }
-     => { make(<repeated-field>,
-               name: ?#"name",
-               init-value: ?init,
-               type: ?field-type,
-               getter: ?name,
-               setter: ?name ## "-setter",
-               ?args), ... }
    { ?attributes:* field ?:name \:: ?field-type:name; ... }
      => { make(?attributes,
                name: ?#"name",
@@ -169,6 +154,7 @@
   attributes:
     { } => { <single-field> }
     { layering } => { <layering-field> }
+    { repeated } => { <repeated-field> }
 
   args: //FIXME: better types, not <frame>!
     { } => { }
@@ -460,9 +446,8 @@
     { summary-generator(?type:name; ?summary-string:expression, ?summary-getters:*) }
     => { define method summary (frame :: ?type) => (result :: <string>);
            apply(format-to-string,
-                 ?summary-string, 
-                 map(method(x) frame.x end,
-                     list(?summary-getters)));
+                 ?summary-string,
+                 map(rcurry(apply, list(frame)), list(?summary-getters)));
          end; }
 end;