_gui4cli.py
7.64 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
###############################################################################
# Name: gui4cli.py #
# Purpose: Syntax configuration for the Gui4Cli programming language #
# Author: Cody Precord <cprecord@editra.org> #
# Copyright: (c) 2007 Cody Precord <staff@editra.org> #
# License: wxWindows License #
###############################################################################
"""
FILE: gui4cli.py
AUTHOR: Cody Precord
@summary: Lexer configuration module for Gui4Cli
"""
__author__ = "Cody Precord <cprecord@editra.org>"
__svnid__ = "$Id: _gui4cli.py 68798 2011-08-20 17:17:05Z CJP $"
__revision__ = "$Revision: 68798 $"
#-----------------------------------------------------------------------------#
# Imports
import wx.stc as stc
# Local Imports
import synglob
import syndata
#-----------------------------------------------------------------------------#
#---- Keyword Definitions ----#
GLOBALS = (0, "3STATE #ANSI #FIXANSI #FIXOEM #FIXSYS #GUI #SEPARATOR #SYS ABRI "
"ACTIVE ALL ALTSTART APPDATA APPWIN ARRANGE ARROW ASCEND AUTO "
"BACK BC BITBUCKET BL BOLD BORDER BOTTOM BR BUFFERS BUSY BUTTON "
"BUTTONS CAPTION CENTER CHAR CHECK CHILD CLEAN CLEAR CLOSED "
"COLOR COMM COMMON.ALTSTART COMMON.DESKTOP COMMON.FAVORITES "
"COMMON.MENU COMMON.PROGRAMS COMMON.STARTUP COOKIES CROSS CURDIR "
"CURRENT CURSOR DATA DATE DAY DECORATIVE DEF1 DEF2 DEF3 DEF4 "
"DESCEND DESKTOP DIALOG DIR DISABLE DISABLED DISK DISKS DLBEGIN "
"DLCOMPLETE DLGFRAME DOUBLE DRAG DROP DROPLIST DTTM EDIT EDITOR "
"EFFECTS ELLIPSE EMBOSS END ENABLE ENDGUI ENGLISH ENTER ERROR "
"EXISTS EXPLORE EXT FAIL FAVORITES FIELDS FILE FILES FIND FIRST "
"FIXED FIXWIDTH FLAT FNUMBER FOCUS FOREGROUND FORMAT FORWARD "
"FREE FRONT FULL FULLPATH GCDIR GCEXE GCNAME GREEK GRID GUIPATH "
"HEAVY HEIGHT HELP HEX HIDDEN HIDE HIST HISTORY HOME HORIZONTAL "
"HOT HOUR IBEAM ICLEFT INDEX INFO INT INVOKE ITALIC ITEM JULIAN "
"JUSTIFY LARGE LAST LB LBLEFT LC LENGTH LIGHT LINE LINES LMB "
"LMDC LOAD LOADED LOWER LT MAX MAXI MAXBOX MAXIMIZE MEDIUM MENU "
"MINBOX MINI MINIMIZE MINUTE MMB MODERN MONTH MOVE MSEC MULTI "
"NAME NAVCOMPLETE NETCACHE NETHOOD NEW NEWMENU NEXT NO NOADJUST "
"NOBORDER NOERROR NOEXT NOFACE NOFILES NOFOCUS NOFOLDERS NONE "
"NOOPEN NOREFRESH NORESET NORMAL NORTH NOSIZE NOVECTOR NOVRT NOW "
"NOWRAP NUMBER OCTAL OFF OK OKCANCEL ON ONECLICK ONELINE OPEN "
"OVERLAP OWNED PARENT PATH PCPATH PERIOD PERSONAL POLYGON PREFS "
"PREV PREVIOUS PRINT PRINTERS PROGRAMS PROP PROPERTY PULSE "
"QUESTION QUOTE RAGGED RAISED RB RC REC RECENT REFRESH REMOVE "
"REMSIZE RENAME REPORT RESIZE RET RETRY RIGHT RMB ROMAN ROOT "
"ROUNDED ROUTINE ROWS RT SAVE SCALABLE SCREEN SCRIPT SCROLL "
"SEARCH SECOND SELECT SELECTED SELSCRIPT SENDTO SENSITIVE "
"SENTENCE SHELL SHOW SILENT SIMPLE SINGLE SIZE SMALL SMOOTH "
"SOLID SORT START STARTGUI STARTUP STAT0 STATIC STATUS STD STOP "
"STRECH STRIKE SUBCHILD SUBSUB SUNK SUNKEN SWISS SYSMENU TAB "
"TABS TC TEMPLATES TEXT THIN TIME TITLE TL TOGGLE TOOL TOP "
"TOPMOST TOTAL TR TRANS TRANSPARENT TTONLY TYPE UNDERLINE "
"UNFORMAT UNJULIAN UNQUOTE UNSELECT UNSELECTED UPPER USER VALID "
"VARIABLE VCENTER VERSION VERTICAL VIEW WAIT WARN WHEEL WIDTH "
"WINEDGE WORD YEAR YES YESNO YESTOALL YNCANCEL")
EVENTS = (1, "XAREA XBROWSER XBUTTON XCHECKBOX XCOMBO XEDBOX XGROUPBOX XICON "
"XIMAGE XLISTVIEW XMENU XPAN XPROGRESS XRADIO XREBAR XSPLITER "
"XSTATUS XTAB XTEXTBOX XTEXTIN XTOOLBAR XTRACKBAR XTREEVIEW "
"XUPDOWN XAFTER XATTR XBEFORE XENUM XHOTKEY XNOTIFY XONACTIVE "
"XONBROWSER XONCLICK XONCLOSE XONDOUBLECLICK XONDROP XONFAIL "
"XONHELP XONINACTIVE XONKEY XONLMB XONLOAD XONLVCLICK XONLVDIR "
"XONMARK XONMMB XONOPEN XONQUIT XONRELOAD XONRETURN XONRMB "
"XONTEXTIN XONWHEELDOWN XONWHEELUP XPIPE XREQFILE XROUTINE "
"XTBARICON XTIMER XONKEY")
ATTRIBUTES = (2, "ATTR BACKGROUND BUDDY BUFFERS COLORS COLSAVE DATA DBGSTEP DBGVARS "
"DEBUG DEEPTRANS EDITOR ENDGUI ESCAPE FAIL FILTER FONT FRAME "
"GRID HELP ICON ID IXICON KEY LIKE LOCAL LVCOLUMN MAXDATE "
"MAXSIZE MAXTRANS MCINOTIFY MCISIGNAL MENU MINDATE MINSIZE "
"NEXT OUTPUT PAGE PARENT PATH PREFS RBSTYLE RESIZE SAY SHAPE "
"SHOW STARTGUI STYLE TAB TITLE TRANSLATE VARIABLES")
CONTROL = (3, "AND ANDIFEXISTS BREAK CALL CASE DOCASE ELSE ELSEIF ELSEIFEXISTS "
"ENDCASE ENDFOR ENDIF ENDWHILE FOR GO GOSUB GOTO IF IFEXISTS "
"LABEL OR ORIFEXISTS QUIT RETURN STOP WHILE")
COMMANDS = (4, "ADD ADDRESS ADDUNIQUE APPEND APPVAR ASSIGN AUTO BRANCH BROWSER "
"CD CLOSE COMBO COMMAND COPY CREATE CREATELINK CUT CUTVAR DBSUM "
"DCKDEBUG DDEXEC DDPUT DDUSE DEC DEL DELAY DELETE DELVAR EDBOX "
"EMPTYBIN ENUM EXIT EXTRACT FLASH FREEFONT FREEICON GETCLIP "
"GETCOLOR GETFONT GOSUB GUI GUICLOSE GUILOAD GUIOPEN GUIQUIT "
"GUIRENAME GUIWINDOW HTMLHELP IMAGE INC JOINFILE LAUNCH "
"LISTVIEW LOADFONT LOADICON LV LVACTION LVCLIP LVREP LVSEARCH "
"LVSWITCH MAKEDIR MCI MOVE MSGBOX NEWFILE PARSEVAR POPMENU "
"QUICKMENU QUIT RANDOM REGCREATE REGDELETE REGGET REGSET RENAME "
"REPVAR REQFILE RUN SAY SEARCHVAR SEND SET SETATTR SETCLIP "
"SETEVENT SETGADVALUES SETICON SETPOINTER SETVAR SETWINATTR "
"SETWINTITLE SHELL STATUS SYSTEM TERMINATEPROC TEXTFILE "
"TREEVIEW TV UPDATE UPDOWN USE WAIT WINATTR WINDOW")
#---- End Keyword Definitions ----#
#---- Syntax Style Specs ----#
SYNTAX_ITEMS = [(stc.STC_GC_ATTRIBUTE, 'keyword3_style'),
(stc.STC_GC_COMMAND, 'keyword2_style'),
(stc.STC_GC_COMMENTBLOCK, 'comment_style'),
(stc.STC_GC_COMMENTLINE, 'comment_style'),
(stc.STC_GC_CONTROL, 'keyword_style'),
(stc.STC_GC_DEFAULT, 'default_style'),
(stc.STC_GC_EVENT, 'keyword4_style'),
(stc.STC_GC_GLOBAL, 'global_style'),
(stc.STC_GC_OPERATOR, 'operator_style'),
(stc.STC_GC_STRING, 'string_style')]
#---- Extra Properties ----#
FOLD = ("fold", "1")
FOLD_COMP = ("fold.compact", "1")
#-----------------------------------------------------------------------------#
class SyntaxData(syndata.SyntaxDataBase):
"""SyntaxData object for Gui4Cli"""
def __init__(self, langid):
super(SyntaxData, self).__init__(langid)
# Setup
self.SetLexer(stc.STC_LEX_GUI4CLI)
def GetKeywords(self):
"""Returns Specified Keywords List """
return [GLOBALS, EVENTS, ATTRIBUTES, CONTROL, COMMANDS]
def GetSyntaxSpec(self):
"""Syntax Specifications """
return SYNTAX_ITEMS
def GetProperties(self):
"""Returns a list of Extra Properties to set
@note: gui4cli supports folding but it seems to be partially broken
"""
return list() #[FOLD, FOLD_COMP]
def GetCommentPattern(self):
"""Returns a list of characters used to comment a block of code """
return [u'//']