Open64: osprey/crayf90/fe90/tokens.h Source File

00001 /*
00002  * Copyright (C) 2008. PathScale, LLC. All Rights Reserved.
00003  */
00004 /*
00005  *  Copyright (C) 2007. QLogic Corporation. All Rights Reserved.
00006  */
00007 
00008 /*
00009  * Copyright 2004, 2005, 2006 PathScale, Inc.  All Rights Reserved.
00010  */
00011 
00012 /*
00013 
00014   Copyright (C) 2000, 2001 Silicon Graphics, Inc.  All Rights Reserved.
00015 
00016   This program is free software; you can redistribute it and/or modify it
00017   under the terms of version 2 of the GNU General Public License as
00018   published by the Free Software Foundation.
00019 
00020   This program is distributed in the hope that it would be useful, but
00021   WITHOUT ANY WARRANTY; without even the implied warranty of
00022   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  
00023 
00024   Further, this software is distributed without any warranty that it is
00025   free of the rightful claim of any third person regarding infringement 
00026   or the like.  Any license provided herein, whether implied or 
00027   otherwise, applies only to this software file.  Patent licenses, if 
00028   any, provided herein do not apply to combinations of this program with 
00029   other software, or any other product whatsoever.  
00030 
00031   You should have received a copy of the GNU General Public License along
00032   with this program; if not, write the Free Software Foundation, Inc., 59
00033   Temple Place - Suite 330, Boston MA 02111-1307, USA.
00034 
00035   Contact information:  Silicon Graphics, Inc., 1600 Amphitheatre Pky,
00036   Mountain View, CA 94043, or:
00037 
00038   http://www.sgi.com
00039 
00040   For further information regarding this notice, see:
00041 
00042   http://oss.sgi.com/projects/GenInfo/NoticeExplan
00043 
00044 */
00045 
00046 
00047 
00048 /* USMID:  "\n@(#)5.0_pl/headers/tokens.h 5.3 08/30/99 11:18:28\n" */
00049 
00050  
00051 /*******************************************************\
00052 |* type specifiers used within lex and parser modules. *|
00053 \*******************************************************/
00054 
00055 enum  ch_class_values   {Ch_Class_Letter,
00056          Ch_Class_Digit,
00057          Ch_Class_Symbol,
00058          Ch_Class_Dir1,   /* CDIR$ or CMIC$     */
00059          Ch_Class_Dir2,   /* CDIR$ or CMIC$     */
00060          Ch_Class_Dir3,   /* CDIR$ or CMIC$     */
00061          Ch_Class_Dir4,   /* CDIR$ or CMIC$     */
00062          Ch_Class_EOS,    /* End-Of-Stmt        */
00063          Ch_Class_EOF };  /* End-Of-File        */
00064 
00065 /* The tokens implied by the following token_class_values are:          */
00066 /*  Tok_Class_Label   ==> Tok_Label             */
00067 /*  Tok_Class_Id    ==> Tok_Id              */
00068 /*  Tok_Class_Keyword ==> Tok_Kwd_*  | Tok_Id           */
00069 /*  Tok_Class_Construct_Def ==> Tok_Id                    */
00070 /*  Tok_Class_DO    ==> Tok_Kwd_Do              */
00071 /*  Tok_Class_Dir_Kwd ==> Tok_Dir_*             */
00072 /*  Tok_Class_Mic_Kwd ==> Tok_Mic_*             */
00073 /*  Tok_Class_SGI_Dir_Kwd ==> Tok_SGI_Dir_* !$par !$ and !*$* dirs      */
00074 /*  Tok_Class_Open_Mp_Dir_Kwd==> Tok_Open_Mp_* !$omp                      */
00075 /*  Tok_Class_Mic_Kwd ==> Tok_Dbg_*      DEBUG ONLY       */
00076 /*  Tok_Class_Punct   ==> Tok_Punc_* | Tok_Eos          */
00077 /*  Tok_Class_Int_Spec  ==> Tok_Const_Int           */
00078 /*  Tok_Class_Format_Str  ==> tok str is chars between ( and matching ) */
00079 /*  Tok_Class_Program_Str ==> tok str is chars between ( and matching ) */
00080 /*  Tok_Class_Op    ==> Tok_Op_*              */
00081 /*  Tok_Class_Opnd    ==> Tok_Id | Tok_Const_* | Tok_Op_Defined     */
00082 
00083 enum  token_class_values  {Tok_Class_Label,
00084          Tok_Class_Id,
00085          Tok_Class_Keyword,
00086                                  Tok_Class_Construct_Def,
00087          Tok_Class_DO,
00088          Tok_Class_Dir_Kwd,
00089          Tok_Class_Mic_Kwd,
00090          Tok_Class_SGI_Dir_Kwd,
00091          Tok_Class_Open_Mp_Dir_Kwd,
00092          Tok_Class_Dbg_Kwd,
00093          Tok_Class_Punct,
00094          Tok_Class_Int_Spec,
00095          Tok_Class_Format_Str,
00096          Tok_Class_Program_Str,
00097          Tok_Class_Op,
00098          Tok_Class_Opnd };
00099   
00100 /* The following data objects are order/addition/deletion dependent on the    */
00101 /* token_values enumeration (any changes to this definition must also be      */
00102 /* reflected in these objects):                 */
00103 /*    token_to_stmt_type   array in p_driver.h          */
00104 
00105 enum  token_values {
00106     Tok_Label,    /*       label          */
00107     Tok_Id,     /*       identifier,        */
00108           /*       construct-name,        */
00109           /*       kind-param-name        */
00110     Tok_Kwd_Allocatable,  /* ALLOCATABLE            */
00111     Tok_Kwd_Allocate, /* ALLOCATE           */
00112     Tok_Kwd_Assign,   /* ASSIGN           */
00113     Tok_Kwd_Assignment, /* ASSIGNMENT           */
00114     Tok_Kwd_Automatic,  /* AUTOMATIC              */
00115     Tok_Kwd_Backspace,  /* BACKSPACE            */
00116 #ifdef KEY /* Bug 10572 */
00117     Tok_Kwd_Bind,   /* BIND             */
00118 #endif /* KEY Bug 10572 */
00119     Tok_Kwd_Block,    /* BLOCK     BLOCKDATA, ENDBLOCKDATA  */
00120     Tok_Kwd_Buffer,   /* BUFFER    BUFFERIN, BUFFEROUT      */
00121     Tok_Kwd_Byte,   /* BYTE                               */
00122     Tok_Kwd_Call,   /* CALL             */
00123     Tok_Kwd_Case,   /* CASE      SELECTCASE         */
00124     Tok_Kwd_Character,  /* CHARACTER            */
00125     Tok_Kwd_Close,    /* CLOSE            */
00126     Tok_Kwd_Common,   /* COMMON           */
00127     Tok_Kwd_Complex,  /* COMPLEX            */
00128     Tok_Kwd_Contains, /* CONTAINS           */
00129     Tok_Kwd_Continue, /* CONTINUE           */
00130     Tok_Kwd_Cycle,    /* CYCLE            */
00131     Tok_Kwd_Data,   /* DATA      BLOCKDATA, ENDBLOCKDATA  */
00132     Tok_Kwd_Deallocate, /* DEALLOCATE           */
00133     Tok_Kwd_Decode,   /* DECODE           */
00134     Tok_Kwd_Default,  /* DEFAULT   CASE DEFAULT       */
00135     Tok_Kwd_Dimension,  /* DIMENSION            */
00136     Tok_Kwd_Dir,    /* DIR$      CDIR$, CDIR@,        */
00137           /*       !DIR$, !DIR@       */
00138           /* MIC$      CMIC$, !MIC$       */
00139     Tok_Kwd_Do,   /* DO      ENDDO          */
00140     Tok_Kwd_Double,   /* DOUBLE    DOUBLEPRECISION,       */
00141     Tok_Kwd_Elemental,  /* ELEMENTAL                          */
00142     Tok_Kwd_Else,   /* ELSE      ELSEIF, ELSEWHERE        */
00143     Tok_Kwd_Encode,   /* ENCODE           */
00144     Tok_Kwd_End,    /* END       ENDBLOCKDATA, ENDDO,     */
00145           /*       ENDFILE, ENDFUNCTION,    */
00146           /*       ENDIF, ENDINTERFACE,     */
00147           /*       ENDMODULE, ENDPROGRAM,   */
00148           /*       ENDSELECT, ENDSUBROUTINE,*/
00149           /*       ENDTYPE, ENDWHERE        */
00150     Tok_Kwd_Entry,    /* ENTRY            */
00151 #ifdef KEY /* Bug 10572 */
00152     Tok_Kwd_Enum,   /* ENUM             */
00153     Tok_Kwd_Enumerator, /* ENUMERATOR             */
00154 #endif /* KEY Bug 10572 */
00155     Tok_Kwd_Equivalence,  /* EQUIVALENCE            */
00156     Tok_Kwd_Exit,   /* EXIT             */
00157     Tok_Kwd_External, /* EXTERNAL           */
00158     Tok_Kwd_File,   /* FILE      ENDFILE          */
00159     Tok_Kwd_Forall,   /* FORALL           */
00160     Tok_Kwd_Format,   /* FORMAT           */
00161     Tok_Kwd_Function, /* FUNCTION  ENDFUNCTION        */
00162     Tok_Kwd_Go,   /* GO      GOTO         */
00163     Tok_Kwd_If,   /* IF      ELSEIF, ENDIF        */
00164     Tok_Kwd_Implicit, /* IMPLICIT           */
00165 #ifdef KEY /* Bug 11741 */
00166     Tok_Kwd_Import,   /* IMPORT           */
00167 #endif /* KEY Bug 11741 */
00168     Tok_Kwd_In,   /* IN      BUFFERIN, INOUT        */
00169     Tok_Kwd_Inquire,  /* INQUIRE            */
00170     Tok_Kwd_Integer,  /* INTEGER            */
00171     Tok_Kwd_Intent,   /* INTENT           */
00172     Tok_Kwd_Interface,  /* INTERFACE ENDINTERFACE       */
00173     Tok_Kwd_Intrinsic,  /* INTRINSIC            */
00174     Tok_Kwd_Kind,   /* KIND             */
00175     Tok_Kwd_Len,    /* LEN              */
00176     Tok_Kwd_Logical,  /* LOGICAL            */
00177     Tok_Kwd_Module,   /* MODULE    ENDMODULE,         */
00178           /*       MODULEPROCEDURE        */
00179 #ifdef KEY /* Bug 10572 */
00180     Tok_Kwd_Name,   /* NAME             */
00181 #endif /* KEY Bug 10572 */
00182     Tok_Kwd_Namelist, /* NAMELIST           */
00183     Tok_Kwd_None,   /* NONE             */
00184 #ifdef KEY /* Bug 5089 */
00185     Tok_Kwd_Nonintrinsic, /* NON_INTRINSIC                      */
00186 #endif /* KEY Bug 5089 */
00187     Tok_Kwd_Nullify,  /* NULLIFY            */
00188     Tok_Kwd_Only,   /* ONLY             */
00189     Tok_Kwd_Open,   /* OPEN             */
00190     Tok_Kwd_Operator, /* OPERATOR           */
00191     Tok_Kwd_Optional, /* OPTIONAL           */
00192     Tok_Kwd_Out,    /* OUT       BUFFEROUT, INOUT       */
00193     Tok_Kwd_Parameter,  /* PARAMETER            */
00194     Tok_Kwd_Pause,    /* PAUSE            */
00195     Tok_Kwd_Pointer,  /* POINTER            */
00196     Tok_Kwd_Precision,  /* PRECISION DOUBLEPRECISION        */
00197     Tok_Kwd_Print,    /* PRINT            */
00198     Tok_Kwd_Private,  /* PRIVATE            */
00199     Tok_Kwd_Procedure,  /* PROCEDURE MODULEPROCEDURE        */
00200     Tok_Kwd_Program,  /* PROGRAM   ENDPROGRAM         */
00201     Tok_Kwd_Public,   /* PUBLIC           */
00202     Tok_Kwd_Pure,   /* PURE             */
00203     Tok_Kwd_Read,   /* READ             */
00204     Tok_Kwd_Real,   /* REAL             */
00205     Tok_Kwd_Recursive,  /* RECURSIVE            */
00206     Tok_Kwd_Result,   /* RESULT           */
00207     Tok_Kwd_Return,   /* RETURN           */
00208     Tok_Kwd_Rewind,   /* REWIND           */
00209     Tok_Kwd_Save,   /* SAVE             */
00210     Tok_Kwd_Select,   /* SELECT    ENDSELECT, SELECTCASE    */
00211     Tok_Kwd_Sequence, /* SEQUENCE           */
00212     Tok_Kwd_Span,   /* SPAN                               */
00213     Tok_Kwd_Stat,   /* STAT             */
00214     Tok_Kwd_Static,   /* STATIC           */
00215     Tok_Kwd_Stop,   /* STOP             */
00216     Tok_Kwd_Subroutine, /* SUBROUTINE ENDSUBROUTINE       */
00217     Tok_Kwd_Target,   /* TARGET           */
00218                 Tok_Kwd_Task,           /* TASK                               */
00219     Tok_Kwd_Then,   /* THEN             */
00220     Tok_Kwd_To,   /* TO      GOTO         */
00221     Tok_Kwd_Type,   /* TYPE      ENDTYPE          */
00222     Tok_Kwd_Use,    /* USE              */
00223     Tok_Kwd_Undefined,  /* UNDEFINED            */
00224 #ifdef KEY /* Bug 14150 */
00225     Tok_Kwd_Value,          /* VALUE              */
00226 #endif /* KEY Bug 14150 */
00227     Tok_Kwd_Volatile, /* VOLATILE           */
00228     Tok_Kwd_Where,    /* WHERE     ELSEWHERE, ENDWHERE      */
00229     Tok_Kwd_While,    /* WHILE            */
00230     Tok_Kwd_Write,    /* WRITE            */
00231 
00232                 /* NOTE -> If a new Tok_Dir is added, directive_str in */
00233                 /*         main.h needs to be updated.                 */
00234 
00235                 /* NOTE again -> also tied to cdir_info in p_directiv.h */
00236 
00237     Tok_Dir_Start,    /* Need to mark start of directives.  */
00238     Tok_Dir_Align,    /* ALIGN            */
00239     Tok_Dir_Atomicupdate, /* ATOMIC UPDATE          */
00240     Tok_Dir_Autoscope,  /* AUTOSCOPE            */
00241     Tok_Dir_Auxiliary,  /* AUXILIARY            */
00242     Tok_Dir_Barrier,  /* BARRIER            */
00243     Tok_Dir_Bl,   /* BL             */
00244     Tok_Dir_Block,    /* BLOCK            */
00245     Tok_Dir_Blockable,  /* BLOCKABLE            */
00246     Tok_Dir_Blockingsize, /* BLOCKINGSIZE           */
00247     Tok_Dir_Bounds,   /* BOUNDS           */
00248     Tok_Dir_Cache_Align,  /* CACHE_ALIGN            */
00249     Tok_Dir_Cache_Bypass, /* CACHE_BYPASS             */
00250     Tok_Dir_Cache_Noalloc,  /* CACHE_NOALLOCATE             */
00251     Tok_Dir_Chunksize,  /* CHUNKSIZE            */
00252                 Tok_Dir_Cncall,         /* CNCALL                             */
00253     Tok_Dir_Code,           /* CODE                               */
00254     Tok_Dir_Common,         /* COMMON                             */
00255     Tok_Dir_Concurrent, /* CONCURRENT           */
00256     Tok_Dir_Control,  /* CONTROL            */
00257                 Tok_Dir_Copy_Assumed_Shape,     /* COPY_ASSUMED_SHAPE         */
00258     Tok_Dir_Critical, /* CRITICAL           */
00259     Tok_Dir_Doshared, /* DOSHARED           */
00260     Tok_Dir_Dynamic,  /* DYNAMIC            */
00261     Tok_Dir_Eject,    /* EJECT            */
00262     Tok_Dir_Endcritical,  /* END CRITICAL           */
00263     Tok_Dir_Endmaster,  /* END MASTER           */
00264                 Tok_Dir_Fixed,          /* FIXED                              */
00265     Tok_Dir_Flow,   /* FLOW             */
00266                 Tok_Dir_Free,           /* FREE                               */
00267                 Tok_Dir_Geometry,       /* GEOMETRY                           */
00268     Tok_Dir_Getfirst, /* GETFIRST           */
00269     Tok_Dir_Guided,   /* GUIDED           */
00270     Tok_Dir_Id,   /* ID             */
00271     Tok_Dir_If,   /* IF             */
00272                 Tok_Dir_Ignore_TKR, /* IGNORE_TKR           */
00273     Tok_Dir_Inline,   /* INLINE           */
00274     Tok_Dir_Inline_Always,  /* INLINE ALWAYS          */
00275     Tok_Dir_Inline_Never, /* INLINE NEVER           */
00276     Tok_Dir_Integer,  /* INTEGER            */
00277     Tok_Dir_Interchange,  /* INTERCHANGE            */
00278     Tok_Dir_Ivdep,    /* IVDEP            */
00279     Tok_Dir_List,   /* LIST             */
00280     Tok_Dir_Mark,   /* MARK             */
00281     Tok_Dir_Master,   /* MASTER           */
00282     Tok_Dir_Maxcpus,  /* MAXCPUS            */
00283     Tok_Dir_Modinline,  /* MODINLINE            */
00284     Tok_Dir_Name,   /* NAME             */
00285     Tok_Dir_Ncpus_Chunks, /* NCPUS_CHUNKS           */
00286     Tok_Dir_Nextscalar, /* NEXTSCALAR           */
00287     Tok_Dir_Nobarrier,  /* NO BARRIER           */
00288     Tok_Dir_Nobl,   /* NOBL             */
00289     Tok_Dir_Noblocking, /* NOBLOCKING           */
00290     Tok_Dir_Nobounds, /* NOBOUNDS           */
00291                 Tok_Dir_Nocinv,         /* NOCINV                             */
00292                 Tok_Dir_Nocode,         /* NOCODE                             */
00293     Tok_Dir_Noflow,   /* NOFLOW           */
00294     Tok_Dir_Noinline, /* NOINLINE           */
00295     Tok_Dir_Nointerchange,  /* NOINTERCHANGE          */
00296     Tok_Dir_Nolist,   /* NOLIST           */
00297     Tok_Dir_Nomark,   /* NOMARK           */
00298     Tok_Dir_Nomodinline,  /* NOMODINLINE            */
00299     Tok_Dir_Nopattern,  /* NOPATTERN            */
00300     Tok_Dir_Norecurrence, /* NORECURRENCE           */
00301     Tok_Dir_Nosideeffects,  /* NOSIDEEFFECTS          */
00302     Tok_Dir_Nosplit,  /* NOSPLIT  (T3E only)          */
00303     Tok_Dir_Nostream, /* NOSTREAM           */
00304     Tok_Dir_Notask,   /* NOTASK           */
00305     Tok_Dir_Nounroll, /* NOUNROLL           */
00306     Tok_Dir_Novector, /* NOVECTOR           */
00307     Tok_Dir_Novsearch,  /* NOVSEARCH            */
00308     Tok_Dir_Numchunks,  /* NUMCHUNKS            */
00309                 Tok_Dir_Numcpus,        /* NUMCPUS                            */
00310     Tok_Dir_Parallel_Only,  /* PARALLEL_ONLY          */
00311     Tok_Dir_Pattern,  /* PATTERN            */
00312     Tok_Dir_Pe_Private, /* PE_PRIVATE             */
00313     Tok_Dir_Pe_Resident,  /* PE_RESIDENT            */
00314                 Tok_Dir_Permutation,    /* PERMUTATION                        */
00315     Tok_Dir_Preferstream, /* PREFERSTREAM           */
00316     Tok_Dir_Prefertask, /* PREFERTASK           */
00317     Tok_Dir_Prefervector, /* PREFERVECTOR           */
00318     Tok_Dir_Private,  /* PRIVATE            */
00319     Tok_Dir_Recurrence, /* RECURRENCE           */
00320     Tok_Dir_Regfile,  /* REGFILE            */
00321     Tok_Dir_Savelast, /* SAVELAST           */
00322     Tok_Dir_Semextern,  /* SEMEXTERN            */
00323     Tok_Dir_Serial_Only,  /* SERIAL_ONLY            */
00324     Tok_Dir_Shared,   /* SHARED           */
00325     Tok_Dir_Shortloop,  /* SHORTLOOP            */
00326     Tok_Dir_Shortsequence,  /* SHORTSEQUENCE          */
00327     Tok_Dir_Single,   /* SINGLE           */
00328     Tok_Dir_Split,    /* SPLIT  (T3E only)          */
00329     Tok_Dir_Stack,    /* STACK            */
00330     Tok_Dir_Static,   /* STATIC           */
00331     Tok_Dir_Stream,   /* STREAM           */
00332     Tok_Dir_Suppress, /* SUPPRESS           */
00333     Tok_Dir_Symmetric,  /* SYMMETRIC            */
00334     Tok_Dir_System_Module,  /* SYSTEM_MODULE          */
00335     Tok_Dir_Task,   /* TASK                 */
00336     Tok_Dir_Taskcommon, /* TASKCOMMON           */
00337     Tok_Dir_Taskhead, /* TASKHEAD           */
00338     Tok_Dir_Unknown,  /* UNKNOWN            */
00339     Tok_Dir_Unknown_Shared, /* UNKNOWN_SHARED         */
00340     Tok_Dir_Unroll,   /* UNROLL           */
00341     Tok_Dir_Uses_Eregs, /* USES EREGS           */
00342     Tok_Dir_Vector,   /* VECTOR           */
00343     Tok_Dir_Vfunction,  /* VFUNCTION            */
00344     Tok_Dir_Vsearch,  /* VSEARCH            */
00345     Tok_Dir_End,    /* Need to mark end of directives.    */
00346 
00347     Tok_Mic_Start,    /* Need to mark start of cmics.       */
00348     Tok_Mic_Case,   /* CASE                               */
00349     Tok_Mic_End_Case, /* END CASE                           */
00350     Tok_Mic_Cncall,   /* CNCALL                             */
00351     Tok_Mic_Continue, /* CONTINUE                           */
00352     Tok_Mic_Do_All,   /* DO ALL                             */
00353     Tok_Mic_Do_Parallel,  /* DO PARALLEL                        */
00354     Tok_Mic_End_Do,   /* END DO                             */
00355     Tok_Mic_Guard,    /* GUARD                              */
00356     Tok_Mic_End_Guard,  /* END GUARD                          */
00357     Tok_Mic_If,   /* IF                         */
00358     Tok_Mic_Maxcpus,  /* MAXCPUS            */
00359     Tok_Mic_Numcpus,  /* NUMCPUS            */
00360     Tok_Mic_Parallel, /* PARALLEL                           */
00361     Tok_Mic_End_Parallel, /* END PARALLEL                       */
00362     Tok_Mic_Permutation,  /* PERMUTATION            */
00363     Tok_Mic_Point,    /* POINT                              */
00364     Tok_Mic_Send,   /* SEND                               */
00365     Tok_Mic_Span,   /* SPAN                               */
00366     Tok_Mic_Taskcommon, /* TASKCOMMON                         */
00367     Tok_Mic_Wait,   /* WAIT                               */
00368     Tok_Mic_End,    /* Need to mark end of cmics.       */
00369 
00370     Tok_SGI_Dir_Start,    /* Start of SGI directives    */
00371     Tok_SGI_Dir_Affinity,   /* AFFINITY         */
00372     Tok_SGI_Dir_Aggressiveinner,  /* AGGRESSIVEINNERLOOPFUSION  */
00373     Tok_SGI_Dir_Align_Symbol, /* ALIGN SYMBOL         */
00374     Tok_SGI_Dir_Argumentaliasing, /* ARGUMENT ALIASING        */
00375 
00376     Tok_SGI_Dir_Assert,   /* ASSERT               */
00377     Tok_SGI_Dir_Barrier,    /* BARRIER          */
00378     Tok_SGI_Dir_Benign,   /* BENIGN                     */
00379     Tok_SGI_Dir_Block,    /* BLOCK          */
00380     Tok_SGI_Dir_Blockable,    /* BLOCKABLE            */
00381     Tok_SGI_Dir_Blocked,    /* BLOCKED          */
00382     Tok_SGI_Dir_Blockingsize, /* BLOCKING SIZE        */
00383     Tok_SGI_Dir_Boundsviolations, /* BOUNDS VIOLATIONS          */
00384     Tok_SGI_Dir_Chunk,    /* CHUNK          */
00385     Tok_SGI_Dir_Concur,         /* CONCUR                     */
00386     Tok_SGI_Dir_Concurrent,     /* CONCURRENT                 */
00387     Tok_SGI_Dir_Concurrentcall, /* CONCURRENT CALL            */
00388     Tok_SGI_Dir_Concurrentize,      /* CONCURRENTIZE              */
00389     Tok_SGI_Dir_Copyin,   /* COPYIN         */
00390     Tok_SGI_Dir_Criticalsection,  /* CRITICAL SECTION       */
00391     Tok_SGI_Dir_Cyclic,   /* CYCLIC         */
00392     Tok_SGI_Dir_Data,   /* DATA           */
00393     Tok_SGI_Dir_Dependence,   /* DEPENDENCE                 */
00394     Tok_SGI_Dir_Distribute,   /* DISTRIBUTE         */
00395     Tok_SGI_Dir_Distribute_Reshape, /* DISTRIBUTE_RESHAPE       */
00396     Tok_SGI_Dir_Do,     /* DO                         */
00397     Tok_SGI_Dir_Doacross,   /* DO ACROSS          */
00398     Tok_SGI_Dir_Doprefer,   /* DO PREFER                  */
00399     Tok_SGI_Dir_Dynamic,    /* DYNAMIC          */
00400     Tok_SGI_Dir_Endcriticalsection, /* END CRITICAL SECTION       */
00401     Tok_SGI_Dir_Endparallel,  /* END PARALLEL         */
00402     Tok_SGI_Dir_Endpdo,   /* END PDO          */
00403     Tok_SGI_Dir_Endpsection,  /* END PSECTION         */
00404     Tok_SGI_Dir_Endpsections, /* END PSECTIONS        */
00405     Tok_SGI_Dir_Endsingleprocess, /* END SINGLE PROCESS       */
00406     Tok_SGI_Dir_Equivalencehazard,  /* EQUIVALENCE HAZARD         */
00407     Tok_SGI_Dir_Fill_Symbol,  /* FILL SYMBOL          */
00408     Tok_SGI_Dir_Fission,    /* FISSION              */
00409     Tok_SGI_Dir_Fissionable,  /* FISSIONABLE          */
00410     Tok_SGI_Dir_Flush,        /* FLUSH                */
00411     Tok_SGI_Dir_Frequency,    /* FREQUENCY                  */
00412     Tok_SGI_Dir_Fusable,    /* FUSABLE              */
00413     Tok_SGI_Dir_Fuse,   /* FUSE                 */
00414     Tok_SGI_Dir_Global,   /* GLOBAL               */
00415     Tok_SGI_Dir_Gss,    /* GSS            */
00416     Tok_SGI_Dir_Guided,   /* GUIDED         */
00417     Tok_SGI_Dir_Here,   /* HERE           */
00418     Tok_SGI_Dir_If,     /* IF           */
00419     Tok_SGI_Dir_Ignoreanydependence,/* IGNORE ANY DEPENDENCE      */
00420     Tok_SGI_Dir_Ignoreanydependences,/* IGNORE ANY DEPENDENCES    */
00421     Tok_SGI_Dir_Ignoreassumeddependence,
00422                                                 /* IGNORE ASSUMED DEPENDENCE  */
00423     Tok_SGI_Dir_Ignoreassumeddependences,
00424                                                 /* IGNORE ASSUMED DEPENDENCES */
00425     Tok_SGI_Dir_Inline,   /* INLINE               */
00426     Tok_SGI_Dir_Interchange,  /* INTERCHANGE                */
00427     Tok_SGI_Dir_Interleave,   /* INTERLEAVE         */
00428     Tok_SGI_Dir_Interleaved,  /* INTERLEAVED          */
00429     Tok_SGI_Dir_Ipa,    /* IPA                  */
00430     Tok_SGI_Dir_Kind,   /* KIND                 */
00431     Tok_SGI_Dir_Lastlocal,    /* LASTLOCAL          */
00432     Tok_SGI_Dir_Lastthread,   /* LAST THREAD          */
00433     Tok_SGI_Dir_Lastvalueneeded,  /* LAST VALUE NEEDED          */
00434     Tok_SGI_Dir_Lastvaluesneeded, /* LAST VALUES NEEDED         */
00435     Tok_SGI_Dir_Level,    /* LEVEL          */
00436     Tok_SGI_Dir_Limit,    /* LIMIT          */
00437     Tok_SGI_Dir_Local,    /* LOCAL          */
00438     Tok_SGI_Dir_L1cacheline,  /* L1CACHELINE                */
00439     Tok_SGI_Dir_L2cacheline,  /* L2CACHELINE                */
00440     Tok_SGI_Dir_Minconcurrent,  /* MINCONCURRENT        */
00441     Tok_SGI_Dir_Mp_Schedtype, /* MP_SCHEDTYPE         */
00442     Tok_SGI_Dir_Ncpus_Chunk,  /* NCPUS_CHUNK          */
00443     Tok_SGI_Dir_Nest,   /* NEST           */
00444     Tok_SGI_Dir_Noargumentaliasing, /* NOARGUMENTALIASING       */
00445     Tok_SGI_Dir_Noblocking,   /* NO BLOCKING          */
00446     Tok_SGI_Dir_Noboundsviolations, /* NO BOUNDS VIOLATIONS       */
00447     Tok_SGI_Dir_Noconcurrentcall, /* NO CONCURRENT CALL         */
00448     Tok_SGI_Dir_Noconcurrentize,    /* NO CONCURRENTIZE           */
00449     Tok_SGI_Dir_Noequivalencehazard,/* NO EQUIVALENCE HAZARD      */
00450     Tok_SGI_Dir_Nofission,    /* NO FISSION           */
00451     Tok_SGI_Dir_Nofusion,   /* NO FUSION            */
00452     Tok_SGI_Dir_Noinline,   /* NO INLINE            */
00453     Tok_SGI_Dir_Nointerchange,  /* NO INTERCHANGE       */
00454     Tok_SGI_Dir_Noipa,    /* NO IPA               */
00455     Tok_SGI_Dir_Nolastvalueneeded,  /* NO LASTVALUE NEEDED        */
00456     Tok_SGI_Dir_Nolastvaluesneeded, /* NO LASTVALUES NEEDED       */
00457     Tok_SGI_Dir_Norecurrence, /* NO RECURRENCE              */
00458     Tok_SGI_Dir_Nosync,   /* NO SYNC                    */
00459     Tok_SGI_Dir_Notemporariesforconstantarguments,
00460                                      /* NO TEMPORARIES FOR CONSTANT ARGUMENTS */
00461     Tok_SGI_Dir_Nowait,   /* NOWAIT         */
00462     Tok_SGI_Dir_Numchunks,    /* NUMCHUNKS          */
00463     Tok_SGI_Dir_Onto,   /* ONTO           */
00464     Tok_SGI_Dir_Opaque,   /* OPAQUE               */
00465     Tok_SGI_Dir_Optional,   /* OPTIONAL             */
00466 #ifdef KEY /* Bug 2660 */
00467     Tok_SGI_Dir_Options,    /* OPTIONS                    */
00468 #endif /* KEY Bug 2660 */
00469     Tok_SGI_Dir_Ordered,    /* ORDERED          */
00470     Tok_SGI_Dir_Page,         /* PAGE               */
00471     Tok_SGI_Dir_Page_Place,   /* PAGE_PLACE         */
00472     Tok_SGI_Dir_Parallel,   /* PARALLEL         */
00473     Tok_SGI_Dir_Paralleldo,   /* PARALLEL DO          */
00474     Tok_SGI_Dir_Pdo,    /* PDO            */
00475     Tok_SGI_Dir_Permutation,  /* PERMUTATION                */
00476     Tok_SGI_Dir_Prefetch,   /* PREFETCH         */
00477     Tok_SGI_Dir_Prefetch_Manual,  /* PREFETCH_MANUAL        */
00478     Tok_SGI_Dir_Prefetch_Ref, /* PREFETCH_REF         */
00479     Tok_SGI_Dir_Prefetch_Ref_Disable,/* PREFETCH_REF_DISABLE      */
00480     Tok_SGI_Dir_Private,    /* PRIVATE          */
00481     Tok_SGI_Dir_Psection,   /* PSECTION         */
00482     Tok_SGI_Dir_Psections,    /* PSECTIONS          */
00483     Tok_SGI_Dir_Purpleconditional,  /* PURPLECONDITIONAL        */
00484     Tok_SGI_Dir_Purpleunconditional,/* PURPLEUNCONDITIONAL        */
00485     Tok_SGI_Dir_Redistribute, /* REDISTRIBUTE         */
00486     Tok_SGI_Dir_Reduction,    /* REDUCTION          */
00487     Tok_SGI_Dir_Regionbegin,  /* REGIONBEGIN          */
00488     Tok_SGI_Dir_Regionend,    /* REGIONEND          */
00489     Tok_SGI_Dir_Relation,   /* RELATION                   */
00490     Tok_SGI_Dir_Routine,    /* ROUTINE          */
00491     Tok_SGI_Dir_Runtime,    /* RUNTIME          */
00492     Tok_SGI_Dir_Section,    /* SECTION          */
00493     Tok_SGI_Dir_Section_Gp,   /* SECTION_GP         */
00494     Tok_SGI_Dir_Section_Non_Gp, /* SECTION_NON_GP       */
00495     Tok_SGI_Dir_Serial,   /* SERIAL         */
00496     Tok_SGI_Dir_Share,    /* SHARE          */
00497     Tok_SGI_Dir_Shared,   /* SHARED         */
00498     Tok_SGI_Dir_Simple,   /* SIMPLE         */
00499     Tok_SGI_Dir_Single,   /* SINGLE         */
00500     Tok_SGI_Dir_Singleprocess,  /* SINGLE PROCESS       */
00501     Tok_SGI_Dir_Size,   /* SIZE           */
00502     Tok_SGI_Dir_Static,   /* STATIC         */
00503     Tok_SGI_Dir_Stride,   /* STRIDE         */
00504     Tok_SGI_Dir_Unroll,   /* UNROLL         */
00505     Tok_SGI_Dir_Usecompress,  /* USE COMPRESS               */
00506     Tok_SGI_Dir_Usecontrolledstore, /* USE CONTROLLED STORE       */
00507     Tok_SGI_Dir_Useexpand,    /* USE EXPAND                 */
00508     Tok_SGI_Dir_Usegather,    /* USE GATHER                 */
00509     Tok_SGI_Dir_Usescatter,   /* USE SCATTER                */
00510     Tok_SGI_Dir_Temporariesforconstantarguments,
00511                                      /* TEMPORARIES FOR CONSTANT ARGUMENTS    */
00512     Tok_SGI_Dir_Thread,   /* THREAD         */
00513     Tok_SGI_Dir_Tile,   /* TILE           */
00514     Tok_SGI_Dir_Vector,   /* VECTOR         */
00515     Tok_SGI_Dir_End,    /* End of SGI directives      */
00516 
00517 
00518     Tok_Open_Mp_Dir_Start,    /* Start of open mp directives*/
00519                 Tok_Open_Mp_Dir_Affinity,       /* AFFINITY                   */
00520                 Tok_Open_Mp_Dir_Atomic,         /* ATOMIC                     */
00521                 Tok_Open_Mp_Dir_Barrier,        /* BARRIER                    */
00522                 Tok_Open_Mp_Dir_Copyin,         /* COPYIN                     */
00523                 Tok_Open_Mp_Dir_Copyprivate, /* COPYPRIVATE          */ /* by jhs, 02/7/5 */
00524                 Tok_Open_Mp_Dir_Critical,       /* CRITICAL                   */
00525                 Tok_Open_Mp_Dir_Data,           /* DATA                       */
00526                 Tok_Open_Mp_Dir_Default,        /* DEFAULT                    */
00527                 Tok_Open_Mp_Dir_Distribute,     /* DISTRIBUTE                 */
00528                 Tok_Open_Mp_Dir_Distribute_Reshape, /* DISTRIBUTE_RESHAPE     */
00529                 Tok_Open_Mp_Dir_Do,             /* DO                         */
00530                 Tok_Open_Mp_Dir_Dynamic,        /* DYNAMIC                    */
00531                 Tok_Open_Mp_Dir_Endcritical,    /* END CRITICAL               */
00532                 Tok_Open_Mp_Dir_Enddo,          /* END DO                     */
00533                 Tok_Open_Mp_Dir_Endparallel,    /* END PARALLEL               */
00534                 Tok_Open_Mp_Dir_Endparalleldo,  /* END PARALLEL DO            */
00535                 Tok_Open_Mp_Dir_Endparallelsections, /* END PARALLEL SECTIONS */
00536                 Tok_Open_Mp_Dir_Endparallelworkshare, /* END PARALLEL WORKSHARE */ /* by jhs, 02/7/5 */
00537                 Tok_Open_Mp_Dir_Endmaster,      /* END MASTER                 */
00538                 Tok_Open_Mp_Dir_Endordered,     /* END ORDERED                */
00539                 Tok_Open_Mp_Dir_Endsections,    /* END SECTIONS               */
00540                 Tok_Open_Mp_Dir_Endsingle,      /* END SINGLE                 */
00541                 Tok_Open_Mp_Dir_Endworkshare, /* END WORKSHARE */ /* by jhs, 02/7/5 */
00542                 Tok_Open_Mp_Dir_Firstprivate,   /* FIRSTPRIVATE               */
00543                 Tok_Open_Mp_Dir_Flush,          /* FLUSH                      */
00544                 Tok_Open_Mp_Dir_Guided,         /* GUIDED                     */
00545                 Tok_Open_Mp_Dir_If,             /* IF                         */
00546                 Tok_Open_Mp_Dir_Lastprivate,    /* LASTPRIVATE                */
00547                 Tok_Open_Mp_Dir_Master,         /* MASTER                     */
00548                 Tok_Open_Mp_Dir_Nest,           /* NEST                       */
00549                 Tok_Open_Mp_Dir_None,           /* NONE                       */
00550                 Tok_Open_Mp_Dir_Nowait,         /* NOWAIT                     */
00551                 Tok_Open_Mp_Dir_Num_Threads, /* NUM_THREADS */ /* by jhs, 02/7/5 */
00552                 Tok_Open_Mp_Dir_Onto,           /* ONTO                       */
00553                 Tok_Open_Mp_Dir_Ordered,        /* ORDERED                    */
00554                 Tok_Open_Mp_Dir_Page_Place,     /* PAGE PLACE                 */
00555                 Tok_Open_Mp_Dir_Parallel,       /* PARALLEL                   */
00556                 Tok_Open_Mp_Dir_Paralleldo,     /* PARALLEL DO                */
00557                 Tok_Open_Mp_Dir_Parallelsections,  /* PARALLEL SECTIONS */
00558                 Tok_Open_Mp_Dir_Parallelworkshare, /* PARALLEL WORKSHARE */ /* by jhs, 02/7/5 */
00559                 Tok_Open_Mp_Dir_Private,        /* PRIVATE                    */
00560                 Tok_Open_Mp_Dir_Redistribute,   /* REDISTRIBUTE               */
00561                 Tok_Open_Mp_Dir_Reduction,      /* REDUCTION                  */
00562                 Tok_Open_Mp_Dir_Runtime,        /* RUNTIME                    */
00563                 Tok_Open_Mp_Dir_Schedule,       /* SCHEDULE                   */
00564                 Tok_Open_Mp_Dir_Section,        /* SECTION                    */
00565                 Tok_Open_Mp_Dir_Sections,       /* SECTIONS                   */
00566                 Tok_Open_Mp_Dir_Shared,         /* SHARED                     */
00567                 Tok_Open_Mp_Dir_Single,         /* SINGLE                     */
00568                 Tok_Open_Mp_Dir_Static,         /* STATIC                     */
00569                 Tok_Open_Mp_Dir_Thread,         /* THREAD                     */
00570                 Tok_Open_Mp_Dir_Threadprivate,  /* THREADPRIVATE              */
00571                 Tok_Open_Mp_Dir_Workshare, /* WORKSHARE */ /* by jhs, 02/7/5 */
00572                 Tok_Open_Mp_Dir_End,            /* End of Open Mp directives  */
00573 
00574     Tok_Dbg_Sytb,     /* Symbol table               */
00575     Tok_Dbg_Stmt,     /* Statement                  */
00576 
00577     Tok_Punct_Colon,  /* :       construct-name-sep,      */
00578           /*       array-shape-spec-sep,    */
00579           /*       substring-range-sep,     */
00580           /*       subscript-triplet-sep,   */
00581           /*       case-value-range-sep,    */
00582           /*       only-list-sep        */
00583     Tok_Punct_Colon_Colon,  /* ::      declaration-spec-sep     */
00584     Tok_Punct_Comma,  /* ,       list-item-sep        */
00585     Tok_Punct_Dash,   /* -       letter-spec-sep        */
00586     Tok_Punct_Eq,   /* =       initialization-exp-sep,  */
00587           /*       kind-spec-sep,       */
00588           /*       char-len-spec-sep,       */
00589           /*       IO-spec-sep,       */
00590           /*       actual-arg-spec-sep,     */
00591           /*       stmt-func-def-sep        */
00592     Tok_Punct_Lbrkt,  /* (/        array-constructor-delim  */
00593     Tok_Punct_Lparen, /* (       left-paren-delim       */
00594     Tok_Punct_Rbrkt,  /* /)        array-constructor-delim  */
00595     Tok_Punct_Rename, /* =>      rename-sep         */
00596     Tok_Punct_Rparen, /* )       right-paren-delim        */
00597     Tok_Punct_Slash,  /* /       common-name-sep,       */
00598           /*       data-value-list-sep,     */
00599           /*       save-list-sep,       */
00600           /*       namelist-group-sep       */
00601     Tok_Punct_Star,   /* *       char-len-spec,       */
00602           /*       data-repeat-spec,        */
00603           /*       array-size-spec,       */
00604           /*       IO-unit-spec,        */
00605           /*       format-spec,       */
00606           /*       alt-return-spec,       */
00607           /*       dummy-arg-spec       */
00608 
00609     Tok_Const_False,  /* .FALSE.   logical-false-constant,  */
00610           /* .F.       logical-false-constant   */
00611     Tok_Const_True,   /* .TRUE.    logical-true-constant,   */
00612           /* .T.       logical-true-constant    */
00613     Tok_Const_Hollerith,  /*       hollerith-constant       */
00614     Tok_Const_Boolean,  /*       short-hollerith-constant,*/
00615           /*       octal-constant,        */
00616           /*       hex-constant       */
00617     Tok_Const_Boz,    /*       binary-constant,       */
00618           /*       octal-constant,        */
00619           /*       hex-constant       */
00620     Tok_Const_Char,   /*       character-constant       */
00621     Tok_Const_Int,    /*       integer-constant       */
00622     Tok_Const_Real,   /*       real-constant        */
00623     Tok_Const_Dbl,    /*       double-constant        */
00624     Tok_Const_Quad,   /*       quad-constant            */
00625 
00626     Tok_Op_Add,   /* +       addition-op        */
00627     Tok_Op_Div,   /* /       division-op,       */
00628     Tok_Op_Mult,    /* *       multiplication-op        */
00629     Tok_Op_Power,   /* **      exponentiation-op        */
00630     Tok_Op_Sub,   /* -       subtraction-op       */
00631 
00632     Tok_Op_Concat,    /* //      concatenation-op       */
00633 
00634     Tok_Op_Eq,    /* .EQ. ==   equal-op         */
00635     Tok_Op_Ge,    /* .GE. >=   greater-equal-op       */
00636     Tok_Op_Gt,    /* .GT. >    greater-op         */
00637     Tok_Op_Le,    /* .LE. <=   less-equal-op        */
00638     Tok_Op_Lt,    /* .LT. <    less-op          */
00639     Tok_Op_Ne,    /* .NE. /=   not-equal-op       */
00640     Tok_Op_Lg,    /* .LG. <>   lg_op          */
00641 
00642     Tok_Op_And,   /* .AND. .A. and-op         */
00643     Tok_Op_Eqv,   /* .EQV.     equivalence-op       */
00644     Tok_Op_Neqv,    /* .NEQV.    non-equivalence-op       */
00645           /* .XOR. .X. non-equivalence-op       */
00646     Tok_Op_Not,   /* .NOT. .N. negation-op        */
00647     Tok_Op_Or,    /* .OR.  .O. or-op          */
00648 
00649     Tok_Op_Assign,    /* =       assignment-op,       */
00650           /*       generic-spec-assign-op,  */
00651           /*       implied-do-control-op    */
00652     Tok_Op_Defined,   /* .letters. defined-op         */
00653     Tok_Op_Deref,   /* %       struct-comp-derefer-op   */
00654     Tok_Op_Ptr_Assign,  /* =>      pointer-assignment-op    */
00655 
00656     Tok_Unknown,    /* ?       unknown symbol       */
00657     Tok_EOS,    /* EOS ;     end-of-statement       */
00658     Tok_EOF,    /* EOF       end-of-file - end parse  */
00659 
00660     Tok_LAST };   /* THIS MUST BE THE LAST ENUM ENTRY   */
00661 
00662 /******************************************************************************/
00663 
00664 typedef enum  ch_class_values   ch_class_type;
00665 typedef enum  token_class_values  token_class_type;
00666 typedef enum  token_values    token_values_type;
00667 
00668 typedef struct  la_entry    la_type;
00669 typedef union token_str_entry   token_str_type;
00670 typedef struct  token_entry   token_type;
00671 
00672 /******************************************************************************/
00673 
00674 struct  la_entry  {char     value;
00675        ch_class_type    ch_class;
00676        int      line;
00677        int      column;
00678        int      stmt_buf_idx;
00679        int      stmt_num; };
00680 
00681 /* NOTE:  the id_str member of the following struct must be the first    */
00682 /*    member so that it is word aligned for symbol table searches    */
00683 /*        id_str_type is declared in globals.h                           */
00684 
00685 struct  token_entry {id_str_type    token_str;
00686        int      token_len;
00687                          boolean    token_err;
00688        token_values_type  value;
00689        char     kind_str[MAX_ID_LEN+1];
00690        int      kind_len;
00691        int      line;
00692        int      column;
00693        int      stmt_buf_idx;
00694        int      stmt_num; };
00695 
00696 /*********************************\
00697 |* lex and parser interface data *|
00698 \*********************************/
00699 
00700 extern  la_type   la_ch; 
00701 extern  token_type  token;
00702 
00703 /************************************************\
00704 |* lex and parser interface function prototypes *|
00705 \************************************************/
00706 
00707 extern  boolean   get_token (token_class_type);
00708 extern  token_type      initial_token;
00709