home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / os / vms / 18000 < prev    next >
Encoding:
Internet Message Format  |  1992-11-15  |  9.0 KB
  1. Path: sparky!uunet!know!cass.ma02.bull.com!think.com!rpi!zaphod.mps.ohio-state.edu!wupost!darwin.sura.net!paladin.american.edu!news.univie.ac.at!hp4at!mcsun!sun4nl!relay.philips.nl!cnplss5!news
  2. From: NL0242T@NLZCL (Oscar van Eijk)
  3. Newsgroups: comp.os.vms
  4. Subject: Vms News Manual (0/8)
  5. Message-ID: <1992Nov15.213323.14580@cnplss5.cnps.philips.nl>
  6. Date: 15 Nov 92 21:33:23 GMT
  7. Sender: news@cnplss5.cnps.philips.nl (USENET News System)
  8. Organization: Philips Communication & Processing Services
  9. Lines: 252
  10. Nntp-Posting-Host: nlz101
  11. X-News-Reader: VMS NEWS 1.24
  12.  
  13. This is part 0 of News$Doc
  14.  
  15. News$Doc is the second edition of the Vms News User Documentation. Vms News
  16. is an NNTP based VMS News client, written by Bernd Onasch (onasch@ira.uka.de),
  17. current version 1.24.
  18.  
  19. *** If you don't have Vms News yet, it is available via anonymous ftp
  20.     from ftpvms.ira.uka.de (129.13.10.1), or send a mail to
  21.     fileserv@irav17.ira.uka.de with the command HELP in the body of the message
  22.  
  23. Changes since the first edition:
  24.  - Added a 'forgotten' chapter
  25.  - Added two appendices : a chapter about the additional program Talk
  26.                       and a quick reference
  27.  - Lots of changes in the index
  28.  - Corrected a lot of type errors and grammatical errors, thanks to Tijs
  29.    Coumans (rutges_ass@rugb38.bdk.rug.nl) who pointed me at most of the
  30.    errors 
  31.  - Designed a 'Vms News'- logo
  32.  - Wrote a small program which extracts the .TEX- files and generates a
  33.    .DVI- file
  34.  
  35. If you want to use the extract- program which is included in this part 0,
  36. you should do the following:
  37.  - Save the program below as a .com- file (eg. "News$Doc.Com")
  38.  - Save all 8 parts (with or without headers) in 8 seperate files with the
  39.    extensions '.1' up to '.8', corresponing with the part which is stored
  40.    in that file (eg. "Nd.1", "Nd.2" ... "Nd.8")
  41.  - Run the extract- program (eg. "@news$doc nd")
  42.  
  43. The program will prompt for a few questions, if you want to exit at any of
  44. them, just press Ctrl_Z.
  45. This will result in the file [.NEWS$DOC]NEWS$DOC.UUE
  46.  
  47. If you want the program to create the file NEWS$DOC.DVI, the following commands
  48. should be defined:
  49.  - uudecode  (If you don't have uudecode, send a mail to me
  50.              (nl0242t@nlzcl.decnet.philips.nl) and I'll send you the source)
  51.  - unzip     (If you don't have unzip, send a mail to fileserv@wkuvx1.bitnet
  52.              with the command SENDME UNZIP41 in the body of your message)
  53.  - LaTeX     (if you don't have LaTeX, you can ftp it from ymir.claremond.edu
  54.              (134.173.4.23); executables are in [.tex.exe], sources are in
  55.              [.tex.source] and [.tex.sources.tex3_1] contains TeX v3.1. If
  56.              you can't ftp, send a mail with the command HELP in the body
  57.              to mailserv@ymir.claremont.edu)
  58.  - makeindex (if you don't have makeindex, send a mail to me and you'll receive
  59.              makeindex.zip)
  60.  
  61. If you want me to send uudecode and/or makeindex to you, let me know this
  62. before December 1st.
  63.  
  64. Below you'll find the files 1NEWS$DOC.READMEA (you don't need to save this
  65. since it is included in the .ZIP file) and the News$Doc extractor described
  66. above,
  67. Any comments are welcome, Happy Reading :-}
  68.  
  69. Oscar.
  70.  
  71. !------------  Begin 1News$Doc.ReadMe ------------------------------------------
  72.  When generating this document you might get the error message
  73.  '! TeX capacity exceeded, sorry'
  74.  Well, I'm not a wizard, but editing the mathchar-definition on
  75.  line 16 in News$Doc.Tex might help. Change the '1' into a '0'
  76.  (\smallexn="0).
  77.  I'm not gonna tell ya what the difference is since you probably
  78.  won't notice it anyway :-}
  79.  If it still doesn't work, well, you do need a wizzard after all...
  80. !-------------  End 1News$Doc.ReadMe -------------------------------------------
  81.  
  82. !-----------  Begin News$Doc extractor -----------------------------------------
  83. $    set noverify
  84. $    on error then $ goto error_occured
  85. $    on severe_error then $ goto error_occured
  86. $    on control_y then $ goto handler
  87. $!
  88. $ get_input:
  89. $!
  90. $    if p1 .eqs. "" 
  91. $       then
  92. $        write sys$output ""
  93. $        write sys$output "You should have saved all files as" + -
  94.           " <file_name>.1 to <file_name>.8"
  95. $        write sys$output "in the right order"
  96. $        write sys$output ""
  97. $        read/end=end/promt="File_name ? " sys$command p1
  98. $        goto get_input
  99. $    endif
  100. $    if f$locate(".",p1) .lt. f$length(p1) then $ p1 = f$extract(0, -
  101.        f$locate(".",p1),p1)
  102. $    write sys$output ""
  103. $    write sys$output "Input files:"
  104. $    write sys$output "  ''p1'.1"
  105. $    write sys$output "  ''p1'.2"
  106. $    write sys$output "  ''p1'.3"
  107. $    write sys$output "  ''p1'.4"
  108. $    write sys$output "  ''p1'.5"
  109. $    write sys$output "  ''p1'.6"
  110. $    write sys$output "  ''p1'.7"
  111. $    write sys$output "  ''p1'.8"
  112. $    write sys$output ""
  113. $    read/end=end/prompt="Correct ? ([Y]/N) : " sys$command conf
  114. $    if f$edit(f$extract(0,1,conf),"upcase") .eqs. "N"
  115. $       then
  116. $        p1 = ""
  117. $        goto get_input
  118. $    endif
  119. $    fc_counter = 1
  120. $!
  121. $ final_check:
  122. $!
  123. $    if f$search("''p1'.''fc_counter'") .eqs. ""
  124. $       then
  125. $        write sys$output "*** ''p1'.''fc_counter' not found, exiting"
  126. $        exit 44
  127. $    endif
  128. $    fc_counter = fc_counter + 1
  129. $    if fc_counter .lt. 9 then $ goto final_check
  130. $!
  131. $    write sys$output "To generate the Dvi- file you should have the" + -
  132.        " following commands defined:"
  133. $    write sys$output "    _ uudecode"
  134. $    write sys$output "    - unzip"
  135. $    write sys$output "    - LaTeX"
  136. $    write sys$output "    - MakeIndex"
  137. $    write sys$output ""
  138. $    read/end=end/prompt="Generate Dvi- file ? ([Y]/N) : " sys$command dvi
  139. $    if f$edit(f$extract(0,1,dvi),"upcase") .eqs "N"
  140. $       then
  141. $        write sys$output ""
  142. $        write sys$output "A subdirectory [.NEWS$DOC] will be" + -
  143.            " created containing a file called"
  144. $        write sys$output "NEWS$DOC.UUE. This file should be" + -
  145.            " uudecoded manually and the resulting"
  146. $        write sys$output "NEWS$DOC.ZIP should be unzipped. This" + -
  147.            " archive containes all .TEX- files"
  148. $        write sys$output ""
  149. $       else
  150. $        write sys$output ""
  151. $        write sys$output "A subdirectory [.NEWS$DOC] will be" + -
  152.            " created containing a file called"
  153. $        write sys$output "NEWS$DOC.DVI. and a lot of .TEX-" + -
  154.            " files. The DVI- file should"
  155. $        write sys$output "be converted to you favorite print-" + -
  156.            " file."
  157. $        write sys$output ""
  158. $    endif
  159. $!
  160. $ start_run:
  161. $!
  162. $    file_counter = 1
  163. $    open/write headers unarc.headers
  164. $    open/write output news$doc.tmp
  165. $!
  166. $ file_loop:
  167. $!
  168. $    current_file = "''p1'.''file_counter'"
  169. $    write sys$output "Processing ''current_file'..."
  170. $    open/read input 'current_file'
  171. $    output = "headers"
  172. $!
  173. $ read_loop:
  174. $!
  175. $    read/end_of_file=end_read input line
  176. $!    if f$locate("+-+-+-",line) .lt. f$length(line) .and. -
  177. !       f$locate("END",line) .lt. f$length(line) then $ output = "headers"
  178. $    if f$extract(0,6,line) .eqs. "+-+-+-" then $ output = "headers"
  179. $    write 'output' line
  180. $    if f$extract(0,6,line) .eqs. "-+-+-+" then $ output = "output"
  181. $!    if f$locate("+-+-+-",line) .lt. f$length(line) .and. -
  182. !       f$locate("START",line) .lt. f$length(line) then $ output = "output"
  183. $    goto read_loop
  184. $!
  185. $ end_read:
  186. $!
  187. $    close input
  188. $    file_counter = file_counter + 1
  189. $    if file_counter .eq. 9 then $ goto end_run
  190. $    goto file_loop
  191. $!
  192. $ end_run:
  193. $!
  194. $    close headers
  195. $    close output
  196. $    write sys$output "Format complete"
  197. $    write sys$output "Creating directory News$Doc"
  198. $    write sys$output "Running Archive"
  199. $    create/dir [.news$doc]
  200. $    set default [.news$doc]
  201. $    @[-]news$doc.tmp
  202. $    delete/nolog/noconfirm [-]news$doc.tmp;
  203. $    delete/nolog/noconfirm [-]unarc.headers;
  204. $    if f$edit(f$extract(0,1,dvi),"upcase") .eqs. "N" then $ goto end
  205. $    assign/user TT: sys$input
  206. $    uudecode news$doc.uue
  207. $    if $status then $ delete/nolog/noconfirm news$doc.uue;
  208. $    unzip -j news$doc
  209. $    if $status then $ delete/nolog/noconfirm news$doc.zip;
  210. $    type/page 1news$doc.readme
  211. $    write sys$output ""
  212. $    read/end=end/prompt="Press <Return> to continue" sys$command dummy
  213. $    assign/user TT: sys$input
  214. $    latex news$doc
  215. $    makeindex news$doc
  216. $    latex news$doc
  217. $    assign/user TT: sys$input
  218. $    delete/noconfirm/nolog *.aux;*,*.lis;*,*.toc;*,*.idx;*,*.ind;*,*.ilg;*
  219. $    write sys$output ""
  220. $    write sys$output "Dvi- file created"
  221. $    write sys$output ""
  222. $    goto end
  223. $!
  224. $!******************************************************************************
  225.  
  226. $!******************************************************************************
  227. $!
  228. $!==>    Something weird happened. A message of the error will be displayed
  229. $!    after which the program exits
  230. $!
  231. $ error_occured:
  232. $!
  233. $    error_status  = "''$status'"
  234. $    error_message = f$message('error_status')
  235. $    on error then $ continue
  236. $    write sys$output ""
  237. $    write sys$output "*** ERROR ***  Some Undefined Error Occured."
  238. $    write sys$output ""
  239. $    write sys$output "-- Status  was  : ''error_status'"
  240. $    write sys$output "-- Message was  : ''error_message'"
  241. $    goto handler
  242. $!
  243. $!******************************************************************************
  244.  
  245. $!******************************************************************************
  246. $!
  247. $!==>    On errors and interrupts some resets might have to be made
  248. $!
  249. $ handler:
  250. $!
  251. $    set message/notext/nofaci/nosever/noiden
  252. $    close input
  253. $    close output
  254. $    close headers
  255. $    set message/text/faci/sever/iden
  256. $    exit
  257. $!
  258. $!******************************************************************************
  259.  
  260. $!
  261. $ end:
  262. $!
  263. $    exit
  264. !------------  End News$Doc extractor ------------------------------------------
  265.