/[emacs]/emacs/lisp/progmodes/idlwave.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/idlwave.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.13 by pj, Thu Dec 20 18:14:39 2001 UTC revision 3.14 by pj, Sun Dec 30 22:18:30 2001 UTC
# Line 1595  Capitalize system variables - action onl Line 1595  Capitalize system variables - action onl
1595    ;;    ;;
1596    ;; Templates    ;; Templates
1597    ;;    ;;
1598    (define-abbrev tb (concat c "c")   "" (idlwave-code-abbrev idlwave-case))    (define-abbrev tb (concat c "c")   "" (idlwave-code-abbrev idlwave-case) 0 t)
1599    (define-abbrev tb (concat c "sw")  "" (idlwave-code-abbrev idlwave-switch))    (define-abbrev tb (concat c "sw")  "" (idlwave-code-abbrev idlwave-switch) 0 t)
1600    (define-abbrev tb (concat c "f")   "" (idlwave-code-abbrev idlwave-for))    (define-abbrev tb (concat c "f")   "" (idlwave-code-abbrev idlwave-for) 0 t)
1601    (define-abbrev tb (concat c "fu")  "" (idlwave-code-abbrev idlwave-function))    (define-abbrev tb (concat c "fu")  "" (idlwave-code-abbrev idlwave-function) 0 t)
1602    (define-abbrev tb (concat c "pr")  "" (idlwave-code-abbrev idlwave-procedure))    (define-abbrev tb (concat c "pr")  "" (idlwave-code-abbrev idlwave-procedure) 0 t)
1603    (define-abbrev tb (concat c "r")   "" (idlwave-code-abbrev idlwave-repeat))    (define-abbrev tb (concat c "r")   "" (idlwave-code-abbrev idlwave-repeat) 0 t)
1604    (define-abbrev tb (concat c "w")   "" (idlwave-code-abbrev idlwave-while))    (define-abbrev tb (concat c "w")   "" (idlwave-code-abbrev idlwave-while) 0 t)
1605    (define-abbrev tb (concat c "i")   "" (idlwave-code-abbrev idlwave-if))    (define-abbrev tb (concat c "i")   "" (idlwave-code-abbrev idlwave-if) 0 t)
1606    (define-abbrev tb (concat c "elif") "" (idlwave-code-abbrev idlwave-elif))    (define-abbrev tb (concat c "elif") "" (idlwave-code-abbrev idlwave-elif) 0 t)
1607    ;;    ;;
1608    ;; Keywords, system functions, conversion routines    ;; Keywords, system functions, conversion routines
1609    ;;    ;;
1610    (define-abbrev tb (concat c "b")  "begin"        (idlwave-keyword-abbrev 0 t))    (define-abbrev tb (concat c "b")  "begin"        (idlwave-keyword-abbrev 0 t)  0 t)
1611    (define-abbrev tb (concat c "co") "common"       (idlwave-keyword-abbrev 0 t))    (define-abbrev tb (concat c "co") "common"       (idlwave-keyword-abbrev 0 t) 0 t)
1612    (define-abbrev tb (concat c "cb") "byte()"       (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "cb") "byte()"       (idlwave-keyword-abbrev 1) 0 t)
1613    (define-abbrev tb (concat c "cx") "fix()"        (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "cx") "fix()"        (idlwave-keyword-abbrev 1) 0 t)
1614    (define-abbrev tb (concat c "cl") "long()"       (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "cl") "long()"       (idlwave-keyword-abbrev 1) 0 t)
1615    (define-abbrev tb (concat c "cf") "float()"      (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "cf") "float()"      (idlwave-keyword-abbrev 1) 0 t)
1616    (define-abbrev tb (concat c "cs") "string()"     (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "cs") "string()"     (idlwave-keyword-abbrev 1) 0 t)
1617    (define-abbrev tb (concat c "cc") "complex()"    (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "cc") "complex()"    (idlwave-keyword-abbrev 1) 0 t)
1618    (define-abbrev tb (concat c "cd") "double()"     (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "cd") "double()"     (idlwave-keyword-abbrev 1) 0 t)
1619    (define-abbrev tb (concat c "e")  "else"         (idlwave-keyword-abbrev 0 t))    (define-abbrev tb (concat c "e")  "else"         (idlwave-keyword-abbrev 0 t) 0 t)
1620    (define-abbrev tb (concat c "ec") "endcase"      'idlwave-show-begin)    (define-abbrev tb (concat c "ec") "endcase"      'idlwave-show-begin  0 t)
1621    (define-abbrev tb (concat c "es") "endswitch"    'idlwave-show-begin)    (define-abbrev tb (concat c "es") "endswitch"    'idlwave-show-begin 0 t)
1622    (define-abbrev tb (concat c "ee") "endelse"      'idlwave-show-begin)    (define-abbrev tb (concat c "ee") "endelse"      'idlwave-show-begin 0 t)
1623    (define-abbrev tb (concat c "ef") "endfor"       'idlwave-show-begin)    (define-abbrev tb (concat c "ef") "endfor"       'idlwave-show-begin 0 t)
1624    (define-abbrev tb (concat c "ei") "endif else if" 'idlwave-show-begin)    (define-abbrev tb (concat c "ei") "endif else if" 'idlwave-show-begin 0 t)
1625    (define-abbrev tb (concat c "el") "endif else"   'idlwave-show-begin)    (define-abbrev tb (concat c "el") "endif else"   'idlwave-show-begin 0 t)
1626    (define-abbrev tb (concat c "en") "endif"        'idlwave-show-begin)    (define-abbrev tb (concat c "en") "endif"        'idlwave-show-begin 0 t)
1627    (define-abbrev tb (concat c "er") "endrep"       'idlwave-show-begin)    (define-abbrev tb (concat c "er") "endrep"       'idlwave-show-begin 0 t)
1628    (define-abbrev tb (concat c "ew") "endwhile"     'idlwave-show-begin)    (define-abbrev tb (concat c "ew") "endwhile"     'idlwave-show-begin 0 t)
1629    (define-abbrev tb (concat c "g")  "goto,"        (idlwave-keyword-abbrev 0 t))    (define-abbrev tb (concat c "g")  "goto,"        (idlwave-keyword-abbrev 0 t) 0 t)
1630    (define-abbrev tb (concat c "h")  "help,"        (idlwave-keyword-abbrev 0))    (define-abbrev tb (concat c "h")  "help,"        (idlwave-keyword-abbrev 0) 0 t)
1631    (define-abbrev tb (concat c "k")  "keyword_set()" (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "k")  "keyword_set()" (idlwave-keyword-abbrev 1) 0 t)
1632    (define-abbrev tb (concat c "n")  "n_elements()" (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "n")  "n_elements()" (idlwave-keyword-abbrev 1) 0 t)
1633    (define-abbrev tb (concat c "on") "on_error,"    (idlwave-keyword-abbrev 0))    (define-abbrev tb (concat c "on") "on_error,"    (idlwave-keyword-abbrev 0) 0 t)
1634    (define-abbrev tb (concat c "oi") "on_ioerror,"  (idlwave-keyword-abbrev 0 1))    (define-abbrev tb (concat c "oi") "on_ioerror,"  (idlwave-keyword-abbrev 0 1) 0 t)
1635    (define-abbrev tb (concat c "ow") "openw,"       (idlwave-keyword-abbrev 0))    (define-abbrev tb (concat c "ow") "openw,"       (idlwave-keyword-abbrev 0) 0 t)
1636    (define-abbrev tb (concat c "or") "openr,"       (idlwave-keyword-abbrev 0))    (define-abbrev tb (concat c "or") "openr,"       (idlwave-keyword-abbrev 0) 0 t)
1637    (define-abbrev tb (concat c "ou") "openu,"       (idlwave-keyword-abbrev 0))    (define-abbrev tb (concat c "ou") "openu,"       (idlwave-keyword-abbrev 0) 0 t)
1638    (define-abbrev tb (concat c "p")  "print,"       (idlwave-keyword-abbrev 0))    (define-abbrev tb (concat c "p")  "print,"       (idlwave-keyword-abbrev 0) 0 t)
1639    (define-abbrev tb (concat c "pt") "plot,"        (idlwave-keyword-abbrev 0))    (define-abbrev tb (concat c "pt") "plot,"        (idlwave-keyword-abbrev 0) 0 t)
1640    (define-abbrev tb (concat c "re") "read,"        (idlwave-keyword-abbrev 0))    (define-abbrev tb (concat c "re") "read,"        (idlwave-keyword-abbrev 0) 0 t)
1641    (define-abbrev tb (concat c "rf") "readf,"       (idlwave-keyword-abbrev 0))    (define-abbrev tb (concat c "rf") "readf,"       (idlwave-keyword-abbrev 0) 0 t)
1642    (define-abbrev tb (concat c "ru") "readu,"       (idlwave-keyword-abbrev 0))    (define-abbrev tb (concat c "ru") "readu,"       (idlwave-keyword-abbrev 0) 0 t)
1643    (define-abbrev tb (concat c "rt") "return"       (idlwave-keyword-abbrev 0))    (define-abbrev tb (concat c "rt") "return"       (idlwave-keyword-abbrev 0) 0 t)
1644    (define-abbrev tb (concat c "sc") "strcompress()" (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "sc") "strcompress()" (idlwave-keyword-abbrev 1) 0 t)
1645    (define-abbrev tb (concat c "sn") "strlen()"     (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "sn") "strlen()"     (idlwave-keyword-abbrev 1) 0 t)
1646    (define-abbrev tb (concat c "sl") "strlowcase()" (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "sl") "strlowcase()" (idlwave-keyword-abbrev 1) 0 t)
1647    (define-abbrev tb (concat c "su") "strupcase()"  (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "su") "strupcase()"  (idlwave-keyword-abbrev 1) 0 t)
1648    (define-abbrev tb (concat c "sm") "strmid()"     (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "sm") "strmid()"     (idlwave-keyword-abbrev 1) 0 t)
1649    (define-abbrev tb (concat c "sp") "strpos()"     (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "sp") "strpos()"     (idlwave-keyword-abbrev 1) 0 t)
1650    (define-abbrev tb (concat c "st") "strput()"     (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "st") "strput()"     (idlwave-keyword-abbrev 1) 0 t)
1651    (define-abbrev tb (concat c "sr") "strtrim()"    (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "sr") "strtrim()"    (idlwave-keyword-abbrev 1) 0 t)
1652    (define-abbrev tb (concat c "t")  "then"         (idlwave-keyword-abbrev 0 t))    (define-abbrev tb (concat c "t")  "then"         (idlwave-keyword-abbrev 0 t) 0 t)
1653    (define-abbrev tb (concat c "u")  "until"        (idlwave-keyword-abbrev 0 t))    (define-abbrev tb (concat c "u")  "until"        (idlwave-keyword-abbrev 0 t) 0 t)
1654    (define-abbrev tb (concat c "wu") "writeu,"      (idlwave-keyword-abbrev 0))    (define-abbrev tb (concat c "wu") "writeu,"      (idlwave-keyword-abbrev 0) 0 t)
1655    (define-abbrev tb (concat c "ine") "if n_elements() eq 0 then"    (define-abbrev tb (concat c "ine") "if n_elements() eq 0 then"
1656      (idlwave-keyword-abbrev 11))      (idlwave-keyword-abbrev 11) 0 t)
1657    (define-abbrev tb (concat c "inn") "if n_elements() ne 0 then"    (define-abbrev tb (concat c "inn") "if n_elements() ne 0 then"
1658      (idlwave-keyword-abbrev 11))      (idlwave-keyword-abbrev 11) 0 t)
1659    (define-abbrev tb (concat c "np") "n_params()"   (idlwave-keyword-abbrev 0))    (define-abbrev tb (concat c "np") "n_params()"   (idlwave-keyword-abbrev 0) 0 t)
1660    (define-abbrev tb (concat c "s")  "size()"       (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "s")  "size()"       (idlwave-keyword-abbrev 1) 0 t)
1661    (define-abbrev tb (concat c "wi") "widget_info()" (idlwave-keyword-abbrev 1))    (define-abbrev tb (concat c "wi") "widget_info()" (idlwave-keyword-abbrev 1) 0 t)
1662    (define-abbrev tb (concat c "wc") "widget_control," (idlwave-keyword-abbrev 0))    (define-abbrev tb (concat c "wc") "widget_control," (idlwave-keyword-abbrev 0) 0 t)
1663        
1664    ;; This section is reserved words only. (From IDL user manual)    ;; This section is reserved words only. (From IDL user manual)
1665    ;;    ;;
1666    (define-abbrev tb "and"        "and"        (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "and"        "and"        (idlwave-keyword-abbrev 0 t) 0 t)
1667    (define-abbrev tb "begin"      "begin"      (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "begin"      "begin"      (idlwave-keyword-abbrev 0 t) 0 t)
1668    (define-abbrev tb "break"      "break"      (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "break"      "break"      (idlwave-keyword-abbrev 0 t) 0 t)
1669    (define-abbrev tb "case"       "case"       (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "case"       "case"       (idlwave-keyword-abbrev 0 t) 0 t)
1670    (define-abbrev tb "common"     "common"     (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "common"     "common"     (idlwave-keyword-abbrev 0 t) 0 t)
1671    (define-abbrev tb "continue"   "continue"   (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "continue"   "continue"   (idlwave-keyword-abbrev 0 t) 0 t)
1672    (define-abbrev tb "do"         "do"         (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "do"         "do"         (idlwave-keyword-abbrev 0 t) 0 t)
1673    (define-abbrev tb "else"       "else"       (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "else"       "else"       (idlwave-keyword-abbrev 0 t) 0 t)
1674    (define-abbrev tb "end"        "end"        'idlwave-show-begin-check)    (define-abbrev tb "end"        "end"        'idlwave-show-begin-check 0 t)
1675    (define-abbrev tb "endcase"    "endcase"    'idlwave-show-begin-check)    (define-abbrev tb "endcase"    "endcase"    'idlwave-show-begin-check 0 t)
1676    (define-abbrev tb "endelse"    "endelse"    'idlwave-show-begin-check)    (define-abbrev tb "endelse"    "endelse"    'idlwave-show-begin-check 0 t)
1677    (define-abbrev tb "endfor"     "endfor"     'idlwave-show-begin-check)    (define-abbrev tb "endfor"     "endfor"     'idlwave-show-begin-check 0 t)
1678    (define-abbrev tb "endif"      "endif"      'idlwave-show-begin-check)    (define-abbrev tb "endif"      "endif"      'idlwave-show-begin-check 0 t)
1679    (define-abbrev tb "endrep"     "endrep"     'idlwave-show-begin-check)    (define-abbrev tb "endrep"     "endrep"     'idlwave-show-begin-check 0 t)
1680    (define-abbrev tb "endswitch"  "endswitch"  'idlwave-show-begin-check)    (define-abbrev tb "endswitch"  "endswitch"  'idlwave-show-begin-check 0 t)
1681    (define-abbrev tb "endwhi"     "endwhi"     'idlwave-show-begin-check)    (define-abbrev tb "endwhi"     "endwhi"     'idlwave-show-begin-check 0 t)
1682    (define-abbrev tb "endwhile"   "endwhile"   'idlwave-show-begin-check)    (define-abbrev tb "endwhile"   "endwhile"   'idlwave-show-begin-check 0 t)
1683    (define-abbrev tb "eq"         "eq"         (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "eq"         "eq"         (idlwave-keyword-abbrev 0 t) 0 t)
1684    (define-abbrev tb "for"        "for"        (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "for"        "for"        (idlwave-keyword-abbrev 0 t) 0 t)
1685    (define-abbrev tb "function"   "function"   (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "function"   "function"   (idlwave-keyword-abbrev 0 t) 0 t)
1686    (define-abbrev tb "ge"         "ge"         (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "ge"         "ge"         (idlwave-keyword-abbrev 0 t) 0 t)
1687    (define-abbrev tb "goto"       "goto"       (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "goto"       "goto"       (idlwave-keyword-abbrev 0 t) 0 t)
1688    (define-abbrev tb "gt"         "gt"         (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "gt"         "gt"         (idlwave-keyword-abbrev 0 t) 0 t)
1689    (define-abbrev tb "if"         "if"         (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "if"         "if"         (idlwave-keyword-abbrev 0 t) 0 t)
1690    (define-abbrev tb "le"         "le"         (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "le"         "le"         (idlwave-keyword-abbrev 0 t) 0 t)
1691    (define-abbrev tb "lt"         "lt"         (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "lt"         "lt"         (idlwave-keyword-abbrev 0 t) 0 t)
1692    (define-abbrev tb "mod"        "mod"        (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "mod"        "mod"        (idlwave-keyword-abbrev 0 t) 0 t)
1693    (define-abbrev tb "ne"         "ne"         (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "ne"         "ne"         (idlwave-keyword-abbrev 0 t) 0 t)
1694    (define-abbrev tb "not"        "not"        (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "not"        "not"        (idlwave-keyword-abbrev 0 t 0 t))
1695    (define-abbrev tb "of"         "of"         (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "of"         "of"         (idlwave-keyword-abbrev 0 t) 0 t)
1696    (define-abbrev tb "on_ioerror" "on_ioerror" (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "on_ioerror" "on_ioerror" (idlwave-keyword-abbrev 0 t) 0 t)
1697    (define-abbrev tb "or"         "or"         (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "or"         "or"         (idlwave-keyword-abbrev 0 t) 0 t)
1698    (define-abbrev tb "pro"        "pro"        (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "pro"        "pro"        (idlwave-keyword-abbrev 0 t) 0 t)
1699    (define-abbrev tb "repeat"     "repeat"     (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "repeat"     "repeat"     (idlwave-keyword-abbrev 0 t) 0 t)
1700    (define-abbrev tb "switch"     "switch"     (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "switch"     "switch"     (idlwave-keyword-abbrev 0 t 0 t))
1701    (define-abbrev tb "then"       "then"       (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "then"       "then"       (idlwave-keyword-abbrev 0 t) 0 t)
1702    (define-abbrev tb "until"      "until"      (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "until"      "until"      (idlwave-keyword-abbrev 0 t) 0 t)
1703    (define-abbrev tb "while"      "while"      (idlwave-keyword-abbrev 0 t))    (define-abbrev tb "while"      "while"      (idlwave-keyword-abbrev 0 t) 0 t)
1704    (define-abbrev tb "xor"        "xor"        (idlwave-keyword-abbrev 0 t)))    (define-abbrev tb "xor"        "xor"        (idlwave-keyword-abbrev 0 t) 0 t))
1705    
1706  (defvar imenu-create-index-function)  (defvar imenu-create-index-function)
1707  (defvar extract-index-name-function)  (defvar extract-index-name-function)

Legend:
Removed from v.3.13  
changed lines
  Added in v.3.14

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26