Add private initialization routine for VMS.

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

ChangeLog

@@ -1,3 +1,10 @@
+Fri Dec 17 13:50:00 2004  Akiyoshi, Masamichi (akiyoshi@hp.com)
+
+	* vms/vmsruby_private.c, vms/vmsruby_private.h: private routines 
+	  for VMS port are added.
+
+	* eval.c (ruby_init): change to call VMS private intialization routine.
+
 Fri Dec 17 13:33:58 2004  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* lib/cgi/session.rb (CGI::Session#initialize): control adding

eval.c

@@ -88,6 +88,10 @@ char *strrchr _((const char*,const char));
 #include "macruby_private.h"
 #endif
 
+#ifdef __VMS
+#include "vmsruby_private.h"
+#endif
+
 #ifdef USE_CONTEXT
 typedef struct {
     ucontext_t context;
@@ -1259,6 +1263,8 @@ ruby_init()
 	rb_define_global_const("TOPLEVEL_BINDING", rb_f_binding(ruby_top_self));
 #ifdef __MACOS__
 	_macruby_init();
+#elif defined(__VMS)
+    _vmsruby_init();
 #endif
 	ruby_prog_init();
 	ALLOW_INTS;

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;
+}

vms/vmsruby_private.h

@@ -0,0 +1,7 @@
+#ifndef VMSRUBY_H_INCLUDED
+#define VMSRUBY_H_INCLUDED
+
+void _vmsruby_init(void);
+long _vmsruby_set_switch(char *, char *);
+
+#endif /* VMSRUBY_H_INCLUDED */