;;;;
;;;; genturfahi - lo la .ckim. ke pe'a jajgau ratcu ke'e genturfa'i
;;;;            `-> A Scheme packrat parser.
;;;;
;;;; Copyright (c) 2010 ".alyn.post." <alyn.post@lodockikumazvati.org>
;;;;
;;;; Permission to use, copy, modify, and/or distribute this software for any
;;;; purpose with or without fee is hereby granted, provided that the above
;;;; copyright notice and this permission notice appear in all copies.
;;;;
;;;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;;;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;;;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;;;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;;;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;;;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;;;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
;;;;

;;;
;;; javni-valsi
;;;
(define-record-type javni-valsi
  (make-javni-valsi cme val)
  javni-valsi?
  (cme javni-valsi-cme)
  (val javni-valsi-val*))

(define (javni-nastura? javni)
  (eq? secuxna-nastura javni))

(define (javni-valsi-val javni-valsi)
  (if (javni-nastura? javni-valsi)
      '()
      javni-valsi))

;; When we have multiple incoming valsi, but we're producing a
;; single valsi as a result.
;;
(define (javni-rodavalsi rodavalsi)
  (remove javni-nastura? rodavalsi))

(define (javni-rodavalsi-girzu rodavalsi)
  (let* ((jalge (remove javni-nastura? rodavalsi)))
    (if (null? jalge) secuxna-nastura jalge)))


;; A routine used by the nunjavni-je procedure.  It returns
;; a single element if there is only one nastura in the result
;; list.
;;
(define (javni-rodavalsi-je rodavalsi)
  (let* ((jalge (remove javni-nastura? rodavalsi)))
    ; if we *only* have nastura elements, return
    ; a secuxna-nastura token.
    ;
    ; if there is only one element in the list,
    ; assume the others were secuxna-nastura and
    ; convert the list to a single element.
    ;
    ; otherwise, return the result list.
    ;
    (if (null? jalge)
        secuxna-nastura
        (if (null? (cdr jalge))
            (car jalge)
            jalge))))

(define (javni-rodavalsi-* rodavalsi)
  (remove javni-nastura? (map javni-rodavalsi-je rodavalsi)))


;; A routine used by the nunjavni-samselpla procedure.  It returns
;; a null list rather than a |secuxna-nastura| procedure.
;;
(define (javni-rodavalsi-samselpla rodavalsi)
  (remove javni-nastura? rodavalsi))

(define (javni-valsi->string valsi)
  (format "{cmene:~a valsi:~s}"
          (javni-valsi-cme valsi)
          (javni-valsi-val* valsi)))