! N E W S C M D . C L D ! ! Author: ! Geoff Huston ! Copyright © 1988 ! ! Version: ! V5.3 16-Jun-1988 GIH Add SET DISPLAY, MODIFY KILL ! MODULE NEWSCMD ! ! type definitions ! define type CLEAR_OPTIONS keyword MARK syntax=CLEAR_MARK keyword KILL syntax=CLEAR_KILL define type MODIFY_OPTIONS keyword KILL syntax=MOD_KILL define type PRINT_BFT keyword ALL default keyword ONE define type SET_OPTIONS keyword NEWSGROUP syntax=SET_NEWSGROUP keyword ITEM syntax=SET_ITEM keyword DISPLAY syntax=SET_DISPLAY define type SHOW_OPTIONS keyword NEWSGROUP syntax=SHOW_NEWSGROUP keyword ITEM syntax=SHOW_ITEM keyword MARKS syntax=SHOW_MARKS keyword KILL syntax=SHOW_KILL define type PROTOCOL_OPTIONS keyword DECNET keyword TCP ! ! syntax definitions ! define syntax CLEAR_MARK routine do_markclear parameter P1 label=OPTIONS, value(required) parameter P2 label=TAG define syntax CLEAR_KILL routine do_killclear parameter P1 label=OPTIONS, value(required) parameter P2 label=TAG define syntax MOD_KILL routine do_killmod parameter P1 label=OPTIONS, value(required) parameter P2 label=TAG define syntax DEFINE_KEY routine do_define parameter P1, prompt="Key name", value(required) parameter P2, prompt="Equivalence name", value(required) qualifier ECHO qualifier TERMINATE qualifier LOCK_STATE qualifier IF_STATE, value(required,list) qualifier SET_STATE, value(required) qualifier PROTECT disallow ((not LOCK_STATE and TERMINATE and SET_STATE) or (LOCK_STATE and not SET_STATE)) define syntax SET_ITEM routine do_set_item parameter P1 label=OPTIONS, value(required) parameter P2 label=NEWSITEM qualifier HOLD value(default="0") define syntax SET_NEWSGROUP routine do_set_newsgroup parameter P1 label=OPTIONS, value(required) parameter P2 label=GROUP qualifier HOLD value(default="0") qualifier ITEMHOLD value(default="0") qualifier MODERATOR value qualifier FILEHOLD value(default="2") qualifier SERVER value qualifier KEEPREQUEST negatable,default qualifier LOCAL qualifier PROTOCOL value(default="DECNET",type=PROTOCOL_OPTIONS) define syntax SET_DISPLAY routine do_set_display parameter P1 label=OPTIONS, value(required) qualifier SCANSIZE value(type=$number,required) define syntax SHOW_ITEM routine do_show_item parameter P1 label=OPTIONS, value(required) parameter P2 label=NEWSITEM define syntax SHOW_NEWSGROUP routine do_show_newsgroup parameter P1 label=OPTIONS, value(required) parameter P2 label=GROUP define syntax SHOW_MARKS routine do_markshow parameter P1 label=OPTIONS, value(required) parameter P2 label=TAG define syntax SHOW_KILL routine do_killshow parameter P1 label=OPTIONS, value(required) ! ! verb definition for news qualifiers and single line commands ! define verb INVOKENEWS qualifier SCREEN default parameter P1 label=COMMAND,value(type=$rest_of_line) ! ! verb definition for news command language ! define verb ADD routine do_add_net parameter P1, label=FILE,value(required,impcat,list,type=$infile) qualifier CREGRP placement=positional qualifier DELETE placement=positional qualifier RETRY placement=positional qualifier EXECUTE placement=positional qualifier DEFNEWSGROUP placement=positional,value qualifier NETFEED placement=positional,default qualifier JUNK placement=positional,negatable qualifier ACCEPT placement=positional,negatable define verb CANCEL routine do_cancel define verb CLEAR routine do_error parameter P1 label=OPTIONS, prompt="_NEWS CLEAR>", value(required,type=CLEAR_OPTIONS) define verb CREATE routine do_cregrp parameter P1, label=NEWSGROUPS,value(list) qualifier HOLD value(default= "0") qualifier ITEMHOLD value(default="0") qualifier MODERATOR value qualifier FILEHOLD value(default="2") qualifier SERVER value qualifier KEEPREQUEST negatable,default qualifier LOCAL qualifier PROTOCOL value(default="DECNET",type=PROTOCOL_OPTIONS) qualifier INQUIRE qualifier SINCE, nonnegatable,value(default="YESTERDAY",type=$datetime) define verb DEFINE routine do_error qualifier KEY, syntax=DEFINE_KEY define verb DELETE routine do_delete parameter P1, label=NEWSITEM,value(list) qualifier NEWSGROUP, value(list) qualifier IDENTIFIER, value disallow any2 (NEWSGROUP,NEWSITEM,IDENTIFIER) define verb DEREGISTER routine do_deregister parameter P1, label=NEWSGROUP qualifier ALL, nonnegatable disallow (NEWSGROUP and ALL) define verb DIRECTORY routine do_dircall qualifier ALL, nonnegatable qualifier ITEMS, nonnegatable qualifier NEW, nonnegatable qualifier NEWSGROUPS, nonnegatable qualifier REGISTER, nonnegatable qualifier RESET, nonnegatable qualifier SINCE, nonnegatable,value (default="TODAY",type=$datetime) disallow any2 (ALL,ITEMS,NEW,NEWSGROUPS,REGISTER,SINCE) define verb DOWN routine screen_cur_down parameter P1 label=LINES,value(type=$number) define verb EDIT routine do_edit parameter P1, label=FILE,value(type=$infile,required),prompt="File", define verb EXIT routine do_exit define verb EXTRACT routine do_extract parameter P1, label=FILE,value(type=$outfile) qualifier ALL, nonnegatable qualifier APPEND, nonnegatable define verb FOLLOWUP routine do_followup qualifier HEADERS, negatable qualifier SELF, negatable define verb FORWARD routine do_forward qualifier HEADERS, negatable qualifier SUBJECT, value(required) qualifier SELF, nonnegatable qualifier TO, value(impcat,required,list) qualifier EDIT, negatable,default define verb HELP routine do_help parameter P1, label=TOPIC,value(type=$rest_of_line) define verb KILL routine do_kill qualifier SUBJECT nonnegatable qualifier FROM nonnegatable qualifier HEADER value(required) define verb MAIL routine do_forward qualifier HEADERS, negatable qualifier SUBJECT, value(required) qualifier SELF, nonnegatable qualifier TO, value(impcat,required,list) qualifier EDIT, negatable,default define verb MARK routine do_mark parameter P1, label=TAG define verb MODIFY routine do_error parameter P1 label=OPTIONS, prompt="_NEWS MODIFY>", value(required,type=MODIFY_OPTIONS) define verb NEWSGROUPS routine screen_grp_display define verb NOSCREEN routine noscreen define verb OPEN routine do_selgrp parameter P1, label=NEWSGROUP qualifier NEW, nonnegatable qualifier MARK, value,nonnegatable disallow any2(NEWSGROUP,MARK,NEW) define verb POST routine do_post parameter P1, label=INFILE,value(type=$infile) qualifier EDIT, negatable,default qualifier CONTROL, negatable qualifier HEADERS, negatable qualifier NEWSGROUPS, nonnegatable, value(required,list) qualifier SUBJECT, nonnegatable, value(required) qualifier SELF, negatable define verb PRINT routine do_print parameter P1, value(list) qualifier MARK value(list) qualifier BEFORE value(default="TODAY",type=$datetime) qualifier CONFIRM qualifier SINCE value(default="TODAY",type=$datetime) qualifier NAME value(required) qualifier NOTE value(required) qualifier NOTIFY qualifier PRIORITY value(required) qualifier AFTER value(required,type=$datetime) qualifier CHARACTERISTICS value(required,list) qualifier FORM value(required) qualifier HOLD qualifier JOB_COUNT value(required) qualifier LOWERCASE qualifier OPERATOR value(required) qualifier PARAMETERS value(required,list) qualifier QUEUE value (required) qualifier RESTART qualifier BURST value(type=PRINT_BFT) qualifier COPIES value(required) qualifier FEED qualifier FLAG value(type=PRINT_BFT) qualifier HEADER qualifier PASSALL qualifier SETUP value(required,list) qualifier SPACE qualifier TRAILER value(type=PRINT_BFT) disallow P1 AND MARK define verb QUIT routine do_quit define verb READ routine do_read parameter P1, label=NEWSITEM qualifier HEADER, nonnegatable qualifier NEW, nonnegatable qualifier TPU, nonnegatable qualifier EDITOR, nonnegatable qualifier ROT13, nonnegatable qualifier NEXT, nonnegatable qualifier BACK, nonnegatable qualifier LAST, nonnegatable qualifier PARENT, nonnegatable qualifier PREV, nonnegatable qualifier IDENTIFIER, value,nonnegatable qualifier MARK, value,nonnegatable qualifier FOLLOWUP, value,nonnegatable disallow any2(PREV,BACK,NEWSITEM,NEXT,LAST,PARENT,IDENTIFIER,MARK,FOLLOWUP) define verb REFRESH routine do_refresh define verb REGISTER routine do_register parameter P1, label=NEWSGROUP qualifier ALL, nonnegatable qualifier NEW, nonnegatable qualifier LOCAL, nonnegatable qualifier NETGROUPS, nonnegatable qualifier SINCE, nonnegatable,value (default="TODAY",type=$datetime) qualifier BEFORE, nonnegatable,value (default="TODAY",type=$datetime) qualifier PRIORITY, value qualifier CONFIRM qualifier RECORD disallow any2(ALL,NEW,NEWSGROUP,SINCE,BEFORE,LOCAL,NETGROUPS) define verb REPLY routine do_reply qualifier HEADERS, negatable qualifier SUBJECT, value(required) qualifier SELF, nonnegatable define verb SCREEN routine init_screen define verb SEARCH routine do_search parameter P1, label=target qualifier HEADER, nonnegatable qualifier TPU, nonnegatable qualifier EDIT, nonnegatable qualifier DISPLAY, negatable qualifier NEWSGROUPS, nonnegatable, value(required,list) define verb SELECT routine do_selgrp parameter P1, label=NEWSGROUP qualifier NEW, nonnegatable qualifier MARK, value,nonnegatable disallow any2(NEWSGROUP,MARK,NEW) define verb SET routine do_error parameter P1 label=OPTIONS, prompt="_NEWS SET>", value(required,type=SET_OPTIONS) define verb SHOW routine do_error parameter P1 label=OPTIONS, prompt="_NEWS SHOW>", value(required,type=SHOW_OPTIONS) define verb SKIM routine do_skim parameter P1, label=GROUPS,value(list) qualifier ITEMS negatable qualifier FILES negatable qualifier NEWSGROUPS negatable qualifier SERVED negatable qualifier ARCHIVE value(type=$outfile) qualifier HISTORY value(default="45") define verb SKIP routine do_skip parameter P1, label=NEWG qualifier NEWSGROUP nonnegatable qualifier POINTER nonnegatable qualifier ALL nonnegatable qualifier FOLLOWUP nonnegatable qualifier BEFORE value (default="TODAY",type=$datetime) disallow any2(NEWSGROUP,ALL,NEWG,POINTER,FOLLOWUP) define verb SPAWN routine do_spawn define verb UNMARK routine do_unmark parameter P1, label=TAG define verb UNREAD routine do_unread qualifier ALL nonnegatable define verb UP routine screen_cur_up parameter P1 label=LINES,value(type=$number) define verb VERSION routine do_version