utilisation de ziplib - Page 1

y'a pas moyen de savoir de quel type est une variable compressée?
C'est pour rechercher dans la VAT les textes compressés ?

y'a pas de fonction pour ca dans ziplib...
y'a un moyen bourin : décompresser et vérifier si c'est un texte
mais ca me plait pas du tout

Il y a juste moyen de tester si c'est un programme executable je crois.

y'a pas de signature du fichier ??

Ben si, Fichier Zip.
Mais dedans, c'est quoi ?

je crois que le premier ou le second octet permet de déterminer le type "réel" du fichier.
je ne sais plus exactement quel octet c'est, mais je sais que c'est au tout début, ou presque (j'avais regardé ça du temps où je bossais sur mon explorer)
regarde plusieurs fichiers TXT, plusieurs STr, et plusisuers PIC, le tout zippé, à l'éditeur hexa, et, à chaque fois, note les premiers octets.
=> tu verra que ça se ressemble selon le type.

(enfin, qd je dis premier, c'est sans compter les deux octets de taille)

Tu fais un shell squale ?
Tu me nous montrer un ss ou une bêta ?

non, je ne fais pas un shell.
j'en ai (quasiment) fait un, il y a de ça presque un an

il n'avait qu'un seul bug, et pas lié aux manipulations de la VAT

mais le source est affreux
=> je ne le donne qu'à ceux qui me le demandent...

à l'origine, je n'avais prévu de le faire que comme exemple à mon tuto. et si jamais je le fini, il ne sera pas plus que ça
(il est grave moche, pas mal lent (y'a un an, il me manquait pas mal d'expérience... encore plus que maintenant !), et ne fait que les trucs standard)

dans la source de ziplib, y'a:


;ZIPLIB v1.5
;-----------------------------------------------------------------
;structure de l'archive : 00 01 pour nb de fichiers de hufflibs
; XX XX nLenght
; XX XX position de l'addresse de depart
; XX XX position du bit de depart
; XX XX taille du fichier extrait
;-----------------------------------------------------------------


mais je vais quand faire des tests avec l'éditeur hexa...

Nan, ca c'est une archive.
Normalement c'ést le premier octet apres la taille du fichier.

le premier octet apres la taille du fichier : ca marche:

data=(char *)HeapDeref(SymPtr->handle);
alors
data[2]==0x07 : texte
data[2]==0x0B : pic

merci

Et si tu aimes les codes illisibles (pour optimiser avec certains compilos peu puissants, mais je pense que GCC, lui, génère la même chose dans les deux cas, à vérifier) : ((char *)HeapDeref(SymPtr->handle))[2] == 0xHH

on dirait du bob64

Il aime les codes illisibles aussi ?

demande-lui ses meilleurs morceaux choisis en en code basic (il a pas réussis à faire pire en C )

oué, le code de 5 lignes de long (1 seule instruction !) avec plein d'indirection !
Ce bob alors !

je fais souvent ce genre de truc illisible
exple:
#define HAUT_INDICE(frt) (frt.haut_max_indice1 || frt.haut_max_indice2)*( val_haut[3-((frt.haut_max_indice1)<<1)-(frt.haut_max_indice2)] - (val_haut[3-((frt.haut_exp1)<<1)-(frt.haut_exp2)]>>1) )+((frt.souligne || frt.pointille)<<1)

avec normalement format_courant à la place de frt !!
je l'ai mis en define parce ca faisait un peu long...

pour data, j'en ai besoin pour dézipper...
j'ai pas envie de fiare plusieur fois ((char *)HeapDeref(SymPtr->handle))

qu'est-ce que c'est que cette ligne toute petite ? boouuuhhh va te cacher

hibou >> ton truc est encore lisible si on découpe tout ça pendant 5 min !! Bob lui, t'as beau découper son code, simplifier, pendant 1 heure, à l'arrivée t'auras à peine compris la fonction de l'instruction !
Vas y Bob, lache toi ! sors un bel exmple !

J'ai la flemme... Et puis ça va le décourager alors qu'il est dans une bonne voie là

En fouillant dans 'basic' on devrait pvoir retrouver des lignes assez sympa

arf ! alors vas-y bob, fais nous peur !!

Je retrouve pas mes meilleures lignes, qui venaient principalement de cms et d'interum
enfin bon y'a déjà ça que j'ai posté ds basic :

ixt_fsct(y_messgs[s_num+2],"¨","x_xtern1",94,0)
mod(dim(x_xtern1),6)»l_tmp
If l_tmp>0 Then
newList(6-l_tmp)»l_tmp
Fill "",l_tmp
augment(x_xtern1,l_tmp)»x_xtern1
EndIf
1»l_tmp
{"Retour","Repondre"}»x_xtern2
If l_tmp<dim(x_xtern1)-5
augment({"Page suivante"},x_xtern2)»x_xtern2
DelVar x_xtern3
itr_dlog("Message",{"Texte",2,"Message de "&y_messgs[s_num+1]&" :",0,"Texte",14,x_xtern1[l_tmp],0,"Texte",20,x_xtern1[l_tmp+1],0,"Texte",26,x_xtern1[l_tmp+2],0,"Texte",32,x_xtern1[l_tmp+3],0,"Texte",38,x_xtern1[l_tmp+4],0,"Texte",44,x_xtern1[l_tmp+5],0,"Selec",54,"x_xtern2","x_xtern3"},29,12,129,88)
dim(x_xtern2)»l_dim
For l_tmp,1,l_dim
If left(x_xtern2[l_tmp],4)="ixt_" Then
expr(x_xtern2[l_tmp]&"(ª1)")
x_xtern2[l_tmp]»x_xtern3[dim(x_xtern3)+1]
x_xtern1»x_xtern4[dim(x_xtern4)+1]
EndIf
EndFor
s_pth[dim(s_pth)]»l_tmp
augment(augment(left(#l_tmp,4),mid(#l_tmp,s_chx,1)),augment(mid(#l_tmp,5,s_chx-5),mid(#l_tmp,s_chx+1)))»#l_tmp

quelle horreur

Bof, c gentillet

Squale > Bah oué mais pr aller vite en basic, y'a pas 36 solutions...

PpHd : y'avait une version de Fer3C en basic aussi non ?

Bob> si je me retenai pas

retiens toi !!!

Vark: Oué.

et c'était jouable ?

Oué. Et meme rapide. C'etait pour ti-92 (Allez voir archive 92 sur ticalc).