( Define the ELECTIVE path. )

( Used: fo rth path unix
(   or: fo rth path dos
(   or: fo rth path mac
(   or: fo rth path _something_else_
)

ARGUMENT -trailing
case
	case	2dup s" unix" S= if 2drop s" ../lib/"
	else	2dup s" dos" S= if 2drop s" ..\lib\"
	else	2dup s" mac" S= if 2drop s" ::lib:"
	esac
	please |: ELECTIVE ~~please 's" ~~~.fo" ' ; immediate |
esac

( For example.
	`fo rth path unix' will define
	: ELECTIVE ~please 's" ../lib/~.fo" ' ; immediate

	`fo rth path _something_else_' will define
	: ELECTIVE ~please 's" _something_else_~.fo" ' ; immediate
)

: PATH ( string . -- string' . ) WILL PLEASE 'ELECTIVE ~ ' EXPOUND ;
