tdedist.shl

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

; Microsoft NMAKE-style makefiles.  Microsoft's NMAKE uses ! to introduce
; preprocessor directives.
language nmake
pattern  *.mak
comment  #
preprocessor !
startword /\.$_
inword    /\.$()_
function  :


;-------------------------------   PostScript   -------------------------------

language postscript
pattern *.ps *.eps
keyword add aload and arc arcn arcto array ashow awidthshow begin charpath
keyword clear closepath copy copy copypage def definefont dict div dup end
keyword eq exch exec exit false fill findfont for forall ge get grestore
keyword gsave gt idiv if ifelse kshow le length lineto loop lt makefont
keyword maxlength moveto mul ne neg newpath not or pop put repeat restore
keyword rlineto rmoveto roll rotate round save scale search setgray
keyword setlinewidth show showpage keyword string stroke sub translate true
keyword widthshow xor
string  ( )
comment %


;----------------------------------   Shell   ---------------------------------

; Korn shell scripts.  It also tries to format other Bourne-like shell scripts.
; Contributed by Gabriel Zachmann ([e-mail])
; Let's treat #! as a preprocessor command - jmh
language sh
pattern *.sh
keyword $* $@ $# $? $- $$ $! & | ";" [ ] < > ( )
keyword for in do done select shift case esac eval set if then elif else fi
keyword while until return echo test
comment #
function (
preprocessor #!
string    """" newline spanline \
character ' 0  newline spanline \
escape    \
startword /?-*!.
inword    /?*!.


;--------------------------------   Modula-2   --------------------------------

; Contributed by Peter Funk ([e-mail])
language modula2
pattern *.MOD *.DEF *.mod *.def *.mi *.md
keyword AND ARRAY BEGIN BY CASE CONST DEFINITION DIV DO ELSE ELSIF END
keyword EXIT EXPORT FOR FROM IF IMPLEMENTATION IMPORT IN LOOP MOD MODULE
keyword NOT OF OR POINTER PROCEDURE QUALIFIED RECORD REPEAT RETURN SET
keyword THEN TO TYPE UNTIL VAR WHILE WITH
comment (* *)
; Nested comments like (* foo (* bar *) gnu *) are NOT taken into account!
function  (
string    """"
character '
; you might want to try this out :
; inword ._


;----------------------------------   Perl   ----------------------------------

; Original version contributed by Herb Kateley ([e-mail]).  Another version
; was contributed by Jeff Wang ([e-mail]).  What you see
; here is the merger of those two, with other modifications.
; jmh - Note that $ can start a word and # and ' can be in words. This prevents
; $# and $' from being misinterpretted, hopefully without causing other mis-
; interpretations.
language perl  
pattern *.pl *.pm
keyword BEGIN END CORE __END__ __FILE__ __LINE__ AUTOLOAD DESTROY
keyword abs accept alarm and atan2 bind binmode bless caller chdir chmod
keyword chomp chop chown chr chroot close closedir cmp connect continue cos
keyword crypt dbmclose dbmopen defined delete die do dump each else elsif
keyword endgrent endhostent endnetent endprotoent endpwent endservent eof
keyword eq eval exec exists exit exp fcntl fileno flock for foreach fork
keyword format formline ge getc getgrent getgrgid getgrnam gethostbyaddr
keyword gethostbyname gethostent getlogin getnetbyaddr getnetbyname
keyword getnetent getpeername getpgrp getppid getpriority getprotobyname
keyword getprotobynumber getprotoent getpwent getpwnam getpwuid
keyword getservbyname getservbyport getservent getsockname getsockopt
keyword glob gmtime goto grep gt hex if index int ioctl join keys kill
keyword last lc lcfirst le length link listen local localtime log lstat
keyword lt m map mkdir msgctl msgget msgrcv msgsnd my ne next no not oct
keyword open opendir or ord pack package pipe pop pos print printf push q
keyword qq quotemeta qw qx rand read readdir readline readlink readpipe
keyword recv redo ref rename require reset return reverse rewinddir rindex
keyword rmdir s scalar seek seekdir select semctl semget semop send setgrent
keyword sethostent setnetent setpgrp setpriority setprotoent setpwent
keyword setservent setsockopt shift shmctl shmget shmread shmwrite shutdown
keyword sin sleep socket socketpair sort splice split sprintf sqrt srand
keyword stat study sub substr symlink syscall sysread system syswrite tell
keyword telldir tie time times tr truncate uc ucfirst umask undef unless
keyword unlink unpack unshift untie until use utime values vec wait waitpid
keyword wantarray warn while write x xor y
comment   #
function  (
startword &_@$%
inword    _#'
string    """" newline
character ' 0 newline
escape    \
octal     0-
hex       0x-
innumber  _


;----------------------------------   TCL   -----------------------------------

; TCL shell scripts.
; Contributed by Jeff Wang ([e-mail])
language tcl
pattern *.tcl
keyword Balloon ButtonBox Control DirList ExFileSelectBox ExFileSelectDialog
keyword FileEntry HList LabelEntry LabelFrame NoteBook OptionMenu PanedWindow
keyword PopupMenu ScrolledHList ScrolledText ScrolledWindow Select StdButtonBox
keyword after append array auto_execok auto_load auto_mkindex auto_reset bell
keyword bind bindtags break button canvas case catch cd checkbutton clipboard
keyword close common concat constructor continue default destroy destructor
keyword else elseif entry eof error eval exec exit expr file fileevent flush
keyword focus for for_array_keys for_file for_recursive_glob foreach format
keyword frame gets glob global grab history if image in incr info inherit
keyword itcl_class join label lappend lindex linsert list listbox llength loop
keyword lower lrange lreplace lsearch lsort menu menubutton message method open
keyword option pack pid place proc protected public puts pwd radiobutton raise
keyword read regexp regsub rename return scale scan scrollbar seek selection
keyword send set source split string subst switch tell text then time tix tk
keyword tk_popup tkwait toplevel trace unknown unset update uplevel upvar while
keyword winfo wm
comment   #
function  {
startword &$_
inword    _
string    """"
character [


;----------------------------------   VRML   ----------------------------------

; VRML markups.
; Contributed by Jeff Wang ([e-mail])
language vrml
pattern *.wrl
keyword Anchor Appearance AsciiText AudioClip Background Billboard Box
keyword Collision Color ColorInterpolator Cone Coordinate Coordinate3
keyword CoordinateInterpolator Cube Cylinder CylinderSensor DirectionalLight
keyword DiskSensor ElevationGrid Extrusion FALSE Fog FontStyle FontStyle Group
keyword IS ImageTexture IndexedFaceSet IndexedLineSet Info Inline LOD Material
keyword MaterialBinding MatrixTransform MovieTexture NULL NavigationInfo Normal
keyword NormalBinding NormalInterpolator OrientationInterpolator
keyword OrthographicCamera PerspectiveCamera PixelTexture PlaneSensor
keyword PointLight PointSet PositionInterpolator ProximitySensor ROUTE Rotation
keyword ScalarInterpolator Scale Script Separator Shape ShapeHints Sound Sphere
keyword SphereSensor SpotLight Switch TO TRUE Text Texture2 Texture2Transform
keyword TextureCoordinate TextureCoordinate2 TextureTransform TimeSensor
keyword TouchSensor Transform TransformSeparator Translation USE Viewpoint
keyword VisibilitySensor WWWAnchor WWWInline WorldInfo eventIn eventOut
keyword exposedField field
comment   #
function  {
startword &$_
inword    _
string    [ ]


;----------------------------------   Diff   ----------------------------------

; Quick hack to make context diffs use different colors for different lines
; This isn't perfect, but it is useful
language diff
pattern  *.dif *.diff *.cdi *.patch
comment  <
preprocessor >
startword 0-9


;--------------------------------   Fortran   ---------------------------------

; Fortran 77
; Contributed by Lois Amoreira ([e-mail])
; Comments in F77 are *'s or c's appearing in the 1st column.
; I defined them as "*"
language fortran
pattern *.f *.f77 *.for
case    ignore
comment *
keyword .and.  .eq.  .eqv.  .ge.  .gt.  .le.  .lt.  .ne.  .neqv.  .not.  .or.
keyword accept access assign backspace blank block blockdata boolean buffer
keyword call character close common complex continue data data decode define
keyword dimension do double dump dvck else elseif encode end endif entry
keyword equivalence err exit external file find fmt form format function
keyword go goto id if implicit in include integer intrinsic iostat level
keyword logical namelist open out overfl parameter pause pdump precision
keyword print program punch read real rec recl return rewind
keyword save status stop strace subroutine then to type unit unit unknown
keyword write virtual wait
startword .
inword    .
string    '
function  (


;---------------------------------   Python   ---------------------------------

; Contributed by Dan Fandrich ([e-mail])
; 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   ---------------------------------