[system] / trunk / pg / macros / contextLimitedNumeric.pl Repository:
ViewVC logotype

Diff of /trunk/pg/macros/contextLimitedNumeric.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 5372 Revision 5373
3 3
4sub _contextLimitedNumeric_init {}; # don't load it again 4sub _contextLimitedNumeric_init {}; # don't load it again
5 5
6=head3 Context("LimitedNumeric") 6=head3 Context("LimitedNumeric")
7 7
8########################################################## 8 ##########################################################
9# 9 #
10# Implements a context in which numbers can be entered, 10 # Implements a context in which numbers can be entered,
11# but no operations are permitted between them. 11 # but no operations are permitted between them.
12# 12 #
13# There are two versions: one for lists of numbers 13 # There are two versions: one for lists of numbers
14# and one for a single number. Select them using 14 # and one for a single number. Select them using
15# one of the following commands: 15 # one of the following commands:
16# 16 #
17# Context("LimitedNumeric-list"); 17 # Context("LimitedNumeric-list");
18# Context("LimiteNumeric"); 18 # Context("LimiteNumeric");
19# 19 #
20 20
21=cut 21=cut
22 22
23package LimitedNumeric::UOP::minus; 23package LimitedNumeric::UOP::minus;
24our @ISA = qw(Parser::UOP::minus); 24our @ISA = qw(Parser::UOP::minus);
45$context{'LimitedNumeric-List'} = $context{LimitedNumeric}->copy; 45$context{'LimitedNumeric-List'} = $context{LimitedNumeric}->copy;
46 46
47$context{LimitedNumeric}->operators->undefine(','); 47$context{LimitedNumeric}->operators->undefine(',');
48 48
49Context("LimitedNumeric"); 49Context("LimitedNumeric");
50
511;

Legend:
Removed from v.5372  
changed lines
  Added in v.5373

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9