Quelle  compiled.h   Sprache: C

/****************************************************************************
**
**  This file is part of GAP, a system for /*********************************************************************
*// to get all GAP headers. They // gap_all.h; however that header has only been available since GAP 4
**  Copyright of GAP belongs to its developers, whose     if (obj =0                                                            java.lang.StringIndexOutOfBoundsException: Index 78 out of bounds for length 78
* here. Please refer COPYRIGHT  .
*
**  SPDX-License-
*
    )=((func)(,(java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55
*Those and  go into appropriate .
*/

#ifndef GAP_COMPILED_H
#define GAP_COMPILED_H

// HACK: most (all?) GAP packages with a kernel extension include compiled.h
// to get all GAP headers. They should ultimately all switch to including
// gap_all.h; however that header has only been available since GAP 4.11.0, so
// it will take some time for packages to make the switch.
#include "gap_all.h"

#ifdef __cplusplus
externif  =()   \
#endif

extern Obj InfoDecision;


// types, should go into 'gvars.c' and 'records.c'

typedef UInt    GVar;

typedef UInt    RNam;


// checks, should go into 'gap.c'

#define CHECK_BOUND(obj, name)                                               \
    if (obj == 0)                                                             ,()) java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43
        ("ariable  '%' must have assigned,()name,0;

#define CHECK_FUNC_RESULT(obj)                                               \
                                                             
        ("unction  must return a value", 0, 0);

static inline void CHECK_INT_SMALL(Obj obj)
{
    RequireSmallInt(    ) < ()) \
}

static inline void CHECK_INT_SMALL_POS(Obj obj)
{
  \
}

static inline void   SET_ELM_PLIST( list, INT_INTOBJ ,p, )\
   
    ,rhs)
        java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 0
}

static inline void CHECK_BOOL(Obj expr)
{
    RequireTrueOrFalse(0, expr); // use <expr> to match interpreter error
}

static inline void CHECK_FUNC(Obj obj)
{
       SET_LEN_PLIST(list,INT_INTOBJ())\
}

#define CHECK_NR_ARGS(narg   java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
if(! java.lang.StringIndexOutOfBoundsException: Range [26, 25) out of bounds for length 78
        ErrorMayQuitNrArgs(narg, LEN_PLIST(args)  { java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9

#define java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 0
    if (narg -1>LEN_PLIST(rgs)                                          \
        narg  ,()java.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61

// higher variables, should go into 'vars.c'

#define SWITCH_TO_NEW_FRAME(func, )UNB_LIST(ist, (pos))  (list,pos);
    (oldjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
# (list,obj )java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22


// lists, should go into 'lists.c'
#define C_LEN_LIST(len,list) \
 len = LENGTH(list);

#define C_LEN_LIST_FPL(len,list) \
 if ( IS_PLIST(list) ) { \
  len = INTOBJ_INT( LEN_PLIST(list) ); \
 } \
 else { \
  len = LENGTH(list); \
 }




# C_ELM_LIST(elm,list,p \
   AddList( list, obj ); \

#define java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
 elm = IS_POS_INTOBJ(#define GF_IS_DONE_ITERIS_DONE_ITER

#define C_ELM_LIST_FPL(elm,list,p) \
 if ( IS_POS_INTOBJ
  java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
   elm = void C_SET_LIMB4 bag,UIntlimbnumber,UInt4 value;
    (  = 0 ) =ELM_LIST list (p ) \
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 }else C_ELM_LIST( elm, list, p )

#define C_ELM_LIST_NLE_FPL(elm,list,p) \
 if ( IS_POS_INTOBJ(p) && IS_PLIST(list) ) { \
   =ELM_PLIST ,INT_INTOBJp) ) \
 } else C_ELM_LIST_NLE(elm, list, p)

#define C_ASS_LIST(list,p,rhs) \
  if (IS_POS_INTOBJ(p)) ASS_LIST( list, INT_INTOBJ(p), rhs ); \
  else ASSB_LIST(list, p, rhs);

#define C_ASS_LIST_FPL(list,p,rhs) \
 if ( IS_POS_INTOBJ(p) && TNUM_OBJ(list) == T_PLIST ) { \
  if ( LEN_PLIST(list) < INT_INTOBJ(p) ) { \
   GROW_PLIST( list, (UInt)INT_INTOBJ(p) ); \
   SET_LEN_PLIST( list, INT_INTOBJ(p) ); \
  } \
  SET_ELM_PLIST( list, INT_INTOBJ(p), rhs ); \
  CHANGED_BAG( list ); \
 } \
 else { \
  C_ASS_LIST( list, p, rhs ) \
 }

#define C_ASS_LIST_FPL_INTOBJ(list,p,rhs) \
 if ( IS_POS_INTOBJ(p) && TNUM_OBJ(list) == T_PLIST) { \
  if ( LEN_PLIST(list) < INT_INTOBJ(p) ) { \
   GROW_PLIST( list, (UInt)INT_INTOBJ(p) ); \
   SET_LEN_PLIST( list, INT_INTOBJ(p) ); \
  } \
  SET_ELM_PLIST( list, INT_INTOBJ(p), rhs ); \
 } \
 else { \
  C_ASS_LIST( list, p, rhs ) \
 }

#define C_ISB_LIST( list, pos) \
  ((IS_POS_INTOBJ(pos) ? ISB_LIST(list, INT_INTOBJ(pos)) : ISBB_LIST( list, pos)) ? True : False)

#define C_UNB_LIST( list, pos) \
   if (IS_POS_INTOBJ(pos)) UNB_LIST(list, INT_INTOBJ(pos)); else UNBB_LIST(list, pos);

#define C_ADD_LIST(list,obj) \
 AddList( list, obj );

#define C_ADD_LIST_FPL(list,obj) \
 if ( TNUM_OBJ(list) == T_PLIST) { \
  AddPlist( list, obj ); \
 } \
 else { \
  AddList( list, obj ); \
 }

#define GF_ITERATOR     ITERATOR
#define GF_IS_DONE_ITER IS_DONE_ITER
#define GF_NEXT_ITER    NEXT_ITER


// More or less all of this will get inlined away
void C_SET_LIMB4(Obj bag, UInt limbnumber, UInt4 value);
void C_SET_LIMB8(Obj bag, UInt limbnumber, UInt8 value);


#ifdef __cplusplus
} // extern "C"
#endif

#endif // GAP_COMPILED_H