🚀 go-pugleaf

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

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

    tas> Hola. Estoy intentando actualizar la entrada "FontPath" del
    tas> fichero XF86Config desde un script. Se trata de comprobar si
    tas> una ruta dada est� ya en el "FontPath", y en caso negativo
    tas> a�adirla al final.

    tas> Si alguien me pudiera orientar sobre (a) c�mo solucionar todo
    tas> esto, (b) alguna otra forma de afrontar la tarea, o (c) qu�
    tas> otros problemas podr�an surgir, le estar�a muy agradecido.

El churro (bastante poco optimizado y limpio, la verdad) que adjunto a
continuacion permite verificar si el path que se le indica como
argumento esta o no en el fichero que se le envia por la entrada
estandar (como un valor del tipo FontPath). Genera el codigo de
retorno 0 (cero) si el path se ha encontrado en el fichero y 1 (uno)
en caso contrario. Por ejemplo, si tengo en el fichero
/etc/X11/XF86Config algo como:

        ...
   Section "Files"
    RgbPath    "/usr/X11R6/lib/X11/rgb"
    FontPath   "/usr/X11R6/lib/X11/fonts/misc:unscaled"
    FontPath   "/usr/X11R6/lib/X11/fonts/75dpi:unscaled"
    FontPath   "/usr/X11R6/lib/X11/fonts/100dpi:unscaled"
    FontPath   "/usr/X11R6/lib/X11/fonts/URW",\
        "/usr/X11R6/lib/X11/fonts/75dpi", "/usr/X11R6/lib/X11/fonts/100dpi",\
        "/usr/X11R6/lib/X11/fonts/freefont/"
    FONTPath "/usr/X11R6/lib/X11/fonts/sharefont/"
   EndSection
        ...

Con la orden:

      $ busca_fontpath.pl /usr/X11R6/lib/X11/fonts/misc:unscale < 
                /etc/X11/XF86Config
      $ echo $?
      0
      $ busca_fontpath.pl /usr/X11R6/lib/X11/fonts/no-esta < 
                /etc/X11/XF86Config
      $ echo $?
      1

<-----> <-----> <-----> <-----> <-----> <-----> <-----> <-----> <-----> 
#!/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;
print "$ARGV[1]\n";

while (<STDIN>) {
    chomp;
    next unless (/^ *FontPath/i or $continue); 
    if (! $continue) {
	/^ *FontPath (.*)$/io;
	$_ = $1;
    }
    /^ *(.*)$/o;
    $_ = $1;
    $last = substr ($_, -1);
    if ($last eq "\\") {
	$continue = 1;
	$_ = substr ($_, 0, length ($_)-1);
    }
    else {
	$continue = 0;
    }
    @paths = split /,/;
    foreach $i (@paths) {
	$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

iD8DBQE8LkyPZXLnGT1HLgcRApmVAJ9uJL2U0wbugxC6V9QQgTibLeqJLgCeIHrN
CfuWIiiceJgfqEQzDBidDBc=
=+WoD
-----END PGP SIGNATURE-----