===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/rcs-gopher/RCS/rcs-gopher_gophernicus.scm,v
retrieving revision 1.6
retrieving revision 1.9
diff -r1.6 -r1.9
3,4c3,7
< ;; - Funci??n para consultar el mensaje de Log de una revisi??n de un archivo perteneciente a un proyecto.
< ;; - Funci??n para generar la p??gina principal de un proyecto de rcs-gopher.
---
> ;; Para hacer esto, modificar o utilizar de base la funci??n rcs-revisiones y obtener-selector-de-revisi??n.
> ;;    - Funci??n para generar el men?? de revisiones para elegir la primera revisi??n.
> ;;    - Funci??n para generar el men?? de revisiones para elegir la segunda revisi??n y mostrar el diff.
> ;; - Funci??n para consultar el mensaje de Log de una revisi??n de un archivo perteneciente a un proyecto. YA
> ;; - Funci??n para generar la p??gina principal de un proyecto de rcs-gopher. CASI
40,46c43,59
< (define (obtener-selector-de-revisi??n nombre-de-proyecto archivo revisi??n)
<   (simple-format #f "~A~A?revs/~A/~A/~A"
<                     *ruta-base-cgi-bin*
<                     *nombre-del-script-de-rcs-gopher*
<                     nombre-de-proyecto
<                     archivo
<                     revisi??n))
---
> (define (obtener-selector-de-revisi??n secci??n nombre-de-proyecto archivo revisi??n-a revisi??n-b)
>   (if (null? revisi??n-b)
>     (simple-format #f "~A~A?~A/~A/~A/~A"
>                       *ruta-base-cgi-bin*
>                       *nombre-del-script-de-rcs-gopher*
>                       secci??n
>                       nombre-de-proyecto
>                       revisi??n-a
>                       archivo)
>     (simple-format #f "~A~A?~A/~A/~A/~A/~A"
>                       *ruta-base-cgi-bin*
>                       *nombre-del-script-de-rcs-gopher*
>                       secci??n
>                       nombre-de-proyecto
>                       revisi??n-a
>                       revisi??n-b
>                       archivo)))
51c64,65
<     (obtener-selector-de-revisi??n nombre-de-proyecto
---
>     (obtener-selector-de-revisi??n "revs"
>                                   nombre-de-proyecto
53c67
<                                   "ULT")
---
>                                   "ULT"   #nil)
87c101,105
<                          (obtener-selector-de-revisi??n nombre archivo (obtener-n??mero-de-revisi??n l??nea))))))
---
>                          (obtener-selector-de-revisi??n "revs"
>                                                        nombre
>                                                        archivo
>                                                        (obtener-n??mero-de-revisi??n l??nea)
>                                                        #nil)))))
96c114,116
<     (let ((puerto (open-pipe* OPEN_READ "co" (simple-format #f "-p~A" revisi??n)
---
>     (let ((puerto (open-pipe* OPEN_READ "co" (simple-format #f "-p~A" (if (string= revisi??n "ULT")
>                                                                         ""
>                                                                         revisi??n))
104a125,141
> (define (rcs-ver-log nombre archivo revisi??n)
>   (if (and (member nombre *proyectos*)
>            (access? (obtener-ruta-de-archivo
>                       nombre
>                       archivo)
>                     R_OK))
>     (let ((puerto (open-pipe* OPEN_READ "rlog" (simple-format #f "-r~A" (if (string= revisi??n "ULT")
>                                                                           ""
>                                                                           revisi??n))
>                                                (obtener-ruta-de-archivo nombre archivo)))
>           (l??nea ""))
>       (while ((lambda ()
>                 (set! l??nea (read-line puerto))
>                 (not (eof-object? l??nea))))
>         (simple-format #t "~A\n" l??nea)))
>     (error-en-archivo "No existe este proyecto o archivo.")))
> 
141a179
> (rcs-ver-log "rcs-gopher" "rcs-gopher_gophernicus.scm" "1.2")