THIS FILE IS DAMAGED 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* ::= []... 51* ::= | 52* | 53* | 54* | 55* | 56* | 57* | 58* | 59* 60* ::= 61* system_before_journal_size: ; 62* ::= 63* max_processes: ; 64* ::= 65* max_transactions: ; 66* ::= 67* default_before_journal: ; 68* ::= 69* prev_bootload_status: [,]...; 70* ::= 71* current_bootload_enable: force | ^force; 72* ::= 73* idle_timeout: ; 74* ::= 75* shutdown_delay: ; 76* ::= 77* log_proc_terms: on | off; 78* ::= end; 79* 80* ::= dir= | entry= | 81* dir=,entry= | 82* entry=,dir= | 83* 84* ::= hold | adopt | recover | recovery_check_mode | ^hold | ^adopt | ^recover | ^recovery_check_mode 85* 86* ::= | aim_dir | bootload_dir. 87*/*++ 88* 89*BEGIN 90*1 / system_before_journal_size : ; / 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 / 97* LEX(2) ERROR(4) NEXT_STMT / BEGIN \ 98* 99*3 / system_before_journal_size / 100* ERROR(8) / BEGIN \ 101* 102*4 / max_processes : ; / 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 / 109* LEX(2) ERROR(4) NEXT_STMT / BEGIN \ 110* 111*6 / max_processes / 112* ERROR(8) / BEGIN \ 113* 114*7 / max_transactions : ; / 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 / 121* LEX(2) ERROR(4) NEXT_STMT / BEGIN \ 122* 123*9 / max_transactions / 124* ERROR(8) / BEGIN \ 125* 126*10 / idle_timeout : ; / 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 / 133* LEX(2) ERROR(4) NEXT_STMT / BEGIN \ 134* 135*12 / idle_timeout / 136* ERROR(8) / BEGIN \ 137* 138*13 / shutdown_delay : ; / 139* LEX(2) [ dm_system_config.shutdown_delay = convert_date_time_offset(); 140*] 141* LEX(2) / BEGIN \ 142* 143*14 / shutdown_delay / 144* LEX(2) ERROR(4) NEXT_STMT / BEGIN \ 145* 146*15 / shutdown_delay / 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 / 163* LEX(2) ERROR(4) NEXT_STMT / BEGIN \ 164* 165*21 / current_bootload_enable / 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 / 175* LEX(2) ERROR(6a.actc.ab.ca>$QT߄$ns SERVER : TO:$RTߑDns MAILER : From:$STߒz,ns MAILER : To:$TT8)in SMTP : [ 0: 0:30] ACTC.AB.CA (0)$UTx.ns SERVER : FROM:$VTc$ns SERVER : TO:$WT}Dns MAILER : From:$XT,ns MAILER : To:$YTߏS)in SMTP : [ 0: 0:34] ACTC.AB.CA (0)$ZTߐ!.ns SERVER : FROM:$[TߑK$ns SERVER : TO:$\TߝMDns MAILER : From:$]Tߞ,ns MAILER : To:$^T)in SMTP : [ 0: 0:32] ACTC.AB.CA (0)$_Tw.ns SERVER : FROM:$`Te$ns SERVER : TO:$aT"ADns MAILER : From:$bT#',ns MAILER : To:$cT)in SMTP : [ 0: 0:33] ACTC.AB.CA (0)$dT.ns SERVER : FROM:$eTW$ns SERVER : TO:$fTચWDns MAILER : From:$gT+,ns MAILER : To:$hT%)in SMTP : [ 0: 0:33] ACTC.AB.CA (0)$iT'c.ns SERVER : FROM:$jT(>a$ns SERVER : TO:$kT3Dns MAILER : From:$lT4V,ns MAILER : To:$mT)in SMTP : [ 0: 0:35] ACTC.AB.CA (0)$nTY.ns SERVER : FROM:$oTq$ns SERVER : TO:$pToDns MAILER : From:$qT-,ns MAILER : To:$rTB)in SMTP : [ 0: 0:34] ACTC.AB.CA (0)$sTFƗ.ns SERVER : FROM:$tTGW$ns SERVER : TO:$uTSFDns MAILER : From:$vTT,ns MAILER : To:$wT;{)in SMTP : [ 0: 0:35] ACTC.AB.CA (0)$xTד .ns SERVER : FROM:$yT8$ns SERVER : TO:$zTDns MAILER : From:${Tƿ,ns MAILER : To:$|T] )in SMTP : [ 0: 0:32] ACTC.AB.CA (0)$}T_b.ns SERVER : FROM:$~T`q$ns SERVER : TO:$Tf%in IPX25 : NRESETIND read wakeup$ՀTfM%in IPX25 : NRESETIND read wakeup$ՁT{Dns MAILER : From:$ՂT|•,ns MAILER : To:$ՃT)in SMTP : [ 0: 0:34] ACTC.AB.CA (0)$ՄT.ns SERVER : FROM:$ՅTb$ns SERVER : TO:$ՆTX%in IPX25 : NRESETIND read wakeup$ՇTd%in IPX25 : NRESETIND read wakeup$ՈTU2Dns MAILER : From:$ՉTb,ns MAILER : To:$T3)in SMTP : [ 0: 0:35] ACTC.AB.CA (0)$Tɀ.ns SERVER : FROM:$T$ns SERVER : TO:$TDns MAILER : From:$Tٹ,ns MAILER : To:$TW)in SMTP : [ 0: 0:34] ACTC.AB.CA (0)$TXۧ.ns SERVER : FROM:$TY\$ns SERVER : TO:$TfrDns MAILER : From:$TgIs,ns MAILER : To:$T}&)in SMTP : [ 0: 0:33] ACTC.AB.CA (0)$T.ns SERVER : FROM:$T($ns SERVER : TO:$TN%in IPX25 : NRESETIND read wakeup$T%in IPX25 : NRESETIND read wakeup$TDns MAILER : From:$TFF,ns MAILER : To:$T~ҥ)in SMTP : [ 0: 0:34] ACTC.AB.CA (0)$Tm.ns SERVER : FROM:$TB$ns SERVER : TO:$TVDns MAILER : From:$T쒠,ns MAILER : To:$Tn)in SMTP : [ 0: 0:35] ACTC.AB.CA (0)$Tv0.ns SERVER : FROM:$TC$ns SERVER : TO:$T%in IPX25 : NRESETIND read wakeup$T*%in IPX25 : NRESETIND read wakeup$T5=Dns MAILER : From:$T5d,ns MAILER : To:$T.)in SMTP : [ 0: 0:34] ACTC.AB.CA (0)$Tj.ns SERVER : FROM:$Tt$ns SERVER : TO:$TDns MAILER : From:$TZ,ns MAILER : To:$TAa)in SMTP : [ 0: 0:35] ACTC.AB.CA (0)$TC).ns SERVER : FROM:$TC$ns SERVER : TO:$TWIDns MAILER : From:$TXB,ns MAILER : To:$Tt)in SMTP : [ 0: 0:36] ACTC.AB.CA (0)$TW.ns SERVER : FROM:$Tڼ$ns SERVER : TO:$TJDns MAILER : From:$T-,ns MAILER : To:$Tc )in SMTP : [ 0: 0:33] ACTC.AB.CA (0)$Te.ns SERVER : FROM:$Te'$ns SERVER : TO:$Tt9_Dns MAILER : From:$TuZ,ns MAILER : To:$Tu)in SMTP : [ 0: 0:33] ACTC.AB.CA (0)$T4.ns SERVER : FROM:$Th$ns SERVER : TO:$TYDns MAILER : From:$T,ns MAILER : To:$Tpyj)in SMTP : [ 0: 0:31] ACTC.AB.CA (0)$Tre^.ns SERVER : FROM:$Tsn$ns SERVER : TO:$TDns 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 $nTmﵮ6in CHARGEN Server: Starting UDP service on port 19.$oTm٠in $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.$wTmin $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:$֋Tm5nm MAILER : To:<62146@UCDASVM1.ADMIN.UCALGARY.CA>$֌Tn )in SMTP : [ 0: 1: 7] ACTC.AB.CA (3)$֍Tn_@nm MAILER : From:$֎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:$֒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:$Tt-)in SMTP : [ 0: 0: 6] ACTC.AB.CA (0)$Tt2;nm MAILER : From:$Tt&nm MAILER : To:$Tt)in SMTP : [ 0: 0:12] ACTC.AB.CA (0)$Ttw?nm MAILER : From:$Tt,nm MAILER : To:$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:$Tu2)in SMTP : [ 0: 0: 9] ACTC.AB.CA (0)$Tu6B=?nm MAILER : From:$Tu7'nm MAILER : To:$Tu@4)in SMTP : [ 0: 0: 3] ACTC.AB.CA (0)$TuD>?nm MAILER : From:$TuEQ-nm MAILER : To:$Tua)in SMTP : [ 0: 0: 8] ACTC.AB.CA (0)$Tuh?nm MAILER : From:$Tui(nm MAILER : To:$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:$Tu=)ns SERVER : From:$Tu2ns SERVER : To:$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:$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:$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:$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:$Tvk+ns SERVER : From:$Tvl%ns SERVER : To:$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:$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:$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:$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:$Tw)in SMTP : [ 0: 0:27] ATo:$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:$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:$;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:$>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:$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:$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:$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:$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:$MT|W+ns SERVER : From:$NT|Xk$ns SERVER : To:$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:$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:$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:$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:$\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:$_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:$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:$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:$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:$֡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:$֤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:$֧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:$֪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:$֭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:$ְ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:$ֳ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:$ֶ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:$ֹ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:$ּ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:$ֿ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:$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:$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:$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:$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:$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:$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:$Td)in ,nm MAILER : To:$ 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:$ 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:$TT)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$TِGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$T,nm MAILER : To:$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:$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:$T$TDއ,nm MAILER : To:$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:$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:$"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:$%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:$(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:$+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:$.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:$1T}$@)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$2TͶGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$3T,nm MAILER : To:$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:$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:$: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:$=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 (). */ 3 70 /* 2 = compile test for any token value */ 3 71 /* (). */ 3 72 /* 3 = compile test for a PL/I identifier */ 3 73 /* () of 32 or fewer characters. */ 3 74 /* 4 = compile test for token which is a */ 3 75 /* . */ 3 76 /* 5 = compile test for token which is a single */ 3 77 /* backspace character (). */ 3 78 /* 6 = compile test for a token which is a */ 3 79 /* . */ 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:$׫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:$׮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:$ױ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:$״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:$׷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:$׺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:$׽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:$T$TG,nm MAILER : To:$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:$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:$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:$T٤X)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:$TEk)in SMTP : [ 0: 0:28] ACTC.AB.CA (0)$THޭGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$TI%,nm MAILER : To:$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:$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:$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:$TS)in SMTP : [ 0: 0:27] ACTC.AB.CA (0)$T1Gnm MAILER : From:<@A */ 711 76, 79, /* 31/ dir = ; */ 712 80, 83, /* 32/ dir = , */ 713 84, 86, /* 33/ dir = */ 714 87, 90, /* 34/ entry = ; */ 715 91, 94, /* 35/ entry = , */ 716 95, 97, /* 36/ entry = */ 717 6, 6, /* 37/ */ 718 8, 8, /* 38/ */ 719 98, 99, /* 39/ hold ; */ 720 100, 101, /* 40/ hold , */ 721 102, 103, /* 41/ hold */ 722 104, 106, /* 42/ ^ hold ; */ 723 107, 109, /* 43/ ^ hold , */ 724 110, 112, /* 44/ ^ hold */ 725 113, 114, /* 45/ adopt ; */ 726 115, 116, /* 46/ adopt , */ 727 117, 118, /* 47/ adopt */ 728 119, 121, /* 48/ ^ adopt ; */ 729 122, 124, /* 49/ ^ adopt , */ 730 125, 127, /* 50/ ^ adopt */ 731 128, 129, /* 51/ recover ; */ 732 130, 131, /* 52/ recover , */ 733 132, 133, /* 53/ recover */ 734 134, 136, /* 54/ ^ recover ; */ 735 137, 139, /* 55/ ^ recover , */ 736 140, 142, /* 56/ ^ recover */ 737 143, 144, /* 57/ recovery_check_mode ; */ 738 145, 146, /* 58/ recovery_check_mode , */ 739 147, 148, /* 59/ recovery_check_mode */ 740 149, 151, /* 60/ ^ recovery_check_mode ; */ 741 152, 154, /* 61/ ^ recovery_check_mode , */ 742 155, 157, /* 62/ ^ recovery_check_mode */ 743 6, 6, /* 63/ */ 744 8, 8); /* 64/ */ 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 (). */ 761 /* 2 = compile test for any token value */ 762 /* (). */ 763 /* 3 = compile test for a PL/I identifier */ 764 /* () of 32 or fewer characters. */ 765 /* 4 = compile test for token which is a */ 766 /* . */ 767 /* 5 = compile test for token which is a single */ 768 /* backspace character (). */ 769 /* 6 = compile test for a token which is a */ 770 /* . */ 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, :$HTu%ns SERVER : To:$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:$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:$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:$STּC)in SMTP : [ 0: 0: 4] ACTC.AB.CA (0)$TTڍGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$UT+,nm MAILER : To:$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:$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:$\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:$_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:$bTё%)in SMTP : [ 0: 0: 9] ACTC.AB.CA (0)$cTպGnm MAILER : From:<@ACTC_MULTICS.ACTC.AB.CA:Jim_Gee@l66a.actc.ab.ca>$dT,nm MAILER : To:$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:$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:$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:$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:$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:$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:$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:$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: 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 /* */ 5 74 /* In push-down-language, there are 2 */ 5 75 /* interpretations of . */ 5 76 if RED.TOKEN_REQD.IFIRST = RED.TOKEN_REQD.ILAST & 5 77 Ptoken = null then /* When 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 , 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 . */ 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; /* */ 5 91 5 92 RD_TEST_TOKEN(3): if token.Lvalue > 0 & /* */ 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): /* */ 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 /* */ 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 /* */ 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!=` qRvZ3PRiwqYZ3Uueץx}vŁ8`hńńņ nmDr %7)`2) pda`uk q3qES5TqTH}S9`+q"`dg,xqqq4qzq$qqqq|q#qSwßj1qqo}̩dBq qśiSdgFJGqqx_@,Eqr{q=2ql8J]]ZvML%Swàq,VqnS!qd\-]y2`,EJ``r&`)&&'`V9@e``lŖD``$pqAqHqJ``dx |gž`ggŻ `,` `` "̿łD$Feأ g7edk$c Oy-u lɂaXVڤ}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 QƆf!#Maryniuk Multics Qjx+$Maryniuk Multics Q=-`%Maryniuk Multics Q7X_V&Maryniuk Multics @Q%2@2'Maryniuk Multics QR9(Maryniuk Multics ,Qϣ"*,)Maryniuk Multics Qʙ3iq@*Maryniuk Multics TQʚC#T,+Maryniuk Multics @hQʛ h@,Maryniuk Multics T|QʜY1&;|T-Maryniuk Multics hQʝn vh.Maryniuk Multics Qʝa8 |/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 QBGMaryniuk 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 Q9'' 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{ >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 dRB–AA&dMaryniuk Multics xRB2B.B5xMaryniuk Multics LRBŖBj+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 R׳NQQNLyttle Multics $R5QQ$OLyttle Multics 8R؜9RRu8PLyttle Multics $PRM:dR-R4L$QLyttle Multics `RрR]RdG`8RLyttle Multics LtRGRRtLSLyttle Multics `RٲRR|`TLyttle Multics tR $R#R*tULyttle Multics RͽzRQRXVLyttle Multics R4zRRWLyttle Multics Rڦ7SRR'XLyttle Multics RS SYLyttle Multics Rۆ%S9S@ZLyttle Multics HR-lSg*Sr:[Lyttle Multics (RSS%S+(\Lyttle Multics <R;)SS<]Lyttle Multics (hRݔSH(SRP(^Lyttle Multics 8dROSzSd<_Lyttle Multics PxRb\SSxP`Lyttle Multics dRҜR7SSdaLyttle Multics xRQT)T0xbLyttle Multics RtTSTZcLyttle Multics RiT~TdLyttle Multics RV8__\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 Rňk`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 RGђaa~Lyttle Multics $RйbaaLyttle Multics Rйba+a2Lyttle Multics Rк {aSaZLyttle Multics Rкq&aaLyttle Multics Rк7aaLyttle Multics (Rкaa(Lyttle Multics <Rл=6bb&<Lyttle Multics (PRлțZbWb^tP(Lyttle Multics <dRл;Lb{b d<Lyttle Multics PxRлbbxPLyttle Multics dRм97bb dLyttle Multics xRмb0b7xLyttle Multics Rмb_bfLyttle Multics Rн=bbLyttle Multics RнxbbLyttle Multics Rн@cc Lyttle Multics RнpClc9Lyttle Multics  Ro lii| Lyttle Multics (R#Jii ( Lyttle Multics  <R惉Tjj~ < 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!XRGƺmm!X!08Maryniuk Multics !D"8Rm m!l!D9Lyttle Multics h!RHmm|!!X:Lyttle Multics !l!4RIWxmm!!l;Lyttle Multics !RI'~mm!!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 $$R9cMܘvv$$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 $`$R9eѾivv$$`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%R9jx-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 > >4>H>\>p>>>>>>>>>$>8>L>`>t>>>>>>???(?