unix.ar

--3176:cgen:--
#!/bin/sh
PATHSEP=':'
DIRSEP='/'
if [ -L "$0" ] ; then
  link="$(readlink "$0")"
  case "$link" in
    [/]*) DIRNAME=$(dirname "$link") ;; # Absolute
    *) DIRNAME=$(dirname "$(dirname "$0")/$link") ;; # Relative
  esac
else
  DIRNAME=$(dirname "$0")
fi
translate_path() {
  base="$1"
  path="$2"
  case "$path" in
    ?:*) ;; # C:\xp
    \\*) ;; # \\filesrv\shares
    [/]*) ;; # /usr/local/lib
    ~*) path=$HOME$DIRSEP${path#"~"} ;; # ~/lib
    *) path=$base$DIRSEP$path ;; # lib, ../lib, ./classes
  esac
  echo $path
}
translate_paths() {
  base="$1"
  path="$2"
  translated=""
  IFS="$PATHSEP"
  for i in $path ; do
    translated="$translated$PATHSEP"$(translate_path "$base" "$i")
  done
  echo "${translated#$PATHSEP}"
}
locate() {
  path="$1"
  file="$2"
  expect=$3
  IFS="$PATHSEP"
  for i in $path ; do
    qualified="$i/$file"
    if [ -e "$qualified" ] ; then
      echo "$qualified"
      if [ $expect = 1 ] ; then return ; fi
    fi
  done
  if [ $expect = 1 ] ; then echo "*** Failed to locate $file in $path" >&2 ; fi
  echo ""
}
base="$DIRNAME" RUNNER="class" INCLUDE="." xppath="$DIRNAME" ARGS=xp.codegen.Runner IFS="|";
ifs="|"
if [ "" = "$USE_XP" ] ; then
  unset USE_XP
else
  USE_XP=$(translate_paths "." "$USE_XP")
fi
RT_ARG=""
dkeys=""
vkeys=""
for i in "." "$HOME/.xp" "$base" ; do
  if [ -e "$i/xp.ini" ] ; then
    section=default
    while read line || [ -n "$line" ] ; do
      line="${line%"${line##*[![:space:]]}"}"
      value="${line#*=}"
      if [ "" = "$value" ] ; then
        continue
      fi
      case "$section.$line" in
        default.use=*)
          USE_XP=${USE_XP-$(translate_paths "$i" "$value")}
        ;;
        default.rt=*)
          XP_RT=${XP_RT-$value}
        ;;
        *.\;*)
          ;;
        *.\[*\])
          section=${line#\[}
          section=${section%]}
        ;;
        runtime.extension=*|runtime@$XP_RT.extension=*)
          RT_ARG="$RT_ARG${ifs}-d${ifs}extension=$value"
        ;;
        runtime.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          dkeys="$dkeys${ifs}$key"
          eval "d$key"=$value
        ;;
        runtime@$XP_RT.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          vkeys="$vkeys${ifs}$key"
          eval "v$key"=$value
        ;;
      esac
    done < "$i/xp.ini"
  fi
done
for k in $vkeys ; do
  eval "d$k=\$v$k"
  dkeys="$dkeys${ifs}$k"
done
for k in $dkeys ; do
  if [ $k ] ; then
    eval "v=\$d$k"
    if [ default = $k ] ; then
      XP_EXE=${XP_EXE-$v}
    else
      RT_ARG="$RT_ARG${ifs}-d${ifs}$(echo $k | sed 's/__/./g')=\"$v\""
    fi
  fi
done
XP_EXE=${XP_EXE-php}
if [ "" = "$USE_XP" ] ; then
  echo "*** Cannot determine use_xp setting from [ ENV $HOME/.xp/xp.ini $base/xp.ini ]" >&2
  exit 255
fi
args="-C${ifs}-q${ifs}-d${ifs}include_path=\".$PATHSEP$USE_XP$MODULES$PATHSEP$PATHSEP$INCLUDE\"${ifs}-d${ifs}magic_quotes_gpc=0$RT_ARG"
tool=$(locate "$USE_XP" "tools/"${RUNNER}".php" 0)
if [ "" = "$tool" ] ; then
  tool=$(locate "$DIRNAME" ${RUNNER}"-main.php" 1)
  args="$args${ifs}-d${ifs}encoding=utf-8"
fi
export XP_EXE
IFS="|"
exec ${XP_EXE}${ifs}${args}${ifs}$tool ${ARGS} "$@"
--3175:doclet:--
#!/bin/sh
PATHSEP=':'
DIRSEP='/'
if [ -L "$0" ] ; then
  link="$(readlink "$0")"
  case "$link" in
    [/]*) DIRNAME=$(dirname "$link") ;; # Absolute
    *) DIRNAME=$(dirname "$(dirname "$0")/$link") ;; # Relative
  esac
else
  DIRNAME=$(dirname "$0")
fi
translate_path() {
  base="$1"
  path="$2"
  case "$path" in
    ?:*) ;; # C:\xp
    \\*) ;; # \\filesrv\shares
    [/]*) ;; # /usr/local/lib
    ~*) path=$HOME$DIRSEP${path#"~"} ;; # ~/lib
    *) path=$base$DIRSEP$path ;; # lib, ../lib, ./classes
  esac
  echo $path
}
translate_paths() {
  base="$1"
  path="$2"
  translated=""
  IFS="$PATHSEP"
  for i in $path ; do
    translated="$translated$PATHSEP"$(translate_path "$base" "$i")
  done
  echo "${translated#$PATHSEP}"
}
locate() {
  path="$1"
  file="$2"
  expect=$3
  IFS="$PATHSEP"
  for i in $path ; do
    qualified="$i/$file"
    if [ -e "$qualified" ] ; then
      echo "$qualified"
      if [ $expect = 1 ] ; then return ; fi
    fi
  done
  if [ $expect = 1 ] ; then echo "*** Failed to locate $file in $path" >&2 ; fi
  echo ""
}
base="$DIRNAME" RUNNER="class" INCLUDE="." xppath="$DIRNAME" ARGS=xp.doclet.Runner IFS="|";
ifs="|"
if [ "" = "$USE_XP" ] ; then
  unset USE_XP
else
  USE_XP=$(translate_paths "." "$USE_XP")
fi
RT_ARG=""
dkeys=""
vkeys=""
for i in "." "$HOME/.xp" "$base" ; do
  if [ -e "$i/xp.ini" ] ; then
    section=default
    while read line || [ -n "$line" ] ; do
      line="${line%"${line##*[![:space:]]}"}"
      value="${line#*=}"
      if [ "" = "$value" ] ; then
        continue
      fi
      case "$section.$line" in
        default.use=*)
          USE_XP=${USE_XP-$(translate_paths "$i" "$value")}
        ;;
        default.rt=*)
          XP_RT=${XP_RT-$value}
        ;;
        *.\;*)
          ;;
        *.\[*\])
          section=${line#\[}
          section=${section%]}
        ;;
        runtime.extension=*|runtime@$XP_RT.extension=*)
          RT_ARG="$RT_ARG${ifs}-d${ifs}extension=$value"
        ;;
        runtime.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          dkeys="$dkeys${ifs}$key"
          eval "d$key"=$value
        ;;
        runtime@$XP_RT.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          vkeys="$vkeys${ifs}$key"
          eval "v$key"=$value
        ;;
      esac
    done < "$i/xp.ini"
  fi
done
for k in $vkeys ; do
  eval "d$k=\$v$k"
  dkeys="$dkeys${ifs}$k"
done
for k in $dkeys ; do
  if [ $k ] ; then
    eval "v=\$d$k"
    if [ default = $k ] ; then
      XP_EXE=${XP_EXE-$v}
    else
      RT_ARG="$RT_ARG${ifs}-d${ifs}$(echo $k | sed 's/__/./g')=\"$v\""
    fi
  fi
done
XP_EXE=${XP_EXE-php}
if [ "" = "$USE_XP" ] ; then
  echo "*** Cannot determine use_xp setting from [ ENV $HOME/.xp/xp.ini $base/xp.ini ]" >&2
  exit 255
fi
args="-C${ifs}-q${ifs}-d${ifs}include_path=\".$PATHSEP$USE_XP$MODULES$PATHSEP$PATHSEP$INCLUDE\"${ifs}-d${ifs}magic_quotes_gpc=0$RT_ARG"
tool=$(locate "$USE_XP" "tools/"${RUNNER}".php" 0)
if [ "" = "$tool" ] ; then
  tool=$(locate "$DIRNAME" ${RUNNER}"-main.php" 1)
  args="$args${ifs}-d${ifs}encoding=utf-8"
