File: pars-part-output.el

package info (click to toggle)
python-mode 1%3A6.1.3-2
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 2,440 kB
  • ctags: 3,272
  • sloc: lisp: 32,583; sh: 1,418; python: 757; makefile: 41
file content (100 lines) | stat: -rw-r--r-- 3,456 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
;;; pars-part-output.el --- `parse-partial-sexp' and `syntax-ppss'


;; Author: Andreas Roehler <andreas.roehler@easy-emacs.de>, unless indicated otherwise

;; Keywords: tools, lisp

;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;; Prints commented output 

;; (global-set-key (kbd "<M-f6>") 'parse-partial-sexp-iac)
;; (global-set-key (kbd "<M-f7>") 'syntax-ppss-iac)

(defun parse-partial-sexp-commentstop (&optional arg) 
  "Interactive form of parse-partial-sexp
output listed with documentation"
  (interactive "P")
  (save-excursion 
    (ppse-documented-base 'parse-partial-sexp (point) arg t)))

(defun parse-partial-sexp-iac (&optional arg) 
  "Interactive form of parse-partial-sexp
output listed with documentation"
  (interactive "P")
  (save-excursion 
    (ppse-documented-base 'parse-partial-sexp (point) arg nil)))

(defun syntax-ppss-iac (&optional arg) 
  "Syntax-ppss made interactive output listed with documentation"
  (interactive "P")
  (ppse-documented-base 'syntax-ppss (point) arg nil)) 

(defun ppse-documented-base (funktion end arg commentstop)
  "Parse partial symbolic expression
list results below its documentation "
  (let* ((start (point-min)) 
	 (scan (condition-case nil
                   (scan-lists (point) 1 0)
                 (error nil)))
	 (rekord
	  (if
	      (or (eq this-command 'parse-partial-sexp-iac)
                  (eq this-command 'parse-partial-sexp-commentstop))
	      (funcall funktion start end nil nil nil commentstop)
	    (funcall funktion end)))
	 (doku (documentation 'parse-partial-sexp))
	 (doku-abr (list (substring doku (1+ (string-match ":" doku)))))
         (count 0))
    (if arg
	(what-cursor-position)
      (message "%s LEND: %s" rekord scan))
    (with-output-to-temp-buffer (concat (format "%s" funktion) "-output")
      (set-buffer standard-output)
      (insert (car doku-abr))
      (goto-char (point-min))
      (re-search-forward "^ [0-9]+\." nil t 1)
      (replace-match (concat (prin1-to-string count) "-"))
      (replace-match "-")
      (setq count (1+ count))
      (forward-line 1) 
      (split-line)
      (dolist (elt rekord)
	(insert (format "\t ====> %s <====" elt))
	(re-search-forward "^ [0-9]+\." nil t 1)
	(replace-match (concat (prin1-to-string count) "-"))
	(end-of-line) 
	(newline)
        (setq count (1+ count)))))
  (goto-char (point-min))
  (toggle-read-only -1)
  (unless (featurep 'xemacs)
    (set-window-text-height (selected-window) 4))
  (while (not (eobp))
    (if (looking-at "^[ \t]*$")
	(delete-region (point) (progn (forward-line) (point)))
      (forward-line))))

(defun scan-lists-iac ()
  " "
  (interactive)
  (message "%s" (scan-lists (defun-beginning-position) (point)  0))) 

(provide 'pars-part-output)
;;; pars-part-output.el ends here