===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/rcs-gopher/RCS/rcs-gopher_gophernicus.scm,v
retrieving revision 1.3
retrieving revision 1.4
diff -r1.3 -r1.4
7c7,8
< (define *ruta-base-cgi-bin* "/usrs/ronald/cgi-bin/")
---
> (define *ruta-base-cgi-bin* "/users/ronald/cgi-bin/")
> (define *nombre-del-script-de-rcs-gopher* "rcs-gopher.sh")
11a13,17
> (define (destabulizar cadena)
>   (string-join
>     (string-split cadena #\Tab)
>     "    "))
> 
17a24,40
> (define (obtener-selector-de-revisi??n nombre-de-proyecto archivo)
>   (simple-format #f "~A~A?revs/~A/~A"
>                     *ruta-base-cgi-bin*
>                     *nombre-del-script-de-rcs-gopher*
>                     nombre-de-proyecto
>                     archivo))
> 
> (define (obtener-n??mero-de-revisi??n texto)
> ;(list-ref (string-split (list-ref (string-split l??nea #\Tab) 0) #\Space) 1)))))
>   (list-ref
>     (string-split
>       (list-ref
>         (string-split texto #\Tab)
>         0)
>       #\Space)
>     1))
> 
31,33c54,56
<                          "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)))))
---
>                          "0" (string-titlecase (destabulizar l??nea))
>                          (obtener-selector-de-revisi??n nombre archivo)
>                          (obtener-n??mero-de-revisi??n l??nea)))))
45c68
< (rcs-revisiones "rcs-gopher" "rcs-gopher_alcance.txt")
---
> (rcs-revisiones "rcs-gopher" "rcs-gopher_gophernicus.scm")