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

fix longstanding todo and get signature from analyzed procedure forms

Browse source
This commit is contained in:
Alex Shinn 2021-04-08 23:00:12 +09:00
parent 8c45c3fb19
commit 4bd4f08b59
1 changed files with 19 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
lib/chibi/doc.scm
View file

@ -693,8 +693,6 @@ h4 { color: #222288; border-top: 1px solid #4588ba; }
(('begin body0 ... body) (get-value-signature mod id proc name body)) (('begin body0 ... body) (get-value-signature mod id proc name body))
(else (get-procedure-signature mod id proc)))) (else (get-procedure-signature mod id proc))))
;; TODO: analyze and match on AST instead of making assumptions about
;; bindings
(define (get-signature mod id proc source form) (define (get-signature mod id proc source form)
(match form (match form
(('define (name args ...) . body) (('define (name args ...) . body)
@ -708,7 +706,11 @@ h4 { color: #222288; border-top: 1px solid #4588ba; }
(map (lambda (x) (cons name (cdr x))) (map (lambda (x) (cons name (cdr x)))
(filter external-clause? clause))) (filter external-clause? clause)))
(else (else
(get-procedure-signature mod id proc)))) (cond
((procedure-analysis proc mod)
=> (lambda (lam) (list (cons (lambda-name lam) (lambda-params lam)))))
(else
(get-procedure-signature mod id proc))))))
(define (get-ffi-signatures form) (define (get-ffi-signatures form)
(match form (match form
@ -846,17 +848,22 @@ h4 { color: #222288; border-top: 1px solid #4588ba; }
(define (extract-file-docs mod file all-defs strict? . o) (define (extract-file-docs mod file all-defs strict? . o)
;; extract (<file> . <line>) macro source or ;; extract (<file> . <line>) macro source or
;; (<offset> <file . <line>>) procedure source ;; (<offset> <file . <line>) procedure source or
;; ((<offset> <file . <line>) ...) bytecode sources
(define (source-line source) (define (source-line source)
(and (pair? source) (and (pair? source)
(if (string? (car source)) (cond
(and (equal? file (car source)) ((string? (car source))
(number? (cdr source)) (and (equal? file (car source))
(cdr source)) (number? (cdr source))
(and (number? (car source)) (cdr source)))
(pair? (cdr source)) ((pair? (car source))
(equal? file (cadr source)) (source-line (car source)))
(cddr source))))) (else
(and (number? (car source))
(pair? (cdr source))
(equal? file (cadr source))
(cddr source))))))
(define (read-to-paren in) (define (read-to-paren in)
(let lp1 ((res '())) (let lp1 ((res '()))
(let ((ch (peek-char in))) (let ((ch (peek-char in)))