home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / XLSP21TC.ZIP / XL-002.BUG / text0000.txt < prev    next >
Encoding:
Text File  |  1991-04-14  |  7.3 KB  |  265 lines
  1. I discovered these problems with characters, strings, and symbols while 
  2. working on some Common Lisp-like enhancements.
  3.  
  4. (I will post the enhancements when finished.  These include COERCE, 
  5. CONCATENATE, and enhancements to functions that CL states take sequence
  6. arguments (lists, arrays, or strings in XLISP case) which XLISP implements
  7. typically only for lists (except for SUBSEQ which only works on strings).
  8.  
  9.  
  10. Problem: Uninterned symbols do not print with leading #:
  11. Example: (GENSYM)
  12. Fix:
  13.  
  14. 1) At the beginning of xlprint, replace the code to print NIL with:
  15.  
  16.     /* print nil */
  17.     if (vptr == NIL) {
  18.         xlputstr(fptr,
  19.             (((!flag) || (getvalue(s_printcase) != k_downcase))?"NIL":"nil"));
  20.         return;
  21.     }
  22.  
  23. 2) In putsymbol, add these declarations:
  24.  
  25.     int i;
  26.     LVAL sym,array;
  27.  
  28. 3> In putsymbol, add the following *after* the code section titled "check
  29.    for printing without escapes":
  30.  
  31.     /* check for uninterned symbol */
  32.     i = hash(str,HSIZE);
  33.     array = getvalue(obarray);
  34.     for (sym = getelement(array,i);sym; sym = cdr(sym))
  35.         if (strcmp(str,(char*)getstring(getpname(car(sym)))) == 0)
  36.             goto internedSymbol;
  37.     
  38.     xlputc(fptr,'#');   /* indicate uninterned */
  39.     xlputc(fptr,':');
  40.  
  41. internedSymbol:         /* sorry about the "goto" */
  42.  
  43.  
  44. *******************************************************************
  45.  
  46. Problem: strings containing nulls cannot be read or printed.
  47. (Note, strcat has the same problem, but I have a new version, the
  48.  Common Lisp CONCATENATE function, which will replace it.
  49.  
  50.  
  51. Example: Enter "A string\000will forget these"
  52.  
  53. Fix: 
  54.  
  55. 1) In rmdquote change section "check for buffer overflow" to:
  56.  
  57.     if (blen >= STRMAX) {
  58.         newstr = newstring(len + STRMAX + 1);
  59.         sptr = getstring(newstr); 
  60.         if (str) memcpy((char *)sptr,(char *)getstring(str),len);
  61.         *p = '\0'; 
  62.         memcpy((char *)sptr+len,(char *)buf,blen+1);
  63.         p = buf; 
  64.         blen = 0;
  65.         len += STRMAX;
  66.         str = newstr;
  67.     }
  68.  
  69. 2) In rmdquote, change section "append the last substring" to:
  70.  
  71.     if (str == NIL || blen) {
  72.         newstr = newstring(len + blen + 1);
  73.         sptr = getstring(newstr);
  74.         if (str) memcpy((char *)sptr,(char *)getstring(str),len);
  75.         *p = '\0'; 
  76.         memcpy((char *)sptr+len,(char *)buf,blen+1);
  77.         str = newstr;
  78.     }
  79.  
  80. 3) New versions of putstring and putqstring
  81.  
  82.  
  83. /* putstring - output a string */
  84. /* rewritten to  print strings containing nulls TAA mod*/
  85. LOCAL VOID putstring(fptr,str)
  86.   LVAL fptr,str;
  87. {
  88.     unsigned char* p = getstring(str);
  89.     int len = getslength(str) - 1;
  90.  
  91.     /* output each character */
  92.     while (len-- > 0) xlputc(fptr,*p++);
  93. }
  94.  
  95. /* putqstring - output a quoted string */
  96. /* rewritten to  print strings containing nulls TAA mod*/
  97. LOCAL VOID putqstring(fptr,str)
  98.   LVAL fptr,str;
  99. {
  100.     unsigned char* p = getstring(str);
  101.     int len = getslength(str) - 1;
  102.     int ch;
  103.  
  104.     /* output the initial quote */
  105.     xlputc(fptr,'"');
  106.  
  107.     /* output each character in the string */
  108.     while (len-- > 0) {
  109.         ch = *p++;
  110.  
  111.         /* check for a control character */
  112.         if (ch < 040 || ch == '\\' || ch > 0176) {
  113.             xlputc(fptr,'\\');
  114.             switch (ch) {
  115.                 case '\011':
  116.                     xlputc(fptr,'t');
  117.                     break;
  118.                 case '\012':
  119.                     xlputc(fptr,'n');
  120.                     break;
  121.                 case '\014':
  122.                     xlputc(fptr,'f');
  123.                     break;
  124.                 case '\015':
  125.                     xlputc(fptr,'r');
  126.                     break;
  127.                 case '\\':
  128.                     xlputc(fptr,'\\');
  129.                     break;
  130.                 default:
  131.                     putoct(fptr,ch);
  132.                     break;
  133.             }
  134.         }
  135.  
  136.         /* output a normal character */
  137.         else
  138.             xlputc(fptr,ch);
  139.     }
  140.  
  141.  
  142.     /* output the terminating quote */
  143.     xlputc(fptr,'"');
  144. }
  145.  
  146.  
  147. ********************************************
  148.  
  149. Problem: Control and meta characters print "raw" with prin1.
  150.  
  151. Example: Execute (int-char 7)
  152.  
  153. Fix: New version of putchcode:
  154.  
  155. /* putchcode - output a character */
  156. /* modified to print control and meta characters TAA Mod */
  157. /* Format: #\[M-][C-]c
  158.    Where "M-" denotes character is meta character (value > 127).
  159.          "C-" denotes character is control character ( value modulo 128 < 32)
  160.    and "c" is either a printing character or "Space", "Newline", or "Rubout".
  161. */
  162.  
  163.  
  164. LOCAL VOID putchcode(fptr,ch,escflag)
  165.   LVAL fptr; int ch,escflag;
  166. {
  167.     if (escflag) {
  168.         xlputstr(fptr,"#\\");
  169.         if (ch > 127) {
  170.             ch -= 128;
  171.             xlputstr(fptr,"M-");
  172.         }
  173.         switch (ch) {
  174.             case '\n':
  175.                 xlputstr(fptr,"Newline");
  176.                 break;
  177.             case ' ':
  178.                 xlputstr(fptr,"Space");
  179.                 break;
  180.             case 127:
  181.                 xlputstr(fptr,"Rubout");
  182.                 break;
  183.             default:
  184.                 if (ch < 32) {
  185.                     ch += '@';
  186.                     xlputstr(fptr,"C-");
  187.                 }
  188.                 xlputc(fptr,ch);
  189.                 break;
  190.         }
  191.     }
  192.     else xlputc(fptr,ch);
  193. }
  194.  
  195. *******************************************
  196.  
  197. Problem: Inability to declare character literals for control and meta
  198.  characters.
  199.  
  200. Fix: in rmhash(), first add declaration "int i", then 
  201.      change case '\\' code to:
  202.  
  203.     case '\\':
  204.         for (i = 0; i < STRMAX-1; i++) {
  205.             if ((tentry(buf[i] = checkeof(fptr))  != k_const) &&
  206.                 buf[i] != '\\' && buf[i] != '|') {
  207.                 xlungetc(fptr, buf[i]);
  208.                 break;
  209.             }
  210.         }
  211.         buf[i] = 0;
  212.  
  213.         ch = buf[0];
  214.         if (strlen(buf) > 1) {
  215.             upcase(buf);
  216.             bufp = &buf[0];
  217.             ch = 0;
  218.             if (strncmp(bufp,"M-",2) == 0) {
  219.                 ch = 128;
  220.                 bufp += 2;
  221.             }
  222.             if (strcmp(bufp,"NEWLINE") == 0)
  223.                 ch += '\n';
  224.             else if (strcmp(bufp,"SPACE") == 0)
  225.                 ch += ' ';
  226.             else if (strcmp(bufp,"RUBOUT") == 0)
  227.                 ch += 127;
  228.             else if (strlen(bufp) == 1) 
  229.                 ch += *bufp;
  230.             else if (strncmp(bufp,"C-",2) == 0 && strlen(bufp) == 3) 
  231.                 ch += bufp[2] & 31;
  232.             else xlerror("unknown character name",cvstring(buf));
  233.         }
  234.         rplaca(val,cvchar(ch));
  235.         break;
  236.  
  237. ***********************************************
  238.  
  239. Problem: Invalid symbols can be created with intern and make-symbol.
  240.     Also, you can make NIL, which is highly irregular.
  241.  
  242. Example: (intern "abc\017def")  (intern "NIL")
  243.  
  244.  
  245. Fix: Add to makesymbol(), before section "make the symbol":
  246.  
  247.     /* check for making "NIL" -- very bad */
  248.     if (strcmp((char *)getstring(pname),"NIL") == 0)
  249.         xlerror("you've got to be kidding!");
  250.  
  251.     /* check for containing only printable characters */
  252.     i = getslength(pname)-1;
  253.     while (i-- > 0) if (((signed char)(pname->n_string[i])) < 32 )
  254.         xlerror("string contains non-printing characters",pname);
  255.     
  256.  
  257.  
  258. *****************
  259.  
  260. Tom Almy
  261. toma@tekgvs.labs.tek.com
  262. Standard Disclaimers Apply
  263.  
  264.  
  265.