/usr/include/gap/range.h is in gap-dev 4r8p8-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 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 | /****************************************************************************
**
*W range.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 file declares the functions that deal with ranges.
**
** A *range* is a list without holes consisting of consecutive integers.
** For the full definition of ranges see chapter "Ranges" in the GAP Manual.
** Read also "More about Ranges" about the different representation of
** ranges.
**
** Ranges can be accessed through the macros 'NEW_RANGE', 'IS_RANGE',
** 'SET_LEN_RANGE', 'GET_LEN_RANGE', 'SET_LOW_RANGE', 'GET_LOW_RANGE',
** 'SET_INC_RANGE', 'GET_INC_RANGE', and 'GET_ELM_RANGE'.
**
** This package also contains the list functions for ranges, which are
** installed in the appropriate tables by 'InitRange'.
*/
#ifndef GAP_RANGE_H
#define GAP_RANGE_H
/****************************************************************************
**
*F NEW_RANGE() . . . . . . . . . . . . . . . . . . . . . . make a new range
**
** 'NEW_RANGE' returns a new range. Note that you must set the length, the
** low value, and the increment before you can use the range.
*/
#define NEW_RANGE_NSORT() NewBag( T_RANGE_NSORT, 3 * sizeof(Obj) )
#define NEW_RANGE_SSORT() NewBag( T_RANGE_SSORT, 3 * sizeof(Obj) )
/****************************************************************************
**
*F IS_RANGE(<val>) . . . . . . . . . . . . . . . test if a value is a range
**
** 'IS_RANGE' returns 1 if the value <val> is known to be a range, and 0
** otherwise. Note that a list for which 'IS_RANGE' returns 0 may still be
** a range, but the kernel does not know this yet. Use 'IsRange' to test
** whether a list is a range.
**
** Note that 'IS_RANGE' is a macro, so do not call it with arguments that
** have side effects.
*/
#define IS_RANGE(val) (TNUM_OBJ(val)==T_RANGE_NSORT || TNUM_OBJ(val)==T_RANGE_SSORT)
/****************************************************************************
**
*F SET_LEN_RANGE(<list>,<len>) . . . . . . . . . . set the length of a range
**
** 'SET_LEN_RANGE' sets the length of the range <list> to the value <len>,
** which must be a C integer larger than 1.
**
** Note that 'SET_LEN_RANGE' is a macro, so do not call it with arguments
** that have side effects.
*/
#define SET_LEN_RANGE(list,len) (ADDR_OBJ(list)[0] = INTOBJ_INT(len))
/****************************************************************************
**
*F GET_LEN_RANGE(<list>) . . . . . . . . . . . . . . . . . length of a range
**
** 'GET_LEN_RANGE' returns the logical length of the range <list>, as a C
** integer.
**
** Note that 'GET_LEN_RANGE' is a macro, so do not call it with arguments
** that have side effects.
*/
#define GET_LEN_RANGE(list) INT_INTOBJ( ADDR_OBJ(list)[0] )
/****************************************************************************
**
*F SET_LOW_RANGE(<list>,<low>) . . . . . . set the first element of a range
**
** 'SET_LOW_RANGE' sets the first element of the range <list> to the value
** <low>, which must be a C integer.
**
** Note that 'SET_LOW_RANGE' is a macro, so do not call it with arguments
** that have side effects.
*/
#define SET_LOW_RANGE(list,low) (ADDR_OBJ(list)[1] = INTOBJ_INT(low))
/****************************************************************************
**
*F GET_LOW_RANGE(<list>) . . . . . . . . . . . . . first element of a range
**
** 'GET_LOW_RANGE' returns the first element of the range <list> as a C
** integer.
**
** Note that 'GET_LOW_RANGE' is a macro, so do not call it with arguments
** that have side effects.
*/
#define GET_LOW_RANGE(list) INT_INTOBJ( ADDR_OBJ(list)[1] )
/****************************************************************************
**
*F SET_INC_RANGE(<list>,<inc>) . . . . . . . . set the increment of a range
**
** 'SET_INC_RANGE' sets the increment of the range <list> to the value
** <inc>, which must be a C integer.
**
** Note that 'SET_INC_RANGE' is a macro, so do not call it with arguments
** that have side effects.
*/
#define SET_INC_RANGE(list,inc) (ADDR_OBJ(list)[2] = INTOBJ_INT(inc))
/****************************************************************************
**
*F GET_INC_RANGE(<list>) . . . . . . . . . . . . . . . increment of a range
**
** 'GET_INC_RANGE' returns the increment of the range <list> as a C integer.
**
** Note that 'GET_INC_RANGE' is a macro, so do not call it with arguments
** that have side effects.
*/
#define GET_INC_RANGE(list) INT_INTOBJ( ADDR_OBJ(list)[2] )
/****************************************************************************
**
*F GET_ELM_RANGE(<list>,<pos>) . . . . . . . . . . . . . element of a range
**
** 'GET_ELM_RANGE' return the <pos>-th element of the range <list>. <pos>
** must be a positive integer less than or equal to the length of <list>.
**
** Note that 'GET_ELM_RANGE' is a macro, so do not call it with arguments
** that have side effects.
*/
#define GET_ELM_RANGE(list,pos) INTOBJ_INT( GET_LOW_RANGE(list) \
+ ((pos)-1) * GET_INC_RANGE(list) )
/****************************************************************************
**
*F PosRange(<list>,<val>,<start>) . . . . position of an element in a range
**
** 'PosRange' returns the position of the value <val> in the range <list>
** after the first position <start> as a GAP integer. Fail is returned if <val>
** is not in the list.
**
** 'PosRange' is the function in 'PosListFuncs' for ranges.
*/
extern Obj PosRange (
Obj list,
Obj val,
Obj start );
/****************************************************************************
**
*F Range2Check( <first>, <last> ) . . . . . . . . . . . . . construct range
*/
extern Obj Range2Check (
Obj first,
Obj last );
/****************************************************************************
**
*F Range3Check( <first>, <second>, <last> ) . . . . . . . . construct range
*/
extern Obj Range3Check (
Obj first,
Obj second,
Obj last );
/****************************************************************************
**
*F * * * * * * * * * * * * * initialize package * * * * * * * * * * * * * * *
*/
/****************************************************************************
**
*F InitInfoRange() . . . . . . . . . . . . . . . . . table of init functions
*/
StructInitInfo * InitInfoRange ( void );
#endif // GAP_RANGE_H
/****************************************************************************
**
*E range.c . . . . . . . . . . . . . . . . . . . . . . . . . . . . ends here
*/
|