fi
export XP_EXE
IFS="|"
exec ${XP_EXE}${ifs}${args}${ifs}$tool ${ARGS} "$@"
--3586:unittest:--
#!/bin/sh
PATHSEP=':'
DIRSEP='/'
if [ -L "$0" ] ; then
  link="$(readlink "$0")"
  case "$link" in
    [/]*) DIRNAME=$(dirname "$link") ;; # Absolute
    *) DIRNAME=$(dirname "$(dirname "$0")/$link") ;; # Relative
  esac
else
  DIRNAME=$(dirname "$0")
fi
translate_path() {
  base="$1"
  path="$2"
  case "$path" in
    ?:*) ;; # C:\xp
    \\*) ;; # \\filesrv\shares
    [/]*) ;; # /usr/local/lib
    ~*) path=$HOME$DIRSEP${path#"~"} ;; # ~/lib
    *) path=$base$DIRSEP$path ;; # lib, ../lib, ./classes
  esac
  echo $path
}
translate_paths() {
  base="$1"
  path="$2"
  translated=""
  IFS="$PATHSEP"
  for i in $path ; do
    translated="$translated$PATHSEP"$(translate_path "$base" "$i")
  done
  echo "${translated#$PATHSEP}"
}
locate() {
  path="$1"
  file="$2"
  expect=$3
  IFS="$PATHSEP"
  for i in $path ; do
    qualified="$i/$file"
    if [ -e "$qualified" ] ; then
      echo "$qualified"
      if [ $expect = 1 ] ; then return ; fi
    fi
  done
  if [ $expect = 1 ] ; then echo "*** Failed to locate $file in $path" >&2 ; fi
  echo ""
}
base="$DIRNAME" RUNNER="class" INCLUDE="." xppath="$DIRNAME" ARGS=xp.unittest.Runner IFS="|";
ifs="|"
if [ "" = "$USE_XP" ] ; then
  unset USE_XP
else
  USE_XP=$(translate_paths "." "$USE_XP")
fi
RT_ARG=""
dkeys=""
vkeys=""
for i in "." "$HOME/.xp" "$base" ; do
  if [ -e "$i/xp.ini" ] ; then
    section=default
    while read line || [ -n "$line" ] ; do
      line="${line%"${line##*[![:space:]]}"}"
      value="${line#*=}"
      if [ "" = "$value" ] ; then
        continue
      fi
      case "$section.$line" in
        default.use=*)
          USE_XP=${USE_XP-$(translate_paths "$i" "$value")}
        ;;
        default.rt=*)
          XP_RT=${XP_RT-$value}
        ;;
        *.\;*)
          ;;
        *.\[*\])
          section=${line#\[}
          section=${section%]}
        ;;
        runtime.extension=*|runtime@$XP_RT.extension=*)
          RT_ARG="$RT_ARG${ifs}-d${ifs}extension=$value"
        ;;
        runtime.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          dkeys="$dkeys${ifs}$key"
          eval "d$key"=$value
        ;;
        runtime@$XP_RT.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          vkeys="$vkeys${ifs}$key"
          eval "v$key"=$value
        ;;
      esac
    done < "$i/xp.ini"
  fi
done
for k in $vkeys ; do
  eval "d$k=\$v$k"
  dkeys="$dkeys${ifs}$k"
done
for k in $dkeys ; do
  if [ $k ] ; then
    eval "v=\$d$k"
    if [ default = $k ] ; then
      XP_EXE=${XP_EXE-$v}
    else
      RT_ARG="$RT_ARG${ifs}-d${ifs}$(echo $k | sed 's/__/./g')=\"$v\""
    fi
  fi
done
XP_EXE=${XP_EXE-php}
if [ "" = "$USE_XP" ] ; then
  echo "*** Cannot determine use_xp setting from [ ENV $HOME/.xp/xp.ini $base/xp.ini ]" >&2
  exit 255
fi
args="-C${ifs}-q${ifs}-d${ifs}include_path=\".$PATHSEP$USE_XP$MODULES$PATHSEP$PATHSEP$INCLUDE\"${ifs}-d${ifs}magic_quotes_gpc=0$RT_ARG"
tool=$(locate "$USE_XP" "tools/"${RUNNER}".php" 0)
if [ "" = "$tool" ] ; then
  tool=$(locate "$DIRNAME" ${RUNNER}"-main.php" 1)
  args="$args${ifs}-d${ifs}encoding=utf-8"
fi
export XP_EXE
IFS="|"
WATCH=""
while getopts :w: flag ; do
  case "$flag" in
    w) WATCH="$OPTARG"; shift 1 ;;
  esac
done
if [ -n "$WATCH" ] ; then
  ${XP_EXE}${ifs}${args}${ifs}$tool ${ARGS} "$@"
  if [ $? = 2 ] ; then
    exit 2
  elif [ $? = 126 ] || [ $? = 127 ] ; then
    exit 255
  fi
  inotifywait -q -e close_write -m -r $WATCH | while read event
  do
    ${XP_EXE}${ifs}${args}${ifs}$tool ${ARGS} "$@"
  done
else
  exec ${XP_EXE}${ifs}${args}${ifs}$tool ${ARGS} "$@"
fi
--3172:xar:--
#!/bin/sh
PATHSEP=':'
DIRSEP='/'
if [ -L "$0" ] ; then
  link="$(readlink "$0")"
  case "$link" in
    [/]*) DIRNAME=$(dirname "$link") ;; # Absolute
    *) DIRNAME=$(dirname "$(dirname "$0")/$link") ;; # Relative
  esac
else
  DIRNAME=$(dirname "$0")
fi
translate_path() {
  base="$1"
  path="$2"
  case "$path" in
    ?:*) ;; # C:\xp
    \\*) ;; # \\filesrv\shares
    [/]*) ;; # /usr/local/lib
    ~*) path=$HOME$DIRSEP${path#"~"} ;; # ~/lib
    *) path=$base$DIRSEP$path ;; # lib, ../lib, ./classes
  esac
  echo $path
}
translate_paths() {
  base="$1"
  path="$2"
  translated=""
  IFS="$PATHSEP"
  for i in $path ; do
    translated="$translated$PATHSEP"$(translate_path "$base" "$i")
  done
  echo "${translated#$PATHSEP}"
}
locate() {
  path="$1"
  file="$2"
  expect=$3
  IFS="$PATHSEP"
  for i in $path ; do
    qualified="$i/$file"
    if [ -e "$qualified" ] ; then
      echo "$qualified"
      if [ $expect = 1 ] ; then return ; fi
    fi
  done
  if [ $expect = 1 ] ; then echo "*** Failed to locate $file in $path" >&2 ; fi
  echo ""
}
base="$DIRNAME" RUNNER="class" INCLUDE="." xppath="$DIRNAME" ARGS=xp.xar.Runner IFS="|";
ifs="|"
if [ "" = "$USE_XP" ] ; then
  unset USE_XP
else
  USE_XP=$(translate_paths "." "$USE_XP")
fi
RT_ARG=""
dkeys=""
vkeys=""
for i in "." "$HOME/.xp" "$base" ; do
  if [ -e "$i/xp.ini" ] ; then
    section=default
    while read line || [ -n "$line" ] ; do
      line="${line%"${line##*[![:space:]]}"}"
      value="${line#*=}"
      if [ "" = "$value" ] ; then
        continue
      fi
      case "$section.$line" in
        default.use=*)
          USE_XP=${USE_XP-$(translate_paths "$i" "$value")}
        ;;
        default.rt=*)
          XP_RT=${XP_RT-$value}
        ;;
        *.\;*)
          ;;
        *.\[*\])
          section=${line#\[}
          section=${section%]}
        ;;
        runtime.extension=*|runtime@$XP_RT.extension=*)
          RT_ARG="$RT_ARG${ifs}-d${ifs}extension=$value"
        ;;
        runtime.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          dkeys="$dkeys${ifs}$key"
          eval "d$key"=$value
        ;;
        runtime@$XP_RT.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          vkeys="$vkeys${ifs}$key"
          eval "v$key"=$value
        ;;
      esac
    done < "$i/xp.ini"
  fi
done
for k in $vkeys ; do
  eval "d$k=\$v$k"
  dkeys="$dkeys${ifs}$k"
done
for k in $dkeys ; do
  if [ $k ] ; then
    eval "v=\$d$k"
    if [ default = $k ] ; then
      XP_EXE=${XP_EXE-$v}
    else
      RT_ARG="$RT_ARG${ifs}-d${ifs}$(echo $k | sed 's/__/./g')=\"$v\""
    fi
  fi
