[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: eval-to-texi
From: |
jemarch |
Subject: |
Re: eval-to-texi |
Date: |
Fri, 30 Apr 2004 19:45:50 +0200 |
> + (setq tform (replace-regexp-in-string "@" "@@" tform))
> + (setq tform (replace-regexp-in-string "{" "@{" tform))
> + (setq tform (replace-regexp-in-string "}" "@}" tform))
Aka (setq tform (replace-regexp-in-string "address@hidden" "@\\&" tform))
Ok, thanks. Changed in the following patch.
*** texinfo.el.~1.102.~ Sat Feb 21 14:48:44 2004
--- texinfo.el Fri Apr 30 19:43:07 2004
***************
*** 1050,1055 ****
--- 1050,1147 ----
;; job-number"\n"))
(tex-recenter-output-buffer nil))
+
+ (defun texinfo-eval-to-texi (form &optional tostring)
+ "Evaluates FORM, dumping a @lisp texinfo environment with the evaluation
+ description.
+
+ If TOSTRING is t, then the @lisp environment is returned into a string,
+ rather than being inserted into the current buffer."
+
+ (interactive "sForm to evaluate: ")
+
+ (let (environment-text)
+
+ (setq environment-text
+
+ (with-temp-buffer
+
+ (condition-case error-description
+
+ (let (expression result output)
+
+ ;; Begin of the sample
+ (insert "@lisp\n")
+
+ ;; Dump the form itself into the sample
+ (let ((tform form))
+
+ (setq tform (replace-regexp-in-string "address@hidden"
"@\\&" tform))
+
+ (insert tform "\n"))
+
+ ;; Parse the form to a valid expression
+ (setq expression (read form))
+
+
+
+ ;; Get the result of the eval, and the output if there is one
+ (setq output
+ (with-output-to-string
+ (setq result (prin1-to-string (eval expression)))))
+
+ ;; If there is any output, dump a @print{} entry into the
sample
+ (if (not (equal output ""))
+
+ (progn
+ ;; Escape texinfo special characters on the output
+ (setq output (replace-regexp-in-string "address@hidden"
"@\\&" output))
+
+ ;; Indent multilines
+ (setq output (replace-regexp-in-string "\n" "\n
" output))
+
+ (insert " @print{} " output "\n")))
+
+ ;; If the expression is a macro, dump an @expansion{}
+ (let ((macroexp (macroexpand expression)))
+ (if (not (equal macroexp expression)) ; macro-p???
+
+ (let ((met (prin1-to-string macroexp)))
+
+ ;; Escape texinfo special characters on the macro
expansion text
+ (setq met (replace-regexp-in-string "address@hidden"
"@\\&" met))
+
+ ;; Indent multilines
+ (setq met (replace-regexp-in-string "\n" "\n
" met))
+
+ (insert " @expansion{} " met "\n"))))
+
+ ;; Escape texinfo special characters on the result
+ (setq result (replace-regexp-in-string "address@hidden"
"@\\&" result))
+
+ ;; Indent multilines
+ (setq result (replace-regexp-in-string "\n" "\n "
result))
+
+ ;; Dump the @result{} entry into the sample
+ (insert " @result{} " result "\n"))
+
+ ;; Was an error => Dump an @error{} entry into the sample with
the error
+ ;; description from the interpreter
+ (error (insert " @error{} " (error-message-string
error-description) "\n")))
+
+ ;; End of the sample
+ (insert "@end lisp")
+
+ ;; Return buffer's contents
+ (buffer-substring (point-min) (point-max))))
+
+
+ (if (not tostring)
+ (insert environment-text)
+ environment-text)))
+
- eval-to-texi, jemarch, 2004/05/03
- Re: eval-to-texi, Stefan Monnier, 2004/05/03
- Re: eval-to-texi,
jemarch <=
- Re: eval-to-texi, Adrian Aichner, 2004/05/03
- Re: eval-to-texi, jemarch, 2004/05/03
- Re: eval-to-texi, David Kastrup, 2004/05/04
- Re: eval-to-texi, Juri Linkov, 2004/05/04
- Re: eval-to-texi, Miles Bader, 2004/05/04
Re: eval-to-texi, Kevin Rodgers, 2004/05/03