home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / games / volume8 / travesty / patch1 / patches01
Text File  |  1990-01-11  |  7KB  |  258 lines
  1. *** ../../travesty/CHANGES    Wed Dec 20 10:05:45 1989
  2. --- CHANGES    Thu Jan  4 16:09:38 1990
  3. ***************
  4. *** 1 ****
  5. --- 1,5 ----
  6. + travesty version 1.1, 12/23/89.
  7. + 
  8. + Changed cmp() to a slow, portable, inline version. Is ctoi() guaranteed?
  9. + 
  10.   travesty version 1.0, 12/17/89.
  11. *** ../../travesty/README    Wed Dec 20 10:05:46 1989
  12. --- README    Thu Jan  4 16:09:39 1990
  13. ***************
  14. *** 1,10 ****
  15.   travesty - make a travesty of the input
  16.   
  17. ! travesty version 1.0, 12/17/89.
  18.   Copyright (c) 1989, Daniel J. Bernstein.
  19.   All rights reserved.
  20.   
  21. ! This distribution packaged 12/17/89.
  22.   
  23.   Files:
  24.   CHANGES         Description of changes since first distributed version
  25. --- 1,10 ----
  26.   travesty - make a travesty of the input
  27.   
  28. ! travesty version 1.1, 12/23/89.
  29.   Copyright (c) 1989, Daniel J. Bernstein.
  30.   All rights reserved.
  31.   
  32. ! This distribution packaged 12/23/89.
  33.   
  34.   Files:
  35.   CHANGES         Description of changes since first distributed version
  36. *** ../../travesty/travesty.c    Wed Dec 20 10:05:49 1989
  37. --- travesty.c    Thu Jan  4 16:09:41 1990
  38. ***************
  39. *** 7,22 ****
  40.   Internet address: brnstnd@acf10.nyu.edu.\n";
  41.   
  42.   static char travestyversion[] = 
  43. ! "travesty version 1.0, 12/17/89.\n\
  44.   Copyright (c) 1989, Daniel J. Bernstein.\n\
  45.   All rights reserved.\n";
  46.   
  47.   static char travestycopyright[] =
  48. ! "travesty version 1.0, 12/17/89.\n\
  49.   Copyright (c) 1989, Daniel J. Bernstein.\n\
  50.   All rights reserved.\n\
  51.   \n\
  52. ! Until January 1, 1993, you are granted the following rights: A. To make\n\
  53.   copies of this work in original form, so long as (1) the copies are exact\n\
  54.   and complete; (2) the copies include the copyright notice, this paragraph,\n\
  55.   and the disclaimer of warranty in their entirety. B. To distribute this\n\
  56. --- 7,22 ----
  57.   Internet address: brnstnd@acf10.nyu.edu.\n";
  58.   
  59.   static char travestyversion[] = 
  60. ! "travesty version 1.1, 12/23/89.\n\
  61.   Copyright (c) 1989, Daniel J. Bernstein.\n\
  62.   All rights reserved.\n";
  63.   
  64.   static char travestycopyright[] =
  65. ! "travesty version 1.1, 12/23/89.\n\
  66.   Copyright (c) 1989, Daniel J. Bernstein.\n\
  67.   All rights reserved.\n\
  68.   \n\
  69. ! Until January 1, 1994, you are granted the following rights: A. To make\n\
  70.   copies of this work in original form, so long as (1) the copies are exact\n\
  71.   and complete; (2) the copies include the copyright notice, this paragraph,\n\
  72.   and the disclaimer of warranty in their entirety. B. To distribute this\n\
  73. ***************
  74. *** 26,32 ****
  75.   includes the copyright notice, this paragraph, and the disclaimer of\n\
  76.   warranty in their entirety. These rights are temporary and revocable upon\n\
  77.   written, oral, or other notice by Daniel J. Bernstein. These rights are\n\
  78. ! automatically revoked on January 1, 1993. This copyright notice shall be\n\
  79.   governed by the laws of the state of New York.\n\
  80.   \n\
  81.   If you have questions about travesty or about this copyright notice,\n\
  82. --- 26,32 ----
  83.   includes the copyright notice, this paragraph, and the disclaimer of\n\
  84.   warranty in their entirety. These rights are temporary and revocable upon\n\
  85.   written, oral, or other notice by Daniel J. Bernstein. These rights are\n\
  86. ! automatically revoked on January 1, 1994. This copyright notice shall be\n\
  87.   governed by the laws of the state of New York.\n\
  88.   \n\
  89.   If you have questions about travesty or about this copyright notice,\n\
  90. ***************
  91. *** 89,99 ****
  92.   #include "djbatoi.h"
  93.   
  94.   /* The following macro had better make chars into ints from 0 thru 255. */
  95. - 
  96.   #define ctoi(x) ((unsigned int) (x))
  97.   #define copy(s,t,len) bcopy(s,t,len)
  98. - #define cmp(s,t,len) bcmp(s,t,len) /* had better return signed value! */
  99.   
  100.   #define ran(n) (((random() % n) + n) % n) /* idiotic % can be negative */
  101.   
  102.   #define MAXORD 20
  103. --- 89,111 ----
  104.   #include "djbatoi.h"
  105.   
  106.   /* The following macro had better make chars into ints from 0 thru 255. */
  107.   #define ctoi(x) ((unsigned int) (x))
  108. + 
  109.   #define copy(s,t,len) bcopy(s,t,len)
  110.   
  111. + int cmp(s,t,len) /* needs to return a signed value; bcmp() not portable */
  112. + register char *s;
  113. + register char *t;
  114. + register int len;
  115. + {
  116. +  while (len--)
  117. +    if (*s != *t)
  118. +      return((ctoi(*s) > ctoi(*t)) * 2 - 1);
  119. +    else
  120. +      s++,t++;
  121. +  return(0);
  122. + }
  123. + 
  124.   #define ran(n) (((random() % n) + n) % n) /* idiotic % can be negative */
  125.   
  126.   #define MAXORD 20
  127. ***************
  128. *** 104,110 ****
  129.   int ord1;
  130.   int seed;
  131.   
  132. ! int s[MAXORD + 1][257];
  133.   char *c;
  134.   int curc;
  135.   int *p;
  136. --- 116,122 ----
  137.   int ord1;
  138.   int seed;
  139.   
  140. ! int s[MAXORD + 1][257]; /* dynamic? not worth it */
  141.   char *c;
  142.   int curc;
  143.   int *p;
  144. ***************
  145. *** 143,178 ****
  146.       }
  147.   }
  148.   
  149. ! sort(l,u,m)
  150.   register int l,u; /* we are useless if l == u; we crash if l > u */
  151.   register int m;
  152.   {
  153.    register int i;
  154.    register int ch;
  155.   
  156.    if (m > ord)
  157.      return;
  158.   
  159.    for (ch = 0; ch < 256; ch++)
  160. !    s[m][ch] = 0;
  161.   
  162.    for (i = l; i <= u; i++)
  163. !    s[m][ctoi(c[p[i] * ord1 + m])]++;
  164.   
  165. !  s[m][0] += l - 1;
  166.    for (ch = 1; ch < 256; ch++)
  167. !    s[m][ch] += s[m][ch - 1];
  168.   
  169.    for (i = u; i >= l; i--)
  170. !    q[s[m][ctoi(c[p[i] * ord1 + m])]--] = p[i]; /* trust me. */
  171.   
  172.    for (i = l; i <= u; i++)
  173.      p[i] = q[i];
  174.   
  175. !  s[m][256] = u;
  176.    for (ch = 0; ch < 256; ch++)
  177. !    if (s[m][ch] + 1 < s[m][ch + 1]) /* anything to save a procedure call */
  178. !      sort(s[m][ch] + 1,s[m][ch + 1],m + 1);
  179.   }
  180.   
  181.   zeroq()
  182. --- 155,191 ----
  183.       }
  184.   }
  185.   
  186. ! sort(l,u,m) /* recursive */
  187.   register int l,u; /* we are useless if l == u; we crash if l > u */
  188.   register int m;
  189.   {
  190.    register int i;
  191.    register int ch;
  192. +  register int *sm = s[m];
  193.   
  194.    if (m > ord)
  195.      return;
  196.   
  197.    for (ch = 0; ch < 256; ch++)
  198. !    sm[ch] = 0;
  199.   
  200.    for (i = l; i <= u; i++)
  201. !    sm[ctoi(c[p[i] * ord1 + m])]++;
  202.   
  203. !  sm[0] += l - 1;
  204.    for (ch = 1; ch < 256; ch++)
  205. !    sm[ch] += sm[ch - 1];
  206.   
  207.    for (i = u; i >= l; i--)
  208. !    q[sm[ctoi(c[p[i] * ord1 + m])]--] = p[i]; /* trust me. */
  209.   
  210.    for (i = l; i <= u; i++)
  211.      p[i] = q[i];
  212.   
  213. !  sm[256] = u;
  214.    for (ch = 0; ch < 256; ch++)
  215. !    if (sm[ch] + 1 < sm[ch + 1]) /* anything to save a procedure call */
  216. !      sort(sm[ch] + 1,sm[ch + 1],m + 1);
  217.   }
  218.   
  219.   zeroq()
  220. ***************
  221. *** 185,192 ****
  222.   
  223.   sigalrm()
  224.   {
  225. !  fprintf(stderr,"Seed: %d\n",seed);
  226. !  fflush(stderr);
  227.   }
  228.   
  229.   main(argc,argv,envp)
  230. --- 198,205 ----
  231.   
  232.   sigalrm()
  233.   {
  234. !  (void) fprintf(stderr,"Seed: %d\n",seed);
  235. !  (void) fflush(stderr);
  236.   }
  237.   
  238.   main(argc,argv,envp)
  239. *** ../../travesty/travesty.man    Wed Dec 20 10:05:48 1989
  240. --- travesty.man    Thu Jan  4 16:09:40 1990
  241. ***************
  242. *** 109,115 ****
  243.   has been tested
  244.   on an Astronautics ZS-2 running ZSUnix.
  245.   .SH VERSION
  246. ! travesty version 1.0, dated 12/17/89.
  247.   .SH AUTHOR
  248.   Copyright 1989, Daniel J. Bernstein.
  249.   .SH "SEE ALSO"
  250. --- 109,115 ----
  251.   has been tested
  252.   on an Astronautics ZS-2 running ZSUnix.
  253.   .SH VERSION
  254. ! travesty version 1.1, dated 12/23/89.
  255.   .SH AUTHOR
  256.   Copyright 1989, Daniel J. Bernstein.
  257.   .SH "SEE ALSO"
  258.