U0 EdRenumAsm(CDoc *doc)
{
Bool unlock=DocLock(doc);
I64 num=0;
CRenum root,*tempr,*tempr1;
U8 buf[sizeof(CEdFindText.find_text)],
buf2[sizeof(CEdFindText.find_text)];
QueInit(&root);
EdSelectFun(doc,TRUE);
EdRACollect(doc,&root);
tempr=root.next;
while (tempr!=&root) {
tempr1=tempr->next;
num+=ASM_RENUM_SPACING;
SPrintF(buf,"@#%02d",num);
EdReplace(doc,tempr->label,buf,TRUE,TRUE,TRUE);
Free(tempr);
tempr=tempr1;
}
while (num) {
SPrintF(buf, "@#%02d",num);
SPrintF(buf2,"@@%02d",num);
EdReplace(doc,buf,buf2,TRUE,TRUE,TRUE);
num-=ASM_RENUM_SPACING;
}
EdSelectAll(doc,FALSE);
DocRecalc(doc);
DocCenter(doc);
if (unlock)
DocUnlock(doc);
}
U0 KeyMapFamily(U8 *family,CTask *task,I64 scf)
{
I64 i;
U8 **entries=CAlloc(2*256*sizeof(U8 *)),st1[32],st2[32];
SPrintF(st1,"%s ",family);
SPrintF(st2,"%s SHIFT",family);
KeyMapFamily2(entries ,st1,task,scf);
KeyMapFamily2(entries+256,st2,task,scf+SCF_SHIFT);
QSortI64(entries,2*256,&KMCompare);
for (i=0;i<2*256;i++)
if (entries[i]) {
"" entries[i];
Free(entries[i]);
}
Free(entries);
}
EFFECTGETARGS(frame,tags,PPTBase,EffectBase)
{
struct convargs args = {0}, *saved;
PERROR res;
ULONG *rxargs;
STRPTR buffer;
SetDefaults(&args);
if( saved = GetOptions(MYNAME) ) {
args = *saved;
}
buffer = (STRPTR) TagData( PPTX_ArgBuffer, tags );
rxargs = (ULONG *)TagData( PPTX_RexxArgs, tags );
if(rxargs) {
if( (res = LoadConvFilter( PPTBase, (UBYTE *)rxargs[0], &args )) != PERR_OK ) {
SetErrorMsg(frame,"Couldn't open the specified convolution file");
return PERR_FILEREAD;
}
strncpy( args.name, FilePart( (UBYTE *)rxargs[0] ), 40 );
}
if( (res = GetConvArgs( frame, tags, PPTBase, &args )) == PERR_OK ) {
SaveConvFilter( PPTBase, TEMPFILENAME, &args );
SPrintF( buffer, "FILE %s", TEMPFILENAME );
}
return res;
}
U0 DrawIt(CTask *task,CDC *dc)
{
U8 buf[128];
I64 i;
//<CTLR-T> to see the syntax of the
//"Insert Binary" statement in the following.
for (i=0;i<NUM_TREES;i++)
SpritePlot3(dc,trees_x[i],trees_y[i]-cur_screen_y,0,$IB,"<2>",2$);
dc->collision_cnt=0;
dc->color=ROP_COLLISION;
dc->bkcolor=WHITE;
SpritePlot3(dc,x,y,0,$IB,"<1>",1$);
if (dc->collision_cnt) {
Snd(400);
penalty++;
} else
Snd(0);
dc->color=ROP_EQU;
SpritePlot3(dc,x,y,0,$IB,"<1>",1$);
//Text attr include forground in the
//lowest 4 bits and background in the upper 4.
SPrintF(buf,"Penalty:%d",penalty);
PlotWinStr(task,buf,BLACK+WHITE*16,1,1);
}
char*
get_error_message(struct ObjectData* ObjectData) {
switch (ObjectData->error) {
// ahi.class errors
case AHIE_OK:
return "No error";
case AHIE_AttributeNotApplicable:
return AHIC_AHI ": Attribute is not applicable";
// ahi-buffer.class errors
case AHIE_Buffer_InvalidSampleType:
return AHIC_Buffer ": Invalid sample type";
case AHIE_Buffer_InvalidSampleFreq:
return AHIC_Buffer ": Invalid sample frequency";
case AHIE_Buffer_InvalidCapacity:
return AHIC_Buffer ": Invalid buffer capacity";
case AHIE_Buffer_InvalidLength:
return AHIC_Buffer ": Invalid buffer length";
// ahi-processor.class errors
case AHIE_Processor_ObjectNotReady:
return AHIC_Processor ": Object is not ready";
case AHIE_Processor_ObjectBusy:
return AHIC_Processor ": Object is busy";
case AHIE_Processor_InvalidSampleType:
return AHIC_Processor ": Invalid buffer sample type";
case AHIE_Processor_TooManyChildren:
return AHIC_Processor ": Too many children";
case AHIE_Processor_MultipleParents:
return AHIC_Processor ": Multiple parents detected";
case AHIE_Processor_DifferentOwner:
return AHIC_Processor ": Different owner detected";
case AHIE_Processor_NotMember:
return AHIC_Processor ": Not a member";
case AHIE_Processor_NullMember:
return AHIC_Processor ": Null member";
// gain.ahi-processor errors
case AHIE_GainProcessor_TooManyChannels:
return AHIC_GainProcessor ": Too many channels";
// splitter.ahi-processor errors
case AHIE_SplitterProcessor_InvalidBufferTime:
return AHIC_SplitterProcessor ": Invalid buffer time";
case AHIE_SplitterProcessor_InvalidBuffer:
return AHIC_SplitterProcessor ": Invalid buffer";
// ahi-lfo.class errors
case AHIE_LFO_InvalidWaveform:
return AHIC_LFO ": Invalid waveform";
// dos.library or unknown errors
default:
if (Fault(ObjectData->error,
DOSNAME,
ObjectData->error_message,
sizeof (ObjectData->error_message)) > 0) {
return ObjectData->error_message;
}
}
// I don't think this will ever be reached, since Fault() should
// handle unknown error codes too ...?
SPrintF(ObjectData->error_message,
"Unknown error 0x%08lx (%ld)",
ObjectData->error, ObjectData->error);
return ObjectData->error_message;
}
