summaryrefslogtreecommitdiffhomepage
path: root/libtommath/parsenames.pl
diff options
context:
space:
mode:
authorMatt Johnston <matt@ucc.asn.au>2017-06-24 22:37:14 +0800
committerMatt Johnston <matt@ucc.asn.au>2017-06-24 22:37:14 +0800
commit364fb6019c1931de3d181f21ea491ec112161577 (patch)
tree1776e0451167b1b492db0e5bd30f5d0178e54afa /libtommath/parsenames.pl
parenta79b61517bc7123250d0e2dc21dc18deccf0bb64 (diff)
Update to libtommath v1.0
Diffstat (limited to 'libtommath/parsenames.pl')
-rwxr-xr-xlibtommath/parsenames.pl25
1 files changed, 25 insertions, 0 deletions
diff --git a/libtommath/parsenames.pl b/libtommath/parsenames.pl
new file mode 100755
index 0000000..cc57673
--- /dev/null
+++ b/libtommath/parsenames.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+#
+# Splits the list of files and outputs for makefile type files
+# wrapped at 80 chars
+#
+# Tom St Denis
+@a = split(" ", $ARGV[1]);
+$b = "$ARGV[0]=";
+$len = length($b);
+print $b;
+foreach my $obj (@a) {
+ $len = $len + length($obj);
+ $obj =~ s/\*/\$/;
+ if ($len > 100) {
+ printf "\\\n";
+ $len = length($obj);
+ }
+ print "$obj ";
+}
+
+print "\n\n";
+
+# $Source$
+# $Revision$
+# $Date$