Re^2: Mapping URLs to code - in search of perlish dispatch schemes

With AI::Prolog-0.735_01, the following would probably work. It's still an outline. It just uses the primitive perlcall/2 which is allowed to backtrack so I'm using cuts to prevent that. Versions later than that might have received this.

% prolog follows.
perlcall( Function, Args ) :-
    perlcall2( Function, Args ),
    !.

do_edit_node( Node ) :-
    perlcall( "do_edit_node", [ Node ] ).
error( Message ) :-
    perlcall( "error", [ Message ] ).
do_create_node( Node, Code ) :-
    perlcall( "do_create_node", [ Node, Code ] ).
[download]

⠤⠤ ⠙⠊⠕⠞⠁⠇⠑⠧⠊

Comment on Re^2: Mapping URLs to code - in search of perlish dispatch schemes Download Code