home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1014 < prev    next >
Internet Message Format  |  1990-12-28  |  5KB
  1. From: lwall@jato.Jpl.Nasa.Gov (Larry Wall)
  2. Newsgroups: alt.sources
  3. Subject: Re: Casefix - "Fix" all upper/lower case messages
  4. Message-ID: <3083@jato.Jpl.Nasa.Gov>
  5. Date: 13 Mar 90 20:36:46 GMT
  6.  
  7. In article <6392@orca.wv.tek.com> jeff@quark.WV.TEK.COM (Jeff Beadles) writes:
  8. : HAVE YOU BEEN SHOUTED AT ONCE TOO OFTEN IN ALL UPPER CASE?
  9. : 
  10. : or, do you hate it when you get messages that are in all lower case?
  11. : 
  12. : If so, then casefix might be the next best thing to user education.
  13. : 
  14. : I tossed this together one morning, when I had received yet another file that
  15. : was in all upper case.  It works as a filter, so you can do things like
  16. : (from rn)
  17. : 
  18. :   End of article 123 (of 123)--what next? [npq] | ~/.bin/casefix | more
  19. : 
  20. : 
  21. : Have fun!   I'll send it to comp.sources.misc in a few weeks.  (Time to get any
  22. : remaining kinks out.)
  23.  
  24. Here's something that does proper nouns too.  Think of it as complementary
  25. to the casefix program, since this trades a little more startup time (and
  26. running time (and memory)) for the proper nouns.  It was written for Peter Yee
  27. a while back to translate Nasa Headline News, which comes out in upper-case
  28. only, and which he was (bless his heart) translating by hand every time.
  29.  
  30. So the exception list that comes with it is for Nasa stuff, but you could
  31. make it do whatever you want.  Any proper nouns in /usr/dict/words, and
  32. any acronyms containing no vowels, are automatically capitalized without
  33. having to be in the exception list.
  34.  
  35. Requires perl 3.0, patchlevel 12.
  36.  
  37. Larry Wall
  38. lwall@jpl-devvax.jpl.nasa.gov
  39.  
  40. #!/bin/sh
  41. : make a subdirectory, cd to it, and run this through sh.
  42. echo 'If this kit is complete, "End of kit" will echo at the end'
  43. echo Extracting unuc
  44. sed >unuc <<'!STUFFY!FUNK!' -e 's/X//'
  45. X#!/usr/bin/perl
  46. X
  47. Xprint STDERR "Loading proper nouns...\n";
  48. Xopen(DICT,"/usr/dict/words") || die "Can't find /usr/dict/words: $!\n";
  49. Xwhile (<DICT>) {
  50. X    if (/^[A-Z]/) {
  51. X    chop;
  52. X    ($lower = $_) =~ y/A-Z/a-z/;
  53. X    $proper{$lower} = $_;
  54. X    }
  55. X}
  56. Xclose DICT;
  57. Xprint STDERR "Loading exceptions...\n";
  58. X
  59. Xopen(PATS,"unuc.pats") || die "Can't find unuc.pats: $!\n";
  60. X
  61. X$prog = <<'EOT';
  62. Xwhile (<>) {
  63. X    next if /[a-z]/;
  64. X    y/A-Z/a-z/;
  65. X    s/(\w+)/$proper{$1} ? $proper{$1} : $1/eg;
  66. X    s/^(\s*)([a-z])/$1 . (($tmp = $2) =~ y:a-z:A-Z:,$tmp)/e;
  67. X    s/([-.?!]["']?(\n\s*|  \s*)["']?)([a-z])/$1 . (($tmp = $3) =~ y:a-z:A-Z:,$tmp)/eg;
  68. X    s/\b([b-df-hj-np-tv-xz]+)\b/(($tmp = $1) =~ y:a-z:A-Z:,$tmp)/eg;
  69. X    s/([a-z])'([SDT])\b/$1 . "'" . (($tmp = $2) =~ y:A-Z:a-z:,$tmp)/eg;
  70. XEOT
  71. Xwhile (<PATS>) {
  72. X    chop;
  73. X    next if /^$/;
  74. X    next if /^#/;
  75. X    if (! /;$/) {
  76. X    $foo = $_;
  77. X    $foo =~ y/A-Z/a-z/;
  78. X    print STDERR "Dup $_\n" if $proper{$foo};
  79. X    $foo =~ s/([^\w ])/\\$1/g;
  80. X    $foo =~ s/ /(\\s+)/g;
  81. X    $foo = "\\b" . $foo if $foo =~ /^\w/;
  82. X    $foo .= "\\b" if $foo =~ /\w$/;
  83. X    $i = 0;
  84. X    ($bar = $_) =~ s/ /'$' . ++$i/eg;
  85. X    $_ = "s/$foo/$bar/gi;";
  86. X    }
  87. X    $prog .= '    ' . $_ . "\n";
  88. X}
  89. Xclose PATS;
  90. X$prog .= "}\ncontinue {\n    print;\n}\n";
  91. X
  92. X$/ = '';
  93. X#print $prog;
  94. Xeval $prog; die $@ if $@;
  95. !STUFFY!FUNK!
  96. echo Extracting unuc.pats
  97. sed >unuc.pats <<'!STUFFY!FUNK!' -e 's/X//'
  98. XA.M.
  99. XAir Force
  100. XAir Force Base
  101. XAir Force Station
  102. XAmerican
  103. XApr.
  104. XAriane
  105. XAug.
  106. XAugust
  107. XBureau of Labor Statistics
  108. XCIT
  109. XCaltech
  110. XCape Canaveral
  111. XChallenger
  112. XChina
  113. XCorporation
  114. XCrippen
  115. XDaily News in Brief
  116. XDaniel Quayle
  117. XDec.
  118. XDiscovery
  119. XEdwards
  120. XEndeavour
  121. XFeb.
  122. XFord Aerospace
  123. XFri.
  124. XGeneral Dynamics
  125. XGeorge Bush
  126. XHeadline News
  127. XHOTOL
  128. XI
  129. XII
  130. XIII
  131. XIV
  132. XIX
  133. XInstitute of Technology
  134. XJPL
  135. XJan.
  136. XJul.
  137. XJun.
  138. XKennedy Space Center
  139. XLDEF
  140. XLong Duration Exposure Facility
  141. XLong March
  142. XMar.
  143. XMarch
  144. XMartin
  145. XMartin Marietta
  146. XMercury
  147. XMon.
  148. Xin May
  149. Xs/\bmay (\d)/May $1/g;
  150. Xs/\boffice of (\w)/'Office of ' . (($tmp = $1) =~ y:a-z:A-Z:,$tmp)/eg;
  151. XNational Science Foundation
  152. XNASA Select
  153. XNew Mexico
  154. XNov.
  155. XOMB
  156. XOct.
  157. XOffice of Management and Budget
  158. XPresident
  159. XPresident Bush
  160. XRichard Truly
  161. XRocketdyne
  162. XRussian
  163. XRussians
  164. XSat.
  165. XSep.
  166. XSoviet
  167. XSoviet Union
  168. XSoviets
  169. XSpace Shuttle
  170. XSun.
  171. XThu.
  172. XTue.
  173. XU.S.
  174. XUnion of Soviet Socialist Republics
  175. XUnited States
  176. XVI
  177. XVII
  178. XVIII
  179. XVice President
  180. XVice President Quayle
  181. XWed.
  182. XWhite Sands
  183. XKaman Aerospace
  184. XAerospace Daily
  185. XAviation Week
  186. XSpace Technology
  187. XWashington Post
  188. XLos Angeles Times
  189. XNew York Times
  190. XAerospace Industries Association
  191. Xpresident of
  192. XJohnson Space Center
  193. XSpace Services
  194. XInc.
  195. XCo.
  196. XHughes Aircraft
  197. XCompany
  198. XOrbital Sciences
  199. XSwedish Space
  200. XArnauld
  201. XNicogosian
  202. XMagellan
  203. XGalileo
  204. XMir
  205. XJet Propulsion Laboratory
  206. XUniversity
  207. XDepartment of Defense
  208. XOrbital Science
  209. XOMS
  210. XUnited Press International
  211. XUnited Press
  212. XUPI
  213. XAssociated Press
  214. XAP
  215. XCable News Network
  216. XCape York
  217. XZenit
  218. XSYNCOM
  219. XEastern
  220. XWestern
  221. XTest Range
  222. XJcsat
  223. XJapanese Satellite Communications
  224. XDefence Ministry
  225. XDefense Ministry
  226. XSkynet
  227. XFixed Service Structure
  228. XLaunch Processing System
  229. XAsiasat
  230. XLaunch Control Center
  231. XEarth
  232. XCNES
  233. XGlavkosmos
  234. XPacific
  235. XAtlantic
  236. !STUFFY!FUNK!
  237. echo ""
  238. echo "End of kit"
  239. : I do not append .signature, but someone might mail this.
  240. exit
  241.