die "undefined environment '$env'\n" if !defined($environments->{$env});
+ # FIXME: this seems wrong (nested env?)?
return if !$environments->{$env}; # do not track
-
+
if ($not) {
my $new_env = [];
foreach my $e (@{$env_stack->[-1]}) {
} else {
push @$env_stack, [$env];
}
-
+
push @$env_name_stack, $env;
}
my ($env) = @_;
die "undefined environment '$env'\n" if !defined($environments->{$env});
-
+
return if !$environments->{$env}; # do not track
pop @$env_stack;
my $res = pop @$env_name_stack;
-
+
die "environment missmatch ($res != $env)\n" if $res ne $env;
}
}
sub register_blockid {
- my ($filename, $blockid, $env_list) = @_;
+ my ($filename, $blockid, $reftext, $env_list) = @_;
foreach my $e (@$env_list) {
my $fn = $fileinfo->{blockid}->{$e}->{$blockid};
- die "blockid '$blockid' already defined in $fn"
+ die "blockid '$blockid' already defined in $fn"
if defined($fn);
$fileinfo->{blockid}->{$e}->{$blockid} = $filename;
+ $fileinfo->{reftext}->{$e}->{$blockid} = $reftext
+ if defined($reftext);
}
}
my ($filename) = @_;
reset_environment_stack();
-
+
# print "SCAN $filename\n";
my $fh = IO::File->new("$filename", "r") or
die "unable to open file '$filename' - $!\n";
my $env_last_line = {};
-
+
while (defined (my $line = <$fh>)) {
if ($line =~ m/^if(n?)def::(\S+)\[(.*)\]\s*$/) {
- my ($not, $env, $text) = ($1, $2);
+ my ($not, $env, $text) = ($1, $2, $3);
die "unsuported ifdef usage - implement me" if $text;
push_environment($env, $not);
next;
$env_last_line->{$e} = $line;
chomp $env_last_line->{$e};
}
-
+
# fixme: also scan <<>>
-
+
while ($line =~ m/xref:([^\s\[\]]+)\[([^\]]*)\]/g) {
# print "$filename xref:$1 [$2]\n";
}
if ($line =~ m/^\[\[(.*)\]\]\s*$/) {
my $blockid = $1;
die "implement me" if $blockid =~m/,/;
- register_blockid($filename, $blockid, $env_stack->[-1]);
+ my $reftext = '';
+ register_blockid($filename, $blockid, $reftext, $env_stack->[-1]);
}
- }
+ # fixme: "anchor:"
+ # bibliography anchors
+ if ($line =~ m/\[\[\[([^\]]*)\]\]\]/) {
+ my $blockid = $1;
+ die "implement me" if $blockid =~m/,/;
+ register_blockid($filename, $blockid, "[$blockid]", $env_stack->[-1]);
+ }
+ }
}
my $scanned_files = {};
}
}
}
-
+
return $filename;
}
my $fn = resolve_link_target($e, $blockid_hash->{$blockid});
if ($e eq 'wiki') {
my $title = $fileinfo->{titles}->{$e}->{$fn};
- $title =~ s/\s/_/g;
$title =~ s/\{pve\}/Proxmox VE/g;
+ $title =~ s/\s/_/g;
die "found not title for '$fn' in env '$e'" if !$title;
$fileinfo->{blockid_target}->{$e}->{$blockid} = "link:/wiki/$title#$blockid";
} else {
print to_json($fileinfo, { pretty => 1 } );
-