done
XP_EXE=${XP_EXE-php}
if [ "" = "$USE_XP" ] ; then
  echo "*** Cannot determine use_xp setting from [ ENV $HOME/.xp/xp.ini $base/xp.ini ]" >&2
  exit 255
fi
args="-C${ifs}-q${ifs}-d${ifs}include_path=\".$PATHSEP$USE_XP$MODULES$PATHSEP$PATHSEP$INCLUDE\"${ifs}-d${ifs}magic_quotes_gpc=0$RT_ARG"
tool=$(locate "$USE_XP" "tools/"${RUNNER}".php" 0)
if [ "" = "$tool" ] ; then
  tool=$(locate "$DIRNAME" ${RUNNER}"-main.php" 1)
  args="$args${ifs}-d${ifs}encoding=utf-8"
fi
export XP_EXE
IFS="|"
exec ${XP_EXE}${ifs}${args}${ifs}$tool ${ARGS} "$@"
--3177:xcc:--
#!/bin/sh
PATHSEP=':'
DIRSEP='/'
if [ -L "$0" ] ; then
  link="$(readlink "$0")"
  case "$link" in
    [/]*) DIRNAME=$(dirname "$link") ;; # Absolute
    *) DIRNAME=$(dirname "$(dirname "$0")/$link") ;; # Relative
  esac
else
  DIRNAME=$(dirname "$0")
fi
translate_path() {
  base="$1"
  path="$2"
  case "$path" in
    ?:*) ;; # C:\xp
    \\*) ;; # \\filesrv\shares
    [/]*) ;; # /usr/local/lib
    ~*) path=$HOME$DIRSEP${path#"~"} ;; # ~/lib
    *) path=$base$DIRSEP$path ;; # lib, ../lib, ./classes
  esac
  echo $path
}
translate_paths() {
  base="$1"
  path="$2"
  translated=""
  IFS="$PATHSEP"
  for i in $path ; do
    translated="$translated$PATHSEP"$(translate_path "$base" "$i")
  done
  echo "${translated#$PATHSEP}"
}
locate() {
  path="$1"
  file="$2"
  expect=$3
  IFS="$PATHSEP"
  for i in $path ; do
    qualified="$i/$file"
    if [ -e "$qualified" ] ; then
      echo "$qualified"
      if [ $expect = 1 ] ; then return ; fi
    fi
  done
  if [ $expect = 1 ] ; then echo "*** Failed to locate $file in $path" >&2 ; fi
  echo ""
}
base="$DIRNAME" RUNNER="class" INCLUDE="." xppath="$DIRNAME" ARGS=xp.compiler.Runner IFS="|";
ifs="|"
if [ "" = "$USE_XP" ] ; then
  unset USE_XP
else
  USE_XP=$(translate_paths "." "$USE_XP")
fi
RT_ARG=""
dkeys=""
vkeys=""
for i in "." "$HOME/.xp" "$base" ; do
  if [ -e "$i/xp.ini" ] ; then
    section=default
    while read line || [ -n "$line" ] ; do
      line="${line%"${line##*[![:space:]]}"}"
      value="${line#*=}"
      if [ "" = "$value" ] ; then
        continue
      fi
      case "$section.$line" in
        default.use=*)
          USE_XP=${USE_XP-$(translate_paths "$i" "$value")}
        ;;
        default.rt=*)
          XP_RT=${XP_RT-$value}
        ;;
        *.\;*)
          ;;
        *.\[*\])
          section=${line#\[}
          section=${section%]}
        ;;
        runtime.extension=*|runtime@$XP_RT.extension=*)
          RT_ARG="$RT_ARG${ifs}-d${ifs}extension=$value"
        ;;
        runtime.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          dkeys="$dkeys${ifs}$key"
          eval "d$key"=$value
        ;;
        runtime@$XP_RT.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          vkeys="$vkeys${ifs}$key"
          eval "v$key"=$value
        ;;
      esac
    done < "$i/xp.ini"
  fi
done
for k in $vkeys ; do
  eval "d$k=\$v$k"
  dkeys="$dkeys${ifs}$k"
done
for k in $dkeys ; do
  if [ $k ] ; then
    eval "v=\$d$k"
    if [ default = $k ] ; then
      XP_EXE=${XP_EXE-$v}
    else
      RT_ARG="$RT_ARG${ifs}-d${ifs}$(echo $k | sed 's/__/./g')=\"$v\""
    fi
  fi
done
XP_EXE=${XP_EXE-php}
if [ "" = "$USE_XP" ] ; then
  echo "*** Cannot determine use_xp setting from [ ENV $HOME/.xp/xp.ini $base/xp.ini ]" >&2
  exit 255
fi
args="-C${ifs}-q${ifs}-d${ifs}include_path=\".$PATHSEP$USE_XP$MODULES$PATHSEP$PATHSEP$INCLUDE\"${ifs}-d${ifs}magic_quotes_gpc=0$RT_ARG"
tool=$(locate "$USE_XP" "tools/"${RUNNER}".php" 0)
if [ "" = "$tool" ] ; then
  tool=$(locate "$DIRNAME" ${RUNNER}"-main.php" 1)
  args="$args${ifs}-d${ifs}encoding=utf-8"
fi
export XP_EXE
IFS="|"
exec ${XP_EXE}${ifs}${args}${ifs}$tool ${ARGS} "$@"
--4184:xp:--
#!/bin/sh
PATHSEP=':'
DIRSEP='/'
if [ -L "$0" ] ; then
  link="$(readlink "$0")"
  case "$link" in
    [/]*) DIRNAME=$(dirname "$link") ;; # Absolute
    *) DIRNAME=$(dirname "$(dirname "$0")/$link") ;; # Relative
  esac
else
  DIRNAME=$(dirname "$0")
fi
translate_path() {
  base="$1"
  path="$2"
  case "$path" in
    ?:*) ;; # C:\xp
    \\*) ;; # \\filesrv\shares
    [/]*) ;; # /usr/local/lib
    ~*) path=$HOME$DIRSEP${path#"~"} ;; # ~/lib
    *) path=$base$DIRSEP$path ;; # lib, ../lib, ./classes
  esac
  echo $path
}
translate_paths() {
  base="$1"
  path="$2"
  translated=""
  IFS="$PATHSEP"
  for i in $path ; do
    translated="$translated$PATHSEP"$(translate_path "$base" "$i")
  done
  echo "${translated#$PATHSEP}"
}
locate() {
  path="$1"
  file="$2"
  expect=$3
  IFS="$PATHSEP"
  for i in $path ; do
    qualified="$i/$file"
    if [ -e "$qualified" ] ; then
      echo "$qualified"
      if [ $expect = 1 ] ; then return ; fi
    fi
  done
  if [ $expect = 1 ] ; then echo "*** Failed to locate $file in $path" >&2 ; fi
  echo ""
}
INCLUDE_PATH="."
MODULES=""
TOOL=
if [ 0 = $# ] ; then
  TOOL="xp.runtime.ShowResource|usage.txt|255"
else
  while [ $# != 0 ] ; do
    case $1 in
      -v) # Display version
        TOOL="xp.runtime.Version"
        shift
        ;;
      -e) # Run source passed via command line
        TOOL="xp.runtime.Evaluate"
        shift
        ;;
      -w|-d) # Evaluate source and dump result
        TOOL="xp.runtime.Dump"
        break
        ;;
      -r) # Reflect given class
        TOOL="xp.runtime.Reflect"
        shift
        ;;
      -cp) # Add class path
        INCLUDE_PATH=${INCLUDE_PATH}${PATHSEP}$2
        shift 2
        ;;
      -m) # Add module
        MODULES=${MODULES}${PATHSEP}$2
        shift 2
        ;;
      -xar) # Run a xar
        TOOL="xp.runtime.Xar"
        shift
        ;;
      -*) # Any other arg
        echo "*** Invalid argument $arg" >&2
        exit 255
        ;;
      *) # First arg we find that does not begin with a "-"
        break
        ;;
    esac
  done
fi
base="$DIRNAME" RUNNER="class" INCLUDE=$INCLUDE_PATH xppath="$DIRNAME" ARGS=$TOOL IFS="|";
ifs="|"
if [ "" = "$USE_XP" ] ; then
  unset USE_XP
else
  USE_XP=$(translate_paths "." "$USE_XP")
