Mercurial > emacs
annotate nt/envadd.bat @ 70595:136d07d2859f
(readevalloop): Abort if START non-nil for non-buffer input.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 12 May 2006 02:08:16 +0000 |
parents | 067115a6e738 |
children | 3d45362f1d38 |
rev | line source |
---|---|
52423 | 1 rem Hack to change/add environment variables in the makefiles for the |
2 rem Windows platform. | |
3 rem | |
68648
067115a6e738
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64890
diff
changeset
|
4 rem Copyright (C) 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
52423 | 5 rem |
6 rem This file is part of GNU Emacs. | |
7 rem | |
8 rem GNU Emacs is free software; you can redistribute it and/or modify | |
9 rem it under the terms of the GNU General Public License as published by | |
10 rem the Free Software Foundation; either version 2, or (at your option) | |
11 rem any later version. | |
12 rem | |
13 rem GNU Emacs is distributed in the hope that it will be useful, | |
14 rem but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 rem MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 rem GNU General Public License for more details. | |
17 rem | |
18 rem You should have received a copy of the GNU General Public License | |
19 rem along with GNU Emacs; see the file COPYING. If not, write to | |
64083 | 20 rem the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
21 rem Boston, MA 02110-1301, USA. | |
52423 | 22 rem |
23 rem | |
24 rem Usage: | |
25 rem envadd "ENV1=VAL1" "ENV2=VAL2" ... /C <command line> | |
26 rem | |
27 rem The "/C" switch marks the end of environment variables, and the | |
28 rem beginning of the command line. | |
29 rem | |
30 rem By Peter 'Luna' Runestig <peter@runestig.com> 2003 | |
31 | |
32 :Loop | |
33 if .%1% == ./C goto EndLoop | |
34 rem just to avoid an endless loop: | |
35 if .%1% == . goto EndLoop | |
36 set %1 | |
37 shift | |
38 goto Loop | |
39 :EndLoop | |
40 | |
41 rem Eat the "/C" | |
42 shift | |
43 rem Now, run the command line | |
44 %1 %2 %3 %4 %5 %6 %7 %8 %9 | |
52428 | 45 |
46 goto skipArchTag | |
47 arch-tag: 148c5181-dbce-43ae-bba6-1cc6e2a9ea75 | |
48 :skipArchTag |