Logo Search packages:      
Sourcecode: gap version File versions  Download package

c_oper1.c

#ifndef AVOID_PRECOMPILED
/* C file produced by GAC */
#include "src/compiled.h"

/* global variables used in handlers */
static GVar G_REREADING;
static Obj  GC_REREADING;
static GVar G_SHALLOW__COPY__OBJ;
static Obj  GF_SHALLOW__COPY__OBJ;
static GVar G_PRINT__OBJ;
static Obj  GC_PRINT__OBJ;
static GVar G_IS__FUNCTION;
static Obj  GF_IS__FUNCTION;
static GVar G_CALL__FUNC__LIST;
static Obj  GF_CALL__FUNC__LIST;
static GVar G_NAME__FUNC;
static Obj  GF_NAME__FUNC;
static GVar G_NARG__FUNC;
static Obj  GF_NARG__FUNC;
static GVar G_IS__OPERATION;
static Obj  GF_IS__OPERATION;
static GVar G_AINV;
static Obj  GF_AINV;
static GVar G_IS__INT;
static Obj  GF_IS__INT;
static GVar G_IS__LIST;
static Obj  GF_IS__LIST;
static GVar G_ADD__LIST;
static Obj  GF_ADD__LIST;
static GVar G_IS__STRING__REP;
static Obj  GF_IS__STRING__REP;
static GVar G_TYPE__OBJ;
static Obj  GF_TYPE__OBJ;
static GVar G_IMMUTABLE__COPY__OBJ;
static Obj  GF_IMMUTABLE__COPY__OBJ;
static GVar G_IS__IDENTICAL__OBJ;
static Obj  GF_IS__IDENTICAL__OBJ;
static GVar G_IS__OBJECT;
static Obj  GC_IS__OBJECT;
static GVar G_TRY__NEXT__METHOD;
static Obj  GC_TRY__NEXT__METHOD;
static GVar G_SUB__FLAGS;
static Obj  GF_SUB__FLAGS;
static GVar G_IS__SUBSET__FLAGS;
static Obj  GF_IS__SUBSET__FLAGS;
static GVar G_TRUES__FLAGS;
static Obj  GF_TRUES__FLAGS;
static GVar G_SIZE__FLAGS;
static Obj  GF_SIZE__FLAGS;
static GVar G_LEN__FLAGS;
static Obj  GF_LEN__FLAGS;
static GVar G_ELM__FLAGS;
static Obj  GF_ELM__FLAGS;
static GVar G_FLAG1__FILTER;
static Obj  GF_FLAG1__FILTER;
static GVar G_FLAGS__FILTER;
static Obj  GF_FLAGS__FILTER;
static GVar G_METHODS__OPERATION;
static Obj  GF_METHODS__OPERATION;
static GVar G_CHANGED__METHODS__OPERATION;
static Obj  GF_CHANGED__METHODS__OPERATION;
static GVar G_DO__NOTHING__SETTER;
static Obj  GC_DO__NOTHING__SETTER;
static GVar G_RETURN__TRUE;
static Obj  GC_RETURN__TRUE;
static GVar G_RETURN__FALSE;
static Obj  GC_RETURN__FALSE;
static GVar G_LEN__LIST;
static Obj  GF_LEN__LIST;
static GVar G_APPEND__LIST__INTR;
static Obj  GF_APPEND__LIST__INTR;
static GVar G_CONV__STRING;
static Obj  GF_CONV__STRING;
static GVar G_Print;
static Obj  GC_Print;
static Obj  GF_Print;
static GVar G_Error;
static Obj  GF_Error;
static GVar G_Revision;
static Obj  GC_Revision;
static GVar G_ViewObj;
static Obj  GC_ViewObj;
static GVar G_RUN__IMMEDIATE__METHODS__CHECKS;
static Obj  GC_RUN__IMMEDIATE__METHODS__CHECKS;
static GVar G_RUN__IMMEDIATE__METHODS__HITS;
static Obj  GC_RUN__IMMEDIATE__METHODS__HITS;
static GVar G_BIND__GLOBAL;
static Obj  GF_BIND__GLOBAL;
static GVar G_IGNORE__IMMEDIATE__METHODS;
static Obj  GC_IGNORE__IMMEDIATE__METHODS;
static GVar G_IMM__FLAGS;
static Obj  GC_IMM__FLAGS;
static GVar G_IMMEDIATES;
static Obj  GC_IMMEDIATES;
static GVar G_IMMEDIATE__METHODS;
static Obj  GC_IMMEDIATE__METHODS;
static GVar G_TRACE__IMMEDIATE__METHODS;
static Obj  GC_TRACE__IMMEDIATE__METHODS;
static GVar G_CONSTRUCTORS;
static Obj  GC_CONSTRUCTORS;
static GVar G_RankFilter;
static Obj  GF_RankFilter;
static GVar G_CHECK__INSTALL__METHOD;
static Obj  GC_CHECK__INSTALL__METHOD;
static GVar G_INSTALL__METHOD;
static Obj  GF_INSTALL__METHOD;
static GVar G_DeclareGlobalFunction;
static Obj  GF_DeclareGlobalFunction;
static GVar G_EvalString;
static Obj  GF_EvalString;
static GVar G_WRAPPER__OPERATIONS;
static Obj  GC_WRAPPER__OPERATIONS;
static GVar G_INFO__INSTALL;
static Obj  GF_INFO__INSTALL;
static GVar G_OPERATIONS;
static Obj  GC_OPERATIONS;
static GVar G_WITH__HIDDEN__IMPS__FLAGS;
static Obj  GF_WITH__HIDDEN__IMPS__FLAGS;
static GVar G_NamesFilter;
static Obj  GF_NamesFilter;
static GVar G_Ordinal;
static Obj  GF_Ordinal;
static GVar G_INSTALL__METHOD__FLAGS;
static Obj  GF_INSTALL__METHOD__FLAGS;
static GVar G_LENGTH__SETTER__METHODS__2;
static Obj  GC_LENGTH__SETTER__METHODS__2;
static GVar G_InstallAttributeFunction;
static Obj  GF_InstallAttributeFunction;
static GVar G_CATS__AND__REPS;
static Obj  GC_CATS__AND__REPS;
static GVar G_FILTERS;
static Obj  GC_FILTERS;
static GVar G_NUMBERS__PROPERTY__GETTERS;
static Obj  GC_NUMBERS__PROPERTY__GETTERS;
static GVar G_InstallOtherMethod;
static Obj  GF_InstallOtherMethod;
static GVar G_Tester;
static Obj  GF_Tester;
static GVar G_IsPrimeInt;
static Obj  GF_IsPrimeInt;
static GVar G_DeclareOperation;
static Obj  GF_DeclareOperation;
static GVar G_VALUE__GLOBAL;
static Obj  GF_VALUE__GLOBAL;
static GVar G_DeclareAttribute;
static Obj  GF_DeclareAttribute;
static GVar G_InstallMethod;
static Obj  GF_InstallMethod;
static GVar G_CallFuncList;
static Obj  GF_CallFuncList;

/* record names used in handlers */
static RNam R_oper1__g;

/* information for the functions */
static Obj  NameFunc[17];
static Obj  NamsFunc[17];
static Int  NargFunc[17];
static Obj  DefaultName;

