Update set_depot_load_path in the embedding wrapper

Also get the test working.

Author: kpamnany

examples/MyApp/src/MyApp.jl

@@ -38,6 +38,14 @@ function real_main()
     @show Base.PROGRAM_FILE
     @show DEPOT_PATH
     @show LOAD_PATH
+    try
+    @show ENV["JULIA_DEPOT_PATH"]
+    catch
+    end
+    try
+    @show ENV["JULIA_LOAD_PATH"]
+    catch
+    end
     @show pwd()
     @show Base.active_project()
     @show Sys.BINDIR

src/embedding_wrapper.c

@@ -37,22 +37,45 @@ jl_value_t *checked_eval_string(const char *code) {
 
 void set_depot_load_path(const char *root_dir) {
 #ifdef _WIN32
+    char *path_sep = ";";
     char *julia_share_subdir = "\\share\\julia";
 #else
+    char *path_sep = ":";
     char *julia_share_subdir = "/share/julia";
 #endif
-    char *share_dir =
-        calloc(sizeof(char), strlen(root_dir) + strlen(julia_share_subdir) + 1);
-    strcat(share_dir, root_dir);
-    strcat(share_dir, julia_share_subdir);
+    int share_path_len = strlen(root_dir) + strlen(julia_share_subdir) + 1;
+
+    char *curr_depot_path = getenv("JULIA_DEPOT_PATH");
+    int curr_depot_path_len = curr_depot_path == NULL ? 0 : strlen(curr_depot_path);
+    int new_depot_path_len = curr_depot_path_len + 1 + share_path_len;
+    char *new_depot_path = calloc(sizeof (char), new_depot_path_len);
+    if (curr_depot_path_len > 0) {
+        strcat(new_depot_path, curr_depot_path);
+        strcat(new_depot_path, path_sep);
+    }
+    strcat(new_depot_path, root_dir);
+    strcat(new_depot_path, julia_share_subdir);
+
+    char *curr_load_path = getenv("JULIA_LOAD_PATH");
+    int curr_load_path_len = curr_load_path == NULL ? 0 : strlen(curr_load_path);
+    int new_load_path_len = curr_load_path_len + 1 + share_path_len;
+    char *new_load_path = calloc(sizeof (char), new_load_path_len);
+    if (curr_load_path_len > 0) {
+        strcat(new_load_path, curr_load_path);
+        strcat(new_load_path, path_sep);
+    }
+    strcat(new_load_path, root_dir);
+    strcat(new_load_path, julia_share_subdir);
 
 #ifdef _WIN32
-    _putenv_s("JULIA_DEPOT_PATH", share_dir);
-    _putenv_s("JULIA_LOAD_PATH", share_dir);
+    _putenv_s("JULIA_DEPOT_PATH", new_depot_path);
+    _putenv_s("JULIA_LOAD_PATH", new_load_path);
 #else
-    setenv("JULIA_DEPOT_PATH", share_dir, 1);
-    setenv("JULIA_LOAD_PATH", share_dir, 1);
+    setenv("JULIA_DEPOT_PATH", new_depot_path, 1);
+    setenv("JULIA_LOAD_PATH", new_load_path, 1);
 #endif
+    free(new_load_path);
+    free(new_depot_path);
 }
 
 // main function (windows UTF16 -> UTF8 argument conversion code copied from