>From hugs.c:
static Void local addScriptName(s,sch) /* Add script to list of scripts */
String s; /* to be read in ... */
Bool sch; { /* TRUE => requires pathname search*/
if (namesUpto>=NUM_SCRIPTS) {
ERRMSG(0) "Too many module files (maximum of %d allowed)",
NUM_SCRIPTS
EEND;
}
else
scriptName[namesUpto] = strCopy(sch ? findPathname(NULL,s) : s);
scriptReal[namesUpto] = strCopy(RealPath(scriptName[namesUpto]));
namesUpto++;
}
_______________________________________________
Hugs-Bugs mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/hugs-bugs
