#!/bin/sh

PATH=./mpich32/bin:$PATH; export PATH
LD_LIBRARY_PATH=./mpich32/lib:$LD_LIBRARY_PATH; export LD_LIBRARY_PATH

mpiexec -n 5 bbcb $@

#!/bin/sh

pd="/usr/lib/blackbox"
sd=`readlink -f .`

env \
   BB_PRIMARY_DIR="${pd}" BB_SECONDARY_DIR="${sd}" \
   "${pd}"/blackbox

env \
   BB_PRIMARY_DIR="${pd}" BB_SECONDARY_D1R="${sd}" \
   "${pd}"/blackbox

./blackbox --BB_PRIMARY_DIR="." --BB_SECONDARY_DIR="/home/dia"

bbcb --BB_SECONDARY_DIR="/home/dia"

(** Args -- access to program arguments and evironment *)
MODULE Args;

(** argc -- number of arguments *)
VAR argc-: INTEGER;

(** GetArg -- fetch an argument into a string buffer *)
PROCEDURE GetArg*(n: INTEGER; VAR s: ARRAY OF CHAR) IS "Args_GetArg";
(* CODE
     const char *t = (0 <= args[0].i && args[0].i < saved_argc ?
               saved_argv[args[0].i] : "");
     obcopy((char * ) args[1].x, t, args[2].i); *)

(** GetEnv -- fetch an environment variable into a string buffer *)
PROCEDURE GetEnv*(name: ARRAY OF CHAR; VAR s: ARRAY OF CHAR) IS "Args_GetEnv";
(* CODE
     const char *t = getenv((char * ) args[0].x);
     if (t == NULL) t = "";
     obcopy((char * ) args[2].x, t, args[3].i); *)

PROCEDURE SetArgc(VAR ac: INTEGER) IS "Args_SetArgc";
(* CODE ( *(args[0].p)).i = saved_argc; *)

BEGIN
  SetArgc(argc)
END Args.

#!/bin/sh
wine '/home/dia/oberon/blackbox/BlackBox.exe' /USE "`winepath -w "$PWD"`" $* &

#!/bin/sh
wine '/home/dia/oberon/blackbox/BlackBox.exe' -use "`winepath -w "$PWD"`" $* &

(* File for specifying command line options *)
cmdLinePath = "System/Rsrc";
cmdLineFile = "CommandLine.txt";