DataMuseum.dk

Presents historical artifacts from the history of:

DANOSI

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DANOSI

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦d326e08c2⟧ TextFile

    Length: 39914 (0x9bea)
    Types: TextFile
    Names: »OUTGRAM«

Derivation

└─⟦7d3116ab8⟧ Bits:30010531 BOBS Sourcer RTP25,RTP11,RTP86,RTP ASN1 grammatikken DVBS1.SW2114.src.2.6-9 BB920506
    └─⟦this⟧ »RTP\OUTGRAM«

TextFile

▶00◀*head cpu
bb  1991.05.06  10.47.13   cpu: ▶00◀1281.33 sec.
▶00◀*bobs
▶00◀
 bobs8000   version 1988.02.16
 \f

************ A LIST OF INPUT WITH POSSIBLE ERRORMESSAGES  ************
 
  
  
  
  options(1, 3, 28, 32, 34)
  
 
 
  TERMINAL      INTERN VAERDI
 
  BOBS-GO                       0
  -EOF-                         1
  AND                           2
  ARRAY                         3
  AS                            4
  BEGIN                         5
  CASE                          6
  CHANNEL                       7
  CONST                         8
  CONTINUELOOP                  9
  DIV                          10
  DO                           11
  DOWNTO                       12
  ELSE                         13
  EMPTY                        14
  END                          15
  ENDLOOP                      16
  ERROR                        17
  EXIT                         18
  EXITLOOP                     19
  EXTERNAL                     20
  OPENROUTINE                  21
  FOR                          22
  FORWARD                      23
  FUNCTION                     24
  GETSWITCH                    25
  GOTO                         26
  IF                           27
  IN                           28
  INSPECT                      29
  KONST                        30
  LOCKBUF                      31
  LOCKDATA                     32
  LOOP                         33
  MOD                          34
  NAME                         35
  NOT                          36
  OF                           37
  OR                           38
  OTHERWISE                    39
  PACKED                       40
  PACKED3502                   41
  PROCEDURE                    42
  PROGRAM                      43
  RECORD                       44
  REGION                       45
  REPEAT                       46
  SET                          47
  SHARED                       48
  SHIFT                        49
  STRING                       50
  THEN                         51
  TO                           52
  TYPE                         53
  TYPESIZE                     54
  UNTIL                        55
  VAR                          56
  VARSIZE                      57
  WHILE                        58
  WITH                         59
  XOR                          60
  +                            61
  -                            62
  *                            63
  /                            64
  '                            65
  "                            66
  <                            67
  >                            68
  <>                           69
  (:                           70
  :)                           71
  <=                           72
  >=                           73
  (                            74
  )                            75
  (.                           76
  .)                           77
  ^                            78
  =                            79
  :=                           80
  :=:                          81
  .                            82
  ,                            83
  ;                            84
  :                            85
  ..                           86
  #                            87
  ***                          88
  (*                           89
  *)                           90
  ?                            91
  &                            92
  !                            93
 
 
  
 
 
  *****************************  END OF LIST *****************************
 
 \f

