home *** CD-ROM | disk | FTP | other *** search
- #include "all.h"
- #define BEGINDEF
- #include "begin.h"
- #define true (!false)
- #define false 0
-
- begin_token(long **pcode,int *cp,int *pln,char *srclin,char *tk,int *ntk,char *outbuff)
- {
- if (*((*pcode)+*cp-1)==0) { /* back step a line */
- (*pln)--;
- return false;
- }
- strcpy(srclin,(char *) ((*pcode)+*cp));
- (*pcode) = (*gpcode)[(*pln)++]; *cp = 0;
- token(srclin,(TOKENS) tk,ntk,outbuff);
- return true;
- }
- begin_init()
- {
- int i;
- strcpy(space_str," ");
- if (tk[499]==NULL) for (i=0;i<500;i++) tk[i] = space_str;
- }
- begin_next_line(long *pcode, int *cp)
- {
- if (*(pcode+*cp)!=5) { /* END XXX */
- gprint("Expecting another text in pcode (5) , got %ld \n"
- ,*(pcode+*cp));
- return false;
- }
- (*cp) += 2;
- return true;
- }
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-