Revision 3019,
1002 bytes
checked in by amuller, 14 years ago
(diff) |
Ticket #1135 - Corrigindo CSS e adicionando filemanager
|
Rev | Line | |
---|
[3019] | 1 | #!/usr/bin/perl |
---|
| 2 | # |
---|
| 3 | # Copyright (c) 2000 by Sergey Babkin |
---|
| 4 | # (see COPYRIGHT for full copyright notice) |
---|
| 5 | # |
---|
| 6 | # script to calculate the total number of stems used by the |
---|
| 7 | # glyphs in case if stems are always pushed to the stack and |
---|
| 8 | # never popped (as X11 does) |
---|
| 9 | |
---|
| 10 | $insubrs = 0; |
---|
| 11 | $inchars = 0; |
---|
| 12 | |
---|
| 13 | while(<>) |
---|
| 14 | { |
---|
| 15 | if(/\/Subrs/) { |
---|
| 16 | $insubrs = 1; |
---|
| 17 | } elsif(/\/CharStrings/) { |
---|
| 18 | $insubrs = 0; |
---|
| 19 | $inchars = 1; |
---|
| 20 | } |
---|
| 21 | if($insubrs && /^dup (\d+)/) { |
---|
| 22 | $cursubr = $1; |
---|
| 23 | $substems[$cursubr] = 0; |
---|
| 24 | } elsif (/^dup (\d+) \/(\S+) put/) { |
---|
| 25 | $codeof{$2} = $1; |
---|
| 26 | } |
---|
| 27 | if($inchars) { |
---|
| 28 | if(/^\/(\S+)\s+\{/) { |
---|
| 29 | $curchar = $1; |
---|
| 30 | $charstems = 0; |
---|
| 31 | } elsif( /endchar/ ) { |
---|
| 32 | printf("%d:%s\t%d\n", $codeof{$curchar}, $curchar, $charstems); |
---|
| 33 | } elsif( /(\d+)\s+4\s+callsubr/) { |
---|
| 34 | $charstems += $substems[$1+0]; |
---|
| 35 | } |
---|
| 36 | } |
---|
| 37 | if(/[hv]stem3/) { |
---|
| 38 | if($insubrs) { |
---|
| 39 | $substems[$cursubr] += 3; |
---|
| 40 | } elsif($inchars) { |
---|
| 41 | $charstems += 3; |
---|
| 42 | } |
---|
| 43 | } elsif( /[hv]stem/ ) { |
---|
| 44 | if($insubrs) { |
---|
| 45 | $substems[$cursubr]++; |
---|
| 46 | } elsif($inchars) { |
---|
| 47 | $charstems++; |
---|
| 48 | } |
---|
| 49 | } |
---|
| 50 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.