tde.shl

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

; Assorted keywords for PHP types
keyword array bool boolean char const double float int integer long mixed
keyword object real string
; PHP superglobal variables
symbol _GET _POST _COOKIE _SESSION _ENV GLOBALS SERVER _FILES _REQUEST
;
comment   #
comment   //
comment   /* */
comment   <!-- -->
function  (
startword $
inword    _
string    """" newline
character ' 0 newline
escape    \
innumber  .


;--------------------------------   VBScript   --------------------------------

; Contributed by Eric Pement (eric.pement [at] moody [dot] edu)
language vbscript
; jmh - use it for BASIC, too.
pattern *.asp *.vbs *.bas
case    ignore
keyword Call Case Const Dim Do Each Else ElseIf End Erase Error Exit Explicit
keyword For keyword Function If In Loop Next On Option Public Private Randomize
keyword ReDim Resume Select Set Step Sub To Then Wend While
keyword Empty False Nothing Null True And Eqv Imp Is Mod Not Or Xor
keyword Abs Array Asc Atn CBool CByte CCur CDate CDbl Chr Cint CLng Cos
keyword CreateObject CSng CStr Date DateAdd DateDiff DatePart DateSerial
keyword DateValue Day Exp Filter Fix FormatCurrency FormatDateTime FormatNumber
keyword FormatPercent GetObject Hex Hour InputBox InStr InStr InStrRev Int
keyword IsArray IsDate IsEmpty IsNull IsNumeric IsObject Join LBound LCase Left
keyword Len LoadPicture Log LTrim Mid Minute Month MonthName MsgBox Now Oct
keyword Replace RGB Right Rnd Round RTrim ScriptEngine ScriptEngineBuildVersion
keyword ScriptEngineMajorVersion ScriptEngineMinorVersion Second Sgn Sin Space
keyword Split Sqr StrComp String StrReverse Tan Time TimeSerial TimeValue Trim
keyword TypeName UBound UCase VarType Weekday WeekdayName Year
keyword Dictionary Err Add AddFolders BuildPath Clear Close Copy CopyFile
keyword CopyFolder CreateFolder CreateTextFile Delete DeleteFile DeleteFolder
keyword DriveExists Exists Write WriteBlankLines WriteLine AtEndOfLine
keyword AtEndOfStream Attributes AvailableSpace Column CompareMode Count
keyword DateCreated DateLastAccessed DateLastModified Description Drive
keyword DriveLetter Drives DriveType Type VolumeName
comment  '
function (
string   """" newline
inword   _


;----------------------------------   AWK   -----------------------------------

; This is actually for Thompson Automation's AWK compiler, which is
; somewhat beefier than the standard AWK interpretter.
language awk
pattern *.awk
keyword BEGIN BEGINFILE END ENDFILE INIT break continue do else for function
keyword global if in local next return while
comment #
function (
string """" spanline \
escape \


;-------------------------------   Make files   -------------------------------

; Imakefiles.  This one is interesting because '#' is both the preprocessor
; character and the comment character.  A '#' in the first column is displayed
; as a preprocessor directive, and anywhere else as the start of a comment.
language imakefile
pattern  *Imakefile.*
comment  #
comment  /* */
preprocessor #
startword /.$
inword    /.$()


; Makefiles.  Note that file names like "Makefile" & "makefile" are recognized.
; The keywords listed here are actually just common names for pseudo-targets.
; The word characters include anything that's commonly used in a filename.
; Any word followed by a : will be displayed in the function color.
language  make
pattern   *[mM]akefile *[mM]akefile.*
keyword   all clean depend install uninstall
comment   #
startword /\.$_
inword    /\.$()_
function  :


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