===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/rcs-gopher/RCS/rcs-gopher_gophernicus.scm,v
retrieving revision 1.7
retrieving revision 1.6
diff -r1.7 -r1.6
3,6c3,4
< ;;    - 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
---
> ;; - 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.
98,100c96
<     (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)
109,125d104
< (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.")))
< 
163d141
< (rcs-ver-log "rcs-gopher" "rcs-gopher_gophernicus.scm" "1.2")