progress 8.3.xml

SynEditStudio delphi 代码编辑器

<?xml version="1.0" encoding="windows-1251"?>
<SynUniHighlighter Version="2.0">
	<SyntaxColoring>
		<Info>
			<General Name="Progress 8.3" Extensions="P I W LIB V" Version="1" Revision="0" Sample="&amp;scoped-define FirstChar 65
&amp;scoped-define LastChar  90

def var i as int no-undo.
def var s as char no-undo.

function GetRandomChar returns char (input SomeValue as int):
  return chr(random({&amp;FirstChar}, {&amp;LastChar})).
end.

procedure ClearString:
  def input-output param str as char no-undo.
  str = &quot;&quot;.
end.

run ClearString(input-output s).
do i = 1 to 100:
  s = s + GetRandomChar(17).
end.
display s.
" History=""/>
			<Author Name="Vitaly Nevzorov" Mail="[e-mail]" Web="www.delphist.com" Copyright="Copyright (c) Vitaly Nevzorov, 2002" Company="N/A" Remark=""/>
		</Info>
		<Schemes/>
		<Editor/>
		<MainRules Name="Root" Style="Root">
			<Attributes Foreground="clBlack" Background="clWhite"/>
			<Delimiters Value="!&quot;$%&amp;'()*+,.:;&lt;=&gt;?@[\]^{|}~"/>
			<SubRules>
				<Range Name="Strings &amp;qt;..&amp;qt;" Style="Strings &amp;qt;..&amp;qt;">
					<Attributes Foreground="clRed" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties/>
					<MultiTokens>
						<Tokens Open="&quot;" Close="&quot;"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="Remarks /*..*/" Style="Remarks /*..*/">
					<Attributes Foreground="clNavy" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties/>
					<MultiTokens>
						<Tokens Open="/*" Close="*/"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="&amp;" Style="&amp;">
					<Attributes Foreground="$00FF8000" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties CloseOnTerm="True"/>
					<MultiTokens>
						<Tokens Open="&amp;"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<KeyList Name="Key words" Enabled="True" Style="" Words="ACCUM
