wxPython/samples/ide/activegrid/tool/PerlEditor.py

   1 #----------------------------------------------------------------------------
   2 # Name:         PerlEditor.py
   3 # Purpose:      Perl Script Editor for pydocview tbat uses the Styled Text Control
   4 #
   5 # Author:       Morgan Hua
   6 #
   7 # Created:      1/5/04
   8 # CVS-ID:       $Id$
   9 # Copyright:    (c) 2005 ActiveGrid, Inc.
  10 # License:      wxWindows License
  11 #----------------------------------------------------------------------------
  12
  13 import wx
  14 import string
  15 import STCTextEditor
  16 import CodeEditor
  17
  18
  19 class PerlDocument(CodeEditor.CodeDocument):
  20
  21     pass
  22
  23
  24 class PerlView(CodeEditor.CodeView):
  25
  26
  27     def GetCtrlClass(self):
  28         """ Used in split window to instantiate new instances """
  29         return PerlCtrl
  30
  31
  32     def GetAutoCompleteHint(self):
  33         pos = self.GetCtrl().GetCurrentPos()
  34         if pos == 0:
  35             return None, None
  36
  37         validLetters = string.letters + string.digits + '_/'
  38         word = ''
  39         while (True):
  40             pos = pos - 1
  41             if pos < 0:
  42                 break
  43             char = chr(self.GetCtrl().GetCharAt(pos))
  44             if char not in validLetters:
  45                 break
  46             word = char + word
  47
  48         return None, word
  49
  50
  51     def GetAutoCompleteDefaultKeywords(self):
  52         return PERLKEYWORDS
  53
  54
  55 class PerlService(CodeEditor.CodeService):
  56
  57
  58     def __init__(self):
  59         CodeEditor.CodeService.__init__(self)
  60
  61
  62 class PerlCtrl(CodeEditor.CodeCtrl):
  63
  64
  65     def __init__(self, parent, ID = -1, style = wx.NO_FULL_REPAINT_ON_RESIZE):
  66         CodeEditor.CodeCtrl.__init__(self, parent, ID, style)
  67         self.SetLexer(wx.stc.STC_LEX_PERL)
  68         self.SetKeyWords(0, string.join(PERLKEYWORDS))
  69
  70
  71     def CanWordWrap(self):
  72         return True
  73
  74
  75     def SetViewDefaults(self):
  76         CodeEditor.CodeCtrl.SetViewDefaults(self, configPrefix = "Perl", hasWordWrap = True, hasTabs = True)
  77
  78
  79     def GetFontAndColorFromConfig(self):
  80         return CodeEditor.CodeCtrl.GetFontAndColorFromConfig(self, configPrefix = "Perl")
  81
  82
  83     def UpdateStyles(self):
  84         CodeEditor.CodeCtrl.UpdateStyles(self)
  85
  86         if not self.GetFont():
  87             return
  88
  89         faces = { 'font' : self.GetFont().GetFaceName(),
  90                   'size' : self.GetFont().GetPointSize(),
  91                   'size2': self.GetFont().GetPointSize() - 2,
  92                   'color' : "%02x%02x%02x" % (self.GetFontColor().Red(), self.GetFontColor().Green(), self.GetFontColor().Blue())
  93                   }
  94
  95         # Perl Styles
  96         self.StyleSetSpec(wx.stc.STC_PL_DEFAULT, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
  97         self.StyleSetSpec(wx.stc.STC_PL_COMMENTLINE, "face:%(font)s,fore:#007F00,italic,face:%(font)s,size:%(size)d" % faces)
  98         self.StyleSetSpec(wx.stc.STC_PL_NUMBER, "face:%(font)s,fore:#007F7F,size:%(size)d" % faces)
  99         self.StyleSetSpec(wx.stc.STC_PL_CHARACTER, "face:%(font)s,fore:#7F007F,face:%(font)s,size:%(size)d" % faces)
 100         self.StyleSetSpec(wx.stc.STC_PL_STRING, "face:%(font)s,fore:#7F007F,face:%(font)s,size:%(size)d" % faces)
 101         self.StyleSetSpec(wx.stc.STC_PL_STRING_Q, "face:%(font)s,fore:#7F007F,face:%(font)s,size:%(size)d" % faces)
 102         self.StyleSetSpec(wx.stc.STC_PL_STRING_QQ, "face:%(font)s,fore:#7F007F,face:%(font)s,size:%(size)d" % faces)
 103         self.StyleSetSpec(wx.stc.STC_PL_STRING_QX, "face:%(font)s,fore:#7F007F,face:%(font)s,size:%(size)d" % faces)
 104         self.StyleSetSpec(wx.stc.STC_PL_STRING_QR, "face:%(font)s,fore:#7F007F,face:%(font)s,size:%(size)d" % faces)
 105         self.StyleSetSpec(wx.stc.STC_PL_STRING_QW, "face:%(font)s,fore:#7F007F,face:%(font)s,size:%(size)d" % faces)
 106         self.StyleSetSpec(wx.stc.STC_PL_BACKTICKS, "face:%(font)s,fore:#7F007F,face:%(font)s,size:%(size)d" % faces)
 107         self.StyleSetSpec(wx.stc.STC_PL_WORD, "face:%(font)s,fore:#00007F,bold,size:%(size)d" % faces) # keyword
 108         self.StyleSetSpec(wx.stc.STC_PL_IDENTIFIER, "face:%(font)s,fore:#%(color)s,face:%(font)s,size:%(size)d" % faces)
 109
 110         # Default
 111         self.StyleSetSpec(wx.stc.STC_PL_ARRAY, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 112         self.StyleSetSpec(wx.stc.STC_PL_DATASECTION, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 113         self.StyleSetSpec(wx.stc.STC_PL_ERROR, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 114         self.StyleSetSpec(wx.stc.STC_PL_HASH, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 115         self.StyleSetSpec(wx.stc.STC_PL_HERE_DELIM, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 116         self.StyleSetSpec(wx.stc.STC_PL_HERE_Q, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 117         self.StyleSetSpec(wx.stc.STC_PL_HERE_QQ, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 118         self.StyleSetSpec(wx.stc.STC_PL_HERE_QX, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 119         self.StyleSetSpec(wx.stc.STC_PL_LONGQUOTE, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 120         self.StyleSetSpec(wx.stc.STC_PL_OPERATOR, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 121         self.StyleSetSpec(wx.stc.STC_PL_POD, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 122         self.StyleSetSpec(wx.stc.STC_PL_PREPROCESSOR, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 123         self.StyleSetSpec(wx.stc.STC_PL_PUNCTUATION, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 124         self.StyleSetSpec(wx.stc.STC_PL_REGEX, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 125         self.StyleSetSpec(wx.stc.STC_PL_REGSUBST, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 126         self.StyleSetSpec(wx.stc.STC_PL_SCALAR, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 127         self.StyleSetSpec(wx.stc.STC_PL_SYMBOLTABLE, "face:%(font)s,fore:#000000,face:%(font)s,size:%(size)d" % faces)
 128
 129
 130 class PerlOptionsPanel(STCTextEditor.TextOptionsPanel):
 131
 132     def __init__(self, parent, id):
 133         STCTextEditor.TextOptionsPanel.__init__(self, parent, id, configPrefix = "Perl", label = "Perl", hasWordWrap = True, hasTabs = True)
 134
 135
 136 PERLKEYWORDS = [
 137         "abs",
 138         "accept",
 139         "alarm",
 140         "atan2",
 141         "bind",
 142         "binmode",
 143         "bless",
 144         "caller",
 145         "chdir",
 146         "chmod",
 147         "chomp",
 148         "chop",
 149         "chown",
 150         "chr",
 151         "chroot",
 152         "close",
 153         "closedir",
 154         "connect",
 155         "continue",
 156         "cos",
 157         "crypt",
 158         "dbmclose",
 159         "dbmopen",
 160         "defined",
 161         "delete",
 162         "die",
 163         "do",
 164         "dump",
 165         "each",
 166         "endgrent",
 167         "endhostent",
 168         "endnetent",
 169         "endprotoent",
 170         "endpwent",
 171         "endservent",
 172         "eof",
 173         "eval",
 174         "exec",
 175         "exists",
 176         "exit",
 177         "exp",
 178         "fcntl",
 179         "fileno",
 180         "flock",
 181         "fork",
 182         "format",
 183         "formline",
 184         "getc",
 185         "getgrent",
 186         "getgrgid",
 187         "getgrnam",
 188         "gethostbyaddr",
 189         "gethostbyname",
 190         "gethostent",
 191         "getlogin",
 192         "getnetbyaddr",
 193         "getnetbyname",
 194         "getnetent",
 195         "getpeername",
 196         "getpgrp",
 197         "getppid",
 198         "getpriority",
 199         "getprotobyname",
 200         "getprotobynumber",
 201         "getprotoent",
 202         "getpwent",
 203         "getpwnam",
 204         "getpwuid",
 205         "getservbyname",
 206         "getservbyport",
 207         "getservent",
 208         "getsockname",
 209         "getsockopt",
 210         "glob",
 211         "gmtime",
 212         "goto",
 213         "grep",
 214         "hex",
 215         "import",
 216         "index",
 217         "int",
 218         "ioctl",
 219         "join",
 220         "keys",
 221         "kill",
 222         "last",
 223         "lc",
 224         "lcfirst",
 225         "length",
 226         "link",
 227         "listen",
 228         "local",
 229         "localtime",
 230         "log",
 231         "lstat",
 232         "m//",
 233         "map",
 234         "mkdir",
 235         "msgctl",
 236         "msgget",
 237         "msgrcv",
 238         "msgsnd",
 239         "my",
 240         "next",
 241         "no",
 242         "oct",
 243         "open",
 244         "opendir",
 245         "ord",
 246         "pack",
 247         "package",
 248         "pipe",
 249         "pop",
 250         "pos",
 251         "print",
 252         "printf",
 253         "prototype",
 254         "push",
 255         "q/STRING/",
 256         "qq/STRING/",
 257         "quotemeta",
 258         "qw",
 259         "qw/STRING/",
 260         "qx",
 261         "qx/STRING/",
 262         "rand",
 263         "read",
 264         "readdir",
 265         "readline",
 266         "readlink",
 267         "readpipe",
 268         "recv",
 269         "redo",
 270         "ref",
 271         "rename",
 272         "require",
 273         "reset",
 274         "return",
 275         "reverse",
 276         "rewinddir",
 277         "rindex",
 278         "rmdir",
 279         "s///",
 280         "scalar",
 281         "seek",
 282         "seekdir",
 283         "select",
 284         "semctl",
 285         "semget",
 286         "semop",
 287         "send",
 288         "setgrent",
 289         "sethostent",
 290         "setnetent",
 291         "setpgrp",
 292         "setpriority",
 293         "setprotoent",
 294         "setpwent",
 295         "setservent",
 296         "setsockopt",
 297         "shift",
 298         "shmctl",
 299         "shmget",
 300         "shmread",
 301         "shmwrite",
 302         "shutdown",
 303         "sin",
 304         "sleep",
 305         "socket",
 306         "socketpair",
 307         "sort",
 308         "splice",
 309         "split",
 310         "sprintf",
 311         "sqrt",
 312         "srand",
 313         "stat",
 314         "study",
 315         "sub",
 316         "substr",
 317         "symlink",
 318         "syscall",
 319         "sysopen",
 320         "sysread",
 321         "sysseek",
 322         "system",
 323         "syswrite",
 324         "tell",
 325         "telldir",
 326         "tie",
 327         "tied",
 328         "times",
 329         "tr///",
 330         "truncate",
 331         "uc",
 332         "ucfirst",
 333         "umask",
 334         "undef",
 335         "unlink",
 336         "unpack",
 337         "unshift",
 338         "untie",
 339         "use",
 340         "utime",
 341         "values",
 342         "vec",
 343         "wait",
 344         "waitpid",
 345         "wantarray",
 346         "warn",
 347         "write",
 348         "y///",
 349         "eq",
 350         "ne",
 351         "lt",
 352         "le",
 353         "gt",
 354         "ge",
 355         "cmp",
 356         "if",
 357         "else"
 358         "not",
 359         "and",
 360         "xor",
 361         "or",
 362         "if",
 363         "while",
 364         "until",
 365         "for",
 366         "foreach",
 367         "last",
 368         "next",
 369         "redo",
 370         "goto",
 371         "STDIN",
 372         "STDOUT",
 373         "STDERR",
 374         "WHEncE",
 375         "BEGIN",
 376         "END",
 377         "require",
 378         "integer",
 379         "less",
 380         "sigtrap",
 381         "strict",
 382         "subs"
 383     ]
 384
 385
 386 #----------------------------------------------------------------------------
 387 # Icon Bitmaps - generated by encode_bitmaps.py
 388 #----------------------------------------------------------------------------
 389 from wx import ImageFromStream, BitmapFromImage
 390 from wx import EmptyIcon
 391 import cStringIO
 392
 393
 394 def getPerlData():
 395     return \
 396 '\x89PNG\r\n\x1a\n\x00\x00\x00\rIHDR\x00\x00\x00\x0e\x00\x00\x00\x10\x08\x06\
 397 \x00\x00\x00&\x94N:\x00\x00\x00\x04sBIT\x08\x08\x08\x08|\x08d\x88\x00\x00\
 398 \x01mIDAT(\x91\x9d\x93/\x8e\xf30\x10\xc5\x7f[\xed\x05\xca\x82,Ef\xc6e\x01Vx{\
 399 \x89\x04\x16\x94\x97\x045\xa8\xa0\xa44G\x08\xc9\x01\xa2\x80\x1e $ld\xc9\xa8w\
 400 \x08\xf0\xa2x\x93~\x1f\xda\x91F\xb2\xfd\xe6=\xcd?\x7f\xcd\xf3\x1c\xf8\x83}/\
 401 \x87i\x9a\x000\xc6D\xb0\xeb:\x86a MS\xce\xe7\xf3\x968M\x13}\xdf\xe3\x9cCD\
 402 \xb8\xddn\x18c\xe8\xba\x8e\xb2,\xc9\xb2\x0c\x11\x01\xd8\x90w\xc6\x18\x94R\
 403 \xf1\xa1\xef{\xba\xae\xa3i\x1a\xb4\xd6h\xad)\x8a\x02\xe7\\\xccj\x93\xea\xa2\
 404 \nP\xd75\xd7\xeb\x15\x00\xef\xfdFt)e\xb7\x80\x8b\xbas\x8e$I\xe2}\xc1\x8b\xa2\
 405 \xd8\xf4b\x07\xa0\x94\xe2\xf5za\xad\xc5Z\xcb\xfb\xfdFD\xe8\xfb\x9e\x05\x17\
 406 \x11\x9cs4M\xf3K<\x9dNdY\xc60\x0cx\xef\x11\x11\xea\xbaF)\x85s\x8e\xba\xae)\
 407 \xcb\x12\x11!M\xd3_"\xc0\xfd~\xc7Z\x8bs\x0e\x80$I\xa2:@UU1u\x00\xe6y\x0ek\
 408 \x1f\xc71\x1c\x0e\x87\xd0\xb6m\xd8\xef\xf7\xe1\xf1x\x84\xcb\xe5\x12\xe6y\x0e\
 409 \xc7\xe31\xc6\xed\xf80\x11!\xcb2\xbc\xf7TUE\x9e\xe71=\xadul\xce\xf7\'Qk\x8d\
 410 \xf7\x9e<\xcf\x81\xed&Yk\xb7\xe3\xf84\xa5\x14\xc6\x18D\x84\xe7\xf3\x19\x83\
 411 \xd75\xfe\x97\xb8\x0eXo\xcc2\x9e\x7f\x9a3\x8ech\xdb6|6l\xf15\xf6\xf5\xd7o\
 412 \xf5\x03\xaf\x9f\xfa@\x02\xe4\xdc\xf9\x00\x00\x00\x00IEND\xaeB`\x82'
 413
 414
 415 def getPerlBitmap():
 416     return BitmapFromImage(getPerlImage())
 417
 418 def getPerlImage():
 419     stream = cStringIO.StringIO(getPerlData())
 420     return ImageFromStream(stream)
 421
 422 def getPerlIcon():
 423     icon = EmptyIcon()
 424     icon.CopyFromBitmap(getPerlBitmap())
 425     return icon