tde.shl

一个开源著名的TDE编辑器源代码

; Note that there is no perfect way to specify Python's multiline strings here,
; so after the first empty line they may be displayed as program text (I don't
; know if this applies to TDE - jmh)
language python
pattern *.py
comment #
comment ''' '''
; keywords
keyword access and break class continue def del elif else except finally for
keyword from global if import in is lambda not or pass print raise return try
keyword while
; built-in exceptions
keyword AccessError AttributeError ConflictError EOFError
keyword IOError ImportError IndexError KeyError KeyboardInterrupt
keyword MemoryError NameError None OverflowError RuntimeError
keyword SyntaxError SystemError SystemExit TypeError ValueError
keyword ZeroDivisionError
; built-in functions
keyword abs apply callable chr cmp coerce compile delattr
keyword dir divmod eval execfile filter float getattr
keyword globals hasattr hash hex id input int len
keyword locals long map max min oct open ord pow
keyword range raw_input reduce reload repr round setattr
keyword str tuple type vars xrange
; other
keyword exec _ __doc__ __import__ __main__ __name__ None
; special methods
keyword __abs__ __add__ __and__ __bases__ __builtins__ __call__ __class__
keyword __cmp__ __coerce__ __del__ __delattr__ __delitem__ __delslice__
keyword __dict__ __div__ __divmod__ __float__ __getattr__ __getitem__
keyword __getslice__ __hash__ __hex__ __init__ __int__ __invert__ __len__
keyword __long__ __lshift__ __members__ __methods__ __mod__ __mul__ __neg__
keyword __nonzero__ __oct__ __or__ __pos__ __pow__ __repr__ __rshift__
keyword __setattr__ __setitem__ __setslice__ __str__ __sub__ __version__ __xor__
string    ' newline
character """" 0
function  (
startword _
inword    _


;---------------------------------   Scheme   ---------------------------------

; Contributed by Iver Odin Kvello ([e-mail])
; R4RS Scheme, with keywords from the macro appendix. No functions,
; doesn't work well with s-exp syntax. Also no chars or constants (beginning
; with #.)
language scheme
pattern *.scm *.sc
case    ignore
keyword define lambda let let* letrec if cond begin and or case 
keyword => delay do else quasiquote quote set! unquote unquote-splicing
keyword define-syntax syntax-rules syntax let-syntax letrec-syntax 
comment ";"
string  """"
startword + - . * / < = > ! ? : $ % _ & ~ ^
inword    + - . * / < = > ! ? : $ % _ & ~ ^


;----------------------------------   ODL   -----------------------------------

; Oobject Description Files
; Contributed by David Gottner ([e-mail])
language odl
pattern *.ODL *.odl
keyword boolean char double float int long short void wchar_t
keyword BSTR CURRENCY DATE HRESULT LPSTR LPWSTR SAFEARRAY SCODE VARIANT
keyword IDispatch IUnknown
keyword appobject bindable control default defaultbind displaybind
keyword dllname dual entry helpcontext helpfile helpstring
keyword hidden id in lcid licensed nonextensible odl oleautomation
keyword optional out propget propput propputref public readonly
keyword requestedit restricted retval source string uuid vararg
keyword version
keyword coclass dispinterface enum importlib interface library
keyword methods module properties struct typedef union
comment //
comment /* */
preprocessor #
string    """"
startword _
inword    _


;---------------------------------   Bibtex   ---------------------------------

; Contributed by Woody Jin ([e-mail])
language bib
pattern *.bib *.BIB
keyword author year volume number pages month note
keyword title publisher series address edition journal
keyword booktitle organization howpublished type chapter
keyword institution school editor
comment %
startword @
string """" newline


;---------------------------------   COBOL   ----------------------------------

