Re: Nyacc patches for Mes to avoid bundling?

[Matt Wette <matt.wette@gmail.com>]

> On May 5, 2017, at 3:59 PM, Matt Wette <matt.wette@gmail.com> wrote:
> 
> 
>> On May 5, 2017, at 6:33 AM, Jan Nieuwenhuizen <janneke@gnu.org> wrote:
>> 
>> Matt Wette writes:
>> 
>>> I see that you have PEG parser.  You could use that to implement regexps I believe. 
>> 
>> That's an interesting suggestion...however PEG is currently terribly
>> slow with Mes.  I added it before adding Nyacc to give me the option
>> to write the C parser in.
> 
> Fine.  The tiny bit of code I use regexp for can be done easily with a finite state machine and charsets.
> 

Split-cppdef is now sing just string functions:

(define (split-cppdef defstr)
  (let ((x2st (string-index defstr #\()) ; start of args
	(x2nd (string-index defstr #\))) ; end of args
	(x3 (string-index defstr #\=)))  ; start of replacement
    (cond
     ((not x3) #f)
     ((and x2st x3)
      ;;(if (not (eq? (1+ x2nd) x3)) (c99-err "bad CPP def: ~S" defstr))
      (cons* (substring defstr 0 x2st)
	     (string-split
	      (string-delete #\space (substring defstr (1+ x2st) x2nd))
	      #\,)
	     (substring defstr (1+ x3))))
     (else
      (cons (substring defstr 0 x3) (substring defstr (1+ x3)))))))


And with regard to your name clashes I have added prefixes.  Here is the call to generate the table and action files:

  (write-lalr-actions c99-mach (xtra-dir "c99act.scm.new") #:prefix "c99-")
  (write-lalr-tables c99-mach (xtra-dir "c99tab.scm.new") #:prefix "c99-“)


These should show up in the first nyacc release after 0.77.0.

Matt