ant/bin/antenv.cmd

74689cbcc0cebbd857a50b155293b82d7403df78al_xipe/*
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe   Licensed to the Apache Software Foundation (ASF) under one or more
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe   contributor license agreements.  See the NOTICE file distributed with
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe   this work for additional information regarding copyright ownership.
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe   The ASF licenses this file to You under the Apache License, Version 2.0
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe   (the "License"); you may not use this file except in compliance with
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe   the License.  You may obtain a copy of the License at
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe       http://www.apache.org/licenses/LICENSE-2.0
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe   Unless required by applicable law or agreed to in writing, software
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe   distributed under the License is distributed on an "AS IS" BASIS,
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe   See the License for the specific language governing permissions and
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe   limitations under the License.
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe*/
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe'@echo off'
74689cbcc0cebbd857a50b155293b82d7403df78al_xipecall RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
74689cbcc0cebbd857a50b155293b82d7403df78al_xipecall SysLoadFuncs
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe/* Prepare the parameters for later use */
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeparse arg argv
74689cbcc0cebbd857a50b155293b82d7403df78al_xipemode = ''
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeargs = ''
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeopts = ''
74689cbcc0cebbd857a50b155293b82d7403df78al_xipecp = ''
74689cbcc0cebbd857a50b155293b82d7403df78al_xipelcp = ''
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe
74689cbcc0cebbd857a50b155293b82d7403df78al_xipedo i = 1 to words(argv)
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe  param = word(argv, i)
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe  select
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe    when param='-lcp' then mode = 'l'
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe    when param='-cp' | param='-classpath' then mode = 'c'
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe    when abbrev('-opts', param, 4) then mode = 'o'
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe    when abbrev('-args', param, 4) then mode = 'a'
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe  otherwise
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe    select
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe      when mode = 'a' then args = space(args param, 1)
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe      when mode = 'c' then cp = space(cp param, 1)
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe      when mode = 'l' then lcp = space(lcp param, 1)
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe      when mode = 'o' then opts = space(opts param, 1)
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe    otherwise
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe      say 'Option' param 'ignored'
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe    end
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe  end
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeend
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeenv="OS2ENVIRONMENT"
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeantconf = _getenv_('antconf' 'antconf.cmd')
74689cbcc0cebbd857a50b155293b82d7403df78al_xiperunrc = _getenv_('runrc')
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeinterpret 'call "' || runrc || '"' '"' || antconf || '"' 'ETC'
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeANT_HOME = value('ANT_HOME',,env)
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeJAVA_HOME = value('JAVA_HOME',,env)
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeclasspath = value('CLASSPATH',,env)
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeclasses = stream(JAVA_HOME || "\lib\classes.zip", "C", "QUERY EXISTS")
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeif classes \= '' then classpath = prepend(classpath classes)
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeclasses = stream(JAVA_HOME || "\lib\tools.jar", "C", "QUERY EXISTS")
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeif classes \= '' then classpath = prepend(classpath classes)
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeclasspath = prepend(classpath ANT_HOME || '\lib\ant-launcher.jar')
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe'SET CLASSPATH=' || classpath
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe/* Setting classpathes, options and arguments */
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeenvset = _getenv_('envset')
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeif cp\=''   then interpret 'call "' || envset || '"' '"; CLASSPATH"' '"' || cp || '"'
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeif lcp\=''  then interpret 'call "' || envset || '"' '"; LOCALCLASSPATH"' '"' || lcp || '"'
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeif opts\='' then interpret 'call "' || envset || '"' '"-D ANT_OPTS"' '"' || opts || '"'
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeif args\='' then interpret 'call "' || envset || '"' '"ANT_ARGS"' '"' || args || '"'
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeexit 0
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeaddpath: procedure
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeparse arg path elem
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeif elem = '' then do
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe  if path\='' & right(path, 1)\=';' then path = path || ';'
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe  return path
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeend
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeif substr(path, length(path)) = ';' then glue = ''
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeelse glue = ';'
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeif pos(translate(elem), translate(path)) = 0 then path = path || glue || elem || ';'
74689cbcc0cebbd857a50b155293b82d7403df78al_xipereturn path
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeprepend: procedure
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeparse arg path elem
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeif elem = '' then do
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe  if path\='' & right(path, 1)\=';' then path = path || ';'
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe  return path
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeend
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeif pos(translate(elem), translate(path)) = 0 then path = elem || ';' || path
74689cbcc0cebbd857a50b155293b82d7403df78al_xipereturn path
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe
74689cbcc0cebbd857a50b155293b82d7403df78al_xipe_getenv_: procedure expose env
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeparse arg envar default
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeif default = '' then default = envar
74689cbcc0cebbd857a50b155293b82d7403df78al_xipevar = value(translate(envar),,env)
74689cbcc0cebbd857a50b155293b82d7403df78al_xipeif var = '' then var = default
74689cbcc0cebbd857a50b155293b82d7403df78al_xipereturn var