static OSErr ExtractULTInfo( PPInfoRec *info, Ptr AlienFile) { short i, maxInstru, tracksNo; ULTForm ULTinfo; /********************************/ /**** Header principal *****/ BlockMoveData( AlienFile, &ULTinfo, 49); /*** Signature ***/ info->signature = 'ULT '; /*** Internal name ***/ ULTinfo.name[ 31] = '\0'; pStrcpy( (unsigned char*) info->internalFileName, MYC2PStr( ULTinfo.name)); /*** Total Patterns ***/ info->totalPatterns = 0; //Tdecode16( &ITinfo.patNum); /*** Partition Length ***/ info->partitionLength = 0; //Tdecode16( &ITinfo.orderNum); /*** Total Instruments ***/ info->totalInstruments = 0; /*** Tracks ***/ info->totalTracks = 0; strcpy( info->formatDescription, "ULT Plug"); return noErr; }
void CreateResult(Ptr aPtr) { MYC2PStr(aPtr); DebugStr((unsigned char *) aPtr); }