fi
RT_ARG=""
dkeys=""
vkeys=""
for i in "." "$HOME/.xp" "$base" ; do
  if [ -e "$i/xp.ini" ] ; then
    section=default
    while read line || [ -n "$line" ] ; do
      line="${line%"${line##*[![:space:]]}"}"
      value="${line#*=}"
      if [ "" = "$value" ] ; then
        continue
      fi
      case "$section.$line" in
        default.use=*)
          USE_XP=${USE_XP-$(translate_paths "$i" "$value")}
        ;;
        default.rt=*)
          XP_RT=${XP_RT-$value}
        ;;
        *.\;*)
          ;;
        *.\[*\])
          section=${line#\[}
          section=${section%]}
        ;;
        runtime.extension=*|runtime@$XP_RT.extension=*)
          RT_ARG="$RT_ARG${ifs}-d${ifs}extension=$value"
        ;;
        runtime.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          dkeys="$dkeys${ifs}$key"
          eval "d$key"=$value
        ;;
        runtime@$XP_RT.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          vkeys="$vkeys${ifs}$key"
          eval "v$key"=$value
        ;;
      esac
    done < "$i/xp.ini"
  fi
done
for k in $vkeys ; do
  eval "d$k=\$v$k"
  dkeys="$dkeys${ifs}$k"
done
for k in $dkeys ; do
  if [ $k ] ; then
    eval "v=\$d$k"
    if [ default = $k ] ; then
      XP_EXE=${XP_EXE-$v}
    else
      RT_ARG="$RT_ARG${ifs}-d${ifs}$(echo $k | sed 's/__/./g')=\"$v\""
    fi
  fi
done
XP_EXE=${XP_EXE-php}
if [ "" = "$USE_XP" ] ; then
  echo "*** Cannot determine use_xp setting from [ ENV $HOME/.xp/xp.ini $base/xp.ini ]" >&2
  exit 255
fi
args="-C${ifs}-q${ifs}-d${ifs}include_path=\".$PATHSEP$USE_XP$MODULES$PATHSEP$PATHSEP$INCLUDE\"${ifs}-d${ifs}magic_quotes_gpc=0$RT_ARG"
tool=$(locate "$USE_XP" "tools/"${RUNNER}".php" 0)
if [ "" = "$tool" ] ; then
  tool=$(locate "$DIRNAME" ${RUNNER}"-main.php" 1)
  args="$args${ifs}-d${ifs}encoding=utf-8"
fi
export XP_EXE
IFS="|"
exec ${XP_EXE}${ifs}${args}${ifs}$tool ${ARGS} "$@"
--3176:xpcli:--
#!/bin/sh
PATHSEP=':'
DIRSEP='/'
if [ -L "$0" ] ; then
  link="$(readlink "$0")"
  case "$link" in
    [/]*) DIRNAME=$(dirname "$link") ;; # Absolute
    *) DIRNAME=$(dirname "$(dirname "$0")/$link") ;; # Relative
  esac
else
  DIRNAME=$(dirname "$0")
fi
translate_path() {
  base="$1"
  path="$2"
  case "$path" in
    ?:*) ;; # C:\xp
    \\*) ;; # \\filesrv\shares
    [/]*) ;; # /usr/local/lib
    ~*) path=$HOME$DIRSEP${path#"~"} ;; # ~/lib
    *) path=$base$DIRSEP$path ;; # lib, ../lib, ./classes
  esac
  echo $path
}
translate_paths() {
  base="$1"
  path="$2"
  translated=""
  IFS="$PATHSEP"
  for i in $path ; do
    translated="$translated$PATHSEP"$(translate_path "$base" "$i")
  done
  echo "${translated#$PATHSEP}"
}
locate() {
  path="$1"
  file="$2"
  expect=$3
  IFS="$PATHSEP"
  for i in $path ; do
    qualified="$i/$file"
    if [ -e "$qualified" ] ; then
      echo "$qualified"
      if [ $expect = 1 ] ; then return ; fi
    fi
  done
  if [ $expect = 1 ] ; then echo "*** Failed to locate $file in $path" >&2 ; fi
  echo ""
}
base="$DIRNAME" RUNNER="class" INCLUDE="." xppath="$DIRNAME" ARGS=xp.command.Runner IFS="|";
ifs="|"
if [ "" = "$USE_XP" ] ; then
  unset USE_XP
else
  USE_XP=$(translate_paths "." "$USE_XP")
fi
RT_ARG=""
dkeys=""
vkeys=""
for i in "." "$HOME/.xp" "$base" ; do
  if [ -e "$i/xp.ini" ] ; then
    section=default
    while read line || [ -n "$line" ] ; do
      line="${line%"${line##*[![:space:]]}"}"
      value="${line#*=}"
      if [ "" = "$value" ] ; then
        continue
      fi
      case "$section.$line" in
        default.use=*)
          USE_XP=${USE_XP-$(translate_paths "$i" "$value")}
        ;;
        default.rt=*)
          XP_RT=${XP_RT-$value}
        ;;
        *.\;*)
          ;;
        *.\[*\])
          section=${line#\[}
          section=${section%]}
        ;;
        runtime.extension=*|runtime@$XP_RT.extension=*)
          RT_ARG="$RT_ARG${ifs}-d${ifs}extension=$value"
        ;;
        runtime.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          dkeys="$dkeys${ifs}$key"
          eval "d$key"=$value
        ;;
        runtime@$XP_RT.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          vkeys="$vkeys${ifs}$key"
          eval "v$key"=$value
        ;;
      esac
    done < "$i/xp.ini"
  fi
done
for k in $vkeys ; do
  eval "d$k=\$v$k"
  dkeys="$dkeys${ifs}$k"
done
for k in $dkeys ; do
  if [ $k ] ; then
    eval "v=\$d$k"
    if [ default = $k ] ; then
      XP_EXE=${XP_EXE-$v}
    else
      RT_ARG="$RT_ARG${ifs}-d${ifs}$(echo $k | sed 's/__/./g')=\"$v\""
    fi
  fi
done
XP_EXE=${XP_EXE-php}
if [ "" = "$USE_XP" ] ; then
  echo "*** Cannot determine use_xp setting from [ ENV $HOME/.xp/xp.ini $base/xp.ini ]" >&2
  exit 255
fi
args="-C${ifs}-q${ifs}-d${ifs}include_path=\".$PATHSEP$USE_XP$MODULES$PATHSEP$PATHSEP$INCLUDE\"${ifs}-d${ifs}magic_quotes_gpc=0$RT_ARG"
tool=$(locate "$USE_XP" "tools/"${RUNNER}".php" 0)
if [ "" = "$tool" ] ; then
  tool=$(locate "$DIRNAME" ${RUNNER}"-main.php" 1)
  args="$args${ifs}-d${ifs}encoding=utf-8"
fi
export XP_EXE
IFS="|"
exec ${XP_EXE}${ifs}${args}${ifs}$tool ${ARGS} "$@"
--3176:xpi:--
#!/bin/sh
PATHSEP=':'
DIRSEP='/'
if [ -L "$0" ] ; then
  link="$(readlink "$0")"
  case "$link" in
    [/]*) DIRNAME=$(dirname "$link") ;; # Absolute
    *) DIRNAME=$(dirname "$(dirname "$0")/$link") ;; # Relative
  esac
else
  DIRNAME=$(dirname "$0")
fi
translate_path() {
  base="$1"
  path="$2"
  case "$path" in
    ?:*) ;; # C:\xp
    \\*) ;; # \\filesrv\shares
    [/]*) ;; # /usr/local/lib
    ~*) path=$HOME$DIRSEP${path#"~"} ;; # ~/lib
    *) path=$base$DIRSEP$path ;; # lib, ../lib, ./classes
  esac
  echo $path
}
translate_paths() {
  base="$1"
  path="$2"
  translated=""
  IFS="$PATHSEP"
  for i in $path ; do
    translated="$translated$PATHSEP"$(translate_path "$base" "$i")
  done
  echo "${translated#$PATHSEP}"
}
locate() {
  path="$1"
  file="$2"
  expect=$3
  IFS="$PATHSEP"
  for i in $path ; do
    qualified="$i/$file"
    if [ -e "$qualified" ] ; then
      echo "$qualified"
      if [ $expect = 1 ] ; then return ; fi
    fi
  done
  if [ $expect = 1 ] ; then echo "*** Failed to locate $file in $path" >&2 ; fi
  echo ""
}
base="$DIRNAME" RUNNER="class" INCLUDE="." xppath="$DIRNAME" ARGS=xp.install.Runner IFS="|";
ifs="|"
if [ "" = "$USE_XP" ] ; then
  unset USE_XP
else
  USE_XP=$(translate_paths "." "$USE_XP")
