* 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.


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

ChangeLog

@@ -1,3 +1,10 @@
+Thu May 26 08:29:19 2005  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.
+
 Thu May 26 07:39:07 2005  Minero Aoki  <aamine@loveruby.net>
 
 	* lib/fileutils.rb (rm_r): use lchown(2), not chown(2).
@@ -24,7 +31,7 @@ Wed May 25 20:06:27 2005  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tk/lib/tk.rb: TkComm#tk_split_*list fail to split a kind of SJIS
 	  strings. To avoid the trouble, add arguments to control converting
-	  encoding, and do split on a UTF8 string. 
+	  encoding, and do split on a UTF8 string.
 
 	* ext/tk/lib/multi-tk.rb: modify to attend encoding.
 
@@ -56,7 +63,7 @@ Wed May 25 20:06:27 2005  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 	  Tk#lower_window/raise_window by reason of method-name conflict
 
 	* ext/tk/lib/tk/canvas.rb: bug fix on TkCanvas#delete when given
-	  non-TkcItem arguments. 
+	  non-TkcItem arguments.
 
 	* ext/tk/lib/tkextlib/iwidgets/scrolledcanvas.rb: ditto.
 
@@ -66,7 +73,7 @@ Wed May 25 19:48:12 2005  Minero Aoki  <aamine@loveruby.net>
 
 Wed May 25 12:59:48 2005  Tanaka Akira  <akr@m17n.org>
 
-	* lib/open-uri.rb (OpenURI::Meta::RE_QUOTED_STRING): a content of 
+	* lib/open-uri.rb (OpenURI::Meta::RE_QUOTED_STRING): a content of
 	  quoted-string should be zero or more characters.
 
 Tue May 24 23:42:16 2005  Yukihiro Matsumoto  <matz@ruby-lang.org>

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;
@@ -1315,6 +1319,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 */