Bonjour,
Je cherche a faire un mode majeur dans Emacs pour lire et analyser un tkprof (Oracle...).
J'ai deux problemes :
- J'y connais rien en lisp,
- Je cherche la bonne solution.
Mon but finale est d'avoir une fonction qui ouvre un nouveau buffer qui contient une sorte de grep des lignes qui contienne la chaine "total" et de pouvoir cliquer faire le meme action que si j'avais fais un grep. Le probleme c'est que grep a besoin d'un fichier pour fonctionner si mon buffer est dans un zip cela ne fonctionne pas.
Alors j'ai ecris ca :
Code :
- (defvar tkprof-search-last-buffer nil
- "The most recent search buffer.
- A buffer becomes most recent when a search is started
- or when it is used with \\[next-total] or \\[goto-total]." )
- (defun tkprof-search-total ()
- (interactive)
- (let (outbuf)
- (save-excursion
- (setq current-buffer-string (buffer-string))
- (setq name-of-search (concat "Tkprof Totals : " (buffer-name)))
- (setq outbuf
- (get-buffer-create
- (funcall (function (lambda (mode)
- (concat "*" (downcase mode) "*" )))
- name-of-search)))
- (set-buffer outbuf))
- ;; Open buf
- (let ((thisdir default-directory)
- outwin)
- (save-excursion
- ;; Clear out the compilation buffer and make it writable.
- (set-buffer outbuf)
- (setq buffer-read-only nil)
- (buffer-disable-undo (current-buffer))
- (erase-buffer)
- (buffer-enable-undo (current-buffer))
- (insert "call count cpu elapsed disk query\n" )
- (insert "------- ------ -------- ---------- ---------- ----------\n" )
- (save-excursion
- (while (string-match "total +\\([0-9.]+\\) +\\([0-9.]+\\) +\\([0-9.]+\\) +\\([0-9.]+\\) +\\([0-9.]+\\)" current-buffer-string)
- (insert (substring current-buffer-string
- (match-beginning 0)
- (match-end 0)
- ) "\n" )
- (setq current-buffer-string (substring current-buffer-string
- (match-end 0) -1))
- ))
- (set-buffer-modified-p nil))
- (if (eq outbuf (current-buffer))
- (goto-char (point-max)))
- ;; Pop up the compilation buffer.
- (setq outwin (display-buffer outbuf nil t))
- (save-excursion
- (set-buffer outbuf)
- (set (make-local-variable 'lazy-lock-defer-on-scrolling) t)
- (set-window-start outwin (point-min))
- (or (eq outwin (selected-window))
- (set-window-point outwin (point-min)))
- ))
- (setq compilation-last-buffer outbuf))
- )
|
C'est pas tres efficace (substring)... et je ne vois pas comment faire un buffer interactif.
Quelqu'un a une idee ?
---------------
Cdl, Danjer
