🚀 go-pugleaf

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

>>>>> "tas" == tas  <tas@subdimension.com> writes:

    IA> veces sin, entonces es otro cantar. Lo siento, me ## he basado
    IA> en mi XF86Config...

    IA> $i =~ /^\"?([^\"]*)\"?/o;

    tas> F�jate en que ya hemos hecho un split de todo el
    tas> path. Algunos '$i' tendr�n comillas (delante y/o detr�s), y
    tas> otros no.

Acabo de leer la pagina del manual de XF86Config y he visto que la
sintaxis de las lineas FontPath es diferente de lo que yo pensaba. Yo
creia que en caso de haber multiples paths, cada uno de ellos iba
entre comillas y separados por comas. Parece ser que el conjunto de
todos los paths es lo que va entre comillas. De ahi la expresion
regular que te daba. Corregido el error de concepto, quedaria en algo
como:

    #!/usr/bin/perl -w
    #
    # fichero busca_fontpath.pl
    #
    # Copyright (C) 2001 Ignacio Arenaza. Distribuible bajo licencia GPL.
    #
    use strict;
    
    my $IN;
    my $OUT;
    my $continue;
    my $last;
    my @paths;
    my %fontpaths;
    my $i;
    
    if (scalar(@ARGV) < 1) {
        print "\n\tDame un path al menos, �tio racano!\n\n";
        exit 2;
    }

    $continue = 0;
    %fontpaths = ();
    
    while (<STDIN>) {
        chomp;
        next unless (/^\s*FontPath/i or $continue);
    
        if (! $continue) {
            /^\s*FontPath\s(.*)$/io;
            $_ = $1;
        }
        /^\s*(.*)$/o;
        $_ = $1;
        $last = substr ($_, -1);
        if ($last eq "\\") {
            $continue = 1;
            chop;
        }
        else {
            $continue = 0;
        }
        @paths = split /,/;
        foreach (@paths) {
            # Nos cepillamos las comillas que tanta guerra dan.
            s/\"//g;
            # Nos quedamos con todo lo que pueda estar entre blancos.
            /^\s*(\S+)\s*$/o;
            $fontpaths{$1} = 1;
        }
    }
    
    if (defined ($fontpaths {$ARGV[0]})) {
        exit 0;
    }
    else {
        exit 1;
    }

Saludos. I�aki.

- -- 
  Get PGP/GPG Keys at  http://www.escomposlinux.org/iarenaza/pgpkey.html
  I use free software / Yo uso software libre

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: Processed by Mailcrypt and GPG

iD8DBQE8N7cXZXLnGT1HLgcRAuvYAJ9UH8mP5OBmnNwjEGH3GLc1iDBBLgCfffoB
eZ4pxNPRlRIbYQKgcKunu3I=
=6KUz
-----END PGP SIGNATURE-----