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
|
package Entity;
#/*--
#
# Entity::require (filename)
#
# Loads a file into the current namespace.
# This will load relative to the directory the current <app> was loaded from.
#
# Note that you should NOT use the perl require() function, as it will only
# load a file once.. even if it is needed in multiple namespaces.
# This will break Entity applications when they try to load the perl file
# for the second time.
#
# filename: The name of the pl file to load.
#*/
sub require
{
my ($file) = @_;
my $obj;
my $ret;
my $filename;
$obj = ENode::new ('ENode', "object");
if ($file =~ /^\//) {
$filename = $file;
} else {
my $parent_file = $obj->attrib ("__filename");
$parent_file =~ s/(.*)\/.*/$1/;
$filename = "$parent_file/$file";
}
my $ret = open (REQUIREFILE, $filename);
if (!$ret) {
print ("Error opening '$filename' for evaluation\n");
return (0);
}
#print ("PERL: loading $filename\n");
my @code = <REQUIREFILE>;
my $namespace = $obj->attrib ("__perl-namespace");
#print ("Loading into $namespace\n");
eval ("package $namespace; @code");
print $@;
close (REQUIREFILE);
return (1);
}
# Rest is in perl-embed.c
1;
|
