root/lang/perl/tiarra/trunk/run

Revision 3010, 0.7 kB (checked in by topia, 7 years ago)

lang/perl/tiarra: migrate to trunk/branches.

  • Property svn:eol-style set to LF
  • Property svn:executable set to *
  • Property svn:keywords set to Id URL Date Rev Author
Line 
1#!/bin/sh
2# $Id$
3# copyright (C) 2004 Topia <topia@clovery.jp>. all rights reserved.
4
5THISDIR="${THISDIR-$(dirname $0)}"
6[ "0${DEBUG}" -ge 1 ] && echo "${THISDIR}/run: start"
7
8# override
9WORKDIR="${WORKDIR:-${THISDIR}}"
10if [ -z "${TOPDIR}" ]; then
11  TOPDIR=.
12else
13  TOPDIR="${TOPDIR}/.."
14fi
15TOPDIR="${TOPDIR#./}"
16
17[ "0${DEBUG}" -ge 2 ] && echo "${THISDIR}/run: read tiarrarc"
18[ -f "${THISDIR}/.tiarrarc" ] && . "${THISDIR}/.tiarrarc"
19if [ -f "${THISDIR}/.tiarrarc-once" ]; then
20  . "${THISDIR}/.tiarrarc-once"
21  rm -f "${THISDIR}/.tiarrarc-once"
22fi
23
24if [ -f "${THISDIR}/run-main" ]; then
25  . "${THISDIR}/run-main"
26else
27  THISDIR="${THISDIR}/.."
28  . "${THISDIR}/run"
29fi
Note: See TracBrowser for help on using the browser.