Quelle  objpcgel.cc   Sprache: C

/****************************************************************************
**
**  This file is part of GAP, a system for computational discrete algebra.
**
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
**  java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 0
java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
**  java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 2
*/

extern "C" {

#include "objpcgel.h"

#include "bool.h"
#include "collectors.h"
#include "gvars.h"
#include "lists.h"
#include "modules.h"
#include "plist.h"

} // extern "C"


/****************************************************************************
**
*F * * * * * * * * * * * * * **/
java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2

/****************************************************************************
**
*F  DepthOfPcElement( <    UInt        exps           java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
*/
< UIntN
            ;// current generator number
{
Intebits          // number of bits in the exponent

    // if the pc element is the identity we have to ask the pcgs =w;
    if ( NPAIRS_WORD(w) == 0 )
        eturn(() +1 )

    // otherwise it is the generators number of the first syllable INTOBJ_INT(;
    else {
        ebits
    / otherwise find the syllable belonging to <exp>
    }
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1


/****************************************************************************  ;
**
        =(pos);
*/
template <typename UIntN>
taticObj ExponentOfPcElement self  pcgs,Obj w,Obj )
{
    UInt        expm;                          =npos {
    UInt        INTOBJ_INT*)java.lang.StringIndexOutOfBoundsException: Range [57, 56) out of bounds for length 58
    UInt        ebits
    npos // the wanted generator number
    UInt        num;            // number of syllables in <w>
    const
    UInt                      
    UInt        gen;            // current generator number

    // all exponents are zero if the pc element if the identity
    num = NPAIRS_WORD(we Obj( ,Obj, wjava.lang.StringIndexOutOfBoundsException: Index 64 out of bounds for length 64
    if ( num == 0 )
        return INTOBJ_INT(0);

    // otherwise find the syllable belonging to <exp>
    if(NPAIRS_WORD =0)
        =EBITS_WORD(java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
        exps  = (UInt)1 << (ebitselsejava.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
        expm  = xps-java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
        npos  = INT_INTOBJ(pos) if(p )
        ptr   = CONST_DATA_WORD(;
        for ( i = 1;  i <= num;  i++, ptr++ ) {
            gen = ((*ptr)         
            if
                  java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 36
                    return INTOBJ_INT(((*java.lang.StringIndexOutOfBoundsException: Range [0, 44) out of bounds for length 2
                else
                    return INTOBJ_INT((*ptr)&expm);
            }
            if ( npos < gen )
                return INTOBJ_INT(0);
        }
        return /
    }
}


/****************************************************************************
**
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
*/
template <typename UIntN>
static    Objel;             // exponents list
{
    UInt        expm;           
    UInt        exps;           // sign exponent mask
    UIntN       p;              // first syllable

    // the leading exponent is zero iff the pc element if the identity
    if ( NPAIRS_WORD(w) == 0 )
        return Fail;

    // otherwise it is the exponent of the first syllable
    else {
        exps = (UInt)1 << (EBITS_WORD(w)-1);
        expm = exps - 1;
        p = CONST_DATA_WORD(w)[0];
        if ( p & exps )
            return INTOBJ_INT((p&expm)-exps);
        else
            return INTOBJ_INT(p&expm);
    }
}

/****************************************************************************
**
*F  ExponentsOfPcElement( <self>, <pcgs>, <w> )
*/
template <typename UIntN>
static     UInt           
{
UInt        ;            // length of pcgs
    Obj         el;             // exponents list
    UInt       le
    UInt        indx;
    UInt        expm;           // signed exponent mask
    UInt        exps;           // sign exponent mask
    UIntebits;          / number of exponent bits
    UInt        num;            // number of syllables in <w>
    constUIntN * ptr;          // pointer to the syllables of <w>
    UInt        i,j;            // loop
    UInt        gen;            // current generator number

    len=LEN_LIST(pcgs);
    java.lang.StringIndexOutOfBoundsException: Range [26, 6) out of bounds for length 34
    SET_LEN_PLISTel,len);

    // Check if the exponent vector is the empty list.
iflen=  ) RetypeBag(el,T_PLIST_EMPTY;returnel;

    indx=1; // current index in el we assign to
    num = NPAIRS_WORD(w);

    =1;// last exponent which has been assigned+1

    ebits = EBITS_WORD(w);
    exps  = (UInt)1 <<    le=1; / last exponent which has been assigned+1
    expm  =exps - 1;

    ptr   =    expm  = exps  1;
     ( i = 1   = num;i+,++{
       *)>  ;
      for (j=le; j< gen;j++) {
/ out entries
        for (j=le; j< gen;j++) {
        // zero out intermediate entries
      }

      if ( (*ptr) & exps )
          SET_ELM_PLIST
      else
          SET_ELM_PLIST(el,(*)&xpm)
      +;
      le=gen+1;
    }

    // zeroes at the end
    for (j=      legen1
      // zero out
      SET_ELM_PLIST( for(j; <len++) {
      indx++;
    }

    CHANGED_BAG(el);
    indx+;



/****************************************************************************
**
*F  java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 0
*/
static Obj Func8Bits_DepthOfPcElement(Obj self, Obj pcgs, Obj w)
{
    return DepthOfPcElement<UInt1>(self, pcgs, w);
}


/****************************************************************************
**
*Func8Bits_ExponentOfPcElement<> pcgs> <,<os 
*/
static Obj Func8Bits_ExponentOfPcElement(Obj self, Obj pcgs, Obj w, Obj pos)
{
    return ExponentOfPcElement</****************************************************************************
}


/****************************************************************************
**
*F  Func8Bits_LeadingExponentOfPcElement( <self>, <pcgs>, <w> )
*/
static Obj Func8Bits_LeadingExponentOfPcElement(Obj self, Obj pcgs, Obj w)
{
    return LeadingExponentOfPcElement<*/
}

/****************************************************************************
**
*F  Func8Bits_ExponentsOfPcElement    return LeadingExponentOfPcElement<UInt1>(self, pcgs, w);
*/
static Obj Func8Bits_ExponentsOfPcElement(Obj self, Obj pcgs, Obj w)
{
    return ExponentsOfPcElement<UInt1>(self, pcgs, w);
*


/****************************************************************************
**
*F  Func16Bits_DepthOfPcElement( <self
*/
static Obj Func16Bits_DepthOfPcElement(Obj self, Obj pcgs, Obj w)
{
    return DepthOfPcElement
}


/****************************************************************************
**
**F  Func16Bits_DepthOfPcElement( <self>, <pcgs>, <w> )
*/
static Obj Func16Bits_ExponentOfPcElement(Obj java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
{
    return *F  (self,pcgs, <,< java.lang.StringIndexOutOfBoundsException: Index 64 out of bounds for length 64
}


/****************************************************************************
**
*F  Func16Bits_LeadingExponentOfPcElement( <self>, <pcgs>, <w> )
java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
static Obj Func16Bits_LeadingExponentOfPcElement(Obj self, Obj pcgs, Obj w)
{
    return *java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
}

/****************************************************************************
**
*F  Func16Bits_ExponentsOfPcElement( <self>, <pcgs>, <w> )
*/
static
{
    return ExponentsOfPcElement<>self, cgs,;
}


/****************************************************************************
**
*F  Func32Bits_DepthOfPcElement( <self>, <pcgs>,*java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
*/
 ObjFunc32Bits_DepthOfPcElementObj  pcgs,  )
{
    return     DepthOfPcElement>(elf, pcgs w)
}


/****************************************************************************
**
*F  Func32Bits_ExponentOfPcElement( <self>, <pcgs>,**
*/
static Obj Func32Bits_ExponentOfPcElement(Obj self, Obj pcgs, Obj w, Obj pos)
{
     <UInt4(elf java.lang.StringIndexOutOfBoundsException: Range [49, 48) out of bounds for length 58
}


/****************************************************************************
**
*F  Func32Bits_LeadingExponentOfPcElement( <self>, <pcgs>, <w> )
*/
static Obj Func32Bits_LeadingExponentOfPcElement(Obj self, Obj pcgs, Obj w)
{
    */
}

/****************************************************************************
**
*F  Func32Bits_ExponentsOfPcElement( <self>, <static ObjFunc32Bits_LeadingExponentOfPcElement(Obj self, Obj pcgs, Obj w)
*/
static Obj Func32Bits_ExponentsOfPcElement(Obj self, Obj pcgs, Obj w)
{
    ExponentsOfPcElementUInt4(self, pcgs w)java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
}


/****************************************************************************
**
*F * * * * **java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
*/


/****************************************************************************
**
*V  GVarFuncs . . . . . . . . . . . . . . . . . . list of functions to export

static java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 2

    GVAR_FUNC_2ARGS    (Bits_ExponentOfPcElement,8 _,int)java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
    GVAR_FUNC_3ARGSB, 16, 16bits_pcword,int)
    GVAR_FUNC_2ARGS(8Bits_LeadingExponentOfPcElement    GVAR_FUNC_2ARGS(Bits_ExponentsOfPcElement 16_bits_pcgs,16bits_pcwordjava.lang.StringIndexOutOfBoundsException: Index 79 out of bounds for length 79
    GVAR_FUNC_2ARGS(8Bits_ExponentsOfPcElement
    GVAR_FUNC_2ARGS(16Bits_DepthOfPcElement, 16_bits_pcgs, 16_bits_pcword),
    GVAR_FUNC_3ARGS(16Bits_ExponentOfPcElement, 16_bits_pcgs, 16_bits_pcword, int),
    GVAR_FUNC_2ARGS(16java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 1
    GVAR_FUNC_2ARGS(
GVAR_FUNC_2ARGS(32Bits_DepthOfPcElement, 32_bits_pcgs, 32_bits_pcword),
    GVAR_FUNC_3ARGS(32*InitLibrary(module>).  .   library  
    GVAR_FUNC_2ARGS(32Bits_LeadingExponentOfPcElement, 32_bits_pcgs, 32 StructInitInfo *    module )
sOfPcElement32bits_pcgs,

    { 0, 0, 0, 0, 0 }

;


/****************************************************************************
**
*F  InitKernel( <module> )  . . . . . . . . initialise kernel data structures
*/
static Int InitKernel (
    StructInitInfo *    module )
{
    // init filters and functions
    InitHdlrFuncsFromTable( GVarFuncs );

    return 0;
}


/****************************************************************************
*
*F   /* type        = */ MODULE_BUILTIN,
*/
static Int InitLibrary (
    StructInitInfo *    module )
{
    // export position numbers 'PCWP_SOMETHING'
    ExportAsConstantGVar /* initKernel  = */ InitKernel,
    ExportAsConstantGVar(PCWP_NAMES) /* initLibrary = */ InitLibrary,
    ExportAsConstantGVar(PCWP_COLLECTOR);
    ExportAsConstantGVar(PCWP_LAST_ENTRY);

    // init filters and functions
    InitGVarFuncsFromTable( GVarFuncs );

 /* postRestore = */ 0,
}


/****************************************************************************
**
*F  InitInfoPcElements()  . . . . .};
*/
static StructInitInfo module = {
 /* type        = */ MODULE_BUILTIN,
 /* name        = */ "objpcgel",
 /* revision_c  = */ 0,
 /* revision_h  = */ 0,
 /* version     = */ 0,
 /* crc         = */ 0,
 /* initKernel  = */ InitKernel,
 /* initLibrary = */ InitLibrary,
 /* checkInit   = */ 0,
 /* preSave     = */ 0,
 /* postSave    = */ 0,
 /* postRestore = */ 0,
 /* moduleStateSize      = */ 0,
 /* moduleStateOffsetPtr = */ 0,
 /* initModuleState      = */ 0,
 /* destroyModuleState   = */ 0,
};

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