Re: pilog dcg with args

2011-07-30 Thread Alexander Burger
On Sun, Jul 31, 2011 at 08:22:01AM +0200, Alexander Burger wrote: > Tight, this would work in the current situation. Mistype: I meant "Right", not "Tight" ;-) -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Re: pilog dcg with args

2011-07-30 Thread Alexander Burger
On Sat, Jul 30, 2011 at 08:23:11PM -0300, TC-Rucho wrote: > If it's about checking single characters, why not just: > >(de sub? (Ch Str) > (member Ch (chop Str) ) > > so rewriting this: > >(or (= X ",") (= X ".") (= X "?")) > > as > >(sub? X ",.?") > > would work just fine.

Re: pilog dcg with args

2011-07-30 Thread TC-Rucho
> > (de sub? (Pat Str) > (and > (match (cons '@ (conc (chop Pat) '@)) (chop Str)) > Str ) ) > > or > > (de sub? (Pat Str) > (setq Pat (chop Pat)) > (and > (seek >'((L) (head Pat L)) >(chop Str) ) > Str ) ) > > (is there a be