# HG changeset patch
# User Jean-Francois Pieronne <jf.pieronne@laposte.net>
# Date 1589374148 -7200
#      Wed May 13 14:49:08 2020 +0200
# Branch OpenVMS
# Node ID 7b642a1f1979208438727e637af0c7ac1231c1aa
# Parent  460870e614eb106639a5f385d66721731cd0f47e
Add OpenVMS/startup.com

diff --git a/OpenVMS/startup.com b/OpenVMS/startup.com
new file mode 100644
--- /dev/null
+++ b/OpenVMS/startup.com
@@ -0,0 +1,14 @@
+$ this = f$environment("PROCEDURE")
+$ this_dir = f$parse(this,,,"DEVICE") + f$parse(this,,,"DIRECTORY")
+$ define/system/exec/nolog LIBCJSON 'this_dir'
+$
+$ define/system/exec/nolog CJSONSHR32 LIBCJSON:CJSONshr32.exe
+$ define/system/exec/nolog CJSONSHR64 LIBCJSON:CJSONshr64.exe
+$ 
+$ if .not. f$file_attributes("CJSONshr32","KNOWN")
+$ then
+$   install add 'p1' CJSONSHR32
+$ else
+$   install replace CJSONSHR32
+$ endif
+$