# HG changeset patch # User andy simpson # Date 1276850953 -3600 # Node ID e9d0240c3e6669232e18c69f9d6328ed373a5eaa # Parent 35553ee25464ac259b758648c037708f7d5cf7a1 Add script and xml used to generate brag svg from the platform build results diff -r 35553ee25464 -r e9d0240c3e66 sysmodelgen/extra/dictionary.xml --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/sysmodelgen/extra/dictionary.xml Fri Jun 18 09:49:13 2010 +0100 @@ -0,0 +1,153 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff -r 35553ee25464 -r e9d0240c3e66 sysmodelgen/extra/stshapes.xml --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/sysmodelgen/extra/stshapes.xml Fri Jun 18 09:49:13 2010 +0100 @@ -0,0 +1,144 @@ + + + + + text.layer { + font-size: 10px; + } + svg.package text.package, svg.package-fixed text.package { + font-size: 17.00px; + font-weight: normal + } + + svg.collection-fixed text.layer, svg.collection text.layer { + font-size: 12px; + font-weight: normal + } + svg.collection-fixed text.package { + font-size: 6px; + font-weight: normal; + } + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff -r 35553ee25464 -r e9d0240c3e66 sysmodelgen/getsferrors.pl --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/sysmodelgen/getsferrors.pl Fri Jun 18 09:49:13 2010 +0100 @@ -0,0 +1,94 @@ +#!/usr/bin/perl +$bld = shift || "symbian3_FCL.single.316"; +$ver = $bld; $ver =~s/_.*// ; +$url = "http://cdn.symbian.org/SF_builds/$ver/builds/FCL/$bld/html/index.html"; +$data = `wget -O - -nv -q $url`; + +#open F,shift; +#$data = join('',); +#close F; + + +$state = 'start'; +foreach (split(/\n/,$data)) { + s,[\r\n],,g; + if($state eq 'start' && /,$1,) { + my @err = ($2,$3,$4,$5,$6); + s,^.*>(.*?)<.*$,$1,; + s,^.*/,,; + $critical{$_}=$err[0]; + $major{$_}=$err[1]; + $minor{$_}=$err[2]; + $unknown{$_}=$err[3]; + $missing{$_}=$err[4]; + } + } +} + +$url=~s,[^/]+$,raptor_unreciped.html,; +$data = `wget -O - -nv -q $url`; + +#open F,shift; +#$data = join('',); +#close F; + + + +$state = 'start'; +foreach (split(/\n/,$data)) { + s,[\r\n],,g; + if(m,^
([A-Z]+)
$,) { + $state = $1 + } + if(m,
(.*?)(.*?)(.*?)(.*?)(.*?)(.*?)
[^<]+[^<]+); +#close F; + + +$state = 'start'; +$cur; +foreach (split(/\n/,$data)) { + if(m,,) {$cur = $1} + elsif(/\S/) { + m,([E-Z]:/| at )sf/[a-z]+/([^/]+), || print STDERR "$_\n"; + my $pkg = $2; + if($Type{$cur} eq 'UNKNOWN') { + $unknown{$pkg}++; + } + elsif($Type{$cur} eq 'MAJOR') { + $major{$pkg}++; + } + elsif($Type{$cur} eq 'MINOR') { + $minor{$pkg}++; + } + elsif($Type{$cur} eq 'CRITICAL') { + $critical{$pkg}++; + } + } +} + + +print "\n"; +foreach (keys(%critical)) { + print " \n"; +} +print "\n"; + +