Skip to content
Browse files

- bin/stattree and bin/refs-autogen:

  - Added support for discover of user/system/ui tags
- README: added make target examples
- TODO: added item
  • Loading branch information...
1 parent f2106e4 commit 09c6b9a2296d81410f98e4a2002b859066d606ed @docelic docelic committed Aug 6, 2004
Showing with 33 additions and 9 deletions.
  1. +10 −2 README
  2. +4 −0 TODO
  3. +4 −2 bin/refs-autogen
  4. +15 −5 bin/stattree
View
12 README
@@ -18,7 +18,14 @@ targets would include:
make guides
make refs
+
+ make OUTPUT/iccattut.html
+ make OUTPUT/iccattut
+ make OUTPUT/iccattut.man
+
make OUTPUT/xmldocs.css
+ make tmp/refs-autogen
+ make tmp/olinkdbs
PREREQUISITES
@@ -33,14 +40,15 @@ must be available:
- xsltproc
- xmlto
- exuberant-ctags
+ - passivetex (for FO output - ps, pdf, ...)
FINAL OUTPUT
During the invocation of 'make', few files will be created:
- tmp/*.db - OLink DB files generated from source .xml files
- (currently disabled), and other temporary files.
+ tmp/*.db - OLink DB files generated from source .xml files,
+ and other temporary files.
cache/<ver>/* - Various Interchange source tree statistics, available
over a filesystem interface. (For XInclusion in .xml
View
4 TODO
@@ -8,6 +8,10 @@ DOCUMENTATION SYSTEM:
ask for clarification. (this could be done with either pure IC (forum?), or
XML forms capability)..
- filenames in Source contexts should also be clickable
+- in html, make source contexts "rollable" by either using some css
+ properties or javascript. this is not really needed when you only have
+ say, 15 lines of context, but it'll come great when you have a copy
+ of a 300-lines usertag.
Long-term:
- Support using refs/<filename> with all the documentation for a symbol
View
6 bin/refs-autogen
@@ -43,6 +43,9 @@ unless ( GetOptions (
my %longname = (
globvar => "Global Variable",
pragma => "Pragma",
+ usertag => "User tag",
+ uitag => "UI tag",
+ systemtag => "System tag",
);
# General description of symbol types
@@ -138,8 +141,7 @@ while ( $path = shift @paths) {
for my $ctx ( @$ar ) {
my ($fi, $ln, $ctxmeta, $ctxdata) = @$ctx;
my @ctxsize = split /\s/, $ctxmeta;
- # Support incompatible bin/stattree change
- # XXX Remove once we autogenerate all with new bin/stattree
+ # Support item types with only context info in this field
my $ctxsize = scalar @ctxsize == 2 ? $ctxsize[1] : $ctxsize[0];
my $loc = "$fi:$ln";
for my $arr ( @{ $covered{$key}{$fi} } ) {
View
20 bin/stattree
@@ -197,8 +197,7 @@ sub wanted {
if ( !$hash{version} or "$hash{version}" eq "$2" ) {
$hash{version} = $2
}
- # break; # We *could* stop processing here,
- # but we won't.
+ last;
}
}
# ICVERSION must be known here, or someone's playing, or
@@ -267,22 +266,33 @@ sub wanted {
######################################################
# See if it's a beginning of a subroutine name, and remember the
# name/linenum.
- if ( $line =~ /^\s*sub\s+(\w+)\s*\{\s*$/ ) {
+ if ( $line =~ m#^\s*sub\s+(\w+)\s*\{\s*$# ) {
$hash{total}{perl_functions}++;
@gfunc = ( $1, $lnum );
}
-
+
} else {
warn "IMPOSSIBLE\n";
}
- }
# TODO:
# - parse contents, identify blocks and add to appropriate
# counters.
# - code with inline comments or html with tags count as "gray area"
# (adds 1 to both)
+ ##########################################################
+ # Found a tag
+ } elsif ( $fsubtype =~ /^(user|ui|system)tag$/ ) {
+ #$hash{total}{$fsubtype . "s"}++;
+ $file =~ m#(\w+?)\.(core)?tag$# or
+ warn "I know $file is a tag but regex doesn't match it\n";
+ my $tagname = $1;
+ @{ $hash{symbols}{$fsubtype}{$1} } = ();
+ # Not this, context info will be provided in html files
+ #[ "$i{ver}/$file", scalar @file, "1:" . scalar @file, [ @file ] ];
+ last;
+ }
}
}

0 comments on commit 09c6b9a

Please sign in to comment.
Something went wrong with that request. Please try again.