[system] / trunk / pg / lib / Parser / Context / Variables.pm Repository:
ViewVC logotype

Diff of /trunk/pg/lib/Parser/Context/Variables.pm

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

Revision 2658 Revision 2666
6use strict; 6use strict;
7use vars qw(@ISA %type); 7use vars qw(@ISA %type);
8@ISA = qw(Value::Context::Data); 8@ISA = qw(Value::Context::Data);
9 9
10# 10#
11# The types that variables can be 11# The named types for variables
12# @@@ Should also include domain ranges for when 12# (you can use arbitary types by supplying an
13# we use these in answer checkers @@@ 13# instance of the type rather than a name)
14# 14#
15%type = ( 15%type = (
16 'Real' => $Value::Type{number}, 16 'Real' => $Value::Type{number},
17 'Complex' => $Value::Type{complex}, 17 'Complex' => $Value::Type{complex},
18 'Point2D' => Value::Type('Point',2,$Value::Type{number}),
19 'Point3D' => Value::Type('Point',3,$Value::Type{number}),
20 'Vector2D' => Value::Type('Vector',2,$Value::Type{number}),
21 'Vector3D' => Value::Type('Vector',3,$Value::Type{number}),
18); 22);
19 23
20sub init { 24sub init {
21 my $self = shift; 25 my $self = shift;
22 $self->{dataName} = 'variables'; 26 $self->{dataName} = 'variables';

Legend:
Removed from v.2658  
changed lines
  Added in v.2666

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9