#include < tigcclib.h >

void _main(void)
{
SYM_ENTRY *sym;

//Le fichier fait 32 octets
HANDLE h = HeapAlloc (32);

//on teste qu'on peut allouer de la mémoire, si on ne peut pas, on quitte
if (!h) return;

//Ce pointeur contiendra "l'adresse de base"
char *base;

//obtient le pointeur de type SYM_ENTRY
sym = DerefSym(SymAdd(SYMSTR("test")));

//on teste qu'on a bien obtenu le pointeur, sinon on quitte après avoir libéré la mémoire allouée précedemment par le HANDLE h
if (!sym)
{
free(h); //on libère la mémoire
return;
}

//il est temps d'utiliser notre handle, on le copie dans le handle de la structure SYM_ENTRY
sym -> handle = h;

//maintenant, on obtient l'adresse de base de notre fichier
base = HeapDeref(h);

//C'est une chaine de caractères. On met le tag STR_TAG (0x2D) à l'avant-dernier octet (soit le 31ème) de notre fichier
base[31] = STR_TAG;

//maintenant il ne reste plus qu'à mettre la taille dans les 2 premiers octets, qui est de 32 - 2 = 30. Pour cela on écrit un short dans les premières "cases", qui va écrire la taille comme il faut :)
* (short *)base = 30 ;

//vala c'est fini :)