###############################################################################
# Name: perl.py                                                               #
# Purpose: Define Perl syntax for highlighting and other features             #
# Author: Cody Precord <cprecord@editra.org>                                  #
# Copyright: (c) 2008 Cody Precord <staff@editra.org>                         #
# License: wxWindows License                                                  #
###############################################################################

"""
FILE: perl.py
AUTHOR: Cody Precord
@summary: Lexer configuration module for Perl.

"""

__author__ = "Cody Precord <cprecord@editra.org>"
__svnid__ = "$Id: _perl.py 63834 2010-04-03 06:04:33Z CJP $"
__revision__ = "$Revision: 63834 $"

#-----------------------------------------------------------------------------#
# Imports
import wx.stc as stc

# Local Imports
import synglob
import syndata

#-----------------------------------------------------------------------------#

#---- Keyword Specifications ----#

# Perl Keywords
PERL_KW = (0, "if elseif unless else switch eq ne gt lt ge le cmp not and or "
              "xor while for foreach do until continue defined undef and or "
              "not bless ref BEGIN END my local our goto return last next redo "
              "chomp chop chr crypt index lc lcfirst length org pack reverse "
              "rindex sprintf substr uc ucfirst pos quotemet split study abs "
              "atan2 cos exp hex int log oct rand sin sqrt srand spice unshift "
              "shift push pop split join reverse grep map sort unpack each "
              "exists keys values tie tied untie carp confess croak dbmclose "
              "dbmopen die syscall binmode close closedir eof fileno getc "
              "lstat print printf readdir readline readpipe rewinddir select "
              "stat tell telldir write fcntl flock ioctl open opendir read "
              "seek seekdir sysopen sysread sysseek syswrite truncate pack vec "
              "chdir chmod chown chroot glob link mkdir readlink rename rmdir "
              "symlink umask ulink utime caller dump eval exit wanarray "
              "import alarm exec fork getpgrp getppid getpriority kill pipe "
              "setpgrp setpriority sleep system times wait waitpid accept "
              "bind connect getpeername getsockname getsockopt listen recv "
              "send setsockopt shutdown socket socketpair msgctl msgget msgrcv "
              "msgsnd semctl semget semop shmctl shmget shmread shmwrite "
              "endhostent endnetent endprooent endservent gethostbyaddr "
              "gethostbyname gethostent getnetbyaddr getnetbyname getnetent "
              "getprotobyname getprotobynumber getprotoent getervbyname time "
              "getservbyport getservent sethostent setnetent setprotoent "
              "setservent getpwuid getpwnam getpwent setpwent endpwent "
              "getgrgid getlogin getgrnam setgrent endgrent gtime localtime "
              "times warn formline reset scalar delete prototype lock new "
              "NULL __FILE__ __LINE__ __PACKAGE__ __DATA__ __END__ AUTOLOAD "
              "BEGIN CORE DESTROY END EQ GE GT INIT LE LT NE CHECK use sub "
              "elsif require getgrent ")

#---- Syntax Style Specs ----#
SYNTAX_ITEMS = [ (stc.STC_PL_DEFAULT, 'default_style'),
                 (stc.STC_PL_ARRAY, 'array_style'),
                 (stc.STC_PL_BACKTICKS, 'btick_style'),
                 (stc.STC_PL_CHARACTER, 'char_style'),
                 (stc.STC_PL_COMMENTLINE, 'comment_style'),
                 (stc.STC_PL_DATASECTION, 'default_style'), # STYLE ME
                 (stc.STC_PL_ERROR, 'error_style'),
                 (stc.STC_PL_HASH, 'global_style'),
                 (stc.STC_PL_HERE_DELIM, 'here_style'),
                 (stc.STC_PL_HERE_Q, 'here_style'),
                 (stc.STC_PL_HERE_QQ, 'here_style'),
                 (stc.STC_PL_HERE_QX, 'here_style'),
                 (stc.STC_PL_IDENTIFIER, 'default_style'),
                 (stc.STC_PL_LONGQUOTE, 'default_style'), # STYLE ME
                 (stc.STC_PL_NUMBER, 'number_style'),
                 (stc.STC_PL_OPERATOR, 'operator_style'),
                 (stc.STC_PL_POD, 'comment_style'),
                 (stc.STC_PL_PREPROCESSOR,  'pre_style' ),
                 (stc.STC_PL_PUNCTUATION, 'default_style'), # STYLE ME
                 (stc.STC_PL_REGEX, 'regex_style'),
                 (stc.STC_PL_REGSUBST, 'regex_style'),
                 (stc.STC_PL_SCALAR, 'scalar_style'),
                 (stc.STC_PL_STRING, 'string_style'),
                 (stc.STC_PL_STRING_Q, 'string_style'),
                 (stc.STC_PL_STRING_QQ, 'string_style'),
                 (stc.STC_PL_STRING_QR, 'string_style'),
                 (stc.STC_PL_STRING_QW, 'string_style'),
                 (stc.STC_PL_STRING_QX, 'string_style'),
                 (stc.STC_PL_SYMBOLTABLE, 'default_style'), # STYLE ME
                 (stc.STC_PL_WORD, 'keyword_style') ]

#---- Extra Properties ----#
FOLD = ("fold", "1")
FLD_COMPACT = ("fold.compact", "1")
FLD_COMMENT = ("fold.comment", "1")
FLD_POD = ("fold.perl.pod", "1")
FLD_PKG = ("fold.perl.package", "1")

#-----------------------------------------------------------------------------#

class SyntaxData(syndata.SyntaxDataBase):
    """SyntaxData object for Perl""" 
    def __init__(self, langid):
        syndata.SyntaxDataBase.__init__(self, langid)

        # Setup
        self.SetLexer(stc.STC_LEX_PERL)

    def GetKeywords(self):
        """Returns Specified Keywords List """
        return [PERL_KW]

    def GetSyntaxSpec(self):
        """Syntax Specifications """
        return SYNTAX_ITEMS

    def GetProperties(self):
        """Returns a list of Extra Properties to set """
        return [FOLD]

    def GetCommentPattern(self):
        """Returns a list of characters used to comment a block of code """
        return [u'#']

#---- Syntax Modules Internal Functions ----#
def KeywordString(option=0):
    """Returns the specified Keyword String
    @note: not used by most modules

    """
    if option == synglob.ID_LANG_PERL:
        return PERL_KW[1]
    else:
        return u''

#---- End Syntax Modules Internal Functions ----#

#-----------------------------------------------------------------------------#
