🚀 go-pugleaf

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

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

    tas> El churro :) tal y como lo has escrito falla en casi todos
    tas> los casos (y porque nos vamos conociendo, no descarto que los
    tas> errores los hayas puesto intencionadamente :) , pero he
    tas> cogido la idea.

No, ya digo que fue algo rapido y sucio. Probe con mi XF86Config, que
no tiene tabuladores, sino solo espacios. De ahi la mayoria de los
problemas y el que no me plantease siquiera el tema de los
"separadores blancos".

#!/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;

$continue = 0;

# La siguiente l�nea no pinta nada, as� que la quito...
#print "$ARGV[1]\n";

   ####<--- Glubs, restos del debugging ;-)

while (<STDIN>) {
    chomp;
# Para que no haya l�os entre espacios y tabuladores...
#    next unless (/^ *FontPath/i or $continue); 
##    next unless (/^[ \t]*FontPath/i or $continue);
#
# mejor:
    next unless (/^\s*FontPath/i or $continue);

    if (! $continue) {
#        /^ *FontPath (.*)$/io;
##        /^[ \t]*FontPath[ \t](.*)$/io;
#
# idem que arriba
        /^\s*FontPath\s(.*)$/io;
        $_ = $1;
    }
#    /^ *(.*)$/o;
##    /^[ \t]*(.*)$/o;
    /^\s*(.*)$/o;
    $_ = $1;
    $last = substr ($_, -1);
    if ($last eq "\\") {
        $continue = 1;
# No me vuelvas loco. Hay una funci�n que hace esto :)
#        $_ = substr ($_, 0, length ($_)-1);
        chop;
## Ya ves, y yo volviendome loco para quitar el ultimo
## caracter de la cadena de marras. Memoria la mia...
	}
    else {
        $continue = 0;
    }
    @paths = split /,/;
    foreach $i (@paths) {
# Esta l�nea es la que provoca la mayor�a de los fallos...
#        $i =~ /^[^\"]*\"([^\"]*)\"/o;
##
## Hummm, no se como rayos tendras los paths en tu XF86Config, pero si
## estan entre comillas te hara falta lo que yo te he dado. Si tienes
## a veces con y a veces sin, entonces es otro cantar. Lo siento, me
## he basado en mi XF86Config...

        $i =~ /^\"?([^\"]*)\"?/o;
	$_ = $1;
        $fontpaths{$_} = 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

iD8DBQE8NjkgZXLnGT1HLgcRAlUMAJ0co6zvt5P4ab2DgNWlqNQcm+AAjACeLH7P
kpiifE+GL6DM4owD8AKxt14=
=anWX
-----END PGP SIGNATURE-----