49 lines
995 B
Perl
49 lines
995 B
Perl
|
#!/usr/bin/perl -w
|
||
|
|
use strict;
|
||
|
|
use Stasis;
|
||
|
|
|
||
|
|
Stasis::Tinit();
|
||
|
|
|
||
|
|
my $xid = Stasis::Tbegin();
|
||
|
|
my $rid;
|
||
|
|
|
||
|
|
sub walk {
|
||
|
|
my $from = shift;
|
||
|
|
my $level = shift || 0;
|
||
|
|
my $to = Stasis::ThashLookup($xid, $rid, $from);
|
||
|
|
print $from;
|
||
|
|
$level += (length($from) + 4);
|
||
|
|
|
||
|
|
if(defined $to) {
|
||
|
|
my @tok = split ',', $to;
|
||
|
|
my $first = 1;
|
||
|
|
foreach my $f (@tok) {
|
||
|
|
if($first) { print " => "; } else { my $n = $level; while($n--) {print " ";} }
|
||
|
|
$first = 0;
|
||
|
|
walk($f,$level);
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
print "\n";
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if(Stasis::TrecordType($xid, Stasis::ROOT_RID()) == Stasis::INVALID_SLOT()) {
|
||
|
|
$rid = Stasis::ThashCreate($xid);
|
||
|
|
} else {
|
||
|
|
$rid = Stasis::ROOT_RID();
|
||
|
|
}
|
||
|
|
|
||
|
|
while(my $line = <>) {
|
||
|
|
chomp $line;
|
||
|
|
my @tok = split '\s+', $line;
|
||
|
|
if($tok[0] eq "c") {
|
||
|
|
Stasis::ThashInsert($xid, $rid, $tok[1], $tok[2]);
|
||
|
|
} elsif($tok[0] eq "q") {
|
||
|
|
walk $tok[1];
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
Stasis::Tcommit($xid);
|
||
|
|
Stasis::Tdeinit();
|