gih900@csc.anu.oz (Geoff Huston) (12/21/89)
+-+-+-+ Beginning of part 3 +-+-+-+
X! $! NNTP_TCPCMU
X $!
X $ if f$search("NNTP_TCPCMU.OBJ").eqs."" then $ goto do5
X $ if f$cvtime(f$file_attributes("[-.NEWS_SRC]NNTP_TCPCMU.C","rdt")).gts.-
X--- 341,347 -----
X $ purge nntp_feed.*,[-.news_dist]nntp_feed.*
X $past18:
X $!
X! $! NNTP_XFER
X $!
X $ if f$search("NNTP_XFER.OBJ").eqs."" then $ goto do9a
X $ if f$cvtime(f$file_attributes("[-.NEWS_SRC]NNTP_XFER.C","rdt")).gts.-
X**************
X*** 320,325
X $!
X $! NNTP_TCPCMU
X $!
X $ if f$search("NNTP_TCPCMU.OBJ").eqs."" then $ goto do5
X $ if f$cvtime(f$file_attributes("[-.NEWS_SRC]NNTP_TCPCMU.C","rdt")).gts.-
X f$cvtime(f$file_attributes("NNTP_TCPCMU.OBJ","rdt")) then $ goto do5
X--- 343,374 -----
X $!
X $! NNTP_XFER
X $!
X+ $ if f$search("NNTP_XFER.OBJ").eqs."" then $ goto do9a
X+ $ if f$cvtime(f$file_attributes("[-.NEWS_SRC]NNTP_XFER.C","rdt")).gts.-
X+ f$cvtime(f$file_attributes("NNTP_XFER.OBJ","rdt")) then $ goto do9a
X+ $ goto past9a
X+ $do9a:
X+ $ set def [-.news_src]
X+ $ write sys$output "$ cc nntp_xfer"
X+ $ cc/nolis/object=[-.news_build]nntp_xfer nntp_xfer
X+ $ set def [-.news_build]
X+ $ purge nntp_xfer.*,[-.news_src]nntp_xfer.*
X+ $past9a:
X+ $ if f$search("[-.NEWS_DIST]NNTP_XFER.EXE").eqs."" then $ goto do18a
X+ $ if f$cvtime(f$file_attributes("NNTP_XFER.OBJ","rdt")).gts.-
V+ f$cvtime(f$file_attributes("[-.NEWS_DIST]NNTP_XFER.EXE","rdt")) then $ go
Xto do18a
X+ $ goto past18a
X+ $do18a:
X+ $ write sys$output "$ link nntp_xfer"
V+ $ link/notrace/nomap/exe=[-.NEWS_DIST]nntp_xfer nntp_xfer,[-.news_src]optio
Xns_c_link/opt
X+ $ purge nntp_xfer.*,[-.news_dist]nntp_xfer.*
X+ $past18a:
X+ $!
X+ $! NNTP_TCPCMU
X+ $!
X+ $ if no_wintcp .and. no_multinettcp then $ goto past14a
X+ $ goto past14
X+ $past14a:
X $ if f$search("NNTP_TCPCMU.OBJ").eqs."" then $ goto do5
X $ if f$cvtime(f$file_attributes("[-.NEWS_SRC]NNTP_TCPCMU.C","rdt")).gts.-
X f$cvtime(f$file_attributes("NNTP_TCPCMU.OBJ","rdt")) then $ goto do5
X**************
X*** 343,349
X add_transform,newsrtl,[-.news_src]options_c_link/opt
X $ purge nntp_tcpcmu.*,[-.news_dist]nntp_tcpcmu.*
X $past14:
X! $ if no_wintcp then $ goto pastpa3
X $!
X $! NNTP_TCPWIN
X $!
X--- 392,398 -----
X add_transform,newsrtl,[-.news_src]options_c_link/opt
X $ purge nntp_tcpcmu.*,[-.news_dist]nntp_tcpcmu.*
X $past14:
X! $ if no_wintcp .and. no_multinettcp then $ goto pastpa3
X $!
X $! NNTP_TCPWINMULTINET
X $!
X**************
X*** 345,351
X $past14:
X $ if no_wintcp then $ goto pastpa3
X $!
X! $! NNTP_TCPWIN
X $!
X $ if f$search("NNTP_TCPWIN.OBJ").eqs."" then $ goto dopa2
X $ if f$cvtime(f$file_attributes("[-.NEWS_SRC]NNTP_TCPWIN.C","rdt")).gts.-
X--- 394,400 -----
X $past14:
X $ if no_wintcp .and. no_multinettcp then $ goto pastpa3
X $!
X! $! NNTP_TCPWINMULTINET
X $!
X $ if f$search("NNTP_TCPWINMULTINET.OBJ").eqs."" then $ goto dopa2
V $ if f$cvtime(f$file_attributes("[-.NEWS_SRC]NNTP_TCPWINMULTINET.C","rdt"))
X.gts.-
X**************
X*** 347,355
X $!
X $! NNTP_TCPWIN
X $!
X! $ if f$search("NNTP_TCPWIN.OBJ").eqs."" then $ goto dopa2
X! $ if f$cvtime(f$file_attributes("[-.NEWS_SRC]NNTP_TCPWIN.C","rdt")).gts.-
X! f$cvtime(f$file_attributes("NNTP_TCPWIN.OBJ","rdt")) then $ goto dopa2
X $ goto pastpa2
X $dopa2:
X $ set def [-.news_src]
X--- 396,404 -----
X $!
X $! NNTP_TCPWINMULTINET
X $!
X! $ if f$search("NNTP_TCPWINMULTINET.OBJ").eqs."" then $ goto dopa2
V! $ if f$cvtime(f$file_attributes("[-.NEWS_SRC]NNTP_TCPWINMULTINET.C","rdt"))
X.gts.-
V! f$cvtime(f$file_attributes("NNTP_TCPWINMULTINET.OBJ","rdt")) then $ goto
X dopa2
X $ goto pastpa2
X $ dopa2:
X $ set def [-.news_src]
X**************
X*** 351,357
X $ if f$cvtime(f$file_attributes("[-.NEWS_SRC]NNTP_TCPWIN.C","rdt")).gts.-
X f$cvtime(f$file_attributes("NNTP_TCPWIN.OBJ","rdt")) then $ goto dopa2
X $ goto pastpa2
X! $dopa2:
X $ set def [-.news_src]
X $ write sys$output "$ cc nntp_tcpwin"
X $ cc/nolis/object=[-.news_build]nntp_tcpwin nntp_tcpwin
X--- 400,406 -----
V $ if f$cvtime(f$file_attributes("[-.NEWS_SRC]NNTP_TCPWINMULTINET.C","rdt"))
X.gts.-
V f$cvtime(f$file_attributes("NNTP_TCPWINMULTINET.OBJ","rdt")) then $ goto
X dopa2
X $ goto pastpa2
X! $ dopa2:
X $ set def [-.news_src]
X $ write sys$output "$ cc nntp_tcpwinmultinet"
X $ cc/nolis/object=[-.news_build]nntp_tcpwinmultinet nntp_tcpwinmultinet
X**************
X*** 353,360
X $ goto pastpa2
X $dopa2:
X $ set def [-.news_src]
X! $ write sys$output "$ cc nntp_tcpwin"
X! $ cc/nolis/object=[-.news_build]nntp_tcpwin nntp_tcpwin
X $ set def [-.news_build]
X $ purge nntp_tcpwin.*,[-.news_src]nntp_tcpwin.*
X $pastpa2:
X--- 402,409 -----
X $ goto pastpa2
X $ dopa2:
X $ set def [-.news_src]
X! $ write sys$output "$ cc nntp_tcpwinmultinet"
X! $ cc/nolis/object=[-.news_build]nntp_tcpwinmultinet nntp_tcpwinmultinet
X $ set def [-.news_build]
X $ purge nntp_tcpwinmultinet.*,[-.news_src]nntp_tcpwinmultinet.*
X $pastpa2:
X**************
X*** 356,362
X $ write sys$output "$ cc nntp_tcpwin"
X $ cc/nolis/object=[-.news_build]nntp_tcpwin nntp_tcpwin
X $ set def [-.news_build]
X! $ purge nntp_tcpwin.*,[-.news_src]nntp_tcpwin.*
X $pastpa2:
X $ if f$search("[-.NEWS_DIST]NNTP_TCPWIN.EXE").eqs."" then $ goto dopa3
X $ if f$cvtime(f$file_attributes("NNTP_TCPWIN.OBJ","rdt")).gts.-
X--- 405,411 -----
X $ write sys$output "$ cc nntp_tcpwinmultinet"
X $ cc/nolis/object=[-.news_build]nntp_tcpwinmultinet nntp_tcpwinmultinet
X $ set def [-.news_build]
X! $ purge nntp_tcpwinmultinet.*,[-.news_src]nntp_tcpwinmultinet.*
X $pastpa2:
V $ if f$search("[-.NEWS_DIST]NNTP_TCPWINMULTINET.EXE").eqs."" then $ goto do
Xpa3
X $ if f$cvtime(f$file_attributes("NNTP_TCPWINMULTINET.OBJ","rdt")).gts.-
X**************
X*** 358,366
X $ set def [-.news_build]
X $ purge nntp_tcpwin.*,[-.news_src]nntp_tcpwin.*
X $pastpa2:
X! $ if f$search("[-.NEWS_DIST]NNTP_TCPWIN.EXE").eqs."" then $ goto dopa3
X! $ if f$cvtime(f$file_attributes("NNTP_TCPWIN.OBJ","rdt")).gts.-
V! f$cvtime(f$file_attributes("[-.NEWS_DIST]NNTP_TCPWIN.EXE","rdt")) then $
X goto dopa3
X $ if f$cvtime(f$file_attributes("NNTP_SERVER.OBJ","rdt")).gts.-
V f$cvtime(f$file_attributes("[-.NEWS_DIST]NNTP_TCPWIN.EXE","rdt")) then $
X goto dopa3
X $ goto pastpa3
X--- 407,415 -----
X $ set def [-.news_build]
X $ purge nntp_tcpwinmultinet.*,[-.news_src]nntp_tcpwinmultinet.*
X $pastpa2:
V! $ if f$search("[-.NEWS_DIST]NNTP_TCPWINMULTINET.EXE").eqs."" then $ goto do
Xpa3
X! $ if f$cvtime(f$file_attributes("NNTP_TCPWINMULTINET.OBJ","rdt")).gts.-
V! f$cvtime(f$file_attributes("[-.NEWS_DIST]NNTP_TCPWINMULTINET.EXE","rdt"))
X then $ goto dopa3
X $ if f$cvtime(f$file_attributes("NNTP_SERVER.OBJ","rdt")).gts.-
V f$cvtime(f$file_attributes("[-.NEWS_DIST]NNTP_TCPWINMULTINET.EXE","rdt"))
X then $ goto dopa3
X $ goto pastpa3
X**************
X*** 362,368
X $ if f$cvtime(f$file_attributes("NNTP_TCPWIN.OBJ","rdt")).gts.-
V f$cvtime(f$file_attributes("[-.NEWS_DIST]NNTP_TCPWIN.EXE","rdt")) then $
X goto dopa3
X $ if f$cvtime(f$file_attributes("NNTP_SERVER.OBJ","rdt")).gts.-
V! f$cvtime(f$file_attributes("[-.NEWS_DIST]NNTP_TCPWIN.EXE","rdt")) then $
X goto dopa3
X $ goto pastpa3
X $dopa3:
X $ write sys$output "$ link nntp_tcpwin,nntp_server"
X--- 411,417 -----
X $ if f$cvtime(f$file_attributes("NNTP_TCPWINMULTINET.OBJ","rdt")).gts.-
V f$cvtime(f$file_attributes("[-.NEWS_DIST]NNTP_TCPWINMULTINET.EXE","rdt"))
X then $ goto dopa3
X $ if f$cvtime(f$file_attributes("NNTP_SERVER.OBJ","rdt")).gts.-
V! f$cvtime(f$file_attributes("[-.NEWS_DIST]NNTP_TCPWINMULTINET.EXE","rdt"))
X then $ goto dopa3
X $ goto pastpa3
X $dopa3:
X $ write sys$output "$ link nntp_tcpwinmultinet,nntp_server"
X**************
X*** 365,372
V f$cvtime(f$file_attributes("[-.NEWS_DIST]NNTP_TCPWIN.EXE","rdt")) then $
X goto dopa3
X $ goto pastpa3
X $dopa3:
X! $ write sys$output "$ link nntp_tcpwin,nntp_server"
V! $ link/nomap/notrace/exe=[-.news_dist]nntp_tcpwin nntp_tcpwin,nntp_server,n
Xewsdist,-
X add_transform,newsrtl,[-.news_src]options_c_link/opt
X $ purge nntp_tcpwin.*,[-.news_dist]nntp_tcpwin.*
X $pastpa3:
X--- 414,422 -----
V f$cvtime(f$file_attributes("[-.NEWS_DIST]NNTP_TCPWINMULTINET.EXE","rdt"))
X then $ goto dopa3
X $ goto pastpa3
X $dopa3:
X! $ write sys$output "$ link nntp_tcpwinmultinet,nntp_server"
X! $ link/nomap/notrace/exe=[-.news_dist]nntp_tcpwinmultinet -
X! nntp_tcpwinmultinet,nntp_server,newsdist,-
X add_transform,newsrtl,[-.news_src]options_c_link/opt
X $ purge nntp_tcpwinmultinet.*,[-.news_dist]nntp_tcpwinmultinet.*
X $pastpa3:
X**************
X*** 368,374
X $ write sys$output "$ link nntp_tcpwin,nntp_server"
V $ link/nomap/notrace/exe=[-.news_dist]nntp_tcpwin nntp_tcpwin,nntp_server,n
Xewsdist,-
X add_transform,newsrtl,[-.news_src]options_c_link/opt
X! $ purge nntp_tcpwin.*,[-.news_dist]nntp_tcpwin.*
X $pastpa3:
X $!
X $! NEWS.HLP
X--- 418,424 -----
X $ link/nomap/notrace/exe=[-.news_dist]nntp_tcpwinmultinet -
X nntp_tcpwinmultinet,nntp_server,newsdist,-
X add_transform,newsrtl,[-.news_src]options_c_link/opt
X! $ purge nntp_tcpwinmultinet.*,[-.news_dist]nntp_tcpwinmultinet.*
X $pastpa3:
X $!
X $! NEWS.HLP
$ GOSUB UNPACK_FILE
$ FILE_IS = "NEWSCMD.DIFF"
$ CHECKSUM_IS = 1618293874
$ COPY SYS$INPUT VMS_SHARE_DUMMY.DUMMY
X*** [.news_v59_src]newscmd.cld
X--- [.news_src]newscmd.cld
X**************
X*** 36,42
X ! - ADD MAIL command
X ! - CREATE and SET NEWSGROUP/TITLE
X ! - SET NEWSGROUP/NOTICE
X! ! - Add protocol option SRITCP for SRI Multinet TCP (Mats Sundvall)
X ! V5.9 9-June-1989 GIH
X ! - Add verbs TOP and BOTTOM
X ! - SHOW NEWSGROUP/FULL as equivalent to SHOW ENTRY
X--- 36,42 -----
X ! - ADD MAIL command
X ! - CREATE and SET NEWSGROUP/TITLE
X ! - SET NEWSGROUP/NOTICE
V! ! - Add protocol option MULTINETTCP for Multinet TCP (Mats Sundvall
X)
X ! V5.9 9-June-1989 GIH
X ! - Add verbs TOP and BOTTOM
X ! - SHOW NEWSGROUP/FULL as equivalent to SHOW ENTRY
X**************
X*** 175,181
X keyword TCP
X keyword CMUTCP
X keyword WINTCP
X! keyword SRITCP
X `032
X define type TYPE_OPTIONS
X keyword NEWS
X--- 175,181 -----
X keyword TCP
X keyword CMUTCP
X keyword WINTCP
X! keyword MULTINETTCP
X `032
X define type TYPE_OPTIONS
X keyword NEWS
X**************
X*** 478,484
X define syntax SET_ITEM
X routine do_set_item
X parameter P1 label=OPTIONS, value(required)
X! parameter P2 label=NEWSITEM
X qualifier HOLD value(default="0")
X `032
X define syntax SET_MANAGER
X--- 478,484 -----
X define syntax SET_ITEM
X routine do_set_item
X parameter P1 label=OPTIONS, value(required)
X! parameter P2 label=NOTEID
X qualifier HOLD value(default="0")
X `032
X define syntax SET_MANAGER
X**************
X*** 542,547
X qualifier CLASS, negatable,value(default="MAIN")
X qualifier EDITOR, negatable,value(required,list)
X qualifier PERSONAL_NAME, negatable,value(required)
X qualifier PRINT negatable,value
X qualifier DIRECTORY negatable,value
X qualifier TEMPORARY negatable
X--- 542,549 -----
X qualifier CLASS, negatable,value(default="MAIN")
X qualifier EDITOR, negatable,value(required,list)
X qualifier PERSONAL_NAME, negatable,value(required)
X+ qualifier RCORDER`009 negatable
X+ qualifier RCFILTER negatable
X qualifier PRINT negatable,value
X qualifier DIRECTORY negatable,value
X qualifier TEMPORARY negatable
X**************
X*** 660,673
X routine do_error
V parameter P1 label=OPTIONS, prompt="_NEWS ADD>", value(requi
Xred,type=ADD_OPTIONS)
X `032
X- define verb ANSWER
X- routine do_followup
X- parameter P1, label=INFILE,value(type=$infile)
X- qualifier EDIT, negatable,default
X- qualifier EXTRACT, negatable,default
X- qualifier HEADERS, negatable
X- qualifier SELF, negatable
X-`032
X define verb ATTACH
X routine do_attach
X parameter P1, label=PROCESSNAME
X--- 662,667 -----
X routine do_error
V parameter P1 label=OPTIONS, prompt="_NEWS ADD>", value(requi
Xred,type=ADD_OPTIONS)
X `032
X define verb ATTACH
X routine do_attach
X parameter P1, label=PROCESSNAME
X**************
X*** 736,741
X qualifier OUTPUT value(required,type=$outfile)
X qualifier TITLE value(required)
X qualifier UNSEEN
X qualifier CONFERENCES, nonnegatable,syntax=DIR_CONFERENCES
X qualifier ENTRIES, nonnegatable,syntax=DIR_ENTRIES
X qualifier NOTEBOOK, nonnegatable,syntax=DIR_NOTEBOOK
X--- 730,736 -----
X qualifier OUTPUT value(required,type=$outfile)
X qualifier TITLE value(required)
X qualifier UNSEEN
X+ qualifier UNREGISTERED nonnegatable
X qualifier CONFERENCES, nonnegatable,syntax=DIR_CONFERENCES
X qualifier ENTRIES, nonnegatable,syntax=DIR_ENTRIES
X qualifier NOTEBOOK, nonnegatable,syntax=DIR_NOTEBOOK
X**************
X*** 739,745
X qualifier CONFERENCES, nonnegatable,syntax=DIR_CONFERENCES
X qualifier ENTRIES, nonnegatable,syntax=DIR_ENTRIES
X qualifier NOTEBOOK, nonnegatable,syntax=DIR_NOTEBOOK
X! disallow any2 (ALL,ITEMS,NEW,NEWSGROUPS,REGISTER,SINCE)
X `032
X define verb DISPLAY
X routine do_display_file
X--- 734,740 -----
X qualifier CONFERENCES, nonnegatable,syntax=DIR_CONFERENCES
X qualifier ENTRIES, nonnegatable,syntax=DIR_ENTRIES
X qualifier NOTEBOOK, nonnegatable,syntax=DIR_NOTEBOOK
X! disallow any2 (ALL,ITEMS,NEW,NEWSGROUPS,REGISTER,SINCE,UNREGISTERED)
X `032
X define verb DISPLAY
X routine do_display_file
X**************
X*** 782,787
X or (TITLE and SUBJECT) or (UNSEEN and UNREAD)
X `032
X define verb FOLLOWUP
X routine do_followup
X parameter P1, label=INFILE,value(type=$infile)
X qualifier EDIT, negatable,default
X--- 777,783 -----
X or (TITLE and SUBJECT) or (UNSEEN and UNREAD)
X `032
X define verb FOLLOWUP
X+ synonym ANSWER
X routine do_followup
X parameter P1, label=INFILE,value(type=$infile)
X qualifier EDIT, negatable,default
X**************
X*** 858,863
X disallow any2(NEWSGROUP,MARKER,NEW)
V or(MAIL and (NEW or MARKER or CLASSNAME or AUTOMATIC or NOTEBO
XOK))
X `032
X define verb POST
X routine do_post
X parameter P1, label=INFILE,value(type=$infile)
X--- 854,862 -----
X disallow any2(NEWSGROUP,MARKER,NEW)
V or(MAIL and (NEW or MARKER or CLASSNAME or AUTOMATIC or NOTEBO
XOK))
X `032
X+ define verb CROSSPOST
X+ routine do_xpost
X+`032
X define verb POST
X routine do_post
X parameter P1, label=INFILE,value(type=$infile)
X**************
-+-+-+-+-+ End of part 3 +-+-+-+-+-