Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Auto-importing the module being documented with chibi-doc.

Browse source 
Keeping environment separate from the interaction-environment.
This commit is contained in:
Alex Shinn 2012-11-12 22:47:45 +09:00
parent 89dc912444
commit b6ba47c2e3
2 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/match/match.scm
View file

@ -141,7 +141,7 @@
;;> if the value isn't a pair.
;;> @example{(match '(1 . 2) ((= car x) x))}
;;> @example{(match 4 ((= sqrt x) x))}
;;> @example{(match 4 ((= square x) x))}
;;> The record operator @scheme{$} is used as a concise way to match
;;> records defined by SRFI-9 (or SRFI-99). The usage is

16
tools/chibi-doc
View file

@ -3,7 +3,7 @@
(import
(chibi) (srfi 1) (chibi modules) (chibi ast) (chibi io) (chibi match)
(chibi time) (chibi filesystem) (chibi scribble) (chibi highlight)
(chibi type-inference))
(chibi type-inference) (scheme eval))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -103,7 +103,7 @@
(else (set-car! env (cons (cons name value) (car env))))))
(define (env-extend env vars vals)
(append (map cons vars vals) env))
(list (append (map cons vars vals) (car env))))
(define (make-default-env)
`(((section . ,(expand-section 'h1))
@ -630,9 +630,10 @@ div#footer {padding-bottom: 50px}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (output doc)
(sxml-display-as-html
(fix-header (fix-paragraphs (fix-begins (expand doc (make-default-env)))))))
(define (output doc . o)
(let ((env (if (pair? o) (car o) (make-default-env))))
(sxml-display-as-html
(fix-header (fix-paragraphs (fix-begins (expand doc env)))))))
(define (convert in)
(output (scribble-parse in)))
@ -664,7 +665,10 @@ div#footer {padding-bottom: 50px}
,@(reverse (append-map (lambda (x) (extract-docs x defs exports))
(module-includes mod)))
,@(reverse (append-map (lambda (x) (extract-docs x defs exports 'ffi))
(module-shared-includes mod)))))))
(module-shared-includes mod))))
(env-extend (make-default-env)
'(example-env)
(list (environment '(scheme base) mod-name))))))
(let ((args (command-line)))
(case (length args)