===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/rcs-gopher/RCS/rcs-gopher_gophernicus.scm,v
retrieving revision 1.5
retrieving revision 1.4
diff -r1.5 -r1.4
1,6d0
< ;;; PENDIENTE
< ;; - 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.
< ;; - Funci??n para generar la p??gina principal de una colecci??n de proyectos de rcs-gopher.
< 
19,21d12
< (define (error-en-archivo mensaje)
<   (simple-format #t "ERROR\n=====\n\n- ~A\n" mensaje))
< 
69,81c60,65
<   (if (and (member nombre *proyectos*)
<            (access? (obtener-ruta-de-archivo
<                       nombre
<                       archivo)
<                     R_OK))
<     (let ((puerto (open-pipe* OPEN_READ "co" (simple-format #f "-p~A" 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.")))
---
>   (let ((puerto (open-pipe* OPEN_READ "co" (simple-format #f "-p~A" revisi??n) "proyectos/rcs-gopher/pruebas_rcs/RCS/hola.lisp,v"))
>         (l??nea ""))
>     (while ((lambda ()
>               (set! l??nea (read-line puerto))
>               (not (eof-object? l??nea))))
>       (simple-format #t "~A\n" l??nea))))
83c67
< (rcs-ver-revisi??n "rcs-gopher" "rcs-gopher_gophernicus.scm" "1.2")
---
> (rcs-ver-revisi??n "hola" "hola.lisp" "1.2")