home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume26 / wroff / part05 < prev    next >
Encoding:
Text File  |  1991-12-11  |  9.4 KB  |  364 lines
  1. Newsgroups: comp.sources.misc
  2. From: bkw@uecok.ECOK.EDU (Bill Walker)
  3. Subject:  v26i101:  wroff - text formatter for HP LaserJet with PDS 25-font cartridge, Part05/05
  4. Message-ID: <1991Dec10.063701.9880@sparky.imd.sterling.com>
  5. X-Md4-Signature: a174dd840a524580e783e5c08cde8ec6
  6. Date: Tue, 10 Dec 1991 06:37:01 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: bkw@uecok.ECOK.EDU (Bill Walker)
  10. Posting-number: Volume 26, Issue 101
  11. Archive-name: wroff/part05
  12. Environment: SCO, HPUX, MS-DOS, CPM-68K
  13.  
  14. #! /bin/sh
  15. # into a shell via "sh file" or similar.  To overwrite existing files,
  16. # type "sh file -c".
  17. # The tool that generated this appeared in the comp.sources.unix newsgroup;
  18. # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
  19. # Contents:  MANIFEST Fonts/fix.c MACROS/greek MACROS/test
  20. #   TestData/README TestData/booltest.w TestData/macros
  21. #   TestData/macros.b doc/macs.w manual.bat sampler.bat
  22. #   source/copyright source/maketest.c test.bat tutor.bat
  23. # Wrapped by kent@sparky on Tue Dec 10 00:26:40 1991
  24. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  25. echo If this archive is complete, you will see the following message:
  26. echo '          "shar: End of archive 5 (of 5)."'
  27. if test -f 'MANIFEST' -a "${1}" != "-c" ; then 
  28.   echo shar: Will not clobber existing file \"'MANIFEST'\"
  29. else
  30.   echo shar: Extracting \"'MANIFEST'\" \(71 characters\)
  31.   sed "s/^X//" >'MANIFEST' <<'END_OF_FILE'
  32. XFonts/
  33. XMACROS/
  34. XMANIFEST 
  35. XMakefile 
  36. XREADME 
  37. XTestData/
  38. Xbin/
  39. Xdoc/
  40. Xsource/
  41. END_OF_FILE
  42.   if test 71 -ne `wc -c <'MANIFEST'`; then
  43.     echo shar: \"'MANIFEST'\" unpacked with wrong size!
  44.   fi
  45.   # end of 'MANIFEST'
  46. fi
  47. if test -f 'Fonts/fix.c' -a "${1}" != "-c" ; then 
  48.   echo shar: Will not clobber existing file \"'Fonts/fix.c'\"
  49. else
  50.   echo shar: Extracting \"'Fonts/fix.c'\" \(100 characters\)
  51.   sed "s/^X//" >'Fonts/fix.c' <<'END_OF_FILE'
  52. X#include <stdio.h>
  53. X
  54. Xmain() {
  55. X    int x,i;
  56. X
  57. X
  58. X    x = 25;
  59. X    for (i = 0; i < 95; i++) 
  60. X        printf("%d\n",x);
  61. X}
  62. X
  63. END_OF_FILE
  64.   if test 100 -ne `wc -c <'Fonts/fix.c'`; then
  65.     echo shar: \"'Fonts/fix.c'\" unpacked with wrong size!
  66.   fi
  67.   # end of 'Fonts/fix.c'
  68. fi
  69. if test -f 'MACROS/greek' -a "${1}" != "-c" ; then 
  70.   echo shar: Will not clobber existing file \"'MACROS/greek'\"
  71. else
  72.   echo shar: Extracting \"'MACROS/greek'\" \(33 characters\)
  73.   sed "s/^X//" >'MACROS/greek' <<'END_OF_FILE'
  74. X.fm TMN8A
  75. X.de GREEK
  76. X\fM$1\fP
  77. X.en
  78. END_OF_FILE
  79.   if test 33 -ne `wc -c <'MACROS/greek'`; then
  80.     echo shar: \"'MACROS/greek'\" unpacked with wrong size!
  81.   fi
  82.   # end of 'MACROS/greek'
  83. fi
  84. if test -f 'MACROS/test' -a "${1}" != "-c" ; then 
  85.   echo shar: Will not clobber existing file \"'MACROS/test'\"
  86. else
  87.   echo shar: Extracting \"'MACROS/test'\" \(174 characters\)
  88.   sed "s/^X//" >'MACROS/test' <<'END_OF_FILE'
  89. X.ti +5
  90. XThis should be a \{GREEK A}, followed by a \{GREEK e} A.
  91. X.sp 3
  92. XWe are now concerned with n \{GREEK e} \{GREEK W}, where
  93. X\{GREEK W} is a set of cardinality \{GREEK N}.
  94. END_OF_FILE
  95.   if test 174 -ne `wc -c <'MACROS/test'`; then
  96.     echo shar: \"'MACROS/test'\" unpacked with wrong size!
  97.   fi
  98.   # end of 'MACROS/test'
  99. fi
  100. if test -f 'TestData/README' -a "${1}" != "-c" ; then 
  101.   echo shar: Will not clobber existing file \"'TestData/README'\"
  102. else
  103.   echo shar: Extracting \"'TestData/README'\" \(55 characters\)
  104.   sed "s/^X//" >'TestData/README' <<'END_OF_FILE'
  105. XThis directory contains some demonstrations of wroff.
  106. X
  107. END_OF_FILE
  108.   if test 55 -ne `wc -c <'TestData/README'`; then
  109.     echo shar: \"'TestData/README'\" unpacked with wrong size!
  110.   fi
  111.   # end of 'TestData/README'
  112. fi
  113. if test -f 'TestData/booltest.w' -a "${1}" != "-c" ; then 
  114.   echo shar: Will not clobber existing file \"'TestData/booltest.w'\"
  115. else
  116.   echo shar: Extracting \"'TestData/booltest.w'\" \(104 characters\)
  117.   sed "s/^X//" >'TestData/booltest.w' <<'END_OF_FILE'
  118. X.de ON
  119. Xp is 1
  120. X.en
  121. X.de TW
  122. Xp is not 1
  123. X.en
  124. X \[ p = 0 ]
  125. X \[ p = p + 1 ]
  126. X.if ( p == 1 ) ON
  127. X.if ( p != 1 ) TW
  128. END_OF_FILE
  129.   if test 104 -ne `wc -c <'TestData/booltest.w'`; then
  130.     echo shar: \"'TestData/booltest.w'\" unpacked with wrong size!
  131.   fi
  132.   # end of 'TestData/booltest.w'
  133. fi
  134. if test -f 'TestData/macros' -a "${1}" != "-c" ; then 
  135.   echo shar: Will not clobber existing file \"'TestData/macros'\"
  136. else
  137.   echo shar: Extracting \"'TestData/macros'\" \(116 characters\)
  138.   sed "s/^X//" >'TestData/macros' <<'END_OF_FILE'
  139. X.de PP
  140. X.sp
  141. X.ti +5
  142. X.en
  143. X.de OP
  144. X.sp 
  145. X.ti -5
  146. X.en
  147. X.de CO
  148. X.nf 5
  149. X.in +5
  150. X.ls 
  151. X\fT
  152. X.sp 2
  153. X.en
  154. X.de NO
  155. X.in -5
  156. X\fP
  157. X.sp 2
  158. X.fi
  159. X.en
  160. END_OF_FILE
  161.   if test 116 -ne `wc -c <'TestData/macros'`; then
  162.     echo shar: \"'TestData/macros'\" unpacked with wrong size!
  163.   fi
  164.   # end of 'TestData/macros'
  165. fi
  166. if test -f 'TestData/macros.b' -a "${1}" != "-c" ; then 
  167.   echo shar: Will not clobber existing file \"'TestData/macros.b'\"
  168. else
  169.   echo shar: Extracting \"'TestData/macros.b'\" \(126 characters\)
  170.   sed "s/^X//" >'TestData/macros.b' <<'END_OF_FILE'
  171. X.de PP
  172. X.sp
  173. X.ti +5
  174. X.en
  175. X.de OP
  176. X.in
  177. X.vl 5
  178. X.sp 
  179. X.li $1
  180. X.en
  181. X.de CO
  182. X.nf 5
  183. X.in +5
  184. X.ls 
  185. X\fT
  186. X.sp 2
  187. X.en
  188. X.de NO
  189. X.in -5
  190. X\fP
  191. X.sp 2
  192. X.fi
  193. X.en
  194. END_OF_FILE
  195.   if test 126 -ne `wc -c <'TestData/macros.b'`; then
  196.     echo shar: \"'TestData/macros.b'\" unpacked with wrong size!
  197.   fi
  198.   # end of 'TestData/macros.b'
  199. fi
  200. if test -f 'doc/macs.w' -a "${1}" != "-c" ; then 
  201.   echo shar: Will not clobber existing file \"'doc/macs.w'\"
  202. else
  203.   echo shar: Extracting \"'doc/macs.w'\" \(207 characters\)
  204.   sed "s/^X//" >'doc/macs.w' <<'END_OF_FILE'
  205. X.de NAME
  206. X.ti -5
  207. X\fBName:  $1\fP
  208. X.sp 2
  209. X.en
  210. X.de SYNOPSIS
  211. X.nf
  212. X.ti -5
  213. X\fBSYNOPSIS:\fP
  214. X.sp 2
  215. X.en
  216. X.de FUNCTION
  217. X.sp 2
  218. X.ti -5
  219. X\fBFUNCTION\fP
  220. X.fi
  221. X.en
  222. X.de BUGS
  223. X.sp 3
  224. X.ti -5 
  225. X\fBBUGS\fP
  226. X.sp 2
  227. X.en
  228. X.de PP
  229. X.sp
  230. X.ti +5
  231. X.en
  232. END_OF_FILE
  233.   if test 207 -ne `wc -c <'doc/macs.w'`; then
  234.     echo shar: \"'doc/macs.w'\" unpacked with wrong size!
  235.   fi
  236.   # end of 'doc/macs.w'
  237. fi
  238. if test -f 'manual.bat' -a "${1}" != "-c" ; then 
  239.   echo shar: Will not clobber existing file \"'manual.bat'\"
  240. else
  241.   echo shar: Extracting \"'manual.bat'\" \(184 characters\)
  242.   sed "s/^X//" >'manual.bat' <<'END_OF_FILE'
  243. X@echo off
  244. Xrem This will print a copy of the manual on your printer.
  245. Xrem Again, if your printer is not connected to LPT1, this should be changed.
  246. X
  247. XWROFF DOC/MACS.W DOC/WROFF_1.W > LPT1
  248. END_OF_FILE
  249.   if test 184 -ne `wc -c <'manual.bat'`; then
  250.     echo shar: \"'manual.bat'\" unpacked with wrong size!
  251.   fi
  252.   # end of 'manual.bat'
  253. fi
  254. if test -f 'sampler.bat' -a "${1}" != "-c" ; then 
  255.   echo shar: Will not clobber existing file \"'sampler.bat'\"
  256. else
  257.   echo shar: Extracting \"'sampler.bat'\" \(120 characters\)
  258.   sed "s/^X//" >'sampler.bat' <<'END_OF_FILE'
  259. X@echo off
  260. Xrem This will print a convenient "sampler" to demonstrate the available fonts
  261. X
  262. XWROFF TESTDATA/SAMPLER > LPT1
  263. X
  264. END_OF_FILE
  265.   if test 120 -ne `wc -c <'sampler.bat'`; then
  266.     echo shar: \"'sampler.bat'\" unpacked with wrong size!
  267.   fi
  268.   # end of 'sampler.bat'
  269. fi
  270. if test -f 'source/copyright' -a "${1}" != "-c" ; then 
  271.   echo shar: Will not clobber existing file \"'source/copyright'\"
  272. else
  273.   echo shar: Extracting \"'source/copyright'\" \(168 characters\)
  274.   sed "s/^X//" >'source/copyright' <<'END_OF_FILE'
  275. X/*  Wroff is copyrighted software.  All rights reserved by
  276. X    Bill Walker.  PO Box 2107, Ada, Oklahoma 74820
  277. X    Dept. of Computer Science, East Central University
  278. X*/
  279. END_OF_FILE
  280.   if test 168 -ne `wc -c <'source/copyright'`; then
  281.     echo shar: \"'source/copyright'\" unpacked with wrong size!
  282.   fi
  283.   # end of 'source/copyright'
  284. fi
  285. if test -f 'source/maketest.c' -a "${1}" != "-c" ; then 
  286.   echo shar: Will not clobber existing file \"'source/maketest.c'\"
  287. else
  288.   echo shar: Extracting \"'source/maketest.c'\" \(157 characters\)
  289.   sed "s/^X//" >'source/maketest.c' <<'END_OF_FILE'
  290. Xmain() {
  291. X    char c;
  292. X    int i;
  293. X
  294. X
  295. X    for (c = 32; c <= 126; c++) {
  296. X        putchar('|');
  297. X        for (i = 1; i <= 30; i++)
  298. X            putchar(c);
  299. X        putchar('|');
  300. X        putchar('\n');
  301. X    }
  302. X
  303. X}
  304. END_OF_FILE
  305.   if test 157 -ne `wc -c <'source/maketest.c'`; then
  306.     echo shar: \"'source/maketest.c'\" unpacked with wrong size!
  307.   fi
  308.   # end of 'source/maketest.c'
  309. fi
  310. if test -f 'test.bat' -a "${1}" != "-c" ; then 
  311.   echo shar: Will not clobber existing file \"'test.bat'\"
  312. else
  313.   echo shar: Extracting \"'test.bat'\" \(114 characters\)
  314.   sed "s/^X//" >'test.bat' <<'END_OF_FILE'
  315. X@echo off
  316. Xrem This assumes your printer is connected to LPT1.
  317. Xrem Change if necessary.
  318. X
  319. XWROFF DOC\WELCOME > LPT1
  320. X
  321. END_OF_FILE
  322.   if test 114 -ne `wc -c <'test.bat'`; then
  323.     echo shar: \"'test.bat'\" unpacked with wrong size!
  324.   fi
  325.   # end of 'test.bat'
  326. fi
  327. if test -f 'tutor.bat' -a "${1}" != "-c" ; then 
  328.   echo shar: Will not clobber existing file \"'tutor.bat'\"
  329. else
  330.   echo shar: Extracting \"'tutor.bat'\" \(104 characters\)
  331.   sed "s/^X//" >'tutor.bat' <<'END_OF_FILE'
  332. X@echo off
  333. Xrem This will print a copy of the tutorial for wroff.
  334. X
  335. XWROFF DOC\MACS.W DOC\WROFF_TU.W > LPT1
  336. END_OF_FILE
  337.   if test 104 -ne `wc -c <'tutor.bat'`; then
  338.     echo shar: \"'tutor.bat'\" unpacked with wrong size!
  339.   fi
  340.   # end of 'tutor.bat'
  341. fi
  342. echo shar: End of archive 5 \(of 5\).
  343. cp /dev/null ark5isdone
  344. MISSING=""
  345. for I in 1 2 3 4 5 ; do
  346.     if test ! -f ark${I}isdone ; then
  347.     MISSING="${MISSING} ${I}"
  348.     fi
  349. done
  350. if test "${MISSING}" = "" ; then
  351.     echo You have unpacked all 5 archives.
  352.     rm -f ark[1-9]isdone
  353. else
  354.     echo You still must unpack the following archives:
  355.     echo "        " ${MISSING}
  356. fi
  357. exit 0
  358. exit 0 # Just in case...
  359. -- 
  360. Kent Landfield                   INTERNET: kent@sparky.IMD.Sterling.COM
  361. Sterling Software, IMD           UUCP:     uunet!sparky!kent
  362. Phone:    (402) 291-8300         FAX:      (402) 291-4362
  363. Please send comp.sources.misc-related mail to kent@uunet.uu.net.
  364.