COMPILATION LISTING OF SEGMENT dm_translate_system_config_ Compiled by: Multics PL/I Compiler, Release 28e, of February 14, 1985 Compiled at: Honeywell Multics Op. - System M Compiled on: 03/17/86 1446.6 mst Mon Options: optimize map 1 2 3 /* * * * * * * * * * * * * * * * * * * * * * * */ 4 /* */ 5 /* COMPILED OUTPUT OF SEGMENT dm_translate_system_config_.rd */ 6 /* Compiled by: reduction_compiler, Version 2.5 of Oct 21, 1985 */ 7 /* Compiled on: 03/17/86 1446.6 mst Mon */ 8 /* */ 9 /* * * * * * * * * * * * * * * * * * * * * * * */ 10 11 /* *********************************************************** 12* * * 13* * Copyright, (C) Honeywell Information Systems Inc., 1983 * 14* * * 15* *********************************************************** */ 16 17 /* DESCRIPTION: 18* dm_translate_system_config_ - program to extract DMS configuration 19* data from an ascii segment and return a pointer to a structure which 20* summarizes the configuration parameters. 21**/ 22 23 /* HISTORY: 24*Written by M. Pandolf, December 1982. 25*Modified: 26*03/15/83 by M. Pandolf: for default before journal keywords and for 27* logging process terminations. 28*05/05/83 by L. A. Newcomb: added recovery_check_mode and fixed the old 29* subsystem_inhibit to be subsystem_disposition. NOTE: work 30* needs to be done on error reporting for duplicate settings, 31* such as specifying "^recover, recovery_check_mode". 32*11/04/83 by M. Pandolf: to check to see if default before journal ends in ".bj" 33*05/29/84 by Lindsey Spratt: Changed to use version 2 dm_system_config. 34* Removed several elements of the config, to whit; maximum 35* number_of_before_journals, inhibit subsystem, and daemon error 36* trace. None of these were in use. 37*06/12/84 by Lindsey Spratt: Added code for shutdown_delay. Changed to check 38* for before_journal_size > 2 instead of 0. 39**/ 40 /* format: style4,indattr,ifthenstmt,ifthen,^indcomtxt,idind33 */ 41 42 /* 43* The DM configuration file contains information used at data management initialization 44* time to configure the system to site dependent parameters. These 45* parameters override the values built in to the CDS named 46* "dm_system_data_". 47* 48* The form of the DM configuration file is as follows: 49* 50* <DM config file> ::= [<spec>]...<end statement> 51* <spec> ::= <default before journal size> | 52* <maximum number of processes> | 53* <maximum number of transactions> | 54* <default before journal> | 55* <previous bootload status> | 56* <current bootload enable> | 57* <daemon idle timeout> | 58* <shutdown delay> | 59* <daemon log proc terms> 60* <default before journal size> ::= 61* system_before_journal_size: <decimal integer>; 62* <maximum number of processes> ::= 63* max_processes: <decimal integer>; 64* <maximum number of transactions> ::= 65* max_transactions: <decimal integer>; 66* <default before journal> ::= 67* default_before_journal: <path spec>; 68* <previous bootload status> ::= 69* prev_bootload_status: <status option>[,<status option>]...; 70* <current bootload enable> ::= 71* current_bootload_enable: force | ^force; 72* <daemon idle timeout local> ::= 73* idle_timeout: <decimal integer>; 74* <shutdown delay> ::= 75* shutdown_delay: <decimal integer>; 76* <daemon log proc terms> ::= 77* log_proc_terms: on | off; 78* <end statement> ::= end; 79* 80* <path spec> ::= dir=<path> | entry=<segment name> | 81* dir=<path>,entry=<segment name> | 82* entry=<segment name>,dir=<path> | <null string> 83* 84* <status option> ::= hold | adopt | recover | recovery_check_mode | ^hold | ^adopt | ^recover | ^recovery_check_mode 85* 86* <path> ::= <absolute pathname> | aim_dir | bootload_dir. 87*/*++ 88* 89*BEGIN 90*1 / system_before_journal_size : <decimal-integer> ; / 91* LEX(2) [ if token.Nvalue > 2 92* then dm_system_config.default_bj_size = token.Nvalue; 93* else call ERROR(4)] 94* LEX(2) / BEGIN \ 95* 96*2 / system_before_journal_size <any-token> / 97* LEX(2) ERROR(4) NEXT_STMT / BEGIN \ 98* 99*3 / system_before_journal_size <no-token> / 100* ERROR(8) / BEGIN \ 101* 102*4 / max_processes : <decimal-integer> ; / 103* LEX(2) [ if token.Nvalue > 0 104* then dm_system_config.max_n_proc = token.Nvalue; 105* else call ERROR(4)] 106* LEX(2) / BEGIN \ 107* 108*5 / max_processes <any-token> / 109* LEX(2) ERROR(4) NEXT_STMT / BEGIN \ 110* 111*6 / max_processes <no-token> / 112* ERROR(8) / BEGIN \ 113* 114*7 / max_transactions : <decimal-integer> ; / 115* LEX(2) [ if token.Nvalue > 0 116* then dm_system_config.max_n_txn = token.Nvalue; 117* else call ERROR(4)] 118* LEX(2) / BEGIN \ 119* 120*8 / max_transactions <any-token> / 121* LEX(2) ERROR(4) NEXT_STMT / BEGIN \ 122* 123*9 / max_transactions <no-token> / 124* ERROR(8) / BEGIN \ 125* 126*10 / idle_timeout : <decimal-integer> ; / 127* LEX(2) [ if token.Nvalue > 0 128* then dm_system_config.idle_timeout = token.Nvalue; 129* else call ERROR(4)] 130* LEX(2) / BEGIN \ 131* 132*11 / idle_timeout <any-token> / 133* LEX(2) ERROR(4) NEXT_STMT / BEGIN \ 134* 135*12 / idle_timeout <no-token> / 136* ERROR(8) / BEGIN \ 137* 138*13 / shutdown_delay : <date_time_offset> ; / 139* LEX(2) [ dm_system_config.shutdown_delay = convert_date_time_offset(); 140*] 141* LEX(2) / BEGIN \ 142* 143*14 / shutdown_delay <any-token> / 144* LEX(2) ERROR(4) NEXT_STMT / BEGIN \ 145* 146*15 / shutdown_delay <no-token> / 147* ERROR(8) / BEGIN \ 148* 149*16 / default_before_journal : / 150* LEX(2) / path_spec \ 151* 152*17 / prev_bootload_status : / 153* [save_prev_dm_disp = dm_system_config.prev_dm_disp] 154* LEX(2) / status_spec \ 155* 156*18 / current_bootload_enable : force ; / 157* [dm_system_config.curr_dm_enable = DM_FORCE_ENABLE_NEW_BOOTLOAD] LEX(4) / BEGIN \ 158* 159*19 / current_bootload_enable : ^force ; / 160* [dm_system_config.curr_dm_enable = DM_DO_NOT_FORCE_ENABLE_NEW_BOOTLOAD] LEX(5) / BEGIN \ 161* 162*20 / current_bootload_enable <any-token> / 163* LEX(2) ERROR(4) NEXT_STMT / BEGIN \ 164* 165*21 / current_bootload_enable <no-token> / 166* ERROR(8) / BEGIN \ 167* 168*22 / log_proc_terms : on ; / 169* [dm_system_config.log_proc_terms = "1"b] LEX(4) / BEGIN \ 170* 171*23 / log_proc_terms : off ; / 172* [dm_system_config.log_proc_terms = "0"b] LEX(4) / BEGIN \ 173* 174*24 / log_proc_terms <any-token> / 175* LEX(2) ERROR(6a.actc.ab.ca>$QT$ns SERVER : TO:<Schroth@multics>$RTDns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$STz,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$TT8)in SMTP : [ 0: 0:30] ACTC.AB.CA (0)$UTx.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$VTc$ns SERVER : TO:<Schroth@multics>$WT}Dns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$XT,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$YTS)in SMTP : [ 0: 0:34] ACTC.AB.CA (0)$ZT!.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$[TK$ns SERVER : TO:<Schroth@multics>$\TMDns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$]T,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$^T)in SMTP : [ 0: 0:32] ACTC.AB.CA (0)$_Tw.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$`Te$ns SERVER : TO:<Schroth@multics>$aT"ADns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$bT#',ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$cT)in SMTP : [ 0: 0:33] ACTC.AB.CA (0)$dT.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$eTW$ns SERVER : TO:<Schroth@multics>$fTWDns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$gT+,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$hT%)in SMTP : [ 0: 0:33] ACTC.AB.CA (0)$iT'c.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$jT(>a$ns SERVER : TO:<Schroth@multics>$kT3Dns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$lT4V,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$mT)in SMTP : [ 0: 0:35] ACTC.AB.CA (0)$nTY.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$oTq$ns SERVER : TO:<Schroth@multics>$pToDns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$qT-,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$rTB)in SMTP : [ 0: 0:34] ACTC.AB.CA (0)$sTF.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$tTGW$ns SERVER : TO:<Schroth@multics>$uTSFDns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$vTT,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$wT;{)in SMTP : [ 0: 0:35] ACTC.AB.CA (0)$xT .ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$yT8$ns SERVER : TO:<Schroth@multics>$zTDns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>${T,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$|T] )in SMTP : [ 0: 0:32] ACTC.AB.CA (0)$}T_b.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$~T`q$ns SERVER : TO:<Schroth@multics>$Tf%in IPX25 : NRESETIND read wakeup$TfM%in IPX25 : NRESETIND read wakeup$T{Dns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$T|,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$T)in SMTP : [ 0: 0:34] ACTC.AB.CA (0)$T.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$Tb$ns SERVER : TO:<Schroth@multics>$TX%in IPX25 : NRESETIND read wakeup$Td%in IPX25 : NRESETIND read wakeup$TU2Dns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$Tb,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$T3)in SMTP : [ 0: 0:35] ACTC.AB.CA (0)$T.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$T$ns SERVER : TO:<Schroth@multics>$TDns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$T,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$TW)in SMTP : [ 0: 0:34] ACTC.AB.CA (0)$TX.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$TY\$ns SERVER : TO:<Schroth@multics>$TfrDns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$TgIs,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$T}&)in SMTP : [ 0: 0:33] ACTC.AB.CA (0)$T.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$T($ns SERVER : TO:<Schroth@multics>$TN%in IPX25 : NRESETIND read wakeup$T%in IPX25 : NRESETIND read wakeup$TDns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$TFF,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$T~)in SMTP : [ 0: 0:34] ACTC.AB.CA (0)$Tm.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$TB$ns SERVER : TO:<Schroth@multics>$TVDns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$T,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$Tn)in SMTP : [ 0: 0:35] ACTC.AB.CA (0)$Tv0.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$TC$ns SERVER : TO:<Schroth@multics>$T%in IPX25 : NRESETIND read wakeup$T*%in IPX25 : NRESETIND read wakeup$T5=Dns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$T5d,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$T.)in SMTP : [ 0: 0:34] ACTC.AB.CA (0)$Tj.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$Tt$ns SERVER : TO:<Schroth@multics>$TDns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$TZ,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$TAa)in SMTP : [ 0: 0:35] ACTC.AB.CA (0)$TC).ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$TC$ns SERVER : TO:<Schroth@multics>$TWIDns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$TXB,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$Tt)in SMTP : [ 0: 0:36] ACTC.AB.CA (0)$TW.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$T$ns SERVER : TO:<Schroth@multics>$TJDns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$T-,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$Tc )in SMTP : [ 0: 0:33] ACTC.AB.CA (0)$Te.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$Te'$ns SERVER : TO:<Schroth@multics>$Tt9_Dns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$TuZ,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$Tu)in SMTP : [ 0: 0:33] ACTC.AB.CA (0)$T4.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$Th$ns SERVER : TO:<Schroth@multics>$TYDns MAILER : From:<Network_Server.Daemon@ACTC_MULTICS.ACTC.AB.CA>$T,ns MAILER : To:<Jim_Gee@L66A.ACTC.AB.CA>$Tpyj)in SMTP : [ 0: 0:31] ACTC.AB.CA (0)$Tre^.ns SERVER : FROM:<Jim_Gee@l66a.actc.ab.ca>$Tsn$ns SERVER : TO:<Schroth@multics>$TDns MAILER : Fromns $HTj=:3ns SMTP Server: Starting TCP service on port 25.$ITj?6Yns r 07:26 3.222 45$JTj??ns $KTjS00in IPX25 : Waiting for X25 connect request.$LTmnE in QUIT$MTm)Iin r 07:33 1.017 15 level 2$NTm1in $OTm%6in Internet.Daemon (in) logged in via login daemon.$PTmin $QTm}Din Waiting for Network_Mailer and Network_Server to logout.$RTm nin $STm!in * Begin Internet Services *$TTmin $UTmO&in < Start Network Driver To Mars >$VTmWin $WTm$in IP X25 Driver Service started.$XTm$&in IP X25 Listener Service started.$YTmEWin $ZTmMyin < Start TCP Service >$[TmS\in $\Tm[in < Start UDP Service >$]Tmin $^Tmin < Start ICMP Service >$_Tmin $`Tmin < Start TELNET Service >$aTmjin $bTm@5in TELNET Server: Starting TCP service on port 23.$cTmIgin $dTmRin < Start FINGER Service >$eTm[in $fTmf5in FINGER Server: Starting TCP service on port 79.$gTmin $hTmin < Start FTP Service >$iTmin $jTmR2in FTP Server: Starting TCP service on port 21.$kTm]in $lTmdin < Start CHARGEN Service >$mTmlin $nTm6in CHARGEN Server: Starting UDP service on port 19.$oTmin $pTmin < Start DAYTIME Service >$qTmin $rTm6in DAYTIME Server: Starting UDP service on port 13.$sTm=9in $tTmDin < Start RECHO Service >$uTmLin $vTmzH3in RECHO Server: Starting UDP service on port 7.$wTmin $xTmin < Start RLOGIN Service >$yTmin $zTmA6in RLOGIN Server: Starting TCP service on port 513.${Tmin $|Tm9in < Start the Network_Mailer/Network_Server daemons >$}Tmin $~Tm,in $Tm'in * Internet Services Established *$Tmin r 07:34 5.618 47$Tm)_in $Tma<in IPX25 : (New) Connect wakeup received from devx 252.$TmlE4in IPX25 : (New) Connect complete for devx 252.$Tmbns $Tmjns < Start SMTP Service >$Tmr]ns $Tmw3ns SMTP Server: Starting TCP service on port 25.$Tm)ns r 07:34 3.053 36$Tmns $Tm5;nm MAILER : From:<Falck.Office@ACTC_MULTICS.ACTC.AB.CA>$Tm5nm MAILER : To:<62146@UCDASVM1.ADMIN.UCALGARY.CA>$Tn )in SMTP : [ 0: 1: 7] ACTC.AB.CA (3)$Tn_@nm MAILER : From:<Thibodeaux.SiteSA@ACTC_MULTICS.ACTC.AB.CA>$Tnd?nm MAILER : To:<@ACTC.AB.CA:Thibodeaux@DOCKMASTER.NCSC.MIL>$Tq,in TELNET : [ 0: 7:25] 192.94.126.50 (3)$Tq)in SMTP : [ 0: 8:33] ACTC.AB.CA (4)$Tq8@nm MAILER : From:<Thibodeaux.SiteSA@ACTC_MULTICS.ACTC.AB.CA>$Tq?nm MAILER : To:<@ACTC.AB.CA:Thibodeaux@DOCKMASTER.NCSC.MIL>$Ts)in SMTP : [ 0: 3:46] ACTC.AB.CA (0)6] ACTC.AB.CA (0)$Tt!Pnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:/CENTRAL.WGLACTC@l66a.actc.ab.ca>$Tt,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tt-)in SMTP : [ 0: 0: 6] ACTC.AB.CA (0)$Tt2;nm MAILER : From:<Post.Multics@ACTC_MULTICS.ACTC.AB.CA>$Tt&nm MAILER : To:<gfilyk@HALNET.COM>$Tt)in SMTP : [ 0: 0:12] ACTC.AB.CA (0)$Ttw?nm MAILER : From:<Fournier.Multics@ACTC_MULTICS.ACTC.AB.CA>$Tt,nm MAILER : To:<umkeach@CC.UMANITOBA.CA>$Tu)in SMTP : [ 0: 0: 8] ACTC.AB.CA (0)$TuPnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:/CENTRAL.WGLACTC@l66a.actc.ab.ca>$Tuv,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tu2)in SMTP : [ 0: 0: 9] ACTC.AB.CA (0)$Tu6B=?nm MAILER : From:<Fournier.Multics@ACTC_MULTICS.ACTC.AB.CA>$Tu7'nm MAILER : To:<help@ANON.PENET.FI>$Tu@4)in SMTP : [ 0: 0: 3] ACTC.AB.CA (0)$TuD>?nm MAILER : From:<Fournier.Multics@ACTC_MULTICS.ACTC.AB.CA>$TuEQ-nm MAILER : To:<umkeach@CCU.UMANITOBA.CA>$Tua)in SMTP : [ 0: 0: 8] ACTC.AB.CA (0)$Tuh?nm MAILER : From:<Maucieri.Multics@ACTC_MULTICS.ACTC.AB.CA>$Tui(nm MAILER : To:<magar@SW.STATUS.COM>$Tu_)in SMTP : [ 0: 0:14] ACTC.AB.CA (0)$TuyKnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:SMTP_Mailer@l66a.actc.ab.ca>$Tu\,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tu=)ns SERVER : From:<mailer-daemon@actc>$Tu2ns SERVER : To:<Maucieri.Multics@ACTC_MULTICS>$Tu)in SMTP : [ 0: 0: 5] ACTC.AB.CA (0)$Tuz)in SMTP : [ 0: 0:20] ACTC.AB.CA (0)$TuGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Tu1,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$TuK)in SMTP : [ 0: 0:25] ACTC.AB.CA (0)$TuNYGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$TuO,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tu)in SMTP : [ 0: 0:26] ACTC.AB.CA (0)$Tu"Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Tu,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tv')in SMTP : [ 0: 0:25] ACTC.AB.CA (0)$TvGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$TvY,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tvk+ns SERVER : From:<magar@sw.stratus.com>$Tvl%ns SERVER : To:<maucieri@multics>$Tvv4f)in SMTP : [ 0: 0: 3] ACTC.AB.CA (0)$Tvxn)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$Tv|Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Tv~f,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tv)in SMTP : [ 0: 0:24] ACTC.AB.CA (0)$TvGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Tv ,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tv?)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$TvCQGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$TvD,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tv)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$TvGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Tva,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tw)in SMTP : [ 0: 0:27] ATo:<Dave.Schroth@ACTC.AB.CA>$5TzJ)in SMTP : [ 0: 0:29] ACTC.AB.CA (0)$6TzNikGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$7TzO,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$8Tz)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$9TzGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$:TzZ,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$;T{!)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$<T{&pGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$=T{',nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$>T{t)in SMTP : [ 0: 0:29] ACTC.AB.CA (0)$?T{Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$@T{ ,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$AT{[)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$BT{kGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$CT{l,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$DT{h >)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$ET{v<Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$FT{wVC,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$GT{)in SMTP : [ 0: 0:30] ACTC.AB.CA (0)$HT{jGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$IT{ Y,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$JT|DV&)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$KT|LjGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$LT|M,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$MT|W+ns SERVER : From:<magar@sw.stratus.com>$NT|Xk$ns SERVER : To:<willott@multics>$OT|f)in SMTP : [ 0: 0: 4] ACTC.AB.CA (0)$PT|)in SMTP : [ 0: 0:24] ACTC.AB.CA (0)$QT|jGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$RT|,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$ST| )in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$TT|nGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$UT| ,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$VT|v)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$WT|zu;Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$XT|{,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$YT|)in SMTP : [ 0: 0:25] ACTC.AB.CA (0)$ZT|Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$[T|*,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$\T}:z)in SMTP : [ 0: 0:26] ACTC.AB.CA (0)$]T}> Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$^T}?,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$_T}X)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$`T}Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$aT},nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$bT} )in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$cT}/Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$dT}L,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$eT}z4!)in SMTP : [ 0: 0:29] ACTC.AB.CA (0)$fT}}^Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$gT}~%,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$hT})in SMTP : [ 0: 0:26] ACTC.AB.CA (0)$iT}ZGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Tl,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tj#)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$ToF Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$TpK,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tz)in SMTP : [ 0: 0: 4] ACTC.AB.CA (0)$T~AGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T-,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tb=)in SMTP : [ 0: 0:14] ACTC.AB.CA (0)$T Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T)t,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T7)in SMTP : [ 0: 0:24] ACTC.AB.CA (0)$T(Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$TA,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tn)in SMTP : [ 0: 0:24] ACTC.AB.CA (0)$TsiGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Tt,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tm)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$TjZGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$TC)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$TGY Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$TH,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tc)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$T)eGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Td-,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$TL)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$TGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tv)in SMTP : [ 0: 0:26] ACTC.AB.CA (0)$Tzx Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T{J,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tn)in SMTP : [ 0: 0:22] ACTC.AB.CA (0)$TaGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Tz%,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T5s)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$T:@dGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T;Wo,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$TdHGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T(,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$T {Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T ),nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Ttg\)in SMTP : [ 0: 0:29] ACTC.AB.CA (0)$Tx{fGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Ty,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T!)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$TGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T+,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T:)in SMTP : [ 0: 0:24] ACTC.AB.CA (0)$T=QGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T>J,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Td)in ,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$ T.)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$ T6Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$ TJf,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$ T])in SMTP : [ 0: 0:26] ACTC.AB.CA (0)$TaGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Tb6,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$TT)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$TGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$TN)in SMTP : [ 0: 0:35] ACTC.AB.CA (0)$TuFiGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Tvz,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T)in SMTP : [ 0: 0:35] ACTC.AB.CA (0)$T!Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Te,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T<s)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$TC}Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$TD,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$T7Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$TQ!,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$TT)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$ TGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$!T,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$"TqyU)in SMTP : [ 0: 0:25] ACTC.AB.CA (0)$#Tv<Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$$TwVC,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$%T Q)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$&T2UGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$'TP,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$(T@*)in SMTP : [ 0: 0:26] ACTC.AB.CA (0)$)TG:Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$*TH,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$+Tn)in SMTP : [ 0: 0:19] ACTC.AB.CA (0)$,TcGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$-T?,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$.T)in SMTP : [ 0: 0:36] ACTC.AB.CA (0)$/T;Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$0TY,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$1T}$@)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$2TGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$3T,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$4T)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$5TfGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$6T8,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$7TX-)in SMTP : [ 0: 0:29] ACTC.AB.CA (0)$8T\pGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$9T],nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$:T)in SMTP : [ 0: 0:23] ACTC.AB.CA (0)$;TGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$<TV,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$=T#)in SMTP : [ 0: 0:30] ACTC.AB.CA (0)$>T)NbGnm MAe containing comment. */ 4 32 3 S, /* switches: */ 4 33 4 before_stmt bit(1), /* comment is before 1st token of stmt. */ 4 34 4 contiguous bit(1), /* no tokens between this and last comment. */ 4 35 4 pad bit(16), 4 36 comment_value char(comment.Lvalue) based (comment.Pvalue), 4 37 /* body of comment. */ 4 38 Pcomment ptr; /* ptr to comment descriptor. */ 4 39 4 40 dcl 4 41 1 stmt aligned based (Pstmt), 4 42 /* descriptor for a statement. */ 4 43 2 group1 unaligned, 4 44 3 version fixed bin(17), /* statement descriptor version. */ 4 45 3 size fixed bin(17), /* statement descriptor size (in words). */ 4 46 2 Pnext ptr unal, /* ptr to next statement descriptor. */ 4 47 2 Plast ptr unal, /* ptr to last statement descriptor. */ 4 48 2 Pvalue ptr unal, /* ptr to statement. */ 4 49 2 Lvalue fixed bin(18), /* length of statement. */ 4 50 2 Pfirst_token ptr unal, /* ptr to 1st token of statement. */ 4 51 2 Plast_token ptr unal, /* ptr to last token of statement. */ 4 52 2 Pcomments ptr unal, /* ptr to comments in statement. */ 4 53 2 Puser ptr unal, /* user-defined ptr. */ 4 54 2 group2 unaligned, 4 55 3 Ntokens fixed bin(17), /* number of tokens in statement. */ 4 56 3 line_no fixed bin(17), /* line no of line on which statement begins. */ 4 57 3 Istmt_in_line fixed bin(17), /* number of stmts in line containing this stmt. */ 4 58 /* (the number includes this stmt.) */ 4 59 3 semant_type fixed bin(17), /* semantic type of the statement. */ 4 60 3 S, /* switches: */ 4 61 4 error_in_stmt bit(1), /* stmt contains a syntactic error. */ 4 62 4 output_in_err_msg bit(1), /* stmt has been output in previous error message.*/ 4 63 4 pad bit(34), 4 64 stmt_value char(stmt.Lvalue) based (stmt.Pvalue), 4 65 /* text of the statement. */ 4 66 Pstmt ptr; /* ptr to a stmt descriptor. */ 4 67 4 68 dcl 4 69 1 token aligned based (Ptoken), 4 70 /* descriptor for a token. */ 4 71 2 group1 unaligned, 4 72 3 version fixed bin(17), /* token descriptor version. */ 4 73 3 size fixed bin(17), /* token descriptor size (in words). */ 4 74 2 Pnext ptr unal, /* ptr to next token descriptor. */ 4 75 2 Plast ptr unal, /* ptr to last token descriptor. */ 4 76 2 Pvalue ptr unal, /* ptr to token. */ 4 77 2 Lvalue fixed bin(18), /* length of token. */ 4 78 2 Pstmt ptr unal, /* ptr to descriptor of stmt containing token. */ 4 79 2 Psemant ptr unal, /* ptr to descriptor(s) of token's semantic value.*/ 4 80 2 group2 unaligned, 4 81 3 Itoken_in_stmt fixed bin(17), /* position of token within its statement. */ 4 82 3 line_no fixed bin(17), /* line number of the line containing the token. */ 4 83 3 Nvalue fixed bin(35), /* numeric value of decimal-integer tokens. */ 4 84 3 S, /* switches: */ 4 85 4 end_of_stmt bit(1), /* token is an end-of-stmt token. */ 4 86 4 quoted_string bit(1), /* token is a quoted string. */ 4 87 4 quotes_in_string bit(1), /* on if quote-close delimiters appear in quoted */ 4 88 /* string (as doubled quotes on input.) */ 4 89 4 quotes_doubled bit(1), /* on if quotes in the string are doubled after */ 4 90 /* string has been lexed into a token. */ 4 91 4 pad2 bit(32), 4 92 token_value char(token.Lvalue) based (token.Pvalue), 4 93 /* value of the token. */ 4 94 Ptoken ptr; /* ptr to a token descriptor. */ 4 95 4 96 /* END OF: lex_descriptors_.incl.pl1 * * * * * * */ 3 25 3 26 3 27 /* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * * * * * */ 3 28 3 29 3 30 SEMANTIC_ANALYSIS: procedure; /* procedure which analyzes the syntax and */ 3 31 /* semantics of the tokens in the input list. */ 3 32 3 33 dcl /* automatic variables */ 3 34 LTOKEN_REQD_VALUE fixed bin(18), /* length of a token requirement. */ 3 35 NRED fixed bin, /* number of the reduction tokens are being */ 3 36 /* compared to. */ 3 37 PRED ptr, /* ptr to the reduction tokens are being */ 3 38 /* compared to. */ 3 39 PTOKEN_REQD ptr, /* ptr to token requirement descriptor associated */ 3 40 /* with reduction tokens are being compared to. */ 3 41 PTOKEN_REQD_VALUE ptr, /* ptr to a token requirement. */ 3 42 STOKEN_FCN bit(1) aligned, /* return value from a relative syntax function. */ 3 43 CODE fixed bin(35), /* an error code. */ 3 44 I fixed bin, /* a do-group index. */ 3 45 NUMBER fixed bin(35); /* fixed binary representation of a decimal */ 3 46 /* number character string. */ 3 47 3 48 dcl /* based variables */ 3 49 1 RED aligned based (PRED), 3 50 /* descriptor for reduction tokens are being */ 3 51 /* compared to. */ 3 52 2 TOKEN_REQD unaligned, 3 53 3 IFIRST fixed bin(17) unal, /* index of first token requirement. */ 3 54 3 ILAST fixed bin(17) unal, /* index of last token requirement associated */ 3 55 /* with this reduction. */ 3 56 1 TOKEN_REQD aligned based (PTOKEN_REQD), 3 57 /* a token requirement descriptor. */ 3 58 2 FORM fixed bin(17) unal, /* form of the token requirement: */ 3 59 /* -1 = relative token requirement function; */ 3 60 /* TYPE = index of the particular token */ 3 61 /* function in the token_fcn array. */ 3 62 /* 0 = built-in token requirement function; */ 3 63 /* TYPE = as defined below. */ 3 64 /* >0 = absolute token requirement: */ 3 65 /* FORM = index(TOKEN_STRINGS,TOKEN_REQD); */ 3 66 /* TYPE = length(TOKEN_REQD); */ 3 67 2 TYPE fixed bin(17) unal, /* TYPE of built-in token requirement function: */ 3 68 /* 1 = compile test to see if input token */ 3 69 /* chain is exhausted (<no-token>). */ 3 70 /* 2 = compile test for any token value */ 3 71 /* (<any-token>). */ 3 72 /* 3 = compile test for a PL/I identifier */ 3 73 /* (<name>) of 32 or fewer characters. */ 3 74 /* 4 = compile test for token which is a */ 3 75 /* <decimal-integer>. */ 3 76 /* 5 = compile test for token which is a single */ 3 77 /* backspace character (<BS>). */ 3 78 /* 6 = compile test for a token which is a */ 3 79 /* <quoted-string>. */ 3 80 3 81 1 TOKEN_REQD_STRING aligned based (PTOKEN_REQD), 3 82 /* overlay for an absolute token requirement */ 3 83 /* descriptor. */ 3 84 2 I fixed bin(17) unal, /* index into list of token strings of the */ 3 85 /* absolute token string assoc w/ descriptor. */ 3 86 2 L fixed bin(17) unal, /* length of the absolute token string. */ 3 87 TOKEN_REQD_VALUE char(LTOKEN_REQD_VALUE) based (PTOKEN_REQD_VALUE); 3 88 /* absolute token string which token is reqd */ 3 89 /* to match in order for tokens which are */ 3 90 /* "current" on the list to match the reduction. */ 3 91 3 92 dcl /* builtin functions */ 3 93 (addr, max, null, search, substr, verify) 3 94 builtin; 3 95 3 96 dcl /* entries */ 3 97 cv_dec_check_ entry (char(*), fixed bin(35)) returns (fixed biTP : [ 0: 0:24] ACTC.AB.CA (0)$T <Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T !,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Ti)in SMTP : [ 0: 0:25] ACTC.AB.CA (0)$Tl7Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Tm],nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T)in SMTP : [ 0: 0:13] ACTC.AB.CA (0)$T/Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T8u,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T)in SMTP : [ 0: 0:13] ACTC.AB.CA (0)$T_Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Tfx,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T)in SMTP : [ 0: 0:11] ACTC.AB.CA (0)$TTGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Th/)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$TkRGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$Tls:,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T)in SMTP : [ 0: 0:16] ACTC.AB.CA (0)$T]Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T!,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T9)in SMTP : [ 0: 0:23] ACTC.AB.CA (0)$TuGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T(,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T<L)in SMTP : [ 0: 0:15] ACTC.AB.CA (0)$TEaGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$TG,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$TAGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T`,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tt)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$TGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$TS,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$Tn~)in SMTP : [ 0: 0:24] ACTC.AB.CA (0)$Tn:F,in TELNET : [ 0: 3:32] 192.94.126.54 (3)$Tr?Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$TsZ,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$TX)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$T/Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$TC#,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$TEk)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$THGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$TI%,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$TkGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T#)in SMTP : [ 0: 0:25] ACTC.AB.CA (0)$T:Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$T/b)in SMTP : [ 0: 0: 8] ACTC.AB.CA (0)$T3@Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T4s1,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$TS)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$T1Gnm MAILER : From:<@A */ 711 76, 79, /* 31/ dir = <absolute_path> ; */ 712 80, 83, /* 32/ dir = <absolute_path> , */ 713 84, 86, /* 33/ dir = <any-token> */ 714 87, 90, /* 34/ entry = <before_journal_name> ; */ 715 91, 94, /* 35/ entry = <before_journal_name> , */ 716 95, 97, /* 36/ entry = <any-token> */ 717 6, 6, /* 37/ <any-token> */ 718 8, 8, /* 38/ <no-token> */ 719 98, 99, /* 39/ hold ; */ 720 100, 101, /* 40/ hold , */ 721 102, 103, /* 41/ hold <any-token> */ 722 104, 106, /* 42/ ^ hold ; */ 723 107, 109, /* 43/ ^ hold , */ 724 110, 112, /* 44/ ^ hold <any-token> */ 725 113, 114, /* 45/ adopt ; */ 726 115, 116, /* 46/ adopt , */ 727 117, 118, /* 47/ adopt <any-token> */ 728 119, 121, /* 48/ ^ adopt ; */ 729 122, 124, /* 49/ ^ adopt , */ 730 125, 127, /* 50/ ^ adopt <any-token> */ 731 128, 129, /* 51/ recover ; */ 732 130, 131, /* 52/ recover , */ 733 132, 133, /* 53/ recover <any-token> */ 734 134, 136, /* 54/ ^ recover ; */ 735 137, 139, /* 55/ ^ recover , */ 736 140, 142, /* 56/ ^ recover <any-token> */ 737 143, 144, /* 57/ recovery_check_mode ; */ 738 145, 146, /* 58/ recovery_check_mode , */ 739 147, 148, /* 59/ recovery_check_mode <any-token> */ 740 149, 151, /* 60/ ^ recovery_check_mode ; */ 741 152, 154, /* 61/ ^ recovery_check_mode , */ 742 155, 157, /* 62/ ^ recovery_check_mode <any-token> */ 743 6, 6, /* 63/ <any-token> */ 744 8, 8); /* 64/ <no-token> */ 745 746 dcl 1 TOKEN_REQUIREMENT (157) unaligned based (addr (TOKEN_REQUIREMENTS)), 747 /* object token requirements. */ 748 2 FORM fixed bin(17), /* form of the token requirement: */ 749 /* -1 = relative token requirement function; */ 750 /* TYPE = index of the particular token */ 751 /* function in the token_fcn array. */ 752 /* 0 = built-in token requirement function; */ 753 /* TYPE = as defined below. */ 754 /* >0 = absolute token requirement: */ 755 /* FORM = index(TOKEN_STRINGS,TOKEN_REQD); */ 756 /* TYPE = length(TOKEN_REQD); */ 757 2 TYPE fixed bin(17) unal, /* type of the built-in token requirement */ 758 /* function: */ 759 /* 1 = compile test to see if input token */ 760 /* chain is exhausted (<no-token>). */ 761 /* 2 = compile test for any token value */ 762 /* (<any-token>). */ 763 /* 3 = compile test for a PL/I identifier */ 764 /* (<name>) of 32 or fewer characters. */ 765 /* 4 = compile test for token which is a */ 766 /* <decimal-integer>. */ 767 /* 5 = compile test for token which is a single */ 768 /* backspace character (<BS>). */ 769 /* 6 = compile test for a token which is a */ 770 /* <quoted-string>. */ 771 772 TOKEN_REQUIREMENTS (314) fixed bin(17) unaligned internal static options(constant) initial ( 773 1, 26, 27, 1, 0, 4, 28, 1, 1, 26, 0, 2, 1, 26, 774 0, 1, 29, 13, 27, 1, 0, 4, 28, 1, 29, 13, 0, 2, 775 29, 13, 0, 1, 42, 16, 27, 1, 0, 4, 28, 1, 42, 16, 776 0, 2, 42, 16, 0, 1, 58, 12, 27, 1, 0, 4, 28, 1, 777 58, 12, 0, 2, 58, 12, 0, 1, 70, 14, 27, 1, -1, 1, 778 28, 1, 70, 14, 0, 2, 70, 14, 0, 1, 84, 22, 27, 1, 779 106, 20, 27, 1, 126, 23, 27, 1, 149, 5, 28, 1, 126, 23, 780 27, 1, 154, 1, 149, 5, 28, 1, 126, 23, 0, 2, 126, 23, 781 0, 1, 155, 14, 27, 1, 55, 2, 28, 1, 155, 14, 27, 1, 782 169, 3, 28, 1, 155, 14, 0, 2, 155, 14, 0, 1, 172, 3, 783 28, 1, 0, 1, 172, 3, 28, 1, 0, 2, 175, 3, 178, 1, 784 -1, 2, 28, 1, 175, 3, 178, 1, -1, 2, 179, 1, 175, 3, 785 178, 1, 0, 2, 180, 5, 178, 1, -1, 3, 28, 1, 180, 5, 786 178, 1, -1, 3, 179, 1, 180, 5, 178, 1, 0, 2, 185, 4, 787 28, 1, 185, 4, 179, 1, 185, 4, 0, 2, 154, 1, 185, 4, 788 28, 1, 154, 1, 185, 4, 179, 1, 154, 1, 185, 4, 0, 2, 789 189, 5, 28, 1, 189, 5, 179, 1, 189, 5, 0, 2, 154, 1, 790 189, 5, 28, 1, 154, 1, 189, 5, 179, 1, 154, 1, 189, 5, 791 0, 2, 194, 7, 28, 1, 194, 7, 179, 1, 194, 7, 0, 2, 792 154, 1, 194, 7, 28, 1, 154, 1, 194, 7, 179, 1, 154, 1, 793 194, 7, 0, 2, 201, 19, 28, 1, 201, 19, 179, 1, 201, 19, 794 0, 2, 154, 1, 201, 19, 28, 1, :<hal.hoover@actc>$HTu%ns SERVER : To:<Westcott@multics>$IT|za)in SMTP : [ 0: 0:20] ACTC.AB.CA (0)$JTGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$KT'-,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$LTG)in SMTP : [ 0: 0: 7] ACTC.AB.CA (0)$MTU*)in SMTP : [ 0: 0:14] ACTC.AB.CA (0)$NT3Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$OTr},nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$PTM)in SMTP : [ 0: 0: 5] ACTC.AB.CA (0)$QTMGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$RT,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$STC)in SMTP : [ 0: 0: 4] ACTC.AB.CA (0)$TTGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$UT+,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$VT)in SMTP : [ 0: 0: 9] ACTC.AB.CA (0)$WT:UGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$XTx*,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$YToV)in SMTP : [ 0: 0: 9] ACTC.AB.CA (0)$ZT#Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$[T$kg,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$\Tl`+)in SMTP : [ 0: 0:20] ACTC.AB.CA (0)$]TnGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$^To,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$_T)in SMTP : [ 0: 0:17] ACTC.AB.CA (0)$`TGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$aT,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$bT%)in SMTP : [ 0: 0: 9] ACTC.AB.CA (0)$cTGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$dT,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$eT*)in SMTP : [ 0: 0:13] ACTC.AB.CA (0)$fT  Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$gT ,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$hTP))in SMTP : [ 0: 0:19] ACTC.AB.CA (0)$iTa Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$jTb,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$kT)in SMTP : [ 0: 0:16] ACTC.AB.CA (0)$lT(Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$mTi,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$nT3)in SMTP : [ 0: 0:11] ACTC.AB.CA (0)$oT*Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$pT|,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$qT4")in SMTP : [ 0: 0: 4] ACTC.AB.CA (0)$rTa*Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$sT,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$tTl )in SMTP : [ 0: 0: 5] ACTC.AB.CA (0)$uT_LGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$vT7A,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$wT)in SMTP : [ 0: 0: 6] ACTC.AB.CA (0)$xTGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$yTQn,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA>$zT)in SMTP : [ 0: 0: 4] ACTC.AB.CA (0)${T Gnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$|T =$,nm MAILER : To:<Dave.Schroth@ACTC.AB.CA> RD_TEST_TOKEN(1); 5 68 go to RD_NEXT_REDUCTION; 5 69 end; 5 70 if TOKEN_REQD.FORM = 0 then do; /* built-in syntax function. */ 5 71 go to RD_TEST_TOKEN(TOKEN_REQD.TYPE); 5 72 5 73 RD_TEST_TOKEN(1): if SPDL then /* <no-token> */ 5 74 /* In push-down-language, there are 2 */ 5 75 /* interpretations of <no-token>. */ 5 76 if RED.TOKEN_REQD.IFIRST = RED.TOKEN_REQD.ILAST & 5 77 Ptoken = null then /* When <no-token> is only spec, the spec asks */ 5 78 go to RD_MATCH_NO_TOKEN; /* "Is push down stack empty (all input gone)?" */ 5 79 else if RED.TOKEN_REQD.IFIRST^= RED.TOKEN_REQD.ILAST & 5 80 RED.TOKEN_REQD.IFIRST = I & 5 81 token.Pnext = null then /* For SPEC1 ... SPECN <no-token>, the spec asks */ 5 82 go to RD_MATCH_NO_TOKEN; /* "Are the topmost tokens on stack SPEC1 - SPECN,*/ 5 83 /* and is SPECN the final input token?" */ 5 84 else go to RD_NEXT_REDUCTION; /* Those are the only two defs allowed in push */ 5 85 /* down language mode for <no-token>. */ 5 86 else if Ptoken = null then 5 87 go to RD_MATCH_NO_TOKEN; 5 88 go to RD_NEXT_REDUCTION; 5 89 5 90 RD_TEST_TOKEN(2): go to RD_MATCH; /* <any-token> */ 5 91 5 92 RD_TEST_TOKEN(3): if token.Lvalue > 0 & /* <name> */ 5 93 token.Lvalue <= 32 & ^token.S.quoted_string then 5 94 if search(substr(token_value,1,1),"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz") 5 95 > 0 then 5 96 if verify(token_value,"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_$") 5 97 = 0 then 5 98 go to RD_MATCH; 5 99 go to RD_NEXT_REDUCTION; 5 100 5 101 RD_TEST_TOKEN(4): /* <decimal-integer> */ 5 102 if token.Nvalue ^= 0 then /* token already determined to be a number. */ 5 103 go to RD_MATCH; 5 104 if token.S.quoted_string then 5 105 go to RD_NEXT_REDUCTION; 5 106 NUMBER = cv_dec_check_ (token_value, CODE); 5 107 if CODE = 0 then do; 5 108 token.Nvalue = NUMBER; 5 109 go to RD_MATCH; 5 110 end; 5 111 go to RD_NEXT_REDUCTION; 5 112 5 113 RD_TEST_TOKEN(5): if token.Lvalue = 1 then /* <BS> */ 5 114 if token_value = BACKSPACE & ^token.S.quoted_string then 5 115 go to RD_MATCH; 5 116 go to RD_NEXT_REDUCTION; 5 117 5 118 RD_TEST_TOKEN(6): if token.S.quoted_string then /* <quoted-string> */ 5 119 go to RD_MATCH; 5 120 go to RD_NEXT_REDUCTION; 5 121 end; 5 122 5 123 else if TOKEN_REQD.FORM > 0 then do; /* absolute syntax specification. */ 5 124 if token.S.quoted_string then 5 125 go to RD_NEXT_REDUCTION; 5 126 PTOKEN_REQD_VALUE = addr(substr(TOKEN_STRINGS,TOKEN_REQD_STRING.I)); 5 127 LTOKEN_REQD_VALUE = TOKEN_REQD_STRING.L; 5 128 if token_value = TOKEN_REQD_VALUE then 5 129 go to RD_MATCH; 5 130 go to RD_NEXT_REDUCTION; 5 131 end; 5 132 5 133 /* END OF: rdc_end_.incl.pl1 * * * * * * * * * * * * * * * * */ 805 806 807 else do; /* relative syntax function. */ 808 go to RD_TOKEN_FCN(TOKEN_REQD.TYPE); 809 810 RD_TOKEN_FCN(1): STOKEN_FCN = date_time_offset(); 811 go to RD_TEST_RESULT; 812 RD_TOKEN_FCN(2): STOKEN_FCN = absolute_path(); 813 go to RD_TEST_RESULT; 814 RD_TOKEN_FCN(3): STOKEN_FCN = before_journal_name(); 815 go to RD_TEST_RESULT; 816 817 RD_TEST_RESULT: if STOKEN_FCN then go to RD_MATCH; 818 else go to RD_NEXT_REDUCTION; 819 end; 820 821 RD_MATCH: Ptoken = token.Pnext; 822 RD_MATCH_NO_TOKEN: 823 end; 824 Ptoken = Pthis_token; 825 go to RD_ACTION(NRED); 826 827 828 RD_ACTION(1): /* / */ 829 ca]\q` ~-M&]ujVL^^u4yf`qq&`vWw+`,Z d'qfY0`qq l l=JZq5q!=` qRvZ3PRiwqYZ3Uuex}v8`h nmDr  %7)`2) pda`uk q3qES5TqTH}S9`+q"`dg,xqqq4qzq$qqqq|q#qSwj1qqo}dBq qiSdgFJGqqx_@,Eqr{q=2ql8J]]ZvML%Swq,VqnS!qd\-]y2`,EJ``r&`)&&'`V9@e``lD``$pqAqHqJ``dx |g`gg `,` `` "D$Fe g7edk$c Oy-u laXV}ahvyqiq6S[8fq Jq~qd0y].^`J` f` U4 ^DWS#rU*qqQuqS.rPyd@q-qJ+}6ZS}CJqqq!q(qh ` ` `|`a`&`e`X``}`X``&`4`+`[`a`d`v`|````Z`L`````_``]`e``A`H` `````E``\``` ` ` P``` ,sF`V``L`l``t```/`J```.`l`````J`L`````7`d` ` ```7``:`-```r`v`9`k  {` O`````C``Z````B``n``&4`W`E``D` ` O````v``#``````a`` B`` #,7`7`H``G``)`:``8```K`F`M`W`Q`^`r```;```>``?``` ` ` ^`n?` "t`g``S````W````` `` ``e`t```q````!``` ` ``` ` ` `` `1^`7```````C```~`[`T`^`[,`*`U```` `n Absentee user Schroth SysMaint logged in: 04/02/95 0100.0 mdt Sun, request_id: 950326070010.824193 ACTC Technologies Inc. (MR12.5) Load: 17.0/100.0; Users: 17. Absentee queue: 1 Absentee input: >udd>sm>sup>hk>checkvtoc.absin Absentee output: >udd>sm>sup>hk>checkvtoc.absout ACTC{SysMaint} 00:00:10.0 5.31 135 >udd>sm>ds ear >udd>sm>sup>hk>checkvtoc.absin -of >udd>sm>sup>hk>checkvtoc -q 1 -limit 100 -time 95-04-09_00:00 -tc ID: 88112587; 8 already requested. >udd>sm>sup>hk>checkvtoc.absin in queue 1 send_admin_command ec admin repair salvquota > 3 -check_vtoce -compact send_admin_command: Execution started ... completed. logout Absentee user Schroth SysMaint logged out 95-04-02_0000.48_Sun_mst CPU usage 7 sec, memory usage 0.0 units Maryniuk Multics <QV(Maryniuk Multics QH- 0:(Maryniuk Multics Q? B:<Maryniuk Multics QQUP(Maryniuk Multics xQ% :d<Maryniuk Multics Qg 6xP Maryniuk Multics PQ~fyd!Maryniuk Multics Q5x"Maryniuk Multics Qf!#Maryniuk Multics Qjx+$Maryniuk Multics Q=-`%Maryniuk Multics Q7X_V&Maryniuk Multics @Q%2@2'Maryniuk Multics QR9(Maryniuk Multics ,Q"*,)Maryniuk Multics Q3iq@*Maryniuk Multics TQC#T,+Maryniuk Multics @hQ h@,Maryniuk Multics T|QY1&;|T-Maryniuk Multics hQn vh.Maryniuk Multics Qa8 |/Maryniuk Multics ,DQ[ 0Maryniuk Multics QrFM|1Maryniuk Multics  Q|N|ls2Maryniuk Multics |Q{3Maryniuk Multics Q$4Maryniuk Multics Q  5Maryniuk Multics 0Q57?06Maryniuk Multics QWh&rD7Maryniuk Multics XQ=>X08Maryniuk Multics DlQ>hlD9Maryniuk Multics X Q>K: X:Maryniuk Multics 0QA1qG'Ql;Maryniuk Multics QBG<Maryniuk Multics QCeA=Maryniuk Multics QC;[c>Maryniuk Multics QDtl)?Maryniuk Multics QD%+@Maryniuk Multics Q}I%'/e AMaryniuk Multics pQ}hv BMaryniuk Multics l4Q~lk(4 CMaryniuk Multics  HQ3:H DMaryniuk Multics 4\Q5ry\4EMaryniuk Multics HQpHFMaryniuk Multics  Q\GMaryniuk Multics pQV pHMaryniuk Multics 8Q?@G{IMaryniuk Multics QvdyfnJMaryniuk Multics Q";KMaryniuk Multics QFkHLMaryniuk Multics @QH  MMaryniukltics  Q>UrC8Q Maryniuk Multics  Q>#( Maryniuk Multics  4Q>"_'4 Maryniuk Multics  HQ>O4,?H Maryniuk Multics 4\Q>u{\4Maryniuk Multics HpQ>P(9pHMaryniuk Multics \Q>H);\Maryniuk Multics pQ>XH(RpMaryniuk Multics Q>)Maryniuk Multics Q>!Maryniuk Multics Q>2%!Maryniuk Multics Q>)S[Maryniuk Multics Q>>BC Maryniuk Multics @Q@() Maryniuk Multics $Q@+zJip$Maryniuk Multics 8Q@+~8Maryniuk Multics $LQ@,v4L$Maryniuk Multics 8tQ@, r2')`8Maryniuk Multics Q@LW^ntLMaryniuk Multics LQ@M3`Maryniuk Multics QG`p:>EtMaryniuk Multics `QGpnuMaryniuk Multics <QLF0Maryniuk Multics tQLIy)Maryniuk Multics QLJrz+&Maryniuk Multics QLKDU]Maryniuk Multics PQLL8$Maryniuk Multics (QP(Maryniuk Multics xQPM<Maryniuk Multics QP|FMJP(Maryniuk Multics dQP1$'+ d<Maryniuk Multics PQPqOKxPMaryniuk Multics (QP 3GNwdLyttle Multics x,Q_lsxLyttle Multics <Q_Lyttle Multics Q_#8'Lyttle Multics dQ_/ |Lyttle Multics Q_j.vLyttle Multics Q_F>Lyttle Multics Q_K+_Lyttle Multics 0Q_**kp,Maryniuk Multics @Qj]S@Maryniuk Multics ,TQjOT,Maryniuk Multics @hQjp 'h@Maryniuk Multics T|QjPW|TMaryniuk Multics hQjxyhMaryniuk Multics |Qj6c|Maryniuk Multics Qj0QMaryniuk Multics Qjy! Maryniuk Multics Qj5<Maryniuk Multics Qjq7Maryniuk Multics /* START OF: rdc_error_.incl.pl1 * * * * * * * * * * * * * * * * */ 7 2 7 3 dcl MERROR_SEVERITY fixed bin init (0), /* Severity of highest-severity error. */ 7 4 SERROR_CONTROL bit(2) init ("00"b),/* Global switches control error message format. */ 7 5 SERROR_PRINTED (dimension (error_control_table,1)) 7 6 bit(1) unaligned init ((dimension (error_control_table,1))(1)"0"b), 7 7 /* Array bit is on if corresponding error message */ 7 8 /* in error_control_table has already been printed*/ 7 9 MIN_PRINT_SEVERITY fixed bin init (0), /* Mimimum severity message that will be printed */ 7 10 PRINT_SEVERITY_CONTROL bit(2) init ("11"b);/* Action if severity < MIN_PRINT_SEVERITY */ 7 11 7 12 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 7 13 /* */ 7 14 /* N__a_m_e: rdc_error_.incl.pl1 */ 7 15 /* */ 7 16 /* This include segment is used by compilers generated by the reduction_compiler. */ 7 17 /* It defines a procedure which the compilers can use to print error messages. */ 7 18 /* */ 7 19 /* E__n_t_r_y: ERROR */ 7 20 /* */ 7 21 /* Given an error number, this procedure prints a corresponding error message. */ 7 22 /* The message is stored in a compiler-defined error_control_table, along with an integer */ 7 23 /* which specifies the severity level of the error, and a switch which specifies whether */ 7 24 /* the source statement in which the error occurred (if any) should be printed after the */ 7 25 /* error message. The printing of the error message may be supressed for all messages */ 7 26 /* having a severity less than a specified (MIN_PRINT_SEVERITY) value. The ERROR */ 7 27 /* procedure calls the lex_error_ subroutine to perform the formatting and printing of */ 7 28 /* the error message. */ 7 29 /* */ 7 30 /* U__s_a_g_e */ 7 31 /* */ 7 32 /* call ERROR (error_number); */ 7 33 /* */ 7 34 /* 1) error_number is the index of one of the structures in the error_control_table */ 7 35 /* which defines the error message to be printed. */ 7 36 /* */ 7 37 /* N__o_t_e_s */ 7 38 /* */ 7 39 /* The format of the error_control_table is shown below. */ 7 40 /* */ 7 41 /* dcl 1 error_control_table (2) aligned internal static, */ 7 42 /* 2 severity fixed bin(17) unaligned init (2,3), */ 7 43 /* 2 Soutput_stmt bit(1) unaligned initial ("0"b,"1"b), */ 7 44 /* 2 message char(252) varying initial ( */ 7 45 /* "The reduction source segment does not contain any reductions.", */ 7 46 /* "Reduction label '^a' is invalid."), */ 7 47 /* 2 brief_message char(100) varying initial ( */ 7 48 /* "", "'^a'"); */ 7 49 /* */ 7 50 /* error_control_table is an array of structures, with one array element per error. */ 7 51 /* Each structure contains: a severity level for the error; a switch which specifies */ 7 52 /* whether the source statement being processed should be output after the error message; */ 7 53 /* the long form of the error message text; and the brief form of the error message text.*/ 7 54 /* The dimension of the error_control_table array of structures, and the lengths of */ 7 55 /* message (long message) and brief_message (brief message), are compiler-defined. */ 7 56 /* structures and the lengths of the message and brief_message are compiler-defined. */ 7 57 /* The only requirement is that the messages be 256 characters or less in length. */ 7 58 /* (Remember that the longest character string which can be used in an initial attribute */ 7 59 /* is 254 characters in length.) */ 7 60 /*    Maryniuk Multics  Q   Maryniuk Multics  ,Q6  , Maryniuk Multics  @Qd'   @ Maryniuk Multics , TQ^r[ 2 9 T ,Maryniuk Multics @ hQ k r h @Maryniuk Multics T |QUu   | TMaryniuk Multics h QD-!-!4F hMaryniuk Multics Q8!! |Maryniuk Multics Qa!! Maryniuk Multics Qd!! Maryniuk Multics Q#g!! Maryniuk Multics Q,!! Maryniuk Multics Q*"*"1  Maryniuk Multics Q"R"Y  Maryniuk Multics  0Qr"/")m 0 Maryniuk Multics  DQ,"3"N D Maryniuk Multics 0 XQ$"!"- X 0Maryniuk Multics D lQ#;,#F l DMaryniuk Multics X Q_*#s'#}  XMaryniuk Multics l QH# #  lMaryniuk Multics  Q#p#W#_  Maryniuk Multics  Q###  Maryniuk Multics  Q$z$ $  Maryniuk Multics  Q$ $L$Q  Maryniuk Multics  8Q*u$+$y  Lyttle Multics | QD@$.$5 Lyttle Multics  QG+E$i$p Lyttle Multics 4QG$$ 4 Lyttle Multics HQH$$ H Lyttle Multics 4 \QHF$$ \ 4Lyttle Multics H pQI%%# p HLyttle Multics \ QI^G%N%U \Lyttle Multics  p QJ?%v%} pLyttle Multics  QKF%%.  Lyttle Multics QK;%W%^  Lyttle Multics QLU%%  Lyttle Multics QM<%%  Lyttle Multics QM<& &  Lyttle Multics QNr&G&N  Lyttle Multics $QN&q&x $ Lyttle Multics  QO|&& 8 Lyttle Multics   LQV& & L $Lyttle Multics  8 `QV& & ` 8Lyttle Multics L tQ\k& & t LLyttle Multics ` Q_hO&)&  `Lyttle Multics t Q_W&O-&[  tLyttle Multics Q&&  Lyttle Multics  (Q]&&  Lyttle Multics $ Q#&&U  Lyttle Multics  Q'I'O  Lyttle Multics  Q9'' s bit string, as shown below. */ 7 119 /* */ 7 120 /* PRINT_SEVERITY_CONTROL _m_e_a_n_i_n_g */ 7 121 /* "00"b update neither SERROR_PRINTED nor MERROR_SEVERITY. */ 7 122 /* "01"b update SERROR_PRINTED to reflect the error. */ 7 123 /* "10"b update MERROR_SEVERITY to reflect the error severity. */ 7 124 /* "11"b update SERROR_PRINTED and MERROR_SEVERITY appropriately. */ 7 125 /*The initial value of PRINT_SEVERITY_CONTROL is "11"b. */ 7 126 /* */ 7 127 /* The ERROR procedure is simple to use, but it does limit the flexibility of the */ 7 128 /* error message. A compiler action routine can output more flexible error messages */ 7 129 /* by calling lex_error_ directly. See lex_error_ documentation for more details. */ 7 130 /* */ 7 131 /* S__t_a_t_u_s */ 7 132 /* */ 7 133 /* 0) Created: April, 1974 by G. C. Dixon */ 7 134 /* 1) Modified: April, 1982 by E. N. Kittlitz. Added MIN_PRINT_SEVERITY, */ 7 135 /* PRINT_SEVERITY_CONTROL. */ 7 136 /* */ 7 137 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 7 138 7 139 ERROR: procedure (Nerror); 7 140 7 141 dcl Nerror fixed bin; /* Number of the error which was detected. (In) */ 7 142 7 143 dcl Pstmt ptr, 7 144 1 erring_token aligned based (Perring_token) like token, 7 145 Perring_token ptr, 7 146 erring_token_value char(erring_token.Lvalue) based (erring_token.Pvalue); 7 147 7 148 dcl (max, null) builtin; 7 149 7 150 dcl lex_error_ entry options (variable); 7 151 7 152 7 153 if error_control_table.severity(Nerror) < MIN_PRINT_SEVERITY then do; /* don't print */ 7 154 if PRINT_SEVERITY_CONTROL & "1"b then /* update MERROR_SEVERITY */ 7 155 MERROR_SEVERITY = max (MERROR_SEVERITY, error_control_table.severity(Nerror)); 7 156 if PRINT_SEVERITY_CONTROL & "01"b then /* update SERROR_PRINTED */ 7 157 SERROR_PRINTED(Nerror) = "1"b; 7 158 return; 7 159 end; 7 160 Perring_token = Pthis_token; /* address the current erring_token. */ 7 161 if error_control_table.Soutput_stmt(Nerror) then 7 162 if Perring_token = null then 7 163 Pstmt = null; 7 164 else 7 165 Pstmt = erring_token.Pstmt; /* address the statement descriptor. */ 7 166 else 7 167 Pstmt = null; 7 168 if Perring_token = null then 7 169 call lex_error_ (Nerror, SERROR_PRINTED(Nerror), (error_control_table.severity(Nerror)), 7 170 MERROR_SEVERITY, Pstmt, Perring_token, SERROR_CONTROL, (error_control_table.message(Nerror)), 7 171 (error_control_table.brief_message(Nerror))); 7 172 else 7 173 call lex_error_ (Nerror, SERROR_PRINTED(Nerror), (error_control_table.severity(Nerror)), 7 174 MERROR_SEVERITY, Pstmt, Perring_token, SERROR_CONTROL, (error_control_table.message(Nerror)), 7 175 (error_control_table.brief_message(Nerror)), erring_token_value, erring_token_value, erring_token_value); 7 176 7 177 end ERROR; 7 178 7 179 /* END OF: rdc_error_.incl.pl1 * * * * * * * * * * * * * * * * */ 1246 1247 1248 /* START OF: rdc_next_stmt_.incl.pl1 * * * * * * */ 8 2 8 3 /* * * * * * * * * * * * * * * * * * * * * * * */ 8 4 /* */ 8 5 /* N__a_m_e: rdc_next_stmt_.incl.pl1 */ 8 6 /* */ 8 7 /* This include segment is used by compilers generated by the */ 8 8 /* reduction_compiler. It includes a procedure which shifts the */ 8 9 /* compilation process to the next source statement. */ 8 10 /* */ 8 11 /* S__t_a_t_u_s */ 8 12 /* */ 8 13 /* 0) Created: April, 1974 by G. C. Dixon */ 8 14 /* */ 8 15 /* * * * * * * * * * * * * * * * * * * * * * * */ 8 16 8 17 8 18 NEXT_STMT: procedure; /* invoked to begin parsing the next statement of */ 8 19 /* the input tokens. */ 8 20 8 21 dcl null builtin, 8 22 Ssearching bit(1) aligned; 8 23 8 24 Ptoken = Pthis_token; /* make sure these pointers are the same. */ 8 25 Pstmt = token.Pstmt; /* address "current" statement's descriptor. */ 8 26 Ssearching = "1"b; /* start scanning forward for next statement. */ 8 27 do while (Ssearching & token.Pnext ^= null); 8 28 Ptoken = token.Pnext; 8 29 if token.Pstmt = Pstmt then; 8 30 else Ssearching = "0"b; 8 31 end; 8 32 if token.Pstmt = Pstmt then /* if there is no next statement, and */ 8 33 if SPDL then /* in PUSH DOWN LANGUAGE mode, can't run off */ 8 34 Ptoken = Ptoken; /* end of input list. */ 8 35 else Ptoken, Pthis_token = null; /* otherwise, input list exhausted. */ 8 36 else Pthis_token = Ptoken; /* normally, next statement exists and Ptoken */ 8 37 /* points to its 1st _n_o_n-__d_e_l_e_t_e_d token. */ 8 38 8 39 end NEXT_STMT; 8 40 8 41 /* END OF: rdc_next_stmt_.incl.pl1 * * * * * * */ 1248 1249 1250 end dm_translate_system_config_; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 03/17/86 1446.6 dm_translate_system_config_.pl1 >spec>install>1032>dm_translate_system_config_.pl1 660 1 01/07/85 0859.9 dm_system_config.incl.pl1 >ldd>include>dm_system_config.incl.pl1 662 2 04/16/82 0958.1 sub_err_flags.incl.pl1 >ldd>include>sub_err_flags.incl.pl1 669 3 04/18/75 1242.4 rdc_start_.incl.pl1 >ldd>include>rdc_start_.incl.pl1 3-25 4 04/18/75 1242.4 lex_descriptors_.incl.pl1 >ldd>include>lex_descriptors_.incl.pl1 805 5 03/17/86 1404.9 rdc_end_.incl.pl1 >spec>install>1032>rdc_end_.incl.pl1 1244 6 04/18/75 1242.4 rdc_lex_.incl.pl1 >ldd>include>rdc_lex_.incl.pl1 1246 7 08/15/83 1511.7 rdc_error_.incl.pl1 >ldd>include>rdc_error_.incl.pl1 1248 8 04/18/75 1242.4 rdc_next_stmt_.incl.pl1 >ldd>include>rdc_next_stmt_.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) NAMES DECLARED BY DECLARE STATEMENT. ACTION_DEFAULT_RESTART 000623 constant bit(36) initial dcl 2-7 set ref 573* 582* BACKSPACE 005473 constant char(1) initial dcl 3-99 ref 5-113 CODE 000647 automatic fixed bin(35,0) dcl 3-33 set ref 5-106* 5-107 DIRECTION 000652 automatic fixed bin(17,0) initial dcl 671 set ref 5-62 671* DM_ADOPT_OLD_BOOTLOAD 000604 constant char(8) initial dcl 1-63 ref 499 1105 1111 DM_CONFIG_VERSION_2 000606 constant char(8) initial dcl 1-63 ref 489 DM_DO_NOT_ADOPT_OLD_BOOTLOAD 000602 constant char(8) initial dcl 1-63 ref 1125 1131 DM_DO_NOT_FORCE_ENABLE_NEW_BOOTLOAD 000576 constant char(8) initial dcl 1-63 ref 503 945 DM_DO_NOT_HOLD_OLD_BOOTLOAD_DIRECTORY 000572 constant char(8) initial dcl 1-63 ref 500 1085 1091 DM_DO_NOT_RECOVER_OLD_BOOTLOAD 000566 constant char(8) initial dcl 1-63 ref 1165 1171 DM_FORCE_ENABLE_NEW_BOOTLOAD 000600 constant char(8) initial dcl 1-63 ref 939 DM_HOLD_OLD_BOOTLOAD_DIRECTORY 000574 constant char(8) initial dcl 1-63 ref 1065 1071 DM_RECOVERY_CHECK_MODE_OFF 000562 constant char(8) initial dcl 1-63 ref 502 1205 1211 DM_RECOVERY_CHECK_MODE_ON 000564 constant char(8) initial dcl 1-63 ref 1185 1191 DM_RECOVER_OLD_BOOTLOAD 000570 constant char(8) initial dcl 1-63 ref 501 1145 1151 FORM based fixed bin(17,0) level 2 packed unaligned dcl 3-48 ref 5-65 5-70 5-123 I 000650 automatic fixed bin(17,0) dcl 3-33 in procedure "SEMANTIC_ANALYSIS" set ref 5-62* 5-63 5-79* I based fixed bin(17,0) level 2 in structure "TOKEN_REQD_STRING" packed unaligned dcl 3-48 in procedure "SEMANTIC_ANALYSIS" ref 5-126 IFIRST based fixed bin(17,0) level 3 packed unaligned dcl 3-48 ref 5-62 5-73 5-79 5-79 ILAST 0(18) based fixed bin(17,0) level 3 packed unaligned dcl 3-48 ref 5-62 5-73 5-79 L 0(18) based fixed bin(17,0) level 2 packed unaligned dcl 3-48 ref 5-127 LTOKEN_REQD_VALUE 000636 automatic fixed bin(18,0) dcl 3-33 set ref 5-127* 5-128 Lvalue 4 based fixed bin(18,0) level 2 in structure "token" dcl 4-68 in procedure "dm_translate_system_config_" ref 536 536 539 542 542 563 573 573 603 603 606 609 5-92 5-92 5-92 5-92 5-106 5-106 5-113 5-113 5-128 1014 1021 1035 1042 Lvalue 4 based fixed bin(18,0) level 2 in structure "erring_token" dcl 7-143 in procedure "ERROR" ref 7-172 7-172 7-172 7-172 7-172 7-172 ME 000610 constant char(32) initial dcl 408 set ref 466* 472* 521* 573* 582* MERROR_SEVERITY 000527 automatic fixed bin(17,0) initial dcl 7-3 set ref 7-3* 643 7-154* 7-154 7-168* 7-172* MIN_PRINT_SEVERITY 000531 automatic fixed bin(17,0) initial dcl 7-3 set ref 7-3* 7-153 NRED 000637 automatic fixed bin(17,0) dcl 3-33 set ref 5-52* 5-55* 5-55 5-58 825 833* 840* 845* 853* 860* 865* 873* 880* 885* 893* 900* 905* 913* 920* 925* 930* 936* 942* 948* 955* 960* 966* 972* 979* 984* 999* 1009* 1016* 1023* 1030* 1037* 1044* 1051* 1057* 1062* 1068* 1074* 1082* 1088* 1094* 1102* 1108* 1114* 1122* 1128* 1134* 1142* 1148* 1154* 1162* 1168* 1174* 1182* 1188* 1194* Rz;;Lyttle Multics Rz<<%Lyttle Multics 0R{<S<Z0Lyttle Multics R{j<~<DLyttle Multics XR) <<TX0Lyttle Multics DlR)9<<#|lDLyttle Multics X`R)C<B<IXLyttle Multics 0R)I><l<slLyttle Multics R)i<<PLyttle Multics pR)T==FLyttle Multics R-`=k =nLyttle Multics R-C= =Lyttle Multics R-Q= =Lyttle Multics  R-88=% =(s Lyttle Multics  R-|=E =H Lyttle Multics  4R- =M =P4 Lyttle Multics  HR-OQ=r =uH Lyttle Multics 4\R-W$x= =g\4Lyttle Multics HR-)> >pHLyttle Multics R-l>E>Lo\Lyttle Multics pR->h>oopLyttle Multics <R-5 >>Lyttle Multics \R2S4S>>Lyttle Multics R2S>>Lyttle Multics R2T_>Y2>fLyttle Multics R2UL>4>RLyttle Multics R2U\>>)>}Lyttle Multics $R2V?Z*?er$Lyttle Multics 8R2WX? ?8Lyttle Multics $LR2XZz? ?L$Lyttle Multics 8R2X:e?" ?%`8Maryniuk Multics ltRB:^?K?RtLMaryniuk Multics `RBB??`Maryniuk Multics tRBC??tMaryniuk Multics RBg??Maryniuk Multics RBoT@@Maryniuk Multics RBb@\@cGMaryniuk Multics RB@@Maryniuk Multics RBj 0@@Maryniuk Multics RBEa@'@.Maryniuk Multics (RB K@d@k(Maryniuk Multics RB[/@@^<Maryniuk Multics PRB@@P(Maryniuk Multics <dRBFnA!A(d<Maryniuk Multics PxRBAjAqxPMaryniuk Multics dRBAA&dMaryniuk Multics xRB2B.B5xMaryniuk Multics LRBBj+BuMaryniuk Multics RBSBt>BlMaryniuk Multics RB BBMaryniuk Multics RBC CMaryniuk Multics RB5ECL2 5-92 5-92 5-101 5-104 5-106 5-106 5-106 5-108 5-113 5-113 5-113 5-113 5-118 5-124 5-128 5-128 821* 821 824* 830 830 850 850 870 870 890 890 1014 1014 1021 1021 1035 1035 1042 1042 6-36* 6-37 6-39 6-40* 6-40 6-42* 6-45 6-47* 6-47 6-49 8-24* 8-25 8-27 8-28* 8-28 8-29 8-32 8-32* 8-32 8-35* 8-36 Pvalue 3 based pointer level 2 in structure "token" packed unaligned dcl 4-68 in procedure "dm_translate_system_config_" ref 536 536 539 542 563 573 606 609 5-92 5-92 5-106 5-113 5-128 1014 1021 1035 1042 Pvalue 3 based pointer level 2 in structure "erring_token" packed unaligned dcl 7-143 in procedure "ERROR" ref 7-172 7-172 7-172 RED based structure level 1 dcl 3-48 REDUCTION based structure array level 1 packed unaligned dcl 674 set ref 5-58 REDUCTIONS 000461 constant fixed bin(17,0) initial array unaligned dcl 674 set ref 5-58 S 11 based structure level 3 packed unaligned dcl 4-68 SERROR_CONTROL 000530 automatic bit(2) initial unaligned dcl 7-3 set ref 7-3* 7-168* 7-172* SERROR_PRINTED 000531 automatic bit(1) initial array unaligned dcl 7-3 set ref 7-3* 7-156* 7-168* 7-172* SPDL 000526 automatic bit(1) initial dcl 1241 set ref 1241* 5-73 6-42 8-32 STOKEN_FCN 000646 automatic bit(1) dcl 3-33 set ref 810* 812* 814* 817 Soutput_stmt 0(18) 000010 internal static bit(1) initial array level 2 packed unaligned dcl 373 set ref 459* 7-161 Ssearching 000730 automatic bit(1) dcl 8-21 set ref 8-26* 8-27 8-30* TOKEN_REQD based structure level 2 in structure "RED" packed unaligned dcl 3-48 in procedure "SEMANTIC_ANALYSIS" TOKEN_REQD based structure level 1 dcl 3-48 in procedure "SEMANTIC_ANALYSIS" TOKEN_REQD_STRING based structure level 1 dcl 3-48 TOKEN_REQD_VALUE based char unaligned dcl 3-48 ref 5-128 TOKEN_REQUIREMENT based structure array level 1 packed unaligned dcl 746 set ref 5-63 TOKEN_REQUIREMENTS 000224 constant fixed bin(17,0) initial array unaligned dcl 746 set ref 5-63 TOKEN_STRINGS based char(219) dcl 798 set ref 5-126 TOKEN_STRING_ Multics RNQQNLyttle Multics $R5QQ$OLyttle Multics 8R9RRu8PLyttle Multics $PRM:dR-R4L$QLyttle Multics `RR]RdG`8RLyttle Multics LtRGRRtLSLyttle Multics `RRR|`TLyttle Multics tR $R#R*tULyttle Multics RzRQRXVLyttle Multics R4zRRWLyttle Multics R7SRR'XLyttle Multics RS SYLyttle Multics R%S9S@ZLyttle Multics HR-lSg*Sr:[Lyttle Multics (RSS%S+(\Lyttle Multics <R;)SS<]Lyttle Multics (hRSH(SRP(^Lyttle Multics 8dROSzSd<_Lyttle Multics PxRb\SSxP`Lyttle Multics dRR7SSdaLyttle Multics xRQT)T0xbLyttle Multics RtTSTZcLyttle Multics RiT~TdLyttle Multics RV<pTTeLyttle Multics RTTfLyttle Multics RTTBgLyttle Multics R%TVT]hLyttle Multics ,R-vTT,iLyttle Multics @R_;TT@jLyttle Multics ,TR?~TTT,kLyttle Multics @RUUh@lLyttle Multics <|RLoUBUJ|TmLyttle Multics hRLUUhnLyttle Multics |R@R@UU|oLyttle Multics R[UUpLyttle Multics RlU(U0qLyttle Multics R~UaUhrLyttle Multics R2vUUsLyttle Multics RUUtLyttle Multics R/<VVuLyttle Multics 0RxKV;VB0vLyttle Multics DR|8VfVmDwLyttle Multics 0XR`VVX0xLyttle Multics DlR-EVVlDyLyttle Multics XR VV6XzLyttle Multics lR;5V8V?Cl{Lyttle Multics RVV|Lyttle Multics R8^VV}Lyttle Multics RWW ~~Lyttle Multics R]W+W2Lyttle Multics R5WYW`xLyttle MuRCh] ]Maryniuk Multics RmC]']HLyttle Multics x0Ro ^^~0Lyttle Multics pRp.^^DLyttle Multics XRp^^X0Lyttle Multics DlRqf^^ |lDLyttle Multics XRqqV^+^2}XLyttle Multics lRqv^R^YlLyttle Multics Rqd`^^Lyttle Multics 8Rq6^^Lyttle Multics Rr^,^$Lyttle Multics Rs_=_D+Lyttle Multics Rs:_,_Lyttle Multics  Rth_!_ Lyttle Multics  RtP_'_ Lyttle Multics  4Rug5_U_\4 Lyttle Multics  HRuIh__H Lyttle Multics 4\Rv>8__\4Lyttle Multics H|Rv)__pHLyttle Multics 0R`/`6\Lyttle Multics pR`u`|pLyttle Multics R1@z``Lyttle Multics R?``Lyttle Multics R;x``Lyttle Multics Rk`4`;Lyttle Multics R+2`\`c}Lyttle Multics R``Lyttle Multics $R&``$Lyttle Multics R{``8Lyttle Multics LRBaa wL$Lyttle Multics 8`R2<a*a1v`8Lyttle Multics LtR^%aOaVtLLyttle Multics `Rmawa~`Lyttle Multics tRaatLyttle Multics RGaa~Lyttle Multics $RbaaLyttle Multics Rba+a2Lyttle Multics R {aSaZLyttle Multics Rq&aaLyttle Multics R7aaLyttle Multics (Raa(Lyttle Multics <R=6bb&<Lyttle Multics (PRZbWb^tP(Lyttle Multics <dR;Lb{b d<Lyttle Multics PxRbbxPLyttle Multics dR97bb dLyttle Multics xRb0b7xLyttle Multics Rb_bfLyttle Multics R=bbLyttle Multics RxbbLyttle Multics R@cc Lyttle Multics RpClc9Lyttle Multics  Ro lii| Lyttle Multics (R#Jii ( Lyttle Multics  <RTjj~ < Lyttle Multics ( PRj?jF0 P (Lyttle Multics < dRkzajj d <Lyttle Multics P xR;jjx x P Lyttle Multics d R 5jj d!Lyttle Multics x R{nhj?jF x"Lyttle Multics |Rjjjq #Lyttle Multics t R?Dj.j $Lyttle Multics R5Xjj %Lyttle Multics RQk&k, &Lyttle Multics  RakT/k`  'Lyttle Multics R=.k/k  (Lyttle Multics  ,Rw9kk , )Lyttle Multics  @Rx-kk @ *Lyttle Multics , TRx >kk& T ,+Lyttle Multics @ hRxxkIkP h @,Lyttle Multics T!lRy kyk | T-Lyttle Multics Ryjkk  h.Lyttle Multics | Ry kk  |/Lyttle Multics  Ry5Jl)l0  0Lyttle Multics  Rzq@lXl_  1Lyttle Multics !Rz(}ll  2Lyttle Multics  R{l&l  3Lyttle Multics !R|=Fll! 4Lyttle Multics !R|{l[la! 5Lyttle Multics !!0R}Nl/l!0!6Lyttle Multics !!DR~l/l!D!7Maryniuk Multics !0!XRGmm!X!08Maryniuk Multics !D"8Rm m!l!D9Lyttle Multics h!RHmm|!!X:Lyttle Multics !l!4RIWxmm!!l;Lyttle Multics !RI'~mm!!<Lyttle Multics !!RI7^mUm\!!=Lyttle Multics !!RJomm!!>Lyttle Multics !!RK mm!!?Lyttle Multics !!RK Unn!!@Lyttle Multics !! RKmT#nBnIo! !ALyttle Multics !! RL5Hnenl! !BLyttle Multics ! !RLXVnn!4! CLyttle Multics !!HRMnn!H! DLyttle Multics !4!\RLnn~!\!4ELyttle Multics !H!pR'n;nB!p!HFLyttle Multics !\!REfngnn~!!\GLyttle Multics !p"`R'nn!!pHLyttle Multics ! !R0nnv!!ILyttle Multics !!RFooO!!JLyttle Multics !!R&Vouo|$!!KLyttle Multics !!REoo!!LLyttle Multics !!R/Foo!!MLyttle ltics #$ R4fhufum$ #Lyttle Multics #$ R4g+{@uu$ #Lyttle Multics $ $4R4guu$4$ Lyttle Multics $ $HR4guu$H$ Lyttle Multics $4$\R4gu.u5$\$4Lyttle Multics $H$pR4gCulus$p$HLyttle Multics $\$R4hfjuu$$\Lyttle Multics $p$8R4h9uu$$pLyttle Multics #$R9b kvv $$Lyttle Multics $$R9c8v+v2w$$Lyttle Multics $$R9cudvPvW{$$Lyttle Multics $$R9c vvv}x$$Lyttle Multics $$R9cMvv$$Lyttle Multics $$R9cvv{$$Lyttle Multics $$$R9dDvv$$$Lyttle Multics $%R9dBpv#v*$8$Lyttle Multics $$LR9d{vSvZ$L$$Lyttle Multics $8$`R9davv$`$8Lyttle Multics $L$tR9emvv$t$LLyttle Multics $`$R9eivv$$`Lyttle Multics $t$R9eMw w$$tLyttle Multics $$R9ewKwR$$Lyttle Multics $$R9fI0w{w$$Lyttle Multics $$R9fzww$$Lyttle Multics $$R9fww$$Lyttle Multics $%R9f$ww"%$Lyttle Multics $%R9fGwMwT%$Lyttle Multics %%@R9gG wuw|%(%Lyttle Multics #l%<R9gw w%<%Lyttle Multics %(%PR9iw"w$%P%(Lyttle Multics %<%dR9j|xx%d%<Lyttle Multics %P%xR9jE"x>5xL%x%PLyttle Multics %d%R9jx-x%%dLyttle Multics %x%R9kQx2x%%xLyttle Multics %%R9k|x&x%%Lyttle Multics %%R9l7xO9x^P%%Lyttle Multics %'R9mXxx%%Lyttle Multics $$%R>ney:yA%%Lyttle Multics %%R>;yjyq%%Lyttle Multics %%R>Vyy%%Lyttle Multics %%,R>M yy%,%Lyttle Multics %%R>5yy%@%Lyttle Multics %%TR>(Q y*y1%T%,Lyttle Multics %@%hR>)y[yb%h%@Lyttle Multics %T%|R>yy%|%TLyttle Multics %h%R>Eyy%%hLyttle Multics %|%R>jzz%%|Lyttle Multics %&pR>'z=zD%%Lyttle Multics %,%RVta3zkzr'%%Lyttle Multics %%RVtzz%%Lyttle Multics %%RVtYzz%%Lyttle Multics %&A('Lyttle Multics '(RgqYfmtq('Lyttle Multics ((,Rgq.(,(Lyttle Multics ((@Rgr:(@(Lyttle Multics (,(TRgr(T(,Lyttle Multics (@(hRgr}(h(@Lyttle Multics (T(|Rgr<C(|(TLyttle Multics (h(Rgs=nu((hLyttle Multics (|(Rgs\O((|Lyttle Multics ((Rgsx((Lyttle Multics ((Rgs v((Lyttle Multics ((Rgti$((Lyttle Multics ((Rgt<+JQ((Lyttle Multics ()Rgtnry((Lyttle Multics '(Rguw((Lyttle Multics ((0Rgum(0(Lyttle Multics ()DRgvxO )D(Rgvr Q|)D)X)l)))))))* * *4*H*\*p*********$*8*L*`*t******+++(+<+P+d+x+++++++++,+@+T+h+|++++++,,,0,D,X,l,,,,,,,, , ,4,H,\,p,,,,,,,--$-8-L-`-t---------(-<-P-d-x------...,.@.T.h.|.........0.D.X.l......./ / /4/H/\/p/////////$/8/L/`/t//////000(0<0P0d0x000000000,0@0T0h0|00000011101D1X1l11111111 1 141H1\1p111111122$282L2`2t222222222(2<2P2d2x222222333,3@3T3h3|33333333303D3X3l33333334 4 444H4\4p444444444$484L4`4t444444555(5<5P5d5x555555555,5@5T5h5|55555566606D6X6l66666666 6 646H6\6p666666677$787L7`7t777777777(7<7P7d7x777777888,8@8T8h8|88888888808D8X8l88888889 9 949H9\9p999999999$989L9`9t999999:::(:<:P:d:x:::::::::,:@:T:h:|::::::;;;0;D;X;l;;;;;;;; ; ;4;H;\;p;;;;;;;<<$<8<L<`<t<<<<<<<<<(<<<P<d<x<<<<<<===,=@=T=h=|=========0=D=X=l=======> > >4>H>\>p>>>>>>>>>$>8>L>`>t>>>>>>???(?<?P?d?x?????????,?@?T?h?|??????@@@0@D@X@l@@@@@@@@ @ @4@H@\@p@@@@@@@AA$A8ALA`AtAAAAAAAAA(A<APAdAxAAAAAABBB,B@BTBhB|BBBBBBBBB0BDBXBlBBBBBBBC C C4CHC\CpCCCCCCCCC$C8CLC`CtCCCCCCDDD(D<DPDdDxDDDDDDDDD,D@DTDhD|DDDDDDEEE0EDEXElEEEEEEEE E E4EHE\EpEEEEEEEFF$F8FLF`FtFFFFFFFFF(F<FPFdFxFFFFFFGGG,G@GTGhG|GGGGGGGGG0GDGXGlGGGGGGGH H H4HHH\HpHHHHHHHHH$H8HLH`HtHHHHHHIII(I<IPIdIxIIIIIIIII,I@ITIhI|IIIIIIJJJ0JDJXJlJJJJJJJJ J J4JHJ\JpJJJJJJJKK$K8KLK`KtKKKKKKKKK(K<KPKdKxKKKKKKLLL,L@LTLhL|LLLLLLLLL0LDLXLlLLLLLLLM M M4MHM\MpMMMMMMMMM$M8MLM`MtMMMMMMNNN(N<NPNdNxNNNNNNNNN,N@NTNhN|NNNNNNOOO0ODOXOlOOOOOOOO O O4OHO\OpOOOOOOOPP$P8PLP`PtPPPPPPPPP(P<PPPdPxPPPPPPQQQ,Q@QTQhLyttle Multics (0)XRgva)X(0Lyttle Multics )D)lRgvd)l)DLyttle Multics )X)RgwNp SZ))XLyttle Multics )l)Rgwg{))lLyttle Multics ))RgwA))Lyttle Multics )*Rgwcp))Lyttle Multics ()Rxs))Lyttle Multics ))RxK^<C))Lyttle Multics ))Rxt{))Lyttle Muernal procedure shares stack frame of external procedure dm_translate_system_config_. before_journal_name internal procedure shares stack frame of external procedure dm_translate_system_config_. return_table 80 internal procedure enables or reverts conditions. on unit on line 629 64 on unit dm_translate_system_config_abort 70 internal procedure is called by several nonquick procedures. SEMANTIC_ANALYSIS internal procedure shares stack frame of external procedure dm_translate_system_config_. LEX internal procedure shares stack frame of external procedure dm_translate_system_config_. ERROR internal procedure shares stack frame of external procedure dm_translate_system_config_. NEXT_STMT internal procedure shares stack frame of external procedure dm_translate_system_config_. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 error_control_table dm_translate_system_config_ 000616 TRACING dm_translate_system_config_ STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME dm_translate_system_config_ 000100 code dm_translate_system_config_ 000101 breaks dm_translate_system_config_ 000142 ignored_breaks dm_translate_system_config_ 000203 lex_delims dm_translate_system_config_ 000244 lex_control_chars dm_translate_system_config_ 000305 byte_count dm_translate_system_config_ 000306 source_ptr dm_translate_system_config_ 000310 temp_storage_ptr dm_translate_system_config_ 000312 Pfirst_stmt_descriptor dm_translate_system_config_ 000314 Pfirst_token_descriptor dm_translate_system_config_ 000316 abs_path dm_translate_system_config_ 000370 my_dm_system_config dm_translate_system_config_ 000500 save_prev_dm_disp dm_translate_system_config_ 000516 dm_system_config_ptr dm_translate_system_config_ 000520 Pthis_token dm_translate_system_config_ 000522 Pstmt dm_translate_system_config_ 000524 Ptoken dm_translate_system_config_ 000526 SPDL dm_translate_system_config_ 000527 MERROR_SEVERITY dm_translate_system_config_ 000530 SERROR_CONTROL dm_translate_system_config_ 000531 MIN_PRINT_SEVERITY dm_translate_system_config_ 000531 SERROR_PRINTED dm_translate_system_config_ 000532 PRINT_SEVERITY_CONTROL dm_translate_system_config_ 000560 dto_convert date_time_offset 000561 dto_code date_time_offset 000562 dto_constant_time_str date_time_offset 000573 dto_new_time_str date_time_offset 000614 dto_constant_time date_time_offset 000616 dto_new_time date_time_offset 000636 LTOKEN_REQD_VALUE SEMANTIC_ANALYSIS 000637 NRED SEMANTIC_ANALYSIS 000640 PRED SEMANTIC_ANALYSIS 000642 PTOKEN_REQD SEMANTIC_ANALYSIS 000644 PTOKEN_REQD_VALUE SEMANTIC_ANALYSIS 000646 STOKEN_FCN SEMANTIC_ANALYSIS 000647 CODE SEMANTIC_ANALYSIS 000650 I SEMANTIC_ANALYSIS 000651 NUMBER SEMANTIC_ANALYSIS 000652 DIRECTION SEMANTIC_ANALYSIS 000704 i LEX 000716 Pstmt ERROR 000720 Perring_token ERROR 000730 Ssearching NEXT_STMT THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. alloc_cs unpk_to_pk cat_realloc_cs call_ext_out_desc call_ext_out call_int_this call_int_other return tra_ext alloc_auto_adj enable shorten_stack ext_entry int_entry reverse_cs set_cs_eis alloc_based THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. absolute_pathname_ convert_date_to_binary_ cv_dec_check_ dm_gen_checksum_ lex_error_ lex_string_$init_lex_delims lex_string_$lex release_temp_segment_ sub_err_ translator_temp_$get_segment translator_temp_$release_all_segments THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. error_table_$no_stmt_delim error_table_$notalloc error_table_$translation_failed LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 333 001007 1241 001022 7 3 001023 7 168 001055 454 001057 455 001063 456 001065 457 001067 459 001072 463 001114 465 001130 466 001141 467 001163 472 001166 473 001207 478 001215 479 001237 481 001262 487 001345 489 001347 490 001352 491 001353 492 001355 493 001357 494 001360 495 001361 496 001362 497 001363 498 001366 499 001371 500 001374 501 001377 502 001402 503 001405 507 001410 510 001523 513 001530 516 001534 518 001536 520 001537 521 001550 523 001571 528 001572 536 001574 539 001614 542 001622 543 001646 545 001653 552 001660 553 001661 554 001662 555 001667 556 001670 557 001672 549 001675 559 001702 560 001703 562 001707 563 001711 565 001750 566 002002 569 002020 570 002032 573 002034 576 002110 578 002121 579 002152 582 002155 585 002224 588 002235 594 002256 603 002260 606 002270 609 002306 612 002336 620 002342 623 002350 627 002356 629 002373 631 002407 632 002413 633 002420 635 002421 637 002433 639 002434 643 002440 646 002444 650 002445 653 002453 654 002457 656 002467 3 30 002472 671 002473 5 50 002475 5 52 002500 5 53 002501 5 55 002502 5 58 002503 5 60 002506 5 62 002510 5 63 002534 5 64 002537 5 65 002543 5 68 002553 5 70 002554 5 71 002560 5 73 002562 5 79 002601 5 84 002612 5 86 002613 5 88 002617 5 90 002620 5 92 002621 5 99 002655 5 101 002656 5 104 002661 5 106 002664 5 107 002710 5 108 002712 5 109 002715 5 111 002716 5 113 002717 5 116 002733 5 118 002734 5 120 002740 5 123 002741 5 124 002742 5 126 002746 5 127 002753 5 128 002757 5 130 002765 808 002766 810 002770 811 002772 812 002773 813 002775 814 002776 815 003000 817 003001 818 003004 821 003005 822 003010 824 003013 825 003015 828 003017 830 003023 831 003032 832 003036 833 003042 834 003044 836 003045 838 003051 839 003055 840 003056 841 003060 843 003061 845 003065 846 003067 848 003070 850 003074 851 003102 852 003106 853 003112 854 003114 856 003115 858 003121 859 003125 860 003126 861 003130 863 003131 865 003135 866 003137 868 003140 870 003144 871 003152 872 003156 873 003162 874 003164 876 003165 878 003171 879 003175 880 003176 881 003200 883 003201 885 003205 886 003207 888 003210 890 003214 891 003222 892 003226 893 003232 894 003234 896 003235 898 003241 899 003245 900 003246 901 003250 903 003251 905 003255 906 003257 908 003260 910 003264 912 003273 913 003277 914 003301 916 003302 918 003306 919 003312 920 003313 921 003315 923 003316 925 003322 926 003324 928 003325 930 003331 931 003333 933 003334 935 003340 936 003344 937 003346 939 003347 941 003353 942 003357 943 003361 945 003362 947 003366 948 003372 949 003374 951 003375 953 003401 954 003405 955 003406 956 003410 958 003411 960 003415 961 003417 963 003420 965 003423 966 003427 967 003431 969 003432 971 003434 972 003440 973 003442 975 003443 977 003447 978 003453 979 003454 980 003456 982 003457 984 003463 985 003465 987 003466 989 003472 991 003473 993 003477 994 003503 996 003504 998 003510 999 003511 1000 003513 1002 003514 1004 003520 1005 003524 1007 003525 1009 003531 1010 003533 1012 003534 1014 003540 1015 003550 1016 003554 1017 003556 1019 003557 1021 003563 1022 003573 1023 003577 1024 003601 1026 003602 1028 003606 1029 003612 1030 003613 1031 003615 1033 003616 1035 003622 1036 003632 1037 003636 1038 003640 1040 003641 1042 003645 1043 003655 1044 003661 1045 003663 1047 003664 1049 003670 1050 003674 1051 003675 1052 003677 1054 003700 1056 003704 1057 003705 1058 003707 1060 003710 1062 003714 1063 003716 1065 003717 1067 003723 1068 003727 1069 003731 1071 003732 1073 003736 1074 003742 1075 003744 1077 003745 1079 003751 1080 003755 1081 003761 1082 003762 1083 003764 1085 003765 1087 003771 1088 003775 1089 003777 1091 004000 1093 004004 1094 004010 1095 004012 1097 004013 1099 004017 1100 004023 1101 004027 1102 004030 1103 004032 1105 004033 1107 004037 1108 004043 1109 004045 1111 004046 1113 004052 1114 004056 1115 004060 1117 004061 1119 004065 1120 004071 1121 004075 1122 004076 1123 004100 1125 004101 1127 004105 1128 004111 1129 004113 1131 004114 1133 004120 1134 004124 1135 004126 1137 004127 1139 004133 1140 004137 1141 004143 1142 004144 1143 004146 1145 004147 1147 004153 1148 004157 1149 004161 1151 004162 1153 004166 1154 004172 1155 004174 1157 004175 1159 004201 1160 004205 1161 004211 1162 004212 1163 004214 1165 004215 1167 004221 1168 004225 1169 004227 1171 004230 1173 004234 1174 004240 1175 004242 1177 004243 1179 004247 1180 004253 1181 004257 1182 004260 1183 004262 1185 004263 1187 004267 1188 004273 1189 004275 1191 004276 1193 004302 1194 004306 1195 004310 1197 004311 1199 004315 1200 004321 1201 004325 1202 004326 1203 004330 1205 004331 1207 004335 1208 004341 1209 004343 1211 004344 1213 004350 1214 004354 1215 004356 1217 004357 1219 004363 1220 004367 1221 004373 1222 004374 1223 004376 1225 004377 1227 004403 1228 004404 1229 004406 1231 004407 1233 004413 1234 004415 6 31 004416 6 36 004420 6 37 004422 6 38 004427 6 39 004431 6 40 004443 6 41 004445 6 42 004447 6 44 004457 6 45 004460 6 47 004473 6 48 004475 6 49 004500 6 51 004502 7 139 004503 7 153 004505 7 154 004516 7 156 004525 7 158 004534 7 160 004535 7 161 004537 7 164 004552 7 166 004556 7 168 004560 7 172 004663 7 177 005011 8 18 005013 8 24 005014 8 25 005016 8 26 005021 8 27 005023 8 28 005032 8 29 005034 8 30 005041 8 31 005042 8 32 005043 8 35 005054 8 36 005060 8 39 005061