-
Notifications
You must be signed in to change notification settings - Fork 38
/
OP.pm
74 lines (61 loc) · 2.83 KB
/
OP.pm
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
# See bottom of file for license and copyright information
package Foswiki::Infix::OP;
use Foswiki::Class;
extends qw(Foswiki::Object);
=begin TML
---+ package Foswiki::Infix::OP
Base class of operators recognised by the Foswiki::Infix::Parser. Predefined fields
in this object used by Foswiki::Infix::Parser are:
* =name= - operator string.
* =prec= - operator precedence, positive non-zero integer.
Larger number => higher precedence.
* =arity= - set to 1 if this operator is unary, 2 for binary. Arity 0
is legal, should you ever need it. Use arity=2 and canfold=1 for
n-ary operators.
* =close= - used with bracket operators. =name= should be the open
bracket string, and =close= the close bracket. The existance of =close=
marks this as a bracket operator.
* =casematters== - indicates that the parser should check case in the
operator name (i.e. treat 'AND' and 'and' as different).
By default operators are case insensitive. *Note* that operator
names must be caselessly unique i.e. you can't define 'AND' and 'and'
as different operators in the same parser. Does not affect the
interpretation of non-operator terminals (names).
* =canfold= - means that adjacent nodes with identical operators
can be folded together i.e. the operands of the second node can
be pushed onto the parameter list of the first. This is used (for
example) for comma lists.
Other fields in the object can be used for other purposes. However field
names in the hash starting with =InfixParser_= are reserved for use
by the parser.
=cut
BEGIN {
if ( $Foswiki::cfg{UseLocale} ) {
require locale;
import locale();
}
}
has name => ( is => 'rw', );
has prec => ( is => 'rw', );
has arity => ( is => 'rw', );
has close => ( is => 'rw', );
has casematters => ( is => 'rw', );
has canfold => ( is => 'rw', );
has InfixParser_RE => ( is => 'rw', );
has InfixParser_closeRE => ( is => 'rw', );
1;
__END__
Author: Crawford Currie http://c-dot.co.uk
Foswiki - The Free and Open Source Wiki, http://foswiki.org/
Copyright (C) 2010-2011 Foswiki Contributors. Foswiki Contributors
are listed in the AUTHORS file in the root of this distribution.
NOTE: Please extend that file, not this notice.
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version. For
more details read LICENSE in the root of this distribution.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
As per the GPL, removal of this notice is prohibited.