From 71529195046227ccbecfd84d9492cc3a1f91f310 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 3 Feb 2008 21:39:42 +0100 Subject: doc: Improve chapter on computer program highlighting. --- doc/user/src/prgm1.skb | 12 ++++++------ doc/user/src/prgm2.skb | 13 +++++++++---- 2 files changed, 15 insertions(+), 10 deletions(-) (limited to 'doc/user/src') diff --git a/doc/user/src/prgm1.skb b/doc/user/src/prgm1.skb index dcdeb88..53b24d2 100644 --- a/doc/user/src/prgm1.skb +++ b/doc/user/src/prgm1.skb @@ -1,15 +1,15 @@ (frame :width 100. (prog :line 10 :mark "##" [ -SKRIBE=skribe +SKRIBILO = skribilo -all: demo.html demo.man ##main-goal +all: demo.html demo.lout ##main-goal demo.html: demo.skb - $(SKRIBE) demo.skb -o demo.html + $(SKRIBILO) -t html demo.skb -o demo.html -demo.man: demo.skb - $(SKRIBE) demo.skb -o demo.man +demo.lout: demo.skb + $(SKRIBILO) -t lout demo.skb -o demo.lout ])) -(p [The main goal is specified line ,(ref :line "main-goal").]) +(p [The main goal is specified on line ,(ref :line "main-goal").]) diff --git a/doc/user/src/prgm2.skb b/doc/user/src/prgm2.skb index 2996cc8..8ba1bc3 100644 --- a/doc/user/src/prgm2.skb +++ b/doc/user/src/prgm2.skb @@ -1,7 +1,11 @@ +(use-modules (skribilo source lisp)) + +(linebreak) (frame :width 100. - (prog (source :language bigloo :file "prgm.skb" :definition 'fib))) + (prog (source :language scheme :file "prgm.skb" :definition 'fib))) -(p [The Fibonacci function is defined line ,(ref :line "fib").]) +(p [The Fibonacci function is defined on line ,(ref :line "fib").]) +(linebreak) ;!start (frame :width 100. @@ -10,9 +14,10 @@ ;!stop (p [Here is the source of the frame above:]) +(linebreak) (frame :width 100. (prog :line 30 :mark #f (source :language skribe :file "src/prgm2.skb" - :start ";!start" - :stop ";!stop"))) + :start (string-append ";" "!start") ;; trick! + :stop (string-append ";" "!stop")))) -- cgit v1.2.3