fi
RT_ARG=""
dkeys=""
vkeys=""
for i in "." "$HOME/.xp" "$base" ; do
  if [ -e "$i/xp.ini" ] ; then
    section=default
    while read line || [ -n "$line" ] ; do
      line="${line%"${line##*[![:space:]]}"}"
      value="${line#*=}"
      if [ "" = "$value" ] ; then
        continue
      fi
      case "$section.$line" in
        default.use=*)
          USE_XP=${USE_XP-$(translate_paths "$i" "$value")}
        ;;
        default.rt=*)
          XP_RT=${XP_RT-$value}
        ;;
        *.\;*)
          ;;
        *.\[*\])
          section=${line#\[}
          section=${section%]}
        ;;
        runtime.extension=*|runtime@$XP_RT.extension=*)
          RT_ARG="$RT_ARG${ifs}-d${ifs}extension=$value"
        ;;
        runtime.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          dkeys="$dkeys${ifs}$key"
          eval "d$key"=$value
        ;;
        runtime@$XP_RT.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          vkeys="$vkeys${ifs}$key"
          eval "v$key"=$value
        ;;
      esac
    done < "$i/xp.ini"
  fi
done
for k in $vkeys ; do
  eval "d$k=\$v$k"
  dkeys="$dkeys${ifs}$k"
done
for k in $dkeys ; do
  if [ $k ] ; then
    eval "v=\$d$k"
    if [ default = $k ] ; then
      XP_EXE=${XP_EXE-$v}
    else
      RT_ARG="$RT_ARG${ifs}-d${ifs}$(echo $k | sed 's/__/./g')=\"$v\""
    fi
  fi
done
XP_EXE=${XP_EXE-php}
if [ "" = "$USE_XP" ] ; then
  echo "*** Cannot determine use_xp setting from [ ENV $HOME/.xp/xp.ini $base/xp.ini ]" >&2
  exit 255
fi
args="-C${ifs}-q${ifs}-d${ifs}include_path=\".$PATHSEP$USE_XP$MODULES$PATHSEP$PATHSEP$INCLUDE\"${ifs}-d${ifs}magic_quotes_gpc=0$RT_ARG"
tool=$(locate "$USE_XP" "tools/"${RUNNER}".php" 0)
if [ "" = "$tool" ] ; then
  tool=$(locate "$DIRNAME" ${RUNNER}"-main.php" 1)
  args="$args${ifs}-d${ifs}encoding=utf-8"
fi
export XP_EXE
IFS="|"
exec ${XP_EXE}${ifs}${args}${ifs}$tool ${ARGS} "$@"
--5461:xpws:--
#!/bin/sh
PATHSEP=':'
DIRSEP='/'
if [ -L "$0" ] ; then
  link="$(readlink "$0")"
  case "$link" in
    [/]*) DIRNAME=$(dirname "$link") ;; # Absolute
    *) DIRNAME=$(dirname "$(dirname "$0")/$link") ;; # Relative
  esac
else
  DIRNAME=$(dirname "$0")
fi
translate_path() {
  base="$1"
  path="$2"
  case "$path" in
    ?:*) ;; # C:\xp
    \\*) ;; # \\filesrv\shares
    [/]*) ;; # /usr/local/lib
    ~*) path=$HOME$DIRSEP${path#"~"} ;; # ~/lib
    *) path=$base$DIRSEP$path ;; # lib, ../lib, ./classes
  esac
  echo $path
}
translate_paths() {
  base="$1"
  path="$2"
  translated=""
  IFS="$PATHSEP"
  for i in $path ; do
    translated="$translated$PATHSEP"$(translate_path "$base" "$i")
  done
  echo "${translated#$PATHSEP}"
}
locate() {
  path="$1"
  file="$2"
  expect=$3
  IFS="$PATHSEP"
  for i in $path ; do
    qualified="$i/$file"
    if [ -e "$qualified" ] ; then
      echo "$qualified"
      if [ $expect = 1 ] ; then return ; fi
    fi
  done
  if [ $expect = 1 ] ; then echo "*** Failed to locate $file in $path" >&2 ; fi
  echo ""
}
RUNNER=web
TOOL=
START='-S${ifs}${ADDR}${ifs}-t${ifs}"${DOCUMENT_ROOT}"${ifs}-duser_dir="$WEB_CONFIG"${ifs}'
INCLUDE_PATH="."
SERVER_PROFILE=dev
WEB_ROOT=.
WEB_CONFIG=
while [ $# != 0 ]; do
  case $1 in
    -p)
      SERVER_PROFILE=$2
      shift 2
      ;;
    -r)
      DOCUMENT_ROOT=$2
      if [ ! -d "$DOCUMENT_ROOT" ] ; then
        echo "*** Document root $DOCUMENT_ROOT does not exist, exiting." >&2
        exit 3
      fi
      shift 2
      ;;
    -c)
      if [ "-" = "$2" ] ; then
        WEB_CONFIG=-
      elif [ -e "$2/web.ini" ] ; then
        WEB_CONFIG="$2/web.ini"
      else
        WEB_CONFIG=":$2"
      fi
      shift 2
      ;;
    -w)
      WEB_ROOT=$2
      shift 2
      ;;
    -cp)
      INCLUDE_PATH=${INCLUDE_PATH}${PATHSEP}$2
      shift 2
      ;;
    -i)
      RUNNER=class
      START=@immediate
      TOOL='xp.scriptlet.Inspect|${WEB_ROOT}|${WEB_CONFIG}|${SERVER_PROFILE}|${ADDR}'
      shift 1
      ;;
    -m)
      if [ "develop" = $2 ] ; then
        RUNNER=web
      else
        RUNNER=class
        START=
        TOOL='xp.scriptlet.Server|${WEB_ROOT}|${WEB_CONFIG}|${SERVER_PROFILE}|${ADDR}|'$2
      fi
      shift 2
      ;;
    -?)
      RUNNER=class
      START=@immediate
      TOOL="xp.scriptlet.Usage|xpws.txt"
      break
      ;;
    *:*)
      server=${1%:*}
      port=${1#*:}
      shift 1
      ;;
    *)
      server=$1
      shift 1
      ;;
  esac
done
if [ "" = "$WEB_CONFIG" ] ; then
  if [ -e ./etc/web.ini ] ; then
    WEB_CONFIG=./etc
  else
    WEB_CONFIG=-
  fi
fi
ADDR=${server-localhost}:${port-8080}
eval 'TOOL="'$TOOL'"'
base="$DIRNAME" RUNNER=$RUNNER INCLUDE=$INCLUDE_PATH xppath="$DIRNAME" ARGS=$TOOL IFS="|";
ifs="|"
if [ "" = "$USE_XP" ] ; then
  unset USE_XP
else
  USE_XP=$(translate_paths "." "$USE_XP")
fi
RT_ARG=""
dkeys=""
vkeys=""
for i in "." "$HOME/.xp" "$base" ; do
  if [ -e "$i/xp.ini" ] ; then
    section=default
    while read line || [ -n "$line" ] ; do
      line="${line%"${line##*[![:space:]]}"}"
      value="${line#*=}"
      if [ "" = "$value" ] ; then
        continue
      fi
      case "$section.$line" in
        default.use=*)
          USE_XP=${USE_XP-$(translate_paths "$i" "$value")}
        ;;
        default.rt=*)
          XP_RT=${XP_RT-$value}
        ;;
        *.\;*)
          ;;
        *.\[*\])
          section=${line#\[}
          section=${section%]}
        ;;
        runtime.extension=*|runtime@$XP_RT.extension=*)
          RT_ARG="$RT_ARG${ifs}-d${ifs}extension=$value"
        ;;
        runtime.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          dkeys="$dkeys${ifs}$key"
          eval "d$key"=$value
        ;;
        runtime@$XP_RT.*=*)
          key=${line%=*}
          key=$(echo $key | sed 's/\./__/g')
          vkeys="$vkeys${ifs}$key"
          eval "v$key"=$value
        ;;
      esac
    done < "$i/xp.ini"
  fi
done
for k in $vkeys ; do
  eval "d$k=\$v$k"
  dkeys="$dkeys${ifs}$k"
done
for k in $dkeys ; do
  if [ $k ] ; then
    eval "v=\$d$k"
    if [ default = $k ] ; then
      XP_EXE=${XP_EXE-$v}
    else
      RT_ARG="$RT_ARG${ifs}-d${ifs}$(echo $k | sed 's/__/./g')=\"$v\""
    fi
  fi
