aboutsummaryrefslogtreecommitdiffhomepage
path: root/lib/lexers/perl.tes
blob: 4f9b6e89b494848f16345b0e28e452f16957bb22 (plain)
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
! AUTO-GENERATED FROM SCITE PROPERTY SET !

@[lexer.test.perl]{
  _#!M[perl,pl]M[lexer.checkheader]U.r
  Q.r"F :EN*.plQ*U.r '
  Q.r"F :EN*.pmQ*U.r '
  Q.r"F :EN*.podQ*U.r '
Q.r}

@[lexer.set.perl]{
  ESSETLEXERLANGUAGEperl
  0ESSETKEYWORDS
    NULL __FILE__ __LINE__ __PACKAGE__ __DATA__ __END__ AUTOLOAD BEGIN CORE
    DESTROY END EQ GE GT INIT LE LT NE CHECK abs accept alarm and atan2 bind binmode
    bless caller chdir chmod chomp chop chown chr chroot close closedir cmp connect
    continue cos crypt dbmclose dbmopen defined delete die do dump each else elsif
    endgrent endhostent endnetent endprotoent endpwent endservent eof eq eval exec exists
    exit exp fcntl fileno flock for foreach fork format formline ge getc getgrent
    getgrgid getgrnam gethostbyaddr gethostbyname gethostent getlogin getnetbyaddr
    getnetbyname getnetent getpeername getpgrp getppid getpriority getprotobyname
    getprotobynumber getprotoent getpwent getpwnam getpwuid getservbyname getservbyport
    getservent getsockname getsockopt glob gmtime goto grep gt hex if index int ioctl join
    keys kill last lc lcfirst le length link listen local localtime lock log lstat lt
    map mkdir msgctl msgget msgrcv msgsnd my ne next no not oct open opendir or ord
    our pack package pipe pop pos print printf prototype push quotemeta qu rand read
    readdir readline readlink readpipe recv redo ref rename require reset return reverse
    rewinddir rindex rmdir scalar seek seekdir select semctl semget semop send setgrent
    sethostent setnetent setpgrp setpriority setprotoent setpwent setservent setsockopt
    shift shmctl shmget shmread shmwrite shutdown sin sleep socket socketpair sort
    splice split sprintf sqrt srand stat study sub substr symlink syscall sysopen
    sysread sysseek system syswrite tell telldir tie tied time times truncate uc ucfirst
    umask undef unless unlink unpack unshift untie until use utime values vec wait
    waitpid wantarray warn while write xor given when default break say state UNITCHECK
    __SUB__ fc
  :M[color.error],1M[color.set]
  :M[color.comment],2M[color.set]
  :M[color.number],4M[color.set]
  :M[color.keyword],5M[color.set]
  :M[color.string],6M[color.set]
  :M[color.string2],7M[color.set]
  :M[color.operator],10M[color.set]
}