home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume39 / phonewrd / patch01 next >
Encoding:
Text File  |  1993-08-21  |  19.5 KB  |  695 lines
  1. Newsgroups: comp.sources.misc
  2. From: erich@eye.com (Eric Haines)
  3. Subject: v39i043:  phonewrd - phone number phrase generator, Patch01
  4. Message-ID: <1993Aug22.015648.147@sparky.sterling.com>
  5. X-Md4-Signature: fa7f8bf6fdb98a94c29747340b0d14e9
  6. Sender: kent@sparky.sterling.com (Kent Landfield)
  7. Organization: Sterling Software
  8. Date: Sun, 22 Aug 1993 01:56:48 GMT
  9. Approved: kent@sparky.sterling.com
  10.  
  11. Submitted-by: erich@eye.com (Eric Haines)
  12. Posting-number: Volume 39, Issue 43
  13. Archive-name: phonewrd/patch01
  14. Environment: UNIX, DOS
  15. Patch-To: phonewrd: Volume 38, Issue 56
  16.  
  17. This is the first patch to phonewrd, my phone number phrase generator.
  18.  
  19. It turns out "tolower()" works idiotically on some non ANSI C
  20. compilers, merrily changing lowercase values to garbage - this patch
  21. compensates for that and so makes the code more portable, plus some other
  22. minor fixes and casts.  
  23.  
  24. Eric Haines
  25. -----------
  26. diff -c ../old/README ./README
  27. *** ../old/README    Fri Jul 30 09:50:02 1993
  28. --- ./README    Fri Jul 30 09:49:01 1993
  29. ***************
  30. *** 6,16 ****
  31.   searching or, better yet, you can get GNU's free ispell dictionaries (see the
  32.   man page for details) and use these.
  33.   
  34. ! This beastie should work under UNIX and DOS (and whatever else) under all the
  35.   flavors of C.  Now that I've said that I've doomed myself to some weird
  36. ! portability problem.  You'll want to define USE_STRINGS_H in the makefile if
  37. ! you use <strings.h> on your system.  Also, you'll almost definitely want to
  38. ! change DICT_PATH in the code to wherever your dictionary resides.
  39.   
  40.   Files included in this distribution:
  41.       README - what the heck could be in here?
  42. --- 6,18 ----
  43.   searching or, better yet, you can get GNU's free ispell dictionaries (see the
  44.   man page for details) and use these.
  45.   
  46. ! You'll almost surely want to change DICT_PATH in the code to wherever your
  47. ! dictionary resides.  You'll want to define USE_STRINGS_H in the makefile if
  48. ! you use <strings.h> on your system.  Finally, for speed, you might want to use
  49. ! the commented out sftolower() macro (see the code) if you're using ANSI C.
  50. ! This code should work under UNIX and DOS (and whatever else) under all the
  51.   flavors of C.  Now that I've said that I've doomed myself to some weird
  52. ! portability problem.
  53.   
  54.   Files included in this distribution:
  55.       README - what the heck could be in here?
  56. diff -c ../old/README ./README../old/patchlevel.h ./patchlevel.h
  57. *** ../old/patchlevel.h    Fri Jul 30 09:50:02 1993
  58. --- ./patchlevel.h    Fri Jul 30 09:49:13 1993
  59. ***************
  60. *** 1,2 ****
  61. ! #define VERSION        "version 2.0"
  62. ! #define PATCHLEVEL    0
  63. --- 1,2 ----
  64. ! #define VERSION        "version 2.1"
  65. ! #define PATCHLEVEL    1
  66. diff -c ../old/patchlevel.h ./patchlevel.h../old/phonewrd.c ./phonewrd.c
  67. *** ../old/phonewrd.c    Fri Jul 30 09:50:02 1993
  68. --- ./phonewrd.c    Fri Jul 30 10:15:12 1993
  69. ***************
  70. *** 3,9 ****
  71.       which fit it.  See the man page for details, type "phonewrd -?" for
  72.       options.
  73.   
  74. !    version 2.0 - 6/23/93
  75.   
  76.      (c) copyright 1993, Eric Haines, all rights reserved (erich@eye.com)
  77.   
  78. --- 3,9 ----
  79.       which fit it.  See the man page for details, type "phonewrd -?" for
  80.       options.
  81.   
  82. !    version 2.1 - 7/16/93
  83.   
  84.      (c) copyright 1993, Eric Haines, all rights reserved (erich@eye.com)
  85.   
  86. ***************
  87. *** 11,21 ****
  88.      History:
  89.   
  90.      2.0 - release for comp.sources.misc
  91.    */
  92.   
  93. ! #include <stdlib.h>    /* if you don't have stdlib, use malloc.h instead */
  94.   #include <stdio.h>
  95.   
  96.   /* define USE_STRINGS_H if you use <strings.h> instead of <string.h> */
  97.   #ifdef USE_STRINGS_H
  98.       /* BSD string routines. */
  99. --- 11,41 ----
  100.      History:
  101.   
  102.      2.0 - release for comp.sources.misc
  103. +    2.1 - added sftolower for non-ANSI machines, added ctype.h include,
  104. +      fixed error msg for GNU dictionary, added function prototypes,
  105. +      made some casts explicit.
  106.    */
  107.   
  108. ! #include <stdlib.h>    /* if you don't have stdlib, use malloc.h instead,
  109. !              * though you might be able to get by without either */
  110.   #include <stdio.h>
  111. + #include <ctype.h>    /* for tolower() */
  112.   
  113. + 
  114. + /* safe tolower() macro - on some non-ANSI compliant machines, tolower()
  115. +  * only works correctly for uppercase values, i.e. it simply subtracts an
  116. +  * offset from the value passed in.  So, we need to test if the character is
  117. +  * uppercase before using tolower().  For the following macro, note that no
  118. +  * incrementing of the character should occur (e.g. sftolower(*str++) will
  119. +  * work incorrectly).  If your compiler has a tolower() function that works
  120. +  * correctly for all input (most compilers do) and you want the code to run
  121. +  * faster, just redefine sftolower as calling tolower, i.e.:
  122. +  * #define    sftolower(c)    tolower((int)(c))
  123. +  */
  124. + #define    sftolower(c)                    \
  125. +     (((c) >= 'A' && (c) <= 'Z' ) ? tolower((int)(c)) : (c))
  126. + 
  127. + 
  128.   /* define USE_STRINGS_H if you use <strings.h> instead of <string.h> */
  129.   #ifdef USE_STRINGS_H
  130.       /* BSD string routines. */
  131. ***************
  132. *** 37,45 ****
  133.   /* path to dictionary */
  134.   #define    DICT_PATH    "/usr/dict/words"
  135.   
  136. - /* number of digits in phone number */
  137. - #define    NUM_DIGITS    7
  138. - 
  139.   /* how many numerals are allowed in our phrase? */
  140.   #define    NUMERALS_ALLOWED    0
  141.   
  142. --- 57,62 ----
  143. ***************
  144. *** 71,77 ****
  145.        { 2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,Q,7,7,8,8,8,9,9,9,Z } ;
  146.   
  147.   /* true if a character is a vowel */
  148. ! #define    Vowel(c)    strchr( "aeiou", (c) )
  149.   
  150.   /*============= storage space related ===================================== */
  151.   
  152. --- 88,94 ----
  153.        { 2,2,2,3,3,3,4,4,4,5,5,5,6,6,6,7,Q,7,7,8,8,8,9,9,9,Z } ;
  154.   
  155.   /* true if a character is a vowel */
  156. ! #define    Vowel(c)    strchr( "aeiou", (int)(c) )
  157.   
  158.   /*============= storage space related ===================================== */
  159.   
  160. ***************
  161. *** 137,157 ****
  162.   
  163.   /*============= procedure declarations ==================================== */
  164.   
  165. ! int phone_check() ;
  166. ! void roll_own() ;
  167. ! void concat_it() ;
  168. ! void concat_letter_out() ;
  169. ! void concat_letter_breaks_out() ;
  170. ! void init_wl() ;
  171. ! int fit_word() ;
  172. ! int permute_word() ;
  173. ! void search_for_match() ;
  174. ! void hold_word() ;
  175. ! int store_word() ;
  176. ! void free_wl() ;
  177. ! int scan_options() ;
  178. ! char *str_duplicate() ;
  179.   
  180.   /*============= procedures ================================================ */
  181.   
  182.   main(argc,argv)
  183. --- 154,185 ----
  184.   
  185.   /*============= procedure declarations ==================================== */
  186.   
  187. ! #if __STDC__ || defined(__cplusplus)
  188. ! #define P_(s) s
  189. ! #else
  190. ! #define P_(s) ()
  191. ! #endif
  192.   
  193. + /* phonewrd.c */
  194. + int main P_((int argc, char *argv[]));
  195. + void usage P_((void));
  196. + int phone_check P_((char *numeral_string));
  197. + void roll_own P_((void));
  198. + void concat_it P_((void));
  199. + void concat_letter_out P_((int digit, char *full_string));
  200. + void concat_letter_breaks_out P_((int digit, char *full_string));
  201. + void init_wl P_((void));
  202. + int fit_word P_((char *dict_word, int min_length));
  203. + int permute_word P_((char *dict_word, char *new_word));
  204. + void hold_word P_((char *word));
  205. + int store_word P_((char *word, int digit, int length));
  206. + void search_for_match P_((int digit, char *full_string, char *suffix_loc, int numeral_count));
  207. + void free_wl P_((void));
  208. + int scan_options P_((int argc, char *argv[], int *nargc, char *nargv[]));
  209. + char *str_duplicate P_((char *s));
  210. + 
  211. + #undef P_
  212. + 
  213.   /*============= procedures ================================================ */
  214.   
  215.   main(argc,argv)
  216. ***************
  217. *** 224,230 ****
  218.       return( 0 ) ;
  219.   }
  220.   
  221. ! usage()
  222.   {
  223.       fprintf(stderr, "usage: %s [options] phone#[*...]\n", ProgName);
  224.       fprintf(stderr, " [*...] - extra *'s at the end mean optional wildcard letters\n");
  225. --- 252,258 ----
  226.       return( 0 ) ;
  227.   }
  228.   
  229. ! void usage()
  230.   {
  231.       fprintf(stderr, "usage: %s [options] phone#[*...]\n", ProgName);
  232.       fprintf(stderr, " [*...] - extra *'s at the end mean optional wildcard letters\n");
  233. ***************
  234. *** 278,284 ****
  235.       } else if ( ( (tchr >= 'A') && (tchr <= 'Z') ) ||
  236.               ( (tchr >= 'a') && (tchr <= 'z') ) ) {
  237.           PhoneNum[NumDigits] = FIXED_LETTER ;
  238. !         PhoneStr[NumDigits++] = tolower( tchr ) ;
  239.       }
  240.       tchr = *tstr++ ;
  241.       }
  242. --- 306,312 ----
  243.       } else if ( ( (tchr >= 'A') && (tchr <= 'Z') ) ||
  244.               ( (tchr >= 'a') && (tchr <= 'z') ) ) {
  245.           PhoneNum[NumDigits] = FIXED_LETTER ;
  246. !         PhoneStr[NumDigits++] = sftolower( tchr ) ;
  247.       }
  248.       tchr = *tstr++ ;
  249.       }
  250. ***************
  251. *** 635,641 ****
  252.           ; i++, wc++ ) {
  253.   
  254.           /* remove apostrophes, hyphens, etc for matching */
  255. !         tchr = tolower(*wc) ;
  256.           if ( ( tchr >= 'a' ) && ( tchr <= 'z' ) ) {
  257.           *wv++ = Letter2Numeral[(*lc++ = tchr) -'a'] ;
  258.           compare_length++ ;
  259. --- 663,669 ----
  260.           ; i++, wc++ ) {
  261.   
  262.           /* remove apostrophes, hyphens, etc for matching */
  263. !         tchr = sftolower(*wc) ;
  264.           if ( ( tchr >= 'a' ) && ( tchr <= 'z' ) ) {
  265.           *wv++ = Letter2Numeral[(*lc++ = tchr) -'a'] ;
  266.           compare_length++ ;
  267. ***************
  268. *** 648,654 ****
  269.       true_length = compare_length ;
  270.   
  271.       while ( *wc ) {
  272. !         tchr = tolower( *wc++ ) ;
  273.           /* get true length of word in valid characters */
  274.           if ( ( tchr >= 'a' ) && ( tchr <= 'z' ) ) {
  275.           true_length++ ;
  276. --- 676,683 ----
  277.       true_length = compare_length ;
  278.   
  279.       while ( *wc ) {
  280. !         tchr = *wc++ ;
  281. !         tchr = sftolower( tchr ) ;
  282.           /* get true length of word in valid characters */
  283.           if ( ( tchr >= 'a' ) && ( tchr <= 'z' ) ) {
  284.           true_length++ ;
  285. ***************
  286. *** 783,789 ****
  287.               return( 0 ) ;
  288.           }
  289.           perm_cur_suf_count = perm_suf_count ;
  290. !         switch( perm_pre_cmd[--perm_cur_pre_count] ) {
  291.               case 'A':    /* enter -> reenter */
  292.               strcpy( perm_pre_word, "re" ) ;
  293.               strcat( perm_pre_word, perm_word ) ;
  294. --- 812,818 ----
  295.               return( 0 ) ;
  296.           }
  297.           perm_cur_suf_count = perm_suf_count ;
  298. !         switch( tchr = perm_pre_cmd[--perm_cur_pre_count] ) {
  299.               case 'A':    /* enter -> reenter */
  300.               strcpy( perm_pre_word, "re" ) ;
  301.               strcat( perm_pre_word, perm_word ) ;
  302. ***************
  303. *** 809,819 ****
  304.           strcpy( new_word, perm_pre_word ) ;
  305.           } else {
  306.           strcpy( new_word, perm_pre_word ) ;
  307. !         switch( perm_suf_cmd[--perm_cur_suf_count] ) {
  308.               case 'V':    /* create -> creative */
  309.               /* use only when there is no prefix */
  310.               if ( perm_cur_pre_count == perm_pre_count ) {
  311. !                 tchr = tolower(new_word[pre_length-1]) ;
  312.                   if ( tchr == 'e' ) {
  313.                   new_word[pre_length-1] = '\0' ;
  314.                   }
  315. --- 838,848 ----
  316.           strcpy( new_word, perm_pre_word ) ;
  317.           } else {
  318.           strcpy( new_word, perm_pre_word ) ;
  319. !         switch( tchr = perm_suf_cmd[--perm_cur_suf_count] ) {
  320.               case 'V':    /* create -> creative */
  321.               /* use only when there is no prefix */
  322.               if ( perm_cur_pre_count == perm_pre_count ) {
  323. !                 tchr = sftolower(new_word[pre_length-1]) ;
  324.                   if ( tchr == 'e' ) {
  325.                   new_word[pre_length-1] = '\0' ;
  326.                   }
  327. ***************
  328. *** 824,830 ****
  329.               }
  330.               break ;
  331.               case 'N':    /* create -> creation */
  332. !             tchr = tolower(new_word[pre_length-1]) ;
  333.               if ( tchr == 'e' ) {
  334.                   new_word[pre_length-1] = '\0' ;
  335.                   strcat( new_word, "ion" ) ;
  336. --- 853,859 ----
  337.               }
  338.               break ;
  339.               case 'N':    /* create -> creation */
  340. !             tchr = sftolower(new_word[pre_length-1]) ;
  341.               if ( tchr == 'e' ) {
  342.                   new_word[pre_length-1] = '\0' ;
  343.                   strcat( new_word, "ion" ) ;
  344. ***************
  345. *** 836,842 ****
  346.               }
  347.               break ;
  348.               case 'X':    /* create -> creations */
  349. !             tchr = tolower(new_word[pre_length-1]) ;
  350.               if ( tchr == 'e' ) {
  351.                   new_word[pre_length-1] = '\0' ;
  352.                   strcat( new_word, "ions" ) ;
  353. --- 865,871 ----
  354.               }
  355.               break ;
  356.               case 'X':    /* create -> creations */
  357. !             tchr = sftolower(new_word[pre_length-1]) ;
  358.               if ( tchr == 'e' ) {
  359.                   new_word[pre_length-1] = '\0' ;
  360.                   strcat( new_word, "ions" ) ;
  361. ***************
  362. *** 850,856 ****
  363.               case 'H':    /* twenty -> twentieth */
  364.               /* use only when there is no prefix */
  365.               if ( perm_cur_pre_count == perm_pre_count ) {
  366. !                 tchr = tolower(new_word[pre_length-1]) ;
  367.                   if ( tchr == 'y' ) {
  368.                   new_word[pre_length-1] = '\0' ;
  369.                   strcat( new_word, "ieth" ) ;
  370. --- 879,885 ----
  371.               case 'H':    /* twenty -> twentieth */
  372.               /* use only when there is no prefix */
  373.               if ( perm_cur_pre_count == perm_pre_count ) {
  374. !                 tchr = sftolower(new_word[pre_length-1]) ;
  375.                   if ( tchr == 'y' ) {
  376.                   new_word[pre_length-1] = '\0' ;
  377.                   strcat( new_word, "ieth" ) ;
  378. ***************
  379. *** 866,872 ****
  380.               strcat( new_word, "ly" ) ;
  381.               break ;
  382.               case 'G':    /* file -> filing */
  383. !             tchr = tolower(new_word[pre_length-1]) ;
  384.               if ( tchr == 'e' ) {
  385.                   new_word[pre_length-1] = '\0' ;
  386.               }
  387. --- 895,901 ----
  388.               strcat( new_word, "ly" ) ;
  389.               break ;
  390.               case 'G':    /* file -> filing */
  391. !             tchr = sftolower(new_word[pre_length-1]) ;
  392.               if ( tchr == 'e' ) {
  393.                   new_word[pre_length-1] = '\0' ;
  394.               }
  395. ***************
  396. *** 873,879 ****
  397.               strcat( new_word, "ing" ) ;
  398.               break ;
  399.               case 'J':    /* file -> filings */
  400. !             tchr = tolower(new_word[pre_length-1]) ;
  401.               if ( tchr == 'e' ) {
  402.                   new_word[pre_length-1] = '\0' ;
  403.               }
  404. --- 902,908 ----
  405.               strcat( new_word, "ing" ) ;
  406.               break ;
  407.               case 'J':    /* file -> filings */
  408. !             tchr = sftolower(new_word[pre_length-1]) ;
  409.               if ( tchr == 'e' ) {
  410.                   new_word[pre_length-1] = '\0' ;
  411.               }
  412. ***************
  413. *** 880,890 ****
  414.               strcat( new_word, "ings" ) ;
  415.               break ;
  416.               case 'D':    /* create -> created */
  417. !             tchr = tolower(new_word[pre_length-1]) ;
  418.               if ( tchr == 'e' ) {
  419.                   strcat( new_word, "d" ) ;
  420.               } else if ( tchr == 'y' ) {
  421. !                 ttchr = tolower(new_word[pre_length-2]) ;
  422.                   if ( Vowel(ttchr) ) {
  423.                   strcat( new_word, "ed" ) ;
  424.                   } else {
  425. --- 909,919 ----
  426.               strcat( new_word, "ings" ) ;
  427.               break ;
  428.               case 'D':    /* create -> created */
  429. !             tchr = sftolower(new_word[pre_length-1]) ;
  430.               if ( tchr == 'e' ) {
  431.                   strcat( new_word, "d" ) ;
  432.               } else if ( tchr == 'y' ) {
  433. !                 ttchr = sftolower(new_word[pre_length-2]) ;
  434.                   if ( Vowel(ttchr) ) {
  435.                   strcat( new_word, "ed" ) ;
  436.                   } else {
  437. ***************
  438. *** 898,908 ****
  439.               case 'T':    /* late -> latest */
  440.               /* use only when there is no prefix */
  441.               if ( perm_cur_pre_count == perm_pre_count ) {
  442. !                 tchr = tolower(new_word[pre_length-1]) ;
  443.                   if ( tchr == 'e' ) {
  444.                   strcat( new_word, "st" ) ;
  445.                   } else if ( tchr == 'y' ) {
  446. !                 ttchr = tolower(new_word[pre_length-2]) ;
  447.                   if ( Vowel(ttchr) ) {
  448.                       strcat( new_word, "est" ) ;
  449.                   } else {
  450. --- 927,937 ----
  451.               case 'T':    /* late -> latest */
  452.               /* use only when there is no prefix */
  453.               if ( perm_cur_pre_count == perm_pre_count ) {
  454. !                 tchr = sftolower(new_word[pre_length-1]) ;
  455.                   if ( tchr == 'e' ) {
  456.                   strcat( new_word, "st" ) ;
  457.                   } else if ( tchr == 'y' ) {
  458. !                 ttchr = sftolower(new_word[pre_length-2]) ;
  459.                   if ( Vowel(ttchr) ) {
  460.                       strcat( new_word, "est" ) ;
  461.                   } else {
  462. ***************
  463. *** 918,928 ****
  464.               }
  465.               break ;
  466.               case 'R':    /* late -> later */
  467. !             tchr = tolower(new_word[pre_length-1]) ;
  468.               if ( tchr == 'e' ) {
  469.                   strcat( new_word, "r" ) ;
  470.               } else if ( tchr == 'y' ) {
  471. !                 ttchr = tolower(new_word[pre_length-2]) ;
  472.                   if ( Vowel(ttchr) ) {
  473.                   strcat( new_word, "er" ) ;
  474.                   } else {
  475. --- 947,957 ----
  476.               }
  477.               break ;
  478.               case 'R':    /* late -> later */
  479. !             tchr = sftolower(new_word[pre_length-1]) ;
  480.               if ( tchr == 'e' ) {
  481.                   strcat( new_word, "r" ) ;
  482.               } else if ( tchr == 'y' ) {
  483. !                 ttchr = sftolower(new_word[pre_length-2]) ;
  484.                   if ( Vowel(ttchr) ) {
  485.                   strcat( new_word, "er" ) ;
  486.                   } else {
  487. ***************
  488. *** 934,944 ****
  489.               }
  490.               break ;
  491.               case 'Z':    /* skate ->skaters */
  492. !             tchr = tolower(new_word[pre_length-1]) ;
  493.               if ( tchr == 'e' ) {
  494.                   strcat( new_word, "rs" ) ;
  495.               } else if ( tchr == 'y' ) {
  496. !                 ttchr = tolower(new_word[pre_length-2]) ;
  497.                   if ( Vowel(ttchr) ) {
  498.                   strcat( new_word, "ers" ) ;
  499.                   } else {
  500. --- 963,973 ----
  501.               }
  502.               break ;
  503.               case 'Z':    /* skate ->skaters */
  504. !             tchr = sftolower(new_word[pre_length-1]) ;
  505.               if ( tchr == 'e' ) {
  506.                   strcat( new_word, "rs" ) ;
  507.               } else if ( tchr == 'y' ) {
  508. !                 ttchr = sftolower(new_word[pre_length-2]) ;
  509.                   if ( Vowel(ttchr) ) {
  510.                   strcat( new_word, "ers" ) ;
  511.                   } else {
  512. ***************
  513. *** 950,958 ****
  514.               }
  515.               break ;
  516.               case 'S':    /* imply -> implies */
  517. !             tchr = tolower(new_word[pre_length-1]) ;
  518.               if ( tchr == 'y' ) {
  519. !                 ttchr = tolower(new_word[pre_length-2]) ;
  520.                   if ( Vowel(ttchr) ) {
  521.                   strcat( new_word, "s" ) ;
  522.                   } else {
  523. --- 979,987 ----
  524.               }
  525.               break ;
  526.               case 'S':    /* imply -> implies */
  527. !             tchr = sftolower(new_word[pre_length-1]) ;
  528.               if ( tchr == 'y' ) {
  529. !                 ttchr = sftolower(new_word[pre_length-2]) ;
  530.                   if ( Vowel(ttchr) ) {
  531.                   strcat( new_word, "s" ) ;
  532.                   } else {
  533. ***************
  534. *** 960,966 ****
  535.                   strcat( new_word, "ies" ) ;
  536.                   }
  537.               } else {
  538. !                 if ( strchr( "sxzh", tchr ) ) {
  539.                   strcat( new_word, "es" ) ;
  540.                   } else {
  541.                   strcat( new_word, "s" ) ;
  542. --- 989,995 ----
  543.                   strcat( new_word, "ies" ) ;
  544.                   }
  545.               } else {
  546. !                 if ( strchr( "sxzh", (int)tchr ) ) {
  547.                   strcat( new_word, "es" ) ;
  548.                   } else {
  549.                   strcat( new_word, "s" ) ;
  550. ***************
  551. *** 968,976 ****
  552.               }
  553.               break ;
  554.               case 'P':    /* cloudy -> cloudiness */
  555. !             tchr = tolower(new_word[pre_length-1]) ;
  556.               if ( tchr == 'y' ) {
  557. !                 ttchr = tolower(new_word[pre_length-2]) ;
  558.                   if ( Vowel(ttchr) ) {
  559.                   strcat( new_word, "ness" ) ;
  560.                   } else {
  561. --- 997,1005 ----
  562.               }
  563.               break ;
  564.               case 'P':    /* cloudy -> cloudiness */
  565. !             tchr = sftolower(new_word[pre_length-1]) ;
  566.               if ( tchr == 'y' ) {
  567. !                 ttchr = sftolower(new_word[pre_length-2]) ;
  568.                   if ( Vowel(ttchr) ) {
  569.                   strcat( new_word, "ness" ) ;
  570.                   } else {
  571. ***************
  572. *** 994,1000 ****
  573.       } while ( search_word ) ;
  574.       } else {
  575.       /* first call, so check if we need to permute */
  576. !     if ( wc = strchr( dict_word, '/' ) ) {
  577.           /* GNU ispell format detected, so save word and permutations */
  578.           strncpy( perm_word, dict_word, wc-dict_word ) ;
  579.           perm_word[wc-dict_word] = '\0' ;
  580. --- 1023,1029 ----
  581.       } while ( search_word ) ;
  582.       } else {
  583.       /* first call, so check if we need to permute */
  584. !     if ( wc = strchr( dict_word, (int)'/' ) ) {
  585.           /* GNU ispell format detected, so save word and permutations */
  586.           strncpy( perm_word, dict_word, wc-dict_word ) ;
  587.           perm_word[wc-dict_word] = '\0' ;
  588. ***************
  589. *** 1357,1363 ****
  590.   {
  591.   char *ps ;
  592.   
  593. !     if ( ps = malloc( strlen( s ) + 1 ) ) {
  594.       strcpy( ps, s ) ;
  595.       }
  596.       return( ps ) ;
  597. --- 1386,1392 ----
  598.   {
  599.   char *ps ;
  600.   
  601. !     if ( ps = (char *)malloc( strlen( s ) + 1 ) ) {
  602.       strcpy( ps, s ) ;
  603.       }
  604.       return( ps ) ;
  605. diff -c ../old/phonewrd.c ./phonewrd.c../old/phonewrd.txt ./phonewrd.txt
  606. *** ../old/phonewrd.txt    Fri Jul 30 09:50:03 1993
  607. --- ./phonewrd.txt    Fri Jul 30 09:50:17 1993
  608. ***************
  609. *** 60,66 ****
  610.   
  611.   
  612.   
  613. !                     - 1 -       Formatted:  June 23, 1993
  614.   
  615.   
  616.   
  617. --- 60,66 ----
  618.   
  619.   
  620.   
  621. !                     - 1 -       Formatted:  July 16, 1993
  622.   
  623.   
  624.   
  625. ***************
  626. *** 126,132 ****
  627.   
  628.   
  629.   
  630. !                     - 2 -       Formatted:  June 23, 1993
  631.   
  632.   
  633.   
  634. --- 126,132 ----
  635.   
  636.   
  637.   
  638. !                     - 2 -       Formatted:  July 16, 1993
  639.   
  640.   
  641.   
  642. ***************
  643. *** 192,198 ****
  644.   
  645.   
  646.   
  647. !                     - 3 -       Formatted:  June 23, 1993
  648.   
  649.   
  650.   
  651. --- 192,198 ----
  652.   
  653.   
  654.   
  655. !                     - 3 -       Formatted:  July 16, 1993
  656.   
  657.   
  658.   
  659. ***************
  660. *** 258,264 ****
  661.   
  662.   
  663.   
  664. !                     - 4 -       Formatted:  June 23, 1993
  665.   
  666.   
  667.   
  668. --- 258,264 ----
  669.   
  670.   
  671.   
  672. !                     - 4 -       Formatted:  July 16, 1993
  673.   
  674.   
  675.   
  676. ***************
  677. *** 324,330 ****
  678.   
  679.   
  680.   
  681. !                     - 5 -       Formatted:  June 23, 1993
  682.   
  683.   
  684.   
  685. --- 324,330 ----
  686.   
  687.   
  688.   
  689. !                     - 5 -       Formatted:  July 16, 1993
  690.   
  691.   
  692.   
  693.  
  694. exit 0 # Just in case...
  695.