/usr/include/gap/objfgelm.h is in gap-dev 4r8p6-2.
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 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 | /****************************************************************************
**
*W objfgelm.h GAP source Frank Celler
**
**
*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
*/
#ifndef GAP_OBJFGELM_H
#define GAP_OBJFGELM_H
/****************************************************************************
**
*D AWP_SOMETHING
*/
#define AWP_FIRST_ENTRY 5
#define AWP_PURE_TYPE (AWP_FIRST_ENTRY+0)
#define AWP_NR_BITS_EXP (AWP_FIRST_ENTRY+1)
#define AWP_NR_GENS (AWP_FIRST_ENTRY+2)
#define AWP_NR_BITS_PAIR (AWP_FIRST_ENTRY+3)
#define AWP_FUN_OBJ_BY_VECTOR (AWP_FIRST_ENTRY+4)
#define AWP_FUN_ASSOC_WORD (AWP_FIRST_ENTRY+5)
#define AWP_FIRST_FREE (AWP_FIRST_ENTRY+6)
/****************************************************************************
**
*F BITS_WORDTYPE( <type> )
*/
#define BITS_WORDTYPE( type ) \
( INT_INTOBJ( ELM_PLIST( (type), AWP_NR_BITS_PAIR ) ) )
/****************************************************************************
**
*F EBITS_WORDTYPE( <type> )
*/
#define EBITS_WORDTYPE( type ) \
( INT_INTOBJ( ELM_PLIST( (type), AWP_NR_BITS_EXP ) ) )
/****************************************************************************
**
*F RANK_WORDTYPE( <type> )
*/
#define RANK_WORDTYPE( type ) \
( INT_INTOBJ( ELM_PLIST( (type), AWP_NR_GENS ) ) )
/****************************************************************************
**
*F PURETYPE_WORDTYPE( <type> )
*/
#define PURETYPE_WORDTYPE( type ) \
( ELM_PLIST( (type), AWP_PURE_TYPE ) )
/****************************************************************************
**
*F BITS_WORD( <word> )
*/
#define BITS_WORD( word ) \
( BITS_WORDTYPE( TYPE_DATOBJ( (word) ) ) )
/****************************************************************************
**
*F DATA_WORD( <word> )
**
** 'DATA_WORD' returns a pointer to the data area of <word>.
*/
#define DATA_WORD( word ) \
( (Char*)ADDR_OBJ( (word) ) + 2*sizeof(Obj) )
/****************************************************************************
**
*F EBITS_WORD( <word> )
*/
#define EBITS_WORD( word ) \
( EBITS_WORDTYPE( TYPE_DATOBJ( (word) ) ) )
/****************************************************************************
**
*F NPAIRS_WORD( <word> )
**
** 'NPAIRS_WORD' returns the number of pairs of generator number/exponent
** pairs of <word>.
*/
#define NPAIRS_WORD( word ) \
( INT_INTOBJ( ADDR_OBJ( (word) )[1]) )
/****************************************************************************
**
*F RANK_WORD( <word> )
*/
#define RANK_WORD( word ) \
( RANK_WORDTYPE( TYPE_DATOBJ( (word) ) ) )
/****************************************************************************
**
*F PURETYPE_WORD( <word> )
*/
#define PURETYPE_WORD( word ) \
( PURETYPE_WORDTYPE( TYPE_DATOBJ( (word) ) ) )
/****************************************************************************
**
*F NEW_WORD( <word>, <type>, <npairs> )
**
** 'NEW_WORD' creates a new object which has the given <type> and room for
** <npairs> pairs of generator number/exponent. The new word is return in
** <word>.
*/
static inline Obj NewWord(Obj type, UInt npairs) {
Obj word;
word = NewBag(T_DATOBJ,2*sizeof(Obj)+npairs*BITS_WORDTYPE(type)/8L);
(ADDR_OBJ(word)[1] = INTOBJ_INT(npairs));
SET_TYPE_DATOBJ( word, type);
return word;
}
#define NEW_WORD(word, type, npairs) \
ReadGuard(type), \
(word) = NewWord((type), (npairs));
/****************************************************************************
**
*F RESIZE_WORD( <word>, <npairs> )
*/
static inline Obj RESIZE_WORD( Obj word, UInt npairs )
{
WriteGuard(word);
ResizeBag( (word), 2*sizeof(Obj)+((npairs)*BITS_WORD((word))/8L));
(ADDR_OBJ((word))[1] = INTOBJ_INT((npairs)));
return word;
}
/****************************************************************************
**
*F * * * * * * * * * * * * * initialize package * * * * * * * * * * * * * * *
*/
/****************************************************************************
**
*F InitInfoFreeGroupElements() . . . . . . . . . . . table of init functions
*/
StructInitInfo * InitInfoFreeGroupElements ( void );
#endif // GAP_OBJFGELM_H
/****************************************************************************
**
*E objfgelm.h . . . . . . . . . . . . . . . . . . . . . . . . . . ends here
*/
|