[emacs] utilisation des chaine

utilisation des chaine [emacs] - Divers - Programmation

Marsh Posté le 28-03-2003 à 23:58:18    

Code :
  1. ;; Entête C
  2. (defun my-insert-c-header()
  3.   (interactive "*" )
  4.   (beginning-of-buffer)
  5.   (let (
  6. (motif (concat
  7.  "BDEJEAN_"
  8.  (replace-in-string (file-name-nondirectory(buffer-file-name)) "." "_" )
  9.  "\n" ))
  10. )
  11.    
  12.     (insert "#ifndef " )
  13.     (insert motif)
  14.     (insert "#define " )
  15.     (insert `motif)
  16.     (insert "\n" )
  17.     (insert "#endif\n" )
  18.     )
  19.   )

 
 
vous pouvez m'aidez?

Reply

Marsh Posté le 28-03-2003 à 23:58:18   

Reply

Marsh Posté le 29-03-2003 à 09:25:45    

Si j'ai bien compris ce que tu veux ...
 
 


;; Entête C
(defun my-insert-c-header()
 (interactive "*" )
 (beginning-of-buffer)
 (let (
       (motif (concat
        "BDEJEAN_"
        (replace-string (file-name-nondirectory(buffer-file-name)) "." "_" )
        "\n" ))
       )
   
   (insert "#ifndef " )
   (insert motif)
   (insert "#define " )
   (insert motif)
   (insert "\n" )
   (insert "#endif\n" )
   )
 )


---------------
brisez les rêves des gens, il en restera toujours quelque chose...  -- laissez moi troller sur discu !
Reply

Marsh Posté le 29-03-2003 à 09:35:18    

si je ne m'abuse, la seule modif, c'est replace_string mais ça ne marche pas. ça tourne, mais ça me renvoie une chaine vide    [:spamafote]

Reply

Marsh Posté le 29-03-2003 à 21:59:44    

UP
 
ou alros filez moi un tutorial de lisp par ce que j'arrive pas à manipuler les string

Reply

Sujets relatifs:

Leave a Replay

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