; Command line state machine for mdraw 2.0 ; Get filename ; Get options (-pc) or (/pc) ; $TPADEF $INIT_STATE CMD_STATE, CMD_KEY ; ; Use MACRO fn to compile this program. ; $STATE main $TRAN TPA$_BLANK, main $TRAN '-', opts $TRAN '/', opts $TRAN TPA$_LAMBDA, get_fn1 ; $STATE get_fn1 $TRAN TPA$_BLANK, get_fn1 $TRAN TPA$_FILESPEC, main, GET_FILENAME,,,1 $TRAN TPA$_LAMBDA, end_parse $TRAN TPA$_EOS, TPA$_EXIT, NO_FILE ; $STATE opts $TRAN TPA$_BLANK, opts $TRAN 'PC', main, GET_OPTIONS ; ; $STATE end_parse $TRAN TPA$_EOS, TPA$_EXIT ; ; $END_STATE .END