55628
turbo24prg
<string>broken responders-definer</string>
define responders
"/about"
get () => show-about;
end;
define macro responders-definer
{ define responders
?responders:*
end }
=> { ?responders }
responders:
{ } => { }
{ ?responder:* ... } => { ?responder ... }
responder:
{ ?url:expression ?responder-methods:* }
=> { begin
let responder = make(<responder>);
?responder-methods
add-responder(?url, responder);
end }
responder-methods:
{ } => { }
{ ?responder-method:* ; ... } => { ?responder-method ; ... }
responder-method:
{ ?request-method:expression ( ?regex:* ) =>
?actions:* }
=> { begin
let map = element(responder.responder-map,
?#"request-method",
default: #f);
unless (map)
map := make(<table>);
responder.responder-map[?#"request-method"] := map;
end unless;
map[compile-regex(?regex)] := list(?actions);
end }
regex:
{ } => { "^$" }
{ ?pattern:expression } => { ?pattern }
// do(method (foo) foo() | error(<action-sequence-error>) end, ...)
end macro responders-definer;
3411579597
#dylan
1
turbo24prg
<string>another try, still not working</string>
define responders
"/foo"
get () => (test, foo-get),
post () => (foo-post);
"/bar"
post () => (bar-post);
end;
Invalid syntax in macro-case macro call.
define macro responders-definer
{ define responders
?responders:*
end }
=> { ?responders }
responders:
{ } => { }
{ ?responder:* ; ... } => { ?responder ; ... }
responder:
{ ?url:* ?responder-methods:* }
=> { begin
let responder = make(<responder>);
?responder-methods
add-responder(?url, responder);
end }
responder-methods:
{ } => { }
{ ?responder-method:* , ... } => { ?responder-method ; ... }
responder-method:
{ ?request-method:* ( ?regex:* ) => ( ?actions:* ) }
=> { begin
let map = element(responder.responder-map,
?#"request-method",
default: #f);
unless (map)
map := make(<table>);
responder.responder-map[?#"request-method"] := map;
end unless;
map[compile-regex(?regex)] := list(?actions);
end }
regex:
{ } => { "^$" }
{ ?pattern:* } => { ?pattern }
// do(method (foo) foo() | error(<action-sequence-error>) end, ...)
end macro responders-definer;
3411583611
#dylan