===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/rcs-gopher/RCS/rcs-gopher_gophernicus.scm,v
retrieving revision 1.5
retrieving revision 1.6
diff -r1.5 -r1.6
7a8
>              (ice-9 ftw)
9a11,12
> (define *host* "sdf.org")
> (define *puerto* "70")
26a30,33
> (define (host-y-puerto)
>   (simple-format #f "~A\t~A" *host*
>                              *puerto*))
> 
33,34c40,41
< (define (obtener-selector-de-revisi??n nombre-de-proyecto archivo)
<   (simple-format #f "~A~A?revs/~A/~A"
---
> (define (obtener-selector-de-revisi??n nombre-de-proyecto archivo revisi??n)
>   (simple-format #f "~A~A?revs/~A/~A/~A"
38c45,61
<                     archivo))
---
>                     archivo
>                     revisi??n))
> 
> (define (rcs-??ltima-revisi??n nombre-de-proyecto archivo)
>   (simple-format #t "0~A\t~A\t~A\n"
>     archivo
>     (obtener-selector-de-revisi??n nombre-de-proyecto
>                                   archivo
>                                   "ULT")
>     (host-y-puerto)))
> 
> (define (obtener-selector-men??-secci??n secci??n nombre-de-proyecto)
>   (simple-format #f "~A~A?~A/~A"
>                     *ruta-base-cgi-bin*
>                     *nombre-del-script-de-rcs-gopher*
>                     secci??n
>                     nombre-de-proyecto))
62c85
<           (simple-format #t "~A~A\t~A/~A\tsdf.org\t70\n"
---
>           (simple-format #t "~A~A\t~A\tsdf.org\t70\n"
64,65c87
<                          (obtener-selector-de-revisi??n nombre archivo)
<                          (obtener-n??mero-de-revisi??n l??nea)))))
---
>                          (obtener-selector-de-revisi??n nombre archivo (obtener-n??mero-de-revisi??n l??nea))))))
82a105,140
> (define (generar-entradas-comunes nombre)
>   (for-each (lambda (nombre selector)
>               (simple-format #t "1~A\t~A\t~A\n"
>                                 nombre
>                                 selector
>                                 (host-y-puerto)))
>             (list nombre "Revisiones"
>                   "Diffs" "Logs")
>             (list (obtener-selector-men??-secci??n "inicio" nombre)
>                   (obtener-selector-men??-secci??n "revs" nombre)
>                   (obtener-selector-men??-secci??n "diffs" nombre)
>                   (obtener-selector-men??-secci??n "logs" nombre))))
> 
> (define (generar-entradas-por-archivo nombre)
>   (let ((directorio-proyecto (simple-format #f "~A~A/RCS"
>                                *directorio-base-de-proyectos*
>                                nombre)))
>     (for-each (lambda (archivo)
>                 (if (string-suffix? ",v" archivo)
>                   (rcs-??ltima-revisi??n
>                     nombre
>                     (string-trim-right
>                       archivo
>                       (char-set #\, #\v)))))
>               (scandir directorio-proyecto))))
> 
> (define (rcs-men??-principal-proyecto nombre)
>   (if (and (member nombre *proyectos*)
>            (access? (obtener-ruta-de-archivo
>                       nombre "")
>                     R_OK))
>     (begin
>       (generar-entradas-comunes nombre)
>       (generar-entradas-por-archivo nombre))
>     (error-en-men??-gopher "No existe este proyecto o archivo.")))
> 
84a143,144
> (generar-entradas-comunes "rcs-gopher")
> (generar-entradas-por-archivo "rcs-gopher")