home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / cpower / cref.arc / CREF3.C < prev   
Text File  |  2019-04-13  |  2KB  |  135 lines
  1. /* ├╥┼╞3.├  (3 OF 3 SOURCE FILES) */
  2.  
  3. /* ESC() - ESCAPED CHARACTER PROCESSING
  4.  
  5.    ┴UTHOR: ╩EFF ╘AYLOR, ╘HE ╘OOLSMITH
  6.            (C) COPYRIGHT 1985
  7.    ┼NVIRONMENT: ╒╬╔╪ 4.2 ┬╙─;
  8.                 ├├ COMPILER
  9.    ╨ORTED TO ├ ╨OWER ├; ├64/├128,
  10.    ┬EN ╨EDERSEN 01 ╩ULY 1989
  11. */
  12.  
  13. #INCLUDE <STDIO.H>
  14.  
  15. #DEFINE ┼╙├┴╨┼ '\\'
  16. #DEFINE ┼╧╙    '\0'
  17.  
  18. CHAR REAL[] = █0X20,0X0C,0X0D,0X14▌;
  19. CHAR SYMB[] = "TFNB";
  20.  
  21. /* ESC - MAP STRING INTO ESCAPED
  22.    CHARACTER IF APPROPRIATE */
  23. CHAR ESC(S)
  24. CHAR **S;
  25. █
  26.  UNSIGNED I;
  27.  
  28.  IF(**S == ┼╙├┴╨┼ && *(*S+1) != ┼╧╙) █
  29.   ++(*S);
  30.   FOR(I=0; I<SIZEOF(SYMB)-1; ++I) █
  31.    IF(SYMB[I] == **S)    
  32.     RETURN(REAL[I]);
  33.   ▌
  34.  ▌
  35.  RETURN(**S);
  36. ▌
  37.  
  38. /* LEXCMP() - ALPHABETICAL COMPARISON
  39.  
  40.    ┴UTHOR: ╩EFF ╘AYLOR, ╘HE ╘OOLSMITH
  41.            (C) COPYRIGHT 1985
  42.    ┼NVIRONMENT: ╒╬╔╪ 4.2 ┬╙─;
  43.                 ├├ COMPILER
  44.    ╨ORTED TO ├ ╨OWER ├; ├64/├128,
  45.    ┬EN ╨EDERSEN 01 ╩ULY 1989
  46. */
  47.  
  48. #DEFINE LOWER(C)  (ISUPPER(C)?(C-128):(C))
  49.  
  50. /* LEXCMP - ALPHABETICAL COMPARISON,
  51.    SIMILAR TO STRCMP() */
  52. INT LEXCMP(AA,BB)
  53. CHAR *AA,*BB;
  54. █
  55.  CHAR *A,*B;
  56.  
  57.  FOR(A=AA,B=BB; ;A++,B++) █
  58.   IF(LOWER(*A)!=LOWER(*B))   
  59.    RETURN(LOWER(*A)-LOWER(*B));  /* UNEQUAL */
  60.   IF(*A==┼╧╙) BREAK;
  61.  ▌
  62.  FOR(A=AA,B=BB; ;A++,B++) █
  63.   IF(*A!=*B)   
  64.    RETURN(*A-*B);  /* UNEQUAL */
  65.   IF(*A==┼╧╙) BREAK;
  66.  ▌ 
  67.  RETURN(0);  /* EQUAL */
  68. ▌
  69. /* ╙TRING PACKAGE - UNSIGNED INSET();
  70.    CHAR *NEWCPY();
  71.  
  72.    ┴UTHOR: ╩EFF ╘AYLOR, ╘HE ╘OOLSMITH
  73.            (C) COPYRIGHT 1985
  74.    ┼NVIRONMENT: ╒╬╔╪ 4.2 ┬╙─;
  75.                 ├├ COMPILER
  76.    ╨ORTED TO ├ ╨OWER ├; ├64/├128,
  77.    ┬EN ╨EDERSEN 01 ╩ULY 1989
  78. */
  79.  
  80. /* CPYñUNTL - COPY FROM 'SRC' TO 'DST'
  81.    UNTIL 'DELIMITERS' */
  82. UNSIGNED CPYñUNTL(DST,SRC,DELIMITERS)
  83. CHAR *DST,*SRC;
  84. CHAR *DELIMITERS;
  85. █
  86.  CHAR *D;
  87.  
  88.  WHILE(*SRC!=┼╧╙) █
  89.   FOR(D=DELIMITERS;*D!=┼╧╙;++D) █
  90.    IF(*SRC==*D) GOTO OUT;
  91.   ▌
  92.   *DST++=*SRC++;
  93.  ▌
  94. OUT: *DST=┼╧╙;
  95. ▌
  96.  
  97. /* ITOA - INTEGER TO ┴╙├╔╔ */
  98. CHAR *ITOA(N,ASCII)
  99. INT N;
  100. CHAR *ASCII;
  101. █
  102.  INT POWER;
  103.  
  104.  IF(N<0) █
  105.   N=-N;
  106.   *ASCII++='-';
  107.  ▌
  108.  POWER=1;
  109.  WHILE(N/POWER>=10)
  110.   POWER=POWER*10;
  111.  DO █
  112.   *ASCII++=(N/POWER)+'0';
  113.   N=N%POWER;
  114.   POWER=POWER/10;
  115.  ▌ WHILE(POWER!=0);
  116.  *ASCII=┼╧╙; 
  117.  RETURN(ASCII);
  118. ▌
  119.  
  120. /* NEWCPY - COPY A STRING INTO NEWLY
  121.    ALLOCATED SPACE */
  122. CHAR *NEWCPY(STRING)
  123. CHAR *STRING;
  124. █
  125.  CHAR *MALLOC(),*STRCPY(),*SPTR;
  126.  
  127.  /* INCLUDE TERMINATING ┼╧╙ */
  128.  IF((SPTR=MALLOC(STRLEN(STRING)+1)) == ╬╒╠╠) █
  129.   FPRINTF(STDOUT,"ABORTED:MEMORY ALLOCATION ERROR\N\N");
  130.   EXIT();
  131.  ▌
  132.  RETURN(STRCPY(SPTR,STRING));
  133. ▌
  134.  
  135.