/[cmucl]/src/docs/database/cmulisp-fmt.el
ViewVC logotype

Contents of /src/docs/database/cmulisp-fmt.el

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Tue Jul 14 20:21:35 1992 UTC (21 years, 9 months ago) by ram
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, double-double-array-base, post-merge-intl-branch, release-19b-pre1, release-19b-pre2, merged-unicode-utf16-extfmt-2009-06-11, double-double-init-sparc-2, unicode-utf16-extfmt-2009-03-27, double-double-base, snapshot-2007-09, snapshot-2007-08, snapshot-2008-08, snapshot-2008-09, ppc_gencgc_snap_2006-01-06, sse2-packed-2008-11-12, snapshot-2008-05, snapshot-2008-06, snapshot-2008-07, snapshot-2007-05, snapshot-2008-01, snapshot-2008-02, snapshot-2008-03, intl-branch-working-2010-02-19-1000, snapshot-2006-11, snapshot-2006-10, double-double-init-sparc, snapshot-2006-12, unicode-string-buffer-impl-base, sse2-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, sse2-packed-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, snapshot-2003-10, snapshot-2004-10, release-18e-base, release-19f-pre1, snapshot-2008-12, snapshot-2008-11, intl-2-branch-base, snapshot-2004-08, snapshot-2004-09, remove_negative_zero_not_zero, snapshot-2007-01, snapshot-2007-02, snapshot-2004-05, snapshot-2004-06, snapshot-2004-07, release-19e, release-19d, GIT-CONVERSION, double-double-init-ppc, release-19c, dynamic-extent-base, unicode-utf16-sync-2008-12, LINKAGE_TABLE, release-19c-base, cross-sol-x86-merged, label-2009-03-16, release-19f-base, PRE_LINKAGE_TABLE, merge-sse2-packed, mod-arith-base, sparc_gencgc_merge, merge-with-19f, snapshot-2004-12, snapshot-2004-11, intl-branch-working-2010-02-11-1000, unicode-snapshot-2009-05, unicode-snapshot-2009-06, amd64-merge-start, ppc_gencgc_snap_2005-12-17, double-double-init-%make-sparc, unicode-utf16-sync-2008-07, release-18e-pre2, unicode-utf16-sync-2008-09, unicode-utf16-extfmts-sync-2008-12, prm-before-macosx-merge-tag, cold-pcl-base, RELEASE_20b, snapshot-2008-04, snapshot-2003-11, snapshot-2005-07, unicode-utf16-sync-label-2009-03-16, RELEASE_19f, snapshot-2007-03, release-20a-base, cross-sol-x86-base, unicode-utf16-char-support-2009-03-26, unicode-utf16-char-support-2009-03-25, release-19a-base, unicode-utf16-extfmts-pre-sync-2008-11, snapshot-2008-10, sparc_gencgc, snapshot-2007-04, snapshot-2010-12, snapshot-2010-11, unicode-utf16-sync-2008-11, snapshot-2007-07, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2007-06, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, snapshot-2003-12, release-19a-pre1, release-19a-pre3, release-19a-pre2, pre-merge-intl-branch, release-19a, UNICODE-BASE, double-double-array-checkpoint, double-double-reader-checkpoint-1, release-19d-base, release-19e-pre1, double-double-irrat-end, release-19e-pre2, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, release-19d-pre2, release-19d-pre1, snapshot-2010-08, release-18e, double-double-init-checkpoint-1, double-double-reader-base, label-2009-03-25, snapshot-2005-03, release-19b-base, cross-sol-x86-2010-12-20, double-double-init-x86, sse2-checkpoint-2008-10-01, intl-branch-2010-03-18-1300, snapshot-2005-11, double-double-sparc-checkpoint-1, snapshot-2004-04, sse2-merge-with-2008-11, sse2-merge-with-2008-10, snapshot-2005-10, RELEASE_20a, snapshot-2005-12, release-20a-pre1, snapshot-2005-01, snapshot-2009-11, snapshot-2009-12, unicode-utf16-extfmt-2009-06-11, portable-clx-import-2009-06-16, unicode-utf16-string-support, release-19c-pre1, cross-sparc-branch-base, release-19e-base, intl-branch-base, double-double-irrat-start, snapshot-2005-06, snapshot-2005-05, snapshot-2005-04, ppc_gencgc_snap_2005-05-14, snapshot-2005-02, unicode-utf16-base, portable-clx-base, snapshot-2005-09, snapshot-2005-08, lisp-executable-base, snapshot-2009-08, snapshot-2007-12, snapshot-2007-10, snapshot-2007-11, snapshot-2009-02, snapshot-2009-01, snapshot-2009-07, snapshot-2009-05, snapshot-2009-04, snapshot-2006-02, snapshot-2006-03, release-18e-pre1, snapshot-2006-01, snapshot-2006-06, snapshot-2006-07, snapshot-2006-04, snapshot-2006-05, pre-telent-clx, snapshot-2006-08, snapshot-2006-09, HEAD
Branch point for: release-19b-branch, double-double-reader-branch, double-double-array-branch, mod-arith-branch, RELEASE-19F-BRANCH, portable-clx-branch, sparc_gencgc_branch, cross-sparc-branch, RELEASE-20B-BRANCH, unicode-string-buffer-branch, sparc-tramp-assem-branch, dynamic-extent, UNICODE-BRANCH, release-19d-branch, ppc_gencgc_branch, sse2-packed-branch, lisp-executable, RELEASE-20A-BRANCH, amd64-dd-branch, double-double-branch, unicode-string-buffer-impl-branch, intl-branch, release-18e-branch, cold-pcl, unicode-utf16-branch, cross-sol-x86-branch, release-19e-branch, sse2-branch, release-19a-branch, release-19c-branch, intl-2-branch, unicode-utf16-extfmt-branch
Changes since 1.1: +4 -0 lines
Added hfill as a latexinfo no-op.
1 (load "clisp-fmt")
2 (load "funref-fmt")
3
4 (put 'defvar 'latexinfo-deffn-formatting-property
5 'latexinfo-format-specialized-defvar)
6
7 (put 'defvarx 'latexinfo-deffn-formatting-property
8 'latexinfo-format-specialized-defvar)
9
10 (defun latexinfo-format-specialized-defvar (parsed-args)
11 ;; Specialized variable-like entity:
12 ;; \defvar{name} In Info, `Variable: Name'
13 ;; Use cdr of command-type to determine category:
14 (let ((category (car (cdr command-type)))
15 (name (car parsed-args))
16 (args (cdr parsed-args)))
17 (if (not (looking-at "\n")) (insert "\n"))
18 (insert " -- " category ": " "*" name "*")
19 (while args
20 (insert " "
21 (if (= ?& (aref (car args) 0))
22 (car args)
23 (upcase (car args)))
24 "\n")
25 (setq args (cdr args)))))
26
27
28
29 (put 'python 'latexinfo-format 'latexinfo-format-python)
30 (defun latexinfo-format-python ()
31 (latexinfo-parse-noarg)
32 (insert "Python"))
33
34 (put 'Python 'latexinfo-format 'latexinfo-format-Python)
35 (defun latexinfo-format-Python ()
36 (latexinfo-parse-noarg)
37 (insert "Python"))
38
39 (put 'hemlock 'latexinfo-format 'latexinfo-format-hemlock)
40 (defun latexinfo-format-hemlock ()
41 (latexinfo-parse-noarg)
42 (insert "hemlock"))
43
44 (put 'Hemlock 'latexinfo-format 'latexinfo-format-Hemlock)
45 (defun latexinfo-format-Hemlock ()
46 (latexinfo-parse-noarg)
47 (insert "Hemlock"))
48
49 (put 'clisp 'latexinfo-format 'latexinfo-format-clisp)
50 (defun latexinfo-format-clisp ()
51 (latexinfo-parse-noarg)
52 (insert "Common Lisp"))
53
54 (put 'cmucl 'latexinfo-format 'latexinfo-format-cmucl)
55 (defun latexinfo-format-cmucl ()
56 (latexinfo-parse-noarg)
57 (insert "CMU Common Lisp"))
58
59 (put 'cmulisp 'latexinfo-format 'latexinfo-format-cmulisp)
60 (defun latexinfo-format-clisp ()
61 (latexinfo-parse-noarg)
62 (insert "CMU Common Lisp"))
63
64 (put 'alien 'latexinfo-format 'latexinfo-format-alien)
65 (defun latexinfo-format-alien ()
66 (latexinfo-parse-noarg)
67 (insert "alien"))
68
69 (put 'Alien 'latexinfo-format 'latexinfo-format-Alien)
70 (defun latexinfo-format-Alien ()
71 (latexinfo-parse-noarg)
72 (insert "Alien"))
73
74 (put 'Aliens 'latexinfo-format 'latexinfo-format-Aliens)
75 (defun latexinfo-format-Aliens ()
76 (latexinfo-parse-noarg)
77 (insert "Aliens"))
78
79 (put 'aliens 'latexinfo-format 'latexinfo-format-aliens)
80 (defun latexinfo-format-aliens ()
81 (latexinfo-parse-noarg)
82 (insert "aliens"))
83
84 (put 'Llisp 'latexinfo-format 'latexinfo-format-llisp)
85 (put 'llisp 'latexinfo-format 'latexinfo-format-llisp)
86 (defun latexinfo-format-llisp ()
87 (latexinfo-parse-noarg)
88 (insert "Common Lisp"))
89
90 (put 'cltl 'latexinfo-format 'latexinfo-format-cltl)
91 (defun latexinfo-format-cltl ()
92 (latexinfo-parse-noarg)
93 (insert "\i{Common Lisp: The Language}"))
94
95 (put 'hinge 'latexinfo-format 'latexinfo-format-hinge)
96 (defun latexinfo-format-hinge ()
97 (latexinfo-parse-noarg)
98 )
99
100 (put 'hfill 'latexinfo-format 'latexinfo-format-hfill)
101 (defun latexinfo-format-hfill ()
102 (latexinfo-parse-noarg))
103
104 (put 'hide 'latexinfo-format 'latexinfo-parse-required-argument)
105 (put 'ux 'latexinfo-format 'latexinfo-parse-required-argument)
106
107 (put 'dash 'latexinfo-format 'latexinfo-format-dash)
108 (defun latexinfo-format-dash ()
109 (latexinfo-parse-noarg)
110 (insert "--"))
111
112 (put 'kwd 'latexinfo-format 'latexinfo-format-kwd)
113 (defun latexinfo-format-kwd ()
114 (insert ":" (latexinfo-parse-arg-discard) )
115 (goto-char latexinfo-command-start))
116
117 (put 'multiple 'latexinfo-format 'latexinfo-format-noop)
118 (put 'F 'latexinfo-format 'latexinfo-format-noop)
119
120 (put 'keys 'latexinfo-format 'latexinfo-format-keys)
121 (defun latexinfo-format-keys ()
122 (insert "&keys " (latexinfo-parse-required-argument))
123 (goto-char latexinfo-command-start))
124
125 (put 'args 'latexinfo-format 'latexinfo-format-args)
126 (defun latexinfo-format-args ()
127 (insert (latexinfo-parse-required-argument))
128 (goto-char latexinfo-command-start))
129
130 (put 'morekeys 'latexinfo-format 'latexinfo-format-morekeys)
131 (put 'yetmorekeys 'latexinfo-format 'latexinfo-format-morekeys)
132 (defun latexinfo-format-morekeys ()
133 (insert " " (latexinfo-parse-required-argument))
134 (goto-char latexinfo-command-start))
135
136
137 (put 'findexed 'latexinfo-format 'latexinfo-format-noop)
138 (put 'vindexed 'latexinfo-format 'latexinfo-format-noop)
139 (put 'tindexed 'latexinfo-format 'latexinfo-format-noop)
140 (put 'conindexed 'latexinfo-format 'latexinfo-format-noop)
141 (put 'vrindex 'latexinfo-format 'latexinfo-format-noop)
142 (put 'cpindex 'latexinfo-format 'latexinfo-format-noop)
143 (put 'fnindex 'latexinfo-format 'latexinfo-format-noop)
144 (put 'pgindex 'latexinfo-format 'latexinfo-format-noop)
145 (put 'tpindex 'latexinfo-format 'latexinfo-format-noop)
146 (put 'kyindex 'latexinfo-format 'latexinfo-format-noop)

  ViewVC Help
Powered by ViewVC 1.1.5