Use roc__ prefix for exposed app functions

cli/tests/fixtures/multi-dep-str/Main.roc

@@ -1,4 +1,4 @@
-app Main provides [ main ] imports [ Dep1 ]
+app "multi-dep-str" imports [ Dep1 ] provides [ main ] to "./platform"
 
 main : Str
 main = Dep1.str1

cli/tests/fixtures/multi-dep-str/platform/Pkg-Config.roc

@@ -1,5 +1,7 @@
-platform roc/quicksort
+platform examples/multi-module
-    provides []
+    requires { main : Str }
-    requires {}
+    exposes []
+    packages {}
     imports []
+    provides [ main ]
     effects Effect {}

cli/tests/fixtures/multi-dep-str/platform/src/lib.rs

@@ -3,7 +3,7 @@ use roc_std::RocStr;
 use std::str;
 
 extern "C" {
-    #[link_name = "Main_main_1_exposed"]
+    #[link_name = "roc__main_1_exposed"]
     fn say_hello(output: &mut RocCallResult<RocStr>) -> ();
 }
 

cli/tests/fixtures/multi-dep-thunk/Main.roc

@@ -1,4 +1,4 @@
-app "test-app" provides [ main ] imports [ Dep1 ]
+app "multi-dep-thunk" imports [ Dep1 ] provides [ main ] to "./platform"
 
 main : Str
 main = Dep1.value1 {}

cli/tests/fixtures/multi-dep-thunk/platform/Pkg-Config.roc

@@ -1,5 +1,7 @@
-platform roc/quicksort
+platform examples/multi-dep-thunk
-    provides []
+    requires { main : Str }
-    requires {}
+    exposes []
+    packages {}
     imports []
+    provides [ main ]
     effects Effect {}

cli/tests/fixtures/multi-dep-thunk/platform/src/lib.rs

@@ -3,7 +3,7 @@ use roc_std::RocStr;
 use std::str;
 
 extern "C" {
-    #[link_name = "Main_main_1_exposed"]
+    #[link_name = "roc__main_1_exposed"]
     fn say_hello(output: &mut RocCallResult<RocStr>) -> ();
 }
 

compiler/gen/src/llvm/build.rs

@@ -1707,7 +1707,8 @@ fn expose_function_to_host<'a, 'ctx, 'env>(
     env: &Env<'a, 'ctx, 'env>,
     roc_function: FunctionValue<'ctx>,
 ) {
-    let c_function_name: String = format!("{}_exposed", roc_function.get_name().to_str().unwrap());
+    let c_function_name: String =
+        format!("roc_{}_exposed", roc_function.get_name().to_str().unwrap());
 
     let result = expose_function_to_host_help(env, roc_function, &c_function_name);
 

examples/closure/platform/Pkg-Config.roc

@@ -1,5 +1,12 @@
-platform roc/quicksort
+platform examples/closure
-    provides []
+    requires { main : Effect {} }
-    requires {}
+    exposes []
+    packages {}
     imports []
-    effects Effect {}
+    provides [ mainForHost ]
+    effects Effect
+        {
+            putChar : Int -> Effect {},
+            putLine : Str -> Effect {},
+            getLine : Effect Str
+        }

examples/effect/platform/Pkg-Config.roc

@@ -1,7 +1,9 @@
 platform folkertdev/foo
-    provides [ mainForHost ]
     requires { main : Effect {} }
+    exposes []
+    packages {}
     imports []
+    provides [ mainForHost ]
     effects Effect
         {
             putChar : Int -> Effect {},

examples/hello-world/platform/Pkg-Config.roc

@@ -1,5 +1,7 @@
-platform roc/quicksort
+platform examples/hello-world
-    provides []
+    requires { main : Str }
-    requires {}
+    exposes []
+    packages {}
     imports []
+    provides [ main ]
     effects Effect {}

examples/hello-world/platform/src/lib.rs

@@ -3,7 +3,7 @@ use roc_std::RocStr;
 use std::str;
 
 extern "C" {
-    #[link_name = "Hello_main_1_exposed"]
+    #[link_name = "roc__main_1_exposed"]
     fn say_hello(output: &mut RocCallResult<RocStr>) -> ();
 }
 

examples/multi-module/platform/Pkg-Config.roc

@@ -1,5 +1,7 @@
-platform roc/quicksort
+platform examples/multi-module
-    provides []
+    requires { quicksort : List (Num a) -> List (Num a) }
-    requires {}
+    exposes []
+    packages {}
     imports []
+    provides [ main ]
     effects Effect {}

examples/multi-module/platform/src/lib.rs

@@ -3,7 +3,7 @@ use roc_std::RocList;
 use std::time::SystemTime;
 
 extern "C" {
-    #[link_name = "Quicksort_quicksort_1_exposed"]
+    #[link_name = "roc__quicksort_1_exposed"]
     fn quicksort(list: RocList<i64>, output: &mut RocCallResult<RocList<i64>>) -> ();
 }
 

examples/quicksort/Quicksort.roc

@@ -1,4 +1,4 @@
-app "quicksort" provides [ main ] to "./platform"
+app "quicksort" provides [ quicksort ] to "./platform"
 
 quicksort = \originalList ->
 

examples/quicksort/platform/Pkg-Config.roc

@@ -1,5 +1,7 @@
-platform roc/quicksort
+platform examples/quicksort
-    provides []
+    requires { quicksort : List (Num a) -> List (Num a) }
-    requires {}
+    exposes []
+    packages {}
     imports []
+    provides [ main ]
     effects Effect {}

examples/quicksort/platform/src/lib.rs

@@ -3,7 +3,7 @@ use roc_std::RocList;
 use std::time::SystemTime;
 
 extern "C" {
-    #[link_name = "Quicksort_quicksort_1_exposed"]
+    #[link_name = "roc__quicksort_1_exposed"]
     fn quicksort(list: RocList<i64>, output: &mut RocCallResult<RocList<i64>>) -> ();
 }
 

examples/shared-quicksort/platform/src/lib.rs

@@ -3,7 +3,7 @@ use roc_std::RocList;
 use std::time::SystemTime;
 
 extern "C" {
-    #[link_name = "Main_quicksort_1_exposed"]
+    #[link_name = "_quicksort_1_exposed"]
     fn quicksort(list: RocList<i64>, output: &mut RocCallResult<RocList<i64>>) -> ();
 }