home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / sys / apple2 / 26763 < prev    next >
Encoding:
Internet Message Format  |  1993-01-11  |  10.5 KB
  1. Xref: sparky comp.sys.apple2:26763 comp.binaries.apple2:1975
  2. Path: sparky!uunet!wupost!zaphod.mps.ohio-state.edu!pacific.mps.ohio-state.edu!linac!att!cbnewsm!cbnewsl!att-out!pacbell.com!charon.amdahl.com!amdahl!fadden
  3. From: fadden@uts.amdahl.com (Andy McFadden)
  4. Newsgroups: comp.sys.apple2,comp.binaries.apple2
  5. Subject: NuLib v3.24
  6. Message-ID: <66Fd03Ovc8uE00@amdahl.uts.amdahl.com>
  7. Date: 12 Jan 93 01:09:17 GMT
  8. Reply-To: fadden@amdahl.uts.amdahl.com (Andy McFadden)
  9. Followup-To: comp.sys.apple2
  10. Organization: Amdahl Corporation, Sunnyvale CA
  11. Lines: 319
  12.  
  13. Here's a quick little patch to bring NuLib v3.23 up to v3.24.  Only major
  14. change is better handling of MS-DOS filenames (converts them to xxxxxxxx.yyy
  15. format; NuLib was choking on x.y.z stuff).
  16.  
  17. Well, actually there was a fix to the LZW decoder, but nobody's complained
  18. about it yet, so it's not a major problem. :-)
  19.  
  20.  
  21. --- nublu.c
  22. *** nublu.c    Tue Sep  8 16:10:45 1992
  23. --- ../nublu.c    Mon Jan 11 14:40:35 1993
  24. ***************
  25. *** 92,103 ****
  26.       while ((fname[i] = buf[4+i]) != '\0')
  27.           i++;
  28.       offset = 5+i;  /* how far into file is end of filename? */
  29.       if (verbose) { printf("(as %s)...", fname);  fflush(stdout); }
  30.       }
  31.   
  32. !     len = strlen(fname);
  33.       for (j = 0; j < len; j++)
  34.       fname[j] &= 0x7f;    /* clear hi bits */
  35.   
  36.       if (Exists(fname)) {
  37.       if (interact) {
  38. --- 92,108 ----
  39.       while ((fname[i] = buf[4+i]) != '\0')
  40.           i++;
  41.       offset = 5+i;  /* how far into file is end of filename? */
  42. +     ConvFileName(fname);
  43.       if (verbose) { printf("(as %s)...", fname);  fflush(stdout); }
  44.       }
  45.   
  46. !     ConvFileName(fname);    /* strip hi bits, adjust special chars, etc */
  47. !     len = strlen(fname);    /* (no longer used?) */
  48. ! 
  49. ! #ifdef FUBAR
  50.       for (j = 0; j < len; j++)
  51.       fname[j] &= 0x7f;    /* clear hi bits */
  52. + #endif
  53.   
  54.       if (Exists(fname)) {
  55.       if (interact) {
  56.  
  57. --- nucomp.c
  58. *** nucomp.c    Tue Sep  8 16:10:52 1992
  59. --- ../nucomp.c    Mon Dec 21 21:58:37 1992
  60. ***************
  61. *** 333,341 ****
  62.       long srcposn, dstposn;
  63.       static char *procName = "u_compress";
  64.   
  65. !     if ((srcposn = lseek(srcfd, (off_t) 0, S_REL)) < 0)
  66.       Fatal("Bad posn lseek(1)", procName);
  67. !     if ((dstposn = lseek(dstfd, (off_t) 0, S_REL)) < 0)
  68.       Fatal("Bad posn lseek(2)", procName);
  69.   
  70.       src2 = dup(srcfd);
  71. --- 333,341 ----
  72.       long srcposn, dstposn;
  73.       static char *procName = "u_compress";
  74.   
  75. !     if ((srcposn = (long) lseek(srcfd, (off_t) 0, S_REL)) < 0)
  76.       Fatal("Bad posn lseek(1)", procName);
  77. !     if ((dstposn = (long) lseek(dstfd, (off_t) 0, S_REL)) < 0)
  78.       Fatal("Bad posn lseek(2)", procName);
  79.   
  80.       src2 = dup(srcfd);
  81. ***************
  82. *** 348,356 ****
  83.           Fatal("can't fdopen() nustdout", procName);
  84.       setvbuf(nustdin,xbuf,_IOFBF,XBUFSIZE);  /* make the buffers larger */
  85.       setvbuf(nustdout,zbuf,_IOFBF,ZBUFSIZE);    /* (note setvbuf is a macro) */
  86. !     if (fseek(nustdin, srcposn, S_ABS) < 0)    /* seek may not be needed */
  87.       Fatal("Bad stream posn lseek(1)", procName);
  88. !     if (fseek(nustdout, dstposn, S_ABS) < 0)
  89.       Fatal("Bad stream posn lseek(2)", procName);
  90.   
  91.       oldbits = 0;    /* init for putcode() */
  92. --- 348,356 ----
  93.           Fatal("can't fdopen() nustdout", procName);
  94.       setvbuf(nustdin,xbuf,_IOFBF,XBUFSIZE);  /* make the buffers larger */
  95.       setvbuf(nustdout,zbuf,_IOFBF,ZBUFSIZE);    /* (note setvbuf is a macro) */
  96. !     if (fseek(nustdin, (off_t)srcposn, S_ABS) < 0)    /* seek may not be needed */
  97.       Fatal("Bad stream posn lseek(1)", procName);
  98. !     if (fseek(nustdout, (off_t)dstposn, S_ABS) < 0)
  99.       Fatal("Bad stream posn lseek(2)", procName);
  100.   
  101.       oldbits = 0;    /* init for putcode() */
  102. ***************
  103. *** 687,695 ****
  104.       long srcposn, dstposn;
  105.       static char *procName = "u_decompress";
  106.   
  107. !     if ((srcposn = lseek(srcfd, (off_t) 0, S_REL)) < 0)
  108.       Fatal("Bad posn lseek(1)", procName);
  109. !     if ((dstposn = lseek(dstfd, (off_t) 0, S_REL)) < 0)
  110.       Fatal("Bad posn lseek(2)", procName);
  111.   
  112.       src2 = dup(srcfd);
  113. --- 687,695 ----
  114.       long srcposn, dstposn;
  115.       static char *procName = "u_decompress";
  116.   
  117. !     if ((srcposn = (long)lseek(srcfd, (off_t) 0, S_REL)) < 0)
  118.       Fatal("Bad posn lseek(1)", procName);
  119. !     if ((dstposn = (long)lseek(dstfd, (off_t) 0, S_REL)) < 0)
  120.       Fatal("Bad posn lseek(2)", procName);
  121.   
  122.       src2 = dup(srcfd);
  123. ***************
  124. *** 702,710 ****
  125.           Fatal("can't fdopen() nustdout", procName);
  126.       setvbuf(nustdin,zbuf,_IOFBF,ZBUFSIZE);  /* make the buffers larger */
  127.       setvbuf(nustdout,xbuf,_IOFBF,XBUFSIZE); /* (note order diff from comp) */
  128. !     if (fseek(nustdin, srcposn, S_ABS) < 0)    /* seek may not be needed */
  129.       Fatal("Bad stream posn lseek(1)", procName);
  130. !     if (fseek(nustdout, dstposn, S_ABS) < 0)
  131.       Fatal("Bad stream posn lseek(2)", procName);
  132.   
  133.       /* Check the magic number */
  134. --- 702,710 ----
  135.           Fatal("can't fdopen() nustdout", procName);
  136.       setvbuf(nustdin,zbuf,_IOFBF,ZBUFSIZE);  /* make the buffers larger */
  137.       setvbuf(nustdout,xbuf,_IOFBF,XBUFSIZE); /* (note order diff from comp) */
  138. !     if (fseek(nustdin, (off_t)srcposn, S_ABS) < 0)    /* seek may not be needed */
  139.       Fatal("Bad stream posn lseek(1)", procName);
  140. !     if (fseek(nustdout, (off_t)dstposn, S_ABS) < 0)
  141.       Fatal("Bad stream posn lseek(2)", procName);
  142.   
  143.       /* Check the magic number */
  144.  
  145.  
  146. --- nuext.c
  147. *** nuext.c    Tue Sep  8 16:11:15 1992
  148. --- ../nuext.c    Mon Jan 11 14:38:19 1993
  149. ***************
  150. *** 87,93 ****
  151.   #ifdef UNIX
  152.   
  153.       while (*str != '\0') {
  154. !     if ((*str > 127) || (*str < 0)) *str &= 0x7f;  /* clear hi bit */
  155.       if (*str == '/') *str = '.';
  156.       if (++idx > 255) { *str = '\0'; break; }    /* MAXNAMELEN? */
  157.       str++;
  158. --- 87,93 ----
  159.   #ifdef UNIX
  160.   
  161.       while (*str != '\0') {
  162. !     *str &= 0x7f;  /* clear hi bit */
  163.       if (*str == '/') *str = '.';
  164.       if (++idx > 255) { *str = '\0'; break; }    /* MAXNAMELEN? */
  165.       str++;
  166. ***************
  167. *** 98,103 ****
  168. --- 98,104 ----
  169.       "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789.";
  170.   
  171.       /* assumes ProDOS limits, not GS/OS */
  172. +     *str &= 0x7f;
  173.       if ( ((*str < 'A') && (*str > 'Z'))  ||  ((*str < 'a') && (*str > 'z')) )
  174.       *str = 'X';  /* must start with alpha char */
  175.       while (*str != '\0') {
  176. ***************
  177. *** 107,120 ****
  178.       }
  179.   # endif /* APW */
  180.   # ifdef MSDOS
  181.       while (*str != '\0') {
  182. !        if ((*str > 127) || (*str < 0)) *str &= 0x7f;  /* clear hi bit */
  183.          if (*str == '/') *str = '_';
  184.          if (*str == '\\') *str = '_';
  185.          if (*str == '!') *str = '_';
  186.          if (*str == ':') *str = '_';
  187.          if (++idx > 255) { *str = '\0'; break; }
  188.          str++;
  189.       }
  190.   # endif /* MSDOS */
  191.   
  192. --- 108,142 ----
  193.       }
  194.   # endif /* APW */
  195.   # ifdef MSDOS
  196. +     char *ostr = str, *prev_dot = NULL;
  197. + 
  198.       while (*str != '\0') {
  199. !        *str &= 0x7f;  /* clear hi bit */
  200.          if (*str == '/') *str = '_';
  201.          if (*str == '\\') *str = '_';
  202.          if (*str == '!') *str = '_';
  203.          if (*str == ':') *str = '_';
  204. +        if (*str == '.') {
  205. +        if (prev_dot != NULL) *prev_dot = '_';
  206. +        prev_dot = str;
  207. +     }
  208.          if (++idx > 255) { *str = '\0'; break; }
  209.          str++;
  210. +     }
  211. +     /* now limit the chars before the '.' to 8, and after to 3 */
  212. +     /* (if no dot, cut it at 8) */
  213. +     if (prev_dot == NULL) {
  214. +     if (strlen(str) > 8) str[8] = '\0';
  215. +     } else {
  216. +     *prev_dot = '\0';
  217. +     if (strlen(prev_dot+1) > 3) *(prev_dot+4) = '\0';
  218. +     if (strlen(ostr) > 8) {
  219. +         *prev_dot = '.';
  220. +         while (*prev_dot)
  221. +         *((ostr++) + 8) = *(prev_dot++);
  222. +         *((ostr++) + 8) = *(prev_dot++);
  223. +     } else
  224. +         *prev_dot = '.';
  225.       }
  226.   # endif /* MSDOS */
  227.   
  228.  
  229. --- numain.c
  230. *** numain.c    Mon Dec  7 15:45:01 1992
  231. --- ../numain.c    Mon Dec 21 21:52:50 1992
  232. ***************
  233. *** 9,15 ****
  234.   #endif
  235.   
  236.   static char *header =
  237. !  "NuLib v3.23  December 1992  Freeware   Copyright 1989-92 By Andy McFadden";
  238.   
  239.   #include "nudefs.h"    /* system-dependent defines */
  240.   #include <stdio.h>    /* standard I/O library */
  241. --- 9,15 ----
  242.   #endif
  243.   
  244.   static char *header =
  245. !  "NuLib v3.24  Januray 1993  Freeware   Copyright 1989-93 By Andy McFadden";
  246.   
  247.   #include "nudefs.h"    /* system-dependent defines */
  248.   #include <stdio.h>    /* standard I/O library */
  249.  
  250. --- nupak.c
  251. *** nupak.c    Tue Sep  8 16:11:25 1992
  252. --- ../nupak.c    Mon Dec 21 21:52:15 1992
  253. ***************
  254. *** 349,356 ****
  255.       maxbits = 16;    /* global compress parameter */
  256.       if (verbose) { printf("compressing...");  fflush(stdout); }
  257.       /* packedSize set by compress() */
  258. !     srcposn = lseek(srcfd, (off_t) 0, S_REL);    /* save posn */
  259. !     dstposn = lseek(dstfd, (off_t) 0, S_REL);
  260.       if (u_compress(srcfd, dstfd, length) == OK) {
  261.           /* compress succeeded */
  262.           retval = 0x0005;
  263. --- 349,356 ----
  264.       maxbits = 16;    /* global compress parameter */
  265.       if (verbose) { printf("compressing...");  fflush(stdout); }
  266.       /* packedSize set by compress() */
  267. !     srcposn = (long) lseek(srcfd, (off_t) 0, S_REL);    /* save posn */
  268. !     dstposn = (long) lseek(dstfd, (off_t) 0, S_REL);
  269.       if (u_compress(srcfd, dstfd, length) == OK) {
  270.           /* compress succeeded */
  271.           retval = 0x0005;
  272.  
  273.  
  274. --- nushk.c
  275. *** nushk.c    Mon Dec  7 15:47:49 1992
  276. --- ../nushk.c    Mon Jan 11 14:33:04 1993
  277. ***************
  278. *** 594,600 ****
  279.   /*    0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,4 };*/
  280.       8,9,10,10,11,11,11,11,12,12,12,12,12,12,12,12,12 };
  281.   
  282. ! static onebyt Stack[100];  /* simulated stack; should be <= 64 */
  283.   static int out_bytes, stack_ptr, entry, at_bit, at_byte;
  284.   static onebyt last_byte;  /* used in get_code */
  285.   static int reset_fix;    /* fix problem unpacking certain LZW-II archives */
  286. --- 594,600 ----
  287.   /*    0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,4 };*/
  288.       8,9,10,10,11,11,11,11,12,12,12,12,12,12,12,12,12 };
  289.   
  290. ! static onebyt *Stack;    /* simulated stack <= 64 for LZW-I, <= 4096 for II */
  291.   static int out_bytes, stack_ptr, entry, at_bit, at_byte;
  292.   static onebyt last_byte;  /* used in get_code */
  293.   static int reset_fix;    /* fix problem unpacking certain LZW-II archives */
  294. ***************
  295. *** 610,617 ****
  296.   #ifdef DEBUG
  297.   # define push(a_byte) \
  298.       { \
  299. !     if (stack_ptr - Stack > 100) { \
  300. !         printf("\n*** stack_ptr exceeded 100 in push() [%d]\n", \
  301.           (int) (stack_ptr - Stack));\
  302.           exit (-1); \
  303.       } \
  304. --- 610,617 ----
  305.   #ifdef DEBUG
  306.   # define push(a_byte) \
  307.       { \
  308. !     if (stack_ptr - Stack > 4096) { \
  309. !         printf("\n*** stack_ptr exceeded 4096 in push() [%d]\n", \
  310.           (int) (stack_ptr - Stack));\
  311.           exit (-1); \
  312.       } \
  313. ***************
  314. *** 891,896 ****
  315. --- 891,899 ----
  316.       fourbyt tmp4;  /* temporary 4-byte variable */
  317.       int cc;
  318.       static char *procName = "unpak_SHK";
  319. + 
  320. +     if (Stack == NULL)
  321. +     Stack = (onebyt *) Malloc(4096);
  322.   
  323.       type2 = use_type2;
  324.   
  325.  
  326. --- END ---
  327.  
  328.  
  329. -- 
  330. fadden@uts.amdahl.com (Andy McFadden)
  331. [ Above opinions are mine, Amdahl has nothing to do with them, etc, etc. ]
  332.