summaryrefslogtreecommitdiff
path: root/scripts/snarf-check-and-output-texi
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/snarf-check-and-output-texi')
-rwxr-xr-xscripts/snarf-check-and-output-texi13
1 files changed, 5 insertions, 8 deletions
diff --git a/scripts/snarf-check-and-output-texi b/scripts/snarf-check-and-output-texi
index f6ca78757..37d751c86 100755
--- a/scripts/snarf-check-and-output-texi
+++ b/scripts/snarf-check-and-output-texi
@@ -143,7 +143,7 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
(set! *sig* #f)
(set! *docstring* #f))
-(define *primitive-deffnx-signature* "@deffnx primitive ")
+(define *primitive-deffnx-signature* "@deffnx {Scheme Procedure} ")
(define *primitive-deffnx-sig-length* (string-length *primitive-deffnx-signature*))
(define (end-multiline)
@@ -184,18 +184,18 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
(if (and *manual-flag* (eq? *snarf-type* 'primitive))
(with-output-to-string
(lambda ()
- (format #t "@deffnx function SCM ~A (" *c-function-name*)
+ (format #t "@deffnx {C Function} ~A (" *c-function-name*)
(unless (null? *args*)
- (format #t "SCM ~A" (car *args*))
+ (format #t "~A" (car *args*))
(let loop ((args (cdr *args*)))
(unless (null? args)
- (format #t ", SCM ~A" (car args))
+ (format #t ", ~A" (car args))
(loop (cdr args)))))
(format #t ")\n")))
#f)))
(format #t "\n ~A\n" *function-name*)
(format #t "@c snarfed from ~A:~A\n" *file* *line*)
- (format #t "@deffn primitive ~A\n" nice-sig)
+ (format #t "@deffn {Scheme Procedure} ~A\n" nice-sig)
(let loop ((strings *docstring*) (scm-deffnx scm-deffnx))
(cond ((null? strings))
((or (not scm-deffnx)
@@ -209,9 +209,6 @@ exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
(else (display scm-deffnx)
(loop strings #f))))
(display "\n")
- (when *manual-flag*
- (format #t "@findex ~A\n" *function-name*)
- (format #t "@findex ~A\n" *c-function-name*))
(display "@end deffn\n"))))
(define (texi-quote s)