Add private initialization routine for VMS.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@7587 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 52 insertions, 0 deletions

diff --git a/vms/vmsruby_private.c b/vms/vmsruby_private.c
new file mode 100644
index 000000000..c1cbfcebe
--- /dev/null
+++ b/vms/vmsruby_private.c
@@ -0,0 +1,52 @@
+#include "vmsruby_private.h"
+#include <stdio.h>
+#include <stdlib.h>
+
+void _vmsruby_init(void)
+{
+    _vmsruby_set_switch("DECC$WLS", "TRUE");
+}
+
+
+#include <starlet.h>
+#include <string.h>
+#include <descrip.h>
+#include <lnmdef.h>
+
+struct item_list_3 {
+    short buflen;
+    short itmcod;
+    void *bufadr;
+    void *retlen;
+};
+
+long _vmsruby_set_switch(char *name, char *value)
+{
+    long status;
+    struct item_list_3 itemlist[20];
+    int i;
+
+    i = 0;
+    itemlist[i].itmcod = LNM$_STRING;
+    itemlist[i].buflen = strlen(value);
+    itemlist[i].bufadr = value;
+    itemlist[i].retlen = NULL;
+    i++;
+    itemlist[i].itmcod = 0;
+    itemlist[i].buflen = 0;
+
+    $DESCRIPTOR(TABLE_d, "LNM$PROCESS");
+    $DESCRIPTOR(lognam_d, "");
+
+    lognam_d.dsc$a_pointer = name;
+    lognam_d.dsc$w_length  = strlen(name);
+
+    status = sys$crelnm (
+             	 0, 
+             	 &TABLE_d, 
+             	 &lognam_d, 
+             	 0,  /* usermode */
+             	 itemlist);
+
+    return status;
+}