From 8ddbf4c37b3f5cf68fd35edabeb1a0fac586b915 Mon Sep 17 00:00:00 2001
From: Philip Zembrod <pzembrod@gmail.com>
Date: Wed, 8 Jun 2022 21:02:12 +0200
Subject: [PATCH] Introduce MOUNTPOINT env var in run-in-dosbox.sh

---
 8086/msdos/emulator/run-in-dosbox.sh | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/8086/msdos/emulator/run-in-dosbox.sh b/8086/msdos/emulator/run-in-dosbox.sh
index 8613f8e..332a31e 100755
--- a/8086/msdos/emulator/run-in-dosbox.sh
+++ b/8086/msdos/emulator/run-in-dosbox.sh
@@ -4,6 +4,15 @@ set -e
 
 forth="$1"
 forthcmd="$2"
+pathcmd=""
+if [ -n "${FORTHPATH}" ]; then
+  pathcmd="path ${FORTHPATH}"
+fi
+f_mountpoint="."
+if [ -n "${F_MOUNTPOINT}" ]; then
+  f_mountpoint="${F_MOUNTPOINT}"
+fi
+
 exit=""
 bye=""
 if [ -n "${forthcmd}" ]; then
@@ -18,13 +27,9 @@ fi
 
 auto_c=""
 autocmd=""
-pathcmd=""
 if [ -n "${forth}" ]; then
   auto_c="-c"
-  if [ -n "${FORTHPATH}" ]; then
-    pathcmd="path ${FORTHPATH}"
-  fi
   autocmd="${forth} ${pathcmd} ${forthcmd} ${bye}"
 fi
 
-dosbox -c "mount f ." -c "f:" "${auto_c}" "${autocmd}" $exit
+dosbox -c "mount f ${f_mountpoint}" -c "f:" "${auto_c}" "${autocmd}" $exit