home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / text / tex / 9473 < prev    next >
Encoding:
Internet Message Format  |  1992-07-23  |  5.5 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!cs.utexas.edu!sun-barr!ames!agate!stanford.edu!rock!concert!duke!news.duke.edu!acpub.duke.edu!gronke
  2. From: gronke@acpub.duke.edu (Paul Gronke)
  3. Newsgroups: comp.text.tex
  4. Subject: Norton Desktop Batch Files for emTeX programs
  5. Message-ID: <4058@news.duke.edu>
  6. Date: 24 Jul 92 04:10:42 GMT
  7. References: <23JUL199218553909@zeus.tamu.edu>
  8. Sender: news@news.duke.edu
  9. Organization: Duke University; Durham, N.C.
  10. Lines: 142
  11. Nntp-Posting-Host: soc2.acpub.duke.edu
  12.  
  13. I have seen some queries about running emtex under windows.
  14. Others came up with the same solution I did -- use Norton Desktop
  15. or WinBatch (shareware) batch programs.  I posted these a few months
  16. ago, i'll repeat them here.  The files contained are:
  17.  
  18. DROPTEX.WBT     This is a batch runner file that you can "drag/drop"
  19.                 .dvi or .tex files onto.  The program runs LaTeX
  20.                 if the file has a .tex extension, and asks you whether
  21.                 you want to print or view if the file has a .dvi
  22.                 extension.  The viewer used in DVIHPLJ/DVISCR.  Not pretty,
  23.                 but it works.  Have to make the command like "BATCHRUN
  24.                 DROPTEX.WBT" so that the filename is passed on param1.
  25.  
  26. DVI.WBT         This is a batch runner file for .dvi file viewing and printing
  27.                 which is which is intended to be added
  28.                 to the "Launch List" in Norton Desktop.  It prompts you
  29.                 for a series of DVIHPLJ/DVISCR parameters, thus allowing
  30.                 two sided, selected pages, etc. printing.
  31.  
  32. DVI.WBD, SELECT.WBD are dialog boxes called from within DVI.WBT
  33.  
  34. ---------- cut here for droptex.wbt ------------
  35. filer="%param1%"
  36. filelen=StrLen(filer)
  37. dirstrip=StrScan(filer,"\",%filelen%,@BACKSCAN)
  38. dirstrip1=dirstrip+1
  39. file1len=filelen-dirstrip
  40. filer1=StrSub(filer,%dirstrip1%,%file1len%)
  41. extstart=file1len-2
  42. extens=StrSub(filer1,%extstart%,3)
  43. dir=StrSub(filer,1,%dirstrip%)
  44. DirChange("%dir%")
  45. if extens=="tex" Then Run("d:\emtex\latex.bat","%filer1%")
  46. if extens=="tex" Then Exit
  47. if extens=="dvi" Then porv=AskLine("Print_or_View","p(rint) or v(iew)?","")
  48. if porv=="p" Then Run("d:\emtex\p.pif","%param1%")
  49. if porv=="v" Then Run("d:\emtex\v.bat","%param1%")
  50. ----------end of droptex.wbt ----------------
  51. ----------cut here for dvi.wbt --------------
  52. ; dvi.wbt - runs DVISCR or DVIHPLJ, the emTeX dvi viewer
  53. ; and printer.
  54. ;
  55. ; First, runs a dialog box to ask user whether he/she wants
  56. ; to view or print.  Dialog box also allows setting a 
  57. ; variety of program parameters.  Most times users will
  58. ; just want to take the defaults.
  59. ; 
  60. ; Then, the program asks for directory and subdirectory
  61. ; of the dvi file, defaulting to dissertation directory
  62. ; for now.
  63. ;
  64. ; Table of variables:
  65. ;       pg = default directory for graphic files, /pg:=c:\emtex\docs\graphs
  66. ;       pt = name of log file, "/pt" suppresses, "/pt=filename" otherwise
  67. ;       nf = "/nf#" print file # times (not supported in dviscr)
  68. ;       b, e = start selection (/b) end selection (/e) (/b*, /e* defaults)
  69. ;       two = two sided printing, "/2o" (odd sides), "/2e" (even sides)
  70. ;       sel = special printing, calls another dialog box
  71. ;       viewer = view file or print file
  72. ;
  73. ; Initialize the default variables:
  74. pg = 1
  75. pt = 1
  76. nf = 1
  77. b = "*"
  78. e = "*"
  79. pg1 = "d:\emtex\docs"
  80. two1=0
  81. sel=0
  82. viewer=0
  83. :start
  84. DialogBox("View or Print the dvi file?","dvi.wbd")
  85. ;
  86. ; Use conditionals and new dialog box
  87. ; to change defaults
  88. ;
  89. If pg == 0 Then pg1=AskLine("Graph Directory","Enter full dir path for graphic files"," ")
  90. pg2=StrCat("/pg:","%pg1%")
  91. If pt == 1 Then pt = "/pt"
  92. If pt == 0 Then pt = " "
  93. If sel == 1 Then DialogBox("Special Printing","select.wbd")
  94. two1=""
  95. If twoodd == 1 Then two1="/2o"
  96. If twoeven == 1 Then two1="/2e"
  97. ;
  98. ; DEFAULT DIRECTORY c:\emtex\docs
  99. ;
  100. DirChange("c:\emtex\docs")
  101. currdir=DirGet ( )
  102. q=AskYesNo("Choose Directory","Use Default Doc Directory (%currdir%)?")
  103. if q == @YES Then Goto getfile
  104. DirChange("\")
  105. ;
  106. ; NOW SELECT ANOTHER DIRECTORY FOR DVI FILE
  107. ;
  108. :getdir
  109. subdirs=DirItemize("*.*")
  110. If subdirs=="" Then Goto getfile
  111. targdir=ItemSelect("What directory for dvi File? (OK = current)",subdirs," ")
  112. If targdir == "" Then Goto getfile
  113. DirChange(targdir)
  114. Goto getdir
  115. ;
  116. ; NOW SELECT INPUT FILE
  117. ;
  118. :getfile
  119. files=FileItemize("*.dvi")
  120. texfile = ItemSelect("Select File to Process:",files," ")
  121. If texfile=="" Then Goto getfile
  122. ;
  123. ; Now Check for output to printer or File, use TEXFILE as default
  124. ;
  125. po1 = "prn"
  126. If po == 2 Then po1=AskLine("Print to File","Print Output File:","%texfile%.hp")
  127. po2=StrCat("/po:","%po1%")
  128. ;
  129. ; NOW RUN THE PROGRAM
  130. ;
  131. If viewer==1 Then Run("c:\emtex\dviscr","@hplj.cnf /fi /s4 /ocr=1 /fl=-1 %pt% %pg2% /b%b% /e%e% %two1% %texfile%")
  132. If viewer==2 Then Run("c:\emtex\dvihplj.pif","@hplj.cnf /fb /fl=-1 %pt% %po2% %pg2% /b%b% /e%e% /nf%nf% %two1% %texfile%")
  133. ------------ end dvi.wbt ---------------
  134. ------------cut here for dvi.wbd, dialog box #1 ---------
  135.  
  136. [viewer^1DVI to screen]          [viewer^2DVI to printer]
  137.  
  138. [pg+1Graphics c:\emtex\docs\graphs] [pt+1Suppress Log File]
  139.           
  140. Special Options:
  141. [po^1Output to Printer]          [sel+1Special Selection?]
  142. [po^2Output to file]             (Selected Pages?)
  143.                                  (Multiple Copies?)
  144. Two Sided Printing:
  145. [twoodd+1Odd Sides (do first)]
  146. [twoeven+1Even Sides (do second)]
  147. --------------end dvi.wbd ------------------
  148. -------------cut here for select.wbd, dialog box #2 -------
  149.  
  150. Start Selection:                    [b#   ]
  151. End Selection:                      [e#   ]
  152.  
  153. Number of Copies (default is 1):    [nf#  ]
  154. -------------end select.wbd ----------------------
  155.