EvaSDK
a écrit : je suis en train de modifier tout ca et de rajouter 2-3 test histoire que a plante pas pour un rien...
Bonne initiative.
[edit] petite correction, le prog ne trouve le fichier de sauvegarde que dans le dossier actif
EvaSDK
a écrit : au fait mon prog fait deja plus de 8500 octets et je ne fais pas encore de manipulation des données c normal ?
EvaSDK a écrit :
'pouvez m'expliquer mon erreur dans la ligne:
HSym hs=SymFind(SYMSTR((char *)("mainaglm")));
ou
HSym hs=SymFind(SYMSTR((char *)(var)));
ou var est un tableau de caractères terminé par et ou la fonction strlen n'arrive pas à déterminer la longueur de var (renvoie 0)
. en nostub (enfin il me semble...)
/*===========================================================================*/
/* Find and open a list of TIC-Files (traverses the complete VAT) */
/* */
/* returns number of found files (up to maxfiles) */
/*===========================================================================*/
short FindAndOpenTICFiles(ticfile_t* f,short maxfiles,unsigned long magic) {
SYM_ENTRY* symptr;
unsigned char* start;
unsigned char* tmp;
short found = 0;
//-------------------------------------------------------------------------
// traverse complete VAT to find specified files
//-------------------------------------------------------------------------
symptr = SymFindFirst(NULL,2);
while (symptr) {
if (symptr->handle) {
start = HeapDeref(symptr->handle);
if (start) {
tmp = start + *(unsigned short*)(start) + 1;
// check for OTH-Type and extension 'tict'
if (*tmp == 0xF8 &&
*(tmp-5) == 't' &&
*(tmp-4) == 'i' &&
*(tmp-3) == 'c' &&
*(tmp-2) == 't')
{
// check magic if wanted
if (magic != MAGIC_NOMAGIC) {
if (*(unsigned long*)(start+2) != magic) {
symptr = SymFindNext();
continue;
}
}
// set flags and open
f->flags = TICFILE_OPEN;
f->handle = symptr->handle;
f->magic = magic;
if (symptr->flags.bits.archived) f->flags |= TICFILE_ISARCHIVED;
if (HeapGetLock(f->handle)) {
f->start = HeapDeref(f->handle);
}
else {
f->start = HLock(f->handle);
f->flags |= TICFILE_LOCKEDBYME;
}
strncpy(f->name,symptr->name,8);
strncpy(f->folder,SymFindFolderName(),8);
f->name[8] = 0;
f->folder[8] = 0;
found++;
f++;
if (found == maxfiles) return found;
}
}
}
symptr = SymFindNext();
}
return found;
}
Kevin Kofler a écrit :
Il faut 2 "\", sinon GCC comprend "mainaglm".
var est-il déjà au format SYM_STR (c'est-à-dire qu'il y a déjà un ' ' au début, d'où la longueur 0)? Dans ce cas, essaye SymFind(var+1+strlen(var+1)); (c'est la méthode pour avoir un SYM_STR à partir sur d'un pointeur sur le début d'une chaîne au format SYM_STR).
médor
a écrit : d'ailleurs il ne faut pas oublier de preciser que les programmes en kernel ne pourront pas tourner sur une calc n'ayant pas de kernel d'installé
ca existe comme ca :PHANDLE FindAgdrg(){
SYM_ENTRY *SE_rg;
HANDLE HA_rg;
ESQ type;
ptr_uc p;
int size;
SE_rg = SymFindFirst (NULL, FO_RECURSE);
HA_rg = SE_rg->handle;
while(SE_rg)
{
if(HA_rg)
{
type = *(HToESI (HA_rg));
if(type==OTH_TAG)
{
p=HeapDeref(HA_rg)+2;
size = ((MULTI_EXPR*) HeapDeref (HA_rg))->Size + 2;
if('A'==*(p-8+size) && 'g'==*(p-7+size) && 'd'==*(p-6+size) && 'D'==*(p-5+size)) return HA_rg;
}
}
SE_rg=SymFindNext();
HA_rg = SE_rg->handle;
}
return H_NULL;
}
(non, de la tarte)...
pkoi j'y arrive pas...HANDLE CreateFile (SYM_STR Nom)
{
HANDLE HA;
SYM_ENTRY *SE;
if (!(HA = HeapAlloc(HeapMax ()))) return H_NULL;
if (!(SE = DerefSym (SymAdd (Nom))))
{
HeapFree (HA);
return H_NULL;
}
*(long*)HeapDeref (SE->handle = HA) = 0x00010000; //// <<== Ici je comprends pas !!!
return HA;
}
void AppendCharToFile (HANDLE h, unsigned char c)
{
char *base = HeapDeref(h);
unsigned short len = *(unsigned short*)base;
if (len > HeapSize(h) - 10) return;
*(unsigned short*)base = len + 1;
base[len+2] = c;
}
void AppendStringToFile (HANDLE h, void *addr, unsigned short len)
{
unsigned short i;
AppendCharToFile (h,0x00); //NULL_TAG
for (i = len; i; i--)
AppendCharToFile (h, *((char*)addr)++);
AppendCharToFile (h,0x00); //NULL_TAG
AppendCharToFile (h,0x2D); //STR_TAG
}
void CloseFile (HANDLE h)
{
AppendCharToFile (h,0xD9); //LIST_TAG
AppendCharToFile (h,0xD9); //LIST_TAG
HeapUnlock (h);
HeapRealloc (h, *(unsigned short*)HeapDeref(h) + 3);
}
void _main(void)
{
HANDLE h;
h = CreateFile (SYMSTR("example"));
AppendCharToFile (h,0xE5); //END_TAG
AppendCharToFile (h,0xE5); //END_TAG
AppendStringToFile (h, (char *)"Coucou", 6);
AppendStringToFile (h, (char *)"C moi ", 6);
CloseFile (h);
}
Extrait modifié de la documentation de TIGCC 0.94
SYM_ENTRY *sym;
unsigned char *var;
unsigned short size;
unsigned short datas[14]={0,72,101,108,108,111,32,87,111,114,108,100,0,45}; // De quoi faire une variable STR contenant "Hello World"
sym=DerefSym(SymAdd(SYMSTR("var"))); // Création de la variable
// P.S : La coloration syntaxique rajoute des antislash devant les guillemets, n'en tiens pas compte...
size=16; // La var fera 16 octets
*(unsigned short*)HeapDeref(sym->handle=HeapRealloc(sym->handle,size))=size-2; // Allocation mémoire pour la variable créée, et definition des 2 premiers octets
var=HeapDeref(sym->handle); // On obtient l'adresse du début de la variable
memcpy(var+2,datas,14); // On copie les données après les 2 octets de taille
