#!/bin/sh
: ; exec klone $0 "$@"
; The above line finds the klone executable in the $PATH
;;Skeleton of a typical klone script
;;(stack-dump-on-error t)
;;(kdb t)

(setq args (getopts "USAGE: fixframetext
filter to pretty print FrameMaker text saved as text, with a CR at the end of 
paragraphs"
    ("-v" () verbose "verbose operation")
))

(defun main (&aux
  )
  (filter-frame-text *standard-input* *standard-output*)
)

(defun filter-frame-text (in out &aux
    line
  )
  (with (*standard-output* out)
    (catch 'EOF
      (while t
	(setq line (read-line in))
	(print-margin-words line)
	(write-char #\newline)
  )))
)

(main)

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

