home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Product / Product.zip / ISPSRC.ZIP / fixdict.X < prev    next >
Text File  |  1992-08-14  |  4KB  |  125 lines
  1. : Use /bin/sh
  2. #
  3. # $Id: fixdict.X,v 1.10 91/07/03 18:20:35 geoff Exp $
  4. #
  5. # Copyright 1987, 1988, 1989, by Geoff Kuenning, Manhattan Beach, CA
  6. # Permission for non-profit use is hereby granted.
  7. # All other rights reserved.
  8. # See "version.h" for a more complete copyright notice.
  9. #
  10. # $Log:    fixdict.X,v $
  11. # Revision 1.10  91/07/03  18:20:35  geoff
  12. # Don't use the ":-" notation in defining TMPDIR, since some
  13. # braindamaged Bourne shells don't handle it.
  14. # 
  15. # Revision 1.9  89/04/28  01:07:58  geoff
  16. # Change Header to Id;  nobody cares about my pathnames.
  17. # 
  18. # Revision 1.8  88/12/26  02:24:36  geoff
  19. # Update the copyright notice.
  20. # 
  21. # Revision 1.7  88/02/20  23:10:48  geoff
  22. # Fix the usage of the -e switch to specify standard input properly.
  23. # Remove an unneeded sort.
  24. # 
  25. # Revision 1.6  87/09/24  23:24:03  geoff
  26. # Get rid of colons in the optional-variable setting (Israel Pinkas).
  27. # 
  28. # Revision 1.5  87/09/14  22:38:28  geoff
  29. # Add copyright comments
  30. # 
  31. # Revision 1.4  87/07/20  23:21:16  geoff
  32. # Get rid of the EXPAND stuff;  it's obsolete.  Add DEFHASH and SORTTMP
  33. # support.  Look in the current directory for DEFHASH first.
  34. # 
  35. # Revision 1.3  87/06/07  14:47:22  geoff
  36. # Make LIBDIR auto-configurable
  37. # 
  38. # Revision 1.2  87/05/27  23:16:08  geoff
  39. # Update expand script usage
  40. # 
  41. # Revision 1.1  87/04/19  22:25:04  geoff
  42. # Initial revision
  43. # 
  44. #
  45. #    Add capitalization information to an ispell dictionary
  46. #
  47. #    Usage:
  48. #
  49. #    fixdict dict-file
  50. #
  51. #    Requires availability of UNIX spell.  The new dictionary is
  52. #    rewritten in place.  A list of words that couldn't be
  53. #    resolved (because spell doesn't know them) is written to
  54. #    standard output.  This list appears in lowercase in the
  55. #    dictionary, and if there are any errors the must be edited
  56. #    by hand.
  57. #
  58. #    The final dictionary appears in expanded form and must be
  59. #    passed through munchlist to regenerate suffixes.
  60. #
  61. LIBDIR=!!LIBDIR!!
  62. DEFHASH=!!DEFHASH!!
  63. SORTTMP="-T ${TMPDIR-/usr/tmp}"        # !!SORTTMP!!
  64. TDIR=${TMPDIR-/tmp}
  65. TMP=${TDIR}/fix$$
  66.  
  67. #
  68. #    Figure out where to get the hash file.  The preference is
  69. #    for one in the current directory, if it exists, since this script
  70. #    is intended primarily to be used during installation.
  71. #
  72. DICT="$DEFHASH"
  73. [ -r "$DICT" ]  ||  DICT="$LIBDIR/$DEFHASH"
  74.  
  75. trap "/bin/rm -f ${TMP}*; exit 1" 1 2 15
  76. ispell -e -d $DICT -p /dev/null < $1 \
  77.   | tr '[A-Z]' '[a-z]' \
  78.   | spell > ${TMP}a
  79. #
  80. # ${TMP}a contains all the words that spell doesn't like.
  81. # Now figure out which of those are because spell doesn't know them at
  82. # all, and leave those in ${TMP}b.
  83. #
  84. tr '[a-z]' '[A-Z]' < ${TMP}a | spell | tr '[A-Z]' '[a-z]' > ${TMP}b
  85. #
  86. # The wrongly-capitalized words are those that spell didn't object to
  87. # in the last step.  Produce a list of them in, and capitalize the
  88. # first letter of each.  Save this list in ${TMP}c.
  89. #
  90. comm -23 ${TMP}a ${TMP}b \
  91.   | sed 's/^a/A/;s/^b/B/;s/^c/C/;s/^d/D/;s/^e/E/;s/^f/F/;s/^g/G/;s/^h/H/
  92.      s/^i/I/;s/^j/J/;s/^k/K/;s/^l/L/;s/^m/M/;s/^n/N/;s/^o/O/;s/^p/P/
  93.      s/^q/Q/;s/^r/R/;s/^s/S/;s/^t/T/;s/^u/U/;s/^v/V/;s/^w/W/;s/^x/X/
  94.      s/^y/Y/;s/^z/Z/' > ${TMP}c
  95. #
  96. # Find out which of those spell objects to, saving the failures in ${TMP}d.
  97. #
  98. spell ${TMP}c > ${TMP}d
  99. #
  100. # Extract the words which were correctly capitalized at the first letter,
  101. # combine them with an all-capitals version of the ones that weren't, and
  102. # put the result into ${TMP}e.
  103. #
  104. (comm -23 ${TMP}c ${TMP}d;  tr '[a-z]' '[A-Z]' < ${TMP}d) \
  105.   | sort $SORTTMP -o ${TMP}e
  106. #
  107. # At this point, ${TMP}b contains the words that spell just plain doesn't
  108. # like, and ${TMP}e contains the words that are now capitalized correctly.
  109. #
  110. /bin/rm ${TMP}[cd]
  111. #
  112. # Put it all together, rewriting the dictionary in place.
  113. #
  114. ispell -e -d $DICT -p /dev/null < $1 \
  115.   | tr '[A-Z]' '[a-z]' \
  116.   | sort $SORTTMP \
  117.   | comm -23 - ${TMP}a \
  118.   | sort $SORTTMP -f -o $1 - ${TMP}b ${TMP}e
  119. #
  120. # Finally, write the list of words that have questionable capitalization
  121. # to the standard output.
  122. #
  123. cat ${TMP}b
  124. /bin/rm ${TMP}*
  125.