done
XP_EXE=${XP_EXE-php}
if [ "" = "$USE_XP" ] ; then
  echo "*** Cannot determine use_xp setting from [ ENV $HOME/.xp/xp.ini $base/xp.ini ]" >&2
  exit 255
fi
args="-C${ifs}-q${ifs}-d${ifs}include_path=\".$PATHSEP$USE_XP$MODULES$PATHSEP$PATHSEP$INCLUDE\"${ifs}-d${ifs}magic_quotes_gpc=0$RT_ARG"
tool=$(locate "$USE_XP" "tools/"${RUNNER}".php" 0)
if [ "" = "$tool" ] ; then
  tool=$(locate "$DIRNAME" ${RUNNER}"-main.php" 1)
  args="$args${ifs}-d${ifs}encoding=utf-8"
fi
export XP_EXE
IFS="|"
if [ $START = "@immediate" ] ; then
  ${XP_EXE}${ifs}${args}${ifs}$tool ${ARGS} "$@"
else
  if [ "" = "$DOCUMENT_ROOT" ] ; then
    if [ -d "$WEB_ROOT/static" ] ; then
      DOCUMENT_ROOT="$WEB_ROOT/static"
    else
      DOCUMENT_ROOT=.
    fi
  else
    DOCUMENT_ROOT=${DOCUMENT_ROOT%/}
  fi
  if [ "-" = "$WEB_CONFIG" ] ; then
    echo "No configuration given, serving static content from $DOCUMENT_ROOT"
  fi
  export WEB_ROOT
  export SERVER_PROFILE
  export DOCUMENT_ROOT
  eval 'START="'$START'"'
  ${XP_EXE}${ifs}${START}${args}${ifs}$tool ${ARGS} "$@" &
  PID=$!
  echo "[xpws-$SERVER_PROFILE#$PID] running $ADDR @ $WEB_ROOT - Press <Enter> to exit"
  read enter
  echo "[xpws-$SERVER_PROFILE#$PID] shutting down..."
  kill -TERM $PID
fi
--485:xprt-update.sh:--
#!/bin/sh

DIR=$(dirname "$0")
BIN=$(realpath "$DIR")

if [ -z $TEMP ] ; then
  TARGET=/tmp/.xp
else
  TARGET=$TEMP/.xp
fi

echo "===> Downloading unix runners to $TARGET"
xpi download bin/unix $TARGET
if [ $? != 0 ] ; then
  exit
fi

echo "===> Extracting into $BIN"
i=0
for e in `ls -1 $TARGET/*` ; do
  (head -1 $e | grep '^#!/bin/sh' >/dev/null) && chmod +x $e
  mv $e $BIN
  i=`expr $i + 1`
done
echo "$i file(s) copied"

rmdir $TARGET
echo "===> Done, runners have been updated"
--11339:class-main.php:--
<?php namespace xp;

set_exception_handler(function($e) {
  if ($e instanceof \lang\Throwable) {
    fputs(STDERR, 'Uncaught exception: '.$e->toString());
  } else {
    fputs(STDERR, 'Uncaught exception: '.get_class($e).' ('.$e->getMessage().")\n");
    $stringOf= class_exists('xp', false) ? ['xp', 'stringOf'] : function($val) { return var_export($val, 1); };
    foreach ($e->getTrace() as $trace) {
      fprintf(STDERR,
        "  at %s%s%s(%s) [line %d of %s]\n",
        isset($trace['class']) ? strtr($trace['class'], '\\', '.') : '<main>',
        isset($trace['type']) ? $trace['type'] : '::',
        isset($trace['function']) ? $trace['function'] : '<main>',
        isset($trace['args']) ? implode(', ', array_map($stringOf, $trace['args'])) : '',
        isset($trace['line']) ? $trace['line'] : 0,
        isset($trace['file']) ? basename($trace['file']) : '(unknown)'
      );
    }
  }
  exit(0xff);
});

ini_set('display_errors', 'false');
register_shutdown_function(function() {
  static $types= array(
    E_ERROR         => 'Fatal error',
    E_USER_ERROR    => 'Fatal error',
    E_CORE_ERROR    => 'Core error',
    E_PARSE         => 'Parse error',
    E_COMPILE_ERROR => 'Compile error'
  );

  $e= error_get_last();
  if (null !== $e && isset($types[$e['type']])) {
    if (class_exists('xp', false)) {
      __error($e['type'], $e['message'], $e['file'], $e['line']);
      $stringOf= ['xp', 'stringOf'];
    } else {
      $stringOf= function($val) { return var_export($val, 1); };
    }
    fprintf(
      STDERR,
      "Uncaught error: %s (%s)\n  at <source> [line %d of %s]\n  at <main>(%s) [line 0 of %s]\n",
      $types[$e['type']],
      $e['message'],
      $e['line'],
      str_replace(getcwd(), '.', $e['file']),
      implode(', ', array_map($stringOf, array_slice($_SERVER['argv'], 1))),
      str_replace('.', DIRECTORY_SEPARATOR, $_SERVER['argv'][0]).'.class.php'
    );
  }
});

// Set CLI specific handling
$home= getenv('HOME');
$cwd= '.';

if ('cgi' === PHP_SAPI || 'cgi-fcgi' === PHP_SAPI) {
  ini_set('html_errors', 0);
  define('STDIN', fopen('php://stdin', 'rb'));
  define('STDOUT', fopen('php://stdout', 'wb'));
  define('STDERR', fopen('php://stderr', 'wb'));
} else if ('cli' !== PHP_SAPI) {
  throw new \Exception('[bootstrap] Cannot be run under '.PHP_SAPI.' SAPI');
}

final class xar {
  public
    $position     = 0,
    $archive      = null,
    $filename     = '';
    
  // {{{ proto [:var] acquire(string archive)
  //     Archive instance handling pool function, opens an archive and reads header only once
  static function acquire($archive) {
    static $archives= array();
    static $unpack= array(
      1 => 'a80id/a80*filename/a80*path/V1size/V1offset/a*reserved',
      2 => 'a240id/V1size/V1offset/a*reserved'
    );
    
    if ('/' === $archive{0} && ':' === $archive{2}) {
      $archive= substr($archive, 1);    // Handle xar:///f:/archive.xar => f:/archive.xar
    }

    if (!isset($archives[$archive])) {
      $current= array('handle' => fopen($archive, 'rb'), 'dev' => crc32($archive));
      $header= unpack('a3id/c1version/V1indexsize/a*reserved', fread($current['handle'], 0x0100));
      if ('CCA' != $header['id']) \raise('lang.FormatException', 'Malformed archive '.$archive);
      for ($current['index']= array(), $i= 0; $i < $header['indexsize']; $i++) {
        $entry= unpack(
          $unpack[$header['version']], 
          fread($current['handle'], 0x0100)
        );
        $current['index'][rtrim($entry['id'], "\0")]= array($entry['size'], $entry['offset'], $i);
      }
      $current['offset']= 0x0100 + $i * 0x0100;
      $archives[$archive]= $current;
    }

    return $archives[$archive];
  }
  // }}}
  
  // {{{ proto bool stream_open(string path, string mode, int options, string opened_path)
  //     Open the given stream and check if file exists
  function stream_open($path, $mode, $options, $opened_path) {
    sscanf(strtr($path, ';', '?'), 'xar://%[^?]?%[^$]', $archive, $this->filename);
    $this->archive= self::acquire(urldecode($archive));
    return isset($this->archive['index'][$this->filename]);
  }
  // }}}
  
  // {{{ proto string stream_read(int count)
  //     Read $count bytes up-to-length of file
  function stream_read($count) {
    $f= $this->archive['index'][$this->filename];
    if (0 === $count || $this->position >= $f[0]) return false;

    fseek($this->archive['handle'], $this->archive['offset'] + $f[1] + $this->position, SEEK_SET);
    $bytes= fread($this->archive['handle'], min($f[0] - $this->position, $count));
    $this->position+= strlen($bytes);
    return $bytes;
  }
  // }}}
  
  // {{{ proto bool stream_eof()
  //     Returns whether stream is at end of file
  function stream_eof() {
    return $this->position >= $this->archive['index'][$this->filename][0];
  }
  // }}}
  
  // {{{ proto [:int] stream_stat()
  //     Retrieve status of stream
  function stream_stat() {
    return array(
      'dev'   => $this->archive['dev'],
      'size'  => $this->archive['index'][$this->filename][0],
      'ino'   => $this->archive['index'][$this->filename][2]
    );
  }
  // }}}

