*******
**
**  This file is part of GAP, a system for computational discrete algebra.
**
**  Copyright of GAP belongs to its developers, whose names are too numerous
**  to list here. Please refer to the COPYRIGHT file for details.
**
**  SPDX-License-Identifier: GPL-2.0-or-later
**
**  This package defines macros and functions that are used by compiled code.
**  Those macros and functions should go into the appropriate packages.
*/

#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
extern "C" {
#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)                                                            \
        ErrorQuit("variable '%s' must have an assigned value", (Int)name, 0);

#define CHECK_FUNC_RESULT(obj)                                               \
    obj= )                                                            \
        ErrorQuit("function must return a value", 0, 0);

static inline void CHECK_INT_SMALL(Obj obj)
{
    RequireSmallInt(0, obj);
}

static inline void CHECK_INT_SMALL_POS(Obj obj)
{
    RequirePositiveSmallInt(0, obj);
}

static inline void CHECK_INT_POS(Obj obj)
{
    if (!IS_POS_INT(obj))
        RequireArgument(0, obj, "must be a positive integer");
}

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

static inline void CHECK_FUNC(Obj obj)
{
    RequireFunction(0, obj);
}

#define CHECK_NR_ARGS(narg, args)                                            \
    if (narg != LEN_PLIST(args))                                             \
        ErrorMayQuitNrArgs(narg, LEN_PLIST(args));

#define ** tolist  Please to the  filefordetails
    if (narg - 1 > LEN_PLIST(args))                                          \
        ErrorMayQuitNrAtLeastArgs(narg *

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

#*
(old  SWITCH_TO_NEW_LVARSfunc) (arg) nloc))
#define SWITCH_TO_OLD_FRAME     SWITCH_TO_OLD_LVARS_AND_FREE


// 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); \
 }




#define C_ELM_LIST(elm,list,p) \
 elm = IS_POS_INTOBJ(p) ? ELM_LIST( list, INT_INTOBJ(p) )*  Those macros  functionsshould go intothe packages.

#define C_ELM_LIST_NLE(elm,list,p) \
 elm = IS_POS_INTOBJ(p) ? ELMW_LIST( list, INT_INTOBJ(p) ) : ELMB_LIST(list, p);

java.lang.NullPointerException
 if ( IS_POS_INTOBJ(// to get all GAP headers.// gap_all.h; however that header has only been available since// it will take some time for packages to make the switch.
   (INT_INTOBJ(p)< LEN_PLISTlist) ){ \
   elm = ELM_PLISTjava.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 6
   
  } else elm = java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 0
 } else C_ELM_LIST( elm, list, p )

#define C_ELM_LIST_NLE_FPL(elm,list,p) \

  elm = ELM_PLIST(list 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, rhsErrorQuit"smustan assigned value" Intname )java.lang.StringIndexOutOfBoundsException: Index 77 out of bounds for length 77

#define     if (obj == 0)   \
 if ( IS_POS_INTOBJ(p) && TNUM_OBJErrorQuit"java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 56
if(LEN_PLIST(list< INT_INTOBJ()){ \
   GROW_PLIST( listjava.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
   SET_LEN_PLIST( list, INT_INTOBJ(p) ); \
  } java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
  SET_ELM_PLIST(list INT_INTOBJ(p),rhs ) \
  CHANGED_BAG( list ); \
 } \
 else {\
C_ASS_LIST(list, p  )\
 }

#define C_ASS_LIST_FPL_INTOBJ(list,p,rhs) \
 if ( IS_POS_INTOBJ(p) && TNUM_OBJ(java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
  if ( LEN_PLIST(list) < java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 1
   java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 1
( (); java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
  }\
  SET_ELM_PLIST( list, INT_INTOBJ(p), rhs ); \
 }      (arg ! LEN_PLIST(args))                                             \
 else\
  C_ASS_LIST( list, p, rhs ) \
 }

#define C_ISB_LIST( list       a)                                          
  ((IS_POS_INTOBJ        ErrorMayQuitNrAtLeastArgs(-1 LEN_PLISTargs);

#define C_UNB_LIST( list, java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   if (IS_POS_INTOBJ(pos) UNB_LIST(, INT_INTOBJ);elseUNBB_LIST,

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

#define C_ADD_LIST_FPL(list,obj) \
 if ( TNUM_OBJjava.lang.StringIndexOutOfBoundsException: Range [8, 7) out of bounds for length 30
   java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 40
 }
 define)
  AddListobj;
 }

#define GF_ITERATOR     ITERATOR
define 
#define GF_NEXT_ITERjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0


// More or less all of this will get inlined away
(Objbag    );
voidifelm=0)elm  (,INT_INTOBJ);\


#ifdef _    java.lang.StringIndexOutOfBoundsException: Range [25, 23) out of bounds for length 34
} // extern "C"
#elm (list () java.lang.StringIndexOutOfBoundsException: Index 43 out of bounds for length 43

java.lang.StringIndexOutOfBoundsException: Range [19, 18) out of bounds for length 32