home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2588 < prev    next >
Internet Message Format  |  1991-01-22  |  3KB
  1. From: mh@roger.imsd.contel.com (Mike Hoegeman)
  2. Newsgroups: alt.sources,comp.windows.news,comp.editors,comp.windows.open-look
  3. Subject: elvis (vi clone) .doc to postscript filter
  4. Message-ID: <1991Jan18.232508.9465@wlbr.imsd.contel.com>
  5. Date: 18 Jan 91 23:25:08 GMT
  6.  
  7. this script "ftops", converts elvis .doc files to
  8. postscript. Here is an example
  9.  
  10.     refont -f *.doc | ftops  > elvisDoc.ps
  11.  
  12. refont comes with the elvis package. ftops conforms enough to
  13. structured postscript to make it usable with the X11/NeWS pageview
  14. postscript previewer. just snip at cut here line and chmod +x the thing
  15.  
  16. --------------------------------CUT HERE------------------------------
  17. #!/bin/sh 
  18. if [ X$1 != X ]; then
  19.     2>&1 cat <<\EOF
  20.  
  21.     ftops is a simple filter, it reads from stdin and writes to stdout 
  22.     
  23.     it is used for converting files with \f<fontstyle> type font change
  24.     escapes to postscript. it is a quick hack to convert elvis .doc
  25.     files to postscript
  26.  
  27.     e.g. usage;
  28.  
  29.     refont -f *.doc | ftops > elvisDoc.ps
  30.  
  31. EOF
  32.     exit 1
  33. fi
  34.  
  35.  
  36. translate () {
  37. sed \
  38.     -e 's,(,\\\(,g' \
  39.     -e 's,),\\\),g' \
  40.     -e 's,\\fB,) p B setfont (,g' \
  41.     -e 's,\\fI,) p I setfont (,g' \
  42.     -e 's,\\fR,) p R setfont (,g' \
  43.     -e 's,\\fU,) p U setfont (,g' \
  44.     -e 's,^,(,' \
  45.     -e 's,$,) ShoW_LinE,'
  46. } 
  47.  
  48. cat <<\PS_PROLOG
  49. %!
  50. %%Pages: (atend)
  51. %%DocumentFonts Courier Courier-Oblique Courier-BoldOblique 
  52. %%Title: ftops shell script output
  53. %%Creator: ftops
  54. %%EndComments
  55.  
  56. /inch { 72 mul } bind def
  57. /getfont { exch findfont exch scalefont } bind def
  58.  
  59. /SheetWidth 8.5 inch def
  60. /SheetHeight 11 inch def
  61. /LeftMargin 20 def
  62. /TopMargin 20 def
  63.  
  64. /bodyfontsize 12 def
  65. /bodyfont /Courier bodyfontsize getfont def
  66. /R bodyfont def
  67. /B /Courier-Bold bodyfontsize getfont def
  68. /I /Courier-Oblique bodyfontsize getfont def
  69. /U /Courier-BoldOblique bodyfontsize getfont def
  70.  
  71. /startpage
  72. { 
  73.     LeftMargin SheetHeight TopMargin sub moveto
  74.     R setfont
  75. } def
  76.  
  77. /endpage { showpage } def
  78.  
  79. % Function s: print a source line
  80. /s { 
  81.     gsave show grestore
  82.     currentpoint 
  83.     exch pop LeftMargin exch bodyfontsize sub 
  84.     moveto
  85. } def
  86.  
  87. /p { show } def 
  88. /ShoW_LinE { s } def
  89.  
  90. %%EndProlog
  91. PS_PROLOG
  92.  
  93. translate | awk 'BEGIN {
  94.     lines=0
  95.     maxlines=66
  96.     pages=1
  97. }
  98.     
  99. { #MAIN
  100.     if ($NF~/ShoW_LinE/) {
  101.         ++lines
  102.     }
  103.     if (lines==1) {
  104.         printf("%%%%Page: %d %d\n", pages, pages)
  105.         printf("startpage\n")
  106.     }
  107.     print
  108.     if (lines == maxlines) {
  109.         ++pages
  110.         printf("endpage\n")
  111.         lines=0
  112.     }
  113. } 
  114.  
  115. END {
  116.     printf("%%%%Trailer\n")
  117.     printf("%%%%Pages: %d\n", pages)
  118. } ' -
  119.  
  120. exit 0
  121.