← Back to branch summary

~ubuntu-branches/debian/lenny/dropbear/lenny

« back to all changes in this revision

Viewing changes to libtommath/pretty.build

  • Committer: Bazaar Package Importer
  • Author(s): Gerrit Pape
  • Date: 2005-05-25 22:38:17 UTC
  • mfrom: (1.2.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20050525223817-fdl653extybmz1zb
Tags: 0.45-3
http://bugs.debian.org/309099
* debian/dropbear.init: init script prints human readable message in case
  it's disabled (closes: #309099).
* debian/dropbear.postinst: configure: restart service through init script
  instead of start.
* debian/dropbear.prerm: set -u -> set -e.

Show diffs side-by-side

added added

removed removed

Lines of Context:
libtommath/pretty.build
 
1
#!/bin/perl -w
 
2
#
 
3
# Cute little builder for perl 
 
4
# Total waste of development time...
 
5
#
 
6
# This will build all the object files and then the archive .a file
 
7
# requires GCC, GNU make and a sense of humour.
 
8
#
 
9
# Tom St Denis
 
10
use strict;
 
11
 
 
12
my $count = 0;
 
13
my $starttime = time;
 
14
my $rate  = 0;
 
15
print "Scanning for source files...\n";
 
16
foreach my $filename (glob "*.c") {
 
17
       ++$count;
 
18
}
 
19
print "Source files to build: $count\nBuilding...\n";
 
20
my $i = 0;
 
21
my $lines = 0;
 
22
my $filesbuilt = 0;
 
23
foreach my $filename (glob "*.c") {
 
24
       printf("Building %3.2f%%, ", (++$i/$count)*100.0);
 
25
       if ($i % 4 == 0) { print "/, "; }
 
26
       if ($i % 4 == 1) { print "-, "; }
 
27
       if ($i % 4 == 2) { print "\\, "; }
 
28
       if ($i % 4 == 3) { print "|, "; }
 
29
       if ($rate > 0) {
 
30
           my $tleft = ($count - $i) / $rate;
 
31
           my $tsec  = $tleft%60;
 
32
           my $tmin  = ($tleft/60)%60;
 
33
           my $thour = ($tleft/3600)%60;
 
34
           printf("%2d:%02d:%02d left, ", $thour, $tmin, $tsec);
 
35
       }
 
36
       my $cnt = ($i/$count)*30.0;
 
37
       my $x   = 0;
 
38
       print "[";
 
39
       for (; $x < $cnt; $x++) { print "#"; }
 
40
       for (; $x < 30; $x++)   { print " "; }
 
41
       print "]\r";
 
42
       my $tmp = $filename;
 
43
       $tmp =~ s/\.c/".o"/ge;
 
44
       if (open(SRC, "<$tmp")) {
 
45
          close SRC;
 
46
       } else {
 
47
          !system("make $tmp > /dev/null 2>/dev/null") or die "\nERROR: Failed to make $tmp!!!\n";
 
48
          open( SRC, "<$filename" ) or die "Couldn't open $filename for reading: $!";
 
49
          ++$lines while (<SRC>);
 
50
          close SRC or die "Error closing $filename after reading: $!";
 
51
          ++$filesbuilt;
 
52
       }      
 
53
 
 
54
       # update timer 
 
55
       if (time != $starttime) {
 
56
          my $delay = time - $starttime;
 
57
          $rate = $i/$delay;
 
58
       }
 
59
}
 
60
 
 
61
# finish building the library 
 
62
printf("\nFinished building source (%d seconds, %3.2f files per second).\n", time - $starttime, $rate);
 
63
print "Compiled approximately $filesbuilt files and $lines lines of code.\n";
 
64
print "Doing final make (building archive...)\n";
 
65
!system("make > /dev/null 2>/dev/null") or die "\nERROR: Failed to perform last make command!!!\n";
 
66
print "done.\n";
 
 
b'\\ No newline at end of file'