summaryrefslogtreecommitdiff
path: root/cad/gdt/files/patch-Examples-scalegds
blob: 5a4b679acea71358316f40025fd4f5cc881317b8 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
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";