#!/bin/sh
# -*- scheme -*-
exec guile --debug $0 "$@"
!#

(use-modules (nyacc lang tcl parser))
(use-modules (nyacc lang tcl pprint))
(use-modules (srfi srfi-37))
(use-modules (ice-9 pretty-print))

(define (fail fmt . args)
  (apply simple-format (current-error-port)
	 (string-append "nxtcl: " fmt "\n")
	 args)
  (exit 1))

(define options
  (list))

(define (parse-args args)
  (args-fold args options
	     (lambda (opt name arg seed)
	       (fail "unrecognized option: ~S" name)
	       (exit 1))
	     (lambda (file seed)
	       (if (assq-ref 'file seed)
		   (fail "only one inupt file can be specified"))
	       (unless (string-suffix? ".tcl" file)
		 (fail "expecting .tcl file"))
	       (acons 'file file seed))
	     '()))

(define (compile-nx-file . args)
  (let* ((options (parse-args args))
	 (file (assoc-ref options 'file)))
    (let* ((tree (call-with-input-file file
		   (lambda (port) (read-tcl-file port (current-module))))))
      (pretty-print tree)
      ;;(display "--------------------------------------\n")
      ;;(pretty-print-tcl tree)
      (if #f #f))))

(apply compile-nx-file (cdr (program-arguments)))

;; --- last line ---
