===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/rcs-gopher/RCS/rcs-gopher_gophernicus.scm,v
retrieving revision 1.11
retrieving revision 1.6
diff -r1.11 -r1.6
2,7c2,4
< ;; - Funci??n para generar diffs a partir del nombre de un proyecto, de un archivo y dos revisiones. 
< ;; Para hacer esto, modificar o utilizar de base la funci??n rcs-revisiones y obtener-selector-de-revisi??n.  YA
< ;;    - Funci??n para generar el men?? de revisiones para elegir la primera revisi??n.  YA
< ;;    - Funci??n para generar el men?? de revisiones para elegir la segunda revisi??n y mostrar el diff.  YA
< ;; - 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
---
> ;; - Funci??n para generar diffs a partir del nombre de un proyecto, de un archivo y dos revisiones.
> ;; - 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.
43,59c40,46
< (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)))
---
> (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))
64,65c51
<     (obtener-selector-de-revisi??n "revs"
<                                   nombre-de-proyecto
---
>     (obtener-selector-de-revisi??n nombre-de-proyecto
67c53
<                                   "ULT"   #nil)
---
>                                   "ULT")
87c73
< (define (rcs-revisiones nombre archivo secci??n tipo-de-??tem revisi??n-base)
---
> (define (rcs-revisiones nombre archivo)
99,113c85,87
<           (simple-format #t "~A~A\t~A\t~A\t~A\n"
<                          tipo-de-??tem (string-titlecase (destabulizar l??nea))
<                          (if (null? revisi??n-base)
<                            (obtener-selector-de-revisi??n secci??n
<                                                          nombre
<                                                          archivo
<                                                          (obtener-n??mero-de-revisi??n l??nea)
<                                                          #nil)
<                            (obtener-selector-de-revisi??n secci??n
<                                                          nombre
<                                                          archivo
<                                                          revisi??n-base
<                                                          (obtener-n??mero-de-revisi??n l??nea)))
<                          *host*
<                          *puerto*))))
---
>           (simple-format #t "~A~A\t~A\tsdf.org\t70\n"
>                          "0" (string-titlecase (destabulizar l??nea))
>                          (obtener-selector-de-revisi??n nombre archivo (obtener-n??mero-de-revisi??n l??nea))))))
122,124c96
<     (let ((puerto (open-pipe* OPEN_READ "co" (simple-format #f "-p~A" (if (string= revisi??n "ULT")
<                                                                         ""
<                                                                         revisi??n))
---
>     (let ((puerto (open-pipe* OPEN_READ "co" (simple-format #f "-p~A" revisi??n)
133,169d104
< (define (rcs-ver-diff nombre archivo revisi??n-a revisi??n-b)
<   (if (and (member nombre *proyectos*)
<            (access? (obtener-ruta-de-archivo
<                       nombre
<                       archivo)
<                     R_OK))
<     (let ((puerto (open-pipe* OPEN_READ "rcsdiff" (simple-format #f "-r~A" (if (string= revisi??n-a "ULT")
<                                                                              ""
<                                                                              revisi??n-a))
<                                                   (simple-format #f "-r~A" (if (string= revisi??n-b "ULT")
<                                                                              ""
<                                                                              revisi??n-b))
<                                                   (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.")))
< 
< (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.")))
< 
207,208c142
< (rcs-ver-log "rcs-gopher" "rcs-gopher_gophernicus.scm" "1.2")
< (rcs-revisiones "rcs-gopher" "rcs-gopher_gophernicus.scm" "diffs" 1 #nil)
---
> (rcs-revisiones "rcs-gopher" "rcs-gopher_gophernicus.scm")
211d144
< (rcs-ver-diff "rcs-gopher" "rcs-gopher_gophernicus.scm" "1.1" "1.2")