ACCUMULATE
ACTIVE-WINDOW
ADD
ALIAS
ALL
ALTER
AMBIG
AMBIGUOUS
ANALYZE
AND
ANY
APPLY
AS
ASC
ASCENDING
ASSIGN
AT
ATTR-SPACE
AUTHORIZATION
AUTO-RETURN
AVAIL
AVAILABLE
BACKGROUND
BEFORE-HIDE
BEGINS
BELL
BETWEEN
BLANK
BREAK
BTOS
BUFFER-COMPARE
BUFFER-COPY
BY
CALL
CAN-DO
CAN-FIND
CASE
CASE-SENSITIVE
CENTER
CENTERED
CHECK
CHR
CLEAR
CLIPBOARD
COL
COLON
COLOR
COLUMN
COLUMN-LABEL
COLUMNS
COMPILER
CONNECTED
CONTROL
COUNT-OF
CPSTREAM
CREATE
CTOS
CURRENT
CURRENT-CHANGED
CURRENT-LANG
CURRENT-LANGUAGE
CURRENT-WINDOW
CURSOR
DATABASE
DATASERVERS
DBCODEPAGE
DBCOLLATION
DBNAME
DBRESTRICTIONS
DBTYPE
DBVERSION
DDE
DEBLANK
DEBUG-LIST
DEBUGGER
DECIMALS
DECLARE
DEF
DEFAULT
DEFAULT-NOXLATE
DEFAULT-WINDOW
DEFINE
DELETE
DELIMITER
DESC
DESCENDING
DICT
DICTIONARY
DISABLE
DISCONNECT
DISP
DISPLAY
DISTINCT
DO
DOS
DOWN
DROP
EACH
EDITING
ELSE
ENABLE
ENCODE
END
ENTRY
ERROR-STATUS
ESCAPE
ETIME
EXCEPT
EXCLUSIVE
EXCLUSIVE-LOCK
EXISTS
EXPORT
FALSE
FETCH
FIELD
FIELDS
FILE-INFO
FILE-INFORMATION
FILL
FIND
FIND-CASE-SENSITIVE
FIND-GLOBAL
FIND-NEXT-OCCURRENCE
FIND-PREV-OCCURRENCE
FIND-SELECT
FIND-WRAP-AROUND
FIRST
FIRST-OF
FOCUS
FONT
FONT-BASED-GRID
FOR
FORM
FORMAT
FRAME
FRAME-COL
FRAME-DB
FRAME-DOWN
FRAME-FIELD
FRAME-FILE
FRAME-INDEX
FRAME-LINE
FRAME-NAME
FRAME-ROW
FRAME-VAL
FRAME-VALUE
FROM
FROM-CHARS
FROM-PIXELS
GATEWAYS
GET-BYTE
GET-CODEPAGES
GET-COLLATIONS
GET-KEY-VALUE
GETBYTE
GLOBAL
GO-ON
GO-PENDING
GRANT
GRAPHIC-EDGE
GROUP
HAVING
HEADER
HELP
HIDE
IF
IMPORT
IN
INDEX
INDICATOR
INPUT
INPUT-OUTPUT
INSERT
INTO
IS
IS-ATTR-SPACE
JOIN
KBLABEL
KEY-CODE
KEY-FUNCTION
KEY-LABEL
KEYCODE
KEYFUNCTION
KEYLABEL
KEYS
KEYWORD
LABEL
LAST
LAST-EVENT
LAST-KEY
LAST-OF
LASTKEY
LDBNAME
LEAVE
LIBRARY
LIKE
LINE-COUNT
LINE-COUNTER
LISTING
LOCKED
LOOKUP
MACHINE-CLASS
MAP
MEMBER
MESSAGE
MESSAGE-LINES
MOUSE
MPE
NEW
NEXT
NEXT-PROMPT
NO
NO-ATTR-SPACE
NO-ERROR
NO-FILL
NO-HELP
NO-HIDE
NO-LABEL
NO-LABELS
NO-LOCK
NO-MAP
NO-MESSAGE
NO-PAUSE
NO-PREFETCH
NO-UNDO
NO-VALIDATE
NO-WAIT
NOT
NULL
NUM-ALIASES
NUM-DBS
NUM-ENTRIES
OF
OFF
OLD
ON
OPEN
OPSYS
OPTION
OR
OS-APPEND
OS-COMMAND
OS-COPY
OS-CREATE-DIR
OS-DELETE
OS-DIR
OS-RENAME
OS2
OS400
OTHERWISE
OUTPUT
OVERLAY
PAGE
PAGE-BOTTOM
PAGE-NUM
PAGE-NUMBER
PAGE-TOP
PARAM
PARAMETER
PAUSE
PDBNAME
PERSISTENT
PIXELS
PREPROCESS
PRIVILEGES
PROC-HANDLE
PROC-STATUS
PROCESS
PROGRAM-NAME
PROGRESS
PROMPT
PROMPT-FOR
PROMSGS
PROPATH
PROVERSION
PUT
PUT-BYTE
PUT-KEY-VALUE
PUTBYTE
QUERY
QUERY-TUNING
QUIT
R-INDEX
RCODE-INFORMATION
READKEY
RECID
RECORD-LENGTH
RECTANGLE
RELEASE
REPEAT
REPOSITION
RETAIN
RETRY
RETURN
REVERT
REVOKE
RUN
SAVE
SCHEMA
SCREEN
SCREEN-IO
SCREEN-LINES
SCROLL
SDBNAME
SEARCH
SEEK
SELECT
SELF
SESSION
SET
SETUSERID
SHARE
SHARE-LOCK
SHARED
SHOW-STATS
SKIP
SOME
SPACE
STATUS
STREAM
STREAM-IO
STRING-XREF
SYSTEM-DIALOG
TABLE
TERM
TERMINAL
TEXT
TEXT-CURSOR
TEXT-SEG-GROWTH
THEN
THIS-PROCEDURE
TIME
TITLE
TO
TOP-ONLY
TRANS
TRANSACTION
TRIGGER
TRIGGERS
TRIM
TRUE
UNDERLINE
UNDO
UNFORMATTED
UNION
UNIQUE
UNIX
UP
UPDATE
USE-INDEX
USE-REVVIDEO
USE-UNDERLINE
USER
USERID
USING
V6FRAME
VALUE
VALUES
VIEW
VIEW-AS
VMS
WAIT-FOR
WHEN
WHERE
WHILE
WINDOW
WINDOW-MAXIMIZED
WINDOW-MINIMIZED
WINDOW-NORMAL
WITH
WORK-TABLE
WORKFILE
WRITE
XCODE
XREF
YES
_CBIT
_CONTROL
_DCM
_LIST
_MEMORY
_MSG
_PCONTROL
_SERIAL-NUM
_TRACE
">
					<Attributes Foreground="clGreen" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Operators" Enabled="True" Style="" Words="ABS