****************************  GRAMMARCHECKS  ****************************
 
  IT HAS BEEN CHECKED THAT ALL NONTERMINALS
  EXCEPT THE GOALSYMBOL APPEAR IN BOTH
  LEFT AND RIGHTSIDE OF A PRODUCTION
 
 
 
  IT HAS BEEN CHECKEDTHAT THERE 
  EXISTS NO IDENTICAL PRODUCTIONS 
 
 
 
 
 
  IT HAS BEEN CHECKED THAT ALL NONTERMINALS CAN
  PRODUCE A STRING OF ONLY TERMINAL SYMBOLS
 
 
  IT HAS BEEN CHECKED THAT NO NONTERMINAL
  IS BOTH LEFT AND RIGHT RECURSIVE
 \f

 ****************************** THE GRAMMAR ******************************




    1   <PROG> ::= <EXTERNALPART> <PBODY>                             :000 CODE, SYMBOL TABLE 
    2            ! <EMPTYCONTEXT> <BODY> .                            :0 
    3            ! ERROR                                              :100 ------------------ 

    4   <EXTERNALPART> ::= <FIRSTBEGIN> <EXTERNALS>                   :1311 ENDINCLUDE 

    5   <FIRSTBEGIN> ::= EMPTY                                        :1010 FIRST BEGIN 

    6   <EXTERNALS> ::= <EXTERNALS> <EXTERNAL>                        :0 
    7                 ! <EXTERNAL>                                    :0 

    8   <EXTERNAL> ::= <CONTEXTNAME> ; <EXTERNALDECLPART> .           :1310 ENDCONTEXT 

    9   <EXTERNALDECLPART> ::= <EXTERNALDECLPART> <EXTERNALDECLARATION> :0 
   10                        ! <EXTERNALDECLARATION>                  :0 

   11   <EXTERNALDECLARATION> ::= <CONSTANTDECLARATION>               :0 
   12                           ! <TYPEDECLARATION>                   :0 
   13                           ! <ROUTINEDECLARATION> ;              :0 

   14   <CONTEXTNAME> ::= NAME                                        :1301 CONTEXT 

   15   <EMPTYCONTEXT> ::= EMPTY                                      :1311 ENDINCLUDE 

   16   <PBODY> ::= <BODY> .                                          :0 
   17             ! EMPTY                                             :1302 EOM, LASTEND ( IF SAVE ) 

   18   <BODY> ::= <BODYLIST>                                         :1303 EOM, LASTEND 

   19   <BODYLIST> ::= <BODYLIST> ; <BODYELEM>                        :0  
   20                ! <BODYELEM>                                     :0  

   21   <BODYELEM> ::= <BEGINLEVEL> <PROGRAMDECLARATION>              :1312 ENDLEVEL 
   22                ! <BEGINLEVEL> <ROUTINEDECLARATION>              :1312 ENDLEVEL 

   23   <PROGRAMDECLARATION> ::= PROGRAM <PROGRAM>                    :0 

   24   <PROGRAM> ::= <PROGRAMNAME> <FORMALPARAMETERS> <PROGSEMS> <PROGRAMBLOCK> :0 
   25               ! ERROR                                           :101 ERRORPROGRAM 

   26   <PROGSEMS> ::= ;                                              :1304 ENDPROGDECL 

   27   <PROGRAMNAME> ::= NAME                                        :1305 PROGDECL, DECLARATION 

   28   <PROGRAMBLOCK> ::= <PROGDECLARATIONS> <STARTLABELSCOPE> <COMPOUNDSTATEMENT> 
                           <ENDLABELSCOPE>                            :1012 ENDBLOCK ENDLEVEL ENDLEVEL
   29                    ! EXTERNAL                                   :1028 EXTERNAL ENDLEVEL 

   30   <STARTLABELSCOPE> ::= EMPTY                                   :1202 STARTLABELSCOPE 

   31   <ENDLABELSCOPE> ::= EMPTY                                     :1203 ENDLABELSCOPE 

   32   <BEGINLEVEL> ::= EMPTY                                        :1022 BEGINLEVEL, BEGINLEVEL 

   33   <PROGDECLARATIONS> ::= <BEGINLEVEL> <DECLS>                   :1009 ENDDECLARATIONS 

   34   <DECLS> ::= EMPTY                                             :0 
   35             ! <PROGDECLARATIONLIST>                             :0 

   36   <PROGDECLARATIONLIST> ::= <PROGDECLARATIONLIST> <PROGDECLPART> :0 
   37                           ! <PROGDECLPART>                      :0 

   38   <PROGDECLPART> ::= <COMMONDECLARATION>                        :0 
   39                    ! <SHAREDDECLARATION>                        :0 
   40                    ! <PROGRAMDECLARATION> ;                     :0 

   41   <ROUTINEDECLPART> ::= <ROUTINEDECLPART> <COMMONDECLARATION>   :0 
   42                       ! <COMMONDECLARATION>                     :0 

   43   <COMMONDECLARATION> ::= <CONSTANTDECLARATION>                 :0 
   44                         ! <TYPEDECLARATION>                     :0 
   45                         ! <VARIABLEDECLARATION>                 :0 
   46                         ! <ROUTINEDECLARATION> ;                :0 

   47   <CONSTANTDECLARATION> ::= CONST <CONSTANTDECLARATIONLIST>     :0 

   48   <CONSTANTDECLARATIONLIST> ::= ERROR                           :103 ERRORCONSTANT 
   49                               ! <CONSTANTDECLARATIONLIST> <CONSTANTDEFINITION> :0 
   50                               ! <CONSTANTDEFINITION>            :0 

   51   <CONSTANTDEFINITION> ::= <CONSTNAME> = <EXPRESSION> ;         :501 ENDCONSTDECL 
   52                          ! <CONSTNAME> ERROR                    :503 ID(ANONYMOUS) ENDEXPRESSION ENDCONSTDECL 

   53   <CONSTNAME> ::= NAME                                          :502 CONSTDECL, DECLARATION 

   54   <TYPEDECLARATION> ::= TYPE <TYPEDECLARATIONLIST>              :0 

   55   <TYPEDECLARATIONLIST> ::= ERROR                               :104 ERRORTYPE 
   56                           ! <TYPEDECLARATIONLIST> <SINGLETYPEDECLARATION> 
                                  ;                                   :0 
   57                           ! <SINGLETYPEDECLARATION> ;           :0 

   58   <SINGLETYPEDECLARATION> ::= <TYPENAME> <FORMALTYPEPARAMETERS> <EQ> 
                                    <COMMONTYPESPEC>                  :601 ENDLEVEL ENDTYPEDECL, ENDTYPEDECL ENDLEVEL 
   59                             ! <TYPENAME>                        :606 , FORWARDTYPE 

   60   <FORMALTYPEPARAMETERS> ::= <BEGINLEVEL>                       :1007 ENDFORMAL, ENDFORMAL 
   61                            ! <BEGINLEVEL> ( <TYPEFORMALLIST> )  :1007 ENDFORMAL, ENDFORMAL 

   62   <TYPEFORMALLIST> ::= <TYPEFORMALLIST> ; <TYPEPARAMDESCR>      :0 
   63                      ! <TYPEPARAMDESCR>                         :0 

   64   <TYPEPARAMDESCR> ::= <STARTLIST> <PARAMETERGROUP> <TYPECOLON> <COMMONTYPESPEC> :1006 

   65   <STARTLIST> ::= EMPTY                                         :1023 FORMAL PARAM LIST, STARTLIST 

   66   <EQ> ::= =                                                    :602 
   67          ! ERROR                                                :123 ERROR 

   68   <DEFTYPESPEC> ::= <TYPEDEFINITION>                            :0 
   69                   ! <VARIABLE>                                  :603 ENDTYPE 

   70   <TYPEDEFINITION> ::= <STRUCTUREDTYPE>                         :604 
   71                      ! <UPARROW> <COMMONTYPESPEC>               :605 ENDPOINTER 
   72                      ! <STARTSCALAR> <IDORANONYMLIST> )         :607 ENDSCALAR 
   73                      ! <EXPRESSION> <ENDSUBRANGE>               :608 ENDSUBRANGE 
   74                      ! <SETTYPE>                                :0 
   75                      ! <PROGRAMTYPE>                            :0 

   76   <PROGRAMTYPE> ::= <EXTERNALPROGRAM> <FORMALPARAMETERS>        :617 ENDPROGDECL EXTERNAL ENDLEVEL 

   77   <EXTERNALPROGRAM> ::= EXTERNAL PROGRAM                        :616 PROGDECL 

   78   <UPARROW> ::= ^                                               :620 POINTERTYPE, NEWTYPE 

   79   <STARTSCALAR> ::= ( NAME ,                                    :621 , NEWTYPE STARTLIST DECLARELIST
   80                   ! ( ? ,                                       :622 , NEWTYPE STARTLIST DECLARELIST

   81   <ENDSUBRANGE> ::= .. <EXPRESSION>                             :0 

   82   <COMMONTYPESPEC> ::= <DEFTYPESPEC>                            :0 

   83   <STRUCTUREDTYPE> ::= <PACKINFO> <UNPACKEDSTRUCTUREDTYPE>      :0 

   84   <PACKINFO> ::= PACKED                                         :614 , PACKED 
   85                ! PACKED3502                                     :618 , PACKED3502 
   86                ! EMPTY                                          :0 , UNPACKED 

   87   <UNPACKEDSTRUCTUREDTYPE> ::= <ARRAYTYPE>                      :0 
   88                              ! <RECORDTYPE>                     :0 

   89   <TYPENAME> ::= NAME                                           :600 TYPEDECL, DECLARATION 

   90   <ARRAYTYPE> ::= <ARRAYSTART> <COMMONTYPESPEC> <COMPONENTTYPE> :615 ENDARRAY(S) 

   91   <ARRAYSTART> ::= ARRAY (                                      :623 ARRAYTYPE, NEWTYPE 

   92   <COMPONENTTYPE> ::= <NEWDIMENSION> <COMMONTYPESPEC> <COMPONENTTYPE> :0 
   93                     ! ) <OFTYPE> <COMMONTYPESPEC>               :0 
   94                     ! ERROR                                     :123 ERROR 

   95   <NEWDIMENSION> ::= ,                                          :623 ARRAYTYPE, NEWTYPE 

   96   <OFTYPE> ::= OF                                               :640 
   97              ! ERROR                                            :109 ERROR 

   98   <RECORDTYPE> ::= <RECORD> <FIELDLIST> END                     :610 ENDRECORD, ENDRECORD 

   99   <RECORD> ::= RECORD                                           :624 RECORDTYPE, NEWTYPE

  100   <FIELDLIST> ::= <FIELDLIST> ; <RECORDSECTION>                 :0 
  101                 ! <RECORDSECTION>                               :0 

  102   <RECORDSECTION> ::= EMPTY                                     :0 
  103                     ! <STARTSECTION> <IDORANONYMLIST> <TYPECOLON> 
                            <COMMONTYPESPEC>                          :611 ENDFIELDLIST, ENDFIELD 

  104   <STARTSECTION> ::= EMPTY                                      :632 RECFIELDS, STARTLIST 

  105   <TYPECOLON> ::= :                                             :640 
  106                 ! ERROR                                         :110 ERROR 

  107   <SETTYPE> ::= <SETOF> <COMMONTYPESPEC>                        :612 ENDSET ENDTYPE, ENDSET 

  108   <SETOF> ::= SET <OFTYPE>                                      :625 SETTYPE, NEWTYPE 

  109   <VARIABLEDECLARATION> ::= <VAR> <VARIABLEDECLARATIONLIST>     :0 

  110   <VAR> ::= VAR                                                 :706 KIND:=VAR 

  111   <SHAREDDECLARATION> ::= <SHARED> <VARIABLEDECLARATIONLIST>    :0 

  112   <SHARED> ::= SHARED                                           :707 KIND:=SHARED 

  113   <VARIABLEDECLARATIONLIST> ::= <VARIABLEDECLARATIONLIST> <VARDECL> :0 
  114                               ! <VARDECL>                       :0 

  115   <VARDECL> ::= <STARTVAR> <IDENTIFIERLIST> <TYPECOLON> <COMMONTYPESPEC> 
                      <INITIALIZATION> ;                              :0 

  116   <STARTVAR> ::= EMPTY                                          :700 VARDECL/SHAREDDECL, STARTLIST 

  117   <IDENTIFIERLIST> ::= <IDENTIFIERLIST> , <IDENT>               :0 
  118                      ! <IDENT>                                  :0 
  119                      ! <IDENTIFIERLIST> , ERROR                 :111 ERRORVAR 
  120                      ! ERROR                                    :112 ERRORVAR 

  121   <IDORANONYMLIST> ::= <IDORANONYMLIST> , <IDORANONYM>          :0 
  122                      ! <IDORANONYM>                             :0 
  123                      ! <IDORANONYMLIST> , ERROR                 :111 ERRORVAR 
  124                      ! ERROR                                    :112 ERRORVAR 

  125   <IDENT> ::= NAME                                              :701 , DECLARELIST 

  126   <IDORANONYM> ::= NAME                                         :701 , DECLARELIST 
  127                  ! ?                                            :704 , DECLARELIST 

  128   <INITIALIZATION> ::= <INITASSIGN> <EXPRESSION>                :702 ENDINIT 
  129                      ! EMPTY                                    :705 ENDVAR/ENDSHARED 

  130   <INITASSIGN> ::= :=                                           :708 INIT 

  131   <ROUTINEDECLARATION> ::= <ROUTINEHEADING> ; <ROUTINEBLOCK>    :0 

  132   <ROUTINEHEADING> ::= <PROCEDUREHEADING>                       :1002 ENDPROCDECL 
  133                      ! <FUNCTIONHEADING>                        :1101 ENDFUNCDECL 

  134   <ROUTINEBLOCK> ::= <ROUTINEDECLARATIONS> <STARTLABELSCOPE> <COMPOUNDSTATEMENT> 
                           <ENDLABELSCOPE>                            :1011 ENDBLOCK ENDLEVEL ENDLEVEL 
  135                    ! EXTERNAL                                   :1020 EXTERNAL ENDLEVEL 
  136                    ! OPENROUTINE                                :1027 OPENROUTINE ENDLEVEL 
  137                    ! FORWARD                                    :1021 FORWARD ENDLEVEL 

  138   <ROUTINEDECLARATIONS> ::= <BEGINLEVEL> <RDECLS>               :1009 ENDDECLARATIONS 

  139   <RDECLS> ::= EMPTY                                            :0 
  140              ! <ROUTINEDECLPART>                                :0 

  141   <PROCEDUREHEADING> ::= PROCEDURE <PROCEDURENAME> <FORMALPARAMETERS> :0 
  142                        ! PROCEDURE ERROR                        :113 ERRORPROC 

  143   <PROCEDURENAME> ::= NAME                                      :1003 PROCDECL, DECLARATION 
  144                     ! <SPIXNAME> = NAME                         :1004 PROCDECL, DECLARATION 

  145   <SPIXNAME> ::= NAME                                           :1001 PICK UP NAME 

  146   <FUNCTIONHEADING> ::= FUNCTION <FUNCTIONNAME> <FORMALPARAMETERS> 
                              <COLON> <COMMONTYPESPEC>                :0 
  147                       ! FUNCTION ERROR                          :114 ERRORFUNCT 

  148   <FUNCTIONNAME> ::= NAME                                       :1102 FUNCDECL, DECLARATION 
  149                    ! <SPIXNAME> = NAME                          :1103 FUNCDECL, DECLARATION 

  150   <COLON> ::= :                                                 :640 
  151             ! ERROR                                             :116 ERROR 

  152   <FORMALPARAMETERS> ::= <INITFORMAL>                           :1007 ENDFORMAL 
  153                        ! <INITFORMAL> ( <FORMALLIST> )          :1007 ENDFORMAL 

  154   <INITFORMAL> ::= EMPTY                                        :1022 BEGINLEVEL, BEGINLEVEL 

  155   <FORMALLIST> ::= <FORMALLIST> ; <PARAMETERDESCRIPTION>        :0 
  156                  ! <PARAMETERDESCRIPTION>                       :0 

  157   <PARAMETERDESCRIPTION> ::= <PARAMKIND> <PARAMETERGROUP> <TYPECOLON> 
                                   <FORMALTYPESPEC>                   :1006 ENDFORMALLIST 
  158                            ! ERROR                              :117 ERRORPARAM 

  159   <PARAMKIND> ::= EMPTY                                         :1023 FORMALPARAMLIST, STARTLIST 
  160                 ! VAR                                           :1024 FORMALPARAMLIST, STARTLIST 
  161                 ! INSPECT                                       :1025 FORMALPARAMLIST, STARTLIST 
  162                 ! SHARED                                        :1026 FORMALPARAMLIST, STARTLIST 

  163   <PARAMETERGROUP> ::= <PARAMETERGROUP> , NAME                  :1008 , DECLARELIST 
  164                      ! NAME                                     :1008 , DECLARELIST 

  165   <FORMALTYPESPEC> ::= <DEFTYPESPEC>                            :0 

  166   <COMPOUNDSTATEMENT> ::= <BEGIN> <STATEMENTLIST> END           :901  

  167   <BEGIN> ::= BEGIN                                             :902 

  168   <STATEMENTLIST> ::= <STATEMENTLIST> ; <STATEMENT>             :0 
  169                     ! <STATEMENT>                               :900 STATEMENT 

  170   <STATEMENT> ::= EMPTY                                         :900 
  171                 ! <COMPOUNDSTATEMENT>                           :0 
  172                 ! <PROCEDURECALL>                               :0 
  173                 ! <ASSIGNMENTSTATEMENT>                         :0 
  174                 ! <EXCHANGESTATEMENT>                           :0 
  175                 ! <CASESTATEMENT>                               :0 
  176                 ! <FORDO> <STARTLABELSCOPE> <STATEMENT> <ENDLABELSCOPE> :917 ENDLEVEL ENDFOR, ENDLEVEL 
  177                 ! <GOTOSTATEMENT>                               :0 
  178                 ! <IFTHEN> <STATEMENT>                          :925 ENDIF 
  179                 ! <IFTHENELSE> <STATEMENT>                      :958 ENDELSE 
  180                 ! <LABELNAME> : <STATEMENT>                     :0 
  181                 ! <REPEATSTATEMENT>                             :0 
  182                 ! <WHILEDO> <STATEMENT>                         :933 ENDWHILE 
  183                 ! <WITHDO> <STARTLABELSCOPE> <STATEMENT> <ENDLABELSCOPE> :936 ENDWITH ENDLEVEL, ENDLEVEL 
  184                 ! <LOCKDO> <STARTLABELSCOPE> <STATEMENT> <ENDLABELSCOPE> :949 ENDLOCK ENDLEVEL, ENDLEVEL 
  185                 ! <LOOPSTATEMENT>                               :0 
  186                 ! EXITLOOP                                      :950 EXITLOOP 
  187                 ! CONTINUELOOP                                  :951 CONTLOOP 
  188                 ! EXIT                                          :952 EXITSTAT 
  189                 ! <REGIONDO> <STARTLABELSCOPE> <STATEMENT> <ENDLABELSCOPE> :953 ENDREGION 
  190                 ! <CHANNELDO> <STARTLABELSCOPE> <STATEMENT> <ENDLABELSCOPE> :964 ENDCHANNEL 
  191                 ! ERROR                                         :121 ERRORSTATEMENT 

  192   <BALANCEDSTATEMENT> ::= EMPTY                                 :900 
  193                         ! <COMPOUNDSTATEMENT>                   :0 
  194                         ! <PROCEDURECALL>                       :0 
  195                         ! <ASSIGNMENTSTATEMENT>                 :0 
  196                         ! <EXCHANGESTATEMENT>                   :0 
  197                         ! <CASESTATEMENT>                       :0 
  198                         ! <FORDO> <STARTLABELSCOPE> <BALANCEDSTATEMENT> 
                                <ENDLABELSCOPE>                       :917 ENDLEVEL ENDFOR, ENDLEVEL 
  199                         ! <GOTOSTATEMENT>                       :0 
  200                         ! <IFTHENELSE> <BALANCEDSTATEMENT>      :958 ENDELSE 
  201                         ! <LABELNAME> : <BALANCEDSTATEMENT>     :0 
  202                         ! <REPEATSTATEMENT>                     :0 
  203                         ! <WHILEDO> <BALANCEDSTATEMENT>         :933 ENDWHILE 
  204                         ! <WITHDO> <STARTLABELSCOPE> <BALANCEDSTATEMENT> 
                                <ENDLABELSCOPE>                       :936 ENDWITH ENDLEVEL, ENDLEVEL 
  205                         ! <LOCKDO> <STARTLABELSCOPE> <BALANCEDSTATEMENT> 
                                <ENDLABELSCOPE>                       :949 ENDLOCK ENDLEVEL, ENDLEVEL 
  206                         ! <LOOPSTATEMENT>                       :0 
  207                         ! EXITLOOP                              :950 EXITLOOP 
  208                         ! CONTINUELOOP                          :951 CONTLOOP 
  209                         ! EXIT                                  :952 EXITSTAT 
  210                         ! <REGIONDO> <STARTLABELSCOPE> <BALANCEDSTATEMENT> 
                                <ENDLABELSCOPE>                       :953 ENDREGION 
  211                         ! <CHANNELDO> <STARTLABELSCOPE> <BALANCEDSTATEMENT> 
                                <ENDLABELSCOPE>                       :964 ENDCHANNEL 
  212                         ! ERROR                                 :121 ERRORSTATEMENT 

  213   <PROCEDURECALL> ::= <VARIABLE>                                :903 CALLPROCEDURE 

  214   <LABELNAME> ::= NAME                                          :1201 LABELDEF, DECLARATION LABELDECLARE 

  215   <ACTUALPARAMETERLIST> ::= <UNIT>                              :904 ACTUALPARAM 
  216                           ! <ACTUALPARAMETERLIST> , <UNIT>      :904 ACTUALPARAM 

  217   <UNIT> ::= <EXPRESSION>                                       :0 
  218            ! ?                                                  :905 SKIPPARAM 

  219   <ASSIGNMENTSTATEMENT> ::= <VARIABLE> <ASSIGN> <EXPRESSION>    :906 ENDASSIGN 

  220   <ASSIGN> ::= :=                                               :960 ASSIGN 

  221   <EXCHANGESTATEMENT> ::= <VARIABLE> <EXCHANGE> <VARIABLE>      :907 ENDEXCHANGE 

  222   <EXCHANGE> ::= :=:                                            :961 EXCHANGE 

  223   <CASESTATEMENT> ::= <SELECTORPART> <CASELIST> <SKIPSEMIKOLON> <ENDCASEPART> :909 ENDCASE 

  224   <SELECTORPART> ::= <CASE> <EXPRESSION> OF                     :910 CASEEXPR 

  225   <CASE> ::= CASE                                               :911 CASESTAT 

  226   <CASELIST> ::= <CASELIST> ; <CASELISTELEMENT>                 :0 
  227                ! <CASELISTELEMENT>                              :0 
  228                ! EMPTY                                          :0 

  229   <CASELISTELEMENT> ::= <CASELABELLIST> <ENDLABELLIST> <STATEMENT> :912 CASEELEMENT 

  230   <CASELABELLIST> ::= <LABELRANGE>                              :0 
  231                     ! <CASELABELLIST> , <LABELRANGE>            :0 

  232   <LABELRANGE> ::= <EXPRESSION> .. <EXPRESSION>                 :913 CASELABELRANGE 
  233                  ! <EXPRESSION>                                 :914 CASELABEL 

  234   <ENDLABELLIST> ::= :                                          :915 CASELIST 

  235   <ENDCASEPART> ::= <OTHERWISE> <STATEMENTLIST> END             :912 CASEELEMENT 
  236                   ! END                                         :0 

  237   <OTHERWISE> ::= OTHERWISE                                     :916 OTHERWISE CASELIST 

  238   <SKIPSEMIKOLON> ::= ;                                         :0 
  239                     ! EMPTY                                     :0 

  240   <FORDO> ::= <FORTO> <EXPRESSION> DO                           :918 ENDSUBRANGE UP BEGINLEVEL 
  241             ! <FORDOWNTO> <EXPRESSION> DO                       :919 ENDSUBRANGE DOWN BEGINLEVEL 

  242   <FORTO> ::= <FORASSIGN> <EXPRESSION> TO                       :0 

  243   <FORDOWNTO> ::= <FORASSIGN> <EXPRESSION> DOWNTO               :0 

  244   <FORASSIGN> ::= FOR NAME :=                                   :920 FORSTAT, BEGINLEVEL DECLARATION 

  245   <GOTOSTATEMENT> ::= <GOTO> <LABNAME>                          :922 ENDGOTO 

  246   <GOTO> ::= GOTO                                               :923 GOTOSTAT 

  247   <LABNAME> ::= NAME                                            :924 ID 

  248   <IFTHEN> ::= <IFPART> <EXPRESSION> THEN                       :926 IFEXPR 

  249   <IFPART> ::= IF                                               :927 IFSTAT 

  250   <IFTHENELSE> ::= <IFTHEN> <BALANCEDSTATEMENT> ELSE            :928 ELSE 

  251   <LOOPSTATEMENT> ::= <LOOP> <STATEMENTLIST> ENDLOOP            :957 ENDLOOP 

  252   <LOOP> ::= LOOP                                               :956 LOOPSTAT 

  253   <REPEATSTATEMENT> ::= <REPEAT> <STATEMENTLIST> <UNTIL> <EXPRESSION> :930 ENDREPEAT 

  254   <REPEAT> ::= REPEAT                                           :932 REPEATSTAT 

  255   <UNTIL> ::= UNTIL                                             :929 UNTIL 

  256   <WHILEDO> ::= <WHILE> <EXPRESSION> DO                         :934 WHILEEXPR 

  257   <WHILE> ::= WHILE                                             :935 WHILESTAT 

  258   <WITHDO> ::= <WITH> <WITHVARIABLELIST> DO                     :944 DO 

  259   <LOCKDO> ::= <LOCK> <VARIABLE> <TO> <LOCKIDENT> DO            :947 DO 

  260   <LOCKIDENT> ::= <IDENT>                                       :943 NOLOCALTYPE 
  261                 ! <IDENT> <TYPECOLON> <COMMONTYPESPEC>          :942 ENDLOCALTYPE 

  262   <WITH> ::= WITH                                               :937 WITHSTAT BEGINLEVEL 

  263   <LOCK> ::= LOCKDATA                                           :945 LOCKSTAT BEGINLEVEL 
  264            ! LOCKBUF                                            :946 LOCKBUFSTAT 

  265   <WITHVARIABLELIST> ::= <WITHVARIABLE>                         :0 
  266                        ! <WITHVARIABLELIST> <WITHCOMMA> <WITHVARIABLE> :0 

  267   <WITHCOMMA> ::= ,                                             :938 WITHCOMMA BEGINLEVEL 

  268   <WITHVARIABLE> ::= <VARIABLE>                                 :939 WITHVAR NOLOCALDECL, DECLARATION 
  269                    ! <VARIABLE> <AS> <LOCALNAME> <TYPECOLON> <COMMONTYPESPEC> :942 ENDLOCALDECL 
  270                    ! <VARIABLE> <AS> <LOCALNAME>                :943 NOLOCALTYPE 

  271   <AS> ::= AS                                                   :940 WITHVAR, DECLARATION 

  272   <LOCALNAME> ::= NAME                                          :941 , RENAME 

  273   <TO> ::= TO                                                   :948 LOCKVAR ENDLOCKDECL, STARTLIST 

  274   <REGIONDO> ::= <REGION> <VARIABLE> DO                         :955 VAR 

  275   <REGION> ::= REGION                                           :954 REGIONSTAT 

  276   <CHANNELDO> ::= <CHANNEL> <VARIABLE> DO                       :962 CHANVAR 

  277   <CHANNEL> ::= CHANNEL                                         :963 CHANNELSTAT 

  278   <EXPRESSION> ::= <SIMPLEEXPRESSION>                           :801 ENDEXPRESSION 
  279                  ! <SIMPLEEXPRESSION> = <SIMPLEEXPRESSION>      :802 EQ ENDEXPRESSION 
  280                  ! <SIMPLEEXPRESSION> <> <SIMPLEEXPRESSION>     :803 NE ENDEXPRESSION 
  281                  ! <SIMPLEEXPRESSION> < <SIMPLEEXPRESSION>      :804 LT ENDEXPRESSION 
  282                  ! <SIMPLEEXPRESSION> <= <SIMPLEEXPRESSION>     :805 LE ENDEXPRESSION 
  283                  ! <SIMPLEEXPRESSION> > <SIMPLEEXPRESSION>      :806 GT ENDEXPRESSION 
  284                  ! <SIMPLEEXPRESSION> >= <SIMPLEEXPRESSION>     :807 GE ENDEXPRESSION 
  285                  ! <SIMPLEEXPRESSION> IN <SIMPLEEXPRESSION>     :808 IN ENDEXPRESSION 
  286                  ! ERROR                                        :122 ERROREXPRESSION ENDEXPRESSION 

  287   <SIMPLEEXPRESSION> ::= <SIMPLEEXPRESSION> + <TERM>            :810 ADD 
  288                        ! <SIMPLEEXPRESSION> - <TERM>            :811 SUB 
  289                        ! <SIMPLEEXPRESSION> OR <TERM>           :812 OR 
  290                        ! <SIMPLEEXPRESSION> XOR <TERM>          :815 XOR 
  291                        ! + <TERM>                               :813 NOCODE 
  292                        ! - <TERM>                               :814 USUB 
  293                        ! <TERM>                                 :0 

  294   <TERM> ::= <TERM> * <FACTOR>                                  :816 STAR 
  295            ! <TERM> / <FACTOR>                                  :817 SLASH 
  296            ! <TERM> SHIFT <FACTOR>                              :821 SHIFT 
  297            ! <TERM> DIV <FACTOR>                                :818 DIV 
  298            ! <TERM> MOD <FACTOR>                                :819 MOD 
  299            ! <TERM> AND <FACTOR>                                :820 AND 
  300            ! <FACTOR>                                           :0 

  301   <FACTOR> ::= <VALUEDENOTATION>                                :0 
  302              ! <VARIABLE>                                       :830 ENDVARIABLE 
  303              ! ( <EXPRESSION> )                                 :0 
  304              ! GETSWITCH ( NAME )                               :832 
  305              ! VARSIZE ( NAME )                                 :833 VARSIZECALL( SPIX ) 
  306              ! TYPESIZE ( NAME )                                :834 TYPESIZECALL( SPIX ) 
  307              ! NOT <FACTOR>                                     :831 NOT 

  308   <VALUEDENOTATION> ::= <UNSIGNEDINTEGER>                       :0 
  309                       ! <STRUCVALUEDENOTATION>                  :0 
  310                       ! <SETDENOTATION>                         :825 ENDSETLIST 
  311                       ! <STR>                                   :401 LITERAL TEXT 

  312   <STR> ::= STRING                                              :405 STRING 
  313           ! <STR> & STRING                                      :406 CONCATENATE STRING 
  314           ! <STR> & NAME                                        :408 CONCATENAME NAME 

  315   <STRUCVALUEDENOTATION> ::= <STARTSTRUCVAL> <STRUCVALUELIST> :) :842 ENDSTRUC 
  316                            ! <STARTSTRUCVAL> :)                 :842 ENDSTRUC 

  317   <STARTSTRUCVAL> ::= (:                                        :841 BEGINSTRUC 

  318   <STRUCVALUELIST> ::= <STRUCVALUELIST> , <STRUCVALUE>          :0 
  319                      ! <STRUCVALUE>                             :0 

  320   <STRUCVALUE> ::= <UNIT>                                       :843 STRUCELEM 
  321                  ! <EXPRESSION> *** <UNIT>                      :844 REPSTRUC 

  322   <SETDENOTATION> ::= <STARTSET> <ELEMENTLIST> .)               :824 
  323                     ! <STARTSET> .)                             :0 

  324   <STARTSET> ::= (.                                             :826 SETLIST 

  325   <ELEMENTLIST> ::= <ELEMENTLIST> , <ELEMENT>                   :0 
  326                   ! <ELEMENT>                                   :0 

  327   <ELEMENT> ::= <EXPRESSION>                                    :827 S_ELEMENT 
  328               ! <EXPRESSION> .. <EXPRESSION>                    :828 M_ELEMENT 

  329   <VARIABLE> ::= NAME                                           :835 ID 
  330                ! <VARIABLE> . NAME                              :836 FIELD 
  331                ! <VARIABLE> <STRUCVALUEDENOTATION>              :0 
  332                ! <VARIABLE> <BEGINACTUAL> <ACTUALPARAMETERLIST> ) :837 ENDACTUAL 
  333                ! <VARIABLE> <EXCLAMATION> <PARAMNAME>           :0 
  334                ! <VARIABLE> ^                                   :838 UPARROW 

  335   <EXCLAMATION> ::= !                                           :0 

  336   <PARAMNAME> ::= NAME                                          :840 TYPESELECT 

  337   <BEGINACTUAL> ::= (                                           :839 BEGINACTUAL 

  338   <UNSIGNEDINTEGER> ::= KONST                                   :402 LITERAL INTEGER/REAL 
  339                       ! # NAME                                  :404 LITERAL INTEGER 
  *************************************************************************
 \f

***********************************************************************
 
  THE GRAMMAR IS LALR1 
 
  ***********************************************************************
 \f

***********************COMPILER ERROR MESSAGES  ***********************
 
 
    ERRORNO : 0  ** SPECIAL ERROR **
 
 
    ERRORNO :  EXPECTED SYMBOL:
 
        1 :                  NAME       
  nr=4
 nr=149
 nr=157
 nr=163
 nr=339
 nr=306
 nr=305
 nr=304
 nr=333
 nr=330
 nr=144
 nr=64
 nr=244
 nr=276
 nr=274
 nr=259
 nr=259
 nr=258
 nr=270
 nr=266
 nr=245
 nr=221

 
        2 :                  ;          
  nr=8
 nr=131
 nr=115
 nr=57
 nr=56
 nr=51
 nr=46
 nr=13
 nr=24
 nr=40

 
        3 :                  CONST      TYPE       PROCEDURE  FUNCTION   
  nr=8

 
        4 :                  ERROR      NAME       
  nr=147
 nr=142
 nr=115
 nr=119
 nr=54
 nr=47
 nr=23

 
        5 :                  =          
  nr=149
 nr=144

 
        6 :                  ,          :          ERROR      
  nr=163
 nr=121
 nr=117
 nr=163

 
        7 :                  .)         ERROR      +          -          (          
                                     GETSWITCH  VARSIZE    TYPESIZE   NOT        NAME       
                                     KONST      #          STRING     (:         (.         
  nr=323

 
        8 :                  :)         ?          ERROR      +          -          
                                     (          GETSWITCH  VARSIZE    TYPESIZE   NOT        
                                     NAME       KONST      #          STRING     (:         
                                     (.         
  nr=316

 
        9 :                  STRING     NAME       
  nr=313

 
       10 :                  (          GETSWITCH  VARSIZE    TYPESIZE   NOT        
                                     NAME       KONST      #          STRING     (:         
                                     (.         
  nr=307
 nr=299
 nr=298
 nr=297
 nr=296
 nr=295
 nr=294
 nr=292
 nr=291
 nr=290
 nr=289
 nr=288
 nr=287

 
       11 :                  (          
  nr=306
 nr=305
 nr=304
 nr=91

 
       12 :                  )          
  nr=306
 nr=305
 nr=304
 nr=303

 
       13 :                  ERROR      +          -          (          GETSWITCH  
                                     VARSIZE    TYPESIZE   NOT        NAME       KONST      
                                     #          STRING     (:         (.         
  nr=303
 nr=328
 nr=325
 nr=81
 nr=128
 nr=51
 nr=243
 nr=224
 nr=256
 nr=248
 nr=241
 nr=240
 nr=232
 nr=231
 nr=219
 nr=253

 
       14 :                  ?          ERROR      +          -          (          
                                     GETSWITCH  VARSIZE    TYPESIZE   NOT        NAME       
                                     KONST      #          STRING     (:         (.         
  nr=332
 nr=216
 nr=321
 nr=318
 nr=79

 
       15 :                  +          -          (          GETSWITCH  VARSIZE    
                                     TYPESIZE   NOT        NAME       KONST      #          
                                     STRING     (:         (.         
  nr=285
 nr=284
 nr=283
 nr=282
 nr=281
 nr=280
 nr=279

 
       16 :                  )          ,          
  nr=332
 nr=72

 
       17 :                  :)         ,          
  nr=315

 
       18 :                  .)         ,          
  nr=322

 
       19 :                  PROGRAM    
  nr=77

 
       20 :                  OF         ERROR      
  nr=108
 nr=93

 
       21 :                  ,          
  nr=80

 
       22 :                  ARRAY      RECORD     
  nr=83

 
       23 :                  ERROR      NAME       ?          
  nr=103
 nr=123
 nr=72

 
       24 :                  ..         
  nr=73

 
       25 :                  END        ;          
  nr=98
 nr=235
 nr=166

 
       26 :                  )          ERROR      ,          
  nr=90
 nr=92

 
       27 :                  )          ;          
  nr=153
 nr=61

 
       28 :                  :          ERROR      
  nr=146

 
       29 :                  =          ERROR      
  nr=58
 nr=51

 
       30 :                  BEGIN      
  nr=134
 nr=28

 
       31 :                  :=         
  nr=244

 
       32 :                  TO         DOWNTO     
  nr=242

 
       33 :                  OF         
  nr=224

 
       34 :                  DO         .          ^          (          !          
                                     (:         
  nr=276
 nr=274

 
       35 :                  .          ^          TO         (          !          
                                     (:         
  nr=330

 
       36 :                  DO         
  nr=259
 nr=256
 nr=241
 nr=240

 
       37 :                  DO         ,          
  nr=258

 
       38 :                  THEN       
  nr=248

 
       39 :                  ,          :          
  nr=231

 
       40 :                  :          
  nr=180
 nr=180

 
       41 :                  ELSE       
  nr=250

 
       42 :                  END        OTHERWISE  
  nr=223

 
       43 :                  ;          UNTIL      
  nr=168

 
       44 :                  ENDLOOP    ;          
  nr=251

 
       45 :                  .          CONST      TYPE       PROCEDURE  FUNCTION   
  nr=8

 
       46 :                  PROGRAM    PROCEDURE  FUNCTION   
  nr=22

 
       47 :                  .          
  nr=2
 nr=16

 
       48 :                  -EOF-      
  nr=0

 
 
  *************************************************************************

end
blocksread = 214
▶00◀*head cpu
bb  1991.05.06  10.52.09   cpu: ▶00◀1553.87 sec.
▶00◀*copy rtptab.▶00◀10.▶00◀15
rtptab      segm.   1     122/▶00◀4234  
▶00◀*o c