  // {{{ proto bool stream_seek(int offset, int whence)
  //     Callback for fseek
  function stream_seek($offset, $whence) {
    switch ($whence) {
      case SEEK_SET: $this->position= $offset; break;
      case SEEK_CUR: $this->position+= $offset; break;
      case SEEK_END: $this->position= $this->archive['index'][$this->filename][0] + $offset; break;
    }
    return true;
  }
  // }}}
  
  // {{{ proto int stream_tell
  //     Callback for ftell
  function stream_tell() {
    return $this->position;
  }
  // }}}
  
  // {{{ proto [:int] url_stat(string path)
  //     Retrieve status of url
  function url_stat($path) {
    sscanf(strtr($path, ';', '?'), 'xar://%[^?]?%[^$]', $archive, $file);
    $current= self::acquire(urldecode($archive));
    return isset($current['index'][$file]) ? array(
      'dev'   => $current['dev'],
      'mode'  => 0100644,
      'size'  => $current['index'][$file][0],
      'ino'   => $current['index'][$file][2]
    ) : false;
  }
  // }}}
}

stream_wrapper_register('xar', 'xp\xar');

function path($in, $bail= true) {
  $qn= realpath($in);
  if (false === $qn) {
    if ($bail) {
      throw new \Exception('[bootstrap] Classpath element ['.$in.'] not found');
    }
    return null;
  } else {
    return is_dir($qn) ? $qn.DIRECTORY_SEPARATOR : $qn;
  }
}

function pathfiles($path) {
  $result= [];
  if ($pr= @opendir($path)) {
    while ($file= readdir($pr)) {
      if (0 !== substr_compare($file, '.pth', -4)) continue;

      foreach (file($path.DIRECTORY_SEPARATOR.$file) as $line) {
        $line= trim($line);
        if ('' === $line || '#' === $line{0}) {
          continue;
        } else {
          $result[]= $line;
        }
      }
    }
    closedir($pr);
  }
  return $result;
}

function scanpath(&$result, $paths, $base, $home) {
  $type= 'local';

  foreach ($paths as $path) {
    if ('' === $path) continue;

    // Handle ? and ! prefixes
    $bail= true;
    $overlay= null;
    if ('!' === $path{0}) {
      $overlay= 'overlay';
      $path= '!' === $path ? '.' : substr($path, 1);
    } else if ('?' === $path{0}) {
      $bail= false;
      $path= substr($path, 1);
    }

    // Expand file path
    if ('~' === $path{0}) {
      $expanded= $home.DIRECTORY_SEPARATOR.substr($path, 1);
    } else if ('/' === $path{0} || '\\' === $path{0} || strlen($path) > 2 && (':' === $path{1} && '\\' === $path{2})) {
      $expanded= $path;
    } else {
      $expanded= $base.DIRECTORY_SEPARATOR.$path;
    }

    // Resolve, check for XP core
    if ($resolved= path($expanded, $bail)) {
      if (null === $result['base']) {
        if (0 === substr_compare($resolved, '.xar', -4)) {
          if (is_file($f= 'xar://'.$resolved.'?__xp.php')) {
            $result['base']= $f;
            $result['core']= array($resolved);
            continue;
          }
        } else {
          if (is_file($f= $resolved.'__xp.php')) {
            $result['base']= $f;
            $type= 'core';
            // The rest of the path file is regarded as belonging to core
          }
        }
      }

      if (0 === substr_compare($resolved, '.php', -4)) {
        $result['files'][]= $resolved;
      } else {
        $result[$overlay ?: $type][]= $resolved;
      }
    }
  }
}
function bootstrap($cwd, $home) {
  $result= array(
    'base'     => null,
    'overlay'  => array(),
    'core'     => array(),
    'local'    => array(),
    'files'    => array()
  );
  $parts= explode(PATH_SEPARATOR.PATH_SEPARATOR, get_include_path());

  // Check local module first
  scanpath($result, pathfiles($cwd), $cwd, $home);

  // We rely classpath always includes "." at the beginning
  if (isset($parts[1])) {
    foreach (explode(PATH_SEPARATOR, substr($parts[1], 2)) as $path) {
      scanpath($result, array($path), $cwd, $home);
    }
  }

  // We rely modules always includes "." at the beginning
  foreach (array_unique(explode(PATH_SEPARATOR, substr($parts[0], 2))) as $path) {
    if ('' === $path) {
      continue;
    } else if ('~' === $path{0}) {
      $path= $home.substr($path, 1);
    }
    scanpath($result, pathfiles($path), $path, $home);
  }

  // Always add current directory
  $result['local'][]= path($cwd);
  return $result;
}
$bootstrap= bootstrap($cwd, $home);

foreach ($bootstrap['files'] as $file) {
  require $file;
}

if (class_exists('xp', false)) {
  foreach ($bootstrap['overlay'] as $path) { \lang\ClassLoader::registerPath($path, true); }
  foreach ($bootstrap['local'] as $path) { \lang\ClassLoader::registerPath($path); }
} else if (isset($bootstrap['base'])) {
  $paths= array_merge($bootstrap['overlay'], $bootstrap['core'], $bootstrap['local']);
  require $bootstrap['base'];
} else {
  throw new \Exception('[bootstrap] Cannot determine boot class path from '.get_include_path());
}

// Start I/O layers
PHP_VERSION < '5.6' && iconv_set_encoding('internal_encoding', \xp::ENCODING);
array_shift($_SERVER['argv']);
array_shift($argv);
if (\xp::ENCODING !== get_cfg_var('encoding')) foreach ($argv as $i => $val) {
  $decoded= iconv('utf-7', \xp::ENCODING, $val);
  $_SERVER['argv'][$i]= $argv[$i]= false === $decoded ? $val : $decoded;
}

$ext= substr($argv[0], -4, 4);
if ('.php' === $ext) {
  if (false === ($uri= realpath($argv[0]))) {
    throw new \Exception('Cannot load '.$argv[0].' - does not exist');
  }
  if (null === ($cl= \lang\ClassLoader::getDefault()->findUri($uri))) {
    throw new \Exception('Cannot load '.$argv[0].' - not in class path');
  }
  $class= $cl->loadUri($uri);
} else if ('.xar' === $ext) {
  if (false === ($uri= realpath($argv[0]))) {
    throw new \Exception('Cannot load '.$argv[0].' - does not exist');
  }
  $cl= \lang\ClassLoader::registerPath($uri);
  if (!$cl->providesResource('META-INF/manifest.ini')) {
    throw new \Exception($cl->toString().' does not provide a manifest');
  }
  $class= $cl->loadClass(parse_ini_string($cl->getResource('META-INF/manifest.ini'))['main-class']);
} else {
  $class= \lang\ClassLoader::getDefault()->loadClass($argv[0]);
}

try {
  exit($class->getMethod('main')->invoke(null, array(array_slice($argv, 1))));
} catch (\lang\SystemExit $e) {
  if ($message= $e->getMessage()) echo $message, "\n";
  exit($e->getCode());
}
--9145:web-main.php:--
<?php namespace xp;

// Set WEB specific handling
$home= getenv('WEB_ROOT') ?: $_SERVER['DOCUMENT_ROOT'].'/..';
$config= ini_get('user_dir') ?: $home.'/etc';
$cwd= $home;

final class xar {
  public
    $position     = 0,
    $archive      = null,
    $filename     = '';
    
  // {{{ proto [:var] acquire(string archive)
  //     Archive instance handling pool function, opens an archive and reads header only once
  static function acquire($archive) {
    static $archives= array();
    static $unpack= array(
      1 => 'a80id/a80*filename/a80*path/V1size/V1offset/a*reserved',
      2 => 'a240id/V1size/V1offset/a*reserved'
    );
    
    if ('/' === $archive{0} && ':' === $archive{2}) {
      $archive= substr($archive, 1);    // Handle xar:///f:/archive.xar => f:/archive.xar
    }

    if (!isset($archives[$archive])) {
      $current= array('handle' => fopen($archive, 'rb'), 'dev' => crc32($archive));
      $header= unpack('a3id/c1version/V1indexsize/a*reserved', fread($current['handle'], 0x0100));
      if ('CCA' != $header['id']) \raise('lang.FormatException', 'Malformed archive '.$archive);
      for ($current['index']= array(), $i= 0; $i < $header['indexsize']; $i++) {
        $entry= unpack(
          $unpack[$header['version']], 
          fread($current['handle'], 0x0100)
        );
        $current['index'][rtrim($entry['id'], "\0")]= array($entry['size'], $entry['offset'], $i);
      }
      $current['offset']= 0x0100 + $i * 0x0100;
      $archives[$archive]= $current;
    }

    return $archives[$archive];
  }
  // }}}
  
