/************************************************************************
* defgen -- handles definitions						*
*									*
*	useage	call defgen						*
*	note	this routine uses scan to get the name			*
*		and the definition from the input.			*
*									*
* coded by: G Beckmann,31-Jul-79					*
************************************************************************/
subroutine defgen
include ratfor.def
logical instal
integer scan
character name(MAXTOKEN),defn(HUGESIZE),string(MAXTOKEN),sp(2)
data sp/BLANK,EOS/
if(scan(name) ^= LEXIDENT) [
	call synerr(S_ILL_DEF)
	call pbstr(name)
	]
else	[
	defn(1) = EOS
	for (i = scan(string);i ^= EOF & i ^= NEWLINE;i = scan(string)) [
		call concat(defn,string)
		call concat(defn,sp)
		]
	if(.not. instal(name,defn))
		call synerr(W_INVAL_DEF)
	]
return
end