/* handler for function 2 */
static Obj  HdlrFunc2 (
 Obj  self,
 Obj  a_obj,
 Obj  a_flags )
{
 Obj l_flagspos = 0;
 Obj l_tried = 0;
 Obj l_type = 0;
 Obj l_j = 0;
 Obj l_imm = 0;
 Obj l_i = 0;
 Obj l_res = 0;
 Obj l_newflags = 0;
 Obj t_1 = 0;
 Obj t_2 = 0;
 Obj t_3 = 0;
 Obj t_4 = 0;
 Obj t_5 = 0;
 Obj t_6 = 0;
 Obj t_7 = 0;
 Obj t_8 = 0;
 Obj t_9 = 0;
 Obj t_10 = 0;
 Obj t_11 = 0;
 Obj t_12 = 0;
 Obj t_13 = 0;
 Obj t_14 = 0;
 Obj t_15 = 0;
 Obj t_16 = 0;
 Obj t_17 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* if IGNORE_IMMEDIATE_METHODS then */
 t_2 = GC_IGNORE__IMMEDIATE__METHODS;
 CHECK_BOUND( t_2, "IGNORE_IMMEDIATE_METHODS" )
 CHECK_BOOL( t_2 )
 t_1 = (Obj)(UInt)(t_2 != False);
 if ( t_1 ) {
  
  /* return; */
  RES_BRK_CURR_STAT();
  SWITCH_TO_OLD_FRAME(oldFrame);
  return 0;
  
 }
 /* fi */
 
 /* if IS_SUBSET_FLAGS( IMM_FLAGS, flags ) then */
 t_3 = GF_IS__SUBSET__FLAGS;
 t_4 = GC_IMM__FLAGS;
 CHECK_BOUND( t_4, "IMM_FLAGS" )
 t_2 = CALL_2ARGS( t_3, t_4, a_flags );
 CHECK_FUNC_RESULT( t_2 )
 CHECK_BOOL( t_2 )
 t_1 = (Obj)(UInt)(t_2 != False);
 if ( t_1 ) {
  
  /* return; */
  RES_BRK_CURR_STAT();
  SWITCH_TO_OLD_FRAME(oldFrame);
  return 0;
  
 }
 /* fi */
 
 /* flags := SUB_FLAGS( flags, IMM_FLAGS ); */
 t_2 = GF_SUB__FLAGS;
 t_3 = GC_IMM__FLAGS;
 CHECK_BOUND( t_3, "IMM_FLAGS" )
 t_1 = CALL_2ARGS( t_2, a_flags, t_3 );
 CHECK_FUNC_RESULT( t_1 )
 a_flags = t_1;
 
 /* flagspos := SHALLOW_COPY_OBJ( TRUES_FLAGS( flags ) ); */
 t_2 = GF_SHALLOW__COPY__OBJ;
 t_4 = GF_TRUES__FLAGS;
 t_3 = CALL_1ARGS( t_4, a_flags );
 CHECK_FUNC_RESULT( t_3 )
 t_1 = CALL_1ARGS( t_2, t_3 );
 CHECK_FUNC_RESULT( t_1 )
 l_flagspos = t_1;
 
 /* tried := [  ]; */
 t_1 = NEW_PLIST( T_PLIST, 0 );
 SET_LEN_PLIST( t_1, 0 );
 l_tried = t_1;
 
 /* type := TYPE_OBJ( obj ); */
 t_2 = GF_TYPE__OBJ;
 t_1 = CALL_1ARGS( t_2, a_obj );
 CHECK_FUNC_RESULT( t_1 )
 l_type = t_1;
 
 /* flags := type![2]; */
 C_ELM_POSOBJ_NLE( t_1, l_type, 2 );
 a_flags = t_1;
 
 /* for j in flagspos do */
 t_4 = l_flagspos;
 if ( IS_SMALL_LIST(t_4) ) {
  t_3 = (Obj)(UInt)1;
  t_1 = INTOBJ_INT(1);
 }
 else {
  t_3 = (Obj)(UInt)0;
  t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
 }
 while ( 1 ) {
  if ( t_3 ) {
   if ( LEN_LIST(t_4) < INT_INTOBJ(t_1) )  break;
   t_2 = ELMV0_LIST( t_4, INT_INTOBJ(t_1) );
   t_1 = (Obj)(((UInt)t_1)+4);
   if ( t_2 == 0 )  continue;
  }
  else {
   if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
   t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
  }
  l_j = t_2;
  
  /* if IsBound( IMMEDIATES[j]) then */
  t_7 = GC_IMMEDIATES;
  CHECK_BOUND( t_7, "IMMEDIATES" )
  CHECK_INT_POS( l_j )
  t_6 = C_ISB_LIST( t_7, l_j );
  t_5 = (Obj)(UInt)(t_6 != False);
  if ( t_5 ) {
   
   /* imm := IMMEDIATES[j]; */
   t_6 = GC_IMMEDIATES;
   CHECK_BOUND( t_6, "IMMEDIATES" )
   C_ELM_LIST_FPL( t_5, t_6, l_j )
   l_imm = t_5;
   
   /* for i in [ 0, 7 .. LEN_LIST( imm ) - 7 ] do */
   t_11 = GF_LEN__LIST;
   t_10 = CALL_1ARGS( t_11, l_imm );
   CHECK_FUNC_RESULT( t_10 )
   C_DIFF( t_9, t_10, INTOBJ_INT(7) )
   t_8 = Range3Check( INTOBJ_INT(0), INTOBJ_INT(7), t_9 );
   if ( IS_SMALL_LIST(t_8) ) {
    t_7 = (Obj)(UInt)1;
    t_5 = INTOBJ_INT(1);
   }
   else {
    t_7 = (Obj)(UInt)0;
    t_5 = CALL_1ARGS( GF_ITERATOR, t_8 );
   }
   while ( 1 ) {
    if ( t_7 ) {
     if ( LEN_LIST(t_8) < INT_INTOBJ(t_5) )  break;
     t_6 = ELMV0_LIST( t_8, INT_INTOBJ(t_5) );
     t_5 = (Obj)(((UInt)t_5)+4);
     if ( t_6 == 0 )  continue;
    }
    else {
     if ( CALL_1ARGS( GF_IS_DONE_ITER, t_5 ) != False )  break;
     t_6 = CALL_1ARGS( GF_NEXT_ITER, t_5 );
    }
    l_i = t_6;
    
    /* if IS_SUBSET_FLAGS( flags, imm[i + 4] ) and not IS_SUBSET_FLAGS( flags, imm[i + 3] ) and not imm[i + 6] in tried then */
    t_13 = GF_IS__SUBSET__FLAGS;
    C_SUM( t_15, l_i, INTOBJ_INT(4) )
    CHECK_INT_POS( t_15 )
    C_ELM_LIST_FPL( t_14, l_imm, t_15 )
    t_12 = CALL_2ARGS( t_13, a_flags, t_14 );
    CHECK_FUNC_RESULT( t_12 )
    CHECK_BOOL( t_12 )
    t_11 = (Obj)(UInt)(t_12 != False);
    t_10 = t_11;
    if ( t_10 ) {
     t_15 = GF_IS__SUBSET__FLAGS;
     C_SUM( t_17, l_i, INTOBJ_INT(3) )
     CHECK_INT_POS( t_17 )
     C_ELM_LIST_FPL( t_16, l_imm, t_17 )
     t_14 = CALL_2ARGS( t_15, a_flags, t_16 );
     CHECK_FUNC_RESULT( t_14 )
     CHECK_BOOL( t_14 )
     t_13 = (Obj)(UInt)(t_14 != False);
     t_12 = (Obj)(UInt)( ! ((Int)t_13) );
     t_10 = t_12;
    }
    t_9 = t_10;
    if ( t_9 ) {
     C_SUM( t_14, l_i, INTOBJ_INT(6) )
     CHECK_INT_POS( t_14 )
     C_ELM_LIST_FPL( t_13, l_imm, t_14 )
     t_12 = (Obj)(UInt)(IN( t_13, l_tried ));
     t_11 = (Obj)(UInt)( ! ((Int)t_12) );
     t_9 = t_11;
    }
    if ( t_9 ) {
     
     /* res := IMMEDIATE_METHODS[imm[i + 6]]( obj ); */
     t_11 = GC_IMMEDIATE__METHODS;
     CHECK_BOUND( t_11, "IMMEDIATE_METHODS" )
     C_SUM( t_13, l_i, INTOBJ_INT(6) )
     CHECK_INT_POS( t_13 )
     C_ELM_LIST_FPL( t_12, l_imm, t_13 )
     CHECK_INT_POS( t_12 )
     C_ELM_LIST_FPL( t_10, t_11, t_12 )
     CHECK_FUNC( t_10 )
     t_9 = CALL_1ARGS( t_10, a_obj );
     CHECK_FUNC_RESULT( t_9 )
     l_res = t_9;
     
     /* ADD_LIST( tried, imm[i + 6] ); */
     t_9 = GF_ADD__LIST;
     C_SUM( t_11, l_i, INTOBJ_INT(6) )
     CHECK_INT_POS( t_11 )
     C_ELM_LIST_FPL( t_10, l_imm, t_11 )
     CALL_2ARGS( t_9, l_tried, t_10 );
     
     /* RUN_IMMEDIATE_METHODS_CHECKS := RUN_IMMEDIATE_METHODS_CHECKS + 1; */
     t_10 = GC_RUN__IMMEDIATE__METHODS__CHECKS;
     CHECK_BOUND( t_10, "RUN_IMMEDIATE_METHODS_CHECKS" )
     C_SUM( t_9, t_10, INTOBJ_INT(1) )
     AssGVar( G_RUN__IMMEDIATE__METHODS__CHECKS, t_9 );
     
     /* if TRACE_IMMEDIATE_METHODS then */
     t_10 = GC_TRACE__IMMEDIATE__METHODS;
     CHECK_BOUND( t_10, "TRACE_IMMEDIATE_METHODS" )
     CHECK_BOOL( t_10 )
     t_9 = (Obj)(UInt)(t_10 != False);
     if ( t_9 ) {
      
      /* Print( "#I  immediate: ", imm[i + 7], "\n" ); */
      t_9 = GF_Print;
      C_NEW_STRING( t_10, 15, "#I  immediate: " )
      C_SUM( t_12, l_i, INTOBJ_INT(7) )
      CHECK_INT_POS( t_12 )
      C_ELM_LIST_FPL( t_11, l_imm, t_12 )
      C_NEW_STRING( t_12, 1, "\n" )
      CALL_3ARGS( t_9, t_10, t_11, t_12 );
      
     }
     /* fi */
     
     /* if res <> TRY_NEXT_METHOD then */
     t_10 = GC_TRY__NEXT__METHOD;
     CHECK_BOUND( t_10, "TRY_NEXT_METHOD" )
     t_9 = (Obj)(UInt)( ! EQ( l_res, t_10 ));
     if ( t_9 ) {
      
      /* IGNORE_IMMEDIATE_METHODS := true; */
      t_9 = True;
      AssGVar( G_IGNORE__IMMEDIATE__METHODS, t_9 );
      
      /* imm[i + 2]( obj, res ); */
      C_SUM( t_10, l_i, INTOBJ_INT(2) )
      CHECK_INT_POS( t_10 )
      C_ELM_LIST_FPL( t_9, l_imm, t_10 )
      CHECK_FUNC( t_9 )
      CALL_2ARGS( t_9, a_obj, l_res );
      
      /* IGNORE_IMMEDIATE_METHODS := false; */
      t_9 = False;
      AssGVar( G_IGNORE__IMMEDIATE__METHODS, t_9 );
      
      /* RUN_IMMEDIATE_METHODS_HITS := RUN_IMMEDIATE_METHODS_HITS + 1; */
      t_10 = GC_RUN__IMMEDIATE__METHODS__HITS;
      CHECK_BOUND( t_10, "RUN_IMMEDIATE_METHODS_HITS" )
      C_SUM( t_9, t_10, INTOBJ_INT(1) )
      AssGVar( G_RUN__IMMEDIATE__METHODS__HITS, t_9 );
      
      /* if not IS_IDENTICAL_OBJ( TYPE_OBJ( obj ), type ) then */
      t_12 = GF_IS__IDENTICAL__OBJ;
      t_14 = GF_TYPE__OBJ;
      t_13 = CALL_1ARGS( t_14, a_obj );
      CHECK_FUNC_RESULT( t_13 )
      t_11 = CALL_2ARGS( t_12, t_13, l_type );
      CHECK_FUNC_RESULT( t_11 )
      CHECK_BOOL( t_11 )
      t_10 = (Obj)(UInt)(t_11 != False);
      t_9 = (Obj)(UInt)( ! ((Int)t_10) );
      if ( t_9 ) {
       
       /* type := TYPE_OBJ( obj ); */
       t_10 = GF_TYPE__OBJ;
       t_9 = CALL_1ARGS( t_10, a_obj );
       CHECK_FUNC_RESULT( t_9 )
       l_type = t_9;
       
       /* newflags := SUB_FLAGS( type![2], IMM_FLAGS ); */
       t_10 = GF_SUB__FLAGS;
       C_ELM_POSOBJ_NLE( t_11, l_type, 2 );
       t_12 = GC_IMM__FLAGS;
       CHECK_BOUND( t_12, "IMM_FLAGS" )
       t_9 = CALL_2ARGS( t_10, t_11, t_12 );
       CHECK_FUNC_RESULT( t_9 )
       l_newflags = t_9;
       
       /* newflags := SUB_FLAGS( newflags, flags ); */
       t_10 = GF_SUB__FLAGS;
       t_9 = CALL_2ARGS( t_10, l_newflags, a_flags );
       CHECK_FUNC_RESULT( t_9 )
       l_newflags = t_9;
       
       /* APPEND_LIST_INTR( flagspos, TRUES_FLAGS( newflags ) ); */
       t_9 = GF_APPEND__LIST__INTR;
       t_11 = GF_TRUES__FLAGS;
       t_10 = CALL_1ARGS( t_11, l_newflags );
       CHECK_FUNC_RESULT( t_10 )
       CALL_2ARGS( t_9, l_flagspos, t_10 );
       
       /* flags := type![2]; */
       C_ELM_POSOBJ_NLE( t_9, l_type, 2 );
       a_flags = t_9;
       
      }
      /* fi */
      
     }
     /* fi */
     
    }
    /* fi */
    
   }
   /* od */
   
  }
  /* fi */
  
 }
 /* od */
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* handler for function 3 */
static Obj  HdlrFunc3 (
 Obj  self,
 Obj  a_opr,
 Obj  a_info,
 Obj  a_rel,
 Obj  a_flags,
 Obj  a_rank,
 Obj  a_method )
{
 Obj l_methods = 0;
 Obj l_narg = 0;
 Obj l_i = 0;
 Obj l_k = 0;
 Obj l_tmp = 0;
 Obj l_replace = 0;
 Obj l_match = 0;
 Obj l_j = 0;
 Obj t_1 = 0;
 Obj t_2 = 0;
 Obj t_3 = 0;
 Obj t_4 = 0;
 Obj t_5 = 0;
 Obj t_6 = 0;
 Obj t_7 = 0;
 Obj t_8 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* if opr in CONSTRUCTORS then */
 t_2 = GC_CONSTRUCTORS;
 CHECK_BOUND( t_2, "CONSTRUCTORS" )
 t_1 = (Obj)(UInt)(IN( a_opr, t_2 ));
 if ( t_1 ) {
  
  /* if 0 < LEN_LIST( flags ) then */
  t_3 = GF_LEN__LIST;
  t_2 = CALL_1ARGS( t_3, a_flags );
  CHECK_FUNC_RESULT( t_2 )
  t_1 = (Obj)(UInt)(LT( INTOBJ_INT(0), t_2 ));
  if ( t_1 ) {
   
   /* rank := rank - RankFilter( flags[1] ); */
   t_3 = GF_RankFilter;
   C_ELM_LIST_FPL( t_4, a_flags, INTOBJ_INT(1) )
   t_2 = CALL_1ARGS( t_3, t_4 );
   CHECK_FUNC_RESULT( t_2 )
   C_DIFF( t_1, a_rank, t_2 )
   a_rank = t_1;
   
  }
  /* fi */
  
 }
 
 /* else */
 else {
  
  /* for i in flags do */
  t_4 = a_flags;
  if ( IS_SMALL_LIST(t_4) ) {
   t_3 = (Obj)(UInt)1;
   t_1 = INTOBJ_INT(1);
  }
  else {
   t_3 = (Obj)(UInt)0;
   t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
  }
  while ( 1 ) {
   if ( t_3 ) {
    if ( LEN_LIST(t_4) < INT_INTOBJ(t_1) )  break;
    t_2 = ELMV0_LIST( t_4, INT_INTOBJ(t_1) );
    t_1 = (Obj)(((UInt)t_1)+4);
    if ( t_2 == 0 )  continue;
   }
   else {
    if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
    t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
   }
   l_i = t_2;
   
   /* rank := rank + RankFilter( i ); */
   t_7 = GF_RankFilter;
   t_6 = CALL_1ARGS( t_7, l_i );
   CHECK_FUNC_RESULT( t_6 )
   C_SUM( t_5, a_rank, t_6 )
   a_rank = t_5;
   
  }
  /* od */
  
 }
 /* fi */
 
 /* narg := LEN_LIST( flags ); */
 t_2 = GF_LEN__LIST;
 t_1 = CALL_1ARGS( t_2, a_flags );
 CHECK_FUNC_RESULT( t_1 )
 l_narg = t_1;
 
 /* methods := METHODS_OPERATION( opr, narg ); */
 t_2 = GF_METHODS__OPERATION;
 t_1 = CALL_2ARGS( t_2, a_opr, l_narg );
 CHECK_FUNC_RESULT( t_1 )
 l_methods = t_1;
 
 /* if info = false then */
 t_2 = False;
 t_1 = (Obj)(UInt)(EQ( a_info, t_2 ));
 if ( t_1 ) {
  
  /* info := NAME_FUNC( opr ); */
  t_2 = GF_NAME__FUNC;
  t_1 = CALL_1ARGS( t_2, a_opr );
  CHECK_FUNC_RESULT( t_1 )
  a_info = t_1;
  
 }
 
 /* else */
 else {
  
  /* k := SHALLOW_COPY_OBJ( NAME_FUNC( opr ) ); */
  t_2 = GF_SHALLOW__COPY__OBJ;
  t_4 = GF_NAME__FUNC;
  t_3 = CALL_1ARGS( t_4, a_opr );
  CHECK_FUNC_RESULT( t_3 )
  t_1 = CALL_1ARGS( t_2, t_3 );
  CHECK_FUNC_RESULT( t_1 )
  l_k = t_1;
  
  /* APPEND_LIST_INTR( k, ": " ); */
  t_1 = GF_APPEND__LIST__INTR;
  C_NEW_STRING( t_2, 2, ": " )
  CALL_2ARGS( t_1, l_k, t_2 );
  
  /* APPEND_LIST_INTR( k, info ); */
  t_1 = GF_APPEND__LIST__INTR;
  CALL_2ARGS( t_1, l_k, a_info );
  
  /* info := k; */
  a_info = l_k;
  
  /* CONV_STRING( info ); */
  t_1 = GF_CONV__STRING;
  CALL_1ARGS( t_1, a_info );
  
 }
 /* fi */
 
 /* i := 0; */
 l_i = INTOBJ_INT(0);
 
 /* while i < LEN_LIST( methods ) and rank < methods[i + (narg + 3)] od */
 while ( 1 ) {
  t_4 = GF_LEN__LIST;
  t_3 = CALL_1ARGS( t_4, l_methods );
  CHECK_FUNC_RESULT( t_3 )
  t_2 = (Obj)(UInt)(LT( l_i, t_3 ));
  t_1 = t_2;
  if ( t_1 ) {
   C_SUM( t_6, l_narg, INTOBJ_INT(3) )
   C_SUM( t_5, l_i, t_6 )
   CHECK_INT_POS( t_5 )
   C_ELM_LIST_FPL( t_4, l_methods, t_5 )
   t_3 = (Obj)(UInt)(LT( a_rank, t_4 ));
   t_1 = t_3;
  }
  if ( ! t_1 ) break;
  
  /* i := i + (narg + 4); */
  C_SUM( t_2, l_narg, INTOBJ_INT(4) )
  C_SUM( t_1, l_i, t_2 )
  l_i = t_1;
  
 }
 /* od */
 
 /* replace := false; */
 t_1 = False;
 l_replace = t_1;
 
 /* if REREADING then */
 t_2 = GC_REREADING;
 CHECK_BOUND( t_2, "REREADING" )
 CHECK_BOOL( t_2 )
 t_1 = (Obj)(UInt)(t_2 != False);
 if ( t_1 ) {
  
  /* k := i; */
  l_k = l_i;
  
  /* while k < LEN_LIST( methods ) and rank = methods[k + narg + 3] od */
  while ( 1 ) {
   t_4 = GF_LEN__LIST;
   t_3 = CALL_1ARGS( t_4, l_methods );
   CHECK_FUNC_RESULT( t_3 )
   t_2 = (Obj)(UInt)(LT( l_k, t_3 ));
   t_1 = t_2;
   if ( t_1 ) {
    C_SUM( t_6, l_k, l_narg )
    C_SUM( t_5, t_6, INTOBJ_INT(3) )
    CHECK_INT_POS( t_5 )
    C_ELM_LIST_FPL( t_4, l_methods, t_5 )
    t_3 = (Obj)(UInt)(EQ( a_rank, t_4 ));
    t_1 = t_3;
   }
   if ( ! t_1 ) break;
   
   /* if info = methods[k + narg + 4] then */
   C_SUM( t_4, l_k, l_narg )
   C_SUM( t_3, t_4, INTOBJ_INT(4) )
   CHECK_INT_POS( t_3 )
   C_ELM_LIST_FPL( t_2, l_methods, t_3 )
   t_1 = (Obj)(UInt)(EQ( a_info, t_2 ));
   if ( t_1 ) {
    
    /* match := false; */
    t_1 = False;
    l_match = t_1;
    
    /* for j in [ 1 .. narg ] do */
    CHECK_INT_SMALL( l_narg )
    t_2 = l_narg;
    for ( t_1 = INTOBJ_INT(1);
          ((Int)t_1) <= ((Int)t_2);
          t_1 = (Obj)(((UInt)t_1)+4) ) {
     l_j = t_1;
     
     /* match := match and methods[k + j + 1] = flags[j]; */
     if ( l_match == False ) {
      t_3 = l_match;
     }
     else if ( l_match == True ) {
      C_SUM( t_7, l_k, l_j )
      C_SUM( t_6, t_7, INTOBJ_INT(1) )
      CHECK_INT_POS( t_6 )
      C_ELM_LIST_FPL( t_5, l_methods, t_6 )
      C_ELM_LIST_FPL( t_6, a_flags, l_j )
      t_4 = (EQ( t_5, t_6 ) ? True : False);
      t_3 = t_4;
     }
     else {
      CHECK_FUNC( l_match )
      C_SUM( t_8, l_k, l_j )
      C_SUM( t_7, t_8, INTOBJ_INT(1) )
      CHECK_INT_POS( t_7 )
      C_ELM_LIST_FPL( t_6, l_methods, t_7 )
      C_ELM_LIST_FPL( t_7, a_flags, l_j )
      t_5 = (EQ( t_6, t_7 ) ? True : False);
      CHECK_FUNC( t_5 )
      t_3 = NewAndFilter( l_match, t_5 );
     }
     l_match = t_3;
     
    }
    /* od */
    
    /* if match then */
    CHECK_BOOL( l_match )
    t_1 = (Obj)(UInt)(l_match != False);
    if ( t_1 ) {
     
     /* replace := true; */
     t_1 = True;
     l_replace = t_1;
     
     /* i := k; */
     l_i = l_k;
     
     /* break; */
     break;
     
    }
    /* fi */
    
   }
   /* fi */
   
   /* k := k + narg + 4; */
   C_SUM( t_2, l_k, l_narg )
   C_SUM( t_1, t_2, INTOBJ_INT(4) )
   l_k = t_1;
   
  }
  /* od */
  
 }
 /* fi */
 
 /* if not REREADING or not replace then */
 t_4 = GC_REREADING;
 CHECK_BOUND( t_4, "REREADING" )
 CHECK_BOOL( t_4 )
 t_3 = (Obj)(UInt)(t_4 != False);
 t_2 = (Obj)(UInt)( ! ((Int)t_3) );
 t_1 = t_2;
 if ( ! t_1 ) {
  t_4 = (Obj)(UInt)(l_replace != False);
  t_3 = (Obj)(UInt)( ! ((Int)t_4) );
  t_1 = t_3;
 }
 if ( t_1 ) {
  
  /* methods{[ narg + 4 + i + 1 .. narg + 4 + LEN_LIST( methods ) ]} := methods{[ i + 1 .. LEN_LIST( methods ) ]}; */
  C_SUM( t_4, l_narg, INTOBJ_INT(4) )
  C_SUM( t_3, t_4, l_i )
  C_SUM( t_2, t_3, INTOBJ_INT(1) )
  C_SUM( t_4, l_narg, INTOBJ_INT(4) )
  t_6 = GF_LEN__LIST;
  t_5 = CALL_1ARGS( t_6, l_methods );
  CHECK_FUNC_RESULT( t_5 )
  C_SUM( t_3, t_4, t_5 )
  t_1 = Range2Check( t_2, t_3 );
  C_SUM( t_4, l_i, INTOBJ_INT(1) )
  t_6 = GF_LEN__LIST;
  t_5 = CALL_1ARGS( t_6, l_methods );
  CHECK_FUNC_RESULT( t_5 )
  t_3 = Range2Check( t_4, t_5 );
  t_2 = ElmsListCheck( l_methods, t_3 );
  AsssListCheck( l_methods, t_1, t_2 );
  
 }
 /* fi */
 
 /* if rel = true then */
 t_2 = True;
 t_1 = (Obj)(UInt)(EQ( a_rel, t_2 ));
 if ( t_1 ) {
  
  /* methods[i + 1] := RETURN_TRUE; */
  C_SUM( t_1, l_i, INTOBJ_INT(1) )
  CHECK_INT_POS( t_1 )
  t_2 = GC_RETURN__TRUE;
  CHECK_BOUND( t_2, "RETURN_TRUE" )
  C_ASS_LIST_FPL( l_methods, t_1, t_2 )
  
 }
 
 /* elif rel = false then */
 else {
  t_2 = False;
  t_1 = (Obj)(UInt)(EQ( a_rel, t_2 ));
  if ( t_1 ) {
   
   /* methods[i + 1] := RETURN_FALSE; */
   C_SUM( t_1, l_i, INTOBJ_INT(1) )
   CHECK_INT_POS( t_1 )
   t_2 = GC_RETURN__FALSE;
   CHECK_BOUND( t_2, "RETURN_FALSE" )
   C_ASS_LIST_FPL( l_methods, t_1, t_2 )
   
  }
  
  /* elif IS_FUNCTION( rel ) then */
  else {
   t_3 = GF_IS__FUNCTION;
   t_2 = CALL_1ARGS( t_3, a_rel );
   CHECK_FUNC_RESULT( t_2 )
   CHECK_BOOL( t_2 )
   t_1 = (Obj)(UInt)(t_2 != False);
   if ( t_1 ) {
    
    /* if CHECK_INSTALL_METHOD then */
    t_2 = GC_CHECK__INSTALL__METHOD;
    CHECK_BOUND( t_2, "CHECK_INSTALL_METHOD" )
    CHECK_BOOL( t_2 )
    t_1 = (Obj)(UInt)(t_2 != False);
    if ( t_1 ) {
     
     /* tmp := NARG_FUNC( rel ); */
     t_2 = GF_NARG__FUNC;
     t_1 = CALL_1ARGS( t_2, a_rel );
     CHECK_FUNC_RESULT( t_1 )
     l_tmp = t_1;
     
     /* if tmp <> AINV( 1 ) and tmp <> narg then */
     t_4 = GF_AINV;
     t_3 = CALL_1ARGS( t_4, INTOBJ_INT(1) );
     CHECK_FUNC_RESULT( t_3 )
     t_2 = (Obj)(UInt)( ! EQ( l_tmp, t_3 ));
     t_1 = t_2;
     if ( t_1 ) {
      t_3 = (Obj)(UInt)( ! EQ( l_tmp, l_narg ));
      t_1 = t_3;
     }
     if ( t_1 ) {
      
      /* Error( NAME_FUNC( opr ), ": <famrel> must accept ", narg, " arguments" ); */
      t_1 = GF_Error;
      t_3 = GF_NAME__FUNC;
      t_2 = CALL_1ARGS( t_3, a_opr );
      CHECK_FUNC_RESULT( t_2 )
      C_NEW_STRING( t_3, 23, ": <famrel> must accept " )
      C_NEW_STRING( t_4, 10, " arguments" )
      CALL_4ARGS( t_1, t_2, t_3, l_narg, t_4 );
      
     }
     /* fi */
     
    }
    /* fi */
    
    /* methods[i + 1] := rel; */
    C_SUM( t_1, l_i, INTOBJ_INT(1) )
    CHECK_INT_POS( t_1 )
    C_ASS_LIST_FPL( l_methods, t_1, a_rel )
    
   }
   
   /* else */
   else {
    
    /* Error( NAME_FUNC( opr ), ": <famrel> must be a function, `true', or `false'" ); */
    t_1 = GF_Error;
    t_3 = GF_NAME__FUNC;
    t_2 = CALL_1ARGS( t_3, a_opr );
    CHECK_FUNC_RESULT( t_2 )
    C_NEW_STRING( t_3, 49, ": <famrel> must be a function, `true', or `false'" )
    CALL_2ARGS( t_1, t_2, t_3 );
    
   }
  }
 }
 /* fi */
 
 /* for k in [ 1 .. narg ] do */
 CHECK_INT_SMALL( l_narg )
 t_2 = l_narg;
 for ( t_1 = INTOBJ_INT(1);
       ((Int)t_1) <= ((Int)t_2);
       t_1 = (Obj)(((UInt)t_1)+4) ) {
  l_k = t_1;
  
  /* methods[i + k + 1] := flags[k]; */
  C_SUM( t_4, l_i, l_k )
  C_SUM( t_3, t_4, INTOBJ_INT(1) )
  CHECK_INT_POS( t_3 )
  C_ELM_LIST_FPL( t_4, a_flags, l_k )
  C_ASS_LIST_FPL( l_methods, t_3, t_4 )
  
 }
 /* od */
 
 /* if method = true then */
 t_2 = True;
 t_1 = (Obj)(UInt)(EQ( a_method, t_2 ));
 if ( t_1 ) {
  
  /* methods[i + (narg + 2)] := RETURN_TRUE; */
  C_SUM_INTOBJS( t_2, l_narg, INTOBJ_INT(2) )
  C_SUM( t_1, l_i, t_2 )
  CHECK_INT_POS( t_1 )
  t_2 = GC_RETURN__TRUE;
  CHECK_BOUND( t_2, "RETURN_TRUE" )
  C_ASS_LIST_FPL( l_methods, t_1, t_2 )
  
 }
 
 /* elif method = false then */
 else {
  t_2 = False;
  t_1 = (Obj)(UInt)(EQ( a_method, t_2 ));
  if ( t_1 ) {
   
   /* methods[i + (narg + 2)] := RETURN_FALSE; */
   C_SUM_INTOBJS( t_2, l_narg, INTOBJ_INT(2) )
   C_SUM( t_1, l_i, t_2 )
   CHECK_INT_POS( t_1 )
   t_2 = GC_RETURN__FALSE;
   CHECK_BOUND( t_2, "RETURN_FALSE" )
   C_ASS_LIST_FPL( l_methods, t_1, t_2 )
   
  }
  
  /* elif IS_FUNCTION( method ) then */
  else {
   t_3 = GF_IS__FUNCTION;
   t_2 = CALL_1ARGS( t_3, a_method );
   CHECK_FUNC_RESULT( t_2 )
   CHECK_BOOL( t_2 )
   t_1 = (Obj)(UInt)(t_2 != False);
   if ( t_1 ) {
    
    /* if CHECK_INSTALL_METHOD and not IS_OPERATION( method ) then */
    t_3 = GC_CHECK__INSTALL__METHOD;
    CHECK_BOUND( t_3, "CHECK_INSTALL_METHOD" )
    CHECK_BOOL( t_3 )
    t_2 = (Obj)(UInt)(t_3 != False);
    t_1 = t_2;
    if ( t_1 ) {
     t_6 = GF_IS__OPERATION;
     t_5 = CALL_1ARGS( t_6, a_method );
     CHECK_FUNC_RESULT( t_5 )
     CHECK_BOOL( t_5 )
     t_4 = (Obj)(UInt)(t_5 != False);
     t_3 = (Obj)(UInt)( ! ((Int)t_4) );
     t_1 = t_3;
    }
    if ( t_1 ) {
     
     /* tmp := NARG_FUNC( method ); */
     t_2 = GF_NARG__FUNC;
     t_1 = CALL_1ARGS( t_2, a_method );
     CHECK_FUNC_RESULT( t_1 )
     l_tmp = t_1;
     
     /* if tmp <> AINV( 1 ) and tmp <> narg then */
     t_4 = GF_AINV;
     t_3 = CALL_1ARGS( t_4, INTOBJ_INT(1) );
     CHECK_FUNC_RESULT( t_3 )
     t_2 = (Obj)(UInt)( ! EQ( l_tmp, t_3 ));
     t_1 = t_2;
     if ( t_1 ) {
      t_3 = (Obj)(UInt)( ! EQ( l_tmp, l_narg ));
      t_1 = t_3;
     }
     if ( t_1 ) {
      
      /* Error( NAME_FUNC( opr ), ": <method> must accept ", narg, " arguments" ); */
      t_1 = GF_Error;
      t_3 = GF_NAME__FUNC;
      t_2 = CALL_1ARGS( t_3, a_opr );
      CHECK_FUNC_RESULT( t_2 )
      C_NEW_STRING( t_3, 23, ": <method> must accept " )
      C_NEW_STRING( t_4, 10, " arguments" )
      CALL_4ARGS( t_1, t_2, t_3, l_narg, t_4 );
      
     }
     /* fi */
     
    }
    /* fi */
    
    /* methods[i + (narg + 2)] := method; */
    C_SUM_INTOBJS( t_2, l_narg, INTOBJ_INT(2) )
    C_SUM( t_1, l_i, t_2 )
    CHECK_INT_POS( t_1 )
    C_ASS_LIST_FPL( l_methods, t_1, a_method )
    
   }
   
   /* else */
   else {
    
    /* Error( NAME_FUNC( opr ), ": <method> must be a function, `true', or `false'" ); */
    t_1 = GF_Error;
    t_3 = GF_NAME__FUNC;
    t_2 = CALL_1ARGS( t_3, a_opr );
    CHECK_FUNC_RESULT( t_2 )
    C_NEW_STRING( t_3, 49, ": <method> must be a function, `true', or `false'" )
    CALL_2ARGS( t_1, t_2, t_3 );
    
   }
  }
 }
 /* fi */
 
 /* methods[i + (narg + 3)] := rank; */
 C_SUM_INTOBJS( t_2, l_narg, INTOBJ_INT(3) )
 C_SUM( t_1, l_i, t_2 )
 CHECK_INT_POS( t_1 )
 C_ASS_LIST_FPL( l_methods, t_1, a_rank )
 
 /* methods[i + (narg + 4)] := IMMUTABLE_COPY_OBJ( info ); */
 C_SUM_INTOBJS( t_2, l_narg, INTOBJ_INT(4) )
 C_SUM( t_1, l_i, t_2 )
 CHECK_INT_POS( t_1 )
 t_3 = GF_IMMUTABLE__COPY__OBJ;
 t_2 = CALL_1ARGS( t_3, a_info );
 CHECK_FUNC_RESULT( t_2 )
 C_ASS_LIST_FPL( l_methods, t_1, t_2 )
 
 /* CHANGED_METHODS_OPERATION( opr, narg ); */
 t_1 = GF_CHANGED__METHODS__OPERATION;
 CALL_2ARGS( t_1, a_opr, l_narg );
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* handler for function 4 */
static Obj  HdlrFunc4 (
 Obj  self,
 Obj  a_arg )
{
 Obj t_1 = 0;
 Obj t_2 = 0;
 Obj t_3 = 0;
 Obj t_4 = 0;
 Obj t_5 = 0;
 Obj t_6 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* CALL_FUNC_LIST( Print, arg{[ 2 .. LEN_LIST( arg ) ]} ); */
 t_1 = GF_CALL__FUNC__LIST;
 t_2 = GC_Print;
 CHECK_BOUND( t_2, "Print" )
 t_6 = GF_LEN__LIST;
 t_5 = CALL_1ARGS( t_6, a_arg );
 CHECK_FUNC_RESULT( t_5 )
 t_4 = Range2Check( INTOBJ_INT(2), t_5 );
 t_3 = ElmsListCheck( a_arg, t_4 );
 CALL_2ARGS( t_1, t_2, t_3 );
 
 /* Print( "\n" ); */
 t_1 = GF_Print;
 C_NEW_STRING( t_2, 1, "\n" )
 CALL_1ARGS( t_1, t_2 );
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* handler for function 5 */
static Obj  HdlrFunc5 (
 Obj  self,
 Obj  a_arg )
{
 Obj t_1 = 0;
 Obj t_2 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* INSTALL_METHOD( arg, true ); */
 t_1 = GF_INSTALL__METHOD;
 t_2 = True;
 CALL_2ARGS( t_1, a_arg, t_2 );
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* handler for function 6 */
static Obj  HdlrFunc6 (
 Obj  self,
 Obj  a_arg )
{
 Obj t_1 = 0;
 Obj t_2 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* INSTALL_METHOD( arg, false ); */
 t_1 = GF_INSTALL__METHOD;
 t_2 = False;
 CALL_2ARGS( t_1, a_arg, t_2 );
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* handler for function 7 */
static Obj  HdlrFunc7 (
 Obj  self,
 Obj  a_arglist,
 Obj  a_check )
{
 Obj l_len = 0;
 Obj l_opr = 0;
 Obj l_info = 0;
 Obj l_pos = 0;
 Obj l_rel = 0;
 Obj l_filters = 0;
 Obj l_info1 = 0;
 Obj l_isstr = 0;
 Obj l_flags = 0;
 Obj l_i = 0;
 Obj l_rank = 0;
 Obj l_method = 0;
 Obj l_req = 0;
 Obj l_reqs = 0;
 Obj l_match = 0;
 Obj l_j = 0;
 Obj l_k = 0;
 Obj l_imp = 0;
 Obj l_notmatch = 0;
 Obj t_1 = 0;
 Obj t_2 = 0;
 Obj t_3 = 0;
 Obj t_4 = 0;
 Obj t_5 = 0;
 Obj t_6 = 0;
 Obj t_7 = 0;
 Obj t_8 = 0;
 Obj t_9 = 0;
 Obj t_10 = 0;
 Obj t_11 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* len := LEN_LIST( arglist ); */
 t_2 = GF_LEN__LIST;
 t_1 = CALL_1ARGS( t_2, a_arglist );
 CHECK_FUNC_RESULT( t_1 )
 l_len = t_1;
 
 /* if len < 3 then */
 t_1 = (Obj)(UInt)(LT( l_len, INTOBJ_INT(3) ));
 if ( t_1 ) {
  
  /* Error( "too few arguments given in <arglist>" ); */
  t_1 = GF_Error;
  C_NEW_STRING( t_2, 36, "too few arguments given in <arglist>" )
  CALL_1ARGS( t_1, t_2 );
  
 }
 /* fi */
 
 /* opr := arglist[1]; */
 C_ELM_LIST_FPL( t_1, a_arglist, INTOBJ_INT(1) )
 l_opr = t_1;
 
 /* if not IS_OPERATION( opr ) then */
 t_4 = GF_IS__OPERATION;
 t_3 = CALL_1ARGS( t_4, l_opr );
 CHECK_FUNC_RESULT( t_3 )
 CHECK_BOOL( t_3 )
 t_2 = (Obj)(UInt)(t_3 != False);
 t_1 = (Obj)(UInt)( ! ((Int)t_2) );
 if ( t_1 ) {
  
  /* Error( "<opr> is not an operation" ); */
  t_1 = GF_Error;
  C_NEW_STRING( t_2, 25, "<opr> is not an operation" )
  CALL_1ARGS( t_1, t_2 );
  
 }
 /* fi */
 
 /* if IS_STRING_REP( arglist[2] ) then */
 t_3 = GF_IS__STRING__REP;
 C_ELM_LIST_FPL( t_4, a_arglist, INTOBJ_INT(2) )
 t_2 = CALL_1ARGS( t_3, t_4 );
 CHECK_FUNC_RESULT( t_2 )
 CHECK_BOOL( t_2 )
 t_1 = (Obj)(UInt)(t_2 != False);
 if ( t_1 ) {
  
  /* info := arglist[2]; */
  C_ELM_LIST_FPL( t_1, a_arglist, INTOBJ_INT(2) )
  l_info = t_1;
  
  /* pos := 3; */
  l_pos = INTOBJ_INT(3);
  
 }
 
 /* else */
 else {
  
  /* info := false; */
  t_1 = False;
  l_info = t_1;
  
  /* pos := 2; */
  l_pos = INTOBJ_INT(2);
  
 }
 /* fi */
 
 /* if arglist[pos] = true or IS_FUNCTION( arglist[pos] ) then */
 C_ELM_LIST_FPL( t_3, a_arglist, l_pos )
 t_4 = True;
 t_2 = (Obj)(UInt)(EQ( t_3, t_4 ));
 t_1 = t_2;
 if ( ! t_1 ) {
  t_5 = GF_IS__FUNCTION;
  C_ELM_LIST_FPL( t_6, a_arglist, l_pos )
  t_4 = CALL_1ARGS( t_5, t_6 );
  CHECK_FUNC_RESULT( t_4 )
  CHECK_BOOL( t_4 )
  t_3 = (Obj)(UInt)(t_4 != False);
  t_1 = t_3;
 }
 if ( t_1 ) {
  
  /* rel := arglist[pos]; */
  C_ELM_LIST_FPL( t_1, a_arglist, l_pos )
  l_rel = t_1;
  
  /* pos := pos + 1; */
  C_SUM_INTOBJS( t_1, l_pos, INTOBJ_INT(1) )
  l_pos = t_1;
  
 }
 
 /* else */
 else {
  
  /* rel := true; */
  t_1 = True;
  l_rel = t_1;
  
 }
 /* fi */
 
 /* if not IsBound( arglist[pos]) or not IS_LIST( arglist[pos] ) then */
 CHECK_INT_POS( l_pos )
 t_4 = C_ISB_LIST( a_arglist, l_pos );
 t_3 = (Obj)(UInt)(t_4 != False);
 t_2 = (Obj)(UInt)( ! ((Int)t_3) );
 t_1 = t_2;
 if ( ! t_1 ) {
  t_6 = GF_IS__LIST;
  C_ELM_LIST_FPL( t_7, a_arglist, l_pos )
  t_5 = CALL_1ARGS( t_6, t_7 );
  CHECK_FUNC_RESULT( t_5 )
  CHECK_BOOL( t_5 )
  t_4 = (Obj)(UInt)(t_5 != False);
  t_3 = (Obj)(UInt)( ! ((Int)t_4) );
  t_1 = t_3;
 }
 if ( t_1 ) {
  
  /* Error( "<arglist>[", pos, "] must be a list of filters" ); */
  t_1 = GF_Error;
  C_NEW_STRING( t_2, 10, "<arglist>[" )
  C_NEW_STRING( t_3, 27, "] must be a list of filters" )
  CALL_3ARGS( t_1, t_2, l_pos, t_3 );
  
 }
 /* fi */
 
 /* filters := arglist[pos]; */
 C_ELM_LIST_FPL( t_1, a_arglist, l_pos )
 l_filters = t_1;
 
 /* if 0 < LEN_LIST( filters ) then */
 t_3 = GF_LEN__LIST;
 t_2 = CALL_1ARGS( t_3, l_filters );
 CHECK_FUNC_RESULT( t_2 )
 t_1 = (Obj)(UInt)(LT( INTOBJ_INT(0), t_2 ));
 if ( t_1 ) {
  
  /* info1 := "[ "; */
  C_NEW_STRING( t_1, 2, "[ " )
  l_info1 = t_1;
  
  /* isstr := true; */
  t_1 = True;
  l_isstr = t_1;
  
  /* for i in [ 1 .. LEN_LIST( filters ) ] do */
  t_3 = GF_LEN__LIST;
  t_2 = CALL_1ARGS( t_3, l_filters );
  CHECK_FUNC_RESULT( t_2 )
  CHECK_INT_SMALL( t_2 )
  for ( t_1 = INTOBJ_INT(1);
        ((Int)t_1) <= ((Int)t_2);
        t_1 = (Obj)(((UInt)t_1)+4) ) {
   l_i = t_1;
   
   /* if IS_STRING_REP( filters[i] ) then */
   t_5 = GF_IS__STRING__REP;
   C_ELM_LIST_FPL( t_6, l_filters, l_i )
   t_4 = CALL_1ARGS( t_5, t_6 );
   CHECK_FUNC_RESULT( t_4 )
   CHECK_BOOL( t_4 )
   t_3 = (Obj)(UInt)(t_4 != False);
   if ( t_3 ) {
    
    /* APPEND_LIST_INTR( info1, filters[i] ); */
    t_3 = GF_APPEND__LIST__INTR;
    C_ELM_LIST_FPL( t_4, l_filters, l_i )
    CALL_2ARGS( t_3, l_info1, t_4 );
    
    /* APPEND_LIST_INTR( info1, ", " ); */
    t_3 = GF_APPEND__LIST__INTR;
    C_NEW_STRING( t_4, 2, ", " )
    CALL_2ARGS( t_3, l_info1, t_4 );
    
    /* filters[i] := EvalString( filters[i] ); */
    t_4 = GF_EvalString;
    C_ELM_LIST_FPL( t_5, l_filters, l_i )
    t_3 = CALL_1ARGS( t_4, t_5 );
    CHECK_FUNC_RESULT( t_3 )
    C_ASS_LIST_FPL( l_filters, l_i, t_3 )
    
    /* if not IS_FUNCTION( filters[i] ) then */
    t_6 = GF_IS__FUNCTION;
    C_ELM_LIST_FPL( t_7, l_filters, l_i )
    t_5 = CALL_1ARGS( t_6, t_7 );
    CHECK_FUNC_RESULT( t_5 )
    CHECK_BOOL( t_5 )
    t_4 = (Obj)(UInt)(t_5 != False);
    t_3 = (Obj)(UInt)( ! ((Int)t_4) );
    if ( t_3 ) {
     
     /* Error( "string does not evaluate to a function" ); */
     t_3 = GF_Error;
     C_NEW_STRING( t_4, 38, "string does not evaluate to a function" )
     CALL_1ARGS( t_3, t_4 );
     
    }
    /* fi */
    
   }
   
   /* else */
   else {
    
    /* isstr := false; */
    t_3 = False;
    l_isstr = t_3;
    
    /* break; */
    break;
    
   }
   /* fi */
   
  }
  /* od */
  
  /* if isstr and info = false then */
  t_2 = (Obj)(UInt)(l_isstr != False);
  t_1 = t_2;
  if ( t_1 ) {
   t_4 = False;
   t_3 = (Obj)(UInt)(EQ( l_info, t_4 ));
   t_1 = t_3;
  }
  if ( t_1 ) {
   
   /* info1[LEN_LIST( info1 ) - 1] := ' '; */
   t_3 = GF_LEN__LIST;
   t_2 = CALL_1ARGS( t_3, l_info1 );
   CHECK_FUNC_RESULT( t_2 )
   C_DIFF( t_1, t_2, INTOBJ_INT(1) )
   CHECK_INT_POS( t_1 )
   t_2 = ObjsChar[32];
   C_ASS_LIST_FPL( l_info1, t_1, t_2 )
   
   /* info1[LEN_LIST( info1 )] := ']'; */
   t_2 = GF_LEN__LIST;
   t_1 = CALL_1ARGS( t_2, l_info1 );
   CHECK_FUNC_RESULT( t_1 )
   CHECK_INT_POS( t_1 )
   t_2 = ObjsChar[93];
   C_ASS_LIST_FPL( l_info1, t_1, t_2 )
   
   /* info := info1; */
   l_info = l_info1;
   
  }
  /* fi */
  
 }
 /* fi */
 
 /* pos := pos + 1; */
 C_SUM( t_1, l_pos, INTOBJ_INT(1) )
 l_pos = t_1;
 
 /* flags := [  ]; */
 t_1 = NEW_PLIST( T_PLIST, 0 );
 SET_LEN_PLIST( t_1, 0 );
 l_flags = t_1;
 
 /* for i in filters do */
 t_4 = l_filters;
 if ( IS_SMALL_LIST(t_4) ) {
  t_3 = (Obj)(UInt)1;
  t_1 = INTOBJ_INT(1);
 }
 else {
  t_3 = (Obj)(UInt)0;
  t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
 }
 while ( 1 ) {
  if ( t_3 ) {
   if ( LEN_LIST(t_4) < INT_INTOBJ(t_1) )  break;
   t_2 = ELMV0_LIST( t_4, INT_INTOBJ(t_1) );
   t_1 = (Obj)(((UInt)t_1)+4);
   if ( t_2 == 0 )  continue;
  }
  else {
   if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
   t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
  }
  l_i = t_2;
  
  /* ADD_LIST( flags, FLAGS_FILTER( i ) ); */
  t_5 = GF_ADD__LIST;
  t_7 = GF_FLAGS__FILTER;
  t_6 = CALL_1ARGS( t_7, l_i );
  CHECK_FUNC_RESULT( t_6 )
  CALL_2ARGS( t_5, l_flags, t_6 );
  
 }
 /* od */
 
 /* if not IsBound( arglist[pos]) then */
 CHECK_INT_POS( l_pos )
 t_3 = C_ISB_LIST( a_arglist, l_pos );
 t_2 = (Obj)(UInt)(t_3 != False);
 t_1 = (Obj)(UInt)( ! ((Int)t_2) );
 if ( t_1 ) {
  
  /* Error( "the method is missing in <arglist>" ); */
  t_1 = GF_Error;
  C_NEW_STRING( t_2, 34, "the method is missing in <arglist>" )
  CALL_1ARGS( t_1, t_2 );
  
 }
 
 /* elif IS_INT( arglist[pos] ) then */
 else {
  t_3 = GF_IS__INT;
  C_ELM_LIST_FPL( t_4, a_arglist, l_pos )
  t_2 = CALL_1ARGS( t_3, t_4 );
  CHECK_FUNC_RESULT( t_2 )
  CHECK_BOOL( t_2 )
  t_1 = (Obj)(UInt)(t_2 != False);
  if ( t_1 ) {
   
   /* rank := arglist[pos]; */
   C_ELM_LIST_FPL( t_1, a_arglist, l_pos )
   l_rank = t_1;
   
   /* pos := pos + 1; */
   C_SUM( t_1, l_pos, INTOBJ_INT(1) )
   l_pos = t_1;
   
  }
  
  /* else */
  else {
   
   /* rank := 0; */
   l_rank = INTOBJ_INT(0);
   
  }
 }
 /* fi */
 
 /* if not IsBound( arglist[pos]) then */
 CHECK_INT_POS( l_pos )
 t_3 = C_ISB_LIST( a_arglist, l_pos );
 t_2 = (Obj)(UInt)(t_3 != False);
 t_1 = (Obj)(UInt)( ! ((Int)t_2) );
 if ( t_1 ) {
  
  /* Error( "the method is missing in <arglist>" ); */
  t_1 = GF_Error;
  C_NEW_STRING( t_2, 34, "the method is missing in <arglist>" )
  CALL_1ARGS( t_1, t_2 );
  
 }
 /* fi */
 
 /* method := arglist[pos]; */
 C_ELM_LIST_FPL( t_1, a_arglist, l_pos )
 l_method = t_1;
 
 /* if FLAG1_FILTER( opr ) <> 0 and (rel = true or rel = RETURN_TRUE) and LEN_LIST( filters ) = 1 and (method = true or method = RETURN_TRUE) then */
 t_6 = GF_FLAG1__FILTER;
 t_5 = CALL_1ARGS( t_6, l_opr );
 CHECK_FUNC_RESULT( t_5 )
 t_4 = (Obj)(UInt)( ! EQ( t_5, INTOBJ_INT(0) ));
 t_3 = t_4;
 if ( t_3 ) {
  t_7 = True;
  t_6 = (Obj)(UInt)(EQ( l_rel, t_7 ));
  t_5 = t_6;
  if ( ! t_5 ) {
   t_8 = GC_RETURN__TRUE;
   CHECK_BOUND( t_8, "RETURN_TRUE" )
   t_7 = (Obj)(UInt)(EQ( l_rel, t_8 ));
   t_5 = t_7;
  }
  t_3 = t_5;
 }
 t_2 = t_3;
 if ( t_2 ) {
  t_6 = GF_LEN__LIST;
  t_5 = CALL_1ARGS( t_6, l_filters );
  CHECK_FUNC_RESULT( t_5 )
  t_4 = (Obj)(UInt)(EQ( t_5, INTOBJ_INT(1) ));
  t_2 = t_4;
 }
 t_1 = t_2;
 if ( t_1 ) {
  t_5 = True;
  t_4 = (Obj)(UInt)(EQ( l_method, t_5 ));
  t_3 = t_4;
  if ( ! t_3 ) {
   t_6 = GC_RETURN__TRUE;
   CHECK_BOUND( t_6, "RETURN_TRUE" )
   t_5 = (Obj)(UInt)(EQ( l_method, t_6 ));
   t_3 = t_5;
  }
  t_1 = t_3;
 }
 if ( t_1 ) {
  
  /* Error( NAME_FUNC( opr ), ": use `InstallTrueMethod' for <opr>" ); */
  t_1 = GF_Error;
  t_3 = GF_NAME__FUNC;
  t_2 = CALL_1ARGS( t_3, l_opr );
  CHECK_FUNC_RESULT( t_2 )
  C_NEW_STRING( t_3, 35, ": use `InstallTrueMethod' for <opr>" )
  CALL_2ARGS( t_1, t_2, t_3 );
  
 }
 /* fi */
 
 /* if CHECK_INSTALL_METHOD and check then */
 t_3 = GC_CHECK__INSTALL__METHOD;
 CHECK_BOUND( t_3, "CHECK_INSTALL_METHOD" )
 CHECK_BOOL( t_3 )
 t_2 = (Obj)(UInt)(t_3 != False);
 t_1 = t_2;
 if ( t_1 ) {
  CHECK_BOOL( a_check )
  t_3 = (Obj)(UInt)(a_check != False);
  t_1 = t_3;
 }
 if ( t_1 ) {
  
  /* if opr in WRAPPER_OPERATIONS then */
  t_2 = GC_WRAPPER__OPERATIONS;
  CHECK_BOUND( t_2, "WRAPPER_OPERATIONS" )
  t_1 = (Obj)(UInt)(IN( l_opr, t_2 ));
  if ( t_1 ) {
   
   /* INFO_INSTALL( 1, "a method is installed for the wrapper operation ", NAME_FUNC( opr ), "\n", "#I  probably it should be installed for (one of) its\n", "#I  underlying operation(s)" ); */
   t_1 = GF_INFO__INSTALL;
   C_NEW_STRING( t_2, 48, "a method is installed for the wrapper operation " )
   t_4 = GF_NAME__FUNC;
   t_3 = CALL_1ARGS( t_4, l_opr );
   CHECK_FUNC_RESULT( t_3 )
   C_NEW_STRING( t_4, 1, "\n" )
   C_NEW_STRING( t_5, 53, "#I  probably it should be installed for (one of) its\n" )
   C_NEW_STRING( t_6, 27, "#I  underlying operation(s)" )
   CALL_6ARGS( t_1, INTOBJ_INT(1), t_2, t_3, t_4, t_5, t_6 );
   
  }
  /* fi */
  
  /* req := false; */
  t_1 = False;
  l_req = t_1;
  
  /* for i in [ 1, 3 .. LEN_LIST( OPERATIONS ) - 1 ] do */
  t_7 = GF_LEN__LIST;
  t_8 = GC_OPERATIONS;
  CHECK_BOUND( t_8, "OPERATIONS" )
  t_6 = CALL_1ARGS( t_7, t_8 );
  CHECK_FUNC_RESULT( t_6 )
  C_DIFF( t_5, t_6, INTOBJ_INT(1) )
  t_4 = Range3Check( INTOBJ_INT(1), INTOBJ_INT(3), t_5 );
  if ( IS_SMALL_LIST(t_4) ) {
   t_3 = (Obj)(UInt)1;
   t_1 = INTOBJ_INT(1);
  }
  else {
   t_3 = (Obj)(UInt)0;
   t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
  }
  while ( 1 ) {
   if ( t_3 ) {
    if ( LEN_LIST(t_4) < INT_INTOBJ(t_1) )  break;
    t_2 = ELMV0_LIST( t_4, INT_INTOBJ(t_1) );
    t_1 = (Obj)(((UInt)t_1)+4);
    if ( t_2 == 0 )  continue;
   }
   else {
    if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
    t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
   }
   l_i = t_2;
   
   /* if IS_IDENTICAL_OBJ( OPERATIONS[i], opr ) then */
   t_7 = GF_IS__IDENTICAL__OBJ;
   t_9 = GC_OPERATIONS;
   CHECK_BOUND( t_9, "OPERATIONS" )
   CHECK_INT_POS( l_i )
   C_ELM_LIST_FPL( t_8, t_9, l_i )
   t_6 = CALL_2ARGS( t_7, t_8, l_opr );
   CHECK_FUNC_RESULT( t_6 )
   CHECK_BOOL( t_6 )
   t_5 = (Obj)(UInt)(t_6 != False);
   if ( t_5 ) {
    
    /* req := OPERATIONS[i + 1]; */
    t_6 = GC_OPERATIONS;
    CHECK_BOUND( t_6, "OPERATIONS" )
    C_SUM( t_7, l_i, INTOBJ_INT(1) )
    CHECK_INT_POS( t_7 )
    C_ELM_LIST_FPL( t_5, t_6, t_7 )
    l_req = t_5;
    
    /* break; */
    break;
    
   }
   /* fi */
   
  }
  /* od */
  
  /* if req = false then */
  t_2 = False;
  t_1 = (Obj)(UInt)(EQ( l_req, t_2 ));
  if ( t_1 ) {
   
   /* Error( "unknown operation ", NAME_FUNC( opr ) ); */
   t_1 = GF_Error;
   C_NEW_STRING( t_2, 18, "unknown operation " )
   t_4 = GF_NAME__FUNC;
   t_3 = CALL_1ARGS( t_4, l_opr );
   CHECK_FUNC_RESULT( t_3 )
   CALL_2ARGS( t_1, t_2, t_3 );
   
  }
  /* fi */
  
  /* imp := [  ]; */
  t_1 = NEW_PLIST( T_PLIST, 0 );
  SET_LEN_PLIST( t_1, 0 );
  l_imp = t_1;
  
  /* for i in flags do */
  t_4 = l_flags;
  if ( IS_SMALL_LIST(t_4) ) {
   t_3 = (Obj)(UInt)1;
   t_1 = INTOBJ_INT(1);
  }
  else {
   t_3 = (Obj)(UInt)0;
   t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
  }
  while ( 1 ) {
   if ( t_3 ) {
    if ( LEN_LIST(t_4) < INT_INTOBJ(t_1) )  break;
    t_2 = ELMV0_LIST( t_4, INT_INTOBJ(t_1) );
    t_1 = (Obj)(((UInt)t_1)+4);
    if ( t_2 == 0 )  continue;
   }
   else {
    if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
    t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
   }
   l_i = t_2;
   
   /* ADD_LIST( imp, WITH_HIDDEN_IMPS_FLAGS( i ) ); */
   t_5 = GF_ADD__LIST;
   t_7 = GF_WITH__HIDDEN__IMPS__FLAGS;
   t_6 = CALL_1ARGS( t_7, l_i );
   CHECK_FUNC_RESULT( t_6 )
   CALL_2ARGS( t_5, l_imp, t_6 );
   
  }
  /* od */
  
  /* j := 0; */
  l_j = INTOBJ_INT(0);
  
  /* match := false; */
  t_1 = False;
  l_match = t_1;
  
  /* notmatch := 0; */
  l_notmatch = INTOBJ_INT(0);
  
  /* while j < LEN_LIST( req ) and not match od */
  while ( 1 ) {
   t_4 = GF_LEN__LIST;
   t_3 = CALL_1ARGS( t_4, l_req );
   CHECK_FUNC_RESULT( t_3 )
   t_2 = (Obj)(UInt)(LT( l_j, t_3 ));
   t_1 = t_2;
   if ( t_1 ) {
    t_4 = (Obj)(UInt)(l_match != False);
    t_3 = (Obj)(UInt)( ! ((Int)t_4) );
    t_1 = t_3;
   }
   if ( ! t_1 ) break;
   
   /* j := j + 1; */
   C_SUM( t_1, l_j, INTOBJ_INT(1) )
   l_j = t_1;
   
   /* reqs := req[j]; */
   CHECK_INT_POS( l_j )
   C_ELM_LIST_FPL( t_1, l_req, l_j )
   l_reqs = t_1;
   
   /* if LEN_LIST( reqs ) = LEN_LIST( imp ) then */
   t_3 = GF_LEN__LIST;
   t_2 = CALL_1ARGS( t_3, l_reqs );
   CHECK_FUNC_RESULT( t_2 )
   t_4 = GF_LEN__LIST;
   t_3 = CALL_1ARGS( t_4, l_imp );
   CHECK_FUNC_RESULT( t_3 )
   t_1 = (Obj)(UInt)(EQ( t_2, t_3 ));
   if ( t_1 ) {
    
    /* match := true; */
    t_1 = True;
    l_match = t_1;
    
    /* for i in [ 1 .. LEN_LIST( reqs ) ] do */
    t_3 = GF_LEN__LIST;
    t_2 = CALL_1ARGS( t_3, l_reqs );
    CHECK_FUNC_RESULT( t_2 )
    CHECK_INT_SMALL( t_2 )
    for ( t_1 = INTOBJ_INT(1);
          ((Int)t_1) <= ((Int)t_2);
          t_1 = (Obj)(((UInt)t_1)+4) ) {
     l_i = t_1;
     
     /* if not IS_SUBSET_FLAGS( imp[i], reqs[i] ) then */
     t_6 = GF_IS__SUBSET__FLAGS;
     C_ELM_LIST_FPL( t_7, l_imp, l_i )
     C_ELM_LIST_FPL( t_8, l_reqs, l_i )
     t_5 = CALL_2ARGS( t_6, t_7, t_8 );
     CHECK_FUNC_RESULT( t_5 )
     CHECK_BOOL( t_5 )
     t_4 = (Obj)(UInt)(t_5 != False);
     t_3 = (Obj)(UInt)( ! ((Int)t_4) );
     if ( t_3 ) {
      
      /* match := false; */
      t_3 = False;
      l_match = t_3;
      
      /* notmatch := i; */
      l_notmatch = l_i;
      
      /* break; */
      break;
      
     }
     /* fi */
     
    }
    /* od */
    
    /* if match then */
    t_1 = (Obj)(UInt)(l_match != False);
    if ( t_1 ) {
     
     /* break; */
     break;
     
    }
    /* fi */
    
   }
   /* fi */
   
  }
  /* od */
  
  /* if not match then */
  t_2 = (Obj)(UInt)(l_match != False);
  t_1 = (Obj)(UInt)( ! ((Int)t_2) );
  if ( t_1 ) {
   
   /* if notmatch = 0 then */
   t_1 = (Obj)(UInt)(((Int)l_notmatch) == ((Int)INTOBJ_INT(0)));
   if ( t_1 ) {
    
    /* Error( "the number of arguments does not match a declaration of ", NAME_FUNC( opr ) ); */
    t_1 = GF_Error;
    C_NEW_STRING( t_2, 56, "the number of arguments does not match a declaration of " )
    t_4 = GF_NAME__FUNC;
    t_3 = CALL_1ARGS( t_4, l_opr );
    CHECK_FUNC_RESULT( t_3 )
    CALL_2ARGS( t_1, t_2, t_3 );
    
   }
   
   /* else */
   else {
    
    /* Error( "required filters ", NamesFilter( imp[notmatch] ), "\nfor ", Ordinal( notmatch ), " argument do not match a declaration of ", NAME_FUNC( opr ) ); */
    t_1 = GF_Error;
    C_NEW_STRING( t_2, 17, "required filters " )
    t_4 = GF_NamesFilter;
    CHECK_INT_POS( l_notmatch )
    C_ELM_LIST_FPL( t_5, l_imp, l_notmatch )
    t_3 = CALL_1ARGS( t_4, t_5 );
    CHECK_FUNC_RESULT( t_3 )
    C_NEW_STRING( t_4, 5, "\nfor " )
    t_6 = GF_Ordinal;
    t_5 = CALL_1ARGS( t_6, l_notmatch );
    CHECK_FUNC_RESULT( t_5 )
    C_NEW_STRING( t_6, 40, " argument do not match a declaration of " )
    t_8 = GF_NAME__FUNC;
    t_7 = CALL_1ARGS( t_8, l_opr );
    CHECK_FUNC_RESULT( t_7 )
    CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, t_6, t_7 );
    
   }
   /* fi */
   
  }
  
  /* else */
  else {
   
   /* for k in [ j + 1 .. LEN_LIST( req ) ] do */
   C_SUM( t_2, l_j, INTOBJ_INT(1) )
   CHECK_INT_SMALL( t_2 )
   t_4 = GF_LEN__LIST;
   t_3 = CALL_1ARGS( t_4, l_req );
   CHECK_FUNC_RESULT( t_3 )
   CHECK_INT_SMALL( t_3 )
   for ( t_1 = t_2;
         ((Int)t_1) <= ((Int)t_3);
         t_1 = (Obj)(((UInt)t_1)+4) ) {
    l_k = t_1;
    
    /* reqs := req[k]; */
    CHECK_INT_POS( l_k )
    C_ELM_LIST_FPL( t_4, l_req, l_k )
    l_reqs = t_4;
    
    /* if LEN_LIST( reqs ) = LEN_LIST( imp ) then */
    t_6 = GF_LEN__LIST;
    t_5 = CALL_1ARGS( t_6, l_reqs );
    CHECK_FUNC_RESULT( t_5 )
    t_7 = GF_LEN__LIST;
    t_6 = CALL_1ARGS( t_7, l_imp );
    CHECK_FUNC_RESULT( t_6 )
    t_4 = (Obj)(UInt)(EQ( t_5, t_6 ));
    if ( t_4 ) {
     
     /* match := true; */
     t_4 = True;
     l_match = t_4;
     
     /* for i in [ 1 .. LEN_LIST( reqs ) ] do */
     t_6 = GF_LEN__LIST;
     t_5 = CALL_1ARGS( t_6, l_reqs );
     CHECK_FUNC_RESULT( t_5 )
     CHECK_INT_SMALL( t_5 )
     for ( t_4 = INTOBJ_INT(1);
           ((Int)t_4) <= ((Int)t_5);
           t_4 = (Obj)(((UInt)t_4)+4) ) {
      l_i = t_4;
      
      /* if not IS_SUBSET_FLAGS( imp[i], reqs[i] ) then */
      t_9 = GF_IS__SUBSET__FLAGS;
      C_ELM_LIST_FPL( t_10, l_imp, l_i )
      C_ELM_LIST_FPL( t_11, l_reqs, l_i )
      t_8 = CALL_2ARGS( t_9, t_10, t_11 );
      CHECK_FUNC_RESULT( t_8 )
      CHECK_BOOL( t_8 )
      t_7 = (Obj)(UInt)(t_8 != False);
      t_6 = (Obj)(UInt)( ! ((Int)t_7) );
      if ( t_6 ) {
       
       /* match := false; */
       t_6 = False;
       l_match = t_6;
       
       /* break; */
       break;
       
      }
      /* fi */
      
     }
     /* od */
     
     /* if match then */
     t_4 = (Obj)(UInt)(l_match != False);
     if ( t_4 ) {
      
      /* INFO_INSTALL( 1, "method installed for ", NAME_FUNC( opr ), " matches more than one declaration" ); */
      t_4 = GF_INFO__INSTALL;
      C_NEW_STRING( t_5, 21, "method installed for " )
      t_7 = GF_NAME__FUNC;
      t_6 = CALL_1ARGS( t_7, l_opr );
      CHECK_FUNC_RESULT( t_6 )
      C_NEW_STRING( t_7, 34, " matches more than one declaration" )
      CALL_4ARGS( t_4, INTOBJ_INT(1), t_5, t_6, t_7 );
      
     }
     /* fi */
     
    }
    /* fi */
    
   }
   /* od */
   
  }
  /* fi */
  
 }
 /* fi */
 
 /* INSTALL_METHOD_FLAGS( opr, info, rel, flags, rank, method ); */
 t_1 = GF_INSTALL__METHOD__FLAGS;
 CHECK_BOUND( l_rank, "rank" )
 CALL_6ARGS( t_1, l_opr, l_info, l_rel, l_flags, l_rank, l_method );
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* handler for function 9 */
static Obj  HdlrFunc9 (
 Obj  self,
 Obj  a_obj )
{
 Obj l_found = 0;
 Obj l_prop = 0;
 Obj t_1 = 0;
 Obj t_2 = 0;
 Obj t_3 = 0;
 Obj t_4 = 0;
 Obj t_5 = 0;
 Obj t_6 = 0;
 Obj t_7 = 0;
 Obj t_8 = 0;
 Obj t_9 = 0;
 Obj t_10 = 0;
 Obj t_11 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* found := false; */
 t_1 = False;
 l_found = t_1;
 
 /* for prop in props do */
 t_4 = OBJ_LVAR_1UP( 2 );
 CHECK_BOUND( t_4, "props" )
 if ( IS_SMALL_LIST(t_4) ) {
  t_3 = (Obj)(UInt)1;
  t_1 = INTOBJ_INT(1);
 }
 else {
  t_3 = (Obj)(UInt)0;
  t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
 }
 while ( 1 ) {
  if ( t_3 ) {
   if ( LEN_LIST(t_4) < INT_INTOBJ(t_1) )  break;
   t_2 = ELMV0_LIST( t_4, INT_INTOBJ(t_1) );
   t_1 = (Obj)(((UInt)t_1)+4);
   if ( t_2 == 0 )  continue;
  }
  else {
   if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
   t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
  }
  l_prop = t_2;
  
  /* if not Tester( prop )( obj ) then */
  t_9 = GF_Tester;
  t_8 = CALL_1ARGS( t_9, l_prop );
  CHECK_FUNC_RESULT( t_8 )
  CHECK_FUNC( t_8 )
  t_7 = CALL_1ARGS( t_8, a_obj );
  CHECK_FUNC_RESULT( t_7 )
  CHECK_BOOL( t_7 )
  t_6 = (Obj)(UInt)(t_7 != False);
  t_5 = (Obj)(UInt)( ! ((Int)t_6) );
  if ( t_5 ) {
   
   /* found := true; */
   t_5 = True;
   l_found = t_5;
   
   /* if not (prop( obj ) and Tester( prop )( obj )) then */
   CHECK_FUNC( l_prop )
   t_8 = CALL_1ARGS( l_prop, a_obj );
   CHECK_FUNC_RESULT( t_8 )
   CHECK_BOOL( t_8 )
   t_7 = (Obj)(UInt)(t_8 != False);
   t_6 = t_7;
   if ( t_6 ) {
    t_11 = GF_Tester;
    t_10 = CALL_1ARGS( t_11, l_prop );
    CHECK_FUNC_RESULT( t_10 )
    CHECK_FUNC( t_10 )
    t_9 = CALL_1ARGS( t_10, a_obj );
    CHECK_FUNC_RESULT( t_9 )
    CHECK_BOOL( t_9 )
    t_8 = (Obj)(UInt)(t_9 != False);
    t_6 = t_8;
   }
   t_5 = (Obj)(UInt)( ! ((Int)t_6) );
   if ( t_5 ) {
    
    /* return TRY_NEXT_METHOD; */
    t_5 = GC_TRY__NEXT__METHOD;
    CHECK_BOUND( t_5, "TRY_NEXT_METHOD" )
    RES_BRK_CURR_STAT();
    SWITCH_TO_OLD_FRAME(oldFrame);
    return t_5;
    
   }
   /* fi */
   
  }
  /* fi */
  
 }
 /* od */
 
 /* if found then */
 t_1 = (Obj)(UInt)(l_found != False);
 if ( t_1 ) {
  
  /* return getter( obj ); */
  t_2 = OBJ_LVAR_1UP( 1 );
  CHECK_BOUND( t_2, "getter" )
  CHECK_FUNC( t_2 )
  t_1 = CALL_1ARGS( t_2, a_obj );
  CHECK_FUNC_RESULT( t_1 )
  RES_BRK_CURR_STAT();
  SWITCH_TO_OLD_FRAME(oldFrame);
  return t_1;
  
 }
 
 /* else */
 else {
  
  /* return TRY_NEXT_METHOD; */
  t_1 = GC_TRY__NEXT__METHOD;
  CHECK_BOUND( t_1, "TRY_NEXT_METHOD" )
  RES_BRK_CURR_STAT();
  SWITCH_TO_OLD_FRAME(oldFrame);
  return t_1;
  
 }
 /* fi */
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* handler for function 8 */
static Obj  HdlrFunc8 (
 Obj  self,
 Obj  a_name,
 Obj  a_filter,
 Obj  a_getter,
 Obj  a_setter,
 Obj  a_tester,
 Obj  a_mutflag )
{
 Obj l_flags = 0;
 Obj l_rank = 0;
 Obj l_cats = 0;
 Obj l_i = 0;
 Obj t_1 = 0;
 Obj t_2 = 0;
 Obj t_3 = 0;
 Obj t_4 = 0;
 Obj t_5 = 0;
 Obj t_6 = 0;
 Obj t_7 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,2,0,oldFrame);
 ASS_LVAR( 1, a_getter );
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* if not IS_IDENTICAL_OBJ( filter, IS_OBJECT ) then */
 t_4 = GF_IS__IDENTICAL__OBJ;
 t_5 = GC_IS__OBJECT;
 CHECK_BOUND( t_5, "IS_OBJECT" )
 t_3 = CALL_2ARGS( t_4, a_filter, t_5 );
 CHECK_FUNC_RESULT( t_3 )
 CHECK_BOOL( t_3 )
 t_2 = (Obj)(UInt)(t_3 != False);
 t_1 = (Obj)(UInt)( ! ((Int)t_2) );
 if ( t_1 ) {
  
  /* flags := FLAGS_FILTER( filter ); */
  t_2 = GF_FLAGS__FILTER;
  t_1 = CALL_1ARGS( t_2, a_filter );
  CHECK_FUNC_RESULT( t_1 )
  l_flags = t_1;
  
  /* rank := 0; */
  l_rank = INTOBJ_INT(0);
  
  /* cats := IS_OBJECT; */
  t_1 = GC_IS__OBJECT;
  CHECK_BOUND( t_1, "IS_OBJECT" )
  l_cats = t_1;
  
  /* props := [  ]; */
  t_1 = NEW_PLIST( T_PLIST, 0 );
  SET_LEN_PLIST( t_1, 0 );
  ASS_LVAR( 2, t_1 );
  
  /* for i in [ 1 .. LEN_FLAGS( flags ) ] do */
  t_3 = GF_LEN__FLAGS;
  t_2 = CALL_1ARGS( t_3, l_flags );
  CHECK_FUNC_RESULT( t_2 )
  CHECK_INT_SMALL( t_2 )
  for ( t_1 = INTOBJ_INT(1);
        ((Int)t_1) <= ((Int)t_2);
        t_1 = (Obj)(((UInt)t_1)+4) ) {
   l_i = t_1;
   
   /* if ELM_FLAGS( flags, i ) then */
   t_5 = GF_ELM__FLAGS;
   t_4 = CALL_2ARGS( t_5, l_flags, l_i );
   CHECK_FUNC_RESULT( t_4 )
   CHECK_BOOL( t_4 )
   t_3 = (Obj)(UInt)(t_4 != False);
   if ( t_3 ) {
    
    /* if i in CATS_AND_REPS then */
    t_4 = GC_CATS__AND__REPS;
    CHECK_BOUND( t_4, "CATS_AND_REPS" )
    t_3 = (Obj)(UInt)(IN( l_i, t_4 ));
    if ( t_3 ) {
     
     /* cats := cats and FILTERS[i]; */
     if ( l_cats == False ) {
      t_3 = l_cats;
     }
     else if ( l_cats == True ) {
      t_5 = GC_FILTERS;
      CHECK_BOUND( t_5, "FILTERS" )
      C_ELM_LIST_FPL( t_4, t_5, l_i )
      CHECK_BOOL( t_4 )
      t_3 = t_4;
     }
     else {
      CHECK_FUNC( l_cats )
      t_6 = GC_FILTERS;
      CHECK_BOUND( t_6, "FILTERS" )
      C_ELM_LIST_FPL( t_5, t_6, l_i )
      CHECK_FUNC( t_5 )
      t_3 = NewAndFilter( l_cats, t_5 );
     }
     l_cats = t_3;
     
     /* rank := rank - RankFilter( FILTERS[i] ); */
     t_5 = GF_RankFilter;
     t_7 = GC_FILTERS;
     CHECK_BOUND( t_7, "FILTERS" )
     C_ELM_LIST_FPL( t_6, t_7, l_i )
     t_4 = CALL_1ARGS( t_5, t_6 );
     CHECK_FUNC_RESULT( t_4 )
     C_DIFF( t_3, l_rank, t_4 )
     l_rank = t_3;
     
    }
    
    /* elif i in NUMBERS_PROPERTY_GETTERS then */
    else {
     t_4 = GC_NUMBERS__PROPERTY__GETTERS;
     CHECK_BOUND( t_4, "NUMBERS_PROPERTY_GETTERS" )
     t_3 = (Obj)(UInt)(IN( l_i, t_4 ));
     if ( t_3 ) {
      
      /* ADD_LIST( props, FILTERS[i] ); */
      t_3 = GF_ADD__LIST;
      t_4 = OBJ_LVAR( 2 );
      CHECK_BOUND( t_4, "props" )
      t_6 = GC_FILTERS;
      CHECK_BOUND( t_6, "FILTERS" )
      C_ELM_LIST_FPL( t_5, t_6, l_i )
      CALL_2ARGS( t_3, t_4, t_5 );
      
     }
    }
    /* fi */
    
   }
   /* fi */
   
  }
  /* od */
  
  /* if 0 < LEN_LIST( props ) then */
  t_3 = GF_LEN__LIST;
  t_4 = OBJ_LVAR( 2 );
  CHECK_BOUND( t_4, "props" )
  t_2 = CALL_1ARGS( t_3, t_4 );
  CHECK_FUNC_RESULT( t_2 )
  t_1 = (Obj)(UInt)(LT( INTOBJ_INT(0), t_2 ));
  if ( t_1 ) {
   
   /* InstallOtherMethod( getter, "default method requiring categories and checking properties", true, [ cats ], rank, function ( obj )
      local  found, prop;
      found := false;
      for prop  in props  do
          if not Tester( prop )( obj )  then
              found := true;
              if not (prop( obj ) and Tester( prop )( obj ))  then
                  return TRY_NEXT_METHOD;
              fi;
          fi;
      od;
      if found  then
          return getter( obj );
      else
          return TRY_NEXT_METHOD;
      fi;
      return;
  end ); */
   t_1 = GF_InstallOtherMethod;
   t_2 = OBJ_LVAR( 1 );
   CHECK_BOUND( t_2, "getter" )
   C_NEW_STRING( t_3, 59, "default method requiring categories and checking properties" )
   t_4 = True;
   t_5 = NEW_PLIST( T_PLIST, 1 );
   SET_LEN_PLIST( t_5, 1 );
   SET_ELM_PLIST( t_5, 1, l_cats );
   CHANGED_BAG( t_5 );
   t_6 = NewFunction( NameFunc[9], NargFunc[9], NamsFunc[9], HdlrFunc9 );
   ENVI_FUNC( t_6 ) = CurrLVars;
   t_7 = NewBag( T_BODY, 0 );
   BODY_FUNC(t_6) = t_7;
   CHANGED_BAG( CurrLVars );
   CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, l_rank, t_6 );
   
  }
  /* fi */
  
 }
 /* fi */
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* handler for function 10 */
static Obj  HdlrFunc10 (
 Obj  self,
 Obj  a_name,
 Obj  a_filter,
 Obj  a_getter,
 Obj  a_setter,
 Obj  a_tester,
 Obj  a_mutflag )
{
 Obj t_1 = 0;
 Obj t_2 = 0;
 Obj t_3 = 0;
 Obj t_4 = 0;
 Obj t_5 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* InstallOtherMethod( setter, "default method, does nothing", true, [ IS_OBJECT, IS_OBJECT ], 0, DO_NOTHING_SETTER ); */
 t_1 = GF_InstallOtherMethod;
 C_NEW_STRING( t_2, 28, "default method, does nothing" )
 t_3 = True;
 t_4 = NEW_PLIST( T_PLIST, 2 );
 SET_LEN_PLIST( t_4, 2 );
 t_5 = GC_IS__OBJECT;
 CHECK_BOUND( t_5, "IS_OBJECT" )
 SET_ELM_PLIST( t_4, 1, t_5 );
 CHANGED_BAG( t_4 );
 t_5 = GC_IS__OBJECT;
 CHECK_BOUND( t_5, "IS_OBJECT" )
 SET_ELM_PLIST( t_4, 2, t_5 );
 CHANGED_BAG( t_4 );
 t_5 = GC_DO__NOTHING__SETTER;
 CHECK_BOUND( t_5, "DO_NOTHING_SETTER" )
 CALL_6ARGS( t_1, a_setter, t_2, t_3, t_4, INTOBJ_INT(0), t_5 );
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* handler for function 12 */
static Obj  HdlrFunc12 (
 Obj  self,
 Obj  a_key )
{
 Obj t_1 = 0;
 Obj t_2 = 0;
 Obj t_3 = 0;
 Obj t_4 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* if not IsPrimeInt( key ) then */
 t_4 = GF_IsPrimeInt;
 t_3 = CALL_1ARGS( t_4, a_key );
 CHECK_FUNC_RESULT( t_3 )
 CHECK_BOOL( t_3 )
 t_2 = (Obj)(UInt)(t_3 != False);
 t_1 = (Obj)(UInt)( ! ((Int)t_2) );
 if ( t_1 ) {
  
  /* Error( name, ": <p> must be a prime" ); */
  t_1 = GF_Error;
  t_2 = OBJ_LVAR_1UP( 1 );
  CHECK_BOUND( t_2, "name" )
  C_NEW_STRING( t_3, 21, ": <p> must be a prime" )
  CALL_2ARGS( t_1, t_2, t_3 );
  
 }
 /* fi */
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* handler for function 13 */
static Obj  HdlrFunc13 (
 Obj  self,
 Obj  a_D )
{
 Obj t_1 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* return [  ]; */
 t_1 = NEW_PLIST( T_PLIST, 0 );
 SET_LEN_PLIST( t_1, 0 );
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return t_1;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* handler for function 14 */
static Obj  HdlrFunc14 (
 Obj  self,
 Obj  a_D,
 Obj  a_key )
{
 Obj l_known = 0;
 Obj l_i = 0;
 Obj l_erg = 0;
 Obj t_1 = 0;
 Obj t_2 = 0;
 Obj t_3 = 0;
 Obj t_4 = 0;
 Obj t_5 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* keytest( key ); */
 t_1 = OBJ_LVAR_1UP( 2 );
 CHECK_BOUND( t_1, "keytest" )
 CHECK_FUNC( t_1 )
 CALL_1ARGS( t_1, a_key );
 
 /* known := attr( D ); */
 t_2 = OBJ_LVAR_1UP( 4 );
 CHECK_BOUND( t_2, "attr" )
 CHECK_FUNC( t_2 )
 t_1 = CALL_1ARGS( t_2, a_D );
 CHECK_FUNC_RESULT( t_1 )
 l_known = t_1;
 
 /* i := 1; */
 l_i = INTOBJ_INT(1);
 
 /* while i < LEN_LIST( known ) and known[i] < key od */
 while ( 1 ) {
  t_4 = GF_LEN__LIST;
  t_3 = CALL_1ARGS( t_4, l_known );
  CHECK_FUNC_RESULT( t_3 )
  t_2 = (Obj)(UInt)(LT( l_i, t_3 ));
  t_1 = t_2;
  if ( t_1 ) {
   CHECK_INT_POS( l_i )
   C_ELM_LIST_FPL( t_4, l_known, l_i )
   t_3 = (Obj)(UInt)(LT( t_4, a_key ));
   t_1 = t_3;
  }
  if ( ! t_1 ) break;
  
  /* i := i + 2; */
  C_SUM( t_1, l_i, INTOBJ_INT(2) )
  l_i = t_1;
  
 }
 /* od */
 
 /* if LEN_LIST( known ) < i or known[i] <> key then */
 t_4 = GF_LEN__LIST;
 t_3 = CALL_1ARGS( t_4, l_known );
 CHECK_FUNC_RESULT( t_3 )
 t_2 = (Obj)(UInt)(LT( t_3, l_i ));
 t_1 = t_2;
 if ( ! t_1 ) {
  CHECK_INT_POS( l_i )
  C_ELM_LIST_FPL( t_4, l_known, l_i )
  t_3 = (Obj)(UInt)( ! EQ( t_4, a_key ));
  t_1 = t_3;
 }
 if ( t_1 ) {
  
  /* erg := oper( D, key ); */
  t_2 = OBJ_LVAR_1UP( 3 );
  CHECK_BOUND( t_2, "oper" )
  CHECK_FUNC( t_2 )
  t_1 = CALL_2ARGS( t_2, a_D, a_key );
  CHECK_FUNC_RESULT( t_1 )
  l_erg = t_1;
  
  /* known{[ i + 2 .. LEN_LIST( known ) + 2 ]} := known{[ i .. LEN_LIST( known ) ]}; */
  C_SUM( t_2, l_i, INTOBJ_INT(2) )
  t_5 = GF_LEN__LIST;
  t_4 = CALL_1ARGS( t_5, l_known );
  CHECK_FUNC_RESULT( t_4 )
  C_SUM( t_3, t_4, INTOBJ_INT(2) )
  t_1 = Range2Check( t_2, t_3 );
  t_5 = GF_LEN__LIST;
  t_4 = CALL_1ARGS( t_5, l_known );
  CHECK_FUNC_RESULT( t_4 )
  t_3 = Range2Check( l_i, t_4 );
  t_2 = ElmsListCheck( l_known, t_3 );
  AsssListCheck( l_known, t_1, t_2 );
  
  /* known[i] := key; */
  CHECK_INT_POS( l_i )
  C_ASS_LIST_FPL( l_known, l_i, a_key )
  
  /* known[i + 1] := erg; */
  C_SUM( t_1, l_i, INTOBJ_INT(1) )
  CHECK_INT_POS( t_1 )
  C_ASS_LIST_FPL( l_known, t_1, l_erg )
  
 }
 /* fi */
 
 /* return known[i + 1]; */
 C_SUM( t_2, l_i, INTOBJ_INT(1) )
 CHECK_INT_POS( t_2 )
 C_ELM_LIST_FPL( t_1, l_known, t_2 )
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return t_1;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* handler for function 11 */
static Obj  HdlrFunc11 (
 Obj  self,
 Obj  a_name,
 Obj  a_domreq,
 Obj  a_keyreq,
 Obj  a_keytest )
{
 Obj l_str = 0;
 Obj t_1 = 0;
 Obj t_2 = 0;
 Obj t_3 = 0;
 Obj t_4 = 0;
 Obj t_5 = 0;
 Obj t_6 = 0;
 Obj t_7 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,4,0,oldFrame);
 ASS_LVAR( 1, a_name );
 ASS_LVAR( 2, a_keytest );
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* if keytest = "prime" then */
 t_2 = OBJ_LVAR( 2 );
 CHECK_BOUND( t_2, "keytest" )
 C_NEW_STRING( t_3, 5, "prime" )
 t_1 = (Obj)(UInt)(EQ( t_2, t_3 ));
 if ( t_1 ) {
  
  /* keytest := function ( key )
      if not IsPrimeInt( key )  then
          Error( name, ": <p> must be a prime" );
      fi;
      return;
  end; */
  t_1 = NewFunction( NameFunc[12], NargFunc[12], NamsFunc[12], HdlrFunc12 );
  ENVI_FUNC( t_1 ) = CurrLVars;
  t_2 = NewBag( T_BODY, 0 );
  BODY_FUNC(t_1) = t_2;
  CHANGED_BAG( CurrLVars );
  ASS_LVAR( 2, t_1 );
  
 }
 /* fi */
 
 /* str := SHALLOW_COPY_OBJ( name ); */
 t_2 = GF_SHALLOW__COPY__OBJ;
 t_3 = OBJ_LVAR( 1 );
 CHECK_BOUND( t_3, "name" )
 t_1 = CALL_1ARGS( t_2, t_3 );
 CHECK_FUNC_RESULT( t_1 )
 l_str = t_1;
 
 /* APPEND_LIST_INTR( str, "Op" ); */
 t_1 = GF_APPEND__LIST__INTR;
 C_NEW_STRING( t_2, 2, "Op" )
 CALL_2ARGS( t_1, l_str, t_2 );
 
 /* DeclareOperation( str, [ domreq, keyreq ] ); */
 t_1 = GF_DeclareOperation;
 t_2 = NEW_PLIST( T_PLIST, 2 );
 SET_LEN_PLIST( t_2, 2 );
 SET_ELM_PLIST( t_2, 1, a_domreq );
 CHANGED_BAG( t_2 );
 SET_ELM_PLIST( t_2, 2, a_keyreq );
 CHANGED_BAG( t_2 );
 CALL_2ARGS( t_1, l_str, t_2 );
 
 /* oper := VALUE_GLOBAL( str ); */
 t_2 = GF_VALUE__GLOBAL;
 t_1 = CALL_1ARGS( t_2, l_str );
 CHECK_FUNC_RESULT( t_1 )
 ASS_LVAR( 3, t_1 );
 
 /* str := "Computed"; */
 C_NEW_STRING( t_1, 8, "Computed" )
 l_str = t_1;
 
 /* APPEND_LIST_INTR( str, name ); */
 t_1 = GF_APPEND__LIST__INTR;
 t_2 = OBJ_LVAR( 1 );
 CHECK_BOUND( t_2, "name" )
 CALL_2ARGS( t_1, l_str, t_2 );
 
 /* APPEND_LIST_INTR( str, "s" ); */
 t_1 = GF_APPEND__LIST__INTR;
 C_NEW_STRING( t_2, 1, "s" )
 CALL_2ARGS( t_1, l_str, t_2 );
 
 /* DeclareAttribute( str, domreq, "mutable" ); */
 t_1 = GF_DeclareAttribute;
 C_NEW_STRING( t_2, 7, "mutable" )
 CALL_3ARGS( t_1, l_str, a_domreq, t_2 );
 
 /* attr := VALUE_GLOBAL( str ); */
 t_2 = GF_VALUE__GLOBAL;
 t_1 = CALL_1ARGS( t_2, l_str );
 CHECK_FUNC_RESULT( t_1 )
 ASS_LVAR( 4, t_1 );
 
 /* InstallMethod( attr, "default method", true, [ domreq ], 0, function ( D )
      return [  ];
  end ); */
 t_1 = GF_InstallMethod;
 t_2 = OBJ_LVAR( 4 );
 CHECK_BOUND( t_2, "attr" )
 C_NEW_STRING( t_3, 14, "default method" )
 t_4 = True;
 t_5 = NEW_PLIST( T_PLIST, 1 );
 SET_LEN_PLIST( t_5, 1 );
 SET_ELM_PLIST( t_5, 1, a_domreq );
 CHANGED_BAG( t_5 );
 t_6 = NewFunction( NameFunc[13], NargFunc[13], NamsFunc[13], HdlrFunc13 );
 ENVI_FUNC( t_6 ) = CurrLVars;
 t_7 = NewBag( T_BODY, 0 );
 BODY_FUNC(t_6) = t_7;
 CHANGED_BAG( CurrLVars );
 CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 );
 
 /* DeclareOperation( name, [ domreq, keyreq ] ); */
 t_1 = GF_DeclareOperation;
 t_2 = OBJ_LVAR( 1 );
 CHECK_BOUND( t_2, "name" )
 t_3 = NEW_PLIST( T_PLIST, 2 );
 SET_LEN_PLIST( t_3, 2 );
 SET_ELM_PLIST( t_3, 1, a_domreq );
 CHANGED_BAG( t_3 );
 SET_ELM_PLIST( t_3, 2, a_keyreq );
 CHANGED_BAG( t_3 );
 CALL_2ARGS( t_1, t_2, t_3 );
 
 /* ADD_LIST( WRAPPER_OPERATIONS, VALUE_GLOBAL( name ) ); */
 t_1 = GF_ADD__LIST;
 t_2 = GC_WRAPPER__OPERATIONS;
 CHECK_BOUND( t_2, "WRAPPER_OPERATIONS" )
 t_4 = GF_VALUE__GLOBAL;
 t_5 = OBJ_LVAR( 1 );
 CHECK_BOUND( t_5, "name" )
 t_3 = CALL_1ARGS( t_4, t_5 );
 CHECK_FUNC_RESULT( t_3 )
 CALL_2ARGS( t_1, t_2, t_3 );
 
 /* InstallOtherMethod( VALUE_GLOBAL( name ), "default method", true, [ domreq, keyreq ], 0, function ( D, key )
      local  known, i, erg;
      keytest( key );
      known := attr( D );
      i := 1;
      while i < LEN_LIST( known ) and known[i] < key  do
          i := i + 2;
      od;
      if LEN_LIST( known ) < i or known[i] <> key  then
          erg := oper( D, key );
          known{[ i + 2 .. LEN_LIST( known ) + 2 ]} := known{[ i .. LEN_LIST( known ) ]};
          known[i] := key;
          known[i + 1] := erg;
      fi;
      return known[i + 1];
  end ); */
 t_1 = GF_InstallOtherMethod;
 t_3 = GF_VALUE__GLOBAL;
 t_4 = OBJ_LVAR( 1 );
 CHECK_BOUND( t_4, "name" )
 t_2 = CALL_1ARGS( t_3, t_4 );
 CHECK_FUNC_RESULT( t_2 )
 C_NEW_STRING( t_3, 14, "default method" )
 t_4 = True;
 t_5 = NEW_PLIST( T_PLIST, 2 );
 SET_LEN_PLIST( t_5, 2 );
 SET_ELM_PLIST( t_5, 1, a_domreq );
 CHANGED_BAG( t_5 );
 SET_ELM_PLIST( t_5, 2, a_keyreq );
 CHANGED_BAG( t_5 );
 t_6 = NewFunction( NameFunc[14], NargFunc[14], NamsFunc[14], HdlrFunc14 );
 ENVI_FUNC( t_6 ) = CurrLVars;
 t_7 = NewBag( T_BODY, 0 );
 BODY_FUNC(t_6) = t_7;
 CHANGED_BAG( CurrLVars );
 CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 );
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* handler for function 16 */
static Obj  HdlrFunc16 (
 Obj  self,
 Obj  a_arg )
{
 Obj t_1 = 0;
 Obj t_2 = 0;
 Obj t_3 = 0;
 Obj t_4 = 0;
 Obj t_5 = 0;
 Obj t_6 = 0;
 Obj t_7 = 0;
 Obj t_8 = 0;
 Obj t_9 = 0;
 Obj t_10 = 0;
 Obj t_11 = 0;
 Obj t_12 = 0;
 Obj t_13 = 0;
 Obj t_14 = 0;
 Obj t_15 = 0;
 Obj t_16 = 0;
 Obj t_17 = 0;
 Obj t_18 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* re := false; */
 t_1 = False;
 ASS_LVAR_1UP( 4, t_1 );
 
 /* for i in [ 1 .. LEN_LIST( reqs ) ] do */
 t_6 = GF_LEN__LIST;
 t_7 = OBJ_LVAR_1UP( 2 );
 CHECK_BOUND( t_7, "reqs" )
 t_5 = CALL_1ARGS( t_6, t_7 );
 CHECK_FUNC_RESULT( t_5 )
 t_4 = Range2Check( INTOBJ_INT(1), t_5 );
 if ( IS_SMALL_LIST(t_4) ) {
  t_3 = (Obj)(UInt)1;
  t_1 = INTOBJ_INT(1);
 }
 else {
  t_3 = (Obj)(UInt)0;
  t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
 }
 while ( 1 ) {
  if ( t_3 ) {
   if ( LEN_LIST(t_4) < INT_INTOBJ(t_1) )  break;
   t_2 = ELMV0_LIST( t_4, INT_INTOBJ(t_1) );
   t_1 = (Obj)(((UInt)t_1)+4);
   if ( t_2 == 0 )  continue;
  }
  else {
   if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
   t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
  }
  ASS_LVAR_1UP( 5, t_2 );
  
  /* re := re or IsBound( cond[i]) and not Tester( cond[i] )( arg[i] ) and cond[i]( arg[i] ) and Tester( cond[i] )( arg[i] ); */
  t_7 = OBJ_LVAR_1UP( 4 );
  CHECK_BOUND( t_7, "re" )
  CHECK_BOOL( t_7 )
  t_6 = (Obj)(UInt)(t_7 != False);
  t_5 = (t_6 ? True : False);
  if ( t_5 == False ) {
   t_12 = OBJ_LVAR_1UP( 3 );
   CHECK_BOUND( t_12, "cond" )
   t_13 = OBJ_LVAR_1UP( 5 );
   CHECK_BOUND( t_13, "i" )
   CHECK_INT_POS( t_13 )
   t_11 = C_ISB_LIST( t_12, t_13 );
   t_10 = (Obj)(UInt)(t_11 != False);
   t_9 = t_10;
   if ( t_9 ) {
    t_15 = GF_Tester;
    t_17 = OBJ_LVAR_1UP( 3 );
    CHECK_BOUND( t_17, "cond" )
    t_18 = OBJ_LVAR_1UP( 5 );
    CHECK_BOUND( t_18, "i" )
    CHECK_INT_POS( t_18 )
    C_ELM_LIST_FPL( t_16, t_17, t_18 )
    t_14 = CALL_1ARGS( t_15, t_16 );
    CHECK_FUNC_RESULT( t_14 )
    CHECK_FUNC( t_14 )
    t_16 = OBJ_LVAR_1UP( 5 );
    CHECK_BOUND( t_16, "i" )
    CHECK_INT_POS( t_16 )
    C_ELM_LIST_FPL( t_15, a_arg, t_16 )
    t_13 = CALL_1ARGS( t_14, t_15 );
    CHECK_FUNC_RESULT( t_13 )
    CHECK_BOOL( t_13 )
    t_12 = (Obj)(UInt)(t_13 != False);
    t_11 = (Obj)(UInt)( ! ((Int)t_12) );
    t_9 = t_11;
   }
   t_8 = t_9;
   if ( t_8 ) {
    t_13 = OBJ_LVAR_1UP( 3 );
    CHECK_BOUND( t_13, "cond" )
    t_14 = OBJ_LVAR_1UP( 5 );
    CHECK_BOUND( t_14, "i" )
    CHECK_INT_POS( t_14 )
    C_ELM_LIST_FPL( t_12, t_13, t_14 )
    CHECK_FUNC( t_12 )
    t_14 = OBJ_LVAR_1UP( 5 );
    CHECK_BOUND( t_14, "i" )
    CHECK_INT_POS( t_14 )
    C_ELM_LIST_FPL( t_13, a_arg, t_14 )
    t_11 = CALL_1ARGS( t_12, t_13 );
    CHECK_FUNC_RESULT( t_11 )
    CHECK_BOOL( t_11 )
    t_10 = (Obj)(UInt)(t_11 != False);
    t_8 = t_10;
   }
   t_7 = t_8;
   if ( t_7 ) {
    t_12 = GF_Tester;
    t_14 = OBJ_LVAR_1UP( 3 );
    CHECK_BOUND( t_14, "cond" )
    t_15 = OBJ_LVAR_1UP( 5 );
    CHECK_BOUND( t_15, "i" )
    CHECK_INT_POS( t_15 )
    C_ELM_LIST_FPL( t_13, t_14, t_15 )
    t_11 = CALL_1ARGS( t_12, t_13 );
    CHECK_FUNC_RESULT( t_11 )
    CHECK_FUNC( t_11 )
    t_13 = OBJ_LVAR_1UP( 5 );
    CHECK_BOUND( t_13, "i" )
    CHECK_INT_POS( t_13 )
    C_ELM_LIST_FPL( t_12, a_arg, t_13 )
    t_10 = CALL_1ARGS( t_11, t_12 );
    CHECK_FUNC_RESULT( t_10 )
    CHECK_BOOL( t_10 )
    t_9 = (Obj)(UInt)(t_10 != False);
    t_7 = t_9;
   }
   t_5 = (t_7 ? True : False);
  }
  ASS_LVAR_1UP( 4, t_5 );
  
 }
 /* od */
 
 /* if re then */
 t_2 = OBJ_LVAR_1UP( 4 );
 CHECK_BOUND( t_2, "re" )
 CHECK_BOOL( t_2 )
 t_1 = (Obj)(UInt)(t_2 != False);
 if ( t_1 ) {
  
  /* return CallFuncList( oper, arg ); */
  t_2 = GF_CallFuncList;
  t_3 = OBJ_LVAR_1UP( 1 );
  CHECK_BOUND( t_3, "oper" )
  t_1 = CALL_2ARGS( t_2, t_3, a_arg );
  CHECK_FUNC_RESULT( t_1 )
  RES_BRK_CURR_STAT();
  SWITCH_TO_OLD_FRAME(oldFrame);
  return t_1;
  
 }
 
 /* else */
 else {
  
  /* return TRY_NEXT_METHOD; */
  t_1 = GC_TRY__NEXT__METHOD;
  CHECK_BOUND( t_1, "TRY_NEXT_METHOD" )
  RES_BRK_CURR_STAT();
  SWITCH_TO_OLD_FRAME(oldFrame);
  return t_1;
  
 }
 /* fi */
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* handler for function 15 */
static Obj  HdlrFunc15 (
 Obj  self,
 Obj  a_oper,
 Obj  a_fampred,
 Obj  a_reqs,
 Obj  a_cond,
 Obj  a_val )
{
 Obj t_1 = 0;
 Obj t_2 = 0;
 Obj t_3 = 0;
 Obj t_4 = 0;
 Obj t_5 = 0;
 Obj t_6 = 0;
 Obj t_7 = 0;
 Obj t_8 = 0;
 Obj t_9 = 0;
 Obj t_10 = 0;
 Obj t_11 = 0;
 Obj t_12 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,5,0,oldFrame);
 ASS_LVAR( 1, a_oper );
 ASS_LVAR( 2, a_reqs );
 ASS_LVAR( 3, a_cond );
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* for i in reqs do */
 t_4 = OBJ_LVAR( 2 );
 CHECK_BOUND( t_4, "reqs" )
 if ( IS_SMALL_LIST(t_4) ) {
  t_3 = (Obj)(UInt)1;
  t_1 = INTOBJ_INT(1);
 }
 else {
  t_3 = (Obj)(UInt)0;
  t_1 = CALL_1ARGS( GF_ITERATOR, t_4 );
 }
 while ( 1 ) {
  if ( t_3 ) {
   if ( LEN_LIST(t_4) < INT_INTOBJ(t_1) )  break;
   t_2 = ELMV0_LIST( t_4, INT_INTOBJ(t_1) );
   t_1 = (Obj)(((UInt)t_1)+4);
   if ( t_2 == 0 )  continue;
  }
  else {
   if ( CALL_1ARGS( GF_IS_DONE_ITER, t_1 ) != False )  break;
   t_2 = CALL_1ARGS( GF_NEXT_ITER, t_1 );
  }
  ASS_LVAR( 5, t_2 );
  
  /* val := val - SIZE_FLAGS( WITH_HIDDEN_IMPS_FLAGS( FLAGS_FILTER( i ) ) ); */
  t_7 = GF_SIZE__FLAGS;
  t_9 = GF_WITH__HIDDEN__IMPS__FLAGS;
  t_11 = GF_FLAGS__FILTER;
  t_12 = OBJ_LVAR( 5 );
  CHECK_BOUND( t_12, "i" )
  t_10 = CALL_1ARGS( t_11, t_12 );
  CHECK_FUNC_RESULT( t_10 )
  t_8 = CALL_1ARGS( t_9, t_10 );
  CHECK_FUNC_RESULT( t_8 )
  t_6 = CALL_1ARGS( t_7, t_8 );
  CHECK_FUNC_RESULT( t_6 )
  C_DIFF( t_5, a_val, t_6 )
  a_val = t_5;
  
 }
 /* od */
 
 /* InstallOtherMethod( oper, "fallback method to test conditions", fampred, reqs, val, function ( arg )
      re := false;
      for i  in [ 1 .. LEN_LIST( reqs ) ]  do
          re := re or IsBound( cond[i]) and not Tester( cond[i] )( arg[i] ) and cond[i]( arg[i] ) and Tester( cond[i] )( arg[i] );
      od;
      if re  then
          return CallFuncList( oper, arg );
      else
          return TRY_NEXT_METHOD;
      fi;
      return;
  end ); */
 t_1 = GF_InstallOtherMethod;
 t_2 = OBJ_LVAR( 1 );
 CHECK_BOUND( t_2, "oper" )
 C_NEW_STRING( t_3, 34, "fallback method to test conditions" )
 t_4 = OBJ_LVAR( 2 );
 CHECK_BOUND( t_4, "reqs" )
 t_5 = NewFunction( NameFunc[16], NargFunc[16], NamsFunc[16], HdlrFunc16 );
 ENVI_FUNC( t_5 ) = CurrLVars;
 t_6 = NewBag( T_BODY, 0 );
 BODY_FUNC(t_5) = t_6;
 CHANGED_BAG( CurrLVars );
 CALL_6ARGS( t_1, t_2, t_3, a_fampred, t_4, a_val, t_5 );
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* handler for function 1 */
static Obj  HdlrFunc1 (
 Obj  self )
{
 Obj t_1 = 0;
 Obj t_2 = 0;
 Obj t_3 = 0;
 Obj t_4 = 0;
 Obj t_5 = 0;
 Obj t_6 = 0;
 Bag oldFrame;
 OLD_BRK_CURR_STAT
 
 /* allocate new stack frame */
 SWITCH_TO_NEW_FRAME(self,0,0,oldFrame);
 REM_BRK_CURR_STAT();
 SET_BRK_CURR_STAT(0);
 
 /* Revision.oper1_g := "@(#)$Id: c_oper1.c,v 4.27.2.2 2005/08/11 08:32:23 gap Exp $"; */
 t_1 = GC_Revision;
 CHECK_BOUND( t_1, "Revision" )
 C_NEW_STRING( t_2, 57, "@(#)$Id: c_oper1.c,v 4.27.2.2 2005/08/11 08:32:23 gap Exp $" )
 ASS_REC( t_1, R_oper1__g, t_2 );
 
 /* RUN_IMMEDIATE_METHODS_CHECKS := 0; */
 AssGVar( G_RUN__IMMEDIATE__METHODS__CHECKS, INTOBJ_INT(0) );
 
 /* RUN_IMMEDIATE_METHODS_HITS := 0; */
 AssGVar( G_RUN__IMMEDIATE__METHODS__HITS, INTOBJ_INT(0) );
 
 /* BIND_GLOBAL( "RunImmediateMethods", function ( obj, flags )
      local  flagspos, tried, type, j, imm, i, res, newflags;
      if IGNORE_IMMEDIATE_METHODS  then
          return;
      fi;
      if IS_SUBSET_FLAGS( IMM_FLAGS, flags )  then
          return;
      fi;
      flags := SUB_FLAGS( flags, IMM_FLAGS );
      flagspos := SHALLOW_COPY_OBJ( TRUES_FLAGS( flags ) );
      tried := [  ];
      type := TYPE_OBJ( obj );
      flags := type![2];
      for j  in flagspos  do
          if IsBound( IMMEDIATES[j])  then
              imm := IMMEDIATES[j];
              for i  in [ 0, 7 .. LEN_LIST( imm ) - 7 ]  do
                  if IS_SUBSET_FLAGS( flags, imm[i + 4] ) and not IS_SUBSET_FLAGS( flags, imm[i + 3] ) and not imm[i + 6] in tried  then
                      res := IMMEDIATE_METHODS[imm[i + 6]]( obj );
                      ADD_LIST( tried, imm[i + 6] );
                      RUN_IMMEDIATE_METHODS_CHECKS := RUN_IMMEDIATE_METHODS_CHECKS + 1;
                      if TRACE_IMMEDIATE_METHODS  then
                          Print( "#I  immediate: ", imm[i + 7], "\n" );
                      fi;
                      if res <> TRY_NEXT_METHOD  then
                          IGNORE_IMMEDIATE_METHODS := true;
                          imm[i + 2]( obj, res );
                          IGNORE_IMMEDIATE_METHODS := false;
                          RUN_IMMEDIATE_METHODS_HITS := RUN_IMMEDIATE_METHODS_HITS + 1;
                          if not IS_IDENTICAL_OBJ( TYPE_OBJ( obj ), type )  then
                              type := TYPE_OBJ( obj );
                              newflags := SUB_FLAGS( type![2], IMM_FLAGS );
                              newflags := SUB_FLAGS( newflags, flags );
                              APPEND_LIST_INTR( flagspos, TRUES_FLAGS( newflags ) );
                              flags := type![2];
                          fi;
                      fi;
                  fi;
              od;
          fi;
      od;
      return;
  end ); */
 t_1 = GF_BIND__GLOBAL;
 C_NEW_STRING( t_2, 19, "RunImmediateMethods" )
 t_3 = NewFunction( NameFunc[2], NargFunc[2], NamsFunc[2], HdlrFunc2 );
 ENVI_FUNC( t_3 ) = CurrLVars;
 t_4 = NewBag( T_BODY, 0 );
 BODY_FUNC(t_3) = t_4;
 CHANGED_BAG( CurrLVars );
 CALL_2ARGS( t_1, t_2, t_3 );
 
 /* BIND_GLOBAL( "INSTALL_METHOD_FLAGS", function ( opr, info, rel, flags, rank, method )
      local  methods, narg, i, k, tmp, replace, match, j;
      if opr in CONSTRUCTORS  then
          if 0 < LEN_LIST( flags )  then
              rank := rank - RankFilter( flags[1] );
          fi;
      else
          for i  in flags  do
              rank := rank + RankFilter( i );
          od;
      fi;
      narg := LEN_LIST( flags );
      methods := METHODS_OPERATION( opr, narg );
      if info = false  then
          info := NAME_FUNC( opr );
      else
          k := SHALLOW_COPY_OBJ( NAME_FUNC( opr ) );
          APPEND_LIST_INTR( k, ": " );
          APPEND_LIST_INTR( k, info );
          info := k;
          CONV_STRING( info );
      fi;
      i := 0;
      while i < LEN_LIST( methods ) and rank < methods[i + (narg + 3)]  do
          i := i + (narg + 4);
      od;
      replace := false;
      if REREADING  then
          k := i;
          while k < LEN_LIST( methods ) and rank = methods[k + narg + 3]  do
              if info = methods[k + narg + 4]  then
                  match := false;
                  for j  in [ 1 .. narg ]  do
                      match := match and methods[k + j + 1] = flags[j];
                  od;
                  if match  then
                      replace := true;
                      i := k;
                      break;
                  fi;
              fi;
              k := k + narg + 4;
          od;
      fi;
      if not REREADING or not replace  then
          methods{[ narg + 4 + i + 1 .. narg + 4 + LEN_LIST( methods ) ]} := methods{[ i + 1 .. LEN_LIST( methods ) ]};
      fi;
      if rel = true  then
          methods[i + 1] := RETURN_TRUE;
      elif rel = false  then
          methods[i + 1] := RETURN_FALSE;
      elif IS_FUNCTION( rel )  then
          if CHECK_INSTALL_METHOD  then
              tmp := NARG_FUNC( rel );
              if tmp <> AINV( 1 ) and tmp <> narg  then
                  Error( NAME_FUNC( opr ), ": <famrel> must accept ", narg, " arguments" );
              fi;
          fi;
          methods[i + 1] := rel;
      else
          Error( NAME_FUNC( opr ), ": <famrel> must be a function, `true', or `false'" );
      fi;
      for k  in [ 1 .. narg ]  do
          methods[i + k + 1] := flags[k];
      od;
      if method = true  then
          methods[i + (narg + 2)] := RETURN_TRUE;
      elif method = false  then
          methods[i + (narg + 2)] := RETURN_FALSE;
      elif IS_FUNCTION( method )  then
          if CHECK_INSTALL_METHOD and not IS_OPERATION( method )  then
              tmp := NARG_FUNC( method );
              if tmp <> AINV( 1 ) and tmp <> narg  then
                  Error( NAME_FUNC( opr ), ": <method> must accept ", narg, " arguments" );
              fi;
          fi;
          methods[i + (narg + 2)] := method;
      else
          Error( NAME_FUNC( opr ), ": <method> must be a function, `true', or `false'" );
      fi;
      methods[i + (narg + 3)] := rank;
      methods[i + (narg + 4)] := IMMUTABLE_COPY_OBJ( info );
      CHANGED_METHODS_OPERATION( opr, narg );
      return;
  end ); */
 t_1 = GF_BIND__GLOBAL;
 C_NEW_STRING( t_2, 20, "INSTALL_METHOD_FLAGS" )
 t_3 = NewFunction( NameFunc[3], NargFunc[3], NamsFunc[3], HdlrFunc3 );
 ENVI_FUNC( t_3 ) = CurrLVars;
 t_4 = NewBag( T_BODY, 0 );
 BODY_FUNC(t_3) = t_4;
 CHANGED_BAG( CurrLVars );
 CALL_2ARGS( t_1, t_2, t_3 );
 
 /* BIND_GLOBAL( "INFO_INSTALL", function ( arg )
      CALL_FUNC_LIST( Print, arg{[ 2 .. LEN_LIST( arg ) ]} );
      Print( "\n" );
      return;
  end ); */
 t_1 = GF_BIND__GLOBAL;
 C_NEW_STRING( t_2, 12, "INFO_INSTALL" )
 t_3 = NewFunction( NameFunc[4], NargFunc[4], NamsFunc[4], HdlrFunc4 );
 ENVI_FUNC( t_3 ) = CurrLVars;
 t_4 = NewBag( T_BODY, 0 );
 BODY_FUNC(t_3) = t_4;
 CHANGED_BAG( CurrLVars );
 CALL_2ARGS( t_1, t_2, t_3 );
 
 /* BIND_GLOBAL( "InstallMethod", function ( arg )
      INSTALL_METHOD( arg, true );
      return;
  end ); */
 t_1 = GF_BIND__GLOBAL;
 C_NEW_STRING( t_2, 13, "InstallMethod" )
 t_3 = NewFunction( NameFunc[5], NargFunc[5], NamsFunc[5], HdlrFunc5 );
 ENVI_FUNC( t_3 ) = CurrLVars;
 t_4 = NewBag( T_BODY, 0 );
 BODY_FUNC(t_3) = t_4;
 CHANGED_BAG( CurrLVars );
 CALL_2ARGS( t_1, t_2, t_3 );
 
 /* BIND_GLOBAL( "InstallOtherMethod", function ( arg )
      INSTALL_METHOD( arg, false );
      return;
  end ); */
 t_1 = GF_BIND__GLOBAL;
 C_NEW_STRING( t_2, 18, "InstallOtherMethod" )
 t_3 = NewFunction( NameFunc[6], NargFunc[6], NamsFunc[6], HdlrFunc6 );
 ENVI_FUNC( t_3 ) = CurrLVars;
 t_4 = NewBag( T_BODY, 0 );
 BODY_FUNC(t_3) = t_4;
 CHANGED_BAG( CurrLVars );
 CALL_2ARGS( t_1, t_2, t_3 );
 
 /* DeclareGlobalFunction( "EvalString" ); */
 t_1 = GF_DeclareGlobalFunction;
 C_NEW_STRING( t_2, 10, "EvalString" )
 CALL_1ARGS( t_1, t_2 );
 
 /* Unbind( INSTALL_METHOD ); */
 AssGVar( G_INSTALL__METHOD, 0 );
 
 /* BIND_GLOBAL( "INSTALL_METHOD", function ( arglist, check )
      local  len, opr, info, pos, rel, filters, info1, isstr, flags, i, rank, method, req, reqs, match, j, k, imp, notmatch;
      len := LEN_LIST( arglist );
      if len < 3  then
          Error( "too few arguments given in <arglist>" );
      fi;
      opr := arglist[1];
      if not IS_OPERATION( opr )  then
          Error( "<opr> is not an operation" );
      fi;
      if IS_STRING_REP( arglist[2] )  then
          info := arglist[2];
          pos := 3;
      else
          info := false;
          pos := 2;
      fi;
      if arglist[pos] = true or IS_FUNCTION( arglist[pos] )  then
          rel := arglist[pos];
          pos := pos + 1;
      else
          rel := true;
      fi;
      if not IsBound( arglist[pos]) or not IS_LIST( arglist[pos] )  then
          Error( "<arglist>[", pos, "] must be a list of filters" );
      fi;
      filters := arglist[pos];
      if 0 < LEN_LIST( filters )  then
          info1 := "[ ";
          isstr := true;
          for i  in [ 1 .. LEN_LIST( filters ) ]  do
              if IS_STRING_REP( filters[i] )  then
                  APPEND_LIST_INTR( info1, filters[i] );
                  APPEND_LIST_INTR( info1, ", " );
                  filters[i] := EvalString( filters[i] );
                  if not IS_FUNCTION( filters[i] )  then
                      Error( "string does not evaluate to a function" );
                  fi;
              else
                  isstr := false;
                  break;
              fi;
          od;
          if isstr and info = false  then
              info1[LEN_LIST( info1 ) - 1] := ' ';
              info1[LEN_LIST( info1 )] := ']';
              info := info1;
          fi;
      fi;
      pos := pos + 1;
      flags := [  ];
      for i  in filters  do
          ADD_LIST( flags, FLAGS_FILTER( i ) );
      od;
      if not IsBound( arglist[pos])  then
          Error( "the method is missing in <arglist>" );
      elif IS_INT( arglist[pos] )  then
          rank := arglist[pos];
          pos := pos + 1;
      else
          rank := 0;
      fi;
      if not IsBound( arglist[pos])  then
          Error( "the method is missing in <arglist>" );
      fi;
      method := arglist[pos];
      if FLAG1_FILTER( opr ) <> 0 and (rel = true or rel = RETURN_TRUE) and LEN_LIST( filters ) = 1 and (method = true or method = RETURN_TRUE)  then
          Error( NAME_FUNC( opr ), ": use `InstallTrueMethod' for <opr>" );
      fi;
      if CHECK_INSTALL_METHOD and check  then
          if opr in WRAPPER_OPERATIONS  then
              INFO_INSTALL( 1, "a method is installed for the wrapper operation ", NAME_FUNC( opr ), "\n", "#I  probably it should be installed for (one of) its\n", "#I  underlying operation(s)" );
          fi;
          req := false;
          for i  in [ 1, 3 .. LEN_LIST( OPERATIONS ) - 1 ]  do
              if IS_IDENTICAL_OBJ( OPERATIONS[i], opr )  then
                  req := OPERATIONS[i + 1];
                  break;
              fi;
          od;
          if req = false  then
              Error( "unknown operation ", NAME_FUNC( opr ) );
          fi;
          imp := [  ];
          for i  in flags  do
              ADD_LIST( imp, WITH_HIDDEN_IMPS_FLAGS( i ) );
          od;
          j := 0;
          match := false;
          notmatch := 0;
          while j < LEN_LIST( req ) and not match  do
              j := j + 1;
              reqs := req[j];
              if LEN_LIST( reqs ) = LEN_LIST( imp )  then
                  match := true;
                  for i  in [ 1 .. LEN_LIST( reqs ) ]  do
                      if not IS_SUBSET_FLAGS( imp[i], reqs[i] )  then
                          match := false;
                          notmatch := i;
                          break;
                      fi;
                  od;
                  if match  then
                      break;
                  fi;
              fi;
          od;
          if not match  then
              if notmatch = 0  then
                  Error( "the number of arguments does not match a declaration of ", NAME_FUNC( opr ) );
              else
                  Error( "required filters ", NamesFilter( imp[notmatch] ), "\nfor ", Ordinal( notmatch ), " argument do not match a declaration of ", NAME_FUNC( opr ) );
              fi;
          else
              for k  in [ j + 1 .. LEN_LIST( req ) ]  do
                  reqs := req[k];
                  if LEN_LIST( reqs ) = LEN_LIST( imp )  then
                      match := true;
                      for i  in [ 1 .. LEN_LIST( reqs ) ]  do
                          if not IS_SUBSET_FLAGS( imp[i], reqs[i] )  then
                              match := false;
                              break;
                          fi;
                      od;
                      if match  then
                          INFO_INSTALL( 1, "method installed for ", NAME_FUNC( opr ), " matches more than one declaration" );
                      fi;
                  fi;
              od;
          fi;
      fi;
      INSTALL_METHOD_FLAGS( opr, info, rel, flags, rank, method );
      return;
  end ); */
 t_1 = GF_BIND__GLOBAL;
 C_NEW_STRING( t_2, 14, "INSTALL_METHOD" )
 t_3 = NewFunction( NameFunc[7], NargFunc[7], NamsFunc[7], HdlrFunc7 );
 ENVI_FUNC( t_3 ) = CurrLVars;
 t_4 = NewBag( T_BODY, 0 );
 BODY_FUNC(t_3) = t_4;
 CHANGED_BAG( CurrLVars );
 CALL_2ARGS( t_1, t_2, t_3 );
 
 /* LENGTH_SETTER_METHODS_2 := LENGTH_SETTER_METHODS_2 + 6; */
 t_2 = GC_LENGTH__SETTER__METHODS__2;
 CHECK_BOUND( t_2, "LENGTH_SETTER_METHODS_2" )
 C_SUM( t_1, t_2, INTOBJ_INT(6) )
 AssGVar( G_LENGTH__SETTER__METHODS__2, t_1 );
 
 /* InstallAttributeFunction( function ( name, filter, getter, setter, tester, mutflag )
      local  flags, rank, cats, props, i;
      if not IS_IDENTICAL_OBJ( filter, IS_OBJECT )  then
          flags := FLAGS_FILTER( filter );
          rank := 0;
          cats := IS_OBJECT;
          props := [  ];
          for i  in [ 1 .. LEN_FLAGS( flags ) ]  do
              if ELM_FLAGS( flags, i )  then
                  if i in CATS_AND_REPS  then
                      cats := cats and FILTERS[i];
                      rank := rank - RankFilter( FILTERS[i] );
                  elif i in NUMBERS_PROPERTY_GETTERS  then
                      ADD_LIST( props, FILTERS[i] );
                  fi;
              fi;
          od;
          if 0 < LEN_LIST( props )  then
              InstallOtherMethod( getter, "default method requiring categories and checking properties", true, [ cats ], rank, function ( obj )
                    local  found, prop;
                    found := false;
                    for prop  in props  do
                        if not Tester( prop )( obj )  then
                            found := true;
                            if not (prop( obj ) and Tester( prop )( obj ))  then
                                return TRY_NEXT_METHOD;
                            fi;
                        fi;
                    od;
                    if found  then
                        return getter( obj );
                    else
                        return TRY_NEXT_METHOD;
                    fi;
                    return;
                end );
          fi;
      fi;
      return;
  end ); */
 t_1 = GF_InstallAttributeFunction;
 t_2 = NewFunction( NameFunc[8], NargFunc[8], NamsFunc[8], HdlrFunc8 );
 ENVI_FUNC( t_2 ) = CurrLVars;
 t_3 = NewBag( T_BODY, 0 );
 BODY_FUNC(t_2) = t_3;
 CHANGED_BAG( CurrLVars );
 CALL_1ARGS( t_1, t_2 );
 
 /* InstallAttributeFunction( function ( name, filter, getter, setter, tester, mutflag )
      InstallOtherMethod( setter, "default method, does nothing", true, [ IS_OBJECT, IS_OBJECT ], 0, DO_NOTHING_SETTER );
      return;
  end ); */
 t_1 = GF_InstallAttributeFunction;
 t_2 = NewFunction( NameFunc[10], NargFunc[10], NamsFunc[10], HdlrFunc10 );
 ENVI_FUNC( t_2 ) = CurrLVars;
 t_3 = NewBag( T_BODY, 0 );
 BODY_FUNC(t_2) = t_3;
 CHANGED_BAG( CurrLVars );
 CALL_1ARGS( t_1, t_2 );
 
 /* IsPrimeInt := "2b defined"; */
 C_NEW_STRING( t_1, 10, "2b defined" )
 AssGVar( G_IsPrimeInt, t_1 );
 
 /* BIND_GLOBAL( "KeyDependentOperation", function ( name, domreq, keyreq, keytest )
      local  str, oper, attr;
      if keytest = "prime"  then
          keytest := function ( key )
                if not IsPrimeInt( key )  then
                    Error( name, ": <p> must be a prime" );
                fi;
                return;
            end;
      fi;
      str := SHALLOW_COPY_OBJ( name );
      APPEND_LIST_INTR( str, "Op" );
      DeclareOperation( str, [ domreq, keyreq ] );
      oper := VALUE_GLOBAL( str );
      str := "Computed";
      APPEND_LIST_INTR( str, name );
      APPEND_LIST_INTR( str, "s" );
      DeclareAttribute( str, domreq, "mutable" );
      attr := VALUE_GLOBAL( str );
      InstallMethod( attr, "default method", true, [ domreq ], 0, function ( D )
            return [  ];
        end );
      DeclareOperation( name, [ domreq, keyreq ] );
      ADD_LIST( WRAPPER_OPERATIONS, VALUE_GLOBAL( name ) );
      InstallOtherMethod( VALUE_GLOBAL( name ), "default method", true, [ domreq, keyreq ], 0, function ( D, key )
            local  known, i, erg;
            keytest( key );
            known := attr( D );
            i := 1;
            while i < LEN_LIST( known ) and known[i] < key  do
                i := i + 2;
            od;
            if LEN_LIST( known ) < i or known[i] <> key  then
                erg := oper( D, key );
                known{[ i + 2 .. LEN_LIST( known ) + 2 ]} := known{[ i .. LEN_LIST( known ) ]};
                known[i] := key;
                known[i + 1] := erg;
            fi;
            return known[i + 1];
        end );
      return;
  end ); */
 t_1 = GF_BIND__GLOBAL;
 C_NEW_STRING( t_2, 21, "KeyDependentOperation" )
 t_3 = NewFunction( NameFunc[11], NargFunc[11], NamsFunc[11], HdlrFunc11 );
 ENVI_FUNC( t_3 ) = CurrLVars;
 t_4 = NewBag( T_BODY, 0 );
 BODY_FUNC(t_3) = t_4;
 CHANGED_BAG( CurrLVars );
 CALL_2ARGS( t_1, t_2, t_3 );
 
 /* CallFuncList := "2b defined"; */
 C_NEW_STRING( t_1, 10, "2b defined" )
 AssGVar( G_CallFuncList, t_1 );
 
 /* BIND_GLOBAL( "RedispatchOnCondition", function ( oper, fampred, reqs, cond, val )
      local  re, i;
      for i  in reqs  do
          val := val - SIZE_FLAGS( WITH_HIDDEN_IMPS_FLAGS( FLAGS_FILTER( i ) ) );
      od;
      InstallOtherMethod( oper, "fallback method to test conditions", fampred, reqs, val, function ( arg )
            re := false;
            for i  in [ 1 .. LEN_LIST( reqs ) ]  do
                re := re or IsBound( cond[i]) and not Tester( cond[i] )( arg[i] ) and cond[i]( arg[i] ) and Tester( cond[i] )( arg[i] );
            od;
            if re  then
                return CallFuncList( oper, arg );
            else
                return TRY_NEXT_METHOD;
            fi;
            return;
        end );
      return;
  end ); */
 t_1 = GF_BIND__GLOBAL;
 C_NEW_STRING( t_2, 21, "RedispatchOnCondition" )
 t_3 = NewFunction( NameFunc[15], NargFunc[15], NamsFunc[15], HdlrFunc15 );
 ENVI_FUNC( t_3 ) = CurrLVars;
 t_4 = NewBag( T_BODY, 0 );
 BODY_FUNC(t_3) = t_4;
 CHANGED_BAG( CurrLVars );
 CALL_2ARGS( t_1, t_2, t_3 );
 
 /* InstallMethod( ViewObj, "default method using `PrintObj'", true, [ IS_OBJECT ], 0, PRINT_OBJ ); */
 t_1 = GF_InstallMethod;
 t_2 = GC_ViewObj;
 CHECK_BOUND( t_2, "ViewObj" )
 C_NEW_STRING( t_3, 31, "default method using `PrintObj'" )
 t_4 = True;
 t_5 = NEW_PLIST( T_PLIST, 1 );
 SET_LEN_PLIST( t_5, 1 );
 t_6 = GC_IS__OBJECT;
 CHECK_BOUND( t_6, "IS_OBJECT" )
 SET_ELM_PLIST( t_5, 1, t_6 );
 CHANGED_BAG( t_5 );
 t_6 = GC_PRINT__OBJ;
 CHECK_BOUND( t_6, "PRINT_OBJ" )
 CALL_6ARGS( t_1, t_2, t_3, t_4, t_5, INTOBJ_INT(0), t_6 );
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
 
 /* return; */
 RES_BRK_CURR_STAT();
 SWITCH_TO_OLD_FRAME(oldFrame);
 return 0;
}

/* 'InitKernel' sets up data structures, fopies, copies, handlers */
static Int InitKernel ( StructInitInfo * module )
{
 
 /* global variables used in handlers */
 InitCopyGVar( "REREADING", &GC_REREADING );
 InitFopyGVar( "SHALLOW_COPY_OBJ", &GF_SHALLOW__COPY__OBJ );
 InitCopyGVar( "PRINT_OBJ", &GC_PRINT__OBJ );
 InitFopyGVar( "IS_FUNCTION", &GF_IS__FUNCTION );
 InitFopyGVar( "CALL_FUNC_LIST", &GF_CALL__FUNC__LIST );
 InitFopyGVar( "NAME_FUNC", &GF_NAME__FUNC );
 InitFopyGVar( "NARG_FUNC", &GF_NARG__FUNC );
 InitFopyGVar( "IS_OPERATION", &GF_IS__OPERATION );
 InitFopyGVar( "AINV", &GF_AINV );
 InitFopyGVar( "IS_INT", &GF_IS__INT );
 InitFopyGVar( "IS_LIST", &GF_IS__LIST );
 InitFopyGVar( "ADD_LIST", &GF_ADD__LIST );
 InitFopyGVar( "IS_STRING_REP", &GF_IS__STRING__REP );
 InitFopyGVar( "TYPE_OBJ", &GF_TYPE__OBJ );
 InitFopyGVar( "IMMUTABLE_COPY_OBJ", &GF_IMMUTABLE__COPY__OBJ );
 InitFopyGVar( "IS_IDENTICAL_OBJ", &GF_IS__IDENTICAL__OBJ );
 InitCopyGVar( "IS_OBJECT", &GC_IS__OBJECT );
 InitCopyGVar( "TRY_NEXT_METHOD", &GC_TRY__NEXT__METHOD );
 InitFopyGVar( "SUB_FLAGS", &GF_SUB__FLAGS );
 InitFopyGVar( "IS_SUBSET_FLAGS", &GF_IS__SUBSET__FLAGS );
 InitFopyGVar( "TRUES_FLAGS", &GF_TRUES__FLAGS );
 InitFopyGVar( "SIZE_FLAGS", &GF_SIZE__FLAGS );
 InitFopyGVar( "LEN_FLAGS", &GF_LEN__FLAGS );
 InitFopyGVar( "ELM_FLAGS", &GF_ELM__FLAGS );
 InitFopyGVar( "FLAG1_FILTER", &GF_FLAG1__FILTER );
 InitFopyGVar( "FLAGS_FILTER", &GF_FLAGS__FILTER );
 InitFopyGVar( "METHODS_OPERATION", &GF_METHODS__OPERATION );
 InitFopyGVar( "CHANGED_METHODS_OPERATION", &GF_CHANGED__METHODS__OPERATION );
 InitCopyGVar( "DO_NOTHING_SETTER", &GC_DO__NOTHING__SETTER );
 InitCopyGVar( "RETURN_TRUE", &GC_RETURN__TRUE );
 InitCopyGVar( "RETURN_FALSE", &GC_RETURN__FALSE );
 InitFopyGVar( "LEN_LIST", &GF_LEN__LIST );
 InitFopyGVar( "APPEND_LIST_INTR", &GF_APPEND__LIST__INTR );
 InitFopyGVar( "CONV_STRING", &GF_CONV__STRING );
 InitCopyGVar( "Print", &GC_Print );
 InitFopyGVar( "Print", &GF_Print );
 InitFopyGVar( "Error", &GF_Error );
 InitCopyGVar( "Revision", &GC_Revision );
 InitCopyGVar( "ViewObj", &GC_ViewObj );
 InitCopyGVar( "RUN_IMMEDIATE_METHODS_CHECKS", &GC_RUN__IMMEDIATE__METHODS__CHECKS );
 InitCopyGVar( "RUN_IMMEDIATE_METHODS_HITS", &GC_RUN__IMMEDIATE__METHODS__HITS );
 InitFopyGVar( "BIND_GLOBAL", &GF_BIND__GLOBAL );
 InitCopyGVar( "IGNORE_IMMEDIATE_METHODS", &GC_IGNORE__IMMEDIATE__METHODS );
 InitCopyGVar( "IMM_FLAGS", &GC_IMM__FLAGS );
 InitCopyGVar( "IMMEDIATES", &GC_IMMEDIATES );
 InitCopyGVar( "IMMEDIATE_METHODS", &GC_IMMEDIATE__METHODS );
 InitCopyGVar( "TRACE_IMMEDIATE_METHODS", &GC_TRACE__IMMEDIATE__METHODS );
 InitCopyGVar( "CONSTRUCTORS", &GC_CONSTRUCTORS );
 InitFopyGVar( "RankFilter", &GF_RankFilter );
 InitCopyGVar( "CHECK_INSTALL_METHOD", &GC_CHECK__INSTALL__METHOD );
 InitFopyGVar( "INSTALL_METHOD", &GF_INSTALL__METHOD );
 InitFopyGVar( "DeclareGlobalFunction", &GF_DeclareGlobalFunction );
 InitFopyGVar( "EvalString", &GF_EvalString );
 InitCopyGVar( "WRAPPER_OPERATIONS", &GC_WRAPPER__OPERATIONS );
 InitFopyGVar( "INFO_INSTALL", &GF_INFO__INSTALL );
 InitCopyGVar( "OPERATIONS", &GC_OPERATIONS );
 InitFopyGVar( "WITH_HIDDEN_IMPS_FLAGS", &GF_WITH__HIDDEN__IMPS__FLAGS );
 InitFopyGVar( "NamesFilter", &GF_NamesFilter );
 InitFopyGVar( "Ordinal", &GF_Ordinal );
 InitFopyGVar( "INSTALL_METHOD_FLAGS", &GF_INSTALL__METHOD__FLAGS );
 InitCopyGVar( "LENGTH_SETTER_METHODS_2", &GC_LENGTH__SETTER__METHODS__2 );
 InitFopyGVar( "InstallAttributeFunction", &GF_InstallAttributeFunction );
 InitCopyGVar( "CATS_AND_REPS", &GC_CATS__AND__REPS );
 InitCopyGVar( "FILTERS", &GC_FILTERS );
 InitCopyGVar( "NUMBERS_PROPERTY_GETTERS", &GC_NUMBERS__PROPERTY__GETTERS );
 InitFopyGVar( "InstallOtherMethod", &GF_InstallOtherMethod );
 InitFopyGVar( "Tester", &GF_Tester );
 InitFopyGVar( "IsPrimeInt", &GF_IsPrimeInt );
 InitFopyGVar( "DeclareOperation", &GF_DeclareOperation );
 InitFopyGVar( "VALUE_GLOBAL", &GF_VALUE__GLOBAL );
 InitFopyGVar( "DeclareAttribute", &GF_DeclareAttribute );
 InitFopyGVar( "InstallMethod", &GF_InstallMethod );
 InitFopyGVar( "CallFuncList", &GF_CallFuncList );
 
 /* information for the functions */
 InitGlobalBag( &DefaultName, "GAPROOT/lib/oper1.g:DefaultName(-93145418)" );
 InitHandlerFunc( HdlrFunc1, "GAPROOT/lib/oper1.g:HdlrFunc1(-93145418)" );
 InitGlobalBag( &(NameFunc[1]), "GAPROOT/lib/oper1.g:NameFunc[1](-93145418)" );
 InitHandlerFunc( HdlrFunc2, "GAPROOT/lib/oper1.g:HdlrFunc2(-93145418)" );
 InitGlobalBag( &(NameFunc[2]), "GAPROOT/lib/oper1.g:NameFunc[2](-93145418)" );
 InitHandlerFunc( HdlrFunc3, "GAPROOT/lib/oper1.g:HdlrFunc3(-93145418)" );
 InitGlobalBag( &(NameFunc[3]), "GAPROOT/lib/oper1.g:NameFunc[3](-93145418)" );
 InitHandlerFunc( HdlrFunc4, "GAPROOT/lib/oper1.g:HdlrFunc4(-93145418)" );
 InitGlobalBag( &(NameFunc[4]), "GAPROOT/lib/oper1.g:NameFunc[4](-93145418)" );
 InitHandlerFunc( HdlrFunc5, "GAPROOT/lib/oper1.g:HdlrFunc5(-93145418)" );
 InitGlobalBag( &(NameFunc[5]), "GAPROOT/lib/oper1.g:NameFunc[5](-93145418)" );
 InitHandlerFunc( HdlrFunc6, "GAPROOT/lib/oper1.g:HdlrFunc6(-93145418)" );
 InitGlobalBag( &(NameFunc[6]), "GAPROOT/lib/oper1.g:NameFunc[6](-93145418)" );
 InitHandlerFunc( HdlrFunc7, "GAPROOT/lib/oper1.g:HdlrFunc7(-93145418)" );
 InitGlobalBag( &(NameFunc[7]), "GAPROOT/lib/oper1.g:NameFunc[7](-93145418)" );
 InitHandlerFunc( HdlrFunc8, "GAPROOT/lib/oper1.g:HdlrFunc8(-93145418)" );
 InitGlobalBag( &(NameFunc[8]), "GAPROOT/lib/oper1.g:NameFunc[8](-93145418)" );
 InitHandlerFunc( HdlrFunc9, "GAPROOT/lib/oper1.g:HdlrFunc9(-93145418)" );
 InitGlobalBag( &(NameFunc[9]), "GAPROOT/lib/oper1.g:NameFunc[9](-93145418)" );
 InitHandlerFunc( HdlrFunc10, "GAPROOT/lib/oper1.g:HdlrFunc10(-93145418)" );
 InitGlobalBag( &(NameFunc[10]), "GAPROOT/lib/oper1.g:NameFunc[10](-93145418)" );
 InitHandlerFunc( HdlrFunc11, "GAPROOT/lib/oper1.g:HdlrFunc11(-93145418)" );
 InitGlobalBag( &(NameFunc[11]), "GAPROOT/lib/oper1.g:NameFunc[11](-93145418)" );
 InitHandlerFunc( HdlrFunc12, "GAPROOT/lib/oper1.g:HdlrFunc12(-93145418)" );
 InitGlobalBag( &(NameFunc[12]), "GAPROOT/lib/oper1.g:NameFunc[12](-93145418)" );
 InitHandlerFunc( HdlrFunc13, "GAPROOT/lib/oper1.g:HdlrFunc13(-93145418)" );
 InitGlobalBag( &(NameFunc[13]), "GAPROOT/lib/oper1.g:NameFunc[13](-93145418)" );
 InitHandlerFunc( HdlrFunc14, "GAPROOT/lib/oper1.g:HdlrFunc14(-93145418)" );
 InitGlobalBag( &(NameFunc[14]), "GAPROOT/lib/oper1.g:NameFunc[14](-93145418)" );
 InitHandlerFunc( HdlrFunc15, "GAPROOT/lib/oper1.g:HdlrFunc15(-93145418)" );
 InitGlobalBag( &(NameFunc[15]), "GAPROOT/lib/oper1.g:NameFunc[15](-93145418)" );
 InitHandlerFunc( HdlrFunc16, "GAPROOT/lib/oper1.g:HdlrFunc16(-93145418)" );
 InitGlobalBag( &(NameFunc[16]), "GAPROOT/lib/oper1.g:NameFunc[16](-93145418)" );
 
 /* return success */
 return 0;
 
}

/* 'InitLibrary' sets up gvars, rnams, functions */
static Int InitLibrary ( StructInitInfo * module )
{
 Obj func1;
 Obj body1;
 
 /* Complete Copy/Fopy registration */
 UpdateCopyFopyInfo();
 
 /* global variables used in handlers */
 G_REREADING = GVarName( "REREADING" );
 G_SHALLOW__COPY__OBJ = GVarName( "SHALLOW_COPY_OBJ" );
 G_PRINT__OBJ = GVarName( "PRINT_OBJ" );
 G_IS__FUNCTION = GVarName( "IS_FUNCTION" );
 G_CALL__FUNC__LIST = GVarName( "CALL_FUNC_LIST" );
 G_NAME__FUNC = GVarName( "NAME_FUNC" );
 G_NARG__FUNC = GVarName( "NARG_FUNC" );
 G_IS__OPERATION = GVarName( "IS_OPERATION" );
 G_AINV = GVarName( "AINV" );
 G_IS__INT = GVarName( "IS_INT" );
 G_IS__LIST = GVarName( "IS_LIST" );
 G_ADD__LIST = GVarName( "ADD_LIST" );
 G_IS__STRING__REP = GVarName( "IS_STRING_REP" );
 G_TYPE__OBJ = GVarName( "TYPE_OBJ" );
 G_IMMUTABLE__COPY__OBJ = GVarName( "IMMUTABLE_COPY_OBJ" );
 G_IS__IDENTICAL__OBJ = GVarName( "IS_IDENTICAL_OBJ" );
 G_IS__OBJECT = GVarName( "IS_OBJECT" );
 G_TRY__NEXT__METHOD = GVarName( "TRY_NEXT_METHOD" );
 G_SUB__FLAGS = GVarName( "SUB_FLAGS" );
 G_IS__SUBSET__FLAGS = GVarName( "IS_SUBSET_FLAGS" );
 G_TRUES__FLAGS = GVarName( "TRUES_FLAGS" );
 G_SIZE__FLAGS = GVarName( "SIZE_FLAGS" );
 G_LEN__FLAGS = GVarName( "LEN_FLAGS" );
 G_ELM__FLAGS = GVarName( "ELM_FLAGS" );
 G_FLAG1__FILTER = GVarName( "FLAG1_FILTER" );
 G_FLAGS__FILTER = GVarName( "FLAGS_FILTER" );
 G_METHODS__OPERATION = GVarName( "METHODS_OPERATION" );
 G_CHANGED__METHODS__OPERATION = GVarName( "CHANGED_METHODS_OPERATION" );
 G_DO__NOTHING__SETTER = GVarName( "DO_NOTHING_SETTER" );
 G_RETURN__TRUE = GVarName( "RETURN_TRUE" );
 G_RETURN__FALSE = GVarName( "RETURN_FALSE" );
 G_LEN__LIST = GVarName( "LEN_LIST" );
 G_APPEND__LIST__INTR = GVarName( "APPEND_LIST_INTR" );
 G_CONV__STRING = GVarName( "CONV_STRING" );
 G_Print = GVarName( "Print" );
 G_Error = GVarName( "Error" );
 G_Revision = GVarName( "Revision" );
 G_ViewObj = GVarName( "ViewObj" );
 G_RUN__IMMEDIATE__METHODS__CHECKS = GVarName( "RUN_IMMEDIATE_METHODS_CHECKS" );
 G_RUN__IMMEDIATE__METHODS__HITS = GVarName( "RUN_IMMEDIATE_METHODS_HITS" );
 G_BIND__GLOBAL = GVarName( "BIND_GLOBAL" );
 G_IGNORE__IMMEDIATE__METHODS = GVarName( "IGNORE_IMMEDIATE_METHODS" );
 G_IMM__FLAGS = GVarName( "IMM_FLAGS" );
 G_IMMEDIATES = GVarName( "IMMEDIATES" );
 G_IMMEDIATE__METHODS = GVarName( "IMMEDIATE_METHODS" );
 G_TRACE__IMMEDIATE__METHODS = GVarName( "TRACE_IMMEDIATE_METHODS" );
 G_CONSTRUCTORS = GVarName( "CONSTRUCTORS" );
 G_RankFilter = GVarName( "RankFilter" );
 G_CHECK__INSTALL__METHOD = GVarName( "CHECK_INSTALL_METHOD" );
 G_INSTALL__METHOD = GVarName( "INSTALL_METHOD" );
 G_DeclareGlobalFunction = GVarName( "DeclareGlobalFunction" );
 G_EvalString = GVarName( "EvalString" );
 G_WRAPPER__OPERATIONS = GVarName( "WRAPPER_OPERATIONS" );
 G_INFO__INSTALL = GVarName( "INFO_INSTALL" );
 G_OPERATIONS = GVarName( "OPERATIONS" );
 G_WITH__HIDDEN__IMPS__FLAGS = GVarName( "WITH_HIDDEN_IMPS_FLAGS" );
 G_NamesFilter = GVarName( "NamesFilter" );
 G_Ordinal = GVarName( "Ordinal" );
 G_INSTALL__METHOD__FLAGS = GVarName( "INSTALL_METHOD_FLAGS" );
 G_LENGTH__SETTER__METHODS__2 = GVarName( "LENGTH_SETTER_METHODS_2" );
 G_InstallAttributeFunction = GVarName( "InstallAttributeFunction" );
 G_CATS__AND__REPS = GVarName( "CATS_AND_REPS" );
 G_FILTERS = GVarName( "FILTERS" );
 G_NUMBERS__PROPERTY__GETTERS = GVarName( "NUMBERS_PROPERTY_GETTERS" );
 G_InstallOtherMethod = GVarName( "InstallOtherMethod" );
 G_Tester = GVarName( "Tester" );
 G_IsPrimeInt = GVarName( "IsPrimeInt" );
 G_DeclareOperation = GVarName( "DeclareOperation" );
 G_VALUE__GLOBAL = GVarName( "VALUE_GLOBAL" );
 G_DeclareAttribute = GVarName( "DeclareAttribute" );
 G_InstallMethod = GVarName( "InstallMethod" );
 G_CallFuncList = GVarName( "CallFuncList" );
 
 /* record names used in handlers */
 R_oper1__g = RNamName( "oper1_g" );
 
 /* information for the functions */
 C_NEW_STRING( DefaultName, 14, "local function" )
 NameFunc[1] = DefaultName;
 NamsFunc[1] = 0;
 NargFunc[1] = 0;
 NameFunc[2] = DefaultName;
 NamsFunc[2] = 0;
 NargFunc[2] = 2;
 NameFunc[3] = DefaultName;
 NamsFunc[3] = 0;
 NargFunc[3] = 6;
 NameFunc[4] = DefaultName;
 NamsFunc[4] = 0;
 NargFunc[4] = -1;
 NameFunc[5] = DefaultName;
 NamsFunc[5] = 0;
 NargFunc[5] = -1;
 NameFunc[6] = DefaultName;
 NamsFunc[6] = 0;
 NargFunc[6] = -1;
 NameFunc[7] = DefaultName;
 NamsFunc[7] = 0;
 NargFunc[7] = 2;
 NameFunc[8] = DefaultName;
 NamsFunc[8] = 0;
 NargFunc[8] = 6;
 NameFunc[9] = DefaultName;
 NamsFunc[9] = 0;
 NargFunc[9] = 1;
 NameFunc[10] = DefaultName;
 NamsFunc[10] = 0;
 NargFunc[10] = 6;
 NameFunc[11] = DefaultName;
 NamsFunc[11] = 0;
 NargFunc[11] = 4;
 NameFunc[12] = DefaultName;
 NamsFunc[12] = 0;
 NargFunc[12] = 1;
 NameFunc[13] = DefaultName;
 NamsFunc[13] = 0;
 NargFunc[13] = 1;
 NameFunc[14] = DefaultName;
 NamsFunc[14] = 0;
 NargFunc[14] = 2;
 NameFunc[15] = DefaultName;
 NamsFunc[15] = 0;
 NargFunc[15] = 5;
 NameFunc[16] = DefaultName;
 NamsFunc[16] = 0;
 NargFunc[16] = -1;
 
 /* create all the functions defined in this module */
 func1 = NewFunction(NameFunc[1],NargFunc[1],NamsFunc[1],HdlrFunc1);
 ENVI_FUNC( func1 ) = CurrLVars;
 CHANGED_BAG( CurrLVars );
 body1 = NewBag( T_BODY, 0);
 BODY_FUNC( func1 ) = body1;
 CHANGED_BAG( func1 );
 CALL_0ARGS( func1 );
 
 /* return success */
 return 0;
 
}

/* 'PostRestore' restore gvars, rnams, functions */
static Int PostRestore ( StructInitInfo * module )
{
 
 /* global variables used in handlers */
 G_REREADING = GVarName( "REREADING" );
 G_SHALLOW__COPY__OBJ = GVarName( "SHALLOW_COPY_OBJ" );
 G_PRINT__OBJ = GVarName( "PRINT_OBJ" );
 G_IS__FUNCTION = GVarName( "IS_FUNCTION" );
 G_CALL__FUNC__LIST = GVarName( "CALL_FUNC_LIST" );
 G_NAME__FUNC = GVarName( "NAME_FUNC" );
 G_NARG__FUNC = GVarName( "NARG_FUNC" );
 G_IS__OPERATION = GVarName( "IS_OPERATION" );
 G_AINV = GVarName( "AINV" );
 G_IS__INT = GVarName( "IS_INT" );
 G_IS__LIST = GVarName( "IS_LIST" );
 G_ADD__LIST = GVarName( "ADD_LIST" );
 G_IS__STRING__REP = GVarName( "IS_STRING_REP" );
 G_TYPE__OBJ = GVarName( "TYPE_OBJ" );
 G_IMMUTABLE__COPY__OBJ = GVarName( "IMMUTABLE_COPY_OBJ" );
 G_IS__IDENTICAL__OBJ = GVarName( "IS_IDENTICAL_OBJ" );
 G_IS__OBJECT = GVarName( "IS_OBJECT" );
 G_TRY__NEXT__METHOD = GVarName( "TRY_NEXT_METHOD" );
 G_SUB__FLAGS = GVarName( "SUB_FLAGS" );
 G_IS__SUBSET__FLAGS = GVarName( "IS_SUBSET_FLAGS" );
 G_TRUES__FLAGS = GVarName( "TRUES_FLAGS" );
 G_SIZE__FLAGS = GVarName( "SIZE_FLAGS" );
 G_LEN__FLAGS = GVarName( "LEN_FLAGS" );
 G_ELM__FLAGS = GVarName( "ELM_FLAGS" );
 G_FLAG1__FILTER = GVarName( "FLAG1_FILTER" );
 G_FLAGS__FILTER = GVarName( "FLAGS_FILTER" );
 G_METHODS__OPERATION = GVarName( "METHODS_OPERATION" );
 G_CHANGED__METHODS__OPERATION = GVarName( "CHANGED_METHODS_OPERATION" );
 G_DO__NOTHING__SETTER = GVarName( "DO_NOTHING_SETTER" );
 G_RETURN__TRUE = GVarName( "RETURN_TRUE" );
 G_RETURN__FALSE = GVarName( "RETURN_FALSE" );
 G_LEN__LIST = GVarName( "LEN_LIST" );
 G_APPEND__LIST__INTR = GVarName( "APPEND_LIST_INTR" );
 G_CONV__STRING = GVarName( "CONV_STRING" );
 G_Print = GVarName( "Print" );
 G_Error = GVarName( "Error" );
 G_Revision = GVarName( "Revision" );
 G_ViewObj = GVarName( "ViewObj" );
 G_RUN__IMMEDIATE__METHODS__CHECKS = GVarName( "RUN_IMMEDIATE_METHODS_CHECKS" );
 G_RUN__IMMEDIATE__METHODS__HITS = GVarName( "RUN_IMMEDIATE_METHODS_HITS" );
 G_BIND__GLOBAL = GVarName( "BIND_GLOBAL" );
 G_IGNORE__IMMEDIATE__METHODS = GVarName( "IGNORE_IMMEDIATE_METHODS" );
 G_IMM__FLAGS = GVarName( "IMM_FLAGS" );
 G_IMMEDIATES = GVarName( "IMMEDIATES" );
 G_IMMEDIATE__METHODS = GVarName( "IMMEDIATE_METHODS" );
 G_TRACE__IMMEDIATE__METHODS = GVarName( "TRACE_IMMEDIATE_METHODS" );
 G_CONSTRUCTORS = GVarName( "CONSTRUCTORS" );
 G_RankFilter = GVarName( "RankFilter" );
 G_CHECK__INSTALL__METHOD = GVarName( "CHECK_INSTALL_METHOD" );
 G_INSTALL__METHOD = GVarName( "INSTALL_METHOD" );
 G_DeclareGlobalFunction = GVarName( "DeclareGlobalFunction" );
 G_EvalString = GVarName( "EvalString" );
 G_WRAPPER__OPERATIONS = GVarName( "WRAPPER_OPERATIONS" );
 G_INFO__INSTALL = GVarName( "INFO_INSTALL" );
 G_OPERATIONS = GVarName( "OPERATIONS" );
 G_WITH__HIDDEN__IMPS__FLAGS = GVarName( "WITH_HIDDEN_IMPS_FLAGS" );
 G_NamesFilter = GVarName( "NamesFilter" );
 G_Ordinal = GVarName( "Ordinal" );
 G_INSTALL__METHOD__FLAGS = GVarName( "INSTALL_METHOD_FLAGS" );
 G_LENGTH__SETTER__METHODS__2 = GVarName( "LENGTH_SETTER_METHODS_2" );
 G_InstallAttributeFunction = GVarName( "InstallAttributeFunction" );
 G_CATS__AND__REPS = GVarName( "CATS_AND_REPS" );
 G_FILTERS = GVarName( "FILTERS" );
 G_NUMBERS__PROPERTY__GETTERS = GVarName( "NUMBERS_PROPERTY_GETTERS" );
 G_InstallOtherMethod = GVarName( "InstallOtherMethod" );
 G_Tester = GVarName( "Tester" );
 G_IsPrimeInt = GVarName( "IsPrimeInt" );
 G_DeclareOperation = GVarName( "DeclareOperation" );
 G_VALUE__GLOBAL = GVarName( "VALUE_GLOBAL" );
 G_DeclareAttribute = GVarName( "DeclareAttribute" );
 G_InstallMethod = GVarName( "InstallMethod" );
 G_CallFuncList = GVarName( "CallFuncList" );
 
 /* record names used in handlers */
 R_oper1__g = RNamName( "oper1_g" );
 
 /* information for the functions */
 NameFunc[1] = DefaultName;
 NamsFunc[1] = 0;
 NargFunc[1] = 0;
 NameFunc[2] = DefaultName;
 NamsFunc[2] = 0;
 NargFunc[2] = 2;
 NameFunc[3] = DefaultName;
 NamsFunc[3] = 0;
 NargFunc[3] = 6;
 NameFunc[4] = DefaultName;
 NamsFunc[4] = 0;
 NargFunc[4] = -1;
 NameFunc[5] = DefaultName;
 NamsFunc[5] = 0;
 NargFunc[5] = -1;
 NameFunc[6] = DefaultName;
 NamsFunc[6] = 0;
 NargFunc[6] = -1;
 NameFunc[7] = DefaultName;
 NamsFunc[7] = 0;
 NargFunc[7] = 2;
 NameFunc[8] = DefaultName;
 NamsFunc[8] = 0;
 NargFunc[8] = 6;
 NameFunc[9] = DefaultName;
 NamsFunc[9] = 0;
 NargFunc[9] = 1;
 NameFunc[10] = DefaultName;
 NamsFunc[10] = 0;
 NargFunc[10] = 6;
 NameFunc[11] = DefaultName;
 NamsFunc[11] = 0;
 NargFunc[11] = 4;
 NameFunc[12] = DefaultName;
 NamsFunc[12] = 0;
 NargFunc[12] = 1;
 NameFunc[13] = DefaultName;
 NamsFunc[13] = 0;
 NargFunc[13] = 1;
 NameFunc[14] = DefaultName;
 NamsFunc[14] = 0;
 NargFunc[14] = 2;
 NameFunc[15] = DefaultName;
 NamsFunc[15] = 0;
 NargFunc[15] = 5;
 NameFunc[16] = DefaultName;
 NamsFunc[16] = 0;
 NargFunc[16] = -1;
 
 /* return success */
 return 0;
 
}


/* <name> returns the description of this module */
static StructInitInfo module = {
 /* type        = */ 3,
 /* name        = */ "GAPROOT/lib/oper1.g",
 /* revision_c  = */ 0,
 /* revision_h  = */ 0,
 /* version     = */ 0,
 /* crc         = */ -93145418,
 /* initKernel  = */ InitKernel,
 /* initLibrary = */ InitLibrary,
 /* checkInit   = */ 0,
 /* preSave     = */ 0,
 /* postSave    = */ 0,
 /* postRestore = */ PostRestore
};

StructInitInfo * Init__oper1 ( void )
{
 return &module;
}

/* compiled code ends here */
#endif

Generated by  Doxygen 1.6.0   Back to index