From: Michael D. Lowis <mike.lowis@gentex.com>
Date: Wed, 23 Aug 2017 19:43:11 +0000 (-0400)
Subject: combined env prims again and reorganized the project to have a lib folder
X-Git-Url: https://git.mdlowis.com/?a=commitdiff_plain;h=0e6ace6b433a02561530d36e14a4a6c88729de82;p=archive%2Ftide-ocaml.git

combined env prims again and reorganized the project to have a lib folder
---

diff --git a/Makefile b/Makefile
index 67bab47..dffd798 100644
--- a/Makefile
+++ b/Makefile
@@ -15,7 +15,7 @@ else
     MKLIBFLAGS =
     OBJEXT     = cmo
     LIBEXT     = cma
-    OLDFLAGS   =
+    OLDFLAGS   = -dllpath .
 endif
 
 # Target Definitions
@@ -26,20 +26,22 @@ all: tide
 
 clean:
 	$(RM) tide *.cm* *.o *.a *.so
+	$(RM) tide lib/*.cm* lib/*.o
 
-env.$(LIBEXT): env.$(OBJEXT) env_set.o env_get.o env_unset.o
+env.$(LIBEXT): lib/env.$(OBJEXT) lib/env_prims.o
 tide: env.$(LIBEXT) tide.$(OBJEXT)
 
 # Implicit Rule Definitions
 #-------------------------------------------------------------------------------
 %:
-	$(OC) $(OLDFLAGS) -o $@ $^ -I .
+	$(OC) $(OLDFLAGS) -o $@ $^ -I . -I lib
 
 %.$(LIBEXT):
 	$(MKLIB) $(MKLIBFLAGS) $(OCFLAGS) -o $* -oc $* $^
 
 %.$(OBJEXT): %.ml
-	$(OC) $(OCFLAGS) -c -o $@ $^
+	$(OC) $(OCFLAGS) -c -o $@ $^ -I lib
 
 %.o: %.c
-	$(OC) $(OCFLAGS) -c -o $@ $^
+	$(OC) $(OCFLAGS) -c $^
+	mv $(notdir $@) $(dir $@)
diff --git a/env_get.c b/env_get.c
deleted file mode 100644
index 2f6f427..0000000
--- a/env_get.c
+++ /dev/null
@@ -1,12 +0,0 @@
-#include <curses.h>
-#include <caml/mlvalues.h>
-#include <caml/memory.h>
-#include <caml/alloc.h>
-#include <caml/custom.h>
-#include <stdlib.h>
-
-CAMLprim value env_get(value var) {
-    CAMLparam1(var);
-    puts("bar");
-    CAMLreturn(caml_copy_string(""));
-}
diff --git a/env_unset.c b/env_unset.c
deleted file mode 100644
index 88646ef..0000000
--- a/env_unset.c
+++ /dev/null
@@ -1,12 +0,0 @@
-#include <curses.h>
-#include <caml/mlvalues.h>
-#include <caml/memory.h>
-#include <caml/alloc.h>
-#include <caml/custom.h>
-#include <stdlib.h>
-
-CAMLprim value env_unset(value var) {
-    CAMLparam1(var);
-    puts("baz");
-    CAMLreturn(Val_int(0));
-}
diff --git a/env.ml b/lib/env.ml
similarity index 100%
rename from env.ml
rename to lib/env.ml
diff --git a/env_set.c b/lib/env_prims.c
similarity index 54%
rename from env_set.c
rename to lib/env_prims.c
index 5c0a9d5..f08dfae 100644
--- a/env_set.c
+++ b/lib/env_prims.c
@@ -5,8 +5,20 @@
 #include <caml/custom.h>
 #include <stdlib.h>
 
+CAMLprim value env_get(value var) {
+    CAMLparam1(var);
+    puts("bar");
+    CAMLreturn(caml_copy_string(""));
+}
+
 CAMLprim value env_set(value var, value val) {
     CAMLparam2(var, val);
     puts("foo");
     CAMLreturn(Val_int(0));
 }
+
+CAMLprim value env_unset(value var) {
+    CAMLparam1(var);
+    puts("baz");
+    CAMLreturn(Val_int(0));
+}