Bommels05/Mozilla
Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

If a file is less than 1k, print its size in bytes.

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@3829 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
jwz 1998-06-15 22:18:06 +00:00
parent 1501fd1cc3
commit cb985ad9da
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
mozilla/webtools/lxr/source
View File

@ -1,5 +1,5 @@
#!/usr/bonsaitools/bin/perl
# $Id: source,v 1.2 1998-06-15 21:51:41 jwz Exp $
# $Id: source,v 1.3 1998-06-15 22:18:06 jwz Exp $
# source -- Present sourcecode as html, complete with references
#
@ -118,12 +118,20 @@ sub filename {
sub filesize {
my $templ = shift;
my $s = (-s $Path->{'real'}.$filename);
my $str;
if ($s < 1<<10) {
$str = "$s";
} else {
# if ($s < 1<<20) {
$str = ($s>>10) . "k";
# } else {
# $str = ($s>>20) . "M";
# }
}
return(&expandtemplate($templ,
('bytes', sub {return($s)}),
('kbytes', sub {return(($s>>10)."k")}),
# ('kbytes', sub {return($s/1024)}),
('mbytes', sub {return($s/1048576)})
('bytes', sub {return($str)}),
('kbytes', sub {return($str)}),
('mbytes', sub {return($str)})
));
}