Mercurial > hg > xemacs-beta
annotate nt/make-build-dir @ 5850:10dd81a27d91
Fix note in README about which repo to push to.
| author | Mike Kupfer <mike.kupfer@xemacs.org> |
|---|---|
| date | Sat, 28 Feb 2015 17:02:28 -0800 |
| parents | 308d34e9f07d |
| children |
| rev | line source |
|---|---|
| 1330 | 1 : #-*- Perl -*- |
| 2 | |
| 3 # Create skeleton build tree | |
| 4 # | |
| 5 # Copyright (C) 2003 Ben Wing. | |
| 6 # | |
| 7 # This file is part of XEmacs. | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
8 # |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
9 # XEmacs is free software: you can redistribute it and/or modify it |
| 1330 | 10 # under the terms of the GNU General Public License as published by the |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
11 # Free Software Foundation, either version 3 of the License, or (at your |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
12 # option) any later version. |
|
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
13 # |
| 1330 | 14 # XEmacs is distributed in the hope that it will be useful, but WITHOUT |
| 15 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 16 # FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 17 # for more details. | |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
18 # |
| 1330 | 19 # You should have received a copy of the GNU General Public License |
|
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
1330
diff
changeset
|
20 # along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
| 1330 | 21 # |
| 22 # Author: Ben Wing <ben@xemacs.org> | |
| 23 # | |
| 24 # Synched up with: Not in FSF. | |
| 25 | |
| 26 eval 'exec perl -w -S $0 ${1+"$@"}' | |
| 27 if 0; | |
| 28 | |
| 29 use File::Copy; | |
| 30 use File::Basename; | |
| 31 use Cwd; | |
| 32 | |
| 33 die "Creates a skeleton build tree for use with SOURCE_DIR in config.inc. | |
| 34 | |
| 35 Usage: $0 PATH | |
| 36 " if ($#ARGV); | |
| 37 | |
| 38 my $path = $ARGV[0]; | |
| 39 # Sometimes perl sucks, too. To get the equivalent of expand-file-name | |
| 40 # in a reliable way, you have to do really weird shit, it seems. | |
| 41 my $cwd = cwd (); | |
| 42 $0 =~ s|\\|/|g; | |
| 43 chdir (dirname ($0)); | |
| 44 my $srcroot = dirname (cwd ()); | |
| 45 | |
| 46 # Convert the path to MS Windows format if we're running Cygwin Perl. | |
| 47 chomp ($srcroot = `cygpath -w $srcroot`) if ($^O eq "cygwin"); | |
| 48 $srcroot =~ s|/|\\|g; | |
| 49 | |
| 50 chdir ($cwd); | |
| 51 | |
| 52 print "Creating skeleton build tree in $path\n"; | |
| 53 mkdir $path if ! -e $path; | |
| 54 mkdir "$path/nt" if ! -e "$path/nt"; | |
| 55 copy("$srcroot/nt/xemacs.mak", "$path/nt/xemacs.mak") if ! -e "$path/nt/xemacs.mak"; | |
| 56 | |
| 57 &HackFile ("config.inc.samp"); | |
| 58 &HackFile ("config.inc") if -e "$srcroot/nt/config.inc"; | |
| 59 | |
| 60 sub HackFile | |
| 61 { | |
| 62 my $file = $_[0]; | |
| 63 if (! -e "$path/nt/$file") | |
| 64 { | |
| 65 open IN, "<$srcroot/nt/$file"; | |
| 66 open OUT, ">$path/nt/$file"; | |
| 67 | |
| 68 while (<IN>) | |
| 69 { | |
| 70 # Must hack away CRLF junk. Perl sucks again. Wouldn't it be | |
| 71 # nice if perl handled this right?? Really can't be that hard!!! | |
| 72 s/\r\n/\n/g; | |
| 73 | |
| 74 # hack the SOURCE_DIR line to point back to the source. | |
| 75 s!^# SOURCE_DIR=.*!SOURCE_DIR=$srcroot!; | |
| 76 | |
| 77 print OUT; | |
| 78 } | |
| 79 | |
| 80 close IN; | |
| 81 close OUT; | |
| 82 } | |
| 83 } |