  // {{{ proto bool stream_open(string path, string mode, int options, string opened_path)
  //     Open the given stream and check if file exists
  function stream_open($path, $mode, $options, $opened_path) {
    sscanf(strtr($path, ';', '?'), 'xar://%[^?]?%[^$]', $archive, $this->filename);
    $this->archive= self::acquire(urldecode($archive));
    return isset($this->archive['index'][$this->filename]);
  }
  // }}}
  
  // {{{ proto string stream_read(int count)
  //     Read $count bytes up-to-length of file
  function stream_read($count) {
    $f= $this->archive['index'][$this->filename];
    if (0 === $count || $this->position >= $f[0]) return false;

    fseek($this->archive['handle'], $this->archive['offset'] + $f[1] + $this->position, SEEK_SET);
    $bytes= fread($this->archive['handle'], min($f[0] - $this->position, $count));
    $this->position+= strlen($bytes);
    return $bytes;
  }
  // }}}
  
  // {{{ proto bool stream_eof()
  //     Returns whether stream is at end of file
  function stream_eof() {
    return $this->position >= $this->archive['index'][$this->filename][0];
  }
  // }}}
  
  // {{{ proto [:int] stream_stat()
  //     Retrieve status of stream
  function stream_stat() {
    return array(
      'dev'   => $this->archive['dev'],
      'size'  => $this->archive['index'][$this->filename][0],
      'ino'   => $this->archive['index'][$this->filename][2]
    );
  }
  // }}}

  // {{{ proto bool stream_seek(int offset, int whence)
  //     Callback for fseek
  function stream_seek($offset, $whence) {
    switch ($whence) {
      case SEEK_SET: $this->position= $offset; break;
      case SEEK_CUR: $this->position+= $offset; break;
      case SEEK_END: $this->position= $this->archive['index'][$this->filename][0] + $offset; break;
    }
    return true;
  }
  // }}}
  
  // {{{ proto int stream_tell
  //     Callback for ftell
  function stream_tell() {
    return $this->position;
  }
  // }}}
  
  // {{{ proto [:int] url_stat(string path)
  //     Retrieve status of url
  function url_stat($path) {
    sscanf(strtr($path, ';', '?'), 'xar://%[^?]?%[^$]', $archive, $file);
    $current= self::acquire(urldecode($archive));
    return isset($current['index'][$file]) ? array(
      'dev'   => $current['dev'],
      'mode'  => 0100644,
      'size'  => $current['index'][$file][0],
      'ino'   => $current['index'][$file][2]
    ) : false;
  }
  // }}}
}

stream_wrapper_register('xar', 'xp\xar');

function path($in, $bail= true) {
  $qn= realpath($in);
  if (false === $qn) {
    if ($bail) {
      throw new \Exception('[bootstrap] Classpath element ['.$in.'] not found');
    }
    return null;
  } else {
    return is_dir($qn) ? $qn.DIRECTORY_SEPARATOR : $qn;
  }
}

function pathfiles($path) {
  $result= [];
  if ($pr= @opendir($path)) {
    while ($file= readdir($pr)) {
      if (0 !== substr_compare($file, '.pth', -4)) continue;

      foreach (file($path.DIRECTORY_SEPARATOR.$file) as $line) {
        $line= trim($line);
        if ('' === $line || '#' === $line{0}) {
          continue;
        } else {
          $result[]= $line;
        }
      }
    }
    closedir($pr);
  }
  return $result;
}

function scanpath(&$result, $paths, $base, $home) {
  $type= 'local';

  foreach ($paths as $path) {
    if ('' === $path) continue;

    // Handle ? and ! prefixes
    $bail= true;
    $overlay= null;
    if ('!' === $path{0}) {
      $overlay= 'overlay';
      $path= '!' === $path ? '.' : substr($path, 1);
    } else if ('?' === $path{0}) {
      $bail= false;
      $path= substr($path, 1);
    }

    // Expand file path
    if ('~' === $path{0}) {
      $expanded= $home.DIRECTORY_SEPARATOR.substr($path, 1);
    } else if ('/' === $path{0} || '\\' === $path{0} || strlen($path) > 2 && (':' === $path{1} && '\\' === $path{2})) {
      $expanded= $path;
    } else {
      $expanded= $base.DIRECTORY_SEPARATOR.$path;
    }

    // Resolve, check for XP core
    if ($resolved= path($expanded, $bail)) {
      if (null === $result['base']) {
        if (0 === substr_compare($resolved, '.xar', -4)) {
          if (is_file($f= 'xar://'.$resolved.'?__xp.php')) {
            $result['base']= $f;
            $result['core']= array($resolved);
            continue;
          }
        } else {
          if (is_file($f= $resolved.'__xp.php')) {
            $result['base']= $f;
            $type= 'core';
            // The rest of the path file is regarded as belonging to core
          }
        }
      }

      if (0 === substr_compare($resolved, '.php', -4)) {
        $result['files'][]= $resolved;
      } else {
        $result[$overlay ?: $type][]= $resolved;
      }
    }
  }
}
function bootstrap($cwd, $home) {
  $result= array(
    'base'     => null,
    'overlay'  => array(),
    'core'     => array(),
    'local'    => array(),
    'files'    => array()
  );
  $parts= explode(PATH_SEPARATOR.PATH_SEPARATOR, get_include_path());

  // Check local module first
  scanpath($result, pathfiles($cwd), $cwd, $home);

  // We rely classpath always includes "." at the beginning
  if (isset($parts[1])) {
    foreach (explode(PATH_SEPARATOR, substr($parts[1], 2)) as $path) {
      scanpath($result, array($path), $cwd, $home);
    }
  }

  // We rely modules always includes "." at the beginning
  foreach (array_unique(explode(PATH_SEPARATOR, substr($parts[0], 2))) as $path) {
    if ('' === $path) {
      continue;
    } else if ('~' === $path{0}) {
      $path= $home.substr($path, 1);
    }
    scanpath($result, pathfiles($path), $path, $home);
  }

  // Always add current directory
  $result['local'][]= path($cwd);
  return $result;
}
$bootstrap= bootstrap($cwd, $home);

foreach ($bootstrap['files'] as $file) {
  require $file;
}

if (class_exists('xp', false)) {
  foreach ($bootstrap['overlay'] as $path) { \lang\ClassLoader::registerPath($path, true); }
  foreach ($bootstrap['local'] as $path) { \lang\ClassLoader::registerPath($path); }
} else if (isset($bootstrap['base'])) {
  $paths= array_merge($bootstrap['overlay'], $bootstrap['core'], $bootstrap['local']);
  require $bootstrap['base'];
} else {
  throw new \Exception('[bootstrap] Cannot determine boot class path from '.get_include_path());
}

// Set error status to 516 by default - if a fatal error occurs,
// this guarantees to at least send an error code.
switch (PHP_SAPI) {
  case 'cgi': {
    header('Status: 516 Unrecoverable Error');
    break;
  }

  case 'fpm-fcgi': {
    header('HTTP/1.0 516 Unrecoverable Error');
    $_SERVER['SCRIPT_URL']= substr($_SERVER['REQUEST_URI'], 0, strcspn($_SERVER['REQUEST_URI'], '?#'));
    $_SERVER['SERVER_PROFILE']= getenv('SERVER_PROFILE');
    break;
  }

  case 'cli-server': {
    if (is_file($_SERVER['DOCUMENT_ROOT'].$_SERVER['REQUEST_URI'])) {
      return false;
    }
    header('HTTP/1.0 516 Unrecoverable Error');
    $_SERVER['SCRIPT_URL']= substr($_SERVER['REQUEST_URI'], 0, strcspn($_SERVER['REQUEST_URI'], '?#'));
    $_SERVER['SERVER_PROFILE']= getenv('SERVER_PROFILE');
    define('STDIN', fopen('php://stdin', 'rb'));
    define('STDOUT', fopen('php://stdout', 'wb'));
    define('STDERR', fopen('php://stderr', 'wb'));
    break;
  }

  default: {
    header('HTTP/1.0 516 Unrecoverable Error');
    break;
  }
}

ini_set('error_prepend_string', '<xmp>');
ini_set('error_append_string', '</xmp>');
ini_set('html_errors', 0);

try {
  exit(\xp\scriptlet\Runner::main(array($home, $config, $_SERVER['SERVER_PROFILE'], $_SERVER['SCRIPT_URL'])));
} catch (\lang\SystemExit $e) {
  if ($message= $e->getMessage()) echo $message, "\n";
  exit($e->getCode());
}