[LISP] Emacs major mode

Emacs major mode [LISP] - Divers - Programmation

Marsh Posté le 04-08-2006 à 14:48:38    

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 :
  1. (defvar tkprof-search-last-buffer nil
  2.   "The most recent search buffer.
  3. A buffer becomes most recent when a search is started
  4. or when it is used with \\[next-total] or \\[goto-total]." )
  6. (defun tkprof-search-total ()
  7.   (interactive)
  8.   (let (outbuf)
  9.     (save-excursion
  10.       (setq current-buffer-string (buffer-string))
  11.       (setq name-of-search (concat "Tkprof Totals : " (buffer-name)))
  12.       (setq outbuf
  13.     (get-buffer-create
  14.      (funcall (function (lambda (mode)
  15.      (concat "*" (downcase mode) "*" )))
  16.        name-of-search)))
  17.       (set-buffer outbuf))
  18.     ;; Open buf
  19.     (let ((thisdir default-directory)
  20.   outwin)
  21.       (save-excursion
  22. ;; Clear out the compilation buffer and make it writable.
  23. (set-buffer outbuf)
  24. (setq buffer-read-only nil)
  25. (buffer-disable-undo (current-buffer))
  26. (erase-buffer)
  27. (buffer-enable-undo (current-buffer))
  28. (insert "call     count       cpu    elapsed       disk      query\n" )
  29. (insert "------- ------  -------- ---------- ---------- ----------\n" )
  30. (save-excursion
  31.   (while (string-match "total +\\([0-9.]+\\) +\\([0-9.]+\\) +\\([0-9.]+\\) +\\([0-9.]+\\) +\\([0-9.]+\\)" current-buffer-string)
  32.     (insert (substring current-buffer-string
  33.          (match-beginning 0)
  34.          (match-end 0)
  35.          ) "\n" )
  36.     (setq current-buffer-string (substring current-buffer-string
  37.        (match-end 0) -1))
  38.     ))
  39. (set-buffer-modified-p nil))
  40.       (if (eq outbuf (current-buffer))
  41.   (goto-char (point-max)))
  42.       ;; Pop up the compilation buffer.
  43.       (setq outwin (display-buffer outbuf nil t))
  44.       (save-excursion
  45. (set-buffer outbuf)
  46.         (set (make-local-variable 'lazy-lock-defer-on-scrolling) t)
  47. (set-window-start outwin (point-min))
  48. (or (eq outwin (selected-window))
  49.     (set-window-point outwin (point-min)))
  51. ))
  52.     (setq compilation-last-buffer outbuf))
  53.   )


 
C'est pas tres efficace (substring)... et je ne vois pas comment faire un buffer interactif.
 
Quelqu'un a une idee ?


---------------
Cdl, Danjer
Reply

Marsh Posté le 04-08-2006 à 14:48:38   

Reply

Marsh Posté le 04-08-2006 à 15:30:03    

Bon... bah j'ai fini par trouver :

Code :
  1. (defun tkprof-lines-total ()
  2.   (interactive)
  3.   (list-matching-lines "total +\\([0-9.]+\\) +\\([0-9.]+\\) +\\([0-9.]+\\) +\\([0-9.]+\\) +\\([0-9.]+\\)" 0)
  4.   )



---------------
Cdl, Danjer
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed