diff options
| author | gregor <gregor@d688527b-c9ab-4aba-bd8d-4036d912da1d> | 2005-06-24 11:00:16 +0000 |
|---|---|---|
| committer | gregor <gregor@d688527b-c9ab-4aba-bd8d-4036d912da1d> | 2005-06-24 11:00:16 +0000 |
| commit | 4914ffa0d889ed525229c0715686b26e30cc1343 (patch) | |
| tree | 7bbd3fb0eef46a069a069b813fbce621297372e6 /spss.iaiklibsupdate/ant.1-6-5/bin/runrc.cmd | |
| parent | fdff99d5c5dba5da2db45f79b120ab5381d36b76 (diff) | |
| download | moa-id-spss-4914ffa0d889ed525229c0715686b26e30cc1343.tar.gz moa-id-spss-4914ffa0d889ed525229c0715686b26e30cc1343.tar.bz2 moa-id-spss-4914ffa0d889ed525229c0715686b26e30cc1343.zip | |
Erstellt.tags/Build-SPSS-1.2.1
git-svn-id: https://joinup.ec.europa.eu/svn/moa-idspss/trunk@370 d688527b-c9ab-4aba-bd8d-4036d912da1d
Diffstat (limited to 'spss.iaiklibsupdate/ant.1-6-5/bin/runrc.cmd')
| -rw-r--r-- | spss.iaiklibsupdate/ant.1-6-5/bin/runrc.cmd | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/spss.iaiklibsupdate/ant.1-6-5/bin/runrc.cmd b/spss.iaiklibsupdate/ant.1-6-5/bin/runrc.cmd new file mode 100644 index 000000000..acdf724a3 --- /dev/null +++ b/spss.iaiklibsupdate/ant.1-6-5/bin/runrc.cmd @@ -0,0 +1,59 @@ +/*
+ Copyright 2003-2004 The Apache Software Foundation
+
+ Licensed under the Apache License, Version 2.0 (the "License");
+ you may not use this file except in compliance with the License.
+ You may obtain a copy of the License at
+
+ http://www.apache.org/licenses/LICENSE-2.0
+
+ Unless required by applicable law or agreed to in writing, software
+ distributed under the License is distributed on an "AS IS" BASIS,
+ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ See the License for the specific language governing permissions and
+ limitations under the License.
+
+ Run RC file, name is in the first arg, second arg is either PATH
+ ENV or -r or nothing
+*/
+
+parse arg name path rest
+
+if name = '' then do
+ say 'RC file name is missing'
+ exit 1
+end
+
+if rest \= '' then do
+ say 'Too many parameters'
+ exit 1
+end
+
+call runit name path
+exit 0
+
+runit: procedure
+parse arg name path dir
+
+if path \= '' & path \= '-r' then do
+ dir = value(translate(path),,'OS2ENVIRONMENT')
+ if dir = '' then return
+ dir = translate(dir, '\', '/') /* change UNIX-like path to OS/2 */
+end
+
+if dir = '' then dir = directory()
+
+if path = '-r' then do /* recursive call */
+ subdir = filespec('path', dir)
+ if subdir \= '\' then do
+ subdir = left(subdir, length(subdir)-1)
+ call runit name path filespec('drive', dir) || subdir
+ end
+end
+
+/* Look for the file and run it */
+if right(dir, 1) \= '\' then dir = dir || '\'
+rcfile = stream(dir || name, 'c', 'query exists')
+if rcfile \= '' then interpret 'call "' || rcfile || '"'
+
+return
|