display

Author: dezren39

pkgs/roc/applications/display/go/Lib

@@ -0,0 +1 @@
+../../../lib

pkgs/roc/applications/display/go/libapp.so

@@ -0,0 +1,10 @@
+app [main] {
+  pf: platform "../../../platforms/go/main.roc"
+}
+import Lib.Display as Display
+main : Str
+main = Display.str [
+  ["Roc", "<3", "Go", "!", "!", "!"],
+  ["This", "is", "a", "Roc", "application", "running", "on", "Go."],
+  ["It", "imports", "a", "Roc", "module", "and", "calls", "a", "function", "from", "it."],
+]

pkgs/roc/applications/display/go/main

@@ -0,0 +1,5 @@
+module [str]
+str : List (List Str) -> Str
+str = |lines| lines
+  |> List.map (\ws -> Str.join_with(ws, " "))
+  |> Str.join_with("\n")

pkgs/roc/applications/display/go/main.roc

@@ -0,0 +1 @@
+../../lib

pkgs/roc/applications/hello/go/main

@@ -34,11 +34,24 @@ while true; do
   --help) usage ;;
   --)
     shift
+    # break
+    ;;
+  # *) usage ;;
+  *)
+    if [ -z "$1" ]; then
+      usage
+    fi
+    application=$1
+    if [ "$#" -lt 2 ]; then
+      break
+    fi
+    platform=$1
     break
     ;;
-  *) usage ;;
   esac
 done
+platform=${platform:-go}
+application=${application:-hello}
 
 platform_path=${PLATFORM_PATH:-platforms/${platform}}
 app_path=${APPLICATION_PATH:-applications/${application}/${platform}}
@@ -48,10 +61,10 @@ app_path=${APPLICATION_PATH:-applications/${application}/${platform}}
     echo "missing dirs: $platform_path or $app_path"
     exit 1
   }
-if [ -z "$platform_path/Lib" ]; then
+if [ ! -d "$platform_path/Lib" ]; then
   ln -s ../../lib "$platform_path/Lib"
 fi
-if [ -z "$app_path/Lib" ]; then
+if [ ! -d "$app_path/Lib" ]; then
   ln -s ../../../lib "$app_path/Lib"
 fi
 app_main=$app_path/main.roc