| 1 |
Author: sniper |
| 2 |
Date: 2005-05-11 20:58:05 +0200 (Wed, 11 May 2005) |
| 3 |
New Revision: 18 |
| 4 |
|
| 5 |
Added: |
| 6 |
code/chkebuild.pl |
| 7 |
Removed: |
| 8 |
chkebuild.pl |
| 9 |
Log: |
| 10 |
ops bad folder :) |
| 11 |
|
| 12 |
|
| 13 |
Deleted: chkebuild.pl |
| 14 |
=================================================================== |
| 15 |
--- chkebuild.pl 2005-05-11 18:56:50 UTC (rev 17) |
| 16 |
+++ chkebuild.pl 2005-05-11 18:58:05 UTC (rev 18) |
| 17 |
@@ -1,32 +0,0 @@ |
| 18 |
-#!/usr/bin/perl |
| 19 |
- |
| 20 |
-my $re_path = '(?:.+/)?'; |
| 21 |
-my $re_pkg = '[-\w+]+?'; |
| 22 |
-my $re_ver = '(?:[\d\.]+[a-z]?)?'; |
| 23 |
-my $re_suf = '(?:_(?:alpha|beta|pre|rc|p)(?:\d+)?)?'; |
| 24 |
-my $re_rev = '(?:r\d+)?'; |
| 25 |
-my $re_ext = '(?:\.(?:ebuild|tar|gz|tar.gz|zip|bz2|tgz))?'; |
| 26 |
-my $re_ebuild = qr[($re_path)($re_pkg)-?($re_ver)($re_suf)-?($re_rev)($re_ext)]; |
| 27 |
- |
| 28 |
-print "REGEXP: $re_ebuild\n\n"; |
| 29 |
- |
| 30 |
-my ($ok, $nok, $total) = (0, 0, 0); |
| 31 |
-while(<>) { |
| 32 |
- chomp; |
| 33 |
- $total++; |
| 34 |
- if(my($path, $pkg, $ver, $suf, $rev, $ext) = /^$re_ebuild$/) { |
| 35 |
- $ok++; |
| 36 |
- print "$_\tPASS path=$path pkg=$pkg ver=$ver suf=$suf rev=$rev ext=$ext\n"; |
| 37 |
- } |
| 38 |
- else { |
| 39 |
- $nok++; |
| 40 |
- print "$_\tFAILED\n"; |
| 41 |
- } |
| 42 |
-} |
| 43 |
- |
| 44 |
-print<<END; |
| 45 |
-PASS: $ok |
| 46 |
-FAILED: $nok |
| 47 |
-TOTAL: $total |
| 48 |
- |
| 49 |
-END |
| 50 |
|
| 51 |
Copied: code/chkebuild.pl (from rev 16, chkebuild.pl) |
| 52 |
|
| 53 |
|
| 54 |
-- |
| 55 |
gentoo-perl@g.o mailing list |
Archives