Changeset 18

Show
Ignore:
Timestamp:
08/26/08 12:39:16 (5 months ago)
Author:
jms
Message:

[pgiac] Version 0.1.8, adaptation de la vriable FIONREAD à Mac OS X.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/pgiac/pgiac

    r17 r18  
    2121getopts("f:"); 
    2222 
    23  
    24  
    25 my $VERSION     = "0.1.6";      # Mardi 10 juin 2008 
     23# La valeur ci-dessous dépend du système, elle doit être calculée 
     24# pour chaque système (programme fionread extérieur). 
     25our $FIONREAD   = 0x00541b;     # Valeur par défaut (linux) 
     26 
     27our $EXECUTABLE = "giac --texmacs"; 
     28 
     29# Adaptation pou Mac OS X. 
     30if ($^O =~ /darwin/) { 
     31    $FIONREAD   = 0x4004667f; 
     32    $EXECUTABLE = "icas --texmacs"; 
     33} 
     34 
     35 
     36my $VERSION     = "0.1.8";      # Mardi 26 août 2008 
    2637 
    2738my $OUT         = "";           # Contenu en sortie. 
    …… 
    8091    open(STDERR,">&OUTP"); 
    8192    select(STDOUT); $| = 1; 
    82     system "giac --texmacs"; 
     93    system $EXECUTABLE; 
    8394    exit;     
    8495} else { 
    …… 
    129140        sleep 0.02; 
    130141        $taille = pack("L",0); 
    131         # La valeur ci-dessous dépend du système, elle doit être calculée 
    132         # pour chaque système (programme fionread extérieur). 
    133         $FIONREAD = 0x00541b; 
    134142        ioctl(INF,$FIONREAD,$taille)  
    135143            or die "Problème (ioctl dans GetTaille) : $!\n";