--- r5rs-doc-20010328.orig/rrrs2txi.scm +++ r5rs-doc-20010328/rrrs2txi.scm @@ -17,6 +17,20 @@ ;material, there shall be no use of my name in any advertising, ;promotional, or sales literature without prior written consent in ;each case. + +;; -=-=-=-=-=- + +;; Modifications: +;; +;; 2001-11-26 cph@debian.org: +;; Make sure that @var, @t, and @r aren't used in @def commands. +;; Make sure that "Top" node is properly capitalized. +;; +;; 2001-04-17 cph@debian.org: +;; Remove code that generates Info files; we will handle that in the +;; debian/rules file. Change Info directory information to be in +;; accord with that used by MIT Scheme. + ;; -=-=-=-=-=- ;; This program translates the LaTeX source ".tex" files of the @@ -36,13 +50,6 @@ ;; current directory to texinfo format. The resulting ".txi" files ;; are written to the current directory. -;; If a Scheme report is successfully converted, GO also tries to -;; compile the new ".txi" file to INFO format. The resulting info -;; files are placed in the directory named by the variable -;; *INFO-VICINITY*, defined here. -(define *info-vicinity* (make-vicinity "/usr/local/info/")) -;; Change *INFO-VICINITY*'s value to suit your platform. - (require 'common-list-functions) (require 'string-search) (require 'string-port) @@ -269,16 +276,6 @@ (and (equal? *previous-labels* *new-labels*) (equal? *previous-nodes* *new-nodes*)))))) -;;;; Use `system' to convert to info format -(define (txi->info vic base . info-vic) - (newline) - (set! info-vic (if (null? info-vic) *info-vicinity* (car info-vic))) - (and (provided? 'system) - (zero? (system (sprintf #f "makeinfo %s%s.txi -o %s%s.info" - vic base info-vic base))) - (zero? (system (sprintf #f "install-info %s%s.info %sdir" - info-vic base info-vic))))) - ;;;; Rules (define rules append) @@ -772,14 +769,20 @@ (set! *name* (if vet-node-name (vet-node-name cmd name) name)) (fprintf (current-error-port) " %s \"%s\"\\n" cmd *name*) (if vet-node-name - (let ((nod (assoc *name* *previous-nodes*))) + (let ((nod (assoc *name* *previous-nodes*)) + (map-top + (lambda (name) + (if (string=? "top" name) + "Top" + name)))) (cond ((not nod) (fprintf *txi-output-port* "@%s %s\\n" cmd name)) (else (fprintf *txi-output-port* "@node %s, %s, %s, %s\\n" - *name* - (or (caddr nod) " ") (or (cadddr nod) " ") - (list-ref nod 4)) + (map-top *name*) + (map-top (or (caddr nod) " ")) + (map-top (or (cadddr nod) " ")) + (map-top (list-ref nod 4))) (fprintf *txi-output-port* "@%s %s\\n" cmd name) (cond ((and (not (eqv? 'top cmd)) (not (null? (list-ref nod 5)))) (emit-menu! nod)))))) @@ -1324,10 +1327,10 @@ "@syncodeindex vr cp" "@end iftex" "" "@ifinfo" - "@dircategory The Algorithmic Language Scheme" + "@dircategory Programming Languages" "@direntry") (fprintf *txi-output-port* - "* %s: (%s). The Revised(%c) Report on Scheme.\\n" + "* %s: (%s). The Revised(%c) Report on the Algorithmic Language Scheme.\\n" (string-upcase *input-basename*) *input-basename* (string-ref *input-basename* 1)) @@ -1461,10 +1464,12 @@ (case cmd ((proto) (define-label proc))) (set! *entry-type* "deffn")) #f) + (rule '(var vr) process-argument-with-rules) (rule '(vari vri) postfix "1") (rule '(varii vrii) postfix "2") (rule '(variii vriii) postfix "3") (rule 'vriv postfix "4") + (rule 'hyper process-argument-with-rules "<" ">") (rule 'hyperi process-argument-with-rules "<" "1>") (rule 'hyperii process-argument-with-rules "<" "2>") (rule 'hyperiii process-argument-with-rules "<" "3>") @@ -1492,7 +1497,20 @@ ;;(process-argument) #\newline ))) - (rule 'tt "")) + (rule 'tt "") + (rule 'singlequote "' " 1) + (rule 'backquote "` " 1) + (rule '(var vr) process-argument-with-rules) + (rule '(vari vri) postfix "1") + (rule '(varii vrii) postfix "2") + (rule '(variii vriii) postfix "3") + (rule 'vriv postfix "4") + (rule 'hyper process-argument-with-rules "<" ">") + (rule 'hyperi process-argument-with-rules "<" "1>") + (rule 'hyperii process-argument-with-rules "<" "2>") + (rule 'hyperiii process-argument-with-rules "<" "3>") + (rule 'hyperiv process-argument-with-rules "<" "4>") + (rule 'hypern process-argument-with-rules "<" "_n>")) (rule 'obeyspaces process-argument-with-rules (rule '(bs-bs #\newline #\%) "") collapse-spaces) @@ -1569,10 +1587,10 @@ (set! found? #t) (load me) (cond ((tex->txi vic base) - (txi->info (user-vicinity) base)) + #f) ((begin (load me) (tex->txi vic base)) - (txi->info (user-vicinity) base)))))))) + #f))))))) ((begin (load me) (tex->txi name)) - (txi->info (user-vicinity) base)) + #f) ((begin (load me) (tex->txi name)) - (txi->info (user-vicinity) base)))))))) + #f))))))) --- r5rs-doc-20010328.orig/ChangeLog +++ r5rs-doc-20010328/ChangeLog @@ -0,0 +1,92 @@ +------------------------------------------------------------------------ +r1710 | cph | 2002-10-18 16:30:44 -0400 (Fri, 18 Oct 2002) | 3 lines + +Make sure that rrrs2txi.sh has the execute bit set. Use debhelper v4 +to update standards version. + +------------------------------------------------------------------------ +r1489 | cph | 2002-03-24 08:59:35 -0500 (Sun, 24 Mar 2002) | 2 lines + +Need tetex-extra to get pdflatex stuff. + +------------------------------------------------------------------------ +r1334 | cph | 2002-01-11 23:33:06 -0500 (Fri, 11 Jan 2002) | 2 lines + +Return non-zero exit code when given unknown keyword argument. + +------------------------------------------------------------------------ +r1237 | cph | 2001-11-26 00:21:06 -0500 (Mon, 26 Nov 2001) | 2 lines + +Use makeinfo to generate HTML; texi2html has too many bugs. + +------------------------------------------------------------------------ +r1236 | cph | 2001-11-26 00:13:46 -0500 (Mon, 26 Nov 2001) | 2 lines + +Use makeinfo to generate HTML; texi2html has too many bugs. + +------------------------------------------------------------------------ +r1235 | cph | 2001-11-26 00:08:03 -0500 (Mon, 26 Nov 2001) | 3 lines + +Make sure that @var, @t, and @r aren't used in @def commands. +Make sure that "Top" node is properly capitalized. + +------------------------------------------------------------------------ +r945 | cph | 2001-06-08 00:35:36 -0400 (Fri, 08 Jun 2001) | 2 lines + +Doh. I never updated the Maintainer: field in the control file. + +------------------------------------------------------------------------ +r944 | cph | 2001-06-08 00:25:42 -0400 (Fri, 08 Jun 2001) | 2 lines + +Update to standards version 3.5.5. + +------------------------------------------------------------------------ +r943 | cph | 2001-06-08 00:25:18 -0400 (Fri, 08 Jun 2001) | 3 lines + +Run pdflatex three times in succession to make sure that all +references are found. + +------------------------------------------------------------------------ +r898 | cph | 2001-04-17 01:30:35 -0400 (Tue, 17 Apr 2001) | 2 lines + +Move build commands from binary-arch to binary-indep. + +------------------------------------------------------------------------ +r897 | cph | 2001-04-17 01:25:19 -0400 (Tue, 17 Apr 2001) | 2 lines + +Add ChangeLog. + +------------------------------------------------------------------------ +r896 | cph | 2001-04-17 01:19:14 -0400 (Tue, 17 Apr 2001) | 2 lines + +Initial revision. + +------------------------------------------------------------------------ +r895 | cph | 2001-04-17 01:17:35 -0400 (Tue, 17 Apr 2001) | 2 lines + +Tweak handling of Info directory entry again. + +------------------------------------------------------------------------ +r894 | cph | 2001-04-17 00:22:11 -0400 (Tue, 17 Apr 2001) | 3 lines + +Change Info directory information to be in accord with that used by +MIT Scheme. + +------------------------------------------------------------------------ +r893 | cph | 2001-04-17 00:10:00 -0400 (Tue, 17 Apr 2001) | 3 lines + +Remove code that generates Info files; we will handle that in the +debian/rules file. + +------------------------------------------------------------------------ +r892 | cph | 2001-04-17 00:07:03 -0400 (Tue, 17 Apr 2001) | 3 lines + +Remove code that generates Info files; we will handle that in the +debian/rules file. + +------------------------------------------------------------------------ +r891 | cph | 2001-04-17 00:03:53 -0400 (Tue, 17 Apr 2001) | 2 lines + +Imported from Aubrey's web page. + +------------------------------------------------------------------------ --- r5rs-doc-20010328.orig/rrrs2txi.sh +++ r5rs-doc-20010328/rrrs2txi.sh @@ -0,0 +1,6 @@ +#!/bin/sh +scm < --- r5rs-doc-20010328.orig/debian/copyright +++ r5rs-doc-20010328/debian/copyright @@ -0,0 +1,38 @@ +This package was debianized by Chris Hanson on +Mon, 16 Apr 2001 23:52:49 -0400 + +It was downloaded from + ftp://ftp.swiss.ai.mit.edu:/pub/scheme-reports/ (original document) + http://www.swiss.ai.mit.edu/users/jaffer/Scheme.html (Texinfo translator) + +Copyright: + +Original document: + + We intend this report to belong to the entire Scheme community, + and so we grant permission to copy it in whole or in part without + fee. In particular, we encourage implementors of Scheme to use + this report as a starting point for manuals and other + documentation, modifying it as necessary. + +Texinfo translator: + + Copyright (c) 1998, 2001 Aubrey Jaffer + Time-stamp: "2001-03-28 21:33:49 jaffer" + + Permission to copy this software, to redistribute it, and to use + it for any purpose is granted, subject to the following + restrictions and understandings. + + 1. Any copy made of this software must include this copyright + notice in full. + + 2. I have made no warrantee or representation that the operation + of this software will be error-free, and I am under no obligation + to provide any services, by way of maintenance, update, or + otherwise. + + 3. In conjunction with products arising from the use of this + material, there shall be no use of my name in any advertising, + promotional, or sales literature without prior written consent in + each case. --- r5rs-doc-20010328.orig/debian/changelog +++ r5rs-doc-20010328/debian/changelog @@ -0,0 +1,81 @@ +r5rs-doc (20010328-7) unstable; urgency=low + + * Update dependencies to use texlive. (closes: Bug#562355) + * Update to standards-version 3.8.4. (No changes) + * Bump debhelper minimum version to 5. + + -- Chris Hanson Sun, 14 Feb 2010 19:38:11 -0800 + +r5rs-doc (20010328-6) unstable; urgency=low + + * Make sure the rrrs2txi.sh script has the execute bit set. + (closes: Bug#165330) + * Update to standards version 3.5.7. + + -- Chris Hanson Fri, 18 Oct 2002 16:29:15 -0400 + +r5rs-doc (20010328-5) unstable; urgency=low + + * Add build-depends on tetex-extra to get pdflatex files. + (closes: Bug#139650) + + -- Chris Hanson Sun, 24 Mar 2002 09:00:15 -0500 + +r5rs-doc (20010328-4) unstable; urgency=medium + + * Use makeinfo rather than texi2html to generate HTML output. (closes: + Bug#12114) + * Update standards version to 3.5.6. + + -- Chris Hanson Mon, 26 Nov 2001 00:17:16 -0500 + +r5rs-doc (20010328-3) unstable; urgency=low + + * Doh. I never updated the Maintainer: field in the control file. + + -- Chris Hanson Fri, 8 Jun 2001 00:35:49 -0400 + +r5rs-doc (20010328-2) unstable; urgency=low + + * Run pdflatex three times in a row to make sure that all references are + resolved. (closes: Bug#100031) + * Update to standards-version 3.5.5. + + -- Chris Hanson Fri, 8 Jun 2001 00:27:15 -0400 + +r5rs-doc (20010328-1) unstable; urgency=low + + * New maintainer. (closes: Bug#90879, Bug#83024) + * Completely restructure package to generate its output from the + original TeX by processing it with Aubrey Jaffer's translator. New + upstream version now reflects date on which translator was written. + * Rewrite to use debhelper. + * Update to policy 3.5.2. Add build depends for scm, tetex-bin, and + texinfo. + + -- Chris Hanson Tue, 17 Apr 2001 01:38:07 -0400 + +r5rs-doc (19980421-0.1) unstable; urgency=low + + * non-maintainer upload + * upstream TexInfo file has no discrenable version number, moved to + date-based versioning + * new upstream source (closes: Bug#43154, Bug#65603) + * debian/rules: provide HTML version as well (closes: Bug#30417); + was incorrectly using 'binary-arch' target for arch-indep stuff + * debian/control: update to Policy version 3.2.1 (debstd handled); add + Build-Depends-Indep for debstd, texi2html + + -- Adam Di Carlo Sun, 21 Jan 2001 04:02:44 -0500 + +r5rs-doc (1.0-1) unstable; urgency=low + + * R5RS released. + + -- Jim Pick Fri, 13 Mar 1998 19:38:46 -0800 + +r4rs-doc (1.0-1) unstable; urgency=low + + * Initial Release. + + -- Jim Pick Sun, 8 Mar 1998 20:48:08 -0800 --- r5rs-doc-20010328.orig/debian/rules +++ r5rs-doc-20010328/debian/rules @@ -0,0 +1,61 @@ +#!/usr/bin/make -f +# Sample debian/rules that uses debhelper. +# GNU copyright 1997 to 1999 by Joey Hess. + +# Uncomment this to turn on verbose mode. +#export DH_VERBOSE=1 + +DESTDIR := $(shell pwd)/debian/r5rs-doc + +configure: configure-stamp +configure-stamp: + chmod +x rrrs2txi.sh + touch configure-stamp + +build: configure-stamp build-stamp +build-stamp: + dh_testdir + pdflatex r5rs.tex + pdflatex r5rs.tex + pdflatex r5rs.tex + ./rrrs2txi.sh + makeinfo r5rs.txi + makeinfo --html --ifinfo r5rs.txi + touch build-stamp + +clean: + dh_testdir + dh_testroot + rm -f build-stamp configure-stamp + rm -f r5rs.aux r5rs.idx r5rs.log r5rs.pdf r5rs.toc + rm -f r5rs.txi r5rs-nod.scm r5rs.info* + rm -rf r5rs + dh_clean + +install: build + dh_testdir + dh_testroot + dh_clean -k + dh_installdirs + +# Build architecture-independent files here. +binary-indep: build install + dh_testdir + dh_testroot + dh_installdocs r5rs r5rs.pdf + dh_installexamples + dh_installinfo r5rs.info* + dh_installchangelogs ChangeLog + dh_compress --exclude=.pdf + dh_fixperms + dh_installdeb + dh_gencontrol + dh_md5sums + dh_builddeb + +# Build architecture-dependent files here. +binary-arch: build install +# We have nothing to do by default. + +binary: binary-indep binary-arch +.PHONY: build clean binary-indep binary-arch binary install configure --- r5rs-doc-20010328.orig/debian/doc-base +++ r5rs-doc-20010328/debian/doc-base @@ -0,0 +1,13 @@ +Document: r5rs-doc +Title: Revised(5) Report on the Algorithmic Language Scheme +Author: Abelson et. al. +Abstract: The report gives a defining description of + the programming language Scheme. +Section: Programming + +Format: HTML +Index: /usr/share/doc/r5rs-doc/r5rs/index.html +Files: /usr/share/doc/r5rs-doc/r5rs/*.html + +Format: pdf +Files: /usr/share/doc/r5rs-doc/r5rs.pdf --- r5rs-doc-20010328.orig/debian/compat +++ r5rs-doc-20010328/debian/compat @@ -0,0 +1 @@ +5 --- r5rs-doc-20010328.orig/debian/control +++ r5rs-doc-20010328/debian/control @@ -0,0 +1,22 @@ +Source: r5rs-doc +Section: doc +Priority: optional +Maintainer: Chris Hanson +Standards-Version: 3.8.4 +Build-Depends: debhelper (>= 5.0.0) +Build-Depends-Indep: scm, texlive-binaries, texlive-latex-base, texinfo + +Package: r5rs-doc +Architecture: all +Depends: ${misc:Depends}, dpkg (>= 1.15.4) | install-info +Description: Revised(5) Report on the Algorithmic Language Scheme + The report gives a defining description of the programming language + Scheme. Scheme is a statically scoped and properly tail-recursive + dialect of the Lisp programming language invented by Guy Lewis + Steele Jr. and Gerald Jay Sussman. It was designed to have an + exceptionally clear and simple semantics and few different ways to + form expressions. A wide variety of programming paradigms, including + imperative, functional, and message passing styles, find convenient + expression in Scheme. + . + The documentation in this package is in GNU info, HTML, and PDF formats.