; RM/COBOL-85. Taken from "Modern COBOL Programming, Second Edition" by
; Wilson Price & Jack Olson, McGraw-Hill, 1991.
language cobol
pattern *.cbl
case    ignore
keyword accept               delimiter       just             reports
keyword access               depending       justified        rerun
keyword add                  descending      key              reserve
keyword advancing            destination     label            reset
keyword after                detail          last             return
keyword all                  disable         leading          return-code
keyword alphabet             display         left             reverse
keyword alphabetic           divide          length           reversed
keyword alphabetic-lower     division        less             rewind
keyword alphabetic-upper     down            limit            rewrite
keyword alphanumberic        duplicates      limits           rf
keyword alphanumeric-edited  dynamic         linage           rh
keyword also                 echo            linage-counter   right
keyword alter                egi             line             rounded
keyword alternate            else            line-counter     run
keyword and                  emi             lines            same screen
keyword any                  enable          linkage          sd
keyword are                  end             lock             search
keyword area                 end-accept      low              section
keyword areas                end-add         low-value        security
keyword ascending            end-call        low-values       segment
keyword assign               end-compute     memory           segment-limit
keyword at                   end-delete      merge            select
keyword author auto          end-divide      message          send
keyword beep                 end-evaluate    mode             sentence
keyword before               end-if          modules          separate
keyword binary               end-multiply    move             sequence
keyword blank                end-of-page     multiple         sequential
keyword blink                end-perform     multiply         set
keyword block                end-read        native           sign
keyword bottom               end-receive     negative         size
keyword by                   end-return      next             sort
keyword call                 end-rewrite     no               sort-merge
keyword cancel               end-search      not              source
keyword cd                   end-start       number           source-computer
keyword cf                   end-string      numeric          space
keyword ch                   end-subtract    numeric-edited   spaces
keyword character            end-unstring    object-computer  special-names
keyword characters           end-write       occurs           standard
keyword class                enter           of               standard-1
keyword clock-units          environment     off              standard-2
keyword close                eof             omitted          start
keyword cobol                eol             on               status
keyword code                 eop             open             stop
keyword code-set             eos             optional         string
keyword collating            equal           or               sub-queue-1
keyword column col           erase           order            sub-queue-2
keyword comma                error           organization     sub-queue-3
keyword common               esi             other            subtract
keyword communication        evaluate        output           sum
keyword comp                 every           overflow         suppress
keyword comp-1               exception       packed-decimal   symbolic
keyword comp-3               exit            padding          sync
keyword comp-4               extend          page             synchronized
keyword comp-6               external        page-counter     tab
keyword computational        false           perform          table
keyword computational-1      fd              pf               tallying
keyword computational-3      file            ph               tape
keyword computational-4      file-control    pic              terminal
keyword computational-6      filler          picture          terminate
keyword compute              final           plus             test
keyword configuration        first           pointer          text
keyword contains             footing         position         than
keyword content              for             positive         then
keyword continue             from full       printing         through
keyword control              generate        procedure        thru
keyword controls             giving          procedures       time
keyword convert              global          proceed          times
keyword converting           go              program          to
keyword copy                 goback          program-id       top
keyword corr                 greater         prompt           trailing
keyword corresponding        group           purge            true
keyword count                heading         queue            type
keyword currency             high highlight  quote            unit
keyword cursor               high-value      quotes           unlock
keyword data                 high-values     random           unstring
keyword date                 i-o             rd               until
keyword date-compiled        i-o-control     read             up
keyword date-written         id              receive          update
keyword day                  identification  record           upon
keyword day-of-week          if              records          usage
keyword de                   in              redefines        use
keyword debug-contents       index           reel             using
keyword debug-item           indexed         reference        value
keyword debug-line           indicate        references       values
keyword debug-name           initial         relative         varying
keyword debug-sub-1          initialize      release          when
keyword debug-sub-2          initiate        remainder        with
keyword debug-sub-3          input           remarks          words
keyword debugging            input-output    removal          working-storage
keyword debugging            inspect         renames          write
keyword decimal-point        installation    replace          zero
keyword declaratives         into            replacing        zeroes
keyword delete               invalid         report           zeros
keyword delimited            is              reporting
inword   -
innumber -.a-z
string   """"
comment  *


;------------------------   Windows Resource Script   -------------------------

language rc
pattern  *.rc *.dlg *.men *.str *.acc
comment //
comment /* */
preprocessor #
string """"
escape \
inword _
hex    0x-

; These were ripped out of lrc.exe, from LCC-Win32 by Jacob Navia.
keyword ACCELERATOR ALT ASCII AUTO3STATE AUTOCHECKBOX AUTORADIOBUTTON
keyword BITMAP BEGIN BLOCK
keyword CAPTION CHARACTERISTICS CHECKBOX CHECKED CLASS COMBOBOX CONTROL CTEXT
keyword CURSOR
keyword DEFPUSHBUTTON DIALOG DIALOGEX DISCARDABLE
keyword EDITTEXT END EXSTYLE
keyword FIXED FONT
keyword GRAYED GROUPBOX
keyword HELP
keyword ICON IMPURE INACTIVE
keyword LANGUAGE LISTBOX LOADONCALL LTEXT
keyword MENU MENUBARBREAK MENUBREAK MENUEX MENUITEM MESSAGETABLE MOVEABLE
keyword NOINVERT NOT
keyword OWNERDRAW
keyword POPUP PRELOAD PURE PUSHBOX PUSHBUTTON
keyword RADIOBUTTON RCDATA RTEXT
keyword SCROLLBAR SEPARATOR SHIFT STATE3 STRINGTABLE STYLE
keyword VERSION VIRTKEY

; Version information
keyword VS_VERSION_INFO VERSIONINFO FILESUBTYPE FILETYPE FILEOS FILEFLAGS
keyword FILEFLAGSMASK PRODUCTVERSION FILEVERSION

