SCR_RECT ECRAN = {{0, 0, 159, 99}} ;
Temp = 0 ;
short rclpic(char *SymName, short x, short y, short Attr)
{
SYM_ENTRY *sym_entry = SymFindPtr(SymName, 0);
if (!sym_entry) return FALSE;
if (peek(HToESI (sym_entry->handle)) != PIC_TAG) return FALSE;
BitmapPut(x, y, HeapDeref (sym_entry->handle) + 2, ScrRect, Attr);
return TRUE;
}
SYM_ENTRY* get_entry(char *str)
{
char *nom = mk_nam(str) ;
SYM_ENTRY *entry = get_temp_entry(nom) ;
if (entry != NULL) return entry ;
return SymFindPtr(nom, 0) ;
}
SYM_ENTRY* get_temp_entry(char *nom)
{
SYM_ENTRY *entry = DerefSym(FindSymInFolder(nom, TempFolderName(Temp))) ;
while (*(--nom) != 0 && *nom != 92) ;
return (entry != NULL && *nom != 92 ? entry : NULL) ;
}
short check(char *str)
{
SYM_ENTRY *entry = get_entry(str) ;
if (entry != NULL && entry->flags.bits.archived != 0)
return EM_moveSymFromExtMem(mk_nam(str), HS_NULL) ;
return TRUE ;
}
char* mk_nam(char *str)
{
static char name[19] = {0} ;
short len = strlen(str) ;
if (len > 17) return NULL ;
return strcpy(name+1, str)+len ;
}
char* mk_ptr(char *str, unsigned short taille)
{
char *nom = mk_nam(str) ;
SYM_ENTRY *entry = get_temp_entry(nom) ;
if (check(str) == FALSE) return NULL ;
entry = DerefSym(entry != NULL ? AddSymToFolder(nom, TempFolderName(Temp)) : SymAdd(nom)) ;
if (entry == NULL) return NULL ;
nom = (char*)HeapDeref(entry->handle = HeapAlloc(taille)) ;
if (entry->handle == H_NULL) return NULL ;
*(unsigned short*)nom = taille-2 ;
return (nom+2) ;
}
void savpic(char nom)
{
BitmapGet(&ECRAN, mk_ptr(nom, 2007));
}
void progrun(const char *name)
{
char fname[25];
HANDLE h;
strcpy (fname, name);
strcat (fname, "()");
push_parse_text (fname);
h = HS_popEStack ();
TRY
NG_execute (h, FALSE);
FINALLY
HeapFree (h);
ENDFINAL
}
void getrep()
{
SYM_ENTRY *SymPtr = SymFindFirst(NULL, 4);
while(SymPtr)
{
push_ANSI_string(SymPtr->name);
SymPtr = SymFindNext();
}
}
short retx(short nb)
{
if(nb==1 || nb==4)
{
return 4;
}
else if(nb==2 || nb==5)
{
return 56;
}
else
{
return 108;
}
}
short rety(short nb)
{
if(nb<=3)
{
return 15;
}
else
{
return 48;
}
}
je comprend pas pquoi ca met un carre noir a la place de marquer le nom de dossier linux et que les otr ca march
si je le sait mais vu que l'explorateur doit etre compatible avec le system-multiapplications, il faut que ces ecrans soient sauvegardés dans une image PIC basic
Ce ne sont pas les instructions BASIC qu'il utilise! (Les instructions BASIC, c'est cmd_rclpic, pas rclpic tout seul.) Il les a apparemment recodées en C. Mais je doûte de l'efficacité de ce recodage vu qu'il utilise quand-même des variables AMS.
vti plus l'ent qu'une vraie TI ?
bah, suffit de supprimer la limitation de vitesse... si t'as un PC rapide, ça sera bien plus rapide qu'une vraie TI
je suis à 700% de vitesse, là, en testant, avec un paquet de fenetres d'IE lancées
Godzil Le 28/07/2003 à 19:14Edité par Godzil le 28/07/2003 à 20:01 les cons
c linus pas linux #trigol#
Proud to be CAKE©®™
GCC4TI importe qui a problème en Autriche, pour l'UE plus et une encore de correspours nucléaire, ce n'est pas ytre d'instérier. L'état très même contraire, toujours reconstruire un pouvoir une choyer d'aucrée de compris le plus mite de genre, ce n'est pas moins)
Stalin est l'élection de la langie.
Oui mais bon, c'est marrant quand même. ;p
(j'avais pourtant mis un smiley ... :/)
I'm on a boat motherfucker, don't you ever forget
Bon on parle de Linux ici svp.
Que cache le pays des Dieux ? -
Forum Ghibli -
Forum LittéraireLa fin d'un monde souillé est venue. L'oiseau blanc plane dans le ciel annonçant le début d'une longue ère de purification. Détachons-nous à jamais de notre vie dans ce monde de souffrance. Ô toi l'oiseau blanc, l'être vêtu de bleu, guide nous vers ce monde de pureté. - Sutra originel dork.
Bon alors pour ceux qui veulent faire les malins:
quand je dis "linux" je parle du sujet de départ bien sûr, et du débat engendré logiquement. Maintenant j'ai pas envie que tout ça parte encore en vrille alors merci de rester dans le débat. Et par pitié pas d'engueulade ici !
Que cache le pays des Dieux ? -
Forum Ghibli -
Forum LittéraireLa fin d'un monde souillé est venue. L'oiseau blanc plane dans le ciel annonçant le début d'une longue ère de purification. Détachons-nous à jamais de notre vie dans ce monde de souffrance. Ô toi l'oiseau blanc, l'être vêtu de bleu, guide nous vers ce monde de pureté. - Sutra originel dork.
la version testable elle ne viendra pas avant que g supprimé les bugs et que yait qqs progs et pas avant que l'explorer soit fini
Euh.. une question vient de me tomber dessus. Est-ce que ton projet est sous license GPL?
"Je respecte profondément Iggy Pop et Neil Young pour le fait qu'ils n'ont jamais cédé aux compromis et que leur musique a toujours été sauvage. Tout cela n'a rien à voir avec ces Guns N' Roses et autres Metallica qui devraient tous êtres pendus par les couilles, voire castrés... En fait, on devrait leur injecter du silicone dans la poitrine et les envoyer dans un bordel nippon tenu par la mafia locale."
-Kurt Cobain-
(1967-1994)
J'avais une vie... maintenant, j'ai une TI-89.
C'est quoi la taille de ton projet ?
A vu de nez, avec ce qu'il en a deja dit, moi j'estime la taille de son projet à 50ko sur la calc.
"Je respecte profondément Iggy Pop et Neil Young pour le fait qu'ils n'ont jamais cédé aux compromis et que leur musique a toujours été sauvage. Tout cela n'a rien à voir avec ces Guns N' Roses et autres Metallica qui devraient tous êtres pendus par les couilles, voire castrés... En fait, on devrait leur injecter du silicone dans la poitrine et les envoyer dans un bordel nippon tenu par la mafia locale."
-Kurt Cobain-
(1967-1994)
J'avais une vie... maintenant, j'ai une TI-89.
On pourrait mm dire plus .. toutes les images sont en PIC (mm pas compressé, rien ..)
Moi, ca me fait penser a window en tibasic pour 89
le projet pour l'instant fait environ 40ko
la premiere release de tte facon pas avant que g fini l'explorer
)
, c'est quand je pose une vraie question, et 
ce n'est qu'un noyau!!!!!!!
