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) |