===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/rcs-gopher/RCS/rcs-gopher_gophernicus.scm,v
retrieving revision 1.3
retrieving revision 1.1
diff -r1.3 -r1.1
1c1
< (use-modules (ice-9 rdelim)
---
> (use-modules (ice-9 textual-ports)
4,37c4,5
< (define *proyectos* '("rcs-gopher"))
< ;(define *directorio-base-de-proyectos* "/ftp/pub/users/ronald/proyectos-rcs/")
< (define *directorio-base-de-proyectos* "proyectos/")
< (define *ruta-base-cgi-bin* "/usrs/ronald/cgi-bin/")
< 
< (define (error-en-men??-gopher mensaje)
<   (simple-format #t "3~A\tERROR\tERROR\t70\n" mensaje))
< 
< (define (obtener-ruta-de-archivo nombre-de-proyecto archivo)
<   (simple-format #f "~A~A/RCS/~A,v"
<                     *directorio-base-de-proyectos*
<                     nombre-de-proyecto
<                     archivo))
< 
< (define (rcs-revisiones nombre archivo)
<   (if (and (member nombre *proyectos*)
<            (access? (obtener-ruta-de-archivo
<                       nombre
<                       archivo)
<                     R_OK))
<     (let ((puerto (open-pipe* OPEN_READ "rlog" (obtener-ruta-de-archivo nombre archivo)))
<           (l??nea ""))
<       (while ((lambda ()
<                 (set! l??nea (read-line puerto))
<                 (not (eof-object? l??nea))))
<         (if (string-prefix? "revision" l??nea)
<           (simple-format #t "~A~A\t~A/~A\tsdf.org\t70\n"
<                          "0" (string-capitalize l??nea)
<                          "/users/ronald/cgi-bin/rcs-gopher?revs"
<                          (list-ref (string-split (list-ref (string-split l??nea #\Tab) 0) #\Space) 1)))))
<     (error-en-men??-gopher "No existe este proyecto o archivo.")))
< 
< (define (rcs-ver-revisi??n nombre archivo revisi??n)
<   (let ((puerto (open-pipe* OPEN_READ "co" (simple-format #f "-p~A" revisi??n) "proyectos/rcs-gopher/pruebas_rcs/RCS/hola.lisp,v"))
---
> (define (rcs-revisiones nombre)
>   (let ((puerto (open-pipe* OPEN_READ "rlog" "proyectos/rcs-gopher/pruebas_rcs/RCS/hola.lisp,v"))
40c8
<               (set! l??nea (read-line puerto))
---
>               (set! l??nea (get-line puerto))
42c10,14
<       (simple-format #t "~A\n" l??nea))))
---
>       (if (string-prefix? "revision" l??nea)
>         (simple-format #t "~A~A\t~A/~A\tsdf.org\t70\n"
>                        "0" (string-capitalize l??nea)
>                        "/users/ronald/cgi-bin/rcs-gopher?revs"
>                        (list-ref (string-split (list-ref (string-split l??nea #\Tab) 0) #\Space) 1))))))
44,45c16
< (rcs-ver-revisi??n "hola" "hola.lisp" "1.2")
< (rcs-revisiones "rcs-gopher" "rcs-gopher_alcance.txt")
---
> (rcs-revisiones "hola")