;;; castem.el --- Castem mode for GNU Emacs

;; Copyright (C) 2000, 2001 Stephane Gounand

;; Author: Stéphane Gounand <sgounand@cea.fr>
;;                          <gounand@semt2.smts.cea.fr>

;;; Commentary:

;; This package provides a simple major mode for finite element code CASTEM 2000

;;; Usage:
;; This file (castem.el) should reside in you home directory
;; or in your load-path.
;; For example, uncomment and add in your Emacs configuration file (~/.emacs) :
;; (add-to-list 'load-path "/u2/gounand/emacs")
;; if esope.el resides in /u2/gounand/emacs/
;; 
;; You should also have a shell-script named cast_info in your PATH if you want 
;; to have help files for castem operators in emacs (Control-C i by default or 
;; Castem menu)
;;
;; See the declaration below if you want to change the name of the script : 
;; (defvar castem-info-program "cast_info"
;;   "The name of the program that produces Cast3m info pages.")

;; Then, uncomment the three following lines and put them in your
;; Emacs configuration file (~/.emacs) to autoload castem-mode on opening Gibiane files: 
;; (setq auto-mode-alist (cons '("\\.dgibi\\'" .  castem-mode) auto-mode-alist)) 
;; (setq auto-mode-alist (cons '("\\.procedur\\'" .  castem-mode) auto-mode-alist)) 
;; (autoload 'castem-mode "castem" "Castem mode" t nil)

;;; Todo:
;; * Skeleton for (si..finsi)
;; * Skeleton for other constructs (debp..finp)
;; * Générer automatiquement la liste des opérateurs et des procédures 
;;   (elles varient d'année en année).
;; * les constantes ne sont pas coloriées (vrai faux pi)
;; * l'indentation automatique ne fonctionne pas bien
;; * compléter le menu et les raccourcis avec des choses utiles...
;; * Inline doc for operators :
;;   Generer les notices sans utiliser de shell-script : cast_info
;;   Gérer la langue des notices

;;; Code:

(require 'ehelp)
(defvar castem-mode-hook nil
  "Normal hook run when entering Castem mode.")

(defvar castem-mode-syntax-table nil
  "Syntax table used while in Castem mode.")

;(defvar castem-mode-abbrev-table nil
;  "Abbrev table used while in Castem mode.")
;(define-abbrev-table 'castem-mode-abbrev-table ())

(if castem-mode-syntax-table
    ()
  (setq castem-mode-syntax-table (make-syntax-table))
  (modify-syntax-entry ?\; "." castem-mode-syntax-table)
  (modify-syntax-entry ?\r " " castem-mode-syntax-table)
  (modify-syntax-entry ?+ "w" castem-mode-syntax-table)
  (modify-syntax-entry ?- "w" castem-mode-syntax-table)
  (modify-syntax-entry ?* "w" castem-mode-syntax-table)
  (modify-syntax-entry ?/ "w" castem-mode-syntax-table)
  (modify-syntax-entry ?= "." castem-mode-syntax-table)
  (modify-syntax-entry ?\' "." castem-mode-syntax-table)
  (modify-syntax-entry ?\" "\"" castem-mode-syntax-table)
  (modify-syntax-entry ?\\ "/" castem-mode-syntax-table)
  (modify-syntax-entry ?. "w" castem-mode-syntax-table)
  (modify-syntax-entry ?_ "w" castem-mode-syntax-table)
  (modify-syntax-entry ?\@ "w" castem-mode-syntax-table)
  (modify-syntax-entry ?\< "w" castem-mode-syntax-table)
  (modify-syntax-entry ?\> "w" castem-mode-syntax-table)
  )

(defconst castem-font-lock-keywords-1 nil
  "Subdued level highlighting for Castem mode.")

(defconst castem-font-lock-keywords-2 nil
  "Medium level highlighting for Castem mode.")

(defconst castem-font-lock-keywords-3 nil
  "Gaudy level highlighting for Castem mode.")

(let ((comment-chars "*")
; les opérateurs a moins de quatre lettres
      (castem-keywords-1
       (regexp-opt (list "+" "-" "*" "/" "**" ">" "<" ">eg" "<eg" "abs" "atg"
                         "bif" "c" "cfl" "cos" "d" "ega" "erf" "et" "exp" "fdt" "fin" "fpa" "fpt" "fpu" "gmv"
                         "kmf" "kp" "log" "ltl" "mot" "neg" "non" "ns" "nst" "ou" "si" "sin" "spo" "tfr" "xxt" "xtx" "xty"
                         ))
       )
; les opérateurs a quatre lettres
      (castem-keywords-2
       (regexp-opt (list
                    "opti" "dump" "dens" "droi" "lapl" "cerc" "mota"
                    "quel" "inte" "para" "elli" "poin" "plus" "moin" "tran"
                    "rota" "trac" "inve" "cote" "elem" "cont" "diff" "chan" "list"
                    "surf" "conf" "info" "tour" "homo" "affi" "syme" "incl" "elim"
                    "titr" "racc" "tass" "sort" "lire" "bary" "dall" "orie" "manu"
                    "oubl" "comp" "cout" "pave" "comm" "noeu" "nbel" "nbno"
                    "noti" "face" "coor" "norm" "temp" "volu" "lect" "sauf" "prog"
                    "flot" "enti"
                    "depl" "psca" "pvec" "pmix" "liai" "regl" "hook" "sols" "reso"
                    "affe" "rigi" "bloq" "depi" "hota" "stru" "text" "proj" "glis"
                    "elst" "jonc" "reco" "mass" "clst" "sigm" "rela" "forc" "mome"
                    "prch" "base" "dime" "extr" "vers" "vibr" "maxi" "xtmx" "ytmx"
                    "mult"
                    "pjba" "crit" "diag" "choc" "bsig" "prhc" "max1" "mots"
                    "repe" "quit" "sino" "fins" "ipol"
                    "enve" "inss" "detr" "enle" "remp" "inse" "coli" "tria"
                    "tabl" "redu" "symt" "anti" "resu" "pres" "exco" "nomc" "saut"
                    "defo" "appu" "inva" "prin" "vmis" "ksig" "sign" "suit" "carb"
                    "valp" "ordo" "tire" "rege" "dess" "amor" "char" "coul" "chpo"
                    "afco" "evol" "orth" "thet" "comb" "deve" "vect" "pica" "capi"
                    "copi" "dimn" "sauv" "rest" "cara" "mate" "gene"
                    "capa" "elfe" "jaco" "plas" "gree" "mode" "proc" "finp"
                    "debp" "ktan" "form" "mess" "nnor" "cubp" "cubt" "cer3"
                    "seis" "ener" "epsi" "intg" "cour" "reac" "supe" "zero" "depb"
                    "exci" "acti" "elas" "subs" "erre" "cong" "lump" "obte"
                    "vari" "modi" "masq" "exis" "mini" "grad" "ense" "ifre" "dfou"
                    "sigs" "mapp" "somm" "brui" "rten" "dspr" "plex" "tote"
                    "graf" "tres" "type" "osci" "inde" "coma" "comi" "chsp"
                    "tagr" "perm" "cabl" "fofi" "work" "qulx" "debi" "arti" "fene"
                    "cmoy" "comt" "cond" "flux" "modl" "matr" "rimp" "filt" "tfri"
                    "conc" "iter" "acqu" "sour" "conv" "cham" "psmo" "mote" "ecou"
                    "mena" "synt" "argu" "glin" "dyne" "cres" "fonc" "resp" "plac"
                    "noms" "vale" "proi" "exce" "aret" "calp" "indi" "act3" "biot"
                    "dedu" "conn" "nloc" "chai" "cosi" "cvol" "diad" "hann" "insi"
                    "lsqf" "pert" "prns" "psrs" "siar" "spon" "visa" "cneq"
                    "ccon" "mesu" "pile" "simp" "util" "menu" "cosh" "sinh" "tanh"
                    "deg3" "aide" "racp" "refe" "kmac" "ksof" "tvap" "nske" "kmab"
                    "noel" "doma" "eqpr" "eqex" "vibc" "avct"
                    "kdia" "kmtp" "mdia" "dfdt" "tcrr" "tcnm" "sqtp" "somt"
                    "kdtb" "cmct" "kcht" "lapn" "raft" "klop" "kres" "cson" "fimp"
                    "nuag" "weip" "khis" "kops" "fsur" "flam" "elno"
                    "dbit" "toim" "fimp" "kmbt" "kbbt" "dudw" "frot" "tsca"
                    "konv" "kcha" "mhyb" "matp" "hdeb" "hvit" "hybp" "smtp" "divu"
                    "mocu" "chau" "tail" "sens" "impo" "dans" "impf" "ntab"
                    "fron" "fuit" "epth" "kfpt" "kfpa" "echi" "qond"
                    "kpro" "ffor" "raye" "rayn" "vsur" "traj" "aju1" "aju2" "frig"
                    "excf" "kabl" "prec" "equi" "onde" "dedo" "dcov" "parc"
                    "pola" "chi1" "chi2" "pent" "pret" "meth" "cblo" "genj"
                    "zleg" "mesm" "fion" "neut" "logk" "coac" "resi" "mutu" "sore"
                    "diri" "lign" "obje" "debm" "finm" "heri" "deco" "exte" "dmmu"
                    "dmtd" "bmtd" "ssch" "mrem" "assi" "fiss" "prim" "annu" "prob"
                    "sais" "choi" "deto" "part" "clmi" "pmat" "excp" "prop" "phaj"
                    "alea" "gnfl" "mpro" "sste" "adve" "bgmo" "ecfe"
                    ))
       )
; les procédures
      (castem-keywords-3
       (regexp-opt (list 
                    "zigzag"   "@zacpro8" "@zacpro7" "@zacpro6" "@zacpro5" "@zacpro4" "@zacpro3" "@zacpro2"
                    "@zacpro1" "@zacplus" "xbif"     "weibull"  "vtimp"    "vnimp"    "viteunil" "vitetfor"
                    "@visor"   "@vis3d"   "vertytab" "vapdif"   "valspe"   "valnom"   "unilssup" "unilater"
                    "trtrajec" "transnon" "translin" "transit3" "transit2" "transit1" "transit0" "transfer"
                    "traduire" "tractufi" "tracmeca" "trachit"  "trachis"  "trac3d"   "trac3d_2" "t_piteta"
                    "@total"   "@toro"    "@tole3"   "@tole2"   "t_ipol"   "thermic"  "@test"    "takm_moy"
                    "takm_efz" "@stbl"    "@stat"    "@statio"  "spplanc"  "sissi"    "sissib"   "sissi2"  
                    "silam"    "@sigref"  "signsynt" "signenve" "signderi" "signcorr" "sif"      "sge"     
                    "rvsat"    "rosent"   "respowsp" "respowns" "reso_asy" "reseau"   "repix"    "@repere" 
                    "repart"   "@rempgro" "@rempfat" "@rempcou" "@relief"  "recompos" "recompom" "rdiv"    
                    "@rccmtrv" "@rccm"    "@rccmco2" "@rayo"    "ramberg"  "quadratu" "psatt"    "propag"  
                    "prodt"    "probdens" "probabrs" "prepaenc" "ppre"     "pot_vect" "pot_scal" "postddi" 
                    "postddi1" "@pomi"    "polyno"   "@polo"    "pointsph" "pointcyl" "pmpb"     "@plotpri"
                    "peche"    "pasapas"  "parmchi2" "parastat" "@otpout"  "@otcoque" "@ortho"   "normalim"
                    "noespchi" "nocomchi" "newmark"  "nataf"    "multirec" "multidec" "mulc"     "moyespec"
                    "montagne" "@mistpar" "@mesu"    "mdnris"   "m_damp_k" "m_dampin" "mayoto"   "mailstru"
                    "mag_nlin" "lsossoli" "lsosfrac" "litemper" "@lisse"   "@lispa16" "lirsoso"  "@lireris"
                    "lireflot" "@lireent" "linvcomp" "linbiden" "limemeca" "liliech"  "liliden"  "liespece"
                    "licomnom" "licochar" "lichxmx"  "libdd"    "lespstoe" "lesplogk" "lespityp" "lespcomp"
                    "lch2tot"  "lch2temp" "lch2sort" "lch2prep" "lch2nty4" "lch2nite" "lch2nfi"  "lch2mdel"
                    "lch2logc" "lch2itso" "lch2itma" "lch2impr" "lch2iaff" "lch2fion" "lch2eps"  "lch2delp"
                    "lch2clim" "@lavis"   "@laverg"  "@lasiep"  "@larig"   "@laread"  "@lamat"   "@lamass" 
                    "@lalist"  "@lakappa" "@lagraph" "@lafail"  "@lacrit"  "@lacalc"  "kuet"     "kr_pro"  
                    "kepsilon" "jeu"      "int_comp" "in_mini"  "@initia"  "inimur"   "inichimi" "inichi2" 
                    "inichi1"  "inductio" "indiobje" "indibeta" "increme"  "increme2" "impchi2"  "impchi1" 
                    "images"   "identi"   "idbht"    "ht_pro"   "htc_www"  "htc_wtr"  "htctran"  "htc_per" 
                    "htc_chbw" "hrayo"    "@helice"  "h_b"      "hauban"   "g_theta"  "g_theta1" "@global" 
                    "g_calcul" "f_s2pi"   "fronabs"  "freqperi" "frepart"  "@frenet"  "fpal"     "fornod"  
                    "for_cont" "forbloc"  "flambage" "@fix"     "@fis_3"   "@fis_3ds" "@fis_2"   "@fis_1"  
                    "finvrepa" "filtreke" "fiabili"  "fdens"    "factorie" "explorer" "exic"     "execrxt" 
                    "exec"     "@excel1"  "exac"     "enrichis" "enermode" "@enca"    "elecneut" "ec8acsis"
                    "dynamode" "dynamod3" "dynamod2" "dynamic"  "dupont2"  "drexus"   "donchi2"  "donchi1" 
                    "destra"   "descour"  "@defpl"   "@defa2dp" "@defa2dl" "dedans"   "deconv"   "ddfour"  
                    "darcytra" "darcysat" "ctod"     "critloc"  "@cripl"   "creer_3d" "@coutor2" "@coutor1"
                    "courspec" "cour3d"   "coupler"  "@couple"  "contseg3" "condens"  "coller"   "coller1" 
                    "cinimod"  "cinemb"   "cinema"   "chtitr"   "ch_theta" "chtgau"   "chitrnsp" "@chflec" 
                    "chdclim"  "chanvsos" "chanvesp" "chanvcom" "chanuobj" "chanolii" "ch2clim"  "@cdg"    
                    "ccdonchi" "@cartoon" "@carene"  "calmu"    "calculer" "calcp"    "calactiv" "@b_tpo2d"
                    "boa"      "biovol"   "bili_moy" "bili_efz" "bif"      "autopilo" "asparam"  "@arr"    
                    "arcgau"   "annoimp"  "anlimtre" "animgks"  "anime"    "analyser" "@ana_lim" "@algsta" 
                    "ajuste"   "affiche"  "acti3"    "acier"    "accevite" "accdchi2" "accdchi1"
                    ))
       )
      )
  
  (setq castem-font-lock-keywords-1
        (list
         ;;
         ;; Fontify syntactically (assuming strings cannot be quoted or span lines).
         (cons (concat "^[" comment-chars "].*") 'font-lock-comment-face)
         (list (concat "^[^" comment-chars "\t\n]" (make-string 71 ?.) "\\(.*\\)")
               '(1 font-lock-comment-face))
         ;;
         )
        )
  
  (setq castem-font-lock-keywords-2
        (append castem-font-lock-keywords-1
                (list
                 ;; Fontify all builtin keywords
                                        ;     (list "^\\(\\([ .']\\|[A-Za-z1-9]\\)*\\)="
                                        ; Il ne faut pas mettre le point sinon ca bug
                                        ;     (list "^\\(\\([ .']\\|\\sw\\)*\\)="
                 (list "^\\(\\([ .']\\|\\sw\\)*\\)="
                                        ;     (list "^\\(.*\\)="
                                        ;     (list "^\\([\w]*\\)="
                       '(1 'default))
                                        ;           '(1 font-lock-variable-name-face))
                 (list (concat "^[ ']*" "\\(\\<\\(" castem-keywords-1 "\\)\\>\\)")
                       '(1 font-lock-function-name-face))
                 (list (concat "[(=][ ']*" "\\(\\<\\(" castem-keywords-1 "\\)\\>\\)")
                       '(1 font-lock-function-name-face))
                 (list (concat "^[ ']*" "\\(\\<\\(" castem-keywords-3 "\\)\\>\\)")
                       '(1 font-lock-keyword-face))
                 (list (concat "[(=][ ']*" "\\(\\<\\(" castem-keywords-3 "\\)\\>\\)")
                       '(1 font-lock-keyword-face))
                 (list (concat "^[ ']*" "\\(\\<\\(" castem-keywords-2 "\\)\\w*\\>\\)")
                       '(1 font-lock-function-name-face))
                 (list (concat "[(=][ ']*" "\\(\\<\\(" castem-keywords-2 "\\)\\w*\\>\\)")
                       '(1 font-lock-function-name-face))
                 '("'[^'\n]*'?" . font-lock-string-face)
                 )
                ))
  
  (setq castem-font-lock-keywords-3
        (append castem-font-lock-keywords-1 castem-font-lock-keywords-2
                )
        ))

(defvar castem-font-lock-keywords castem-font-lock-keywords-1
  "Default expressions to highlight in Castem mode.")

(defvar castem-mode-map () 
  "Keymap for Castem mode.")

(if castem-mode-map
    ()
  (setq castem-mode-map (make-sparse-keymap))
  (define-key castem-mode-map "\n" 'newline-and-indent)
  (define-key castem-mode-map "\r" 'newline-and-indent)
  (define-key castem-mode-map "\t" 'tab-to-tab-stop)
  (define-key castem-mode-map "\C-ci" 'castem-info-operator)
;  (define-key castem-mode-map "\t" 'indent-relative-maybe)
;  (define-key castem-mode-map "\t" 'indent-relative)
;  (define-key castem-mode-map "\t" 'indent-to-left-margin)
  ;; Menu bars
  (define-key castem-mode-map [menu-bar castem]
    (cons "Castem" (make-sparse-keymap "Castem")))
  (define-key castem-mode-map [menu-bar castem castem-info]
    '("Castem INFO" . castem-info-operator))
  ;; Put them in the menu bar:
  (setq menu-bar-final-items (append '(castem)
				     menu-bar-final-items))
)

(defvar castem-mode-abbrev-table nil)
(if castem-mode-abbrev-table
    ()
  (let ((ac abbrevs-changed))
  (define-abbrev-table 'castem-mode-abbrev-table ())
  (define-abbrev castem-mode-abbrev-table "+"  "'+'" 'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "-"  "'-'"                      'castem-noexpand-if-line-commented-hook nil)
;  (define-abbrev castem-mode-abbrev-table "*"  "'*'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "**"  "'**'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "/"  "'/'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table ">eg"  "'>EG'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "<eg"  "'<EG'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "abs"  "'ABS'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "affi"  "'AFFINITE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "alea"  "'ALEA'"            'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "aret"  "'ARETE'"           'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "argu"  "'ARGUMENT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "atg"  "'ATG'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "avct"  "'AVCT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "bary"  "'BARYCENTRE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "bif"  "'BIF'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "bloq"  "'BLOQUE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "brui"  "'BRUIT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "bsig"  "'BSIGMA'"          'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "ccon"  "'CCON'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "cer3"  "'CER3'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "c"  "'CERCLE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "cerc"  "'CERCLE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "chai"  "'CHAINE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "chan"  "'CHANGER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "char"  "'CHARGEMENT'"      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "comm"  "'COMM'"            'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "comp"  "'COMPRIS'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "conc"  "'CONCAT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "cont"  "'CONTOUR'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "coor"  "'COORDONNEE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "copi"  "'COPIER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "cosh"  "'COSH'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "cos"  "'COS'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "cote"  "'COTE'"            'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "coul"  "'COULEUR'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "cour"  "'COURBE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "cout"  "'COUTURE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "cubp"  "'CUBP'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "cubt"  "'CUBT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "cvol"  "'CVOL'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "dall"  "'DALLER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "darcytra"  "DARCYTRA"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "dbit"  "'DBIT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "dcov"  "'DCOV'"            'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "debm"  "'DEBMETH'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "debp"  "'DEBPROC'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "dedu"  "'DEDU'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "defo"  "'DEFORME'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "dens"  "'DENS'"            'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "depi"  "'DEPIMPOSE'"       'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "depl"  "'DEPLACER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "dess"  "'DESSIN'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "detr"  "'DETRUIT'"         'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "dfdt"  "'DFDT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "diff"  "'DIFF'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "dime"  "'DIME'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "divu"  "'DIVU'"            'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "doma"  "'DOMA'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "droi"  "'DROIT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "d"  "'DROIT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "echi"  "'ECHIMP'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "ega"  "'EGA'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "elem"  "'ELEM'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "elim"  "'ELIMINATION'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "elno"  "'ELNO'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "enle"  "'ENLEVER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "enti"  "'ENTIER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "enve"  "'ENVELOPPE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "eqex"  "'EQEX'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "eqpr"  "'EQPR'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "erf"  "'ERF'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "erre"  "'ERREUR'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "et"  "'ET'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "evol"  "'EVOL'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "exco"  "'EXCO'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "exec"  "EXEC"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "exic"  "EXIC"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "exis"  "'EXISTE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "exp"  "'EXP'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "exte"  "'EXTERNE'"         'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "extr"  "'EXTRAIRE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "face"  "'FACE'"            'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "fact"  "'FACTORIE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "filtreke"  "FILTREKE"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "fimp"  "'FIMP'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "fin"  "'FIN'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "finm"  "'FINMETH'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "finp"  "'FINPROC'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "finproc"  "'FINPROC'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "fins"  "'FINSI'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "finsi"  "'FINSI'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "flot"  "'FLOTTANT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "fonc"  "'FONC'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "form"  "'FORME'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "fpt"  "'FPT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "fpu"  "'FPU'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "fren"  "@FRENET"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "frot"  "'FROT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "gene"  "'GENERATRICE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "hdeb"  "'HDEB'"            'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "heri"  "'HERITE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "homo"  "'HOMOTHETIE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "hvit"  "'HVIT'"            'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "hybp"  "'HYBP'"            'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "incl"  "'INCLUSION'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "inde"  "'INDEX'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "info"  "'INFO'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "inse"  "'INSERER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "int_comp"  "INT_COMP"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "inte"  "'INTERSECTION'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "intg"  "'INTG'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "inva"  "'INVARIANT'"       'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "inve"  "'INVERSE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "ipol"  "'IPOL'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "iter"  "'ITERER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "kcct"  "'KCCT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "kcha"  "'KCHA'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "kcht"  "'KCHT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "kdia"  "'KDIA'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "khis"  "'KHIS'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "klop"  "'KLOP'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "kmac"  "'KMAC'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "kmct"  "'KMCT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "kmf"  "'KMF'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "kmtp"  "'KMTP'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "konv"  "'KONV'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "kops"  "'KOPS'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "kres"  "'KRES'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "ksof"  "'KSOF'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "kuet"  "'KUET'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "lapn"  "'LAPN'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "lect"  "'LECT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "lign"  "'LIGN'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "lire"  "'LIRE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "list"  "'LISTE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "log"  "'LOG'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "ltl"  "'LTL'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "manu"  "'MANUEL'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "masq"  "'MASQUE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "mate" "'MATERIAU'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "matp"  "'MATP'"            'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "max1"  "'MAX1'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "maxi"  "'MAXIMUM'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "mena"  "'MENAGE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "menu"  "'MENU'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "mess"  "'MESSAGE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "mesu"  "'MESURE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "meth"  "'METHODE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "mhyb"  "'MHYB'"            'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "mini"  "'MINIMUM'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "mode"  "'MODELISER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "moin"  "'MOIN'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "mont"  "MONTAGNE"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "mot"   "'MOT'"             'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "mots"  "'MOTS'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "mult"  "'MULT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "nbel"  "'NBEL'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "nbno"  "'NBNO'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "neg"  "'NEG'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "noel"  "'NOEL'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "noeu"  "'NOEUD'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "nomc"  "'NOMC'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "non"  "'NON'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "norm"  "'NORM'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "ns"  "'NS'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "nske"  "'NSKE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "ntab"  "'NTABLEAU'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "obje"  "'OBJET'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "obte"  "'OBTENIR'"         'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "opti"  "'OPTION'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "ordo"  "'ORDONNER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "orie"  "'ORIENTER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "oubl"  "'OUBLIER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "ou"  "'OU'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "para"  "'PARABOLE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "pave"  "'PAVER'"           'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "plac"  "'PLACE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "plus"  "'PLUS'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "pmix"  "'PMIXTE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "poin"  "'POIN'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "pointcyl"  "POINTCYL"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "pointsph"  "POINTSPH"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "poly"  "'POLYNO'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "pomi"  "@POMI"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "ppre"  "'PPRE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "prog"  "'PROG'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "proj"  "'PROJETER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "psca"  "'PSCAL'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "pvec"  "'PVEC'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "qond"  "'QOND'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "quel"  "'QUELCONQUE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "quit"  "'QUITTER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "raft"  "'RAFT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "redu"  "'REDU'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "rege"  "'REGENERER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "regl"  "'REGLER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "remp"  "'REMPLACER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "repe"  "'REPETER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "reso"  "'RESOUD'"          'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "resp"  "'RESPRO'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "rest"  "'RESTITUER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "resu"  "'RESULT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "rigi"  "'RIGIDITE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "rota"  "'ROTATION'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "sauf"  "'SAUF'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "saut"  "'SAUTER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "sauv"  "'SAUVER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "sign"  "'SIGNE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "si"  "'SI'"                      'castem-noexpand-if-line-commented-hook nil)
;  (define-abbrev castem-mode-abbrev-table  "si"  "" 'castem-skeleton-if-endif)
;  (define-abbrev castem-mode-abbrev-table  "si"  "" 'castem-nilc-skeleton-if-endif)
;  (define-abbrev castem-mode-abbrev-table  "sis"  "" 'castem-nilc-skeleton-if-else-endif)
  (define-abbrev castem-mode-abbrev-table "sinh"  "'SINH'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "sin"  "'SIN'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "sino"  "'SINON'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "smtp"  "'SMTP'"            'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "somm"  "'SOMME'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "somt"  "'SOMT'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "sort"  "'SORTIR'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "stat"  "@STAT"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "stbl"  "@STBL"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "suite"  "'SUITE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "surf"  "'SURFACE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "syme"  "'SYMETRIE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "tabl"  "'TABLE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "tanh"  "'TANH'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "tass"  "'TASSER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "temp"  "'TEMPS'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "text"  "'TEXTE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "tire"  "'TIRE'"            'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "titr"  "'TITRE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "toim"  "'TOIMP'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "tour"  "'TOURNER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "trac"  "'TRACER'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "traj"  "'TRAJ'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "tran"  "'TRANSLATION'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "tria"  "'TRIANGULATION'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "trtr"  "TRTRAJEC"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "tsca"  "'TSCA'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "type"  "'TYPE'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "util"  "'UTILISATEUR'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "vale"  "'VALEUR'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "vect"  "'VECTEUR'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "vers"  "'VERSENS'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "vis3"  "@VIS3D"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "viso"  "@VISOR"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "volu"  "'VOLUME'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "xtx"  "'XTX'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "xty"  "'XTY'"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "zigz"  "ZIGZAG"                      'castem-noexpand-if-line-commented-hook nil)
  (define-abbrev castem-mode-abbrev-table "zleg"  "'ZLEG'"                      'castem-noexpand-if-line-commented-hook nil)
;;
;; Abréviations personnelles
;;
  (define-abbrev castem-mode-abbrev-table "od"  "'OPTION' 'DONN' 5"  nil nil) 
  (setq abbrevs-changed ac)))
;
;; (define-skeleton castem-skeleton-if-endif
;;   "Insert an if - endif region" nil
;;   "'SI' (" _ ") ;"\n
;;   "'FINSI' ;")
;; (define-skeleton castem-skeleton-if-else-endif
;;   "Insert an if - else - endif region" nil
;;   "'SI' (" _ ") ;"\n
;;   "'SINON' ;" \n
;;   "'FINSI' ;")
;; (setq skeleton-end-hook nil)

;;;###autoload
(defun castem-mode ()
  "Major mode for Castem 2000
\\{castem-mode-map}
Turning on Castem mode runs the normal hook `castem-mode-hook'."
  (interactive)
  (kill-all-local-variables)
  (use-local-map castem-mode-map)
  (setq local-abbrev-table castem-mode-abbrev-table)
  (set-syntax-table castem-mode-syntax-table)
  (setq mode-name "Castem")
  (setq major-mode 'castem-mode)
  ;; Font Lock mode support.
  (make-local-variable 'font-lock-defaults)
  (setq font-lock-defaults '((castem-font-lock-keywords
			      castem-font-lock-keywords-1
			      castem-font-lock-keywords-2
			      castem-font-lock-keywords-3)
			     t t ((?/ . "$/"))))
  (make-local-variable 'indent-line-function)
;  (setq indent-line-function 'indent-relative)
  (setq indent-line-function 'indent-relative-maybe)
;  (setq indent-line-function 'indent-to-left-margin)
  (make-local-variable 'comment-indent-function)
  (setq comment-indent-function nil)
  (make-local-variable 'comment-line-start)
  (setq comment-line-start "*")
  (make-local-variable 'require-final-newline)
  (setq require-final-newline t)
  (make-local-variable 'outline-regexp)
  (setq outline-regexp "*[;]+")
  (make-local-variable 'abbrev-all-caps)
  (setq abbrev-all-caps t)
  (make-local-variable 'indent-tabs-mode)
  (setq indent-tabs-mode nil)
;  (make-local-variable 'tab-width)
  (setq tab-width 3)
  (make-local-variable 'tab-stop-list)
  (setq tab-stop-list '(3 6 9 12 15 18 21 24 27 30 33 36 39 42 45 48 51))
  (setq abbrev-mode t) ; ?? (abbrev-mode 1) instead??
  (make-local-variable 'fill-column)
  (setq fill-column 72) ; Already local?


  (run-hooks 'castem-mode-hook))

(defvar castem-info-program "cast_info"
  "The name of the program that produces Cast3m info pages.")


(defun castem-default-info-entry ()
  "Make a guess at a default INFO entry.
This guess is based on the text surrounding the cursor."
  (let (word)
    (save-excursion
      ;; Default man entry title is any word the cursor is on, or if
      ;; cursor not on a word, then nearest preceding word.
      (setq word (current-word))
      (if (string-match "[._]+$" word)
	  (setq word (substring word 0 (match-beginning 0))))
      (format "%s" word)
      )
    )
  )

(defun castem-info-operator (castem-info-args)
  "Output the documentation for an operator in the help window"
  (interactive
   (list (let* ((default-entry (castem-default-info-entry))
		(input (read-string
			(format "Cast3m INFO entry%s: "
				(if (string= default-entry "")
				    ""
				  (format " (default %s)" default-entry))))))
	   (if (string= input "")
	       (if (string= default-entry "")
		   (error "No Cast3m INFO args given")
		 default-entry)
	     input))))
  (with-electric-help
   (function (lambda ()
               (princ "Notice for operator : ")
               (princ castem-info-args)
               (terpri)
               (message "Loading cast3m INFO...")
               (call-process castem-info-program nil t nil castem-info-args)
               (message "Loading cast3m INFO...done")
               nil) 
             ) "*Castem info*"
   )
  )


(defun castem-noexpand-if-line-commented-hook ()
  (let ((expand 1))
    (save-excursion
      (backward-word 1)
      (backward-char 2)
      (if (looking-at "'")
          (setq expand 0)))
    (save-excursion
      (beginning-of-line)
      (if (looking-at comment-line-start)
          (setq expand 0)))
    (if (= expand 0) (unexpand-abbrev))))

;; (defun castem-nilc-skeleton-if-endif ()
;;   (let ((expand 1))
;; ;    (backward-char 1)
;;     (save-excursion
;;       (backward-word 1)
;;       (backward-char 2)
;;       (if (looking-at "'")
;;           (setq expand 0)))
;;     (save-excursion
;;       (beginning-of-line)
;;       (if (looking-at comment-line-start)
;;           (setq expand 0)))
;;     (if (= expand 0) 
;;         (progn (unexpand-abbrev)
;;          (forward-char 2))
;;         (castem-skeleton-if-endif)
;;         )
;; ))

;; (defun castem-nilc-skeleton-if-else-endif ()
;;   (let ((expand 1))
;; ;    (backward-char 1)
;;     (save-excursion
;;       (backward-word 1)
;;       (backward-char 2)
;;       (if (looking-at "'")
;;           (setq expand 0)))
;;     (save-excursion
;;       (beginning-of-line)
;;       (if (looking-at comment-line-start)
;;           (setq expand 0)))
;;     (if (= expand 0) 
;;         (progn (unexpand-abbrev)
;;          (forward-char 3))
;;         (castem-skeleton-if-else-endif)
;;         )
;; ))