#!/bin/sh
: ; exec klone $0 "$@"
; The above line finds the klone executable in the $PATH

;; load current version of parser, it still changes often
(load "/net/home/colas/Klone/src/kl/xml-sxp.kl")

;;(kdb t)

(setq args (getopts "USAGE: xmlpp [xml_file]"))

(if args (setq in (open (0 args))) (setq in *standard-input*))
(setq out *standard-output*)

(defun main ()
  (sxp:print (sxp:parse in :keep-comments t :keep-PIs t :keep-DTD t)
    out () sxp:encoding)
)

(main)

;;; EMACS MODES
;;; Local Variables: ***
;;; mode:lisp ***
;;; End: ***
