#!/usr/bin/env io
###############################################################################
# Date:     Sat Feb 24 02:06:20 CST 2007
# Author:   John Quigley <jquigley@jquigley.com>
# Revision: $Id$
###############################################################################

test := list( "HELLO", "7", "t", "\"string\"", "(4 . 5)", "((lambda (x) (+ x 2)) 5)", "(defun make_rect_face_ccw (p1 p2 height /) (if (or (and (< (x p1) (x p2)) (< (y p1) (y p2))) (and (> (x p1) (x p2)) (> (y p1) (y p2)))) (command \"3dface\" (list (x p1) (y p1) height) (list (x p2) (y p1) height) (list (x p2) (y p2) height) (list (x p1) (y p2) height) \"\") (command \"3dface\" (list (x p1) (y p1) height) (list (x p1) (y p2) height) (list (x p2) (y p2) height) (list (x p2) (y p1) height) \"\")))" )

if ( args at(1), test = list(args at(1)) )

test foreach( expr, 
   "processing: #{expr}" interpolate println
   sexpr := Parser parseSexpr( expr )
   "#{sexpr at(0)}" interpolate println
   "pretty print: #{Sexpr prettyPrint( sexpr at(0) )}\n" interpolate println
)

"End." println

# EOF