/usr/include/gap/read.h is in gap-dev 4r6p5-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 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 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 | /****************************************************************************
**
*W read.h GAP source Martin Schönert
**
**
*Y Copyright (C) 1996, Lehrstuhl D für Mathematik, RWTH Aachen, Germany
*Y (C) 1998 School Math and Comp. Sci., University of St Andrews, Scotland
*Y Copyright (C) 2002 The GAP Group
**
** This module declares the functions to read expressions and statements.
*/
#ifndef GAP_READ_H
#define GAP_READ_H
/****************************************************************************
**
*F READ_ERROR() . . . . . . . . . . . . . . . . . . . reader found an error
**
** 'READ_ERROR' returns a non-zero value if the reader found an error, or if
** the interpretation of an expression or statement lead to an error (in
** which case 'ReadEvalError' jumps back to 'READ_ERROR' via 'longjmp').
*/
extern syJmp_buf ReadJmpError;
#ifndef DEBUG_READ_ERROR
#define READ_ERROR() (NrError || (NrError+=sySetjmp(ReadJmpError)))
#else
#define READ_ERROR() \
( NrError || \
( ( NrError += setjmp(ReadJmpError) ) ? \
Pr( "READ_ERROR( %s, %d )\n", (Int)__FILE__, __LINE__ ),0 : 0 ), \
NrError )
#endif
/****************************************************************************
**
*F * * * * * * * * * * * * read and evaluate symbols * * * * * * * * * * * *
*/
/****************************************************************************
**
*V ReadEvalResult . . . . . . . . result of reading one command immediately
*/
extern Obj ReadEvalResult;
/****************************************************************************
**
*F ReadEvalCommand() . . . . . . . . . . . . . . . . . . . read one command
**
** 'ReadEvalCommand' reads one command and interprets it immediately.
**
** It does not expect the first symbol of its input already read and wont
** read the first symbol of the next input.
**
*/
extern UInt ReadEvalCommand ( Obj context );
/****************************************************************************
**
*F ReadEvalFile() . . . . . . . . . . . . . . . . . . . . . . . read a file
**
** 'ReadEvalFile' reads an entire file and returns (in 'ReadEvalResult') the
** entire file as thunk, i.e., as function of no argument.
**
** It does not expect the first symbol of its input already read and wont
** reads to the end of the input (unless an error happens).
*/
extern UInt ReadEvalFile ( void );
/****************************************************************************
**
*F ReadEvalError() . . . . . . . . . . . . . . . . . . return with an error
*/
extern void ReadEvalError ( void );
/* extern ExecStatus ReadEvalDebug ( void ); */
/****************************************************************************
**
*V StackNams, CountNames . . . . . .stack of lists of local variable names
**
** This is exported to support a rather nasty hack in intrprtr.c todo with
** while loops and the break loop
*/
extern Obj StackNams;
extern UInt CountNams;
extern void PushGlobalForLoopVariable( UInt var);
extern void PopGlobalForLoopVariable( void );
extern UInt GlobalComesFromEnclosingForLoop (UInt var);
/****************************************************************************
**
*F Call0ArgsInNewReader(Obj f) . . . . . . . . . . . . call a GAP function
**
** The current reader context is saved and a new one is started.
*/
Obj Call0ArgsInNewReader(Obj f);
/****************************************************************************
**
*F Call1ArgsInNewReader(Obj f,Obj a) . . . . . . . . . . call a GAP function
**
** The current reader context is saved and a new one is started.
*/
Obj Call1ArgsInNewReader(Obj f,Obj a);
/****************************************************************************
**
*F * * * * * * * * * * * * * initialize package * * * * * * * * * * * * * * *
*/
/****************************************************************************
**
*F InitInfoRead() . . . . . . . . . . . . . . . . . table of init functions
*/
StructInitInfo * InitInfoRead ( void );
#endif // GAP_READ_H
/****************************************************************************
**
*E read.c . . . . . . . . . . . . . . . . . . . . . . . . . . . . ends here
*/
|