home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / cpower / cref.arc / CREF1.C < prev    next >
Text File  |  2019-04-13  |  4KB  |  189 lines
  1. /* ├╥┼╞1.├ - ├ CROSS-REFERENCE UTILITY
  2. **           (1 OF 3 SOURCE FILES)
  3. ** ┴UTHOR:╩EFF ╘AYLOR, ╘HE ╘OOLSMITH
  4. ** (C) COPYRIGHT 1982, 1985.
  5. ** ┼NVIRONMENT: ├;╒╬╔╪ 4.2 ┬╙─.
  6. ** ┴LGORITHMS:
  7. **   ═ODIFIED ALGORITHM ╘ FROM
  8. **   "╘HE ┴RT OF ├OMPUTER ╨ROGRAMMING,"
  9. **   ╓OL.1,P.317,BY ─.┼.╦NUTH USED IN
  10. **   TREEWALK().
  11. ** ╚ISTORY:
  12. **   22 ╬OVEMBER 1982 - REMOVE RECURSION
  13. **   FROM LOOKUP().
  14. **   16 ─ECEMBER 1982 - REMOVE RECURSION
  15. **   FROM TREEWALK().
  16. **   26 ═ARCH 1985 - PORT TO ─┼├╒╙ ├.
  17. **   27 ═ARCH 1985 - LINE # LIST MADE A
  18. **   CIRCULAR QUEUE: INSERT(),LISTñFIL().
  19. **   RESERVED WORD SEARCH CHANGED TO
  20. **   BINARY SEARCH: KEYWORD().
  21. **   28 ═ARCH 1985 - PORT TO ╒╬╔╪ 4.2 ┬╙─.
  22. **
  23. **   01 ╩ULY 1989 - PORT TO ├ ╨OWER ├,
  24. **   ├64/├128, ┬EN ╨EDERSEN.
  25. **   ├-╨OWER ┬┬╙ 416-538-7720
  26. */
  27.  
  28. #INCLUDE <STDIO.H>
  29. #INCLUDE <CREF.H>
  30.  
  31. STATIC CHAR *RESERVED[]=
  32.  █"AUTO","BREAK","CASE","CHAR","CONTINUE",
  33.   "DEFAULT","DO","DOUBLE","ELSE","EXTERN",
  34.   "FLOAT","FOR","GOTO","IF","INT","LONG",
  35.   "REGISTER","RETURN","SHORT","SIZEOF",
  36.   "STATIC","STRUCT","SWITCH","TYPEDEF",
  37.   "UNION","UNSIGNED","WHILE","VOID"▌;
  38.  
  39. INT LINEñCNT;
  40. STRUCT NODE *SYMñROOT = ╬╒╠╠;
  41. STRUCT NODE *FILñROOT = ╬╒╠╠;
  42.  
  43. MAIN(ARGC,ARGV)
  44. UNSIGNED ARGC;
  45. CHAR **ARGV;
  46. █
  47.  UNSIGNED PRNTXREF();
  48.  ╞╔╠┼ FREOPEN();
  49.  
  50.  IF(ARGC<2) USEAGE();
  51.  
  52.  WHILE(--ARGC>0) █
  53.   IF(FREOPEN(*(++ARGV),"R",STDIN)==╬╒╠╠ ▀▀ FERROR())
  54.    FPRINTF(STDOUT,"UNABLE TO OPEN %S\N",*ARGV);
  55.   ELSE XREF(*ARGV);
  56.  ▌
  57.  
  58.  FCLOSE(STDIN);
  59.  TREEWALK(SYMñROOT,PRNTXREF);
  60.  
  61.  /* QUICK-'N-DIRTY WAY TO DE-ALLOCATE MEMORY */
  62.  HIGHMEM(0XD000); 
  63. ▌
  64.  
  65. USEAGE()
  66. █
  67.  PRINTF("\NUSEAGE: CREF FNAME1 <FNAME2... >\N\N");
  68.  EXIT();
  69. ▌
  70.  
  71. /* KEYWORD - IS "S" A RESERVED KEYWORD
  72.    IN ├ */
  73. UNSIGNED KEYWORD(S)
  74. CHAR *S;
  75. █
  76.  INT COND;  /* CONDITION CODE OF LEXCMP() */
  77.  INT MID;
  78.  INT HI,LO;
  79.  
  80.  /* BINARY SEARCH;RESERVED[] MUST BE IN
  81.     ALPHABETICAL ORDER */
  82.  LO=0;
  83.  HI=SIZEOF(RESERVED)/SIZEOF(CHAR*)-1;
  84.  WHILE(LO<=HI) █
  85.   MID=(HI+LO)/2;
  86.   IF((COND=LEXCMP(S,RESERVED[MID]))==0)
  87.    RETURN(╘╥╒┼);
  88.   IF(COND<0) HI=MID-1;
  89.   ELSE LO=MID+1;
  90.  ▌
  91.  RETURN(╞┴╠╙┼);
  92. ▌
  93.  
  94. /* XREF - CROSS REFERENCE */
  95. UNSIGNED XREF(FILE)
  96. CHAR *FILE;
  97. █
  98.  INT ATOI();
  99.  CHAR CLASS;
  100.  STATIC CHAR *S;
  101.  STATIC CHAR TOKEN[═┴╪╠╔╬┼+1];
  102.  
  103.  LINEñCNT=0;
  104.  WHILE((S=NEWñLINE())!=╬╒╠╠) █
  105.   IF((CLASS=GETOKEN(&S,TOKEN))!='#') █
  106.    WHILE(CLASS!='\N') █
  107.     IF(CLASS==╔─ && KEYWORD(TOKEN)==╞┴╠╙┼)
  108.      USE(TOKEN,FILE,LINEñCNT);
  109.     CLASS=GETOKEN(&S,TOKEN);
  110.    ▌
  111.   ▌
  112.   ELSE IF(GETOKEN(&S,TOKEN)==╔─) █
  113.    IF(STREQ(TOKEN,"INCLUDE")) █
  114.     GETñNAME(S,TOKEN);
  115.     USE(TOKEN,FILE,LINEñCNT);
  116.    ▌
  117.    ELSE IF(STREQ(TOKEN,"DEFINE")) █
  118.     GETOKEN(&S,TOKEN);
  119.     USE(TOKEN,FILE,LINEñCNT);
  120.    ▌
  121.    ELSE IF(STREQ(TOKEN,"IFDEF")▀▀STREQ(TOKEN,"IFNDEF")) █
  122.     GETOKEN(&S,TOKEN);
  123.     USE(TOKEN,FILE,LINEñCNT);
  124.    ▌
  125.    ELSE IF(STREQ(TOKEN,"LINE")) █
  126.     IF(GETOKEN(&S,TOKEN)==╔╬╘┼╟┼╥)
  127.      LINEñCNT=ATOI(TOKEN);
  128.     ELSE
  129.      FPRINTF(STDOUT,"#LINE %S\N",TOKEN);
  130.    ▌
  131.    ELSE
  132.     ;  /* IGNORE #ELSE,#ENDIF,ETC. */
  133.   ▌
  134.  ▌
  135. ▌
  136.  
  137. /* PUTP - OUTPUT A PARTIAL LINE
  138.    TO STDOUT */
  139. UNSIGNED PUTP(S)
  140. CHAR *S;
  141. █
  142.  UNSIGNED N;
  143.  
  144.  FOR(N=0;*S != ┼╧╙;++N)
  145.   FPUTC(*(S++),STDOUT);
  146.  RETURN(N);
  147. ▌
  148.  
  149. /* LISTñFIL - PRINT LINES WITHIN
  150.    A FILE */
  151. UNSIGNED LISTñFIL(FT)
  152. STRUCT NODE *FT;
  153. █
  154.  CHAR *ITOA();
  155.  UNSIGNED LINLEN,NAMLEN;
  156.  STRUCT INSTANCE *IT;
  157.  CHAR BUF[5];
  158.  
  159.  LINLEN=PUTP(" ");
  160.  LINLEN+=PUTP(FT->NAME);
  161.  /* PRINT LINE NUMBERS */
  162.  IT=FT->P.LINES=FT->P.LINES->NEXT; /* MOVE 'LINES' TO START */
  163.  FOR(;;) █
  164.   LINLEN+=PUTP(" ");
  165.   ITOA(IT->LINE,BUF);
  166.   LINLEN+=PUTP(BUF);
  167.   IF((IT=IT->NEXT)==FT->P.LINES) BREAK;
  168.   IF(LINLEN>╫╔─╘╚-5) █  /* LEAVE A MARGIN ON RIGHT */
  169.    PUTP("\N");
  170.    NAMLEN = STRLEN(FT->NAME);
  171.    LINLEN = ++NAMLEN;
  172.    WHILE(NAMLEN--) PUTP(" ");
  173.   ▌
  174.  ▌
  175.  IF(LINLEN) PUTP("\N");
  176. ▌
  177.  
  178. /* PRNTXREF - DUMP CROSS REFERENCE
  179.    TABLE TO STDOUT */
  180. UNSIGNED PRNTXREF(NT)
  181. STRUCT NODE *NT;
  182. █
  183.  UNSIGNED LISTñFIL();
  184.  
  185.  PUTP(NT->NAME);
  186.  PUTP("\N");
  187.  TREEWALK(NT->P.FILES,LISTñFIL);
  188. ▌
  189.