GitHub-Mirror/NeoStats
Archived
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

lists are now treated like hashs in the perl namedvar API

Browse source
This commit is contained in:
Fish 2007-07-12 07:31:04 +00:00
parent d0bb0c092c
commit 6b614e3b7b
2 changed files with 29 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
include/namedvars.h
View file

@ -76,6 +76,10 @@ typedef struct nv_list {
Module *mod;
/* ptr to the list */
void *data;
union {
struct hscan_t hscan;
struct lnode_t *node;
} iter;
} nv_list;

43
modules/perltest/test.pl
View file

@ -102,28 +102,35 @@ sub event_ping {
sub event_pong {
my ($source) = @_;
NeoStats::ChanAlert($bot, "Pong $source");
my $testvar = new NeoStats::NV("users");
Dump($testvar->{fish});
NeoStats::debug($testvar->{fish}->{nick});
while ( my ($key, $value) = each(%$testvar)) {
NeoStats::debug("User Key => $value");
# my $testvar = new NeoStats::NV("users");
# Dump($testvar->{fish});
# NeoStats::debug($testvar->{fish}->{nick});
# while ( my ($key, $value) = each(%$testvar)) {
# NeoStats::debug("User Key => $value");
# while ( my ($key1, $value1) = each(%$key)) {
# NeoStats::debug("$key: $key1 => $value1");
# }
# }
# NeoStats::debug "Found Fish" if exists $testvar->{fish};
# my $hashtest = $testvar->{fish};
# while ( my ($key, $value) = each(%$hashtest)) {
# NeoStats::debug("$key => $value");
# }
#
my $hostserv = new NeoStats::NV("HostServ");
my $hashtest = $hostserv->{0};
Dump($hostserv);
while ( my ($key, $value) = each(%$hostserv)) {
NeoStats::debug("Hostserv Key => $value");
while ( my ($key1, $value1) = each(%$key)) {
NeoStats::debug("$key: $key1 => $value1");
NeoStats::debug("HS: $key: $key1 => $value1");
}
}
NeoStats::debug "Found Fish" if exists $testvar->{fish};
my $hashtest = $testvar->{fish};
while ( my ($key, $value) = each(%$hashtest)) {
NeoStats::debug("$key => $value");
}
my @hostserv = new NeoStats::NV("HostServ");
NeoStats::debug("Debug:".@hostserv."Ok");
# Dump(@hostserv);
NeoStats::debug("HS Nick: ".$hashtest->{nick});
# NeoStats::debug("Debug HostServ: ".$hostserv." Ok");
# Dump($hostserv);
# NeoStats::debug("Var: HostServ".$hostserv->{0}."Fin");
@hostserv[1] = "100asdf";
NeoStats::debug("Var:".$hostserv[0]."Fin");
NeoStats::debug(@hostserv);
Dump(@hostserv);
}
sub event_signon {