aboutsummaryrefslogtreecommitdiff
path: root/spss.iaiklibsupdate/ant.1-6-5/bin/runrc.cmd
diff options
context:
space:
mode:
authorpdanner <pdanner@d688527b-c9ab-4aba-bd8d-4036d912da1d>2007-09-05 10:19:19 +0000
committerpdanner <pdanner@d688527b-c9ab-4aba-bd8d-4036d912da1d>2007-09-05 10:19:19 +0000
commitef61e7c9b4591f65ebe9abf6afad51999136e41c (patch)
tree9685b0eafa4f3793f02c96c2999fa1603fbc9e85 /spss.iaiklibsupdate/ant.1-6-5/bin/runrc.cmd
parent15ff0aeee18b4f7774d65b3b6b4fdba04996efe9 (diff)
downloadmoa-id-spss-ef61e7c9b4591f65ebe9abf6afad51999136e41c.tar.gz
moa-id-spss-ef61e7c9b4591f65ebe9abf6afad51999136e41c.tar.bz2
moa-id-spss-ef61e7c9b4591f65ebe9abf6afad51999136e41c.zip
removed obsolete files
git-svn-id: https://joinup.ec.europa.eu/svn/moa-idspss/trunk@992 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.cmd59
1 files changed, 0 insertions, 59 deletions
diff --git a/spss.iaiklibsupdate/ant.1-6-5/bin/runrc.cmd b/spss.iaiklibsupdate/ant.1-6-5/bin/runrc.cmd
deleted file mode 100644
index acdf724a3..000000000
--- a/spss.iaiklibsupdate/ant.1-6-5/bin/runrc.cmd
+++ /dev/null
@@ -1,59 +0,0 @@
-/*
- 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