I've added a module to typeset Common Lisp code with some syntax coloring to
cl-typesetting.
The syntax coloring is too simple to be 100% accurate: Improvements
welcomed!
(Multiple lines strings are not handled for instance)
As an obvious example, I used this code to typeset itself ;-)
The result is here: http://www.fractalconcept.com/pprint.pdf
This module + cl-typegraph are the base layers for the automatic generation
of documentation for Common Lisp code.
The idea is to use XRefs tools like Albert or the ones from the CMU lisp
repository to extract and generate some interesting documentation from the
analysis of a bunch of source files.
(Examples of graphs are on page 3 of the cl-typesetting example. The first
one is a class hierarchy.
See: http://www.fractalconcept.com/ex.pdf)
The cl-typesetting repository is here:
http://www.fractalconcept.com:8000/public/open-source/
And the latest tarball is here:
http://www.fractalconcept.com/download/cl-typesetting-current.tgz
Marc
Marc Battyani wrote:
[cl-typesetting & pprint]
> The result is here: http://www.fractalconcept.com/pprint.pdf
[...]
> See: http://www.fractalconcept.com/ex.pdf)
pretty impressive, i must say.
one question though: the pdf's don't handle too well in gv (both under
linux and Apple's X on OS X 10.3). gv does display the files properly, but
it doesn't show the list of pages on the left. which means i can only
scroll downward, but not back up.
when i open up ex.pdf on OS X from an xterm, i get this output on the console:
·····@Joost-Kremers-Computer:~/Desktop $ gv ex.pdf &
[1] 481
·····@Joost-Kremers-Computer:~/Desktop $ Error: /undefined in /BXlevel
Operand stack:
363019 2 0 --nostringval-- Creator 4 --dict:9/9(ro)(G)-- cl-pdf
Execution stack:
%interp_exit .runexec2 --nostringval-- --nostringval-- --nostringval-- 2
%stopped_push --nostringval-- --nostringval-- --nostringval-- false 1
%stopped_push 1 3 %oparray_pop 1 3 %oparray_pop 1 3 %oparray_pop 1 3
%oparray_pop .runexec2 --nostringval-- --nostringval-- --nostringval-- 2
%stopped_push --nostringval-- --nostringval-- --nostringval--
--nostringval-- false 1 %stopped_push --nostringval-- %loop_continue
--nostringval-- Dictionary stack: --dict:1111/1686(ro)(G)--
--dict:0/20(G)-- --dict:75/200(L)-- --dict:104/127(ro)(G)--
--dict:237/347(ro)(G)-- --dict:21/24(L)--
Current allocation mode is local
Last OS error: 2
Current file position is 2936
AFPL Ghostscript 8.13: Unrecoverable error, exit code 1
and gv pops up an error box saying:
Execution of gs -dNODISPLAY -dQUIET -sPDFname=ex.pdf
-sDSCname=/Users/joost/gv_4135d0a6_1_ex.pdf.tmp pdf2dsc.ps -c quit failed.
OS X's previewer doesn't seem to have any problem with the files. it gives
no error, and shows the pages correctly.
--
Joost Kremers ············@yahoo.com
Selbst in die Unterwelt dringt durch Spalten Licht
EN:SiS(9)