#!/usr/bin/perl -w use strict; use File::Spec; load_global_templates(); (my $volume, my $directories, my $file) = File::Spec->splitpath($ARGV[0]); if ($directories eq '') { $directories = '.'; } opendir (DIR, File::Spec->catpath($volume, $directories, '')); my @files = grep(/^$file.*\.in\.html$/,readdir(DIR)); closedir (DIR); foreach $file (@files) { $file =~ m/^(.*tracematch\$(\d)+)\.in\.html$/; my $choppedFile = $1; my $tmNum = $2; $main::tmPfgHTML = $main::tmPfgHTML_master; $main::tmPfgHTML =~ s /<>/$choppedFile/; $main::tmPfgHTML =~ s /<>/$tmNum/; processTracematch($choppedFile); } exit; sub processTracematch { my ($name) = @_; my $escapedName = $name; $escapedName =~ s /\$/\\\$/g; my $cl = join " ", ('/usr/bin/dot', "$escapedName.dot", '-Tcmapx', '-o', "$escapedName.in.cmap", '-Tpng', '-o', "$escapedName.png"); `$cl`; # substitute href="#foo" with class="supernote-click-foo" href="#foo" in the cmap. --> open (IN, "$name.in.cmap") || die; my @cmap = (); while ($_ = ) { if (/map id="(\w+)" name="(\w+)"/) { my $h = "$1-<<\$1>>"; s /map id="(\w+)" name="(\w+)"/map id="$h" name="$h"/; } if (/href="#(\w+)"/) { my $h = camelCase($1); s /href=\"#\w+\"/class=\"supernote<<\$1>>-click-$h\" href=\"#$h-<<\$1>>\"/; } push (@cmap, $_); } close (INC); # remaining steps: # read in the in.html file and put the failure groups into an array open (IN, "$name.in.html"); my @failureGroups = (); my $line = ""; my @currentFailureGroup = (); while ($line = ) { if ($line =~ m /name='([\w\d_-]+)'/) { my $n = $1; my $nn = camelCase($n); $line =~ s /$n/$nn/; } if ($line =~ m /
Potential point of failure (\d+)!) { my $groupNum = $1; my $tmPfgCopy = $main::tmPfgHTML; $tmPfgCopy =~ s /<>/$groupNum/g; push (@failureGroups, (@currentFailureGroup, $tmPfgCopy)); @currentFailureGroup = (merge_cmap($groupNum, @cmap)); } } push (@failureGroups, @currentFailureGroup); close (IN); # Merge template (tm-template) and add one copy of the cmap per template, as defined by the .in.html file. open (OUT, ">$name.html"); my $tmHTML = $main::tmTemplateHTML_master; $tmHTML =~ s /<<\$name>>/$name/mg; $tmHTML =~ s /<<\$MAPS>>/@failureGroups/mg; print OUT $tmHTML; close (OUT); } sub merge_cmap { my ($groupNum, @cmap) = @_; my @rv = (); for (@cmap) { s/<<\$1>>/$groupNum/g; push (@rv, $_); } return @rv; } # lifted from W3C code (ical2rdf.pl) sub camelCase{ my($n, $initialCap) = @_; my(@words) = split(/_/, $n); if($initialCap){ return join('', map(ucfirst, @words)); }else{ return $words[0] . join('', map(ucfirst, @words[1..$#words])); } } sub load_global_templates { $main::tmPfgHTML_master = '

tracematch_<<m>>-<<n>>

'; $main::tmTemplateHTML_master = < Potential Points of Failure for <<\$name>> <<\$MAPS>>

SuperNote thanks to TwinHelix Designs.

EOS }