Subversion Repositories wimsdev

Rev

Rev 4879 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4877 bpr 1
#!/usr/bin/perl
2
 
3
open(IN, "commands") ;
4
 
5
my $L='' ; my $t=0 ;   
6
while (<IN>) {my $l=$_ ;
7
  if (/^:/) { $t=1 ; $l =~ s/^:(\w+)(\s.*)?\n/$1/g ; $L .=$l ; }
8
    else {
9
    if ($t==1) { $L .=$l ;} ; $t=0 ;
10
  }
11
} ;
12
$L =~ s/\s+/\n/g;
13
$L = "'" . join ( "', '",split ('\n', $L)) . "'";
14
 
15
my $Text = << "EOT"
16
  editAreaLoader.load_syntax["flydraw"] = {
17
    'QUOTEMARKS' : {1: ' " '}
18
        ,'KEYWORD_CASE_SENSITIVE' : true
19
        ,'KEYWORDS' : {
20
        'flydraw' : [
21
EOT
22
. $L
23
. << "EOT"
24
 ]
25
}
26
        ,'OPERATORS' :[
27
                '*', '+', '-', '/', '^', '<', '=', '>','//'
28
        ]
29
        ,'DELIMITERS' :[
30
                '(', ')', '[', ']','{','}'
31
        ]
32
        ,'REGEXPS' :
33
        {
34
                'oefvariables' : { 'search': '()(\\\\\\\\\\\\w+)()',
35
                        'class' : 'oefvariables',
36
                        'modifiers' : 'g', 'execute' : 'before' }
37
        }
38
        ,'STYLES' : {
39
                'COMMENTS': 'color: #0000CD;'
40
                ,'QUOTESMARKS': 'color: #6381F8;'
41
                ,'KEYWORDS' : {
42
                        'flydraw' : 'color: #48BDDF;'
43
                        }
44
                ,'OPERATORS' : 'color: #FF00FF;'
45
                ,'DELIMITERS' : 'color: #60CA00;'
46
                ,'REGEXPS': {
47
                        'oefvariables' : 'color: #FF3A6E;'
48
                }
49
        }
50
};
51
 
52
EOT
53
;
54
 
55
out( 'flydraw.js', $Text) ;
56
 
57
sub out { my ($bloc, $text) = @_;
58
  open  (OUT, ">$bloc") ;
59
  print OUT $text ; close OUT;
60
}