Perl

[Perl] Programmation XS

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Perl] Programmation XS

burgergold

5$? va chez l'diable!

Bin voila, recherchant un max de fonctionnalité, je me suis lancé dans la comprésension de la programmation XS pour pouvoir me créer des librairies Perl à partir de librairie en C

j'ai tenté un truc au boulot tantot à l'aide d'un tuto, qui m'a permis de réécrire la fonction time() à partir de sys/time.h

donc je vais tentez d'ajouter à ce topic ce que j'apprends, si vous avez des conseils, des questions, posez les ici et on tentera de se démerder à plusieurs

Publicité

burgergold

5$? va chez l'diable!

bon premier truc que j'ai fait à l'aide d'un exemple

h2xs /usr/include/time.h

Modifier le contenu du Time.xs

Code :

#include <unistd.h>
#include <sys/time.h>
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
MODULE = Sys::Time PACKAGE = Sys::Time
double
time()
CODE:
struct timeval tv;
gettimeofday(&tv,0);
RETVAL = tv.tv_sec + ((double) tv.tv_usec) / 1000000;
OUTPUT:
RETVAL

perl Makefile.pl
make
make install

on test

perl -e 'use Sys::Time; print Sys::Time::time() . "\n"; print time() . "\n";'

Le résultat

1092267679.73259
1092267679

une fonction time hyper précise

maintenant je cherche à comprendre le time.xs

pospos

pourkoi n'utilise tu pas Inline::C ?

ca donnerais un truc du genre :

Code :

print "CORE::time: ", time(),"\n";
print "gettimofday: ", my_time(),"\n";
use Inline C => <<'END_C_CODE';
#include <unistd.h>
#include <sys/time.h>
struct timeval tv;
double my_time() {
gettimeofday(&tv,0);
return tv.tv_sec + ((double) tv.tv_usec) / 1000000;
}
END_C_CODE

ya juste à le lancer, ca compile (la premiere fois seulement, apres ca ne recompile que si il y a un changement) et on peu en mettre partout dans son code!

burgergold

5$? va chez l'diable!

pospos a écrit :

pourkoi n'utilise tu pas Inline::C ?

ca donnerais un truc du genre :

Code :

print "CORE::time: ", time(),"\n";
print "gettimofday: ", my_time(),"\n";
use Inline C => <<'END_C_CODE';
#include <unistd.h>
#include <sys/time.h>
struct timeval tv;
double my_time() {
gettimeofday(&tv,0);
return tv.tv_sec + ((double) tv.tv_usec) / 1000000;
}
END_C_CODE

ya juste à le lancer, ca compile (la premiere fois seulement, apres ca ne recompile que si il y a un changement) et on peu en mettre partout dans son code!

je connaissais simplement aps, mais jvais y jetter un oeil

burgergold

5$? va chez l'diable!

bon ca répond plus ou moins au besoin

en gros je vais avoir besoin de me monter un set de librairie pour appeler les fonctions d'un serveur de fichier pas très répendu, et les script devront rouler sur tous les serveurs (meme sans compilateur)

donc je préfère me compiler une librairie et en faire des appels que de mettre le code C direct dans le perl

mais merci tout de meme pour l'idée

pospos

tu peux recuperer le XS généré par inline, ya une option comme ca

burgergold

5$? va chez l'diable!

up

jsuis en train d'essayer de me faire un XS pour un module de process (procinfo.h)

le problème, c'est que j'ai X process, chaque process est un élément de struct procsinfo, et jsuis incapable de retourner le tableau complet des process

je sais pas trop comment traité ca, j'ai tenté des XPUSHs mais ca semble réservé à des types de bases (int, double, ...) et non à des struct

pospos

ben il faut que tu decompose ta structure, en creant un hash par exemple, et en remplissant chaque entrée avec avec hv_store.

Sinon regarde du coté de Convert::Binary::C ( http://search.cpan.org/~mhx/Conver [...] inary/C.pm )

avec ce truc tu passe directement ta structure et tu la depack dans ton script (apres avoir scanné le .h pour analyser ta structure). Ce sera surement plus rapide à l'execution

burgergold

5$? va chez l'diable!

ouais j'ai compris qu'il fallait que je joue avec l'API de perl dans mon xs pour créer un hash

FORUM HardWare.fr

Programmation

Perl

[Perl] Programmation XS

Sujets relatifs
Commencer dans la programmation	concours/defi programmation
[Perl] est-il possible d'exécuter une application Perl sur un hébergeu	la programmation ... ?
[Perl] Détecter un changement d'heure	[Perl] Nombre de jour entre 2 dates
Programmation ASP	Programmation asp
PERL - je n'y connais rien si qqun peut m'aider	Perl :: probleme d'array et de length [resolu]
Plus de sujets relatifs à : [Perl] Programmation XS

Page générée en 0.060 secondes