; Styles. Ripped out of win.h from LCC-Win32.
; Window
keyword WS_BORDER WS_CAPTION WS_CHILD WS_CHILDWINDOW WS_CLIPCHILDREN
keyword WS_CLIPSIBLINGS WS_DISABLED WS_DLGFRAME WS_GROUP WS_HSCROLL WS_ICONIC
keyword WS_MAXIMIZE WS_MAXIMIZEBOX WS_MINIMIZE WS_MINIMIZEBOX WS_OVERLAPPED
keyword WS_OVERLAPPEDWINDOW WS_POPUP WS_POPUPWINDOW WS_SIZEBOX WS_SYSMENU
keyword WS_TABSTOP WS_THICKFRAME WS_TILED WS_TILEDWINDOW WS_VISIBLE WS_VSCROLL
; MDI
keyword MDIS_ALLCHILDSTYLES
; Button, Checkbox and Radiobutton.
keyword BS_3STATE BS_AUTO3STATE BS_AUTOCHECKBOX BS_AUTORADIOBUTTON BS_BITMAP
keyword BS_BOTTOM BS_CENTER BS_CHECKBOX BS_DEFPUSHBUTTON BS_GROUPBOX BS_ICON
keyword BS_LEFT BS_LEFTTEXT BS_MULTILINE BS_NOTIFY BS_OWNERDRAW BS_PUSHBUTTON
keyword BS_PUSHLIKE BS_RADIOBUTTON BS_RIGHT BS_RIGHTBUTTON BS_TEXT BS_TOP
keyword BS_USERBUTTON BS_VCENTER BS_FLAT
; Combobox
keyword CBS_AUTOHSCROLL CBS_DISABLENOSCROLL CBS_DROPDOWN CBS_DROPDOWNLIST
keyword CBS_HASSTRINGS CBS_LOWERCASE CBS_NOINTEGRALHEIGHT CBS_OEMCONVERT
keyword CBS_OWNERDRAWFIXED CBS_OWNERDRAWVARIABLE CBS_SIMPLE CBS_SORT
keyword CBS_UPPERCASE
; Edit
keyword ES_AUTOHSCROLL ES_AUTOVSCROLL ES_CENTER ES_LEFT ES_LOWERCASE
keyword ES_MULTILINE ES_NOHIDESEL ES_NUMBER ES_OEMCONVERT ES_PASSWORD
keyword ES_READONLY ES_RIGHT ES_UPPERCASE ES_WANTRETURN
; Listbox
keyword LBS_DISABLENOSCROLL LBS_EXTENDEDSEL LBS_HASSTRINGS LBS_MULTICOLUMN
keyword LBS_MULTIPLESEL LBS_NODATA LBS_NOINTEGRALHEIGHT LBS_NOREDRAW LBS_NOSEL
keyword LBS_NOTIFY LBS_OWNERDRAWFIXED LBS_OWNERDRAWVARIABLE LBS_SORT
keyword LBS_STANDARD LBS_USETABSTOPS LBS_WANTKEYBOARDINPUT
; Scrollbar
keyword SBS_BOTTOMALIGN SBS_HORZ SBS_LEFTALIGN SBS_RIGHTALIGN SBS_SIZEBOX
keyword SBS_SIZEBOXBOTTOMRIGHTALIGN SBS_SIZEBOXTOPLEFTALIGN SBS_SIZEGRIP
keyword SBS_TOPALIGN SBS_VERT
; Static
keyword SS_BITMAP SS_BLACKFRAME SS_BLACKRECT SS_CENTER SS_CENTERIMAGE
keyword SS_ENHMETAFILE SS_ETCHEDFRAME SS_ETCHEDHORZ SS_ETCHEDVERT SS_GRAYFRAME
keyword SS_GRAYRECT SS_ICON SS_LEFT SS_LEFTNOWORDWRAP SS_NOPREFIX SS_NOTIFY
keyword SS_OWNERDRAW SS_REALSIZEIMAGE SS_RIGHT SS_RIGHTJUST SS_SIMPLE SS_SUNKEN
keyword SS_WHITEFRAME SS_WHITERECT SS_USERITEM
; Dialog
keyword DS_3DLOOK DS_ABSALIGN DS_CENTER DS_CENTERMOUSE DS_CONTEXTHELP
keyword DS_CONTROL DS_FIXEDSYS DS_LOCALEDIT DS_MODALFRAME DS_NOFAILCREATE
keyword DS_NOIDLEMSG DS_SETFONT DS_SETFOREGROUND DS_SYSMODAL
; Extended window
keyword WS_EX_APPWINDOW WS_EX_CLIENTEDGE WS_EX_CONTEXTHELP WS_EX_CONTROLPARENT
keyword WS_EX_DLGMODALFRAME WS_EX_LEFT WS_EX_LEFTSCROLLBAR WS_EX_LTRREADING
keyword WS_EX_MDICHILD WS_EX_NOPARENTNOTIFY WS_EX_OVERLAPPEDWINDOW
keyword WS_EX_PALETTEWINDOW WS_EX_RIGHT WS_EX_RIGHTSCROLLBAR WS_EX_RTLREADING
keyword WS_EX_STATICEDGE WS_EX_TOOLWINDOW WS_EX_TOPMOST WS_EX_TRANSPARENT
keyword WS_EX_WINDOWEDGE


;--------------------------------   AutoIt3   ---------------------------------

; AutoIt (v3.1.0); use AutoHotkey for AutoIt v2. Adapted from the PSPad info.
language  autoit3
pattern   *.au3
case      ignore
comment   ";"
comme