- Update to 4.0.

- Trim old-style header.
- Add LICENSE.
- Use shebangfix.
- Replace pathname lookups in the scripts with fixed pathnames.

1 files changed, 41 insertions, 0 deletions

diff --git a/cad/gdt/files/patch-Examples-scalegds b/cad/gdt/files/patch-Examples-scalegds
new file mode 100644
index 000000000000..5a4b679acea7
--- /dev/null
+++ b/cad/gdt/files/patch-Examples-scalegds
@@ -0,0 +1,41 @@
+--- Examples/scalegds.orig	2013-05-30 10:59:09.000000000 +0900
++++ Examples/scalegds	2013-05-30 10:58:01.000000000 +0900
+@@ -72,18 +72,14 @@
+ 
+ my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
+ $mon++; $year += 1900;
+-# help find gds2gdt
+-my $uname_s = `/bin/uname -s`; # OS name
+-chomp $uname_s;
+-$ENV{'PATH'} = "/bin:/usr/bin:/user/ic/gnu/$uname_s/bin:".$ENV{'PATH'};
+ 
+-my $gds2gdt = which("gds2gdt");
++my $gds2gdt = '%%PREFIX%%/bin/gds2gdt';
+ unless ($gds2gdt)
+ {
+     die $REVERSE_RED.ERROR."$COLOR_RESET unable to find gds2gdt in \$PATH";
+ }
+ 
+-my $gdt2gds = which("gdt2gds");
++my $gdt2gds = '%%PREFIX%%/bin/gdt2gds';
+ unless ($gdt2gds)
+ {
+     die $REVERSE_RED.ERROR."$COLOR_RESET unable to find gdt2gds in \$PATH";
+@@ -135,7 +131,7 @@
+ 
+ if ($inputFile =~ m/\.(gz|Z)$/)
+ {
+-    my $zcat = which("zcat");
++    my $zcat = '/usr/bin/zcat';
+     unless ($zcat)
+     {
+         die $REVERSE_RED.ERROR."$COLOR_RESET unable to find zcat in \$PATH";
+@@ -145,7 +141,7 @@
+ }
+ elsif ($inputFile =~ m/\.bz2$/)
+ {
+-    my $bzcat = which("bzcat");
++    my $bzcat = '/usr/bin/bzcat';
+     unless ($bzcat)
+     {
+         die $REVERSE_RED.ERROR."$COLOR_RESET unable to find bzcat in \$PATH";