ABSOLUTE
ACCELERATOR
ACROSS
ADD-FIRST
ADD-LAST
ADVISE
ALERT-BOX
ALLOW-REPLICATION
ANSI-ONLY
ANYWHERE
APPEND
APPL-ALERT
APPL-ALERT-BOXES
APPLICATION
AS-CURSOR
ASK-OVERWRITE
ATTACHMENT
AUTO-END-KEY
AUTO-ENDKEY
AUTO-GO
AUTO-INDENT
AUTO-RESIZE
AUTO-ZAP
AVAILABLE-FORMATS
AVERAGE
AVG
BACKWARDS
BASE-KEY
BATCH
BATCH-MODE
BGC
BGCOLOR
BINARY
BIND-WHERE
BLOCK-ITERATION-DISPLAY
BORDER-BOTTOM
BORDER-BOTTOM-CHARS
BORDER-BOTTOM-PIXELS
BORDER-LEFT
BORDER-LEFT-CHARS
BORDER-LEFT-PIXELS
BORDER-RIGHT
BORDER-RIGHT-CHARS
BORDER-RIGHT-PIXELS
BORDER-TOP
BORDER-TOP-CHARS
BORDER-TOP-PIXELS
BOTH
BOTTOM
BOX
BOX-SELECT
BOX-SELECTABLE
BROWSE
BROWSE-HEADER
BTN-DOWN-ARROW
BTN-LEFT-ARROW
BTN-RIGHT-ARROW
BTN-UP-ARROW
BUFFER
BUFFER-CHARS
BUFFER-LINES
BUTTON
BUTTONS
CACHE
CACHE-SIZE
CAN-QUERY
CAN-SET
CANCEL-BREAK
CANCEL-BUTTON
CAPS
CDECL
CHAR
CHARACTER
CHARACTER_LENGTH
CHARSET
CHECKED
CHOOSE
CLEAR-SELECT
CLEAR-SELECTION
CLOSE
CODE
CODEPAGE
CODEPAGE-CONVERT
COL-OF
COLON-ALIGN
COLON-ALIGNED
COLOR-TABLE
COLUMN-BGCOLOR
COLUMN-DCOLOR
COLUMN-FGCOLOR
COLUMN-FONT
COLUMN-LABEL-BGCOLOR
COLUMN-LABEL-DCOLOR
COLUMN-LABEL-FGCOLOR
COLUMN-LABEL-FONT
COLUMN-OF
COLUMN-SCROLLING
COM1
COM2
COM3
COM4
COM5
COM6
COM7
COM8
COM9
COMBO-BOX
COM-HANDLE
COMMAND
COMPILE
COMPLETE
CON
CONNECT
CONSTRAINED
CONTAINS
CONTENTS
CONTEXT
CONTEXT-POPUP
CONTROL-CONTAINER
CONVERT
CONVERT-TO-OFFSET
COUNT
CPCASE
CPCOLL
CPINTERNAL
CPLOG
CPPRINT
CPRCODEIN
CPRCODEOUT
CPTERM
CRC-VALUE
CREATE-CONTROL
CREATE-RESULT-LIST-ENTRY
CREATE-TEST-FILE
CURRENT-COLUMN
CURRENT-ITERATION
CURRENT-RESULT-ROW
CURRENT-ROW-MODIFIED
CURRENT-VALUE
CURRENT_DATE
CURSOR-CHAR
CURSOR-LINE
CURSOR-OFFSET
DATA-ENTRY-RETURN
DATA-TYPE
DATE
DATE-FORMAT
DAY
DB-REFERENCES
DCOLOR
DDE-ERROR
DDE-ID
DDE-ITEM
DDE-NAME
DDE-TOPIC
DEBUG
DEC
DECIMAL
DEFAULT-BUTTON
DEFAULT-EXTENSION
DEFINED
DELETE-CHAR
DELETE-CURRENT-ROW
DELETE-LINE
DELETE-SELECTED-ROW
DELETE-SELECTED-ROWS
DESELECT-FOCUSED-ROW
DESELECT-ROWS
DESELECT-SELECTED-ROW
DESIGN-MODE
DIALOG-BOX
DIALOG-HELP
DIR
DISABLED
DISPLAY-MESSAGE
DISPLAY-TYPE
DOUBLE
DRAG-ENABLED
DROP-DOWN
DROP-DOWN-LIST
DUMP
DYNAMIC
ECHO
EDGE
EDGE-CHARS
EDGE-PIXELS
EDITOR
EMPTY
END-KEY
ENDKEY
ENTERED
EQ
ERROR
ERROR-COL
ERROR-COLUMN
ERROR-ROW
EVENT-TYPE
EVENTS
EXECUTE
EXP
EXPAND
EXTENDED
EXTENT
EXTERNAL
EXTRACT
FETCH-SELECTED-ROW
FGC
FGCOLOR
FILE
FILE-NAME
FILE-OFFSET
FILE-TYPE
FILENAME
FILL-IN
FILLED
FILTERS
FIRST-CHILD
FIRST-COLUMN
FIRST-PROC
FIRST-PROCEDURE
FIRST-TAB-ITEM
FIXED-ONLY
FLOAT
FOCUSED-ROW
FONT-TABLE
FORCE-FILE
FOREGROUND
FORWARDS
FRAME-SPACING
FRAME-X
FRAME-Y
FREQUENCY
FROM-CURRENT
FULL-HEIGHT
FULL-HEIGHT-CHARS
FULL-HEIGHT-PIXELS
FULL-PATHNAME
FULL-WIDTH
FULL-WIDTH-CHARS
FULL-WIDTH-PIXELS
FUNCTION
GE
GET
GET-BLUE
GET-BLUE-VALUE
GET-CHAR-PROPERTY
GET-DOUBLE
GET-DYNAMIC
GET-FILE
GET-FLOAT
GET-GREEN
GET-GREEN-VALUE
GET-ITERATION
GET-LICENSE
GET-LONG
GET-MESSAGE
GET-NUMBER
GET-POINTER-VALUE
GET-RED
GET-RED-VALUE
GET-REPOSITIONED-ROW
GET-SELECTED
GET-SELECTED-WIDGET
GET-SHORT
GET-SIGNATURE
GET-SIZE
GET-STRING