1 /* vi:set ts=8 sts=4 sw=4:
3 * VIM - Vi IMproved by Bram Moolenaar
5 * Ruby interface by Shugo Maeda
6 * with improvements by SegPhault (Ryan Paul)
8 * Do ":help uganda" in Vim to read copying and usage conditions.
9 * Do ":help credits" in Vim to see a list of people who contributed.
10 * See README.txt for an overview of the Vim source code.
17 # if !defined(DYNAMIC_RUBY_VER) || (DYNAMIC_RUBY_VER < 18)
21 # define IMPORT /* For static dll usage __declspec(dllimport) */
22 # define RUBYEXTERN __declspec(dllimport)
26 # define RUBYEXTERN extern
30 * This is tricky. In ruby.h there is (inline) function rb_class_of()
31 * definition. This function use these variables. But we want function to
32 * use dll_* variables.
35 # define rb_cFalseClass (*dll_rb_cFalseClass)
36 # define rb_cFixnum (*dll_rb_cFixnum)
37 # define rb_cNilClass (*dll_rb_cNilClass)
38 # define rb_cSymbol (*dll_rb_cSymbol)
39 # define rb_cTrueClass (*dll_rb_cTrueClass)
40 # if defined(DYNAMIC_RUBY_VER) && DYNAMIC_RUBY_VER >= 18
42 * On ver 1.8, all Ruby functions are exported with "__declspce(dllimport)"
43 * in ruby.h. But it cause trouble for these variables, because it is
44 * defined in this file. When defined this RUBY_EXPORT it modified to
45 * "extern" and be able to avoid this problem.
51 /* suggested by Ariya Mizutani */
52 #if (_MSC_VER == 1200)
57 #if defined(RUBY_VERSION) && RUBY_VERSION >= 19
58 # include <ruby/encoding.h>
64 /* T_DATA defined both by Ruby and Mac header files, hack around it... */
65 #if defined(MACOS_X_UNIX) || defined(macintosh)
66 # define __OPENTRANSPORT__
67 # define __OPENTRANSPORTPROTOCOL__
68 # define __OPENTRANSPORTPROVIDERS__
72 * Backward compatiblity for Ruby 1.8 and earlier.
73 * Ruby 1.9 does not provide STR2CSTR, instead StringValuePtr is provided.
74 * Ruby 1.9 does not provide RXXX(s)->len and RXXX(s)->ptr, instead
75 * RXXX_LEN(s) and RXXX_PTR(s) are provided.
77 #ifndef StringValuePtr
78 # define StringValuePtr(s) STR2CSTR(s)
81 # define RARRAY_LEN(s) RARRAY(s)->len
84 # define RARRAY_PTR(s) RARRAY(s)->ptr
87 # define RSTRING_LEN(s) RSTRING(s)->len
90 # define RSTRING_PTR(s) RSTRING(s)->ptr
96 #if defined(PROTO) && !defined(FEAT_RUBY)
97 /* Define these to be able to generate the function prototypes. */
99 # define RUBY_DATA_FUNC int
102 static int ruby_initialized
= 0;
106 static VALUE cBuffer
;
107 static VALUE cVimWindow
;
108 static VALUE eDeletedBufferError
;
109 static VALUE eDeletedWindowError
;
111 static int ensure_ruby_initialized(void);
112 static void error_print(int);
113 static void ruby_io_init(void);
114 static void ruby_vim_init(void);
116 #if defined(DYNAMIC_RUBY) || defined(PROTO)
118 # define HINSTANCE int /* for generating prototypes */
124 #define rb_assoc_new dll_rb_assoc_new
125 #define rb_cObject (*dll_rb_cObject)
126 #define rb_check_type dll_rb_check_type
127 #define rb_class_path dll_rb_class_path
128 #define rb_data_object_alloc dll_rb_data_object_alloc
129 #define rb_define_class_under dll_rb_define_class_under
130 #define rb_define_const dll_rb_define_const
131 #define rb_define_global_function dll_rb_define_global_function
132 #define rb_define_method dll_rb_define_method
133 #define rb_define_module dll_rb_define_module
134 #define rb_define_module_function dll_rb_define_module_function
135 #define rb_define_singleton_method dll_rb_define_singleton_method
136 #define rb_define_virtual_variable dll_rb_define_virtual_variable
137 #define rb_stdout (*dll_rb_stdout)
138 #define rb_eArgError (*dll_rb_eArgError)
139 #define rb_eIndexError (*dll_rb_eIndexError)
140 #define rb_eRuntimeError (*dll_rb_eRuntimeError)
141 #define rb_eStandardError (*dll_rb_eStandardError)
142 #define rb_eval_string_protect dll_rb_eval_string_protect
143 #define rb_global_variable dll_rb_global_variable
144 #define rb_hash_aset dll_rb_hash_aset
145 #define rb_hash_new dll_rb_hash_new
146 #define rb_inspect dll_rb_inspect
147 #define rb_int2inum dll_rb_int2inum
148 #define rb_lastline_get dll_rb_lastline_get
149 #define rb_lastline_set dll_rb_lastline_set
150 #define rb_load_protect dll_rb_load_protect
151 #define rb_num2long dll_rb_num2long
152 #define rb_num2ulong dll_rb_num2ulong
153 #define rb_obj_alloc dll_rb_obj_alloc
154 #define rb_obj_as_string dll_rb_obj_as_string
155 #define rb_obj_id dll_rb_obj_id
156 #define rb_raise dll_rb_raise
157 #define rb_str2cstr dll_rb_str2cstr
158 #define rb_str_cat dll_rb_str_cat
159 #define rb_str_concat dll_rb_str_concat
160 #define rb_str_new dll_rb_str_new
161 #define rb_str_new2 dll_rb_str_new2
162 #if defined(RUBY_VERSION) && RUBY_VERSION >= 19
163 # define rb_errinfo dll_rb_errinfo
165 # define ruby_errinfo (*dll_ruby_errinfo)
167 #define ruby_init dll_ruby_init
168 #define ruby_init_loadpath dll_ruby_init_loadpath
169 #define NtInitialize dll_NtInitialize
170 #if defined(DYNAMIC_RUBY_VER) && DYNAMIC_RUBY_VER >= 18
171 # define rb_w32_snprintf dll_rb_w32_snprintf
174 #if defined(RUBY_VERSION) && RUBY_VERSION >= 19
175 # define ruby_script dll_ruby_script
176 # define rb_enc_find_index dll_rb_enc_find_index
177 # define rb_enc_find dll_rb_enc_find
178 # define rb_enc_str_new dll_rb_enc_str_new
179 # define rb_sprintf dll_rb_sprintf
183 * Pointers for dynamic link
185 static VALUE (*dll_rb_assoc_new
) (VALUE
, VALUE
);
186 static VALUE
*dll_rb_cFalseClass
;
187 static VALUE
*dll_rb_cFixnum
;
188 static VALUE
*dll_rb_cNilClass
;
189 static VALUE
*dll_rb_cObject
;
190 static VALUE
*dll_rb_cSymbol
;
191 static VALUE
*dll_rb_cTrueClass
;
192 static void (*dll_rb_check_type
) (VALUE
,int);
193 static VALUE (*dll_rb_class_path
) (VALUE
);
194 static VALUE (*dll_rb_data_object_alloc
) (VALUE
, void*, RUBY_DATA_FUNC
, RUBY_DATA_FUNC
);
195 static VALUE (*dll_rb_define_class_under
) (VALUE
, const char*, VALUE
);
196 static void (*dll_rb_define_const
) (VALUE
,const char*,VALUE
);
197 static void (*dll_rb_define_global_function
) (const char*,VALUE(*)(),int);
198 static void (*dll_rb_define_method
) (VALUE
,const char*,VALUE(*)(),int);
199 static VALUE (*dll_rb_define_module
) (const char*);
200 static void (*dll_rb_define_module_function
) (VALUE
,const char*,VALUE(*)(),int);
201 static void (*dll_rb_define_singleton_method
) (VALUE
,const char*,VALUE(*)(),int);
202 static void (*dll_rb_define_virtual_variable
) (const char*,VALUE(*)(),void(*)());
203 static VALUE
*dll_rb_stdout
;
204 static VALUE
*dll_rb_eArgError
;
205 static VALUE
*dll_rb_eIndexError
;
206 static VALUE
*dll_rb_eRuntimeError
;
207 static VALUE
*dll_rb_eStandardError
;
208 static VALUE (*dll_rb_eval_string_protect
) (const char*, int*);
209 static void (*dll_rb_global_variable
) (VALUE
*);
210 static VALUE (*dll_rb_hash_aset
) (VALUE
, VALUE
, VALUE
);
211 static VALUE (*dll_rb_hash_new
) (void);
212 static VALUE (*dll_rb_inspect
) (VALUE
);
213 static VALUE (*dll_rb_int2inum
) (long);
214 static VALUE (*dll_rb_int2inum
) (long);
215 static VALUE (*dll_rb_lastline_get
) (void);
216 static void (*dll_rb_lastline_set
) (VALUE
);
217 static void (*dll_rb_load_protect
) (VALUE
, int, int*);
218 static long (*dll_rb_num2long
) (VALUE
);
219 static unsigned long (*dll_rb_num2ulong
) (VALUE
);
220 static VALUE (*dll_rb_obj_alloc
) (VALUE
);
221 static VALUE (*dll_rb_obj_as_string
) (VALUE
);
222 static VALUE (*dll_rb_obj_id
) (VALUE
);
223 static void (*dll_rb_raise
) (VALUE
, const char*, ...);
224 static char *(*dll_rb_str2cstr
) (VALUE
,int*);
225 static VALUE (*dll_rb_str_cat
) (VALUE
, const char*, long);
226 static VALUE (*dll_rb_str_concat
) (VALUE
, VALUE
);
227 static VALUE (*dll_rb_str_new
) (const char*, long);
228 static VALUE (*dll_rb_str_new2
) (const char*);
229 #if defined(RUBY_VERSION) && RUBY_VERSION >= 19
230 static VALUE (*dll_rb_errinfo
) (void);
232 static VALUE
*dll_ruby_errinfo
;
234 static void (*dll_ruby_init
) (void);
235 static void (*dll_ruby_init_loadpath
) (void);
236 static void (*dll_NtInitialize
) (int*, char***);
237 #if defined(DYNAMIC_RUBY_VER) && DYNAMIC_RUBY_VER >= 18
238 static int (*dll_rb_w32_snprintf
)(char*, size_t, const char*, ...);
241 #if defined(RUBY_VERSION) && RUBY_VERSION >= 19
242 static void (*dll_ruby_script
) (const char*);
243 static int (*dll_rb_enc_find_index
) (const char*);
244 static rb_encoding
* (*dll_rb_enc_find
) (const char*);
245 static VALUE (*dll_rb_enc_str_new
) (const char*, long, rb_encoding
*);
246 static VALUE (*dll_rb_sprintf
) (const char*, ...);
249 static HINSTANCE hinstRuby
= 0; /* Instance of ruby.dll */
252 * Table of name to function pointer of ruby.
254 #define RUBY_PROC FARPROC
259 } ruby_funcname_table
[] =
261 {"rb_assoc_new", (RUBY_PROC
*)&dll_rb_assoc_new
},
262 {"rb_cFalseClass", (RUBY_PROC
*)&dll_rb_cFalseClass
},
263 {"rb_cFixnum", (RUBY_PROC
*)&dll_rb_cFixnum
},
264 {"rb_cNilClass", (RUBY_PROC
*)&dll_rb_cNilClass
},
265 {"rb_cObject", (RUBY_PROC
*)&dll_rb_cObject
},
266 {"rb_cSymbol", (RUBY_PROC
*)&dll_rb_cSymbol
},
267 {"rb_cTrueClass", (RUBY_PROC
*)&dll_rb_cTrueClass
},
268 {"rb_check_type", (RUBY_PROC
*)&dll_rb_check_type
},
269 {"rb_class_path", (RUBY_PROC
*)&dll_rb_class_path
},
270 {"rb_data_object_alloc", (RUBY_PROC
*)&dll_rb_data_object_alloc
},
271 {"rb_define_class_under", (RUBY_PROC
*)&dll_rb_define_class_under
},
272 {"rb_define_const", (RUBY_PROC
*)&dll_rb_define_const
},
273 {"rb_define_global_function", (RUBY_PROC
*)&dll_rb_define_global_function
},
274 {"rb_define_method", (RUBY_PROC
*)&dll_rb_define_method
},
275 {"rb_define_module", (RUBY_PROC
*)&dll_rb_define_module
},
276 {"rb_define_module_function", (RUBY_PROC
*)&dll_rb_define_module_function
},
277 {"rb_define_singleton_method", (RUBY_PROC
*)&dll_rb_define_singleton_method
},
278 {"rb_define_virtual_variable", (RUBY_PROC
*)&dll_rb_define_virtual_variable
},
279 {"rb_stdout", (RUBY_PROC
*)&dll_rb_stdout
},
280 {"rb_eArgError", (RUBY_PROC
*)&dll_rb_eArgError
},
281 {"rb_eIndexError", (RUBY_PROC
*)&dll_rb_eIndexError
},
282 {"rb_eRuntimeError", (RUBY_PROC
*)&dll_rb_eRuntimeError
},
283 {"rb_eStandardError", (RUBY_PROC
*)&dll_rb_eStandardError
},
284 {"rb_eval_string_protect", (RUBY_PROC
*)&dll_rb_eval_string_protect
},
285 {"rb_global_variable", (RUBY_PROC
*)&dll_rb_global_variable
},
286 {"rb_hash_aset", (RUBY_PROC
*)&dll_rb_hash_aset
},
287 {"rb_hash_new", (RUBY_PROC
*)&dll_rb_hash_new
},
288 {"rb_inspect", (RUBY_PROC
*)&dll_rb_inspect
},
289 {"rb_int2inum", (RUBY_PROC
*)&dll_rb_int2inum
},
290 {"rb_lastline_get", (RUBY_PROC
*)&dll_rb_lastline_get
},
291 {"rb_lastline_set", (RUBY_PROC
*)&dll_rb_lastline_set
},
292 {"rb_load_protect", (RUBY_PROC
*)&dll_rb_load_protect
},
293 {"rb_num2long", (RUBY_PROC
*)&dll_rb_num2long
},
294 {"rb_num2ulong", (RUBY_PROC
*)&dll_rb_num2ulong
},
295 {"rb_obj_alloc", (RUBY_PROC
*)&dll_rb_obj_alloc
},
296 {"rb_obj_as_string", (RUBY_PROC
*)&dll_rb_obj_as_string
},
297 {"rb_obj_id", (RUBY_PROC
*)&dll_rb_obj_id
},
298 {"rb_raise", (RUBY_PROC
*)&dll_rb_raise
},
299 {"rb_str2cstr", (RUBY_PROC
*)&dll_rb_str2cstr
},
300 {"rb_str_cat", (RUBY_PROC
*)&dll_rb_str_cat
},
301 {"rb_str_concat", (RUBY_PROC
*)&dll_rb_str_concat
},
302 {"rb_str_new", (RUBY_PROC
*)&dll_rb_str_new
},
303 {"rb_str_new2", (RUBY_PROC
*)&dll_rb_str_new2
},
304 #if defined(RUBY_VERSION) && RUBY_VERSION >= 19
305 {"rb_errinfo", (RUBY_PROC
*)&dll_rb_errinfo
},
307 {"ruby_errinfo", (RUBY_PROC
*)&dll_ruby_errinfo
},
309 {"ruby_init", (RUBY_PROC
*)&dll_ruby_init
},
310 {"ruby_init_loadpath", (RUBY_PROC
*)&dll_ruby_init_loadpath
},
311 {"NtInitialize", (RUBY_PROC
*)&dll_NtInitialize
},
312 #if defined(DYNAMIC_RUBY_VER) && DYNAMIC_RUBY_VER >= 18
313 {"rb_w32_snprintf", (RUBY_PROC
*)&dll_rb_w32_snprintf
},
315 #if defined(RUBY_VERSION) && RUBY_VERSION >= 19
316 {"ruby_script", (RUBY_PROC
*)&dll_ruby_script
},
317 {"rb_enc_find_index", (RUBY_PROC
*)&dll_rb_enc_find_index
},
318 {"rb_enc_find", (RUBY_PROC
*)&dll_rb_enc_find
},
319 {"rb_enc_str_new", (RUBY_PROC
*)&dll_rb_enc_str_new
},
320 {"rb_sprintf", (RUBY_PROC
*)&dll_rb_sprintf
},
333 FreeLibrary(hinstRuby
);
339 * Load library and get all pointers.
340 * Parameter 'libname' provides name of DLL.
344 ruby_runtime_link_init(char *libname
, int verbose
)
350 hinstRuby
= LoadLibrary(libname
);
354 EMSG2(_(e_loadlib
), libname
);
358 for (i
= 0; ruby_funcname_table
[i
].ptr
; ++i
)
360 if (!(*ruby_funcname_table
[i
].ptr
= GetProcAddress(hinstRuby
,
361 ruby_funcname_table
[i
].name
)))
363 FreeLibrary(hinstRuby
);
366 EMSG2(_(e_loadfunc
), ruby_funcname_table
[i
].name
);
374 * If ruby is enabled (there is installed ruby on Windows system) return TRUE,
378 ruby_enabled(verbose
)
381 return ruby_runtime_link_init(DYNAMIC_RUBY_DLL
, verbose
) == OK
;
383 #endif /* defined(DYNAMIC_RUBY) || defined(PROTO) */
393 void ex_ruby(exarg_T
*eap
)
398 script
= (char *)script_get(eap
, eap
->arg
);
399 if (!eap
->skip
&& ensure_ruby_initialized())
402 rb_eval_string_protect((char *)eap
->arg
, &state
);
404 rb_eval_string_protect(script
, &state
);
412 * In Ruby 1.9 or later, ruby String object has encoding.
413 * conversion buffer string of vim to ruby String object using
414 * VIM encoding option.
417 vim_str2rb_enc_str(const char *s
)
419 #if defined(RUBY_VERSION) && RUBY_VERSION >= 19
425 isnum
= get_option_value((char_u
*)"enc", &lval
, &sval
, 0);
428 enc
= rb_enc_find((char *)sval
);
431 return rb_enc_str_new(s
, strlen(s
), enc
);
435 return rb_str_new2(s
);
439 eval_enc_string_protect(const char *str
, int *state
)
441 #if defined(RUBY_VERSION) && RUBY_VERSION >= 19
448 isnum
= get_option_value((char_u
*)"enc", &lval
, &sval
, 0);
451 enc
= rb_enc_find((char *)sval
);
455 v
= rb_sprintf("#-*- coding:%s -*-\n%s", rb_enc_name(enc
), str
);
456 return rb_eval_string_protect(StringValuePtr(v
), state
);
460 return rb_eval_string_protect(str
, state
);
463 void ex_rubydo(exarg_T
*eap
)
468 if (ensure_ruby_initialized())
470 if (u_save(eap
->line1
- 1, eap
->line2
+ 1) != OK
)
472 for (i
= eap
->line1
; i
<= eap
->line2
; i
++) {
475 line
= oldline
= vim_str2rb_enc_str((char *)ml_get(i
));
476 rb_lastline_set(line
);
477 eval_enc_string_protect((char *) eap
->arg
, &state
);
482 line
= rb_lastline_get();
484 if (TYPE(line
) != T_STRING
) {
485 EMSG(_("E265: $_ must be an instance of String"));
488 ml_replace(i
, (char_u
*) StringValuePtr(line
), 1);
491 syn_changed(i
); /* recompute syntax hl. for this line */
496 update_curbuf(NOT_VALID
);
500 void ex_rubyfile(exarg_T
*eap
)
504 if (ensure_ruby_initialized())
506 rb_load_protect(rb_str_new2((char *) eap
->arg
), 0, &state
);
507 if (state
) error_print(state
);
511 void ruby_buffer_free(buf_T
*buf
)
515 rb_hash_aset(objtbl
, rb_obj_id((VALUE
) buf
->b_ruby_ref
), Qnil
);
516 RDATA(buf
->b_ruby_ref
)->data
= NULL
;
520 void ruby_window_free(win_T
*win
)
524 rb_hash_aset(objtbl
, rb_obj_id((VALUE
) win
->w_ruby_ref
), Qnil
);
525 RDATA(win
->w_ruby_ref
)->data
= NULL
;
529 static int ensure_ruby_initialized(void)
531 if (!ruby_initialized
)
534 if (ruby_enabled(TRUE
))
538 /* suggested by Ariya Mizutani */
540 char *argv
[] = {"gvim.exe"};
541 NtInitialize(&argc
, &argv
);
543 #if defined(RUBY_VERSION) && RUBY_VERSION >= 19
547 #if defined(RUBY_VERSION) && RUBY_VERSION >= 19
548 ruby_script("vim-ruby");
550 ruby_init_loadpath();
552 #if defined(RUBY_VERSION) && RUBY_VERSION >= 19
553 rb_enc_find_index("encdb");
556 ruby_initialized
= 1;
561 EMSG(_("E266: Sorry, this command is disabled, the Ruby library could not be loaded."));
566 return ruby_initialized
;
569 static void error_print(int state
)
572 #if !(defined(RUBY_VERSION) && RUBY_VERSION >= 19)
573 RUBYEXTERN VALUE ruby_errinfo
;
580 #define TAG_RETURN 0x1
581 #define TAG_BREAK 0x2
583 #define TAG_RETRY 0x4
585 #define TAG_RAISE 0x6
586 #define TAG_THROW 0x7
587 #define TAG_FATAL 0x8
592 EMSG(_("E267: unexpected return"));
595 EMSG(_("E268: unexpected next"));
598 EMSG(_("E269: unexpected break"));
601 EMSG(_("E270: unexpected redo"));
604 EMSG(_("E271: retry outside of rescue clause"));
608 #if defined(RUBY_VERSION) && RUBY_VERSION >= 19
609 eclass
= CLASS_OF(rb_errinfo());
610 einfo
= rb_obj_as_string(rb_errinfo());
612 eclass
= CLASS_OF(ruby_errinfo
);
613 einfo
= rb_obj_as_string(ruby_errinfo
);
615 if (eclass
== rb_eRuntimeError
&& RSTRING_LEN(einfo
) == 0) {
616 EMSG(_("E272: unhandled exception"));
622 epath
= rb_class_path(eclass
);
623 vim_snprintf(buff
, BUFSIZ
, "%s: %s",
624 RSTRING_PTR(epath
), RSTRING_PTR(einfo
));
625 p
= strchr(buff
, '\n');
631 vim_snprintf(buff
, BUFSIZ
, _("E273: unknown longjmp status %d"), state
);
637 static VALUE
vim_message(VALUE self UNUSED
, VALUE str
)
641 str
= rb_obj_as_string(str
);
642 buff
= ALLOCA_N(char, RSTRING_LEN(str
));
643 strcpy(buff
, RSTRING_PTR(str
));
644 p
= strchr(buff
, '\n');
650 static VALUE
vim_set_option(VALUE self UNUSED
, VALUE str
)
652 do_set((char_u
*)StringValuePtr(str
), 0);
653 update_screen(NOT_VALID
);
657 static VALUE
vim_command(VALUE self UNUSED
, VALUE str
)
659 do_cmdline_cmd((char_u
*)StringValuePtr(str
));
663 static VALUE
vim_evaluate(VALUE self UNUSED
, VALUE str
)
666 char_u
*value
= eval_to_string((char_u
*)StringValuePtr(str
), NULL
, TRUE
);
670 VALUE val
= rb_str_new2((char *)value
);
679 static VALUE
buffer_new(buf_T
*buf
)
683 return (VALUE
) buf
->b_ruby_ref
;
687 VALUE obj
= Data_Wrap_Struct(cBuffer
, 0, 0, buf
);
688 buf
->b_ruby_ref
= (void *) obj
;
689 rb_hash_aset(objtbl
, rb_obj_id(obj
), obj
);
694 static buf_T
*get_buf(VALUE obj
)
698 Data_Get_Struct(obj
, buf_T
, buf
);
700 rb_raise(eDeletedBufferError
, "attempt to refer to deleted buffer");
704 static VALUE
buffer_s_current()
706 return buffer_new(curbuf
);
709 static VALUE
buffer_s_count()
714 for (b
= firstbuf
; b
!= NULL
; b
= b
->b_next
)
716 /* Deleted buffers should not be counted
717 * SegPhault - 01/07/05 */
725 static VALUE
buffer_s_aref(VALUE self UNUSED
, VALUE num
)
728 int n
= NUM2INT(num
);
730 for (b
= firstbuf
; b
!= NULL
; b
= b
->b_next
)
732 /* Deleted buffers should not be counted
733 * SegPhault - 01/07/05 */
738 return buffer_new(b
);
745 static VALUE
buffer_name(VALUE self
)
747 buf_T
*buf
= get_buf(self
);
749 return buf
->b_ffname
? rb_str_new2((char *)buf
->b_ffname
) : Qnil
;
752 static VALUE
buffer_number(VALUE self
)
754 buf_T
*buf
= get_buf(self
);
756 return INT2NUM(buf
->b_fnum
);
759 static VALUE
buffer_count(VALUE self
)
761 buf_T
*buf
= get_buf(self
);
763 return INT2NUM(buf
->b_ml
.ml_line_count
);
766 static VALUE
get_buffer_line(buf_T
*buf
, linenr_T n
)
768 if (n
> 0 && n
<= buf
->b_ml
.ml_line_count
)
770 char *line
= (char *)ml_get_buf(buf
, n
, FALSE
);
771 return line
? vim_str2rb_enc_str(line
) : Qnil
;
773 rb_raise(rb_eIndexError
, "line number %ld out of range", (long)n
);
775 return Qnil
; /* For stop warning */
779 static VALUE
buffer_aref(VALUE self
, VALUE num
)
781 buf_T
*buf
= get_buf(self
);
784 return get_buffer_line(buf
, (linenr_T
)NUM2LONG(num
));
785 return Qnil
; /* For stop warning */
788 static VALUE
set_buffer_line(buf_T
*buf
, linenr_T n
, VALUE str
)
790 char *line
= StringValuePtr(str
);
793 if (n
> 0 && n
<= buf
->b_ml
.ml_line_count
&& line
!= NULL
)
795 /* set curwin/curbuf for "buf" and save some things */
796 aucmd_prepbuf(&aco
, buf
);
798 if (u_savesub(n
) == OK
) {
799 ml_replace(n
, (char_u
*)line
, TRUE
);
802 syn_changed(n
); /* recompute syntax hl. for this line */
806 /* restore curwin/curbuf and a few other things */
808 /* Careful: autocommands may have made "buf" invalid! */
810 update_curbuf(NOT_VALID
);
814 rb_raise(rb_eIndexError
, "line number %ld out of range", (long)n
);
816 return Qnil
; /* For stop warning */
822 static VALUE
buffer_aset(VALUE self
, VALUE num
, VALUE str
)
824 buf_T
*buf
= get_buf(self
);
827 return set_buffer_line(buf
, (linenr_T
)NUM2LONG(num
), str
);
831 static VALUE
buffer_delete(VALUE self
, VALUE num
)
833 buf_T
*buf
= get_buf(self
);
834 long n
= NUM2LONG(num
);
837 if (n
> 0 && n
<= buf
->b_ml
.ml_line_count
)
839 /* set curwin/curbuf for "buf" and save some things */
840 aucmd_prepbuf(&aco
, buf
);
842 if (u_savedel(n
, 1) == OK
) {
845 /* Changes to non-active buffers should properly refresh
846 * SegPhault - 01/09/05 */
847 deleted_lines_mark(n
, 1L);
852 /* restore curwin/curbuf and a few other things */
854 /* Careful: autocommands may have made "buf" invalid! */
856 update_curbuf(NOT_VALID
);
860 rb_raise(rb_eIndexError
, "line number %ld out of range", n
);
865 static VALUE
buffer_append(VALUE self
, VALUE num
, VALUE str
)
867 buf_T
*buf
= get_buf(self
);
868 char *line
= StringValuePtr(str
);
869 long n
= NUM2LONG(num
);
873 rb_raise(rb_eIndexError
, "NULL line");
875 else if (n
>= 0 && n
<= buf
->b_ml
.ml_line_count
)
877 /* set curwin/curbuf for "buf" and save some things */
878 aucmd_prepbuf(&aco
, buf
);
880 if (u_inssub(n
+ 1) == OK
) {
881 ml_append(n
, (char_u
*) line
, (colnr_T
) 0, FALSE
);
883 /* Changes to non-active buffers should properly refresh screen
884 * SegPhault - 12/20/04 */
885 appended_lines_mark(n
, 1L);
890 /* restore curwin/curbuf and a few other things */
892 /* Careful: autocommands may have made "buf" invalid! */
894 update_curbuf(NOT_VALID
);
897 rb_raise(rb_eIndexError
, "line number %ld out of range", n
);
902 static VALUE
window_new(win_T
*win
)
906 return (VALUE
) win
->w_ruby_ref
;
910 VALUE obj
= Data_Wrap_Struct(cVimWindow
, 0, 0, win
);
911 win
->w_ruby_ref
= (void *) obj
;
912 rb_hash_aset(objtbl
, rb_obj_id(obj
), obj
);
917 static win_T
*get_win(VALUE obj
)
921 Data_Get_Struct(obj
, win_T
, win
);
923 rb_raise(eDeletedWindowError
, "attempt to refer to deleted window");
927 static VALUE
window_s_current()
929 return window_new(curwin
);
933 * Added line manipulation functions
934 * SegPhault - 03/07/05
936 static VALUE
line_s_current()
938 return get_buffer_line(curbuf
, curwin
->w_cursor
.lnum
);
941 static VALUE
set_current_line(VALUE self UNUSED
, VALUE str
)
943 return set_buffer_line(curbuf
, curwin
->w_cursor
.lnum
, str
);
946 static VALUE
current_line_number()
948 return INT2FIX((int)curwin
->w_cursor
.lnum
);
953 static VALUE
window_s_count()
959 for (w
= firstwin
; w
!= NULL
; w
= w
->w_next
)
967 static VALUE
window_s_aref(VALUE self UNUSED
, VALUE num
)
970 int n
= NUM2INT(num
);
975 for (w
= firstwin
; w
!= NULL
; w
= w
->w_next
, --n
)
978 return window_new(w
);
982 static VALUE
window_buffer(VALUE self
)
984 win_T
*win
= get_win(self
);
986 return buffer_new(win
->w_buffer
);
989 static VALUE
window_height(VALUE self
)
991 win_T
*win
= get_win(self
);
993 return INT2NUM(win
->w_height
);
996 static VALUE
window_set_height(VALUE self
, VALUE height
)
998 win_T
*win
= get_win(self
);
999 win_T
*savewin
= curwin
;
1002 win_setheight(NUM2INT(height
));
1007 static VALUE
window_width(VALUE self
)
1009 win_T
*win
= get_win(self
);
1011 return INT2NUM(win
->w_width
);
1014 static VALUE
window_set_width(VALUE self
, VALUE width
)
1016 win_T
*win
= get_win(self
);
1017 win_T
*savewin
= curwin
;
1020 win_setwidth(NUM2INT(width
));
1025 static VALUE
window_cursor(VALUE self
)
1027 win_T
*win
= get_win(self
);
1029 return rb_assoc_new(INT2NUM(win
->w_cursor
.lnum
), INT2NUM(win
->w_cursor
.col
));
1032 static VALUE
window_set_cursor(VALUE self
, VALUE pos
)
1035 win_T
*win
= get_win(self
);
1037 Check_Type(pos
, T_ARRAY
);
1038 if (RARRAY_LEN(pos
) != 2)
1039 rb_raise(rb_eArgError
, "array length must be 2");
1040 lnum
= RARRAY_PTR(pos
)[0];
1041 col
= RARRAY_PTR(pos
)[1];
1042 win
->w_cursor
.lnum
= NUM2LONG(lnum
);
1043 win
->w_cursor
.col
= NUM2UINT(col
);
1044 check_cursor(); /* put cursor on an existing line */
1045 update_screen(NOT_VALID
);
1049 static VALUE
f_p(int argc
, VALUE
*argv
, VALUE self UNUSED
)
1052 VALUE str
= rb_str_new("", 0);
1054 for (i
= 0; i
< argc
; i
++) {
1055 if (i
> 0) rb_str_cat(str
, ", ", 2);
1056 rb_str_concat(str
, rb_inspect(argv
[i
]));
1058 MSG(RSTRING_PTR(str
));
1062 static void ruby_io_init(void)
1064 #ifndef DYNAMIC_RUBY
1065 RUBYEXTERN VALUE rb_stdout
;
1068 rb_stdout
= rb_obj_alloc(rb_cObject
);
1069 rb_define_singleton_method(rb_stdout
, "write", vim_message
, 1);
1070 rb_define_global_function("p", f_p
, -1);
1073 static void ruby_vim_init(void)
1075 objtbl
= rb_hash_new();
1076 rb_global_variable(&objtbl
);
1078 /* The Vim module used to be called "VIM", but "Vim" is better. Make an
1079 * alias "VIM" for backwards compatiblity. */
1080 mVIM
= rb_define_module("Vim");
1081 rb_define_const(rb_cObject
, "VIM", mVIM
);
1082 rb_define_const(mVIM
, "VERSION_MAJOR", INT2NUM(VIM_VERSION_MAJOR
));
1083 rb_define_const(mVIM
, "VERSION_MINOR", INT2NUM(VIM_VERSION_MINOR
));
1084 rb_define_const(mVIM
, "VERSION_BUILD", INT2NUM(VIM_VERSION_BUILD
));
1085 rb_define_const(mVIM
, "VERSION_PATCHLEVEL", INT2NUM(VIM_VERSION_PATCHLEVEL
));
1086 rb_define_const(mVIM
, "VERSION_SHORT", rb_str_new2(VIM_VERSION_SHORT
));
1087 rb_define_const(mVIM
, "VERSION_MEDIUM", rb_str_new2(VIM_VERSION_MEDIUM
));
1088 rb_define_const(mVIM
, "VERSION_LONG", rb_str_new2(VIM_VERSION_LONG
));
1089 rb_define_const(mVIM
, "VERSION_LONG_DATE", rb_str_new2(VIM_VERSION_LONG_DATE
));
1090 rb_define_module_function(mVIM
, "message", vim_message
, 1);
1091 rb_define_module_function(mVIM
, "set_option", vim_set_option
, 1);
1092 rb_define_module_function(mVIM
, "command", vim_command
, 1);
1093 rb_define_module_function(mVIM
, "evaluate", vim_evaluate
, 1);
1095 eDeletedBufferError
= rb_define_class_under(mVIM
, "DeletedBufferError",
1097 eDeletedWindowError
= rb_define_class_under(mVIM
, "DeletedWindowError",
1100 cBuffer
= rb_define_class_under(mVIM
, "Buffer", rb_cObject
);
1101 rb_define_singleton_method(cBuffer
, "current", buffer_s_current
, 0);
1102 rb_define_singleton_method(cBuffer
, "count", buffer_s_count
, 0);
1103 rb_define_singleton_method(cBuffer
, "[]", buffer_s_aref
, 1);
1104 rb_define_method(cBuffer
, "name", buffer_name
, 0);
1105 rb_define_method(cBuffer
, "number", buffer_number
, 0);
1106 rb_define_method(cBuffer
, "count", buffer_count
, 0);
1107 rb_define_method(cBuffer
, "length", buffer_count
, 0);
1108 rb_define_method(cBuffer
, "[]", buffer_aref
, 1);
1109 rb_define_method(cBuffer
, "[]=", buffer_aset
, 2);
1110 rb_define_method(cBuffer
, "delete", buffer_delete
, 1);
1111 rb_define_method(cBuffer
, "append", buffer_append
, 2);
1113 /* Added line manipulation functions
1114 * SegPhault - 03/07/05 */
1115 rb_define_method(cBuffer
, "line_number", current_line_number
, 0);
1116 rb_define_method(cBuffer
, "line", line_s_current
, 0);
1117 rb_define_method(cBuffer
, "line=", set_current_line
, 1);
1120 cVimWindow
= rb_define_class_under(mVIM
, "Window", rb_cObject
);
1121 rb_define_singleton_method(cVimWindow
, "current", window_s_current
, 0);
1122 rb_define_singleton_method(cVimWindow
, "count", window_s_count
, 0);
1123 rb_define_singleton_method(cVimWindow
, "[]", window_s_aref
, 1);
1124 rb_define_method(cVimWindow
, "buffer", window_buffer
, 0);
1125 rb_define_method(cVimWindow
, "height", window_height
, 0);
1126 rb_define_method(cVimWindow
, "height=", window_set_height
, 1);
1127 rb_define_method(cVimWindow
, "width", window_width
, 0);
1128 rb_define_method(cVimWindow
, "width=", window_set_width
, 1);
1129 rb_define_method(cVimWindow
, "cursor", window_cursor
, 0);
1130 rb_define_method(cVimWindow
, "cursor=", window_set_cursor
, 1);
1132 rb_define_virtual_variable("$curbuf", buffer_s_current
, 0);
1133 rb_define_virtual_variable("$curwin", window_s_current
, 0);