source: project/release/5/slib-prec/trunk/slib-prec.scm @ 38716

;;;; slib-prec.scm  -*-scheme-*-
;;;; Kon Lovett, Apr '20
;;;; Kon Lovett, Apr '18

;; Issues
;;
;; - needs a "surface notation"

(module slib-prec

(;export
  read-sexp-from-string)

(import scheme)
(import (chicken module))
(import (chicken base))

(import slib-prec-parse)
(reexport slib-prec-parse)

(import slib-prec-grammar)
(reexport slib-prec-grammar)

;defgrammar doesn't define
(import slib-basic-grammars)
(import slib-standard-grammar)
(import slib-tex-grammar)

;;

(define (read-sexp-from-string str #!optional (grm (active-input-grammar)) (column 0))
  (import (only (chicken port) with-input-from-string))
  (with-input-from-string str (cut read-sexp grm column)) )

;;;

#|
;;

(define (make-grammar src #!optional (base '()))
  (let* (
    (imd (*parse-grammer-source 'make-grammar src base))
    (grm (*eval-grammer-form 'make-grammar imd base)) )
    (syntax-begin! base)
    (apply prec:define-grammar grm)
    (syntax-current) ) )

; tok <kind> <args>...
;
; <kind>
;
; _f                              delim
;
; f                               nofix       : sop
;
; f_f                             commentfix  : stp match rule1 ...
;
; fx fy                           prefix      : sop bp rule1 ...
; xf yf                           postfix     : sop bp
; xfx xfy yfx yfy                 infix       : sop lbp bp rule1 ...
; xfx xfy yfx yfy                 infix       : sop lbp bp rule1 ...
;
; xfs                             nary        : sop bp
; fs                              prestfix    : sop bp rule1 ...
;
; fxf                             matchfix    :  sop sep match rule1 ...
; fyf                             inmatchfix  :  sop sep match lbp rule1 ...

(define (*parse-grammer-source loc src base)
  (begin) )

(define (*eval-grammer-form loc imd base)
  (begin) )
|#

) ;slib-prec