===================================================================
RCS file: /ftp/pub/users/ronald/proyectos/rcs-gopher/RCS/rcs-gopher_gophernicus.scm,v
retrieving revision 1.12
retrieving revision 1.10
diff -r1.12 -r1.10
2c2
< ;; - Funci??n para generar diffs a partir del nombre de un proyecto, de un archivo y dos revisiones.  YA
---
> ;; - Funci??n para generar diffs a partir del nombre de un proyecto, de un archivo y dos revisiones. 
7c7
< ;; - Funci??n para generar la p??gina principal de un proyecto de rcs-gopher. YA
---
> ;; - Funci??n para generar la p??gina principal de un proyecto de rcs-gopher. CASI
16c16
< (define *proyectos* '("rcs-gopher" "pxle"))
---
> (define *proyectos* '("rcs-gopher"))
38,45c38,41
<   (if archivo
<     (simple-format #f "~A~A/RCS/~A,v"
<                       *directorio-base-de-proyectos*
<                       nombre-de-proyecto
<                       archivo)
<     (simple-format #f "~A~A/RCS/"
<                       *directorio-base-de-proyectos*
<                       nombre-de-proyecto)))
---
>   (simple-format #f "~A~A/RCS/~A,v"
>                     *directorio-base-de-proyectos*
>                     nombre-de-proyecto
>                     archivo))
65,75d60
< (define (enlace-a-secci??n tipo secci??n nombre-de-proyecto archivo)
<   (simple-format #t "~A~A\t~A~A?~A/~A/~A\t~A\n"
<                     tipo
<                     archivo
<                     *ruta-base-cgi-bin*
<                     *nombre-del-script-de-rcs-gopher*
<                     secci??n
<                     nombre-de-proyecto
<                     archivo
<                     (host-y-puerto)))
< 
148,167d132
< (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.")))
< 
211,217d175
< (define (generar-entradas-por-archivo nombre funci??n)
<   (let ((directorio-proyecto (simple-format #f "~A~A/RCS"
<                                *directorio-base-de-proyectos*
<                                nombre)))
<     (for-each funci??n
<               (scandir directorio-proyecto))))
< 
221c179
<                       nombre #f)
---
>                       nombre "")
225,232c183
<       (generar-entradas-por-archivo nombre
<                                     (lambda (archivo)
<                                       (if (string-suffix? ",v" archivo)
<                                         (rcs-??ltima-revisi??n
<                                           nombre
<                                           (string-trim-right
<                                             archivo
<                                             (char-set #\, #\v)))))))
---
>       (generar-entradas-por-archivo nombre))
235,311c186,190
< (define (rcs-men??-de-secci??n-por-archivo tipo secci??n nombre)
<   (generar-entradas-por-archivo nombre
<                                 (lambda (archivo)
<                                   (if (string-suffix? ",v" archivo)
<                                     (enlace-a-secci??n tipo
<                                                       secci??n
<                                                       nombre
<                                                       (string-trim-right
<                                                            archivo
<                                                            (char-set #\, #\v)))))))
< 
< (define (rcs-men??-principal)
<   (for-each (lambda (proyecto)
<               (simple-format #t "1~A\t~A\t~A\t~A\n"
<                                 proyecto
<                                 (obtener-selector-men??-secci??n "inicio" proyecto)
<                                 *host*
<                                 *puerto*))
<             *proyectos*))
< 
< (define (parsear-selector texto)
<   (apply values (string-split texto #\/)))
< 
< (define (rcs-principal)
<   (let ((selector (getenv "SEARCHREQUEST")))
<     (define-values (secci??n . par??metros)
<                    (parsear-selector selector))
<     (let ((tama??o (length par??metros)))
<       (cond
<         ((and (string= secci??n "inicio")
<               (= tama??o 1))
<           (rcs-men??-principal-proyecto (list-ref par??metros 0)))
<         ((and (string= secci??n "revs")
<               (= tama??o 1))
<           (rcs-men??-de-secci??n-por-archivo "1" "revs" (list-ref par??metros 0)))
<         ((and (string= secci??n "revs")
<               (= tama??o 2))
<           (rcs-revisiones (list-ref par??metros 0) (list-ref par??metros 1) "revs" "0" #nil))
<         ((and (string= secci??n "revs")
<               (= tama??o 3))
<           (rcs-ver-revisi??n (list-ref par??metros 0) (list-ref par??metros 2) (list-ref par??metros 1)))
<         ((and (string= secci??n "diffs")
<               (= tama??o 1))
<           (rcs-men??-de-secci??n-por-archivo "1" "diffs" (list-ref par??metros 0)))
<         ((and (string= secci??n "diffs")
<               (= tama??o 2))
<           (rcs-revisiones (list-ref par??metros 0) (list-ref par??metros 1) "diffs" "1" #nil))
<         ((and (string= secci??n "diffs")
<               (= tama??o 3))
<           (rcs-revisiones (list-ref par??metros 0) (list-ref par??metros 2) "diffs" "0" (list-ref par??metros 1)))
<         ((and (string= secci??n "diffs")
<               (= tama??o 4))
<           (rcs-ver-diff (list-ref par??metros 0) (list-ref par??metros 3) (list-ref par??metros 1) (list-ref par??metros 2)))
<         ((and (string= secci??n "logs")
<               (= tama??o 1))
<           (rcs-men??-de-secci??n-por-archivo "1" "logs" (list-ref par??metros 0)))
<         ((and (string= secci??n "logs")
<               (= tama??o 2))
<           (rcs-revisiones (list-ref par??metros 0) (list-ref par??metros 1) "logs" "0" #nil))
<         ((and (string= secci??n "logs")
<               (= tama??o 3))
<           (rcs-ver-log (list-ref par??metros 0) (list-ref par??metros 2) (list-ref par??metros 1)))
< ))))
< ;        ((and (string= secci??n "revs")
< ;              (= tama??o 1))
< ;          (let ((proyecto (list-ref par??metros) 0))
< ;. . .  FALTA
< ;. . .  modificar y usar (generar-entradas-por-archivo nombre)
< 
< ;(rcs-ver-revisi??n "rcs-gopher" "rcs-gopher_gophernicus.scm" "1.2")
< ;(rcs-ver-log "rcs-gopher" "rcs-gopher_gophernicus.scm" "1.2")
< ;(rcs-revisiones "rcs-gopher" "rcs-gopher_gophernicus.scm" "diffs" 1 #nil)
< ;(generar-entradas-comunes "rcs-gopher")
< ;(generar-entradas-por-archivo "rcs-gopher")
< ;(rcs-ver-diff "rcs-gopher" "rcs-gopher_gophernicus.scm" "1.1" "1.2")
< ;(rcs-men??-principal)
< (rcs-principal)
---
> (rcs-ver-revisi??n "rcs-gopher" "rcs-gopher_gophernicus.scm" "1.2")
> (rcs-ver-log "rcs-gopher" "rcs-gopher_gophernicus.scm" "1.2")
> (rcs-revisiones "rcs-gopher" "rcs-gopher_gophernicus.scm" "diffs" 1 #nil)
> (generar-entradas-comunes "rcs-gopher")
> (generar-entradas-por-archivo "rcs-gopher")