| 1 | /*********************************************************************** |
|---|
| 2 | |
|---|
| 3 | COPYRIGHT |
|---|
| 4 | |
|---|
| 5 | The following is a notice of limited availability of the code and |
|---|
| 6 | Government license and disclaimer which must be included in the |
|---|
| 7 | prologue of the code and in all source listings of the code. |
|---|
| 8 | |
|---|
| 9 | Copyright notice |
|---|
| 10 | (c) 1977 University of Chicago |
|---|
| 11 | |
|---|
| 12 | Permission is hereby granted to use, reproduce, prepare |
|---|
| 13 | derivative works, and to redistribute to others at no charge. If |
|---|
| 14 | you distribute a copy or copies of the Software, or you modify a |
|---|
| 15 | copy or copies of the Software or any portion of it, thus forming |
|---|
| 16 | a work based on the Software and make and/or distribute copies of |
|---|
| 17 | such work, you must meet the following conditions: |
|---|
| 18 | |
|---|
| 19 | a) If you make a copy of the Software (modified or verbatim) |
|---|
| 20 | it must include the copyright notice and Government |
|---|
| 21 | license and disclaimer. |
|---|
| 22 | |
|---|
| 23 | b) You must cause the modified Software to carry prominent |
|---|
| 24 | notices stating that you changed specified portions of |
|---|
| 25 | the Software. |
|---|
| 26 | |
|---|
| 27 | This software was authored by: |
|---|
| 28 | |
|---|
| 29 | Argonne National Laboratory |
|---|
| 30 | J. Michalakes: (630) 252-6646; email: michalak@mcs.anl.gov |
|---|
| 31 | Mathematics and Computer Science Division |
|---|
| 32 | Argonne National Laboratory, Argonne, IL 60439 |
|---|
| 33 | |
|---|
| 34 | ARGONNE NATIONAL LABORATORY (ANL), WITH FACILITIES IN THE STATES |
|---|
| 35 | OF ILLINOIS AND IDAHO, IS OWNED BY THE UNITED STATES GOVERNMENT, |
|---|
| 36 | AND OPERATED BY THE UNIVERSITY OF CHICAGO UNDER PROVISION OF A |
|---|
| 37 | CONTRACT WITH THE DEPARTMENT OF ENERGY. |
|---|
| 38 | |
|---|
| 39 | GOVERNMENT LICENSE AND DISCLAIMER |
|---|
| 40 | |
|---|
| 41 | This computer code material was prepared, in part, as an account |
|---|
| 42 | of work sponsored by an agency of the United States Government. |
|---|
| 43 | The Government is granted for itself and others acting on its |
|---|
| 44 | behalf a paid-up, nonexclusive, irrevocable worldwide license in |
|---|
| 45 | this data to reproduce, prepare derivative works, distribute |
|---|
| 46 | copies to the public, perform publicly and display publicly, and |
|---|
| 47 | to permit others to do so. NEITHER THE UNITED STATES GOVERNMENT |
|---|
| 48 | NOR ANY AGENCY THEREOF, NOR THE UNIVERSITY OF CHICAGO, NOR ANY OF |
|---|
| 49 | THEIR EMPLOYEES, MAKES ANY WARRANTY, EXPRESS OR IMPLIED, OR |
|---|
| 50 | ASSUMES ANY LEGAL LIABILITY OR RESPONSIBILITY FOR THE ACCURACY, |
|---|
| 51 | COMPLETENESS, OR USEFULNESS OF ANY INFORMATION, APPARATUS, |
|---|
| 52 | PRODUCT, OR PROCESS DISCLOSED, OR REPRESENTS THAT ITS USE WOULD |
|---|
| 53 | NOT INFRINGE PRIVATELY OWNED RIGHTS. |
|---|
| 54 | |
|---|
| 55 | ***************************************************************************/ |
|---|
| 56 | #ifndef SYM_H |
|---|
| 57 | #define SYM_H |
|---|
| 58 | |
|---|
| 59 | /* file: sym.h |
|---|
| 60 | |
|---|
| 61 | Header info for symbol table module. |
|---|
| 62 | |
|---|
| 63 | */ |
|---|
| 64 | |
|---|
| 65 | typedef struct sym_node * sym_nodeptr ; |
|---|
| 66 | |
|---|
| 67 | struct sym_node |
|---|
| 68 | { |
|---|
| 69 | char * name ; /* lexeme */ |
|---|
| 70 | sym_nodeptr next ; /* pointer to next node in symbol table */ |
|---|
| 71 | /* fields that are associated with dimension declaration constants */ |
|---|
| 72 | unsigned char dim ; |
|---|
| 73 | /* fields that are associated with arrays */ |
|---|
| 74 | int ndims ; |
|---|
| 75 | int MDEX ; /* which index is the M dimension */ |
|---|
| 76 | int NDEX ; /* which index is the N dimension */ |
|---|
| 77 | unsigned char dims[7] ; |
|---|
| 78 | char dimname[7][64] ; |
|---|
| 79 | /* name of temporary variable associated with string. variable */ |
|---|
| 80 | char varx[32] ; |
|---|
| 81 | /* name of core association, July 2004 */ |
|---|
| 82 | char core_name[64] ; |
|---|
| 83 | /* internal name of variable associated with dataname entry, July 2004 */ |
|---|
| 84 | char internal_name[64] ; |
|---|
| 85 | /* fields associated with integer scalar variables */ |
|---|
| 86 | unsigned long assigned ; /* pointer to assignment statement */ |
|---|
| 87 | unsigned long thisif ; |
|---|
| 88 | int iflev ; |
|---|
| 89 | int marked ; /* general purpose marker */ |
|---|
| 90 | } ; |
|---|
| 91 | |
|---|
| 92 | sym_nodeptr sym_add() ; |
|---|
| 93 | sym_nodeptr sym_get() ; |
|---|
| 94 | |
|---|
| 95 | #endif |
|---|
