Mercurial > vim
annotate src/if_mzsch.c @ 36197:2d2d82bb66be draft default tip
Added tag v9.1.0744 for changeset 40543b042c11eb455649e4cdf4fe0eee3e0a4572
author | Christian Brabandt <cb@256bit.org> |
---|---|
date | Thu, 26 Sep 2024 16:30:46 +0200 |
parents | 7062d2a09d31 |
children |
rev | line source |
---|---|
10042
4aead6a9b7a9
commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents:
9961
diff
changeset
|
1 /* vi:set ts=8 sts=4 sw=4 noet: |
14 | 2 * |
151 | 3 * MzScheme interface by Sergey Khorev <sergey.khorev@gmail.com> |
4074 | 4 * Based on work by Brent Fulgham <bfulgham@debian.org> |
14 | 5 * (Based on lots of help from Matthew Flatt) |
6 * | |
7 * This consists of six parts: | |
8 * 1. MzScheme interpreter main program | |
9 * 2. Routines that handle the external interface between MzScheme and | |
10 * Vim. | |
11 * 3. MzScheme input/output handlers: writes output via [e]msg(). | |
12 * 4. Implementation of the Vim Features for MzScheme | |
13 * 5. Vim Window-related Manipulation Functions. | |
14 * 6. Vim Buffer-related Manipulation Functions | |
15 * | |
16 * NOTES | |
17 * 1. Memory, allocated with scheme_malloc*, need not to be freed explicitly, | |
18 * garbage collector will do it self | |
19 * 2. Requires at least NORMAL features. I can't imagine why one may want | |
30645
101f08b49ed3
patch 9.0.0657: too many #ifdefs
Bram Moolenaar <Bram@vim.org>
parents:
30310
diff
changeset
|
20 * to build with TINY features but with MzScheme interface. |
1894 | 21 * 3. I don't use K&R-style functions. Anyways, MzScheme headers are ANSI. |
14 | 22 */ |
23 | |
24 #include "vim.h" | |
1284 | 25 |
14 | 26 #include "if_mzsch.h" |
27 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
28 // Only do the following when the feature is enabled. Needed for "make |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
29 // depend". |
800 | 30 #if defined(FEAT_MZSCHEME) || defined(PROTO) |
31 | |
7813
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
32 #ifdef PROTO |
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
33 typedef int Scheme_Object; |
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
34 typedef int Scheme_Closed_Prim; |
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
35 typedef int Scheme_Env; |
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
36 typedef int Scheme_Hash_Table; |
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
37 typedef int Scheme_Type; |
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
38 typedef int Scheme_Thread; |
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
39 typedef int Scheme_Closed_Prim; |
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
40 typedef int mzshort; |
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
41 typedef int Scheme_Prim; |
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
42 typedef int HINSTANCE; |
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
43 #endif |
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
44 |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
45 /* |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
46 * scheme_register_tls_space is only available on 32-bit Windows until |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
47 * racket-6.3. See |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
48 * http://docs.racket-lang.org/inside/im_memoryalloc.html?q=scheme_register_tls_space |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
49 */ |
15868
7fad90423bd2
patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
50 #if MZSCHEME_VERSION_MAJOR >= 500 && defined(MSWIN) \ |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
51 && defined(USE_THREAD_LOCAL) \ |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
52 && (!defined(_WIN64) || MZSCHEME_VERSION_MAJOR >= 603) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
53 # define HAVE_TLS_SPACE 1 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
54 #endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
55 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
56 /* |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
57 * Since version 4.x precise GC requires trampolined startup. |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
58 * Futures and places in version 5.x need it too. |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
59 */ |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
60 #if defined(MZ_PRECISE_GC) && MZSCHEME_VERSION_MAJOR >= 400 \ |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
61 || MZSCHEME_VERSION_MAJOR >= 500 \ |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
62 && (defined(MZ_USE_FUTURES) || defined(MZ_USE_PLACES)) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
63 # define TRAMPOLINED_MZVIM_STARTUP |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
64 #endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
65 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
66 // Base data structures |
14 | 67 #define SCHEME_VIMBUFFERP(obj) SAME_TYPE(SCHEME_TYPE(obj), mz_buffer_type) |
68 #define SCHEME_VIMWINDOWP(obj) SAME_TYPE(SCHEME_TYPE(obj), mz_window_type) | |
69 | |
70 typedef struct | |
71 { | |
1894 | 72 Scheme_Object so; |
14 | 73 buf_T *buf; |
74 } vim_mz_buffer; | |
75 | |
76 #define INVALID_BUFFER_VALUE ((buf_T *)(-1)) | |
77 | |
78 typedef struct | |
79 { | |
1894 | 80 Scheme_Object so; |
667 | 81 win_T *win; |
14 | 82 } vim_mz_window; |
83 | |
84 #define INVALID_WINDOW_VALUE ((win_T *)(-1)) | |
85 | |
86 /* | |
87 * Prims that form MzScheme Vim interface | |
88 */ | |
89 typedef struct | |
90 { | |
91 Scheme_Closed_Prim *prim; | |
92 char *name; | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
93 int mina; // arity information |
14 | 94 int maxa; |
95 } Vim_Prim; | |
96 | |
97 typedef struct | |
98 { | |
99 char *name; | |
100 Scheme_Object *port; | |
101 } Port_Info; | |
102 | |
103 /* | |
104 *======================================================================== | |
105 * Vim-Control Commands | |
106 *======================================================================== | |
107 */ | |
108 /* | |
109 *======================================================================== | |
110 * Utility functions for the vim/mzscheme interface | |
111 *======================================================================== | |
112 */ | |
274 | 113 #ifdef HAVE_SANDBOX |
114 static Scheme_Object *sandbox_file_guard(int, Scheme_Object **); | |
115 static Scheme_Object *sandbox_network_guard(int, Scheme_Object **); | |
1125 | 116 static void sandbox_check(void); |
274 | 117 #endif |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
118 // Buffer-related commands |
14 | 119 static Scheme_Object *buffer_new(buf_T *buf); |
120 static Scheme_Object *get_buffer_by_num(void *, int, Scheme_Object **); | |
121 static vim_mz_buffer *get_vim_curr_buffer(void); | |
122 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
123 // Window-related commands |
14 | 124 static Scheme_Object *window_new(win_T *win); |
125 static vim_mz_window *get_vim_curr_window(void); | |
126 | |
127 /* | |
128 *======================================================================== | |
129 * Internal Function Prototypes | |
130 *======================================================================== | |
131 */ | |
132 static int vim_error_check(void); | |
133 static int do_mzscheme_command(exarg_T *, void *, Scheme_Closed_Prim *what); | |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
134 static int startup_mzscheme(void); |
14 | 135 static char *string_to_line(Scheme_Object *obj); |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
136 #if MZSCHEME_VERSION_MAJOR >= 501 |
4074 | 137 # define OUTPUT_LEN_TYPE intptr_t |
138 #else | |
139 # define OUTPUT_LEN_TYPE long | |
140 #endif | |
141 static void do_output(char *mesg, OUTPUT_LEN_TYPE len); | |
25475
038eb6d9003a
patch 8.2.3274: macro for printf format check can be simplified
Bram Moolenaar <Bram@vim.org>
parents:
25342
diff
changeset
|
142 static void do_printf(char *format, ...) ATTRIBUTE_FORMAT_PRINTF(1, 2); |
14 | 143 static void do_flush(void); |
144 static Scheme_Object *_apply_thunk_catch_exceptions( | |
145 Scheme_Object *, Scheme_Object **); | |
146 static Scheme_Object *extract_exn_message(Scheme_Object *v); | |
147 static Scheme_Object *do_eval(void *, int noargc, Scheme_Object **noargv); | |
148 static Scheme_Object *do_load(void *, int noargc, Scheme_Object **noargv); | |
1894 | 149 static void register_vim_exn(void); |
14 | 150 static vim_mz_buffer *get_buffer_arg(const char *fname, int argnum, |
151 int argc, Scheme_Object **argv); | |
152 static vim_mz_window *get_window_arg(const char *fname, int argnum, | |
153 int argc, Scheme_Object **argv); | |
154 static int line_in_range(linenr_T, buf_T *); | |
155 static void check_line_range(linenr_T, buf_T *); | |
156 static void mz_fix_cursor(int lo, int hi, int extra); | |
157 | |
1894 | 158 static int eval_with_exn_handling(void *, Scheme_Closed_Prim *, |
159 Scheme_Object **ret); | |
160 static void make_modules(void); | |
161 static void init_exn_catching_apply(void); | |
162 static int mzscheme_env_main(Scheme_Env *env, int argc, char **argv); | |
163 static int mzscheme_init(void); | |
164 #ifdef FEAT_EVAL | |
4074 | 165 static Scheme_Object *vim_to_mzscheme(typval_T *vim_value); |
166 static Scheme_Object *vim_to_mzscheme_impl(typval_T *vim_value, int depth, | |
1894 | 167 Scheme_Hash_Table *visited); |
4074 | 168 static int mzscheme_to_vim(Scheme_Object *obj, typval_T *tv); |
169 static int mzscheme_to_vim_impl(Scheme_Object *obj, typval_T *tv, int depth, | |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
170 Scheme_Hash_Table *visited); |
4074 | 171 static Scheme_Object *vim_funcref(void *data, int argc, Scheme_Object **argv); |
1894 | 172 #endif |
173 | |
174 #ifdef MZ_PRECISE_GC | |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
175 static int buffer_size_proc(void *obj UNUSED) |
1894 | 176 { |
177 return gcBYTES_TO_WORDS(sizeof(vim_mz_buffer)); | |
178 } | |
179 static int buffer_mark_proc(void *obj) | |
180 { | |
181 return buffer_size_proc(obj); | |
182 } | |
183 static int buffer_fixup_proc(void *obj) | |
184 { | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
185 // apparently not needed as the object will be uncollectable while |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
186 // the buffer is alive |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
187 // vim_mz_buffer* buf = (vim_mz_buffer*) obj; |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
188 // buf->buf->b_mzscheme_ref = GC_fixup_self(obj); |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
189 |
1894 | 190 return buffer_size_proc(obj); |
191 } | |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
192 static int window_size_proc(void *obj UNUSED) |
1894 | 193 { |
194 return gcBYTES_TO_WORDS(sizeof(vim_mz_window)); | |
195 } | |
196 static int window_mark_proc(void *obj) | |
197 { | |
198 return window_size_proc(obj); | |
199 } | |
200 static int window_fixup_proc(void *obj) | |
201 { | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
202 // apparently not needed as the object will be uncollectable while |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
203 // the window is alive |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
204 // vim_mz_window* win = (vim_mz_window*) obj; |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
205 // win->win->w_mzscheme_ref = GC_fixup_self(obj); |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
206 // |
1894 | 207 return window_size_proc(obj); |
208 } | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
209 // with precise GC, w_mzscheme_ref and b_mzscheme_ref are immobile boxes |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
210 // containing pointers to a window/buffer |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
211 // with conservative GC these are simply pointers |
4074 | 212 # define WINDOW_REF(win) *(vim_mz_window **)((win)->w_mzscheme_ref) |
213 # define BUFFER_REF(buf) *(vim_mz_buffer **)((buf)->b_mzscheme_ref) | |
214 #else | |
215 # define WINDOW_REF(win) (vim_mz_window *)((win)->w_mzscheme_ref) | |
216 # define BUFFER_REF(buf) (vim_mz_buffer *)((buf)->b_mzscheme_ref) | |
1894 | 217 #endif |
14 | 218 |
7813
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
219 #if defined(DYNAMIC_MZSCHEME) || defined(PROTO) |
137 | 220 static Scheme_Object *dll_scheme_eof; |
221 static Scheme_Object *dll_scheme_false; | |
222 static Scheme_Object *dll_scheme_void; | |
223 static Scheme_Object *dll_scheme_null; | |
224 static Scheme_Object *dll_scheme_true; | |
225 | |
226 static Scheme_Thread **dll_scheme_current_thread_ptr; | |
227 | |
228 static void (**dll_scheme_console_printf_ptr)(char *str, ...); | |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
229 static void (**dll_scheme_console_output_ptr)(char *str, OUTPUT_LEN_TYPE len); |
137 | 230 static void (**dll_scheme_notify_multithread_ptr)(int on); |
231 | |
232 static void *(*dll_GC_malloc)(size_t size_in_bytes); | |
233 static void *(*dll_GC_malloc_atomic)(size_t size_in_bytes); | |
234 static Scheme_Env *(*dll_scheme_basic_env)(void); | |
235 static void (*dll_scheme_check_threads)(void); | |
236 static void (*dll_scheme_register_static)(void *ptr, long size); | |
237 static void (*dll_scheme_set_stack_base)(void *base, int no_auto_statics); | |
238 static void (*dll_scheme_add_global)(const char *name, Scheme_Object *val, | |
239 Scheme_Env *env); | |
240 static void (*dll_scheme_add_global_symbol)(Scheme_Object *name, | |
241 Scheme_Object *val, Scheme_Env *env); | |
242 static Scheme_Object *(*dll_scheme_apply)(Scheme_Object *rator, int num_rands, | |
243 Scheme_Object **rands); | |
244 static Scheme_Object *(*dll_scheme_builtin_value)(const char *name); | |
274 | 245 # if MZSCHEME_VERSION_MAJOR >= 299 |
246 static Scheme_Object *(*dll_scheme_byte_string_to_char_string)(Scheme_Object *s); | |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
247 static Scheme_Object *(*dll_scheme_make_path)(const char *chars); |
274 | 248 # endif |
137 | 249 static void (*dll_scheme_close_input_port)(Scheme_Object *port); |
250 static void (*dll_scheme_count_lines)(Scheme_Object *port); | |
1284 | 251 #if MZSCHEME_VERSION_MAJOR < 360 |
137 | 252 static Scheme_Object *(*dll_scheme_current_continuation_marks)(void); |
1284 | 253 #else |
254 static Scheme_Object *(*dll_scheme_current_continuation_marks)(Scheme_Object *prompt_tag); | |
255 #endif | |
137 | 256 static void (*dll_scheme_display)(Scheme_Object *obj, Scheme_Object *port); |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
257 static char *(*dll_scheme_display_to_string)(Scheme_Object *obj, OUTPUT_LEN_TYPE *len); |
274 | 258 static int (*dll_scheme_eq)(Scheme_Object *obj1, Scheme_Object *obj2); |
137 | 259 static Scheme_Object *(*dll_scheme_do_eval)(Scheme_Object *obj, |
260 int _num_rands, Scheme_Object **rands, int val); | |
261 static void (*dll_scheme_dont_gc_ptr)(void *p); | |
262 static Scheme_Object *(*dll_scheme_eval)(Scheme_Object *obj, Scheme_Env *env); | |
263 static Scheme_Object *(*dll_scheme_eval_string)(const char *str, | |
264 Scheme_Env *env); | |
344 | 265 static Scheme_Object *(*dll_scheme_eval_string_all)(const char *str, |
137 | 266 Scheme_Env *env, int all); |
267 static void (*dll_scheme_finish_primitive_module)(Scheme_Env *env); | |
151 | 268 # if MZSCHEME_VERSION_MAJOR < 299 |
137 | 269 static char *(*dll_scheme_format)(char *format, int flen, int argc, |
270 Scheme_Object **argv, long *rlen); | |
151 | 271 # else |
272 static char *(*dll_scheme_format_utf8)(char *format, int flen, int argc, | |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
273 Scheme_Object **argv, OUTPUT_LEN_TYPE *rlen); |
274 | 274 static Scheme_Object *(*dll_scheme_get_param)(Scheme_Config *c, int pos); |
151 | 275 # endif |
137 | 276 static void (*dll_scheme_gc_ptr_ok)(void *p); |
151 | 277 # if MZSCHEME_VERSION_MAJOR < 299 |
137 | 278 static char *(*dll_scheme_get_sized_string_output)(Scheme_Object *, |
279 long *len); | |
151 | 280 # else |
281 static char *(*dll_scheme_get_sized_byte_string_output)(Scheme_Object *, | |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
282 OUTPUT_LEN_TYPE *len); |
151 | 283 # endif |
137 | 284 static Scheme_Object *(*dll_scheme_intern_symbol)(const char *name); |
285 static Scheme_Object *(*dll_scheme_lookup_global)(Scheme_Object *symbol, | |
286 Scheme_Env *env); | |
287 static Scheme_Object *(*dll_scheme_make_closed_prim_w_arity) | |
288 (Scheme_Closed_Prim *prim, void *data, const char *name, mzshort mina, | |
289 mzshort maxa); | |
290 static Scheme_Object *(*dll_scheme_make_integer_value)(long i); | |
344 | 291 static Scheme_Object *(*dll_scheme_make_pair)(Scheme_Object *car, |
137 | 292 Scheme_Object *cdr); |
274 | 293 static Scheme_Object *(*dll_scheme_make_prim_w_arity)(Scheme_Prim *prim, |
294 const char *name, mzshort mina, mzshort maxa); | |
151 | 295 # if MZSCHEME_VERSION_MAJOR < 299 |
137 | 296 static Scheme_Object *(*dll_scheme_make_string)(const char *chars); |
297 static Scheme_Object *(*dll_scheme_make_string_output_port)(); | |
151 | 298 # else |
299 static Scheme_Object *(*dll_scheme_make_byte_string)(const char *chars); | |
300 static Scheme_Object *(*dll_scheme_make_byte_string_output_port)(); | |
301 # endif | |
137 | 302 static Scheme_Object *(*dll_scheme_make_struct_instance)(Scheme_Object *stype, |
303 int argc, Scheme_Object **argv); | |
304 static Scheme_Object **(*dll_scheme_make_struct_names)(Scheme_Object *base, | |
305 Scheme_Object *field_names, int flags, int *count_out); | |
306 static Scheme_Object *(*dll_scheme_make_struct_type)(Scheme_Object *base, | |
307 Scheme_Object *parent, Scheme_Object *inspector, int num_fields, | |
308 int num_uninit_fields, Scheme_Object *uninit_val, | |
151 | 309 Scheme_Object *properties |
310 # if MZSCHEME_VERSION_MAJOR >= 299 | |
311 , Scheme_Object *guard | |
312 # endif | |
313 ); | |
137 | 314 static Scheme_Object **(*dll_scheme_make_struct_values)( |
315 Scheme_Object *struct_type, Scheme_Object **names, int count, | |
316 int flags); | |
317 static Scheme_Type (*dll_scheme_make_type)(const char *name); | |
318 static Scheme_Object *(*dll_scheme_make_vector)(int size, | |
319 Scheme_Object *fill); | |
320 static void *(*dll_scheme_malloc_fail_ok)(void *(*f)(size_t), size_t); | |
321 static Scheme_Object *(*dll_scheme_open_input_file)(const char *name, | |
322 const char *who); | |
323 static Scheme_Env *(*dll_scheme_primitive_module)(Scheme_Object *name, | |
324 Scheme_Env *for_env); | |
325 static int (*dll_scheme_proper_list_length)(Scheme_Object *list); | |
326 static void (*dll_scheme_raise)(Scheme_Object *exn); | |
327 static Scheme_Object *(*dll_scheme_read)(Scheme_Object *port); | |
328 static void (*dll_scheme_signal_error)(const char *msg, ...); | |
329 static void (*dll_scheme_wrong_type)(const char *name, const char *expected, | |
330 int which, int argc, Scheme_Object **argv); | |
151 | 331 # if MZSCHEME_VERSION_MAJOR >= 299 |
344 | 332 static void (*dll_scheme_set_param)(Scheme_Config *c, int pos, |
151 | 333 Scheme_Object *o); |
334 static Scheme_Config *(*dll_scheme_current_config)(void); | |
335 static Scheme_Object *(*dll_scheme_char_string_to_byte_string) | |
336 (Scheme_Object *s); | |
1307 | 337 static Scheme_Object *(*dll_scheme_char_string_to_path) |
338 (Scheme_Object *s); | |
4074 | 339 static void *(*dll_scheme_set_collects_path)(Scheme_Object *p); |
151 | 340 # endif |
1894 | 341 static Scheme_Hash_Table *(*dll_scheme_make_hash_table)(int type); |
342 static void (*dll_scheme_hash_set)(Scheme_Hash_Table *table, | |
343 Scheme_Object *key, Scheme_Object *value); | |
344 static Scheme_Object *(*dll_scheme_hash_get)(Scheme_Hash_Table *table, | |
345 Scheme_Object *key); | |
346 static Scheme_Object *(*dll_scheme_make_double)(double d); | |
347 static Scheme_Object *(*dll_scheme_make_sized_byte_string)(char *chars, | |
348 long len, int copy); | |
349 static Scheme_Object *(*dll_scheme_namespace_require)(Scheme_Object *req); | |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
350 static Scheme_Object *(*dll_scheme_dynamic_wind)(void (*pre)(void *), Scheme_Object *(* volatile act)(void *), void (* volatile post)(void *), Scheme_Object *(*jmp_handler)(void *), void * volatile data); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
351 # ifdef MZ_PRECISE_GC |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
352 static void *(*dll_GC_malloc_one_tagged)(size_t size_in_bytes); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
353 static void (*dll_GC_register_traversers)(short tag, Size_Proc size, Mark_Proc mark, Fixup_Proc fixup, int is_constant_size, int is_atomic); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
354 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
355 # if MZSCHEME_VERSION_MAJOR >= 400 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
356 static void (*dll_scheme_init_collection_paths)(Scheme_Env *global_env, Scheme_Object *extra_dirs); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
357 static void **(*dll_scheme_malloc_immobile_box)(void *p); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
358 static void (*dll_scheme_free_immobile_box)(void **b); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
359 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
360 # if MZSCHEME_VERSION_MAJOR >= 500 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
361 # ifdef TRAMPOLINED_MZVIM_STARTUP |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
362 static int (*dll_scheme_main_setup)(int no_auto_statics, Scheme_Env_Main _main, int argc, char **argv); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
363 # if defined(IMPLEMENT_THREAD_LOCAL_VIA_WIN_TLS) || MZSCHEME_VERSION_MAJOR >= 603 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
364 static void (*dll_scheme_register_tls_space)(void *tls_space, int _tls_index); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
365 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
366 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
367 # if defined(IMPLEMENT_THREAD_LOCAL_VIA_WIN_TLS) || defined(IMPLEMENT_THREAD_LOCAL_EXTERNALLY_VIA_PROC) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
368 static Thread_Local_Variables *(*dll_scheme_external_get_thread_local_variables)(void); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
369 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
370 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
371 # if MZSCHEME_VERSION_MAJOR >= 600 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
372 static void (*dll_scheme_embedded_load)(intptr_t len, const char *s, int predefined); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
373 static void (*dll_scheme_register_embedded_load)(intptr_t len, const char *s); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
374 static void (*dll_scheme_set_config_path)(Scheme_Object *p); |
1894 | 375 # endif |
137 | 376 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
377 #if defined(DYNAMIC_MZSCHEME) // not when defined(PROTO) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
378 |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
379 // arrays are imported directly |
137 | 380 # define scheme_eof dll_scheme_eof |
381 # define scheme_false dll_scheme_false | |
382 # define scheme_void dll_scheme_void | |
383 # define scheme_null dll_scheme_null | |
384 # define scheme_true dll_scheme_true | |
385 | |
35821
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
386 // pointers are GetProcAddress'ed as pointers to pointer |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
387 #if !defined(USE_THREAD_LOCAL) && !defined(LINK_EXTENSIONS_BY_TABLE) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
388 # define scheme_current_thread (*dll_scheme_current_thread_ptr) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
389 # endif |
137 | 390 # define scheme_console_printf (*dll_scheme_console_printf_ptr) |
391 # define scheme_console_output (*dll_scheme_console_output_ptr) | |
392 # define scheme_notify_multithread (*dll_scheme_notify_multithread_ptr) | |
393 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
394 // and functions in a usual way |
137 | 395 # define GC_malloc dll_GC_malloc |
396 # define GC_malloc_atomic dll_GC_malloc_atomic | |
397 | |
398 # define scheme_add_global dll_scheme_add_global | |
399 # define scheme_add_global_symbol dll_scheme_add_global_symbol | |
400 # define scheme_apply dll_scheme_apply | |
401 # define scheme_basic_env dll_scheme_basic_env | |
402 # define scheme_builtin_value dll_scheme_builtin_value | |
274 | 403 # if MZSCHEME_VERSION_MAJOR >= 299 |
404 # define scheme_byte_string_to_char_string dll_scheme_byte_string_to_char_string | |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
405 # define scheme_make_path dll_scheme_make_path |
274 | 406 # endif |
137 | 407 # define scheme_check_threads dll_scheme_check_threads |
408 # define scheme_close_input_port dll_scheme_close_input_port | |
409 # define scheme_count_lines dll_scheme_count_lines | |
410 # define scheme_current_continuation_marks \ | |
411 dll_scheme_current_continuation_marks | |
412 # define scheme_display dll_scheme_display | |
413 # define scheme_display_to_string dll_scheme_display_to_string | |
414 # define scheme_do_eval dll_scheme_do_eval | |
415 # define scheme_dont_gc_ptr dll_scheme_dont_gc_ptr | |
274 | 416 # define scheme_eq dll_scheme_eq |
137 | 417 # define scheme_eval dll_scheme_eval |
418 # define scheme_eval_string dll_scheme_eval_string | |
419 # define scheme_eval_string_all dll_scheme_eval_string_all | |
420 # define scheme_finish_primitive_module dll_scheme_finish_primitive_module | |
151 | 421 # if MZSCHEME_VERSION_MAJOR < 299 |
422 # define scheme_format dll_scheme_format | |
423 # else | |
424 # define scheme_format_utf8 dll_scheme_format_utf8 | |
425 # endif | |
137 | 426 # define scheme_gc_ptr_ok dll_scheme_gc_ptr_ok |
151 | 427 # if MZSCHEME_VERSION_MAJOR < 299 |
4074 | 428 # define scheme_get_sized_byte_string_output dll_scheme_get_sized_string_output |
151 | 429 # else |
430 # define scheme_get_sized_byte_string_output \ | |
431 dll_scheme_get_sized_byte_string_output | |
4074 | 432 # define scheme_get_param dll_scheme_get_param |
151 | 433 # endif |
137 | 434 # define scheme_intern_symbol dll_scheme_intern_symbol |
435 # define scheme_lookup_global dll_scheme_lookup_global | |
436 # define scheme_make_closed_prim_w_arity dll_scheme_make_closed_prim_w_arity | |
437 # define scheme_make_integer_value dll_scheme_make_integer_value | |
438 # define scheme_make_pair dll_scheme_make_pair | |
274 | 439 # define scheme_make_prim_w_arity dll_scheme_make_prim_w_arity |
151 | 440 # if MZSCHEME_VERSION_MAJOR < 299 |
4074 | 441 # define scheme_make_byte_string dll_scheme_make_string |
442 # define scheme_make_byte_string_output_port dll_scheme_make_string_output_port | |
151 | 443 # else |
444 # define scheme_make_byte_string dll_scheme_make_byte_string | |
445 # define scheme_make_byte_string_output_port \ | |
446 dll_scheme_make_byte_string_output_port | |
447 # endif | |
137 | 448 # define scheme_make_struct_instance dll_scheme_make_struct_instance |
449 # define scheme_make_struct_names dll_scheme_make_struct_names | |
450 # define scheme_make_struct_type dll_scheme_make_struct_type | |
451 # define scheme_make_struct_values dll_scheme_make_struct_values | |
452 # define scheme_make_type dll_scheme_make_type | |
453 # define scheme_make_vector dll_scheme_make_vector | |
454 # define scheme_malloc_fail_ok dll_scheme_malloc_fail_ok | |
455 # define scheme_open_input_file dll_scheme_open_input_file | |
456 # define scheme_primitive_module dll_scheme_primitive_module | |
457 # define scheme_proper_list_length dll_scheme_proper_list_length | |
458 # define scheme_raise dll_scheme_raise | |
459 # define scheme_read dll_scheme_read | |
460 # define scheme_register_static dll_scheme_register_static | |
461 # define scheme_set_stack_base dll_scheme_set_stack_base | |
462 # define scheme_signal_error dll_scheme_signal_error | |
463 # define scheme_wrong_type dll_scheme_wrong_type | |
151 | 464 # if MZSCHEME_VERSION_MAJOR >= 299 |
465 # define scheme_set_param dll_scheme_set_param | |
466 # define scheme_current_config dll_scheme_current_config | |
467 # define scheme_char_string_to_byte_string \ | |
468 dll_scheme_char_string_to_byte_string | |
1307 | 469 # define scheme_char_string_to_path \ |
470 dll_scheme_char_string_to_path | |
4074 | 471 # define scheme_set_collects_path dll_scheme_set_collects_path |
151 | 472 # endif |
1894 | 473 # define scheme_make_hash_table dll_scheme_make_hash_table |
474 # define scheme_hash_set dll_scheme_hash_set | |
475 # define scheme_hash_get dll_scheme_hash_get | |
476 # define scheme_make_double dll_scheme_make_double | |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
477 # define scheme_make_sized_byte_string dll_scheme_make_sized_byte_string |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
478 # define scheme_namespace_require dll_scheme_namespace_require |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
479 # define scheme_dynamic_wind dll_scheme_dynamic_wind |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
480 # ifdef MZ_PRECISE_GC |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
481 # define GC_malloc_one_tagged dll_GC_malloc_one_tagged |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
482 # define GC_register_traversers dll_GC_register_traversers |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
483 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
484 # if MZSCHEME_VERSION_MAJOR >= 400 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
485 # ifdef TRAMPOLINED_MZVIM_STARTUP |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
486 # define scheme_main_setup dll_scheme_main_setup |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
487 # if defined(IMPLEMENT_THREAD_LOCAL_VIA_WIN_TLS) || MZSCHEME_VERSION_MAJOR >= 603 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
488 # define scheme_register_tls_space dll_scheme_register_tls_space |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
489 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
490 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
491 # define scheme_init_collection_paths dll_scheme_init_collection_paths |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
492 # define scheme_malloc_immobile_box dll_scheme_malloc_immobile_box |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
493 # define scheme_free_immobile_box dll_scheme_free_immobile_box |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
494 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
495 # if MZSCHEME_VERSION_MAJOR >= 600 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
496 # define scheme_embedded_load dll_scheme_embedded_load |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
497 # define scheme_register_embedded_load dll_scheme_register_embedded_load |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
498 # define scheme_set_config_path dll_scheme_set_config_path |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
499 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
500 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
501 # if MZSCHEME_VERSION_MAJOR >= 500 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
502 # if defined(IMPLEMENT_THREAD_LOCAL_VIA_WIN_TLS) || defined(IMPLEMENT_THREAD_LOCAL_EXTERNALLY_VIA_PROC) |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
503 // define as function for macro in schthread.h |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
504 Thread_Local_Variables * |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
505 scheme_external_get_thread_local_variables(void) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
506 { |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
507 return dll_scheme_external_get_thread_local_variables(); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
508 } |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
509 # endif |
1894 | 510 # endif |
137 | 511 |
7813
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
512 #endif |
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
513 |
137 | 514 typedef struct |
515 { | |
516 char *name; | |
517 void **ptr; | |
518 } Thunk_Info; | |
519 | |
520 static Thunk_Info mzgc_imports[] = { | |
521 {"GC_malloc", (void **)&dll_GC_malloc}, | |
522 {"GC_malloc_atomic", (void **)&dll_GC_malloc_atomic}, | |
523 {NULL, NULL}}; | |
524 | |
525 static Thunk_Info mzsch_imports[] = { | |
526 {"scheme_eof", (void **)&dll_scheme_eof}, | |
527 {"scheme_false", (void **)&dll_scheme_false}, | |
528 {"scheme_void", (void **)&dll_scheme_void}, | |
529 {"scheme_null", (void **)&dll_scheme_null}, | |
530 {"scheme_true", (void **)&dll_scheme_true}, | |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
531 #if !defined(USE_THREAD_LOCAL) && !defined(LINK_EXTENSIONS_BY_TABLE) |
137 | 532 {"scheme_current_thread", (void **)&dll_scheme_current_thread_ptr}, |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
533 #endif |
137 | 534 {"scheme_console_printf", (void **)&dll_scheme_console_printf_ptr}, |
535 {"scheme_console_output", (void **)&dll_scheme_console_output_ptr}, | |
344 | 536 {"scheme_notify_multithread", |
137 | 537 (void **)&dll_scheme_notify_multithread_ptr}, |
538 {"scheme_add_global", (void **)&dll_scheme_add_global}, | |
539 {"scheme_add_global_symbol", (void **)&dll_scheme_add_global_symbol}, | |
540 {"scheme_apply", (void **)&dll_scheme_apply}, | |
541 {"scheme_basic_env", (void **)&dll_scheme_basic_env}, | |
274 | 542 # if MZSCHEME_VERSION_MAJOR >= 299 |
543 {"scheme_byte_string_to_char_string", (void **)&dll_scheme_byte_string_to_char_string}, | |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
544 {"scheme_make_path", (void **)&dll_scheme_make_path}, |
274 | 545 # endif |
137 | 546 {"scheme_builtin_value", (void **)&dll_scheme_builtin_value}, |
547 {"scheme_check_threads", (void **)&dll_scheme_check_threads}, | |
548 {"scheme_close_input_port", (void **)&dll_scheme_close_input_port}, | |
549 {"scheme_count_lines", (void **)&dll_scheme_count_lines}, | |
344 | 550 {"scheme_current_continuation_marks", |
137 | 551 (void **)&dll_scheme_current_continuation_marks}, |
552 {"scheme_display", (void **)&dll_scheme_display}, | |
553 {"scheme_display_to_string", (void **)&dll_scheme_display_to_string}, | |
554 {"scheme_do_eval", (void **)&dll_scheme_do_eval}, | |
555 {"scheme_dont_gc_ptr", (void **)&dll_scheme_dont_gc_ptr}, | |
274 | 556 {"scheme_eq", (void **)&dll_scheme_eq}, |
137 | 557 {"scheme_eval", (void **)&dll_scheme_eval}, |
558 {"scheme_eval_string", (void **)&dll_scheme_eval_string}, | |
559 {"scheme_eval_string_all", (void **)&dll_scheme_eval_string_all}, | |
344 | 560 {"scheme_finish_primitive_module", |
137 | 561 (void **)&dll_scheme_finish_primitive_module}, |
151 | 562 # if MZSCHEME_VERSION_MAJOR < 299 |
137 | 563 {"scheme_format", (void **)&dll_scheme_format}, |
151 | 564 # else |
565 {"scheme_format_utf8", (void **)&dll_scheme_format_utf8}, | |
274 | 566 {"scheme_get_param", (void **)&dll_scheme_get_param}, |
151 | 567 #endif |
137 | 568 {"scheme_gc_ptr_ok", (void **)&dll_scheme_gc_ptr_ok}, |
151 | 569 # if MZSCHEME_VERSION_MAJOR < 299 |
344 | 570 {"scheme_get_sized_string_output", |
137 | 571 (void **)&dll_scheme_get_sized_string_output}, |
151 | 572 # else |
344 | 573 {"scheme_get_sized_byte_string_output", |
151 | 574 (void **)&dll_scheme_get_sized_byte_string_output}, |
575 #endif | |
137 | 576 {"scheme_intern_symbol", (void **)&dll_scheme_intern_symbol}, |
577 {"scheme_lookup_global", (void **)&dll_scheme_lookup_global}, | |
344 | 578 {"scheme_make_closed_prim_w_arity", |
137 | 579 (void **)&dll_scheme_make_closed_prim_w_arity}, |
580 {"scheme_make_integer_value", (void **)&dll_scheme_make_integer_value}, | |
581 {"scheme_make_pair", (void **)&dll_scheme_make_pair}, | |
274 | 582 {"scheme_make_prim_w_arity", (void **)&dll_scheme_make_prim_w_arity}, |
151 | 583 # if MZSCHEME_VERSION_MAJOR < 299 |
137 | 584 {"scheme_make_string", (void **)&dll_scheme_make_string}, |
344 | 585 {"scheme_make_string_output_port", |
137 | 586 (void **)&dll_scheme_make_string_output_port}, |
151 | 587 # else |
588 {"scheme_make_byte_string", (void **)&dll_scheme_make_byte_string}, | |
344 | 589 {"scheme_make_byte_string_output_port", |
151 | 590 (void **)&dll_scheme_make_byte_string_output_port}, |
591 # endif | |
344 | 592 {"scheme_make_struct_instance", |
137 | 593 (void **)&dll_scheme_make_struct_instance}, |
594 {"scheme_make_struct_names", (void **)&dll_scheme_make_struct_names}, | |
595 {"scheme_make_struct_type", (void **)&dll_scheme_make_struct_type}, | |
596 {"scheme_make_struct_values", (void **)&dll_scheme_make_struct_values}, | |
597 {"scheme_make_type", (void **)&dll_scheme_make_type}, | |
598 {"scheme_make_vector", (void **)&dll_scheme_make_vector}, | |
599 {"scheme_malloc_fail_ok", (void **)&dll_scheme_malloc_fail_ok}, | |
600 {"scheme_open_input_file", (void **)&dll_scheme_open_input_file}, | |
601 {"scheme_primitive_module", (void **)&dll_scheme_primitive_module}, | |
602 {"scheme_proper_list_length", (void **)&dll_scheme_proper_list_length}, | |
603 {"scheme_raise", (void **)&dll_scheme_raise}, | |
604 {"scheme_read", (void **)&dll_scheme_read}, | |
605 {"scheme_register_static", (void **)&dll_scheme_register_static}, | |
606 {"scheme_set_stack_base", (void **)&dll_scheme_set_stack_base}, | |
607 {"scheme_signal_error", (void **)&dll_scheme_signal_error}, | |
608 {"scheme_wrong_type", (void **)&dll_scheme_wrong_type}, | |
151 | 609 # if MZSCHEME_VERSION_MAJOR >= 299 |
610 {"scheme_set_param", (void **)&dll_scheme_set_param}, | |
611 {"scheme_current_config", (void **)&dll_scheme_current_config}, | |
612 {"scheme_char_string_to_byte_string", | |
613 (void **)&dll_scheme_char_string_to_byte_string}, | |
1894 | 614 {"scheme_char_string_to_path", (void **)&dll_scheme_char_string_to_path}, |
4074 | 615 {"scheme_set_collects_path", (void **)&dll_scheme_set_collects_path}, |
151 | 616 # endif |
1894 | 617 {"scheme_make_hash_table", (void **)&dll_scheme_make_hash_table}, |
618 {"scheme_hash_set", (void **)&dll_scheme_hash_set}, | |
619 {"scheme_hash_get", (void **)&dll_scheme_hash_get}, | |
620 {"scheme_make_double", (void **)&dll_scheme_make_double}, | |
621 {"scheme_make_sized_byte_string", (void **)&dll_scheme_make_sized_byte_string}, | |
622 {"scheme_namespace_require", (void **)&dll_scheme_namespace_require}, | |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
623 {"scheme_dynamic_wind", (void **)&dll_scheme_dynamic_wind}, |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
624 # ifdef MZ_PRECISE_GC |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
625 {"GC_malloc_one_tagged", (void **)&dll_GC_malloc_one_tagged}, |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
626 {"GC_register_traversers", (void **)&dll_GC_register_traversers}, |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
627 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
628 # if MZSCHEME_VERSION_MAJOR >= 400 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
629 # ifdef TRAMPOLINED_MZVIM_STARTUP |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
630 {"scheme_main_setup", (void **)&dll_scheme_main_setup}, |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
631 # if defined(IMPLEMENT_THREAD_LOCAL_VIA_WIN_TLS) || MZSCHEME_VERSION_MAJOR >= 603 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
632 {"scheme_register_tls_space", (void **)&dll_scheme_register_tls_space}, |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
633 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
634 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
635 {"scheme_init_collection_paths", (void **)&dll_scheme_init_collection_paths}, |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
636 {"scheme_malloc_immobile_box", (void **)&dll_scheme_malloc_immobile_box}, |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
637 {"scheme_free_immobile_box", (void **)&dll_scheme_free_immobile_box}, |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
638 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
639 # if MZSCHEME_VERSION_MAJOR >= 500 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
640 # if defined(IMPLEMENT_THREAD_LOCAL_VIA_WIN_TLS) || defined(IMPLEMENT_THREAD_LOCAL_EXTERNALLY_VIA_PROC) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
641 {"scheme_external_get_thread_local_variables", (void **)&dll_scheme_external_get_thread_local_variables}, |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
642 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
643 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
644 # if MZSCHEME_VERSION_MAJOR >= 600 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
645 {"scheme_embedded_load", (void **)&dll_scheme_embedded_load}, |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
646 {"scheme_register_embedded_load", (void **)&dll_scheme_register_embedded_load}, |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
647 {"scheme_set_config_path", (void **)&dll_scheme_set_config_path}, |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
648 # endif |
137 | 649 {NULL, NULL}}; |
650 | |
651 static HINSTANCE hMzGC = 0; | |
652 static HINSTANCE hMzSch = 0; | |
653 | |
654 static void dynamic_mzscheme_end(void); | |
655 static int mzscheme_runtime_link_init(char *sch_dll, char *gc_dll, | |
656 int verbose); | |
657 | |
658 static int | |
659 mzscheme_runtime_link_init(char *sch_dll, char *gc_dll, int verbose) | |
660 { | |
661 Thunk_Info *thunk = NULL; | |
662 | |
663 if (hMzGC && hMzSch) | |
664 return OK; | |
2612 | 665 hMzSch = vimLoadLib(sch_dll); |
666 hMzGC = vimLoadLib(gc_dll); | |
137 | 667 |
3348 | 668 if (!hMzGC) |
669 { | |
670 if (verbose) | |
26877
06a137af96f8
patch 8.2.3967: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26441
diff
changeset
|
671 semsg(_(e_could_not_load_library_str_str), gc_dll, GetWin32Error()); |
3348 | 672 return FAIL; |
673 } | |
674 | |
137 | 675 if (!hMzSch) |
676 { | |
677 if (verbose) | |
26877
06a137af96f8
patch 8.2.3967: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26441
diff
changeset
|
678 semsg(_(e_could_not_load_library_str_str), sch_dll, GetWin32Error()); |
137 | 679 return FAIL; |
680 } | |
681 | |
682 for (thunk = mzsch_imports; thunk->name; thunk++) | |
683 { | |
344 | 684 if ((*thunk->ptr = |
137 | 685 (void *)GetProcAddress(hMzSch, thunk->name)) == NULL) |
686 { | |
687 FreeLibrary(hMzSch); | |
688 hMzSch = 0; | |
689 FreeLibrary(hMzGC); | |
690 hMzGC = 0; | |
691 if (verbose) | |
26877
06a137af96f8
patch 8.2.3967: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26441
diff
changeset
|
692 semsg(_(e_could_not_load_library_function_str), thunk->name); |
137 | 693 return FAIL; |
694 } | |
695 } | |
696 for (thunk = mzgc_imports; thunk->name; thunk++) | |
697 { | |
344 | 698 if ((*thunk->ptr = |
137 | 699 (void *)GetProcAddress(hMzGC, thunk->name)) == NULL) |
700 { | |
701 FreeLibrary(hMzSch); | |
702 hMzSch = 0; | |
703 FreeLibrary(hMzGC); | |
704 hMzGC = 0; | |
705 if (verbose) | |
26877
06a137af96f8
patch 8.2.3967: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26441
diff
changeset
|
706 semsg(_(e_could_not_load_library_function_str), thunk->name); |
137 | 707 return FAIL; |
708 } | |
709 } | |
710 return OK; | |
711 } | |
712 | |
713 int | |
714 mzscheme_enabled(int verbose) | |
715 { | |
716 return mzscheme_runtime_link_init( | |
12608
b390f5003e2f
patch 8.0.1182: cannot see or change mzscheme dll name
Christian Brabandt <cb@256bit.org>
parents:
12515
diff
changeset
|
717 (char *)p_mzschemedll, (char *)p_mzschemegcdll, verbose) == OK; |
137 | 718 } |
719 | |
720 static void | |
721 dynamic_mzscheme_end(void) | |
722 { | |
723 if (hMzSch) | |
724 { | |
725 FreeLibrary(hMzSch); | |
726 hMzSch = 0; | |
727 } | |
728 if (hMzGC) | |
729 { | |
730 FreeLibrary(hMzGC); | |
731 hMzGC = 0; | |
732 } | |
733 } | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
734 #endif // DYNAMIC_MZSCHEME |
137 | 735 |
4074 | 736 #if MZSCHEME_VERSION_MAJOR < 299 |
737 # define GUARANTEED_STRING_ARG(proc, num) GUARANTEE_STRING(proc, num) | |
738 #else | |
739 static Scheme_Object * | |
740 guaranteed_byte_string_arg(char *proc, int num, int argc, Scheme_Object **argv) | |
741 { | |
742 if (SCHEME_BYTE_STRINGP(argv[num])) | |
743 { | |
744 return argv[num]; | |
745 } | |
746 else if (SCHEME_CHAR_STRINGP(argv[num])) | |
747 { | |
748 Scheme_Object *tmp = NULL; | |
749 MZ_GC_DECL_REG(2); | |
750 MZ_GC_VAR_IN_REG(0, argv[num]); | |
751 MZ_GC_VAR_IN_REG(1, tmp); | |
752 MZ_GC_REG(); | |
753 tmp = scheme_char_string_to_byte_string(argv[num]); | |
754 MZ_GC_UNREG(); | |
755 return tmp; | |
756 } | |
757 else | |
758 scheme_wrong_type(proc, "string", num, argc, argv); | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
759 // unreachable |
4074 | 760 return scheme_void; |
761 } | |
762 # define GUARANTEED_STRING_ARG(proc, num) guaranteed_byte_string_arg(proc, num, argc, argv) | |
763 #endif | |
764 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
765 // need to put it here for dynamic stuff to work |
1950 | 766 #if defined(INCLUDE_MZSCHEME_BASE) |
1894 | 767 # include "mzscheme_base.c" |
768 #endif | |
769 | |
14 | 770 /* |
771 *======================================================================== | |
772 * 1. MzScheme interpreter startup | |
773 *======================================================================== | |
774 */ | |
775 | |
776 static Scheme_Type mz_buffer_type; | |
777 static Scheme_Type mz_window_type; | |
778 | |
1894 | 779 static int initialized = FALSE; |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
780 #ifdef DYNAMIC_MZSCHEME |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
781 static int disabled = FALSE; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
782 #endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
783 static int load_base_module_failed = FALSE; |
14 | 784 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
785 // global environment |
14 | 786 static Scheme_Env *environment = NULL; |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
787 // output/error handlers |
14 | 788 static Scheme_Object *curout = NULL; |
789 static Scheme_Object *curerr = NULL; | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
790 // exn:vim exception |
14 | 791 static Scheme_Object *exn_catching_apply = NULL; |
792 static Scheme_Object *exn_p = NULL; | |
793 static Scheme_Object *exn_message = NULL; | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
794 static Scheme_Object *vim_exn = NULL; // Vim Error exception |
1894 | 795 |
796 #if !defined(MZ_PRECISE_GC) || MZSCHEME_VERSION_MAJOR < 400 | |
797 static void *stack_base = NULL; | |
798 #endif | |
14 | 799 |
800 static long range_start; | |
801 static long range_end; | |
802 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
803 // MzScheme threads scheduling stuff |
14 | 804 static int mz_threads_allow = 0; |
805 | |
15868
7fad90423bd2
patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
806 #if defined(FEAT_GUI_MSWIN) |
9173
b64c314a4990
commit https://github.com/vim/vim/commit/dec6c7beda5491b28f67f430fc9d01467050c1ca
Christian Brabandt <cb@256bit.org>
parents:
9159
diff
changeset
|
807 static void CALLBACK timer_proc(HWND, UINT, UINT_PTR, DWORD); |
14 | 808 static UINT timer_id = 0; |
809 #elif defined(FEAT_GUI_GTK) | |
8218
3456e2ebebd4
commit https://github.com/vim/vim/commit/9892189d2e7ab94b750f99e6da4cbfc3c8014517
Christian Brabandt <cb@256bit.org>
parents:
8110
diff
changeset
|
810 static gboolean timer_proc(gpointer); |
14 | 811 static guint timer_id = 0; |
28303
9849df834f1d
patch 8.2.4677: the Athena GUI support is outdated
Bram Moolenaar <Bram@vim.org>
parents:
26966
diff
changeset
|
812 #elif defined(FEAT_GUI_MOTIF) |
14 | 813 static void timer_proc(XtPointer, XtIntervalId *); |
814 static XtIntervalId timer_id = (XtIntervalId)0; | |
815 #endif | |
816 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
817 #if !defined(FEAT_GUI_MSWIN) || defined(VIMDLL) // Win32 console and Unix |
14 | 818 void |
819 mzvim_check_threads(void) | |
820 { | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
821 // Last time MzScheme threads were scheduled |
14 | 822 static time_t mz_last_time = 0; |
823 | |
824 if (mz_threads_allow && p_mzq > 0) | |
825 { | |
826 time_t now = time(NULL); | |
827 | |
828 if ((now - mz_last_time) * 1000 > p_mzq) | |
829 { | |
830 mz_last_time = now; | |
831 scheme_check_threads(); | |
832 } | |
833 } | |
834 } | |
835 #endif | |
836 | |
7813
744c66477ba9
commit https://github.com/vim/vim/commit/4349c57543a98dc417b74da5a08c326337aa0bd3
Christian Brabandt <cb@256bit.org>
parents:
7728
diff
changeset
|
837 #if defined(MZSCHEME_GUI_THREADS) || defined(PROTO) |
16 | 838 static void setup_timer(void); |
839 static void remove_timer(void); | |
840 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
841 // timers are presented in GUI only |
15868
7fad90423bd2
patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
842 # if defined(FEAT_GUI_MSWIN) |
14 | 843 static void CALLBACK |
9159
6b003ff07234
commit https://github.com/vim/vim/commit/9b0ac229bcfc91acabd35fc576055a94c1687c32
Christian Brabandt <cb@256bit.org>
parents:
8800
diff
changeset
|
844 timer_proc(HWND hwnd UNUSED, UINT uMsg UNUSED, UINT_PTR idEvent UNUSED, DWORD dwTime UNUSED) |
14 | 845 # elif defined(FEAT_GUI_GTK) |
8218
3456e2ebebd4
commit https://github.com/vim/vim/commit/9892189d2e7ab94b750f99e6da4cbfc3c8014517
Christian Brabandt <cb@256bit.org>
parents:
8110
diff
changeset
|
846 static gboolean |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
847 timer_proc(gpointer data UNUSED) |
28303
9849df834f1d
patch 8.2.4677: the Athena GUI support is outdated
Bram Moolenaar <Bram@vim.org>
parents:
26966
diff
changeset
|
848 # elif defined(FEAT_GUI_MOTIF) |
14 | 849 static void |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
850 timer_proc(XtPointer timed_out UNUSED, XtIntervalId *interval_id UNUSED) |
14 | 851 # endif |
852 { | |
853 scheme_check_threads(); | |
854 # if defined(FEAT_GUI_GTK) | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
855 return TRUE; // continue receiving notifications |
28303
9849df834f1d
patch 8.2.4677: the Athena GUI support is outdated
Bram Moolenaar <Bram@vim.org>
parents:
26966
diff
changeset
|
856 # elif defined(FEAT_GUI_MOTIF) |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
857 // renew timeout |
14 | 858 if (mz_threads_allow && p_mzq > 0) |
859 timer_id = XtAppAddTimeOut(app_context, p_mzq, | |
860 timer_proc, NULL); | |
861 # endif | |
862 } | |
863 | |
864 static void | |
865 setup_timer(void) | |
866 { | |
15868
7fad90423bd2
patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
867 # if defined(FEAT_GUI_MSWIN) |
14 | 868 timer_id = SetTimer(NULL, 0, p_mzq, timer_proc); |
869 # elif defined(FEAT_GUI_GTK) | |
8218
3456e2ebebd4
commit https://github.com/vim/vim/commit/9892189d2e7ab94b750f99e6da4cbfc3c8014517
Christian Brabandt <cb@256bit.org>
parents:
8110
diff
changeset
|
870 timer_id = g_timeout_add((guint)p_mzq, (GSourceFunc)timer_proc, NULL); |
28303
9849df834f1d
patch 8.2.4677: the Athena GUI support is outdated
Bram Moolenaar <Bram@vim.org>
parents:
26966
diff
changeset
|
871 # elif defined(FEAT_GUI_MOTIF) |
14 | 872 timer_id = XtAppAddTimeOut(app_context, p_mzq, timer_proc, NULL); |
873 # endif | |
874 } | |
875 | |
876 static void | |
877 remove_timer(void) | |
878 { | |
15868
7fad90423bd2
patch 8.1.0941: macros for MS-Windows are inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15543
diff
changeset
|
879 # if defined(FEAT_GUI_MSWIN) |
14 | 880 KillTimer(NULL, timer_id); |
881 # elif defined(FEAT_GUI_GTK) | |
8218
3456e2ebebd4
commit https://github.com/vim/vim/commit/9892189d2e7ab94b750f99e6da4cbfc3c8014517
Christian Brabandt <cb@256bit.org>
parents:
8110
diff
changeset
|
882 g_source_remove(timer_id); |
28303
9849df834f1d
patch 8.2.4677: the Athena GUI support is outdated
Bram Moolenaar <Bram@vim.org>
parents:
26966
diff
changeset
|
883 # elif defined(FEAT_GUI_MOTIF) |
14 | 884 XtRemoveTimeOut(timer_id); |
885 # endif | |
886 timer_id = 0; | |
887 } | |
888 | |
32019
274e1b3fbc2a
patch 9.0.1341: build error with mzscheme but without GUI
Bram Moolenaar <Bram@vim.org>
parents:
31996
diff
changeset
|
889 #endif // MZSCHEME_GUI_THREADS |
274e1b3fbc2a
patch 9.0.1341: build error with mzscheme but without GUI
Bram Moolenaar <Bram@vim.org>
parents:
31996
diff
changeset
|
890 |
31996
ca6bc7c04163
patch 9.0.1330: handling new value of an option has a long "else if" chain
Bram Moolenaar <Bram@vim.org>
parents:
31702
diff
changeset
|
891 char * |
32019
274e1b3fbc2a
patch 9.0.1341: build error with mzscheme but without GUI
Bram Moolenaar <Bram@vim.org>
parents:
31996
diff
changeset
|
892 did_set_mzquantum(optset_T *args UNUSED) |
14 | 893 { |
32019
274e1b3fbc2a
patch 9.0.1341: build error with mzscheme but without GUI
Bram Moolenaar <Bram@vim.org>
parents:
31996
diff
changeset
|
894 #if defined(MZSCHEME_GUI_THREADS) |
31996
ca6bc7c04163
patch 9.0.1330: handling new value of an option has a long "else if" chain
Bram Moolenaar <Bram@vim.org>
parents:
31702
diff
changeset
|
895 // reset timer |
14 | 896 if (timer_id != 0) |
897 remove_timer(); | |
898 if (mz_threads_allow && p_mzq > 0 && gui.in_use) | |
899 setup_timer(); | |
32019
274e1b3fbc2a
patch 9.0.1341: build error with mzscheme but without GUI
Bram Moolenaar <Bram@vim.org>
parents:
31996
diff
changeset
|
900 #endif |
31996
ca6bc7c04163
patch 9.0.1330: handling new value of an option has a long "else if" chain
Bram Moolenaar <Bram@vim.org>
parents:
31702
diff
changeset
|
901 return NULL; |
14 | 902 } |
903 | |
904 static void | |
905 notify_multithread(int on) | |
906 { | |
907 mz_threads_allow = on; | |
16 | 908 #ifdef MZSCHEME_GUI_THREADS |
14 | 909 if (on && timer_id == 0 && p_mzq > 0 && gui.in_use) |
910 setup_timer(); | |
911 if (!on && timer_id != 0) | |
912 remove_timer(); | |
913 #endif | |
914 } | |
915 | |
916 void | |
917 mzscheme_end(void) | |
918 { | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
919 // We can not unload the DLL. Racket's thread might be still alive. |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
920 #if 0 |
137 | 921 #ifdef DYNAMIC_MZSCHEME |
922 dynamic_mzscheme_end(); | |
923 #endif | |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
924 #endif |
14 | 925 } |
926 | |
35821
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
927 #if HAVE_TLS_SPACE && !defined(VIMDLL) |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
928 # if defined(_MSC_VER) |
2628 | 929 static __declspec(thread) void *tls_space; |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
930 extern intptr_t _tls_index; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
931 # elif defined(__MINGW32__) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
932 static __thread void *tls_space; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
933 extern intptr_t _tls_index; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
934 # else |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
935 static THREAD_LOCAL void *tls_space; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
936 static intptr_t _tls_index = 0; |
3348 | 937 # endif |
938 #endif | |
939 | |
9961
f4e903ba38d8
commit https://github.com/vim/vim/commit/54b6352c6f0617ff9c963588ccc7d31815348029
Christian Brabandt <cb@256bit.org>
parents:
9802
diff
changeset
|
940 /* |
f4e903ba38d8
commit https://github.com/vim/vim/commit/54b6352c6f0617ff9c963588ccc7d31815348029
Christian Brabandt <cb@256bit.org>
parents:
9802
diff
changeset
|
941 * mzscheme_main() is called early in main(). |
f4e903ba38d8
commit https://github.com/vim/vim/commit/54b6352c6f0617ff9c963588ccc7d31815348029
Christian Brabandt <cb@256bit.org>
parents:
9802
diff
changeset
|
942 * We may call scheme_main_setup() which calls mzscheme_env_main() which then |
f4e903ba38d8
commit https://github.com/vim/vim/commit/54b6352c6f0617ff9c963588ccc7d31815348029
Christian Brabandt <cb@256bit.org>
parents:
9802
diff
changeset
|
943 * trampolines into vim_main2(), which never returns. |
f4e903ba38d8
commit https://github.com/vim/vim/commit/54b6352c6f0617ff9c963588ccc7d31815348029
Christian Brabandt <cb@256bit.org>
parents:
9802
diff
changeset
|
944 */ |
3348 | 945 int |
9961
f4e903ba38d8
commit https://github.com/vim/vim/commit/54b6352c6f0617ff9c963588ccc7d31815348029
Christian Brabandt <cb@256bit.org>
parents:
9802
diff
changeset
|
946 mzscheme_main(void) |
1894 | 947 { |
9802
4cb5ab124239
commit https://github.com/vim/vim/commit/a8e691d44937fd9d72dcbad2b8c673682277f13d
Christian Brabandt <cb@256bit.org>
parents:
9723
diff
changeset
|
948 int argc = 0; |
4cb5ab124239
commit https://github.com/vim/vim/commit/a8e691d44937fd9d72dcbad2b8c673682277f13d
Christian Brabandt <cb@256bit.org>
parents:
9723
diff
changeset
|
949 char *argv = NULL; |
4cb5ab124239
commit https://github.com/vim/vim/commit/a8e691d44937fd9d72dcbad2b8c673682277f13d
Christian Brabandt <cb@256bit.org>
parents:
9723
diff
changeset
|
950 |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
951 #ifdef DYNAMIC_MZSCHEME |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
952 /* |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
953 * Racket requires trampolined startup. We can not load it later. |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
954 * If dynamic dll loading is failed, disable it. |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
955 */ |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
956 if (!mzscheme_enabled(FALSE)) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
957 { |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
958 disabled = TRUE; |
9802
4cb5ab124239
commit https://github.com/vim/vim/commit/a8e691d44937fd9d72dcbad2b8c673682277f13d
Christian Brabandt <cb@256bit.org>
parents:
9723
diff
changeset
|
959 return vim_main2(); |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
960 } |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
961 #endif |
6905 | 962 #ifdef HAVE_TLS_SPACE |
35821
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
963 # ifdef VIMDLL |
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
964 void **ptls_space; |
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
965 intptr_t tls_index; |
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
966 void (*pget_tls_info)(void ***ptls_space, intptr_t *ptls_index); |
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
967 |
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
968 // Get the address of get_tls_info() from (g)vim.exe. |
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
969 pget_tls_info = (void *)GetProcAddress( |
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
970 GetModuleHandle(NULL), "get_tls_info"); |
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
971 if (pget_tls_info == NULL) |
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
972 { |
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
973 disabled = TRUE; |
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
974 return vim_main2(); |
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
975 } |
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
976 pget_tls_info(&ptls_space, &tls_index); |
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
977 scheme_register_tls_space(ptls_space, tls_index); |
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
978 # else |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
979 scheme_register_tls_space(&tls_space, _tls_index); |
35821
7062d2a09d31
patch 9.1.0630: MS-Windows: build fails with VIMDLL and mzscheme
Christian Brabandt <cb@256bit.org>
parents:
33531
diff
changeset
|
980 # endif |
2628 | 981 #endif |
3348 | 982 #ifdef TRAMPOLINED_MZVIM_STARTUP |
9802
4cb5ab124239
commit https://github.com/vim/vim/commit/a8e691d44937fd9d72dcbad2b8c673682277f13d
Christian Brabandt <cb@256bit.org>
parents:
9723
diff
changeset
|
983 return scheme_main_setup(TRUE, mzscheme_env_main, argc, &argv); |
1894 | 984 #else |
9802
4cb5ab124239
commit https://github.com/vim/vim/commit/a8e691d44937fd9d72dcbad2b8c673682277f13d
Christian Brabandt <cb@256bit.org>
parents:
9723
diff
changeset
|
985 return mzscheme_env_main(NULL, argc, &argv); |
1894 | 986 #endif |
987 } | |
988 | |
989 static int | |
9961
f4e903ba38d8
commit https://github.com/vim/vim/commit/54b6352c6f0617ff9c963588ccc7d31815348029
Christian Brabandt <cb@256bit.org>
parents:
9802
diff
changeset
|
990 mzscheme_env_main(Scheme_Env *env, int argc UNUSED, char **argv UNUSED) |
1894 | 991 { |
3348 | 992 #ifdef TRAMPOLINED_MZVIM_STARTUP |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
993 // Scheme has created the environment for us |
3348 | 994 environment = env; |
995 #else | |
996 # ifdef MZ_PRECISE_GC | |
1894 | 997 Scheme_Object *dummy = NULL; |
998 MZ_GC_DECL_REG(1); | |
999 MZ_GC_VAR_IN_REG(0, dummy); | |
1000 | |
1001 stack_base = &__gc_var_stack__; | |
1002 # else | |
1003 int dummy = 0; | |
1004 stack_base = (void *)&dummy; | |
3348 | 1005 # endif |
1894 | 1006 #endif |
3348 | 1007 |
9961
f4e903ba38d8
commit https://github.com/vim/vim/commit/54b6352c6f0617ff9c963588ccc7d31815348029
Christian Brabandt <cb@256bit.org>
parents:
9802
diff
changeset
|
1008 vim_main2(); |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1009 // not reached, vim_main2() will loop until exit() |
9961
f4e903ba38d8
commit https://github.com/vim/vim/commit/54b6352c6f0617ff9c963588ccc7d31815348029
Christian Brabandt <cb@256bit.org>
parents:
9802
diff
changeset
|
1010 |
f4e903ba38d8
commit https://github.com/vim/vim/commit/54b6352c6f0617ff9c963588ccc7d31815348029
Christian Brabandt <cb@256bit.org>
parents:
9802
diff
changeset
|
1011 return 0; |
1894 | 1012 } |
1013 | |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1014 static Scheme_Object* |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1015 load_base_module(void *data) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1016 { |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1017 scheme_namespace_require(scheme_intern_symbol((char *)data)); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1018 return scheme_null; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1019 } |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1020 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1021 static Scheme_Object * |
8779
26495bd795d2
commit https://github.com/vim/vim/commit/8b29aba0192cc56294ef49bb3c01adff4b8f3a28
Christian Brabandt <cb@256bit.org>
parents:
8643
diff
changeset
|
1022 load_base_module_on_error(void *data UNUSED) |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1023 { |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1024 load_base_module_failed = TRUE; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1025 return scheme_null; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1026 } |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1027 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1028 static int |
14 | 1029 startup_mzscheme(void) |
1030 { | |
3348 | 1031 #ifndef TRAMPOLINED_MZVIM_STARTUP |
1894 | 1032 scheme_set_stack_base(stack_base, 1); |
1033 #endif | |
14 | 1034 |
4074 | 1035 #ifndef TRAMPOLINED_MZVIM_STARTUP |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1036 // in newer versions of precise GC the initial env has been created |
4074 | 1037 environment = scheme_basic_env(); |
1038 #endif | |
1039 | |
14 | 1040 MZ_REGISTER_STATIC(environment); |
1041 MZ_REGISTER_STATIC(curout); | |
1042 MZ_REGISTER_STATIC(curerr); | |
1043 MZ_REGISTER_STATIC(exn_catching_apply); | |
1044 MZ_REGISTER_STATIC(exn_p); | |
1045 MZ_REGISTER_STATIC(exn_message); | |
1046 MZ_REGISTER_STATIC(vim_exn); | |
1894 | 1047 |
1048 MZ_GC_CHECK(); | |
1049 | |
1050 #ifdef INCLUDE_MZSCHEME_BASE | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1051 // invoke function from generated and included mzscheme_base.c |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1052 declare_modules(environment); |
1894 | 1053 #endif |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1054 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1055 // setup 'current-library-collection-paths' parameter |
1307 | 1056 # if MZSCHEME_VERSION_MAJOR >= 299 |
1894 | 1057 { |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1058 Scheme_Object *coll_path = NULL; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1059 int mustfree = FALSE; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1060 char_u *s; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1061 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1062 MZ_GC_DECL_REG(1); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1063 MZ_GC_VAR_IN_REG(0, coll_path); |
1894 | 1064 MZ_GC_REG(); |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1065 // workaround for dynamic loading on windows |
8110
d1974721ddc5
commit https://github.com/vim/vim/commit/74a97b1ea0fe2c729e26718d0eec4164c8bed151
Christian Brabandt <cb@256bit.org>
parents:
7823
diff
changeset
|
1066 s = vim_getenv((char_u *)"PLTCOLLECTS", &mustfree); |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1067 if (s != NULL) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1068 { |
8110
d1974721ddc5
commit https://github.com/vim/vim/commit/74a97b1ea0fe2c729e26718d0eec4164c8bed151
Christian Brabandt <cb@256bit.org>
parents:
7823
diff
changeset
|
1069 coll_path = scheme_make_path((char *)s); |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1070 MZ_GC_CHECK(); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1071 if (mustfree) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1072 vim_free(s); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1073 } |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1074 # ifdef MZSCHEME_COLLECTS |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1075 if (coll_path == NULL) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1076 { |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1077 coll_path = scheme_make_path(MZSCHEME_COLLECTS); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1078 MZ_GC_CHECK(); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1079 } |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1080 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1081 if (coll_path != NULL) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1082 { |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1083 scheme_set_collects_path(coll_path); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1084 MZ_GC_CHECK(); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1085 } |
1894 | 1086 MZ_GC_UNREG(); |
1087 } | |
1307 | 1088 # else |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1089 # ifdef MZSCHEME_COLLECTS |
1894 | 1090 { |
1091 Scheme_Object *coll_string = NULL; | |
1092 Scheme_Object *coll_pair = NULL; | |
1093 Scheme_Config *config = NULL; | |
1094 | |
1095 MZ_GC_DECL_REG(3); | |
1096 MZ_GC_VAR_IN_REG(0, coll_string); | |
1097 MZ_GC_VAR_IN_REG(1, coll_pair); | |
1098 MZ_GC_VAR_IN_REG(2, config); | |
1099 MZ_GC_REG(); | |
4074 | 1100 coll_string = scheme_make_byte_string(MZSCHEME_COLLECTS); |
1894 | 1101 MZ_GC_CHECK(); |
1102 coll_pair = scheme_make_pair(coll_string, scheme_null); | |
1103 MZ_GC_CHECK(); | |
4074 | 1104 config = scheme_current_config(); |
1894 | 1105 MZ_GC_CHECK(); |
1106 scheme_set_param(config, MZCONFIG_COLLECTION_PATHS, coll_pair); | |
1107 MZ_GC_CHECK(); | |
1108 MZ_GC_UNREG(); | |
1109 } | |
1307 | 1110 # endif |
14 | 1111 #endif |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1112 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1113 # if MZSCHEME_VERSION_MAJOR >= 600 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1114 { |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1115 Scheme_Object *config_path = NULL; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1116 int mustfree = FALSE; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1117 char_u *s; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1118 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1119 MZ_GC_DECL_REG(1); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1120 MZ_GC_VAR_IN_REG(0, config_path); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1121 MZ_GC_REG(); |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1122 // workaround for dynamic loading on windows |
9289
29de7dda7a6a
commit https://github.com/vim/vim/commit/5b7d177e8994c003ae77ddab5bd54f8cd1ee181b
Christian Brabandt <cb@256bit.org>
parents:
9228
diff
changeset
|
1123 s = vim_getenv((char_u *)"PLTCONFIGDIR", &mustfree); |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1124 if (s != NULL) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1125 { |
9289
29de7dda7a6a
commit https://github.com/vim/vim/commit/5b7d177e8994c003ae77ddab5bd54f8cd1ee181b
Christian Brabandt <cb@256bit.org>
parents:
9228
diff
changeset
|
1126 config_path = scheme_make_path((char *)s); |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1127 MZ_GC_CHECK(); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1128 if (mustfree) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1129 vim_free(s); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1130 } |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1131 #ifdef MZSCHEME_CONFIGDIR |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1132 if (config_path == NULL) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1133 { |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1134 config_path = scheme_make_path(MZSCHEME_CONFIGDIR); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1135 MZ_GC_CHECK(); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1136 } |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1137 #endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1138 if (config_path != NULL) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1139 { |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1140 scheme_set_config_path(config_path); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1141 MZ_GC_CHECK(); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1142 } |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1143 MZ_GC_UNREG(); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1144 } |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1145 # endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1146 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1147 #if MZSCHEME_VERSION_MAJOR >= 400 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1148 scheme_init_collection_paths(environment, scheme_null); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1149 #endif |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1150 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1151 /* |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1152 * versions 4.x do not provide Scheme bindings by default |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1153 * we need to add them explicitly |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1154 */ |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1155 { |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1156 // use error handler to avoid abort |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1157 scheme_dynamic_wind(NULL, load_base_module, NULL, |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1158 load_base_module_on_error, "racket/base"); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1159 if (load_base_module_failed) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1160 { |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1161 load_base_module_failed = FALSE; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1162 scheme_dynamic_wind(NULL, load_base_module, NULL, |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1163 load_base_module_on_error, "scheme/base"); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1164 if (load_base_module_failed) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1165 return -1; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1166 } |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1167 } |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1168 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1169 register_vim_exn(); |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1170 // use new environment to initialise exception handling |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1171 init_exn_catching_apply(); |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1172 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1173 // redirect output |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1174 scheme_console_output = do_output; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1175 scheme_console_printf = do_printf; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1176 |
274 | 1177 #ifdef HAVE_SANDBOX |
1178 { | |
1894 | 1179 Scheme_Object *make_security_guard = NULL; |
1180 MZ_GC_DECL_REG(1); | |
1181 MZ_GC_VAR_IN_REG(0, make_security_guard); | |
1182 MZ_GC_REG(); | |
1183 | |
1184 #if MZSCHEME_VERSION_MAJOR < 400 | |
1185 { | |
1186 Scheme_Object *make_security_guard_symbol = NULL; | |
1187 MZ_GC_DECL_REG(1); | |
1188 MZ_GC_VAR_IN_REG(0, make_security_guard_symbol); | |
1189 MZ_GC_REG(); | |
1190 make_security_guard_symbol = scheme_intern_symbol("make-security-guard"); | |
1191 MZ_GC_CHECK(); | |
1192 make_security_guard = scheme_lookup_global( | |
1193 make_security_guard_symbol, environment); | |
1194 MZ_GC_UNREG(); | |
1195 } | |
1196 #else | |
1197 make_security_guard = scheme_builtin_value("make-security-guard"); | |
1198 MZ_GC_CHECK(); | |
1199 #endif | |
1200 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1201 // setup sandbox guards |
1894 | 1202 if (make_security_guard != NULL) |
1203 { | |
1204 Scheme_Object *args[3] = {NULL, NULL, NULL}; | |
1205 Scheme_Object *guard = NULL; | |
1206 Scheme_Config *config = NULL; | |
1207 MZ_GC_DECL_REG(5); | |
1208 MZ_GC_ARRAY_VAR_IN_REG(0, args, 3); | |
1209 MZ_GC_VAR_IN_REG(3, guard); | |
1210 MZ_GC_VAR_IN_REG(4, config); | |
1211 MZ_GC_REG(); | |
4074 | 1212 config = scheme_current_config(); |
1894 | 1213 MZ_GC_CHECK(); |
1214 args[0] = scheme_get_param(config, MZCONFIG_SECURITY_GUARD); | |
1215 MZ_GC_CHECK(); | |
1216 args[1] = scheme_make_prim_w_arity(sandbox_file_guard, | |
1217 "sandbox-file-guard", 3, 3); | |
1218 args[2] = scheme_make_prim_w_arity(sandbox_network_guard, | |
1219 "sandbox-network-guard", 4, 4); | |
1220 guard = scheme_apply(make_security_guard, 3, args); | |
1221 MZ_GC_CHECK(); | |
1222 scheme_set_param(config, MZCONFIG_SECURITY_GUARD, guard); | |
1223 MZ_GC_CHECK(); | |
1224 MZ_GC_UNREG(); | |
1225 } | |
1226 MZ_GC_UNREG(); | |
274 | 1227 } |
1228 #endif | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1229 // Create buffer and window types for use in Scheme code |
14 | 1230 mz_buffer_type = scheme_make_type("<vim-buffer>"); |
1894 | 1231 MZ_GC_CHECK(); |
14 | 1232 mz_window_type = scheme_make_type("<vim-window>"); |
1894 | 1233 MZ_GC_CHECK(); |
1234 #ifdef MZ_PRECISE_GC | |
1235 GC_register_traversers(mz_buffer_type, | |
1236 buffer_size_proc, buffer_mark_proc, buffer_fixup_proc, | |
1237 TRUE, TRUE); | |
1238 GC_register_traversers(mz_window_type, | |
1239 window_size_proc, window_mark_proc, window_fixup_proc, | |
1240 TRUE, TRUE); | |
1241 #endif | |
1242 | |
1243 make_modules(); | |
14 | 1244 |
1245 /* | |
1246 * setup callback to receive notifications | |
1247 * whether thread scheduling is (or not) required | |
1248 */ | |
1249 scheme_notify_multithread = notify_multithread; | |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1250 |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1251 return 0; |
14 | 1252 } |
1253 | |
1254 /* | |
1255 * This routine is called for each new invocation of MzScheme | |
1256 * to make sure things are properly initialized. | |
1257 */ | |
1258 static int | |
1259 mzscheme_init(void) | |
1260 { | |
1261 if (!initialized) | |
1262 { | |
137 | 1263 #ifdef DYNAMIC_MZSCHEME |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1264 if (disabled || !mzscheme_enabled(TRUE)) |
137 | 1265 { |
26962
85866e069c24
patch 8.2.4010: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26877
diff
changeset
|
1266 emsg(_(e_sorry_this_command_is_disabled_the_mzscheme_libraries_could_not_be_loaded)); |
137 | 1267 return -1; |
1268 } | |
1269 #endif | |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1270 if (load_base_module_failed || startup_mzscheme()) |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1271 { |
26966
ac75c145f0a9
patch 8.2.4012: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26962
diff
changeset
|
1272 emsg(_(e_sorry_this_command_is_disabled_the_mzscheme_racket_base_module_could_not_be_loaded)); |
7609
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1273 return -1; |
77a14f3bc18b
commit https://github.com/vim/vim/commit/4e640bd930d133889dbc9f9a77e29bab902e3b7d
Christian Brabandt <cb@256bit.org>
parents:
6949
diff
changeset
|
1274 } |
1894 | 1275 initialized = TRUE; |
14 | 1276 } |
1277 { | |
1894 | 1278 Scheme_Config *config = NULL; |
1279 MZ_GC_DECL_REG(1); | |
1280 MZ_GC_VAR_IN_REG(0, config); | |
1281 MZ_GC_REG(); | |
4074 | 1282 config = scheme_current_config(); |
1894 | 1283 MZ_GC_CHECK(); |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1284 // recreate ports each call effectively clearing these ones |
4074 | 1285 curout = scheme_make_byte_string_output_port(); |
1894 | 1286 MZ_GC_CHECK(); |
4074 | 1287 curerr = scheme_make_byte_string_output_port(); |
1894 | 1288 MZ_GC_CHECK(); |
1289 scheme_set_param(config, MZCONFIG_OUTPUT_PORT, curout); | |
1290 MZ_GC_CHECK(); | |
1291 scheme_set_param(config, MZCONFIG_ERROR_PORT, curerr); | |
1292 MZ_GC_CHECK(); | |
1293 MZ_GC_UNREG(); | |
14 | 1294 } |
1295 | |
1296 return 0; | |
1297 } | |
1298 | |
1299 /* | |
1300 *======================================================================== | |
1301 * 2. External Interface | |
1302 *======================================================================== | |
1303 */ | |
1304 | |
1305 /* | |
1894 | 1306 * Evaluate command with exception handling |
14 | 1307 */ |
1308 static int | |
1894 | 1309 eval_with_exn_handling(void *data, Scheme_Closed_Prim *what, Scheme_Object **ret) |
14 | 1310 { |
1894 | 1311 Scheme_Object *value = NULL; |
1312 Scheme_Object *exn = NULL; | |
1313 Scheme_Object *prim = NULL; | |
1314 | |
1315 MZ_GC_DECL_REG(3); | |
1316 MZ_GC_VAR_IN_REG(0, value); | |
1317 MZ_GC_VAR_IN_REG(1, exn); | |
1318 MZ_GC_VAR_IN_REG(2, prim); | |
1319 MZ_GC_REG(); | |
1320 | |
1321 prim = scheme_make_closed_prim_w_arity(what, data, "mzvim", 0, 0); | |
1322 MZ_GC_CHECK(); | |
1323 value = _apply_thunk_catch_exceptions(prim, &exn); | |
1324 MZ_GC_CHECK(); | |
14 | 1325 |
1326 if (!value) | |
1327 { | |
1328 value = extract_exn_message(exn); | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1329 // Got an exn? |
14 | 1330 if (value) |
1331 { | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1332 scheme_display(value, curerr); // Send to stderr-vim |
1894 | 1333 MZ_GC_CHECK(); |
14 | 1334 do_flush(); |
1335 } | |
1894 | 1336 MZ_GC_UNREG(); |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1337 // `raise' was called on some arbitrary value |
14 | 1338 return FAIL; |
1339 } | |
1340 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1341 if (ret != NULL) // if pointer to retval supported give it up |
14 | 1342 *ret = value; |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1343 // Print any result, as long as it's not a void |
14 | 1344 else if (!SCHEME_VOIDP(value)) |
1894 | 1345 { |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1346 scheme_display(value, curout); // Send to stdout-vim |
1894 | 1347 MZ_GC_CHECK(); |
1348 } | |
14 | 1349 |
1350 do_flush(); | |
1894 | 1351 MZ_GC_UNREG(); |
14 | 1352 return OK; |
1353 } | |
1354 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1355 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1356 * :mzscheme |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1357 */ |
14 | 1358 static int |
1359 do_mzscheme_command(exarg_T *eap, void *data, Scheme_Closed_Prim *what) | |
1360 { | |
1361 if (mzscheme_init()) | |
1362 return FAIL; | |
1363 | |
1364 range_start = eap->line1; | |
1365 range_end = eap->line2; | |
1366 | |
1894 | 1367 return eval_with_exn_handling(data, what, NULL); |
14 | 1368 } |
1369 | |
1370 /* | |
1371 * Routine called by VIM when deleting a buffer | |
1372 */ | |
1373 void | |
1374 mzscheme_buffer_free(buf_T *buf) | |
1375 { | |
31702
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1376 if (buf->b_mzscheme_ref == NULL) |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1377 return; |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1378 |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1379 vim_mz_buffer *bp = NULL; |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1380 MZ_GC_DECL_REG(1); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1381 MZ_GC_VAR_IN_REG(0, bp); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1382 MZ_GC_REG(); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1383 |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1384 bp = BUFFER_REF(buf); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1385 bp->buf = INVALID_BUFFER_VALUE; |
33531
1a769647d661
patch 9.0.2013: confusing ifdefs in if_<lang>.c
Christian Brabandt <cb@256bit.org>
parents:
32118
diff
changeset
|
1386 #ifdef MZ_PRECISE_GC |
1a769647d661
patch 9.0.2013: confusing ifdefs in if_<lang>.c
Christian Brabandt <cb@256bit.org>
parents:
32118
diff
changeset
|
1387 scheme_free_immobile_box(buf->b_mzscheme_ref); |
1a769647d661
patch 9.0.2013: confusing ifdefs in if_<lang>.c
Christian Brabandt <cb@256bit.org>
parents:
32118
diff
changeset
|
1388 #else |
31702
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1389 scheme_gc_ptr_ok(bp); |
4074 | 1390 #endif |
31702
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1391 buf->b_mzscheme_ref = NULL; |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1392 MZ_GC_CHECK(); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1393 MZ_GC_UNREG(); |
14 | 1394 } |
1395 | |
1396 /* | |
1397 * Routine called by VIM when deleting a Window | |
1398 */ | |
1399 void | |
1400 mzscheme_window_free(win_T *win) | |
1401 { | |
31702
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1402 if (win->w_mzscheme_ref == NULL) |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1403 return; |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1404 |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1405 vim_mz_window *wp = NULL; |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1406 MZ_GC_DECL_REG(1); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1407 MZ_GC_VAR_IN_REG(0, wp); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1408 MZ_GC_REG(); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1409 wp = WINDOW_REF(win); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1410 wp->win = INVALID_WINDOW_VALUE; |
33531
1a769647d661
patch 9.0.2013: confusing ifdefs in if_<lang>.c
Christian Brabandt <cb@256bit.org>
parents:
32118
diff
changeset
|
1411 #ifdef MZ_PRECISE_GC |
1a769647d661
patch 9.0.2013: confusing ifdefs in if_<lang>.c
Christian Brabandt <cb@256bit.org>
parents:
32118
diff
changeset
|
1412 scheme_free_immobile_box(win->w_mzscheme_ref); |
1a769647d661
patch 9.0.2013: confusing ifdefs in if_<lang>.c
Christian Brabandt <cb@256bit.org>
parents:
32118
diff
changeset
|
1413 #else |
31702
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1414 scheme_gc_ptr_ok(wp); |
4074 | 1415 #endif |
31702
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1416 win->w_mzscheme_ref = NULL; |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1417 MZ_GC_CHECK(); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1418 MZ_GC_UNREG(); |
14 | 1419 } |
1420 | |
1421 /* | |
1422 * ":mzscheme" (or ":mz") | |
1423 */ | |
1424 void | |
1425 ex_mzscheme(exarg_T *eap) | |
1426 { | |
1427 char_u *script; | |
1428 | |
1429 script = script_get(eap, eap->arg); | |
31702
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1430 if (eap->skip) |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1431 return; |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1432 |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1433 if (script == NULL) |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1434 do_mzscheme_command(eap, eap->arg, do_eval); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1435 else |
14 | 1436 { |
31702
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1437 do_mzscheme_command(eap, script, do_eval); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1438 vim_free(script); |
14 | 1439 } |
1440 } | |
1441 | |
1442 static Scheme_Object * | |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
1443 do_load(void *data, int noargc UNUSED, Scheme_Object **noargv UNUSED) |
14 | 1444 { |
1894 | 1445 Scheme_Object *expr = NULL; |
1446 Scheme_Object *result = NULL; | |
1447 char *file = NULL; | |
1448 Port_Info *pinfo = (Port_Info *)data; | |
1449 | |
1450 MZ_GC_DECL_REG(3); | |
1451 MZ_GC_VAR_IN_REG(0, expr); | |
1452 MZ_GC_VAR_IN_REG(1, result); | |
1453 MZ_GC_VAR_IN_REG(2, file); | |
1454 MZ_GC_REG(); | |
1455 | |
1456 file = (char *)scheme_malloc_fail_ok(scheme_malloc_atomic, MAXPATHL + 1); | |
1457 MZ_GC_CHECK(); | |
14 | 1458 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1459 // make Vim expansion |
1894 | 1460 expand_env((char_u *)pinfo->name, (char_u *)file, MAXPATHL); |
14 | 1461 pinfo->port = scheme_open_input_file(file, "mzfile"); |
1894 | 1462 MZ_GC_CHECK(); |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1463 scheme_count_lines(pinfo->port); // to get accurate read error location |
1894 | 1464 MZ_GC_CHECK(); |
14 | 1465 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1466 // Like REPL but print only last result |
14 | 1467 while (!SCHEME_EOFP(expr = scheme_read(pinfo->port))) |
1894 | 1468 { |
1469 result = scheme_eval(expr, environment); | |
1470 MZ_GC_CHECK(); | |
1471 } | |
14 | 1472 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1473 // errors will be caught in do_mzscheme_command and ex_mzfile |
14 | 1474 scheme_close_input_port(pinfo->port); |
1894 | 1475 MZ_GC_CHECK(); |
14 | 1476 pinfo->port = NULL; |
1894 | 1477 MZ_GC_UNREG(); |
14 | 1478 return result; |
1479 } | |
1480 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1481 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1482 * :mzfile |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1483 */ |
14 | 1484 void |
1485 ex_mzfile(exarg_T *eap) | |
1486 { | |
1894 | 1487 Port_Info pinfo = {NULL, NULL}; |
1488 | |
1489 MZ_GC_DECL_REG(1); | |
1490 MZ_GC_VAR_IN_REG(0, pinfo.port); | |
1491 MZ_GC_REG(); | |
14 | 1492 |
1493 pinfo.name = (char *)eap->arg; | |
1494 if (do_mzscheme_command(eap, &pinfo, do_load) != OK | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1495 && pinfo.port != NULL) // looks like port was not closed |
1894 | 1496 { |
14 | 1497 scheme_close_input_port(pinfo.port); |
1894 | 1498 MZ_GC_CHECK(); |
1499 } | |
1500 MZ_GC_UNREG(); | |
14 | 1501 } |
1502 | |
1503 | |
1504 /* | |
1505 *======================================================================== | |
1506 * Exception handling code -- cribbed form the MzScheme sources and | |
1507 * Matthew Flatt's "Inside PLT MzScheme" document. | |
1508 *======================================================================== | |
1509 */ | |
1510 static void | |
1511 init_exn_catching_apply(void) | |
1512 { | |
31702
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1513 if (exn_catching_apply) |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1514 return; |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1515 |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1516 char *e = |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1517 "(lambda (thunk) " |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1518 "(with-handlers ([void (lambda (exn) (cons #f exn))]) " |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1519 "(cons #t (thunk))))"; |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1520 |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1521 exn_catching_apply = scheme_eval_string(e, environment); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1522 MZ_GC_CHECK(); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1523 exn_p = scheme_builtin_value("exn?"); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1524 MZ_GC_CHECK(); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1525 exn_message = scheme_builtin_value("exn-message"); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
1526 MZ_GC_CHECK(); |
14 | 1527 } |
1528 | |
1529 /* | |
1530 * This function applies a thunk, returning the Scheme value if there's | |
1531 * no exception, otherwise returning NULL and setting *exn to the raised | |
1532 * value (usually an exn structure). | |
1533 */ | |
1534 static Scheme_Object * | |
1535 _apply_thunk_catch_exceptions(Scheme_Object *f, Scheme_Object **exn) | |
1536 { | |
1537 Scheme_Object *v; | |
1538 | |
1539 v = _scheme_apply(exn_catching_apply, 1, &f); | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1540 // v is a pair: (cons #t value) or (cons #f exn) |
14 | 1541 |
1542 if (SCHEME_TRUEP(SCHEME_CAR(v))) | |
1543 return SCHEME_CDR(v); | |
1544 else | |
1545 { | |
1546 *exn = SCHEME_CDR(v); | |
1547 return NULL; | |
1548 } | |
1549 } | |
1550 | |
1551 static Scheme_Object * | |
1552 extract_exn_message(Scheme_Object *v) | |
1553 { | |
1554 if (SCHEME_TRUEP(_scheme_apply(exn_p, 1, &v))) | |
1555 return _scheme_apply(exn_message, 1, &v); | |
1556 else | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1557 return NULL; // Not an exn structure |
14 | 1558 } |
1559 | |
1560 static Scheme_Object * | |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
1561 do_eval(void *s, int noargc UNUSED, Scheme_Object **noargv UNUSED) |
14 | 1562 { |
1894 | 1563 return scheme_eval_string_all((char *)s, environment, TRUE); |
14 | 1564 } |
1565 | |
1566 /* | |
1567 *======================================================================== | |
1568 * 3. MzScheme I/O Handlers | |
1569 *======================================================================== | |
1570 */ | |
1571 static void | |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
1572 do_intrnl_output(char *mesg, int error) |
14 | 1573 { |
1574 char *p, *prev; | |
1575 | |
1576 prev = mesg; | |
1577 p = strchr(prev, '\n'); | |
1578 while (p) | |
1579 { | |
1580 *p = '\0'; | |
1581 if (error) | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15412
diff
changeset
|
1582 emsg(prev); |
14 | 1583 else |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1584 msg(prev); |
14 | 1585 prev = p + 1; |
1586 p = strchr(prev, '\n'); | |
1587 } | |
1588 | |
1589 if (error) | |
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15412
diff
changeset
|
1590 emsg(prev); |
14 | 1591 else |
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1592 msg(prev); |
14 | 1593 } |
1594 | |
1595 static void | |
4074 | 1596 do_output(char *mesg, OUTPUT_LEN_TYPE len UNUSED) |
14 | 1597 { |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1598 // TODO: use len, the string may not be NUL terminated |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
1599 do_intrnl_output(mesg, 0); |
14 | 1600 } |
1601 | |
1602 static void | |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
1603 do_err_output(char *mesg) |
14 | 1604 { |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
1605 do_intrnl_output(mesg, 1); |
14 | 1606 } |
1607 | |
1608 static void | |
1609 do_printf(char *format, ...) | |
1610 { | |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
1611 do_intrnl_output(format, 1); |
14 | 1612 } |
1613 | |
1614 static void | |
1615 do_flush(void) | |
1616 { | |
1617 char *buff; | |
4074 | 1618 OUTPUT_LEN_TYPE length; |
1619 | |
1620 buff = scheme_get_sized_byte_string_output(curerr, &length); | |
1894 | 1621 MZ_GC_CHECK(); |
14 | 1622 if (length) |
1623 { | |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
1624 do_err_output(buff); |
14 | 1625 return; |
1626 } | |
1627 | |
4074 | 1628 buff = scheme_get_sized_byte_string_output(curout, &length); |
1894 | 1629 MZ_GC_CHECK(); |
14 | 1630 if (length) |
1631 do_output(buff, length); | |
1632 } | |
1633 | |
1634 /* | |
1635 *======================================================================== | |
1636 * 4. Implementation of the Vim Features for MzScheme | |
1637 *======================================================================== | |
1638 */ | |
1639 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1640 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1641 * (command {command-string}) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1642 */ |
14 | 1643 static Scheme_Object * |
1644 vim_command(void *data, int argc, Scheme_Object **argv) | |
1645 { | |
1646 Vim_Prim *prim = (Vim_Prim *)data; | |
4074 | 1647 Scheme_Object *cmd = NULL; |
1648 MZ_GC_DECL_REG(1); | |
1649 MZ_GC_VAR_IN_REG(0, cmd); | |
1650 MZ_GC_REG(); | |
1651 cmd = GUARANTEED_STRING_ARG(prim->name, 0); | |
14 | 1652 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1653 // may be use do_cmdline_cmd? |
4074 | 1654 do_cmdline(BYTE_STRING_VALUE(cmd), NULL, NULL, DOCMD_NOWAIT|DOCMD_VERBOSE); |
29732
89e1d67814a9
patch 9.0.0206: redraw flags are not named specifically
Bram Moolenaar <Bram@vim.org>
parents:
28303
diff
changeset
|
1655 update_screen(UPD_VALID); |
14 | 1656 |
4074 | 1657 MZ_GC_UNREG(); |
14 | 1658 raise_if_error(); |
1659 return scheme_void; | |
1660 } | |
1661 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1662 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1663 * (eval {expr-string}) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1664 */ |
14 | 1665 static Scheme_Object * |
4082 | 1666 vim_eval(void *data UNUSED, int argc UNUSED, Scheme_Object **argv UNUSED) |
14 | 1667 { |
1668 #ifdef FEAT_EVAL | |
1894 | 1669 Vim_Prim *prim = (Vim_Prim *)data; |
4074 | 1670 Scheme_Object *result = NULL; |
1894 | 1671 typval_T *vim_result; |
4074 | 1672 Scheme_Object *expr = NULL; |
1673 MZ_GC_DECL_REG(2); | |
1674 MZ_GC_VAR_IN_REG(0, result); | |
1675 MZ_GC_VAR_IN_REG(1, expr); | |
1894 | 1676 MZ_GC_REG(); |
4074 | 1677 expr = GUARANTEED_STRING_ARG(prim->name, 0); |
1678 | |
1679 vim_result = eval_expr(BYTE_STRING_VALUE(expr), NULL); | |
1894 | 1680 |
1681 if (vim_result == NULL) | |
14 | 1682 raise_vim_exn(_("invalid expression")); |
1683 | |
4074 | 1684 result = vim_to_mzscheme(vim_result); |
1685 MZ_GC_CHECK(); | |
1894 | 1686 free_tv(vim_result); |
1687 | |
1688 MZ_GC_UNREG(); | |
14 | 1689 return result; |
1690 #else | |
1691 raise_vim_exn(_("expressions disabled at compile time")); | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1692 // unreachable |
14 | 1693 return scheme_false; |
1694 #endif | |
1695 } | |
1696 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1697 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1698 * (range-start) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1699 */ |
14 | 1700 static Scheme_Object * |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
1701 get_range_start(void *data UNUSED, int argc UNUSED, Scheme_Object **argv UNUSED) |
14 | 1702 { |
1703 return scheme_make_integer(range_start); | |
1704 } | |
1705 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1706 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1707 * (range-end) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1708 */ |
14 | 1709 static Scheme_Object * |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
1710 get_range_end(void *data UNUSED, int argc UNUSED, Scheme_Object **argv UNUSED) |
14 | 1711 { |
1712 return scheme_make_integer(range_end); | |
1713 } | |
1714 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1715 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1716 * (beep) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1717 */ |
14 | 1718 static Scheme_Object * |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
1719 mzscheme_beep(void *data UNUSED, int argc UNUSED, Scheme_Object **argv UNUSED) |
14 | 1720 { |
6949 | 1721 vim_beep(BO_LANG); |
14 | 1722 return scheme_void; |
1723 } | |
1724 | |
1725 static Scheme_Object *M_global = NULL; | |
1726 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1727 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1728 * (get-option {option-name}) [buffer/window] |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1729 */ |
14 | 1730 static Scheme_Object * |
1731 get_option(void *data, int argc, Scheme_Object **argv) | |
1732 { | |
1733 Vim_Prim *prim = (Vim_Prim *)data; | |
1734 long value; | |
1894 | 1735 char *strval; |
23422
bb0c53f4ef8b
patch 8.2.2254: Vim9: bool option type is number
Bram Moolenaar <Bram@vim.org>
parents:
21745
diff
changeset
|
1736 getoption_T rc; |
4074 | 1737 Scheme_Object *rval = NULL; |
1738 Scheme_Object *name = NULL; | |
26441
65ab0b035dd8
patch 8.2.3751: cannot assign a lambda to an option that takes a function
Bram Moolenaar <Bram@vim.org>
parents:
25475
diff
changeset
|
1739 int scope = 0; |
14 | 1740 buf_T *save_curb = curbuf; |
1741 win_T *save_curw = curwin; | |
1742 | |
4074 | 1743 MZ_GC_DECL_REG(2); |
1744 MZ_GC_VAR_IN_REG(0, rval); | |
1745 MZ_GC_VAR_IN_REG(1, name); | |
1746 MZ_GC_REG(); | |
1747 | |
1748 name = GUARANTEED_STRING_ARG(prim->name, 0); | |
14 | 1749 |
1750 if (argc > 1) | |
1751 { | |
1752 if (M_global == NULL) | |
1753 { | |
1754 MZ_REGISTER_STATIC(M_global); | |
1755 M_global = scheme_intern_symbol("global"); | |
1894 | 1756 MZ_GC_CHECK(); |
14 | 1757 } |
1758 | |
1759 if (argv[1] == M_global) | |
26441
65ab0b035dd8
patch 8.2.3751: cannot assign a lambda to an option that takes a function
Bram Moolenaar <Bram@vim.org>
parents:
25475
diff
changeset
|
1760 scope = OPT_GLOBAL; |
14 | 1761 else if (SCHEME_VIMBUFFERP(argv[1])) |
1762 { | |
1763 curbuf = get_valid_buffer(argv[1]); | |
26441
65ab0b035dd8
patch 8.2.3751: cannot assign a lambda to an option that takes a function
Bram Moolenaar <Bram@vim.org>
parents:
25475
diff
changeset
|
1764 scope = OPT_LOCAL; |
14 | 1765 } |
1766 else if (SCHEME_VIMWINDOWP(argv[1])) | |
1767 { | |
1768 win_T *win = get_valid_window(argv[1]); | |
1769 | |
1770 curwin = win; | |
1771 curbuf = win->w_buffer; | |
26441
65ab0b035dd8
patch 8.2.3751: cannot assign a lambda to an option that takes a function
Bram Moolenaar <Bram@vim.org>
parents:
25475
diff
changeset
|
1772 scope = OPT_LOCAL; |
14 | 1773 } |
1774 else | |
1775 scheme_wrong_type(prim->name, "vim-buffer/window", 1, argc, argv); | |
1776 } | |
1777 | |
23422
bb0c53f4ef8b
patch 8.2.2254: Vim9: bool option type is number
Bram Moolenaar <Bram@vim.org>
parents:
21745
diff
changeset
|
1778 rc = get_option_value(BYTE_STRING_VALUE(name), &value, (char_u **)&strval, |
26441
65ab0b035dd8
patch 8.2.3751: cannot assign a lambda to an option that takes a function
Bram Moolenaar <Bram@vim.org>
parents:
25475
diff
changeset
|
1779 NULL, scope); |
14 | 1780 curbuf = save_curb; |
1781 curwin = save_curw; | |
1782 | |
1783 switch (rc) | |
1784 { | |
23422
bb0c53f4ef8b
patch 8.2.2254: Vim9: bool option type is number
Bram Moolenaar <Bram@vim.org>
parents:
21745
diff
changeset
|
1785 case gov_bool: |
bb0c53f4ef8b
patch 8.2.2254: Vim9: bool option type is number
Bram Moolenaar <Bram@vim.org>
parents:
21745
diff
changeset
|
1786 case gov_number: |
4074 | 1787 MZ_GC_UNREG(); |
14 | 1788 return scheme_make_integer_value(value); |
23422
bb0c53f4ef8b
patch 8.2.2254: Vim9: bool option type is number
Bram Moolenaar <Bram@vim.org>
parents:
21745
diff
changeset
|
1789 case gov_string: |
4074 | 1790 rval = scheme_make_byte_string(strval); |
1894 | 1791 MZ_GC_CHECK(); |
14 | 1792 vim_free(strval); |
4074 | 1793 MZ_GC_UNREG(); |
14 | 1794 return rval; |
23422
bb0c53f4ef8b
patch 8.2.2254: Vim9: bool option type is number
Bram Moolenaar <Bram@vim.org>
parents:
21745
diff
changeset
|
1795 case gov_hidden_bool: |
bb0c53f4ef8b
patch 8.2.2254: Vim9: bool option type is number
Bram Moolenaar <Bram@vim.org>
parents:
21745
diff
changeset
|
1796 case gov_hidden_number: |
bb0c53f4ef8b
patch 8.2.2254: Vim9: bool option type is number
Bram Moolenaar <Bram@vim.org>
parents:
21745
diff
changeset
|
1797 case gov_hidden_string: |
4074 | 1798 MZ_GC_UNREG(); |
856 | 1799 raise_vim_exn(_("hidden option")); |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1800 //NOTREACHED |
23422
bb0c53f4ef8b
patch 8.2.2254: Vim9: bool option type is number
Bram Moolenaar <Bram@vim.org>
parents:
21745
diff
changeset
|
1801 case gov_unknown: |
4074 | 1802 MZ_GC_UNREG(); |
856 | 1803 raise_vim_exn(_("unknown option")); |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1804 //NOTREACHED |
14 | 1805 } |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1806 // unreachable |
14 | 1807 return scheme_void; |
1808 } | |
1809 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1810 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1811 * (set-option {option-changing-string} [buffer/window]) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1812 */ |
14 | 1813 static Scheme_Object * |
1814 set_option(void *data, int argc, Scheme_Object **argv) | |
1815 { | |
4074 | 1816 char_u *command = NULL; |
26441
65ab0b035dd8
patch 8.2.3751: cannot assign a lambda to an option that takes a function
Bram Moolenaar <Bram@vim.org>
parents:
25475
diff
changeset
|
1817 int scope = 0; |
14 | 1818 buf_T *save_curb = curbuf; |
1819 win_T *save_curw = curwin; | |
1820 Vim_Prim *prim = (Vim_Prim *)data; | |
4074 | 1821 Scheme_Object *cmd = NULL; |
1822 | |
1823 MZ_GC_DECL_REG(1); | |
1824 MZ_GC_VAR_IN_REG(0, cmd); | |
1825 MZ_GC_REG(); | |
1826 cmd = GUARANTEED_STRING_ARG(prim->name, 0); | |
1827 | |
14 | 1828 if (argc > 1) |
1829 { | |
1830 if (M_global == NULL) | |
1831 { | |
1832 MZ_REGISTER_STATIC(M_global); | |
1833 M_global = scheme_intern_symbol("global"); | |
1894 | 1834 MZ_GC_CHECK(); |
14 | 1835 } |
1836 | |
1837 if (argv[1] == M_global) | |
26441
65ab0b035dd8
patch 8.2.3751: cannot assign a lambda to an option that takes a function
Bram Moolenaar <Bram@vim.org>
parents:
25475
diff
changeset
|
1838 scope = OPT_GLOBAL; |
14 | 1839 else if (SCHEME_VIMBUFFERP(argv[1])) |
1840 { | |
1841 curbuf = get_valid_buffer(argv[1]); | |
26441
65ab0b035dd8
patch 8.2.3751: cannot assign a lambda to an option that takes a function
Bram Moolenaar <Bram@vim.org>
parents:
25475
diff
changeset
|
1842 scope = OPT_LOCAL; |
14 | 1843 } |
1844 else if (SCHEME_VIMWINDOWP(argv[1])) | |
1845 { | |
1846 win_T *win = get_valid_window(argv[1]); | |
1847 curwin = win; | |
1848 curbuf = win->w_buffer; | |
26441
65ab0b035dd8
patch 8.2.3751: cannot assign a lambda to an option that takes a function
Bram Moolenaar <Bram@vim.org>
parents:
25475
diff
changeset
|
1849 scope = OPT_LOCAL; |
14 | 1850 } |
1851 else | |
1852 scheme_wrong_type(prim->name, "vim-buffer/window", 1, argc, argv); | |
1853 } | |
1854 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1855 // do_set can modify cmd, make copy |
4074 | 1856 command = vim_strsave(BYTE_STRING_VALUE(cmd)); |
1857 MZ_GC_UNREG(); | |
26441
65ab0b035dd8
patch 8.2.3751: cannot assign a lambda to an option that takes a function
Bram Moolenaar <Bram@vim.org>
parents:
25475
diff
changeset
|
1858 do_set(command, scope); |
4074 | 1859 vim_free(command); |
29732
89e1d67814a9
patch 9.0.0206: redraw flags are not named specifically
Bram Moolenaar <Bram@vim.org>
parents:
28303
diff
changeset
|
1860 update_screen(UPD_NOT_VALID); |
14 | 1861 curbuf = save_curb; |
1862 curwin = save_curw; | |
1863 raise_if_error(); | |
1864 return scheme_void; | |
1865 } | |
1866 | |
1867 /* | |
1868 *=========================================================================== | |
1869 * 5. Vim Window-related Manipulation Functions | |
1870 *=========================================================================== | |
1871 */ | |
1872 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1873 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1874 * (curr-win) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1875 */ |
14 | 1876 static Scheme_Object * |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
1877 get_curr_win(void *data UNUSED, int argc UNUSED, Scheme_Object **argv UNUSED) |
14 | 1878 { |
1879 return (Scheme_Object *)get_vim_curr_window(); | |
1880 } | |
1881 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1882 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1883 * (win-count) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1884 */ |
14 | 1885 static Scheme_Object * |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
1886 get_window_count(void *data UNUSED, int argc UNUSED, Scheme_Object **argv UNUSED) |
14 | 1887 { |
4082 | 1888 int n = 0; |
14 | 1889 win_T *w; |
1890 | |
9649
fd9727ae3c49
commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents:
9289
diff
changeset
|
1891 FOR_ALL_WINDOWS(w) |
671 | 1892 ++n; |
14 | 1893 return scheme_make_integer(n); |
1894 } | |
1895 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1896 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1897 * (get-win-list [buffer]) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1898 */ |
14 | 1899 static Scheme_Object * |
1900 get_window_list(void *data, int argc, Scheme_Object **argv) | |
1901 { | |
1902 Vim_Prim *prim = (Vim_Prim *)data; | |
1903 vim_mz_buffer *buf; | |
1904 Scheme_Object *list; | |
4082 | 1905 win_T *w = firstwin; |
14 | 1906 |
1907 buf = get_buffer_arg(prim->name, 0, argc, argv); | |
1908 list = scheme_null; | |
1909 | |
4082 | 1910 for ( ; w != NULL; w = w->w_next) |
856 | 1911 if (w->w_buffer == buf->buf) |
1894 | 1912 { |
14 | 1913 list = scheme_make_pair(window_new(w), list); |
1894 | 1914 MZ_GC_CHECK(); |
1915 } | |
14 | 1916 |
1917 return list; | |
1918 } | |
1919 | |
1920 static Scheme_Object * | |
1921 window_new(win_T *win) | |
1922 { | |
1894 | 1923 vim_mz_window *self = NULL; |
1924 | |
1925 MZ_GC_DECL_REG(1); | |
1926 MZ_GC_VAR_IN_REG(0, self); | |
14 | 1927 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1928 // We need to handle deletion of windows underneath us. |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1929 // If we add a "w_mzscheme_ref" field to the win_T structure, |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1930 // then we can get at it in win_free() in vim. |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1931 // |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1932 // On a win_free() we set the Scheme object's win_T *field |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1933 // to an invalid value. We trap all uses of a window |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1934 // object, and reject them if the win_T *field is invalid. |
502 | 1935 if (win->w_mzscheme_ref != NULL) |
4074 | 1936 return (Scheme_Object *)WINDOW_REF(win); |
1937 | |
1938 MZ_GC_REG(); | |
1939 self = scheme_malloc_fail_ok(scheme_malloc_tagged, sizeof(vim_mz_window)); | |
20007
aadd1cae2ff5
patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents:
19229
diff
changeset
|
1940 CLEAR_POINTER(self); |
33531
1a769647d661
patch 9.0.2013: confusing ifdefs in if_<lang>.c
Christian Brabandt <cb@256bit.org>
parents:
32118
diff
changeset
|
1941 #ifdef MZ_PRECISE_GC |
1a769647d661
patch 9.0.2013: confusing ifdefs in if_<lang>.c
Christian Brabandt <cb@256bit.org>
parents:
32118
diff
changeset
|
1942 win->w_mzscheme_ref = scheme_malloc_immobile_box(NULL); |
1a769647d661
patch 9.0.2013: confusing ifdefs in if_<lang>.c
Christian Brabandt <cb@256bit.org>
parents:
32118
diff
changeset
|
1943 #else |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1944 scheme_dont_gc_ptr(self); // because win isn't visible to GC |
4074 | 1945 #endif |
1894 | 1946 MZ_GC_CHECK(); |
4074 | 1947 WINDOW_REF(win) = self; |
1948 MZ_GC_CHECK(); | |
14 | 1949 self->win = win; |
1894 | 1950 self->so.type = mz_window_type; |
1951 | |
1952 MZ_GC_UNREG(); | |
4074 | 1953 return (Scheme_Object *)self; |
14 | 1954 } |
1955 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1956 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1957 * (get-win-num [window]) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1958 */ |
14 | 1959 static Scheme_Object * |
4082 | 1960 get_window_num(void *data UNUSED, int argc UNUSED, Scheme_Object **argv UNUSED) |
14 | 1961 { |
4082 | 1962 int nr = 1; |
14 | 1963 Vim_Prim *prim = (Vim_Prim *)data; |
1964 win_T *win = get_window_arg(prim->name, 0, argc, argv)->win; | |
1965 win_T *wp; | |
1966 | |
1967 for (wp = firstwin; wp != win; wp = wp->w_next) | |
1968 ++nr; | |
1969 | |
1970 return scheme_make_integer(nr); | |
1971 } | |
1972 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1973 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1974 * (get-win-by-num {windownum}) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1975 */ |
14 | 1976 static Scheme_Object * |
1977 get_window_by_num(void *data, int argc, Scheme_Object **argv) | |
1978 { | |
1979 Vim_Prim *prim = (Vim_Prim *)data; | |
4082 | 1980 win_T *win = firstwin; |
14 | 1981 int fnum; |
1982 | |
1983 fnum = SCHEME_INT_VAL(GUARANTEE_INTEGER(prim->name, 0)); | |
1984 if (fnum < 1) | |
1985 scheme_signal_error(_("window index is out of range")); | |
1986 | |
4082 | 1987 for ( ; win != NULL; win = win->w_next, --fnum) |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1988 if (fnum == 1) // to be 1-based |
14 | 1989 return window_new(win); |
1990 | |
1991 return scheme_false; | |
1992 } | |
1993 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1994 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1995 * (get-win-buffer [window]) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
1996 */ |
14 | 1997 static Scheme_Object * |
1998 get_window_buffer(void *data, int argc, Scheme_Object **argv) | |
1999 { | |
2000 Vim_Prim *prim = (Vim_Prim *)data; | |
2001 vim_mz_window *win = get_window_arg(prim->name, 0, argc, argv); | |
2002 | |
2003 return buffer_new(win->win->w_buffer); | |
2004 } | |
2005 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2006 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2007 * (get-win-height [window]) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2008 */ |
14 | 2009 static Scheme_Object * |
2010 get_window_height(void *data, int argc, Scheme_Object **argv) | |
2011 { | |
2012 Vim_Prim *prim = (Vim_Prim *)data; | |
2013 vim_mz_window *win = get_window_arg(prim->name, 0, argc, argv); | |
2014 | |
2015 return scheme_make_integer(win->win->w_height); | |
2016 } | |
2017 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2018 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2019 * (set-win-height {height} [window]) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2020 */ |
14 | 2021 static Scheme_Object * |
2022 set_window_height(void *data, int argc, Scheme_Object **argv) | |
2023 { | |
2024 Vim_Prim *prim = (Vim_Prim *)data; | |
2025 vim_mz_window *win; | |
2026 win_T *savewin; | |
2027 int height; | |
2028 | |
2029 win = get_window_arg(prim->name, 1, argc, argv); | |
2030 height = SCHEME_INT_VAL(GUARANTEE_INTEGER(prim->name, 0)); | |
2031 | |
2032 #ifdef FEAT_GUI | |
2033 need_mouse_correct = TRUE; | |
2034 #endif | |
2035 | |
2036 savewin = curwin; | |
2037 curwin = win->win; | |
2038 win_setheight(height); | |
2039 curwin = savewin; | |
2040 | |
2041 raise_if_error(); | |
2042 return scheme_void; | |
2043 } | |
2044 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2045 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2046 * (get-win-width [window]) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2047 */ |
14 | 2048 static Scheme_Object * |
2049 get_window_width(void *data, int argc, Scheme_Object **argv) | |
2050 { | |
2051 Vim_Prim *prim = (Vim_Prim *)data; | |
2052 vim_mz_window *win = get_window_arg(prim->name, 0, argc, argv); | |
2053 | |
12515
972ea22c946f
patch 8.0.1136: W_WIDTH() is always the same
Christian Brabandt <cb@256bit.org>
parents:
12477
diff
changeset
|
2054 return scheme_make_integer(win->win->w_width); |
14 | 2055 } |
2056 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2057 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2058 * (set-win-width {width} [window]) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2059 */ |
14 | 2060 static Scheme_Object * |
2061 set_window_width(void *data, int argc, Scheme_Object **argv) | |
2062 { | |
2063 Vim_Prim *prim = (Vim_Prim *)data; | |
2064 vim_mz_window *win; | |
2065 win_T *savewin; | |
2066 int width = 0; | |
2067 | |
2068 win = get_window_arg(prim->name, 1, argc, argv); | |
2069 width = SCHEME_INT_VAL(GUARANTEE_INTEGER(prim->name, 0)); | |
2070 | |
2071 # ifdef FEAT_GUI | |
2072 need_mouse_correct = TRUE; | |
2073 # endif | |
2074 | |
2075 savewin = curwin; | |
2076 curwin = win->win; | |
2077 win_setwidth(width); | |
2078 curwin = savewin; | |
2079 | |
2080 raise_if_error(); | |
2081 return scheme_void; | |
2082 } | |
2083 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2084 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2085 * (get-cursor [window]) -> (line . col) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2086 */ |
14 | 2087 static Scheme_Object * |
2088 get_cursor(void *data, int argc, Scheme_Object **argv) | |
2089 { | |
2090 Vim_Prim *prim = (Vim_Prim *)data; | |
2091 vim_mz_window *win; | |
2092 pos_T pos; | |
2093 | |
2094 win = get_window_arg(prim->name, 0, argc, argv); | |
2095 pos = win->win->w_cursor; | |
2096 return scheme_make_pair(scheme_make_integer_value((long)pos.lnum), | |
2097 scheme_make_integer_value((long)pos.col + 1)); | |
2098 } | |
2099 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2100 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2101 * (set-cursor (line . col) [window]) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2102 */ |
14 | 2103 static Scheme_Object * |
2104 set_cursor(void *data, int argc, Scheme_Object **argv) | |
2105 { | |
2106 Vim_Prim *prim = (Vim_Prim *)data; | |
2107 vim_mz_window *win; | |
2108 long lnum = 0; | |
2109 long col = 0; | |
2110 | |
274 | 2111 #ifdef HAVE_SANDBOX |
2112 sandbox_check(); | |
2113 #endif | |
14 | 2114 win = get_window_arg(prim->name, 1, argc, argv); |
2115 GUARANTEE_PAIR(prim->name, 0); | |
2116 | |
2117 if (!SCHEME_INTP(SCHEME_CAR(argv[0])) | |
2118 || !SCHEME_INTP(SCHEME_CDR(argv[0]))) | |
2119 scheme_wrong_type(prim->name, "integer pair", 0, argc, argv); | |
2120 | |
2121 lnum = SCHEME_INT_VAL(SCHEME_CAR(argv[0])); | |
2122 col = SCHEME_INT_VAL(SCHEME_CDR(argv[0])) - 1; | |
2123 | |
2124 check_line_range(lnum, win->win->w_buffer); | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2125 // don't know how to catch invalid column value |
14 | 2126 |
2127 win->win->w_cursor.lnum = lnum; | |
2128 win->win->w_cursor.col = col; | |
14395
c15bef307de6
patch 8.1.0212: preferred cursor column not set in interfaces
Christian Brabandt <cb@256bit.org>
parents:
12608
diff
changeset
|
2129 win->win->w_set_curswant = TRUE; |
29732
89e1d67814a9
patch 9.0.0206: redraw flags are not named specifically
Bram Moolenaar <Bram@vim.org>
parents:
28303
diff
changeset
|
2130 update_screen(UPD_VALID); |
14 | 2131 |
2132 raise_if_error(); | |
2133 return scheme_void; | |
2134 } | |
2135 /* | |
2136 *=========================================================================== | |
2137 * 6. Vim Buffer-related Manipulation Functions | |
2138 *=========================================================================== | |
2139 */ | |
2140 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2141 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2142 * (open-buff {filename}) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2143 */ |
14 | 2144 static Scheme_Object * |
2145 mzscheme_open_buffer(void *data, int argc, Scheme_Object **argv) | |
2146 { | |
2147 Vim_Prim *prim = (Vim_Prim *)data; | |
2148 int num = 0; | |
4074 | 2149 Scheme_Object *onum = NULL; |
2150 Scheme_Object *buf = NULL; | |
2151 Scheme_Object *fname; | |
2152 | |
2153 MZ_GC_DECL_REG(3); | |
2154 MZ_GC_VAR_IN_REG(0, onum); | |
2155 MZ_GC_VAR_IN_REG(1, buf); | |
2156 MZ_GC_VAR_IN_REG(2, fname); | |
2157 MZ_GC_REG(); | |
2158 fname = GUARANTEED_STRING_ARG(prim->name, 0); | |
14 | 2159 |
274 | 2160 #ifdef HAVE_SANDBOX |
2161 sandbox_check(); | |
2162 #endif | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2163 // TODO make open existing file |
4074 | 2164 num = buflist_add(BYTE_STRING_VALUE(fname), BLN_LISTED | BLN_CURBUF); |
14 | 2165 |
2166 if (num == 0) | |
2167 raise_vim_exn(_("couldn't open buffer")); | |
2168 | |
2169 onum = scheme_make_integer(num); | |
4074 | 2170 buf = get_buffer_by_num(data, 1, &onum); |
2171 MZ_GC_UNREG(); | |
2172 return buf; | |
14 | 2173 } |
2174 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2175 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2176 * (get-buff-by-num {buffernum}) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2177 */ |
14 | 2178 static Scheme_Object * |
2179 get_buffer_by_num(void *data, int argc, Scheme_Object **argv) | |
2180 { | |
2181 Vim_Prim *prim = (Vim_Prim *)data; | |
2182 buf_T *buf; | |
2183 int fnum; | |
2184 | |
2185 fnum = SCHEME_INT_VAL(GUARANTEE_INTEGER(prim->name, 0)); | |
2186 | |
9649
fd9727ae3c49
commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents:
9289
diff
changeset
|
2187 FOR_ALL_BUFFERS(buf) |
856 | 2188 if (buf->b_fnum == fnum) |
14 | 2189 return buffer_new(buf); |
2190 | |
2191 return scheme_false; | |
2192 } | |
2193 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2194 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2195 * (get-buff-by-name {buffername}) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2196 */ |
14 | 2197 static Scheme_Object * |
2198 get_buffer_by_name(void *data, int argc, Scheme_Object **argv) | |
2199 { | |
2200 Vim_Prim *prim = (Vim_Prim *)data; | |
2201 buf_T *buf; | |
4074 | 2202 Scheme_Object *buffer = NULL; |
2203 Scheme_Object *fname = NULL; | |
2204 | |
2205 MZ_GC_DECL_REG(2); | |
2206 MZ_GC_VAR_IN_REG(0, buffer); | |
2207 MZ_GC_VAR_IN_REG(1, fname); | |
2208 MZ_GC_REG(); | |
2209 fname = GUARANTEED_STRING_ARG(prim->name, 0); | |
2210 buffer = scheme_false; | |
14 | 2211 |
9649
fd9727ae3c49
commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents:
9289
diff
changeset
|
2212 FOR_ALL_BUFFERS(buf) |
4074 | 2213 { |
14 | 2214 if (buf->b_ffname == NULL || buf->b_sfname == NULL) |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2215 // empty string |
14 | 2216 { |
4074 | 2217 if (BYTE_STRING_VALUE(fname)[0] == NUL) |
2218 buffer = buffer_new(buf); | |
14 | 2219 } |
4074 | 2220 else if (!fnamecmp(buf->b_ffname, BYTE_STRING_VALUE(fname)) |
2221 || !fnamecmp(buf->b_sfname, BYTE_STRING_VALUE(fname))) | |
2222 { | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2223 // either short or long filename matches |
4074 | 2224 buffer = buffer_new(buf); |
2225 } | |
2226 } | |
2227 | |
2228 MZ_GC_UNREG(); | |
2229 return buffer; | |
14 | 2230 } |
2231 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2232 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2233 * (get-next-buff [buffer]) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2234 */ |
14 | 2235 static Scheme_Object * |
2236 get_next_buffer(void *data, int argc, Scheme_Object **argv) | |
2237 { | |
2238 Vim_Prim *prim = (Vim_Prim *)data; | |
2239 buf_T *buf = get_buffer_arg(prim->name, 0, argc, argv)->buf; | |
2240 | |
2241 if (buf->b_next == NULL) | |
2242 return scheme_false; | |
2243 else | |
2244 return buffer_new(buf->b_next); | |
2245 } | |
2246 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2247 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2248 * (get-prev-buff [buffer]) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2249 */ |
14 | 2250 static Scheme_Object * |
2251 get_prev_buffer(void *data, int argc, Scheme_Object **argv) | |
2252 { | |
2253 Vim_Prim *prim = (Vim_Prim *)data; | |
2254 buf_T *buf = get_buffer_arg(prim->name, 0, argc, argv)->buf; | |
2255 | |
2256 if (buf->b_prev == NULL) | |
2257 return scheme_false; | |
2258 else | |
2259 return buffer_new(buf->b_prev); | |
2260 } | |
2261 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2262 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2263 * (get-buff-num [buffer]) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2264 */ |
14 | 2265 static Scheme_Object * |
2266 get_buffer_num(void *data, int argc, Scheme_Object **argv) | |
2267 { | |
2268 Vim_Prim *prim = (Vim_Prim *)data; | |
2269 vim_mz_buffer *buf = get_buffer_arg(prim->name, 0, argc, argv); | |
2270 | |
2271 return scheme_make_integer(buf->buf->b_fnum); | |
2272 } | |
2273 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2274 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2275 * (buff-count) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2276 */ |
14 | 2277 static Scheme_Object * |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
2278 get_buffer_count(void *data UNUSED, int argc UNUSED, Scheme_Object **argv UNUSED) |
14 | 2279 { |
2280 buf_T *b; | |
2281 int n = 0; | |
2282 | |
9649
fd9727ae3c49
commit https://github.com/vim/vim/commit/2932359000b2f918d5fade79ea4d124d5943cd07
Christian Brabandt <cb@256bit.org>
parents:
9289
diff
changeset
|
2283 FOR_ALL_BUFFERS(b) ++n; |
14 | 2284 return scheme_make_integer(n); |
2285 } | |
2286 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2287 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2288 * (get-buff-name [buffer]) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2289 */ |
14 | 2290 static Scheme_Object * |
2291 get_buffer_name(void *data, int argc, Scheme_Object **argv) | |
2292 { | |
2293 Vim_Prim *prim = (Vim_Prim *)data; | |
2294 vim_mz_buffer *buf = get_buffer_arg(prim->name, 0, argc, argv); | |
2295 | |
4074 | 2296 return scheme_make_byte_string((char *)buf->buf->b_ffname); |
14 | 2297 } |
2298 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2299 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2300 * (curr-buff) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2301 */ |
14 | 2302 static Scheme_Object * |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
2303 get_curr_buffer(void *data UNUSED, int argc UNUSED, Scheme_Object **argv UNUSED) |
14 | 2304 { |
2305 return (Scheme_Object *)get_vim_curr_buffer(); | |
2306 } | |
2307 | |
2308 static Scheme_Object * | |
2309 buffer_new(buf_T *buf) | |
2310 { | |
1894 | 2311 vim_mz_buffer *self = NULL; |
2312 | |
2313 MZ_GC_DECL_REG(1); | |
2314 MZ_GC_VAR_IN_REG(0, self); | |
14 | 2315 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2316 // We need to handle deletion of buffers underneath us. |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2317 // If we add a "b_mzscheme_ref" field to the buf_T structure, |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2318 // then we can get at it in buf_freeall() in vim. |
502 | 2319 if (buf->b_mzscheme_ref) |
4074 | 2320 return (Scheme_Object *)BUFFER_REF(buf); |
2321 | |
2322 MZ_GC_REG(); | |
2323 self = scheme_malloc_fail_ok(scheme_malloc_tagged, sizeof(vim_mz_buffer)); | |
20007
aadd1cae2ff5
patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents:
19229
diff
changeset
|
2324 CLEAR_POINTER(self); |
33531
1a769647d661
patch 9.0.2013: confusing ifdefs in if_<lang>.c
Christian Brabandt <cb@256bit.org>
parents:
32118
diff
changeset
|
2325 #ifdef MZ_PRECISE_GC |
1a769647d661
patch 9.0.2013: confusing ifdefs in if_<lang>.c
Christian Brabandt <cb@256bit.org>
parents:
32118
diff
changeset
|
2326 buf->b_mzscheme_ref = scheme_malloc_immobile_box(NULL); |
1a769647d661
patch 9.0.2013: confusing ifdefs in if_<lang>.c
Christian Brabandt <cb@256bit.org>
parents:
32118
diff
changeset
|
2327 #else |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2328 scheme_dont_gc_ptr(self); // because buf isn't visible to GC |
4074 | 2329 #endif |
1894 | 2330 MZ_GC_CHECK(); |
4074 | 2331 BUFFER_REF(buf) = self; |
2332 MZ_GC_CHECK(); | |
14 | 2333 self->buf = buf; |
1894 | 2334 self->so.type = mz_buffer_type; |
2335 | |
2336 MZ_GC_UNREG(); | |
4074 | 2337 return (Scheme_Object *)self; |
14 | 2338 } |
2339 | |
2340 /* | |
2341 * (get-buff-size [buffer]) | |
2342 * | |
2343 * Get the size (number of lines) in the current buffer. | |
2344 */ | |
2345 static Scheme_Object * | |
2346 get_buffer_size(void *data, int argc, Scheme_Object **argv) | |
2347 { | |
2348 Vim_Prim *prim = (Vim_Prim *)data; | |
2349 vim_mz_buffer *buf = get_buffer_arg(prim->name, 0, argc, argv); | |
2350 | |
2351 return scheme_make_integer(buf->buf->b_ml.ml_line_count); | |
2352 } | |
2353 | |
2354 /* | |
2355 * (get-buff-line {linenr} [buffer]) | |
2356 * | |
2357 * Get a line from the specified buffer. The line number is | |
2358 * in Vim format (1-based). The line is returned as a MzScheme | |
2359 * string object. | |
2360 */ | |
2361 static Scheme_Object * | |
2362 get_buffer_line(void *data, int argc, Scheme_Object **argv) | |
2363 { | |
2364 Vim_Prim *prim = (Vim_Prim *)data; | |
2365 vim_mz_buffer *buf; | |
2366 int linenr; | |
1894 | 2367 char_u *line; |
14 | 2368 |
2369 buf = get_buffer_arg(prim->name, 1, argc, argv); | |
2370 linenr = SCHEME_INT_VAL(GUARANTEE_INTEGER(prim->name, 0)); | |
2371 line = ml_get_buf(buf->buf, (linenr_T)linenr, FALSE); | |
2372 | |
2373 raise_if_error(); | |
4074 | 2374 return scheme_make_byte_string((char *)line); |
14 | 2375 } |
2376 | |
2377 | |
2378 /* | |
2379 * (get-buff-line-list {start} {end} [buffer]) | |
2380 * | |
2381 * Get a list of lines from the specified buffer. The line numbers | |
2382 * are in Vim format (1-based). The range is from lo up to, but not | |
2383 * including, hi. The list is returned as a list of string objects. | |
2384 */ | |
2385 static Scheme_Object * | |
2386 get_buffer_line_list(void *data, int argc, Scheme_Object **argv) | |
2387 { | |
2388 Vim_Prim *prim = (Vim_Prim *)data; | |
2389 vim_mz_buffer *buf; | |
2390 int i, hi, lo, n; | |
1894 | 2391 Scheme_Object *list = NULL; |
2392 | |
2393 MZ_GC_DECL_REG(1); | |
2394 MZ_GC_VAR_IN_REG(0, list); | |
2395 MZ_GC_REG(); | |
14 | 2396 |
2397 buf = get_buffer_arg(prim->name, 2, argc, argv); | |
2398 list = scheme_null; | |
2399 hi = SCHEME_INT_VAL(GUARANTEE_INTEGER(prim->name, 1)); | |
2400 lo = SCHEME_INT_VAL(GUARANTEE_INTEGER(prim->name, 0)); | |
2401 | |
2402 /* | |
2403 * Handle some error conditions | |
2404 */ | |
2405 if (lo < 0) | |
856 | 2406 lo = 0; |
14 | 2407 |
2408 if (hi < 0) | |
2409 hi = 0; | |
2410 if (hi < lo) | |
856 | 2411 hi = lo; |
14 | 2412 |
2413 n = hi - lo; | |
2414 | |
2415 for (i = n; i >= 0; --i) | |
2416 { | |
4074 | 2417 Scheme_Object *str = scheme_make_byte_string( |
14 | 2418 (char *)ml_get_buf(buf->buf, (linenr_T)(lo+i), FALSE)); |
2419 raise_if_error(); | |
2420 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2421 // Set the list item |
14 | 2422 list = scheme_make_pair(str, list); |
1894 | 2423 MZ_GC_CHECK(); |
14 | 2424 } |
1894 | 2425 MZ_GC_UNREG(); |
14 | 2426 return list; |
2427 } | |
2428 | |
2429 /* | |
2430 * (set-buff-line {linenr} {string/#f} [buffer]) | |
2431 * | |
2432 * Replace a line in the specified buffer. The line number is | |
2433 * in Vim format (1-based). The replacement line is given as | |
2434 * an MzScheme string object. The object is checked for validity | |
2435 * and correct format. An exception is thrown if the values are not | |
2436 * the correct format. | |
2437 * | |
2438 * It returns a Scheme Object that indicates the length of the | |
2439 * string changed. | |
2440 */ | |
2441 static Scheme_Object * | |
2442 set_buffer_line(void *data, int argc, Scheme_Object **argv) | |
2443 { | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2444 // First of all, we check the value of the supplied MzScheme object. |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2445 // There are three cases: |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2446 // 1. #f - this is a deletion. |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2447 // 2. A string - this is a replacement. |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2448 // 3. Anything else - this is an error. |
14 | 2449 Vim_Prim *prim = (Vim_Prim *)data; |
2450 vim_mz_buffer *buf; | |
1894 | 2451 Scheme_Object *line = NULL; |
14 | 2452 char *save; |
2453 int n; | |
2454 | |
1894 | 2455 MZ_GC_DECL_REG(1); |
2456 MZ_GC_VAR_IN_REG(0, line); | |
2457 MZ_GC_REG(); | |
2458 | |
274 | 2459 #ifdef HAVE_SANDBOX |
2460 sandbox_check(); | |
2461 #endif | |
14 | 2462 n = SCHEME_INT_VAL(GUARANTEE_INTEGER(prim->name, 0)); |
2463 if (!SCHEME_STRINGP(argv[1]) && !SCHEME_FALSEP(argv[1])) | |
856 | 2464 scheme_wrong_type(prim->name, "string or #f", 1, argc, argv); |
14 | 2465 line = argv[1]; |
2466 buf = get_buffer_arg(prim->name, 2, argc, argv); | |
2467 | |
2468 check_line_range(n, buf->buf); | |
2469 | |
2470 if (SCHEME_FALSEP(line)) | |
2471 { | |
1894 | 2472 buf_T *savebuf = curbuf; |
2473 | |
14 | 2474 curbuf = buf->buf; |
2475 | |
2476 if (u_savedel((linenr_T)n, 1L) == FAIL) | |
2477 { | |
2478 curbuf = savebuf; | |
2479 raise_vim_exn(_("cannot save undo information")); | |
2480 } | |
20599
d571231175b4
patch 8.2.0853: ml_delete() often called with FALSE argument
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
2481 else if (ml_delete((linenr_T)n) == FAIL) |
14 | 2482 { |
2483 curbuf = savebuf; | |
2484 raise_vim_exn(_("cannot delete line")); | |
2485 } | |
2486 if (buf->buf == curwin->w_buffer) | |
2487 mz_fix_cursor(n, n + 1, -1); | |
1929 | 2488 deleted_lines_mark((linenr_T)n, 1L); |
14 | 2489 |
2490 curbuf = savebuf; | |
2491 | |
1894 | 2492 MZ_GC_UNREG(); |
14 | 2493 raise_if_error(); |
2494 return scheme_void; | |
2495 } | |
1894 | 2496 else |
14 | 2497 { |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2498 // Otherwise it's a line |
1894 | 2499 buf_T *savebuf = curbuf; |
2500 | |
2501 save = string_to_line(line); | |
2502 | |
2503 curbuf = buf->buf; | |
2504 | |
2505 if (u_savesub((linenr_T)n) == FAIL) | |
2506 { | |
2507 curbuf = savebuf; | |
2508 vim_free(save); | |
2509 raise_vim_exn(_("cannot save undo information")); | |
2510 } | |
2511 else if (ml_replace((linenr_T)n, (char_u *)save, TRUE) == FAIL) | |
2512 { | |
2513 curbuf = savebuf; | |
2514 vim_free(save); | |
2515 raise_vim_exn(_("cannot replace line")); | |
2516 } | |
2517 else | |
2518 { | |
2519 vim_free(save); | |
2520 changed_bytes((linenr_T)n, 0); | |
2521 } | |
2522 | |
14 | 2523 curbuf = savebuf; |
1894 | 2524 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2525 // Check that the cursor is not beyond the end of the line now. |
1894 | 2526 if (buf->buf == curwin->w_buffer) |
2527 check_cursor_col(); | |
2528 | |
2529 MZ_GC_UNREG(); | |
2530 raise_if_error(); | |
2531 return scheme_void; | |
14 | 2532 } |
1894 | 2533 } |
2534 | |
2535 static void | |
2536 free_array(char **array) | |
2537 { | |
2538 char **curr = array; | |
2539 while (*curr != NULL) | |
2540 vim_free(*curr++); | |
2541 vim_free(array); | |
14 | 2542 } |
2543 | |
2544 /* | |
2545 * (set-buff-line-list {start} {end} {string-list/#f/null} [buffer]) | |
2546 * | |
2547 * Replace a range of lines in the specified buffer. The line numbers are in | |
2548 * Vim format (1-based). The range is from lo up to, but not including, hi. | |
2549 * The replacement lines are given as a Scheme list of string objects. The | |
2550 * list is checked for validity and correct format. | |
2551 * | |
2552 * Errors are returned as a value of FAIL. The return value is OK on success. | |
2553 * If OK is returned and len_change is not NULL, *len_change is set to the | |
2554 * change in the buffer length. | |
2555 */ | |
2556 static Scheme_Object * | |
2557 set_buffer_line_list(void *data, int argc, Scheme_Object **argv) | |
2558 { | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2559 // First of all, we check the type of the supplied MzScheme object. |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2560 // There are three cases: |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2561 // 1. #f - this is a deletion. |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2562 // 2. A list - this is a replacement. |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2563 // 3. Anything else - this is an error. |
14 | 2564 Vim_Prim *prim = (Vim_Prim *)data; |
1894 | 2565 vim_mz_buffer *buf = NULL; |
2566 Scheme_Object *line_list = NULL; | |
14 | 2567 int i, old_len, new_len, hi, lo; |
2568 long extra; | |
2569 | |
1894 | 2570 MZ_GC_DECL_REG(1); |
2571 MZ_GC_VAR_IN_REG(0, line_list); | |
2572 MZ_GC_REG(); | |
2573 | |
274 | 2574 #ifdef HAVE_SANDBOX |
2575 sandbox_check(); | |
2576 #endif | |
14 | 2577 lo = SCHEME_INT_VAL(GUARANTEE_INTEGER(prim->name, 0)); |
2578 hi = SCHEME_INT_VAL(GUARANTEE_INTEGER(prim->name, 1)); | |
2579 if (!SCHEME_PAIRP(argv[2]) | |
2580 && !SCHEME_FALSEP(argv[2]) && !SCHEME_NULLP(argv[2])) | |
2581 scheme_wrong_type(prim->name, "list or #f", 2, argc, argv); | |
2582 line_list = argv[2]; | |
2583 buf = get_buffer_arg(prim->name, 3, argc, argv); | |
2584 old_len = hi - lo; | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2585 if (old_len < 0) // process inverse values wisely |
14 | 2586 { |
2587 i = lo; | |
2588 lo = hi; | |
2589 hi = i; | |
2590 old_len = -old_len; | |
2591 } | |
2592 extra = 0; | |
2593 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2594 check_line_range(lo, buf->buf); // inclusive |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2595 check_line_range(hi - 1, buf->buf); // exclusive |
14 | 2596 |
2597 if (SCHEME_FALSEP(line_list) || SCHEME_NULLP(line_list)) | |
2598 { | |
1894 | 2599 buf_T *savebuf = curbuf; |
14 | 2600 curbuf = buf->buf; |
2601 | |
2602 if (u_savedel((linenr_T)lo, (long)old_len) == FAIL) | |
2603 { | |
2604 curbuf = savebuf; | |
2605 raise_vim_exn(_("cannot save undo information")); | |
2606 } | |
2607 else | |
2608 { | |
2609 for (i = 0; i < old_len; i++) | |
20599
d571231175b4
patch 8.2.0853: ml_delete() often called with FALSE argument
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
2610 if (ml_delete((linenr_T)lo) == FAIL) |
14 | 2611 { |
2612 curbuf = savebuf; | |
2613 raise_vim_exn(_("cannot delete line")); | |
2614 } | |
2615 if (buf->buf == curwin->w_buffer) | |
2616 mz_fix_cursor(lo, hi, -old_len); | |
1929 | 2617 deleted_lines_mark((linenr_T)lo, (long)old_len); |
14 | 2618 } |
2619 | |
2620 curbuf = savebuf; | |
2621 | |
1894 | 2622 MZ_GC_UNREG(); |
14 | 2623 raise_if_error(); |
2624 return scheme_void; | |
2625 } | |
1894 | 2626 else |
14 | 2627 { |
1894 | 2628 buf_T *savebuf = curbuf; |
2629 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2630 // List |
1894 | 2631 new_len = scheme_proper_list_length(line_list); |
2632 MZ_GC_CHECK(); | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2633 if (new_len < 0) // improper or cyclic list |
1894 | 2634 scheme_wrong_type(prim->name, "proper list", |
2635 2, argc, argv); | |
2636 else | |
14 | 2637 { |
1894 | 2638 char **array = NULL; |
2639 Scheme_Object *line = NULL; | |
2640 Scheme_Object *rest = NULL; | |
2641 | |
2642 MZ_GC_DECL_REG(2); | |
2643 MZ_GC_VAR_IN_REG(0, line); | |
2644 MZ_GC_VAR_IN_REG(1, rest); | |
2645 MZ_GC_REG(); | |
2646 | |
20007
aadd1cae2ff5
patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents:
19229
diff
changeset
|
2647 array = ALLOC_CLEAR_MULT(char *, new_len + 1); |
1894 | 2648 |
2649 rest = line_list; | |
2650 for (i = 0; i < new_len; ++i) | |
2651 { | |
2652 line = SCHEME_CAR(rest); | |
2653 rest = SCHEME_CDR(rest); | |
2654 if (!SCHEME_STRINGP(line)) | |
2655 { | |
2656 free_array(array); | |
2657 scheme_wrong_type(prim->name, "string-list", 2, argc, argv); | |
2658 } | |
2659 array[i] = string_to_line(line); | |
2660 } | |
2661 | |
2662 curbuf = buf->buf; | |
2663 | |
2664 if (u_save((linenr_T)(lo-1), (linenr_T)hi) == FAIL) | |
2665 { | |
2666 curbuf = savebuf; | |
2667 free_array(array); | |
2668 raise_vim_exn(_("cannot save undo information")); | |
2669 } | |
2670 | |
2671 /* | |
2672 * If the size of the range is reducing (ie, new_len < old_len) we | |
2673 * need to delete some old_len. We do this at the start, by | |
2674 * repeatedly deleting line "lo". | |
2675 */ | |
2676 for (i = 0; i < old_len - new_len; ++i) | |
2677 { | |
20599
d571231175b4
patch 8.2.0853: ml_delete() often called with FALSE argument
Bram Moolenaar <Bram@vim.org>
parents:
20007
diff
changeset
|
2678 if (ml_delete((linenr_T)lo) == FAIL) |
1894 | 2679 { |
2680 curbuf = savebuf; | |
2681 free_array(array); | |
2682 raise_vim_exn(_("cannot delete line")); | |
2683 } | |
2684 extra--; | |
2685 } | |
2686 | |
2687 /* | |
2688 * For as long as possible, replace the existing old_len with the | |
2689 * new old_len. This is a more efficient operation, as it requires | |
2690 * less memory allocation and freeing. | |
2691 */ | |
2692 for (i = 0; i < old_len && i < new_len; i++) | |
2693 if (ml_replace((linenr_T)(lo+i), (char_u *)array[i], TRUE) == FAIL) | |
2694 { | |
2695 curbuf = savebuf; | |
2696 free_array(array); | |
2697 raise_vim_exn(_("cannot replace line")); | |
2698 } | |
2699 | |
2700 /* | |
2701 * Now we may need to insert the remaining new_len. We don't need to | |
2702 * free the string passed back because MzScheme has control of that | |
2703 * memory. | |
2704 */ | |
2705 while (i < new_len) | |
2706 { | |
2707 if (ml_append((linenr_T)(lo + i - 1), | |
2708 (char_u *)array[i], 0, FALSE) == FAIL) | |
2709 { | |
2710 curbuf = savebuf; | |
2711 free_array(array); | |
2712 raise_vim_exn(_("cannot insert line")); | |
2713 } | |
2714 ++i; | |
2715 ++extra; | |
2716 } | |
2717 MZ_GC_UNREG(); | |
2718 free_array(array); | |
14 | 2719 } |
1894 | 2720 |
2721 /* | |
2722 * Adjust marks. Invalidate any which lie in the | |
2723 * changed range, and move any in the remainder of the buffer. | |
2724 */ | |
9228
ea504064c996
commit https://github.com/vim/vim/commit/fd89d7ea81b18d32363456b16258174dc9e095dc
Christian Brabandt <cb@256bit.org>
parents:
9173
diff
changeset
|
2725 mark_adjust((linenr_T)lo, (linenr_T)(hi - 1), |
ea504064c996
commit https://github.com/vim/vim/commit/fd89d7ea81b18d32363456b16258174dc9e095dc
Christian Brabandt <cb@256bit.org>
parents:
9173
diff
changeset
|
2726 (long)MAXLNUM, (long)extra); |
1894 | 2727 changed_lines((linenr_T)lo, 0, (linenr_T)hi, (long)extra); |
2728 | |
2729 if (buf->buf == curwin->w_buffer) | |
2730 mz_fix_cursor(lo, hi, extra); | |
2731 curbuf = savebuf; | |
2732 | |
2733 MZ_GC_UNREG(); | |
2734 raise_if_error(); | |
2735 return scheme_void; | |
14 | 2736 } |
2737 } | |
2738 | |
2739 /* | |
2740 * (insert-buff-line-list {linenr} {string/string-list} [buffer]) | |
2741 * | |
2023 | 2742 * Insert a number of lines into the specified buffer after the specified line. |
14 | 2743 * The line number is in Vim format (1-based). The lines to be inserted are |
2744 * given as an MzScheme list of string objects or as a single string. The lines | |
2745 * to be added are checked for validity and correct format. Errors are | |
2746 * returned as a value of FAIL. The return value is OK on success. | |
2747 * If OK is returned and len_change is not NULL, *len_change | |
2748 * is set to the change in the buffer length. | |
2749 */ | |
2750 static Scheme_Object * | |
2751 insert_buffer_line_list(void *data, int argc, Scheme_Object **argv) | |
2752 { | |
2753 Vim_Prim *prim = (Vim_Prim *)data; | |
1894 | 2754 vim_mz_buffer *buf = NULL; |
2755 Scheme_Object *list = NULL; | |
2756 char *str = NULL; | |
14 | 2757 int i, n, size; |
2758 | |
1894 | 2759 MZ_GC_DECL_REG(1); |
2760 MZ_GC_VAR_IN_REG(0, list); | |
2761 MZ_GC_REG(); | |
2762 | |
274 | 2763 #ifdef HAVE_SANDBOX |
2764 sandbox_check(); | |
2765 #endif | |
14 | 2766 /* |
2767 * First of all, we check the type of the supplied MzScheme object. | |
2768 * It must be a string or a list, or the call is in error. | |
2769 */ | |
2770 n = SCHEME_INT_VAL(GUARANTEE_INTEGER(prim->name, 0)); | |
2771 list = argv[1]; | |
2772 | |
2773 if (!SCHEME_STRINGP(list) && !SCHEME_PAIRP(list)) | |
2774 scheme_wrong_type(prim->name, "string or list", 1, argc, argv); | |
2775 buf = get_buffer_arg(prim->name, 2, argc, argv); | |
2776 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2777 if (n != 0) // 0 can be used in insert |
856 | 2778 check_line_range(n, buf->buf); |
14 | 2779 if (SCHEME_STRINGP(list)) |
2780 { | |
1894 | 2781 buf_T *savebuf = curbuf; |
2782 | |
14 | 2783 str = string_to_line(list); |
2784 curbuf = buf->buf; | |
2785 | |
2786 if (u_save((linenr_T)n, (linenr_T)(n+1)) == FAIL) | |
2787 { | |
2788 curbuf = savebuf; | |
1894 | 2789 vim_free(str); |
14 | 2790 raise_vim_exn(_("cannot save undo information")); |
2791 } | |
2792 else if (ml_append((linenr_T)n, (char_u *)str, 0, FALSE) == FAIL) | |
2793 { | |
2794 curbuf = savebuf; | |
1894 | 2795 vim_free(str); |
14 | 2796 raise_vim_exn(_("cannot insert line")); |
2797 } | |
2798 else | |
1894 | 2799 { |
2800 vim_free(str); | |
14 | 2801 appended_lines_mark((linenr_T)n, 1L); |
1894 | 2802 } |
14 | 2803 |
2804 curbuf = savebuf; | |
29732
89e1d67814a9
patch 9.0.0206: redraw flags are not named specifically
Bram Moolenaar <Bram@vim.org>
parents:
28303
diff
changeset
|
2805 update_screen(UPD_VALID); |
14 | 2806 |
1894 | 2807 MZ_GC_UNREG(); |
14 | 2808 raise_if_error(); |
2809 return scheme_void; | |
2810 } | |
2811 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2812 // List |
14 | 2813 size = scheme_proper_list_length(list); |
1894 | 2814 MZ_GC_CHECK(); |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2815 if (size < 0) // improper or cyclic list |
14 | 2816 scheme_wrong_type(prim->name, "proper list", |
2817 2, argc, argv); | |
2818 else | |
2819 { | |
1894 | 2820 Scheme_Object *line = NULL; |
2821 Scheme_Object *rest = NULL; | |
2822 char **array; | |
2823 buf_T *savebuf = curbuf; | |
2824 | |
2825 MZ_GC_DECL_REG(2); | |
2826 MZ_GC_VAR_IN_REG(0, line); | |
2827 MZ_GC_VAR_IN_REG(1, rest); | |
2828 MZ_GC_REG(); | |
2829 | |
20007
aadd1cae2ff5
patch 8.2.0559: clearing a struct is verbose
Bram Moolenaar <Bram@vim.org>
parents:
19229
diff
changeset
|
2830 array = ALLOC_CLEAR_MULT(char *, size + 1); |
1894 | 2831 |
2832 rest = list; | |
856 | 2833 for (i = 0; i < size; ++i) |
1894 | 2834 { |
2835 line = SCHEME_CAR(rest); | |
2836 rest = SCHEME_CDR(rest); | |
2837 array[i] = string_to_line(line); | |
2838 } | |
2839 | |
2840 curbuf = buf->buf; | |
2841 | |
2842 if (u_save((linenr_T)n, (linenr_T)(n + 1)) == FAIL) | |
2843 { | |
2844 curbuf = savebuf; | |
2845 free_array(array); | |
2846 raise_vim_exn(_("cannot save undo information")); | |
2847 } | |
2848 else | |
2849 { | |
2850 for (i = 0; i < size; ++i) | |
2851 if (ml_append((linenr_T)(n + i), (char_u *)array[i], | |
2852 0, FALSE) == FAIL) | |
2853 { | |
2854 curbuf = savebuf; | |
2855 free_array(array); | |
2856 raise_vim_exn(_("cannot insert line")); | |
2857 } | |
2858 | |
2859 if (i > 0) | |
2860 appended_lines_mark((linenr_T)n, (long)i); | |
2861 } | |
2862 free_array(array); | |
2863 MZ_GC_UNREG(); | |
2864 curbuf = savebuf; | |
29732
89e1d67814a9
patch 9.0.0206: redraw flags are not named specifically
Bram Moolenaar <Bram@vim.org>
parents:
28303
diff
changeset
|
2865 update_screen(UPD_VALID); |
14 | 2866 } |
2867 | |
1894 | 2868 MZ_GC_UNREG(); |
14 | 2869 raise_if_error(); |
2870 return scheme_void; | |
2871 } | |
2872 | |
2873 /* | |
2874 * Predicates | |
2875 */ | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2876 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2877 * (buff? obj) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2878 */ |
14 | 2879 static Scheme_Object * |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
2880 vim_bufferp(void *data UNUSED, int argc UNUSED, Scheme_Object **argv) |
14 | 2881 { |
2882 if (SCHEME_VIMBUFFERP(argv[0])) | |
2883 return scheme_true; | |
2884 else | |
2885 return scheme_false; | |
2886 } | |
2887 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2888 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2889 * (win? obj) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2890 */ |
14 | 2891 static Scheme_Object * |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
2892 vim_windowp(void *data UNUSED, int argc UNUSED, Scheme_Object **argv) |
14 | 2893 { |
2894 if (SCHEME_VIMWINDOWP(argv[0])) | |
2895 return scheme_true; | |
2896 else | |
2897 return scheme_false; | |
2898 } | |
2899 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2900 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2901 * (buff-valid? obj) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2902 */ |
14 | 2903 static Scheme_Object * |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
2904 vim_buffer_validp(void *data UNUSED, int argc UNUSED, Scheme_Object **argv) |
14 | 2905 { |
2906 if (SCHEME_VIMBUFFERP(argv[0]) | |
2907 && ((vim_mz_buffer *)argv[0])->buf != INVALID_BUFFER_VALUE) | |
2908 return scheme_true; | |
2909 else | |
2910 return scheme_false; | |
2911 } | |
2912 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2913 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2914 * (win-valid? obj) |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2915 */ |
14 | 2916 static Scheme_Object * |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
2917 vim_window_validp(void *data UNUSED, int argc UNUSED, Scheme_Object **argv) |
14 | 2918 { |
2919 if (SCHEME_VIMWINDOWP(argv[0]) | |
2920 && ((vim_mz_window *)argv[0])->win != INVALID_WINDOW_VALUE) | |
2921 return scheme_true; | |
2922 else | |
2923 return scheme_false; | |
2924 } | |
2925 | |
2926 /* | |
2927 *=========================================================================== | |
2928 * Utilities | |
2929 *=========================================================================== | |
2930 */ | |
2931 | |
2932 /* | |
2933 * Convert an MzScheme string into a Vim line. | |
2934 * | |
1894 | 2935 * All internal nulls are replaced by newline characters. |
2936 * It is an error for the string to contain newline characters. | |
14 | 2937 * |
1894 | 2938 * Returns pointer to Vim allocated memory |
14 | 2939 */ |
2940 static char * | |
2941 string_to_line(Scheme_Object *obj) | |
2942 { | |
1894 | 2943 char *scheme_str = NULL; |
2944 char *vim_str = NULL; | |
4074 | 2945 OUTPUT_LEN_TYPE len; |
14 | 2946 int i; |
2947 | |
1894 | 2948 scheme_str = scheme_display_to_string(obj, &len); |
14 | 2949 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2950 // Error checking: String must not contain newlines, as we |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2951 // are replacing a single line, and we must replace it with |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2952 // a single line. |
4074 | 2953 if (memchr(scheme_str, '\n', len)) |
14 | 2954 scheme_signal_error(_("string cannot contain newlines")); |
2955 | |
16825
ce04ebdf26b8
patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents:
16451
diff
changeset
|
2956 vim_str = alloc(len + 1); |
1894 | 2957 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2958 // Create a copy of the string, with internal nulls replaced by |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2959 // newline characters, as is the vim convention. |
14 | 2960 for (i = 0; i < len; ++i) |
2961 { | |
1894 | 2962 if (scheme_str[i] == '\0') |
2963 vim_str[i] = '\n'; | |
2964 else | |
2965 vim_str[i] = scheme_str[i]; | |
2966 } | |
2967 | |
2968 vim_str[i] = '\0'; | |
2969 | |
2970 MZ_GC_CHECK(); | |
2971 return vim_str; | |
2972 } | |
2973 | |
2974 #ifdef FEAT_EVAL | |
2975 /* | |
2976 * Convert Vim value into MzScheme, adopted from if_python.c | |
2977 */ | |
2978 static Scheme_Object * | |
4074 | 2979 vim_to_mzscheme(typval_T *vim_value) |
2980 { | |
2981 Scheme_Object *result = NULL; | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
2982 // hash table to store visited values to avoid infinite loops |
4074 | 2983 Scheme_Hash_Table *visited = NULL; |
2984 | |
2985 MZ_GC_DECL_REG(2); | |
2986 MZ_GC_VAR_IN_REG(0, result); | |
2987 MZ_GC_VAR_IN_REG(1, visited); | |
2988 MZ_GC_REG(); | |
2989 | |
2990 visited = scheme_make_hash_table(SCHEME_hash_ptr); | |
2991 MZ_GC_CHECK(); | |
2992 | |
2993 result = vim_to_mzscheme_impl(vim_value, 1, visited); | |
2994 | |
2995 MZ_GC_UNREG(); | |
2996 return result; | |
2997 } | |
2998 | |
2999 static Scheme_Object * | |
3000 vim_to_mzscheme_impl(typval_T *vim_value, int depth, Scheme_Hash_Table *visited) | |
1894 | 3001 { |
3002 Scheme_Object *result = NULL; | |
3003 int new_value = TRUE; | |
3004 | |
4074 | 3005 MZ_GC_DECL_REG(2); |
1894 | 3006 MZ_GC_VAR_IN_REG(0, result); |
4074 | 3007 MZ_GC_VAR_IN_REG(1, visited); |
1894 | 3008 MZ_GC_REG(); |
3009 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3010 // Avoid infinite recursion |
1894 | 3011 if (depth > 100) |
3012 { | |
3013 MZ_GC_UNREG(); | |
3014 return scheme_void; | |
3015 } | |
3016 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3017 // Check if we run into a recursive loop. The item must be in visited |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3018 // then and we can use it again. |
1894 | 3019 result = scheme_hash_get(visited, (Scheme_Object *)vim_value); |
3020 MZ_GC_CHECK(); | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3021 if (result != NULL) // found, do nothing |
1894 | 3022 new_value = FALSE; |
3023 else if (vim_value->v_type == VAR_STRING) | |
3024 { | |
4074 | 3025 result = scheme_make_byte_string((char *)vim_value->vval.v_string); |
1894 | 3026 MZ_GC_CHECK(); |
3027 } | |
3028 else if (vim_value->v_type == VAR_NUMBER) | |
3029 { | |
3030 result = scheme_make_integer((long)vim_value->vval.v_number); | |
3031 MZ_GC_CHECK(); | |
3032 } | |
3033 else if (vim_value->v_type == VAR_FLOAT) | |
3034 { | |
3035 result = scheme_make_double((double)vim_value->vval.v_float); | |
3036 MZ_GC_CHECK(); | |
14 | 3037 } |
1894 | 3038 else if (vim_value->v_type == VAR_LIST) |
3039 { | |
3040 list_T *list = vim_value->vval.v_list; | |
3041 listitem_T *curr; | |
3042 | |
3043 if (list == NULL || list->lv_first == NULL) | |
3044 result = scheme_null; | |
3045 else | |
3046 { | |
3047 Scheme_Object *obj = NULL; | |
3048 | |
3049 MZ_GC_DECL_REG(1); | |
3050 MZ_GC_VAR_IN_REG(0, obj); | |
3051 MZ_GC_REG(); | |
3052 | |
19229
d776967d0f0d
patch 8.2.0173: build fails with old compiler
Bram Moolenaar <Bram@vim.org>
parents:
19102
diff
changeset
|
3053 curr = list->lv_u.mat.lv_last; |
4074 | 3054 obj = vim_to_mzscheme_impl(&curr->li_tv, depth + 1, visited); |
1894 | 3055 result = scheme_make_pair(obj, scheme_null); |
3056 MZ_GC_CHECK(); | |
3057 | |
3058 while (curr != list->lv_first) | |
3059 { | |
3060 curr = curr->li_prev; | |
4074 | 3061 obj = vim_to_mzscheme_impl(&curr->li_tv, depth + 1, visited); |
1894 | 3062 result = scheme_make_pair(obj, result); |
3063 MZ_GC_CHECK(); | |
3064 } | |
3065 } | |
3066 MZ_GC_UNREG(); | |
3067 } | |
3068 else if (vim_value->v_type == VAR_DICT) | |
3069 { | |
3070 Scheme_Object *key = NULL; | |
3071 Scheme_Object *obj = NULL; | |
3072 | |
3073 MZ_GC_DECL_REG(2); | |
3074 MZ_GC_VAR_IN_REG(0, key); | |
3075 MZ_GC_VAR_IN_REG(1, obj); | |
3076 MZ_GC_REG(); | |
3077 | |
3078 result = (Scheme_Object *)scheme_make_hash_table(SCHEME_hash_ptr); | |
3079 MZ_GC_CHECK(); | |
3080 if (vim_value->vval.v_dict != NULL) | |
3081 { | |
3082 hashtab_T *ht = &vim_value->vval.v_dict->dv_hashtab; | |
3083 long_u todo = ht->ht_used; | |
3084 hashitem_T *hi; | |
3085 dictitem_T *di; | |
3086 | |
32118
04d9dff67d99
patch 9.0.1390: FOR_ALL_ macros are defined in an unexpected file
Bram Moolenaar <Bram@vim.org>
parents:
32019
diff
changeset
|
3087 FOR_ALL_HASHTAB_ITEMS(ht, hi, todo) |
1894 | 3088 { |
3089 if (!HASHITEM_EMPTY(hi)) | |
3090 { | |
3091 --todo; | |
3092 | |
3093 di = dict_lookup(hi); | |
4074 | 3094 obj = vim_to_mzscheme_impl(&di->di_tv, depth + 1, visited); |
3095 key = scheme_make_byte_string((char *)hi->hi_key); | |
1894 | 3096 MZ_GC_CHECK(); |
3097 scheme_hash_set((Scheme_Hash_Table *)result, key, obj); | |
3098 MZ_GC_CHECK(); | |
3099 } | |
3100 } | |
3101 } | |
3102 MZ_GC_UNREG(); | |
3103 } | |
4074 | 3104 else if (vim_value->v_type == VAR_FUNC) |
3105 { | |
3106 Scheme_Object *funcname = NULL; | |
3107 | |
3108 MZ_GC_DECL_REG(1); | |
3109 MZ_GC_VAR_IN_REG(0, funcname); | |
3110 MZ_GC_REG(); | |
3111 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3112 // FIXME: func_ref() and func_unref() are needed. |
4074 | 3113 funcname = scheme_make_byte_string((char *)vim_value->vval.v_string); |
3114 MZ_GC_CHECK(); | |
3115 result = scheme_make_closed_prim_w_arity(vim_funcref, funcname, | |
3116 (const char *)BYTE_STRING_VALUE(funcname), 0, -1); | |
3117 MZ_GC_CHECK(); | |
3118 | |
3119 MZ_GC_UNREG(); | |
3120 } | |
8800
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3121 else if (vim_value->v_type == VAR_PARTIAL) |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3122 { |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3123 if (vim_value->vval.v_partial == NULL) |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3124 result = scheme_null; |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3125 else |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3126 { |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3127 Scheme_Object *funcname = NULL; |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3128 |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3129 MZ_GC_DECL_REG(1); |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3130 MZ_GC_VAR_IN_REG(0, funcname); |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3131 MZ_GC_REG(); |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3132 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3133 // FIXME: func_ref() and func_unref() are needed. |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3134 // TODO: Support pt_dict and pt_argv. |
8800
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3135 funcname = scheme_make_byte_string( |
9723
80ac9cf77c9b
commit https://github.com/vim/vim/commit/437bafe4c8a83ed71ee006eda7f54b65a90f0d4c
Christian Brabandt <cb@256bit.org>
parents:
9649
diff
changeset
|
3136 (char *)partial_name(vim_value->vval.v_partial)); |
8800
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3137 MZ_GC_CHECK(); |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3138 result = scheme_make_closed_prim_w_arity(vim_funcref, funcname, |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3139 (const char *)BYTE_STRING_VALUE(funcname), 0, -1); |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3140 MZ_GC_CHECK(); |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3141 |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3142 MZ_GC_UNREG(); |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3143 } |
f57949e1e9f1
commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57
Christian Brabandt <cb@256bit.org>
parents:
8779
diff
changeset
|
3144 } |
19102
ba9f50bfda83
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents:
18798
diff
changeset
|
3145 else if (vim_value->v_type == VAR_BOOL || vim_value->v_type == VAR_SPECIAL) |
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7609
diff
changeset
|
3146 { |
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7609
diff
changeset
|
3147 if (vim_value->vval.v_number <= VVAL_TRUE) |
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7609
diff
changeset
|
3148 result = scheme_make_integer((long)vim_value->vval.v_number); |
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7609
diff
changeset
|
3149 else |
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7609
diff
changeset
|
3150 result = scheme_null; |
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7609
diff
changeset
|
3151 MZ_GC_CHECK(); |
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7609
diff
changeset
|
3152 } |
1894 | 3153 else |
3154 { | |
3155 result = scheme_void; | |
3156 new_value = FALSE; | |
3157 } | |
3158 if (new_value) | |
3159 { | |
3160 scheme_hash_set(visited, (Scheme_Object *)vim_value, result); | |
3161 MZ_GC_CHECK(); | |
3162 } | |
3163 MZ_GC_UNREG(); | |
3164 return result; | |
14 | 3165 } |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3166 |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3167 static int |
4074 | 3168 mzscheme_to_vim(Scheme_Object *obj, typval_T *tv) |
3169 { | |
3170 int i, status; | |
3171 Scheme_Hash_Table *visited = NULL; | |
3172 | |
3173 MZ_GC_DECL_REG(2); | |
3174 MZ_GC_VAR_IN_REG(0, obj); | |
3175 MZ_GC_VAR_IN_REG(1, visited); | |
3176 MZ_GC_REG(); | |
3177 | |
3178 visited = scheme_make_hash_table(SCHEME_hash_ptr); | |
3179 MZ_GC_CHECK(); | |
3180 | |
3181 status = mzscheme_to_vim_impl(obj, tv, 1, visited); | |
3182 for (i = 0; i < visited->size; ++i) | |
3183 { | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3184 // free up remembered objects |
4074 | 3185 if (visited->vals[i] != NULL) |
3186 free_tv((typval_T *)visited->vals[i]); | |
3187 } | |
3188 | |
3189 MZ_GC_UNREG(); | |
3190 return status; | |
3191 } | |
3192 static int | |
3193 mzscheme_to_vim_impl(Scheme_Object *obj, typval_T *tv, int depth, | |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3194 Scheme_Hash_Table *visited) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3195 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3196 int status = OK; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3197 typval_T *found; |
4074 | 3198 |
3199 MZ_GC_DECL_REG(2); | |
3200 MZ_GC_VAR_IN_REG(0, obj); | |
3201 MZ_GC_VAR_IN_REG(1, visited); | |
3202 MZ_GC_REG(); | |
3203 | |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3204 MZ_GC_CHECK(); |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3205 if (depth > 100) // limit the deepest recursion level |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3206 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3207 tv->v_type = VAR_NUMBER; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3208 tv->vval.v_number = 0; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3209 return FAIL; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3210 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3211 |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3212 found = (typval_T *)scheme_hash_get(visited, obj); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3213 if (found != NULL) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3214 copy_tv(found, tv); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3215 else if (SCHEME_VOIDP(obj)) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3216 { |
7712
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7609
diff
changeset
|
3217 tv->v_type = VAR_SPECIAL; |
bce3b5ddb393
commit https://github.com/vim/vim/commit/520e1e41f35b063ede63b41738c82d6636e78c34
Christian Brabandt <cb@256bit.org>
parents:
7609
diff
changeset
|
3218 tv->vval.v_number = VVAL_NULL; |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3219 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3220 else if (SCHEME_INTP(obj)) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3221 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3222 tv->v_type = VAR_NUMBER; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3223 tv->vval.v_number = SCHEME_INT_VAL(obj); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3224 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3225 else if (SCHEME_BOOLP(obj)) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3226 { |
19102
ba9f50bfda83
patch 8.2.0111: VAR_SPECIAL is also used for booleans
Bram Moolenaar <Bram@vim.org>
parents:
18798
diff
changeset
|
3227 tv->v_type = VAR_BOOL; |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3228 tv->vval.v_number = SCHEME_TRUEP(obj); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3229 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3230 else if (SCHEME_DBLP(obj)) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3231 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3232 tv->v_type = VAR_FLOAT; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3233 tv->vval.v_float = SCHEME_DBL_VAL(obj); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3234 } |
4074 | 3235 else if (SCHEME_BYTE_STRINGP(obj)) |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3236 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3237 tv->v_type = VAR_STRING; |
4074 | 3238 tv->vval.v_string = vim_strsave(BYTE_STRING_VALUE(obj)); |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3239 } |
4074 | 3240 # if MZSCHEME_VERSION_MAJOR >= 299 |
3241 else if (SCHEME_CHAR_STRINGP(obj)) | |
3242 { | |
3243 Scheme_Object *tmp = NULL; | |
3244 MZ_GC_DECL_REG(1); | |
3245 MZ_GC_VAR_IN_REG(0, tmp); | |
3246 MZ_GC_REG(); | |
3247 | |
3248 tmp = scheme_char_string_to_byte_string(obj); | |
3249 tv->v_type = VAR_STRING; | |
3250 tv->vval.v_string = vim_strsave(BYTE_STRING_VALUE(tmp)); | |
3251 MZ_GC_UNREG(); | |
3252 } | |
3253 #endif | |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3254 else if (SCHEME_VECTORP(obj) || SCHEME_NULLP(obj) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3255 || SCHEME_PAIRP(obj) || SCHEME_MUTABLE_PAIRP(obj)) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3256 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3257 list_T *list = list_alloc(); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3258 if (list == NULL) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3259 status = FAIL; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3260 else |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3261 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3262 int i; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3263 Scheme_Object *curr = NULL; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3264 Scheme_Object *cval = NULL; |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3265 // temporary var to hold current element of vectors and pairs |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3266 typval_T *v; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3267 |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3268 MZ_GC_DECL_REG(2); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3269 MZ_GC_VAR_IN_REG(0, curr); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3270 MZ_GC_VAR_IN_REG(1, cval); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3271 MZ_GC_REG(); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3272 |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3273 tv->v_type = VAR_LIST; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3274 tv->vval.v_list = list; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3275 ++list->lv_refcount; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3276 |
16825
ce04ebdf26b8
patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents:
16451
diff
changeset
|
3277 v = ALLOC_ONE(typval_T); |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3278 if (v == NULL) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3279 status = FAIL; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3280 else |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3281 { |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3282 // add the value in advance to allow handling of self-referential |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3283 // data structures |
16825
ce04ebdf26b8
patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents:
16451
diff
changeset
|
3284 typval_T *visited_tv = ALLOC_ONE(typval_T); |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3285 copy_tv(tv, visited_tv); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3286 scheme_hash_set(visited, obj, (Scheme_Object *)visited_tv); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3287 |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3288 if (SCHEME_VECTORP(obj)) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3289 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3290 for (i = 0; i < SCHEME_VEC_SIZE(obj); ++i) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3291 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3292 cval = SCHEME_VEC_ELS(obj)[i]; |
4074 | 3293 status = mzscheme_to_vim_impl(cval, v, depth + 1, visited); |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3294 if (status == FAIL) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3295 break; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3296 status = list_append_tv(list, v); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3297 clear_tv(v); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3298 if (status == FAIL) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3299 break; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3300 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3301 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3302 else if (SCHEME_PAIRP(obj) || SCHEME_MUTABLE_PAIRP(obj)) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3303 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3304 for (curr = obj; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3305 SCHEME_PAIRP(curr) || SCHEME_MUTABLE_PAIRP(curr); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3306 curr = SCHEME_CDR(curr)) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3307 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3308 cval = SCHEME_CAR(curr); |
4074 | 3309 status = mzscheme_to_vim_impl(cval, v, depth + 1, visited); |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3310 if (status == FAIL) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3311 break; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3312 status = list_append_tv(list, v); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3313 clear_tv(v); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3314 if (status == FAIL) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3315 break; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3316 } |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3317 // improper list not terminated with null |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3318 // need to handle the last element |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3319 if (status == OK && !SCHEME_NULLP(curr)) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3320 { |
4074 | 3321 status = mzscheme_to_vim_impl(cval, v, depth + 1, visited); |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3322 if (status == OK) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3323 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3324 status = list_append_tv(list, v); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3325 clear_tv(v); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3326 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3327 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3328 } |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3329 // nothing to do for scheme_null |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3330 vim_free(v); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3331 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3332 MZ_GC_UNREG(); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3333 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3334 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3335 else if (SCHEME_HASHTP(obj)) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3336 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3337 int i; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3338 dict_T *dict; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3339 Scheme_Object *key = NULL; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3340 Scheme_Object *val = NULL; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3341 |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3342 MZ_GC_DECL_REG(2); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3343 MZ_GC_VAR_IN_REG(0, key); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3344 MZ_GC_VAR_IN_REG(1, val); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3345 MZ_GC_REG(); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3346 |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3347 dict = dict_alloc(); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3348 if (dict == NULL) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3349 status = FAIL; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3350 else |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3351 { |
16825
ce04ebdf26b8
patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents:
16451
diff
changeset
|
3352 typval_T *visited_tv = ALLOC_ONE(typval_T); |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3353 |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3354 tv->v_type = VAR_DICT; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3355 tv->vval.v_dict = dict; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3356 ++dict->dv_refcount; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3357 |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3358 copy_tv(tv, visited_tv); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3359 scheme_hash_set(visited, obj, (Scheme_Object *)visited_tv); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3360 |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3361 for (i = 0; i < ((Scheme_Hash_Table *)obj)->size; ++i) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3362 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3363 if (((Scheme_Hash_Table *) obj)->vals[i] != NULL) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3364 { |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3365 // generate item for `display'ed Scheme key |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3366 dictitem_T *item = dictitem_alloc((char_u *)string_to_line( |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3367 ((Scheme_Hash_Table *) obj)->keys[i])); |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3368 // convert Scheme val to Vim and add it to the dict |
4074 | 3369 if (mzscheme_to_vim_impl(((Scheme_Hash_Table *) obj)->vals[i], |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3370 &item->di_tv, depth + 1, visited) == FAIL |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3371 || dict_add(dict, item) == FAIL) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3372 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3373 dictitem_free(item); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3374 status = FAIL; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3375 break; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3376 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3377 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3378 |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3379 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3380 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3381 MZ_GC_UNREG(); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3382 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3383 else |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3384 { |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3385 // `display' any other value to string |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3386 tv->v_type = VAR_STRING; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3387 tv->vval.v_string = (char_u *)string_to_line(obj); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3388 } |
4074 | 3389 MZ_GC_UNREG(); |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3390 return status; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3391 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3392 |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3393 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3394 * Scheme prim procedure wrapping Vim funcref |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3395 */ |
4074 | 3396 static Scheme_Object * |
3397 vim_funcref(void *name, int argc, Scheme_Object **argv) | |
3398 { | |
3399 int i; | |
3400 typval_T args; | |
3401 int status = OK; | |
3402 Scheme_Object *result = NULL; | |
3403 list_T *list = list_alloc(); | |
3404 | |
3405 MZ_GC_DECL_REG(1); | |
3406 MZ_GC_VAR_IN_REG(0, result); | |
3407 MZ_GC_REG(); | |
3408 | |
3409 result = scheme_void; | |
3410 if (list == NULL) | |
3411 status = FAIL; | |
3412 else | |
3413 { | |
3414 args.v_type = VAR_LIST; | |
3415 args.vval.v_list = list; | |
3416 ++list->lv_refcount; | |
3417 for (i = 0; status == OK && i < argc; ++i) | |
3418 { | |
16825
ce04ebdf26b8
patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents:
16451
diff
changeset
|
3419 typval_T *v = ALLOC_ONE(typval_T); |
4074 | 3420 if (v == NULL) |
3421 status = FAIL; | |
3422 else | |
3423 { | |
3424 status = mzscheme_to_vim(argv[i], v); | |
3425 if (status == OK) | |
3426 { | |
3427 status = list_append_tv(list, v); | |
3428 clear_tv(v); | |
3429 } | |
3430 vim_free(v); | |
3431 } | |
3432 } | |
3433 if (status == OK) | |
3434 { | |
3435 typval_T ret; | |
3436 ret.v_type = VAR_UNKNOWN; | |
3437 | |
3438 mzscheme_call_vim(BYTE_STRING_VALUE((Scheme_Object *)name), &args, &ret); | |
3439 MZ_GC_CHECK(); | |
3440 result = vim_to_mzscheme(&ret); | |
3441 clear_tv(&ret); | |
3442 MZ_GC_CHECK(); | |
3443 } | |
3444 } | |
3445 clear_tv(&args); | |
3446 MZ_GC_UNREG(); | |
3447 if (status != OK) | |
3448 raise_vim_exn(_("error converting Scheme values to Vim")); | |
3449 else | |
3450 raise_if_error(); | |
3451 return result; | |
3452 } | |
3453 | |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3454 void |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3455 do_mzeval(char_u *str, typval_T *rettv) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3456 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3457 Scheme_Object *ret = NULL; |
4074 | 3458 |
3459 MZ_GC_DECL_REG(1); | |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3460 MZ_GC_VAR_IN_REG(0, ret); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3461 MZ_GC_REG(); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3462 |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3463 if (mzscheme_init()) |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3464 { |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3465 MZ_GC_UNREG(); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3466 return; |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3467 } |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3468 |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3469 MZ_GC_CHECK(); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3470 if (eval_with_exn_handling(str, do_eval, &ret) == OK) |
4074 | 3471 mzscheme_to_vim(ret, rettv); |
2050
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3472 |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3473 MZ_GC_UNREG(); |
afcf9db31561
updated for version 7.2.336
Bram Moolenaar <bram@zimbu.org>
parents:
2023
diff
changeset
|
3474 } |
1894 | 3475 #endif |
14 | 3476 |
3477 /* | |
3478 * Check to see whether a Vim error has been reported, or a keyboard | |
3479 * interrupt (from vim --> got_int) has been detected. | |
3480 */ | |
3481 static int | |
3482 vim_error_check(void) | |
3483 { | |
3484 return (got_int || did_emsg); | |
3485 } | |
3486 | |
3487 /* | |
3488 * register Scheme exn:vim | |
3489 */ | |
3490 static void | |
1894 | 3491 register_vim_exn(void) |
14 | 3492 { |
1894 | 3493 int nc = 0; |
3494 int i; | |
3495 Scheme_Object *struct_exn = NULL; | |
3496 Scheme_Object *exn_name = NULL; | |
3497 | |
3498 MZ_GC_DECL_REG(2); | |
3499 MZ_GC_VAR_IN_REG(0, struct_exn); | |
3500 MZ_GC_VAR_IN_REG(1, exn_name); | |
3501 MZ_GC_REG(); | |
3502 | |
3503 exn_name = scheme_intern_symbol("exn:vim"); | |
3504 MZ_GC_CHECK(); | |
3505 struct_exn = scheme_builtin_value("struct:exn"); | |
3506 MZ_GC_CHECK(); | |
14 | 3507 |
3508 if (vim_exn == NULL) | |
3509 vim_exn = scheme_make_struct_type(exn_name, | |
1894 | 3510 struct_exn, NULL, 0, 0, NULL, NULL |
14 | 3511 #if MZSCHEME_VERSION_MAJOR >= 299 |
3512 , NULL | |
3513 #endif | |
3514 ); | |
3515 | |
1894 | 3516 |
14 | 3517 { |
1894 | 3518 Scheme_Object **tmp = NULL; |
3519 Scheme_Object *exn_names[5] = {NULL, NULL, NULL, NULL, NULL}; | |
3520 Scheme_Object *exn_values[5] = {NULL, NULL, NULL, NULL, NULL}; | |
3521 MZ_GC_DECL_REG(6); | |
3522 MZ_GC_ARRAY_VAR_IN_REG(0, exn_names, 5); | |
3523 MZ_GC_ARRAY_VAR_IN_REG(3, exn_values, 5); | |
3524 MZ_GC_REG(); | |
3525 | |
3526 tmp = scheme_make_struct_names(exn_name, scheme_null, 0, &nc); | |
3527 mch_memmove(exn_names, tmp, nc * sizeof(Scheme_Object *)); | |
3528 MZ_GC_CHECK(); | |
3529 | |
3530 tmp = scheme_make_struct_values(vim_exn, exn_names, nc, 0); | |
3531 mch_memmove(exn_values, tmp, nc * sizeof(Scheme_Object *)); | |
3532 MZ_GC_CHECK(); | |
3533 | |
3534 for (i = 0; i < nc; i++) | |
3535 { | |
3536 scheme_add_global_symbol(exn_names[i], | |
3537 exn_values[i], environment); | |
3538 MZ_GC_CHECK(); | |
3539 } | |
3540 MZ_GC_UNREG(); | |
14 | 3541 } |
1894 | 3542 MZ_GC_UNREG(); |
14 | 3543 } |
3544 | |
3545 /* | |
3546 * raise exn:vim, may be with additional info string | |
3547 */ | |
3548 void | |
3549 raise_vim_exn(const char *add_info) | |
3550 { | |
1894 | 3551 char *fmt = _("Vim error: ~a"); |
3552 Scheme_Object *argv[2] = {NULL, NULL}; | |
3553 Scheme_Object *exn = NULL; | |
4074 | 3554 Scheme_Object *byte_string = NULL; |
3555 | |
3556 MZ_GC_DECL_REG(5); | |
1894 | 3557 MZ_GC_ARRAY_VAR_IN_REG(0, argv, 2); |
3558 MZ_GC_VAR_IN_REG(3, exn); | |
4074 | 3559 MZ_GC_VAR_IN_REG(4, byte_string); |
1894 | 3560 MZ_GC_REG(); |
14 | 3561 |
3562 if (add_info != NULL) | |
3563 { | |
1894 | 3564 char *c_string = NULL; |
3565 Scheme_Object *info = NULL; | |
3566 | |
3567 MZ_GC_DECL_REG(3); | |
3568 MZ_GC_VAR_IN_REG(0, c_string); | |
3569 MZ_GC_VAR_IN_REG(2, info); | |
3570 MZ_GC_REG(); | |
3571 | |
4074 | 3572 info = scheme_make_byte_string(add_info); |
1894 | 3573 MZ_GC_CHECK(); |
9159
6b003ff07234
commit https://github.com/vim/vim/commit/9b0ac229bcfc91acabd35fc576055a94c1687c32
Christian Brabandt <cb@256bit.org>
parents:
8800
diff
changeset
|
3574 c_string = scheme_format_utf8(fmt, (int)STRLEN(fmt), 1, &info, NULL); |
1894 | 3575 MZ_GC_CHECK(); |
4074 | 3576 byte_string = scheme_make_byte_string(c_string); |
1894 | 3577 MZ_GC_CHECK(); |
3578 argv[0] = scheme_byte_string_to_char_string(byte_string); | |
274 | 3579 SCHEME_SET_IMMUTABLE(argv[0]); |
1894 | 3580 MZ_GC_UNREG(); |
14 | 3581 } |
3582 else | |
4074 | 3583 { |
3584 byte_string = scheme_make_byte_string(_("Vim error")); | |
3585 MZ_GC_CHECK(); | |
3586 argv[0] = scheme_byte_string_to_char_string(byte_string); | |
3587 MZ_GC_CHECK(); | |
3588 } | |
1894 | 3589 MZ_GC_CHECK(); |
14 | 3590 |
1284 | 3591 #if MZSCHEME_VERSION_MAJOR < 360 |
3592 argv[1] = scheme_current_continuation_marks(); | |
1894 | 3593 MZ_GC_CHECK(); |
1284 | 3594 #else |
1125 | 3595 argv[1] = scheme_current_continuation_marks(NULL); |
1894 | 3596 MZ_GC_CHECK(); |
1284 | 3597 #endif |
14 | 3598 |
1894 | 3599 exn = scheme_make_struct_instance(vim_exn, 2, argv); |
3600 MZ_GC_CHECK(); | |
3601 scheme_raise(exn); | |
3602 MZ_GC_UNREG(); | |
14 | 3603 } |
3604 | |
3605 void | |
3606 raise_if_error(void) | |
3607 { | |
3608 if (vim_error_check()) | |
3609 raise_vim_exn(NULL); | |
3610 } | |
3611 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3612 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3613 * get buffer: |
14 | 3614 * either current |
3615 * or passed as argv[argnum] with checks | |
3616 */ | |
3617 static vim_mz_buffer * | |
3618 get_buffer_arg(const char *fname, int argnum, int argc, Scheme_Object **argv) | |
3619 { | |
3620 vim_mz_buffer *b; | |
3621 | |
3622 if (argc < argnum + 1) | |
3623 return get_vim_curr_buffer(); | |
3624 if (!SCHEME_VIMBUFFERP(argv[argnum])) | |
3625 scheme_wrong_type(fname, "vim-buffer", argnum, argc, argv); | |
3626 b = (vim_mz_buffer *)argv[argnum]; | |
3627 (void)get_valid_buffer(argv[argnum]); | |
3628 return b; | |
3629 } | |
3630 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3631 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3632 * get window: |
14 | 3633 * either current |
3634 * or passed as argv[argnum] with checks | |
3635 */ | |
3636 static vim_mz_window * | |
3637 get_window_arg(const char *fname, int argnum, int argc, Scheme_Object **argv) | |
3638 { | |
3639 vim_mz_window *w; | |
3640 | |
3641 if (argc < argnum + 1) | |
3642 return get_vim_curr_window(); | |
3643 w = (vim_mz_window *)argv[argnum]; | |
3644 if (!SCHEME_VIMWINDOWP(argv[argnum])) | |
3645 scheme_wrong_type(fname, "vim-window", argnum, argc, argv); | |
3646 (void)get_valid_window(argv[argnum]); | |
3647 return w; | |
3648 } | |
3649 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3650 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3651 * get valid Vim buffer from Scheme_Object* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3652 */ |
14 | 3653 buf_T *get_valid_buffer(void *obj) |
3654 { | |
3655 buf_T *buf = ((vim_mz_buffer *)obj)->buf; | |
3656 | |
3657 if (buf == INVALID_BUFFER_VALUE) | |
3658 scheme_signal_error(_("buffer is invalid")); | |
3659 return buf; | |
3660 } | |
3661 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3662 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3663 * get valid Vim window from Scheme_Object* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3664 */ |
14 | 3665 win_T *get_valid_window(void *obj) |
3666 { | |
3667 win_T *win = ((vim_mz_window *)obj)->win; | |
3668 if (win == INVALID_WINDOW_VALUE) | |
3669 scheme_signal_error(_("window is invalid")); | |
3670 return win; | |
3671 } | |
3672 | |
3673 int | |
3674 mzthreads_allowed(void) | |
3675 { | |
3676 return mz_threads_allow; | |
3677 } | |
3678 | |
3679 static int | |
3680 line_in_range(linenr_T lnum, buf_T *buf) | |
3681 { | |
3682 return (lnum > 0 && lnum <= buf->b_ml.ml_line_count); | |
3683 } | |
3684 | |
3685 static void | |
3686 check_line_range(linenr_T lnum, buf_T *buf) | |
3687 { | |
3688 if (!line_in_range(lnum, buf)) | |
3689 scheme_signal_error(_("linenr out of range")); | |
3690 } | |
3691 | |
3692 /* | |
3693 * Check if deleting lines made the cursor position invalid | |
3694 * (or you'll get msg from Vim about invalid linenr). | |
3695 * Changed the lines from "lo" to "hi" and added "extra" lines (negative if | |
3696 * deleted). Got from if_python.c | |
3697 */ | |
3698 static void | |
3699 mz_fix_cursor(int lo, int hi, int extra) | |
3700 { | |
3701 if (curwin->w_cursor.lnum >= lo) | |
3702 { | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3703 // Adjust the cursor position if it's in/after the changed |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3704 // lines. |
14 | 3705 if (curwin->w_cursor.lnum >= hi) |
3706 { | |
3707 curwin->w_cursor.lnum += extra; | |
3708 check_cursor_col(); | |
3709 } | |
3710 else if (extra < 0) | |
3711 { | |
3712 curwin->w_cursor.lnum = lo; | |
3713 check_cursor(); | |
3714 } | |
1894 | 3715 else |
3716 check_cursor_col(); | |
14 | 3717 changed_cline_bef_curs(); |
3718 } | |
3719 invalidate_botline(); | |
3720 } | |
3721 | |
3722 static Vim_Prim prims[]= | |
3723 { | |
3724 /* | |
3725 * Buffer-related commands | |
3726 */ | |
3727 {get_buffer_line, "get-buff-line", 1, 2}, | |
3728 {set_buffer_line, "set-buff-line", 2, 3}, | |
3729 {get_buffer_line_list, "get-buff-line-list", 2, 3}, | |
3730 {get_buffer_name, "get-buff-name", 0, 1}, | |
3731 {get_buffer_num, "get-buff-num", 0, 1}, | |
3732 {get_buffer_size, "get-buff-size", 0, 1}, | |
3733 {set_buffer_line_list, "set-buff-line-list", 3, 4}, | |
3734 {insert_buffer_line_list, "insert-buff-line-list", 2, 3}, | |
3735 {get_curr_buffer, "curr-buff", 0, 0}, | |
3736 {get_buffer_count, "buff-count", 0, 0}, | |
3737 {get_next_buffer, "get-next-buff", 0, 1}, | |
3738 {get_prev_buffer, "get-prev-buff", 0, 1}, | |
3739 {mzscheme_open_buffer, "open-buff", 1, 1}, | |
3740 {get_buffer_by_name, "get-buff-by-name", 1, 1}, | |
3741 {get_buffer_by_num, "get-buff-by-num", 1, 1}, | |
3742 /* | |
3743 * Window-related commands | |
3744 */ | |
3745 {get_curr_win, "curr-win", 0, 0}, | |
3746 {get_window_count, "win-count", 0, 0}, | |
3747 {get_window_by_num, "get-win-by-num", 1, 1}, | |
3748 {get_window_num, "get-win-num", 0, 1}, | |
3749 {get_window_buffer, "get-win-buffer", 0, 1}, | |
3750 {get_window_height, "get-win-height", 0, 1}, | |
3751 {set_window_height, "set-win-height", 1, 2}, | |
3752 {get_window_width, "get-win-width", 0, 1}, | |
3753 {set_window_width, "set-win-width", 1, 2}, | |
3754 {get_cursor, "get-cursor", 0, 1}, | |
3755 {set_cursor, "set-cursor", 1, 2}, | |
3756 {get_window_list, "get-win-list", 0, 1}, | |
3757 /* | |
3758 * Vim-related commands | |
3759 */ | |
3760 {vim_command, "command", 1, 1}, | |
3761 {vim_eval, "eval", 1, 1}, | |
3762 {get_range_start, "range-start", 0, 0}, | |
3763 {get_range_end, "range-end", 0, 0}, | |
3764 {mzscheme_beep, "beep", 0, 0}, | |
3765 {get_option, "get-option", 1, 2}, | |
3766 {set_option, "set-option", 1, 2}, | |
3767 /* | |
3768 * small utilities | |
3769 */ | |
3770 {vim_bufferp, "buff?", 1, 1}, | |
3771 {vim_windowp, "win?", 1, 1}, | |
3772 {vim_buffer_validp, "buff-valid?", 1, 1}, | |
3773 {vim_window_validp, "win-valid?", 1, 1} | |
3774 }; | |
3775 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3776 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3777 * return MzScheme wrapper for curbuf |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3778 */ |
14 | 3779 static vim_mz_buffer * |
3780 get_vim_curr_buffer(void) | |
3781 { | |
502 | 3782 if (curbuf->b_mzscheme_ref == NULL) |
14 | 3783 return (vim_mz_buffer *)buffer_new(curbuf); |
3784 else | |
4074 | 3785 return BUFFER_REF(curbuf); |
14 | 3786 } |
3787 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3788 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3789 * return MzScheme wrapper for curwin |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3790 */ |
14 | 3791 static vim_mz_window * |
3792 get_vim_curr_window(void) | |
3793 { | |
502 | 3794 if (curwin->w_mzscheme_ref == NULL) |
14 | 3795 return (vim_mz_window *)window_new(curwin); |
3796 else | |
4074 | 3797 return WINDOW_REF(curwin); |
14 | 3798 } |
3799 | |
3800 static void | |
7823
bcef391c101c
commit https://github.com/vim/vim/commit/68c2f638e65d914dc6e84eb7ce2624f08af525c0
Christian Brabandt <cb@256bit.org>
parents:
7813
diff
changeset
|
3801 make_modules(void) |
14 | 3802 { |
1894 | 3803 int i; |
3804 Scheme_Env *mod = NULL; | |
3805 Scheme_Object *vimext_symbol = NULL; | |
3806 Scheme_Object *closed_prim = NULL; | |
3807 | |
3808 MZ_GC_DECL_REG(3); | |
3809 MZ_GC_VAR_IN_REG(0, mod); | |
3810 MZ_GC_VAR_IN_REG(1, vimext_symbol); | |
3811 MZ_GC_VAR_IN_REG(2, closed_prim); | |
3812 MZ_GC_REG(); | |
3813 | |
3814 vimext_symbol = scheme_intern_symbol("vimext"); | |
3815 MZ_GC_CHECK(); | |
3816 mod = scheme_primitive_module(vimext_symbol, environment); | |
3817 MZ_GC_CHECK(); | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3818 // all prims made closed so they can access their own names |
24768
7334bf933510
patch 8.2.2922: computing array length is done in various ways
Bram Moolenaar <Bram@vim.org>
parents:
23422
diff
changeset
|
3819 for (i = 0; i < (int)ARRAY_LENGTH(prims); i++) |
14 | 3820 { |
3821 Vim_Prim *prim = prims + i; | |
1894 | 3822 closed_prim = scheme_make_closed_prim_w_arity(prim->prim, prim, prim->name, |
3823 prim->mina, prim->maxa); | |
3824 scheme_add_global(prim->name, closed_prim, mod); | |
3825 MZ_GC_CHECK(); | |
14 | 3826 } |
3827 scheme_finish_primitive_module(mod); | |
1894 | 3828 MZ_GC_CHECK(); |
3829 MZ_GC_UNREG(); | |
14 | 3830 } |
344 | 3831 |
274 | 3832 #ifdef HAVE_SANDBOX |
3833 static Scheme_Object *M_write = NULL; | |
3834 static Scheme_Object *M_read = NULL; | |
3835 static Scheme_Object *M_execute = NULL; | |
3836 static Scheme_Object *M_delete = NULL; | |
3837 | |
3838 static void | |
1125 | 3839 sandbox_check(void) |
274 | 3840 { |
3841 if (sandbox) | |
3842 raise_vim_exn(_("not allowed in the Vim sandbox")); | |
3843 } | |
3844 | |
18798
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3845 /* |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3846 * security guards to force Vim's sandbox restrictions on MzScheme level |
f0f9692d4487
patch 8.1.2387: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
3847 */ |
274 | 3848 static Scheme_Object * |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
3849 sandbox_file_guard(int argc UNUSED, Scheme_Object **argv) |
274 | 3850 { |
31702
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3851 if (!sandbox) |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3852 return scheme_void; |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3853 |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3854 Scheme_Object *requested_access = argv[2]; |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3855 |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3856 if (M_write == NULL) |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3857 { |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3858 MZ_REGISTER_STATIC(M_write); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3859 M_write = scheme_intern_symbol("write"); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3860 MZ_GC_CHECK(); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3861 } |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3862 if (M_read == NULL) |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3863 { |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3864 MZ_REGISTER_STATIC(M_read); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3865 M_read = scheme_intern_symbol("read"); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3866 MZ_GC_CHECK(); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3867 } |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3868 if (M_execute == NULL) |
274 | 3869 { |
31702
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3870 MZ_REGISTER_STATIC(M_execute); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3871 M_execute = scheme_intern_symbol("execute"); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3872 MZ_GC_CHECK(); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3873 } |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3874 if (M_delete == NULL) |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3875 { |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3876 MZ_REGISTER_STATIC(M_delete); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3877 M_delete = scheme_intern_symbol("delete"); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3878 MZ_GC_CHECK(); |
274 | 3879 } |
31702
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3880 |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3881 while (!SCHEME_NULLP(requested_access)) |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3882 { |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3883 Scheme_Object *item = SCHEME_CAR(requested_access); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3884 if (scheme_eq(item, M_write) || scheme_eq(item, M_read) |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3885 || scheme_eq(item, M_execute) || scheme_eq(item, M_delete)) |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3886 raise_vim_exn(_("not allowed in the Vim sandbox")); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3887 requested_access = SCHEME_CDR(requested_access); |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3888 } |
27c9212d10aa
patch 9.0.1183: code is indented more than necessary
Bram Moolenaar <Bram@vim.org>
parents:
30645
diff
changeset
|
3889 |
274 | 3890 return scheme_void; |
3891 } | |
3892 | |
3893 static Scheme_Object * | |
2278
0b3be97064e5
Various small fixes from Dominique Pelle.
Bram Moolenaar <bram@vim.org>
parents:
2050
diff
changeset
|
3894 sandbox_network_guard(int argc UNUSED, Scheme_Object **argv UNUSED) |
274 | 3895 { |
3896 return scheme_void; | |
3897 } | |
3898 #endif | |
800 | 3899 |
3900 #endif |