zysld() { #if EXTFUN void *fd; // keep stack word-aligned void *result = 0; fd = openloadfile(pTSCBLK->str); if ( fd != -1 ) { // If file opened OK result = loadef(fd, pTSCBLK->str); // Invoke loader closeloadfile(fd); switch ((word)result) { case (word)0: return EXIT_2; // I/O error case (word)-1: return EXIT_1; // doesn't exist case (word)-2: return EXIT_3; // insufficient memory default: SET_XR(result); return NORMAL_RETURN; // Success, return pointer to stuff in EFBLK } } else return EXIT_1; }
zysld() { #if EXTFUN word fd; /* keep stack word-aligned */ void *result = 0; fd = openloadfile(pTSCBLK->str); if ( fd != -1 ) { /* If file opened OK */ result = loadef(fd, pTSCBLK->str); /* Invoke loader */ closeloadfile(fd); switch ((word)result) { case (word)0: return EXIT_2; /* I/O error */ case (word)-1: return EXIT_1; /* doesn't exist */ case (word)-2: return EXIT_3; /* insufficient memory */ default: SET_XR(result); return NORMAL_RETURN; /* Success, return pointer to stuff in EFBLK */ } } else return EXIT_1; }
zysid() { register char *cp; SET_XR( pID1 ); gettype( pID2BLK, ID2BLK_LENGTH ); cp = pID2BLK->str + pID2BLK->len; *cp++ = ' '; *cp++ = ' '; pID2BLK->len += 2 + storedate(cp, ID2BLK_LENGTH - pID2BLK->len); SET_XL( pID2BLK ); return NORMAL_RETURN; }
zysid() { time_t now; register char *cp; char * s; int i; SET_XR( pid1blk ); now = time(NULL); gettype( pid2blk, id2blk_length ); cp = pid2blk->str + pid2blk->len; *cp++ = ' '; *cp++ = ' '; s = ctime(&now); for (i=0;i<strlen(s);i++) *cp++ = s[i]; pid2blk->len = pid2blk->len + 2 + strlen(s); SET_XL( pid2blk ); return NORMAL_RETURN; }
int zysem() { ptscblk->len = msgcopy( WA(word), errors, ptscblk->str ); SET_XR( ptscblk ); return NORMAL_RETURN; }