/usr/include/gap/trans.h is in gap-dev 4r7p9-1.
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 | #include "system.h" /* system dependent part */
#include "gasman.h" /* garbage collector */
#include "objects.h" /* objects */
#include "scanner.h" /* scanner */
#include "gap.h" /* error handling, initialisation */
#include "gvars.h" /* global variables */
#include "calls.h" /* generic call mechanism */
#include "opers.h" /* generic operations */
#include "ariths.h" /* basic arithmetic */
#include "bool.h" /* booleans */
#include "integer.h" /* integers */
#include "intfuncs.h" /* hashing */
#include "permutat.h" /* permutations */
#include "records.h" /* generic records */
#include "precord.h" /* plain records */
#include "lists.h" /* generic lists */
#include "plist.h" /* plain lists */
#include "range.h" /* ranges */
#include "string.h" /* strings */
#include "saveload.h" /* saving and loading */
#include "set.h" /* sets */
#ifndef GAP_TRANS_H
#define GAP_TRANS_H
extern UInt INIT_TRANS2(Obj f);
extern UInt INIT_TRANS4(Obj f);
#define IMG_TRANS(f) (*(Obj*)(ADDR_OBJ(f)))
#define KER_TRANS(f) (*((Obj*)(ADDR_OBJ(f))+1))
#define EXT_TRANS(f) (*((Obj*)(ADDR_OBJ(f))+2))
#define NEW_TRANS2(deg) NewBag(T_TRANS2, deg*sizeof(UInt2)+3*sizeof(Obj))
#define ADDR_TRANS2(f) ((UInt2*)((Obj*)(ADDR_OBJ(f))+3))
#define DEG_TRANS2(f) ((UInt)(SIZE_OBJ(f)-3*sizeof(Obj))/sizeof(UInt2))
#define RANK_TRANS2(f) (IMG_TRANS(f)==NULL?INIT_TRANS2(f):LEN_PLIST(IMG_TRANS(f)))
#define NEW_TRANS4(deg) NewBag(T_TRANS4, deg*sizeof(UInt4)+3*sizeof(Obj))
#define ADDR_TRANS4(f) ((UInt4*)((Obj*)(ADDR_OBJ(f))+3))
#define DEG_TRANS4(f) ((UInt)(SIZE_OBJ(f)-3*sizeof(Obj))/sizeof(UInt4))
#define RANK_TRANS4(f) (IMG_TRANS(f)==NULL?INIT_TRANS4(f):LEN_PLIST(IMG_TRANS(f)))
#define IS_TRANS(f) (TNUM_OBJ(f)==T_TRANS2||TNUM_OBJ(f)==T_TRANS4)
#define RANK_TRANS(f) (TNUM_OBJ(f)==T_TRANS2?RANK_TRANS2(f):RANK_TRANS4(f))
#define DEG_TRANS(f) (TNUM_OBJ(f)==T_TRANS2?DEG_TRANS2(f):DEG_TRANS4(f))
/****************************************************************************
**
*F OnTuplesTrans( <tup>, <f> ) . . . . operations on tuples of points
**
** 'OnTuplesTrans' returns the image of the tuple <tup> under the
** transformation <f>.
*/
extern Obj OnTuplesTrans ( Obj tup, Obj f );
/****************************************************************************
**
*F OnSetsTrans( <set>, <f> ) . . . . . . . . operations on sets of points
**
** 'OnSetsTrans' returns the image of the tuple <set> under the
** transformation <f>.
*/
extern Obj OnSetsTrans ( Obj set, Obj f );
/****************************************************************************
**
*V IdentityTrans . . . . . . . . . . . . . . . . . identity transformation
**
** 'IdentityTrans' is an identity transformation.
*/
extern Obj IdentityTrans;
/****************************************************************************
*F * * * * * * * * * * * * * initialize package * * * * * * * * * * * * * * */
/****************************************************************************
*F InitInfoTrans() . . . . . . . . . . . . . . . table of init functions
*/
StructInitInfo * InitInfoTrans ( void );
#endif // GAP_TRANS_H
|