]> git.ipfire.org Git - ipfire-3.x.git/blob - vim/patches/vim-7.3.187.patch0
projects / ipfire-3.x.git / blob
? search:


7bf82ce4d399e34778b1a9d31c2968725eed7907
[ipfire-3.x.git] / vim / patches / vim-7.3.187.patch0
1 To: vim_dev@googlegroups.com
2 Subject: Patch 7.3.187
3 Fcc: outbox
4 From: Bram Moolenaar <Bram@moolenaar.net>
5 Mime-Version: 1.0
6 Content-Type: text/plain; charset=UTF-8
7 Content-Transfer-Encoding: 8bit
8 ------------
9
10 Patch 7.3.187
11 Problem: The RISC OS port has obvious errors and is not being maintained.
12 Solution: Remove the RISC OS files and code.
13 Files: src/ascii.h, src/eval.c, src/ex_cmds.c, src/ex_cmds2.c,
14 src/ex_docmd.c, src/fileio.c, src/globals.h, src/gui.c, src/gui.h,
15 src/main.c, src/memfile.c, src/memline.c, src/misc1.c,
16 src/proto.h, src/quickfix.c, src/search.c, src/structs.h,
17 src/term.c, src/termlib.c, src/version.c, src/vim.h,
18 src/gui_riscos.h, src/os_riscos.h, src/gui_riscos.c,
19 src/os_riscos.c, runtime/doc/os_risc.txt
20
21
22 *** ../vim-7.3.186/src/ascii.h 2010-08-15 21:57:25.000000000 +0200
23 --- src/ascii.h 2011-05-10 16:22:08.000000000 +0200
24 ***************
25 *** 183,193 ****
26 # define PATHSEP psepc
27 # define PATHSEPSTR pseps
28 #else
29 ! # ifdef RISCOS
30 ! # define PATHSEP '.'
31 ! # define PATHSEPSTR "."
32 ! # else
33 ! # define PATHSEP '/'
34 ! # define PATHSEPSTR "/"
35 ! # endif
36 #endif
37 --- 183,188 ----
38 # define PATHSEP psepc
39 # define PATHSEPSTR pseps
40 #else
41 ! # define PATHSEP '/'
42 ! # define PATHSEPSTR "/"
43 #endif
44 *** ../vim-7.3.186/src/eval.c 2011-04-21 14:27:21.000000000 +0200
45 --- src/eval.c 2011-05-10 16:22:21.000000000 +0200
46 ***************
47 *** 11818,11826 ****
48 #ifdef __QNX__
49 "qnx",
50 #endif
51 - #ifdef RISCOS
52 - "riscos",
53 - #endif
54 #ifdef UNIX
55 "unix",
56 #endif
57 --- 11818,11823 ----
58 *** ../vim-7.3.186/src/ex_cmds.c 2011-05-10 16:00:43.000000000 +0200
59 --- src/ex_cmds.c 2011-05-10 16:23:22.000000000 +0200
60 ***************
61 *** 899,907 ****
62 * Handle the ":!cmd" command. Also for ":r !cmd" and ":w !cmd"
63 * Bangs in the argument are replaced with the previously entered command.
64 * Remember the argument.
65 - *
66 - * RISCOS: Bangs only replaced when followed by a space, since many
67 - * pathnames contain one.
68 */
69 void
70 do_bang(addr_count, eap, forceit, do_in, do_out)
71 --- 899,904 ----
72 ***************
73 *** 980,990 ****
74 trailarg = NULL;
75 while (*p)
76 {
77 ! if (*p == '!'
78 ! #ifdef RISCOS
79 ! && (p[1] == ' ' || p[1] == NUL)
80 ! #endif
81 ! )
82 {
83 if (p > newcmd && p[-1] == '\\')
84 STRMOVE(p - 1, p);
85 --- 977,983 ----
86 trailarg = NULL;
87 while (*p)
88 {
89 ! if (*p == '!')
90 {
91 if (p > newcmd && p[-1] == '\\')
92 STRMOVE(p - 1, p);
93 ***************
94 *** 1578,1591 ****
95 if (p != NULL)
96 *p = NUL;
97 }
98 - # ifdef RISCOS
99 - STRCAT(buf, " { < "); /* Use RISC OS notation for input. */
100 - STRCAT(buf, itmp);
101 - STRCAT(buf, " } ");
102 - # else
103 STRCAT(buf, " <"); /* " < " causes problems on Amiga */
104 STRCAT(buf, itmp);
105 - # endif
106 if (*p_shq == NUL)
107 {
108 p = vim_strchr(cmd, '|');
109 --- 1571,1578 ----
110 ***************
111 *** 1634,1649 ****
112 else
113 vim_snprintf((char *)end, (size_t)(buflen - (end - buf)),
114 #ifdef FEAT_QUICKFIX
115 - # ifndef RISCOS
116 - opt != p_sp ? " %s%s" :
117 - # endif
118 " %s %s",
119 #else
120 - # ifndef RISCOS
121 " %s%s", /* " > %s" causes problems on Amiga */
122 - # else
123 - " %s %s", /* But is needed for 'shellpipe' and RISC OS */
124 - # endif
125 #endif
126 (char *)opt, (char *)fname);
127 }
128 --- 1621,1629 ----
129 ***************
130 *** 1844,1854 ****
131 #ifdef VMS
132 (char_u *)"-tmp",
133 #else
134 - # ifdef RISCOS
135 - (char_u *)"/tmp",
136 - # else
137 (char_u *)".tmp",
138 - # endif
139 #endif
140 FALSE);
141 if (tempname == NULL) /* out of memory */
142 --- 1824,1830 ----
143 *** ../vim-7.3.186/src/ex_cmds2.c 2011-04-11 21:35:03.000000000 +0200
144 --- src/ex_cmds2.c 2011-05-10 16:23:47.000000000 +0200
145 ***************
146 *** 500,517 ****
147 /* Expand the file name in the same way as do_source(). This means
148 * doing it twice, so that $DIR/file gets expanded when $DIR is
149 * "~/dir". */
150 - #ifdef RISCOS
151 - q = mch_munge_fname(p);
152 - #else
153 q = expand_env_save(p);
154 - #endif
155 if (q == NULL)
156 return FAIL;
157 - #ifdef RISCOS
158 - p = mch_munge_fname(q);
159 - #else
160 p = expand_env_save(q);
161 - #endif
162 vim_free(q);
163 if (p == NULL)
164 return FAIL;
165 --- 500,509 ----
166 ***************
167 *** 2940,2950 ****
168 proftime_T wait_start;
169 #endif
170
171 - #ifdef RISCOS
172 - p = mch_munge_fname(fname);
173 - #else
174 p = expand_env_save(fname);
175 - #endif
176 if (p == NULL)
177 return retval;
178 fname_exp = fix_fname(p);
179 --- 2932,2938 ----
180 *** ../vim-7.3.186/src/ex_docmd.c 2011-05-05 14:26:37.000000000 +0200
181 --- src/ex_docmd.c 2011-05-10 16:24:18.000000000 +0200
182 ***************
183 *** 9702,9715 ****
184 valid = 0; /* Must have ":p:h" to be valid */
185 }
186 else
187 - #ifdef RISCOS
188 - /* Always use the full path for RISC OS if possible. */
189 - result = curbuf->b_ffname;
190 - if (result == NULL)
191 - result = curbuf->b_fname;
192 - #else
193 result = curbuf->b_fname;
194 - #endif
195 break;
196
197 case SPEC_HASH: /* '#' or "#99": alternate file */
198 --- 9702,9708 ----
199 ***************
200 *** 9854,9864 ****
201 if (src[*usedlen] == '<') /* remove the file name extension */
202 {
203 ++*usedlen;
204 - #ifdef RISCOS
205 - if ((s = vim_strrchr(result, '/')) != NULL && s >= gettail(result))
206 - #else
207 if ((s = vim_strrchr(result, '.')) != NULL && s >= gettail(result))
208 - #endif
209 resultlen = (int)(s - result);
210 }
211 #ifdef FEAT_MODIFY_FNAME
212 --- 9847,9853 ----
213 ***************
214 *** 10875,10882 ****
215 else if (vim_ispathsep(*p))
216 {
217 *s++ = '=';
218 ! #if defined(BACKSLASH_IN_FILENAME) || defined(AMIGA) || defined(RISCOS) \
219 ! || defined(VMS)
220 if (*p == ':')
221 *s++ = '-';
222 else
223 --- 10864,10870 ----
224 else if (vim_ispathsep(*p))
225 {
226 *s++ = '=';
227 ! #if defined(BACKSLASH_IN_FILENAME) || defined(AMIGA) || defined(VMS)
228 if (*p == ':')
229 *s++ = '-';
230 else
231 *** ../vim-7.3.186/src/fileio.c 2011-05-05 16:41:19.000000000 +0200
232 --- src/fileio.c 2011-05-10 16:26:06.000000000 +0200
233 ***************
234 *** 504,521 ****
235
236 if (newfile && !read_stdin && !read_buffer)
237 {
238 ! /* Remember time of file.
239 ! * For RISCOS, also remember the filetype.
240 ! */
241 if (mch_stat((char *)fname, &st) >= 0)
242 {
243 buf_store_time(curbuf, &st, fname);
244 curbuf->b_mtime_read = curbuf->b_mtime;
245 -
246 - #if defined(RISCOS) && defined(FEAT_OSFILETYPE)
247 - /* Read the filetype into the buffer local filetype option. */
248 - mch_read_filetype(fname);
249 - #endif
250 #ifdef UNIX
251 /*
252 * Use the protection bits of the original file for the swap file.
253 --- 504,514 ----
254
255 if (newfile && !read_stdin && !read_buffer)
256 {
257 ! /* Remember time of file. */
258 if (mch_stat((char *)fname, &st) >= 0)
259 {
260 buf_store_time(curbuf, &st, fname);
261 curbuf->b_mtime_read = curbuf->b_mtime;
262 #ifdef UNIX
263 /*
264 * Use the protection bits of the original file for the swap file.
265 ***************
266 *** 557,563 ****
267
268 /*
269 * for UNIX: check readonly with perm and mch_access()
270 - * for RISCOS: same as Unix, otherwise file gets re-datestamped!
271 * for MSDOS and Amiga: check readonly by trying to open the file for writing
272 */
273 file_readonly = FALSE;
274 --- 550,555 ----
275 ***************
276 *** 3804,3816 ****
277
278 /* make sure we have a valid backup extension to use */
279 if (*p_bex == NUL)
280 - {
281 - #ifdef RISCOS
282 - backup_ext = (char_u *)"/bak";
283 - #else
284 backup_ext = (char_u *)".bak";
285 - #endif
286 - }
287 else
288 backup_ext = p_bex;
289
290 --- 3796,3802 ----
291 ***************
292 *** 4724,4734 ****
293 #endif
294 if (perm >= 0) /* set perm. of new file same as old file */
295 (void)mch_setperm(wfname, perm);
296 - #ifdef RISCOS
297 - if (!append && !filtering)
298 - /* Set the filetype after writing the file. */
299 - mch_set_filetype(wfname, buf->b_p_oft);
300 - #endif
301 #ifdef HAVE_ACL
302 /* Probably need to set the ACL before changing the user (can't set the
303 * ACL on a file the user doesn't own). */
304 --- 4710,4715 ----
305 ***************
306 *** 6262,6280 ****
307 */
308 for (ptr = retval + fnamelen; ptr > retval; mb_ptr_back(retval, ptr))
309 {
310 - #ifndef RISCOS
311 if (*ext == '.'
312 ! # ifdef USE_LONG_FNAME
313 && (!USE_LONG_FNAME || shortname)
314 ! # else
315 ! # ifndef SHORT_FNAME
316 && shortname
317 - # endif
318 # endif
319 )
320 if (*ptr == '.') /* replace '.' by '_' */
321 *ptr = '_';
322 - #endif
323 if (vim_ispathsep(*ptr))
324 {
325 ++ptr;
326 --- 6243,6259 ----
327 */
328 for (ptr = retval + fnamelen; ptr > retval; mb_ptr_back(retval, ptr))
329 {
330 if (*ext == '.'
331 ! #ifdef USE_LONG_FNAME
332 && (!USE_LONG_FNAME || shortname)
333 ! #else
334 ! # ifndef SHORT_FNAME
335 && shortname
336 # endif
337 + #endif
338 )
339 if (*ptr == '.') /* replace '.' by '_' */
340 *ptr = '_';
341 if (vim_ispathsep(*ptr))
342 {
343 ++ptr;
344 ***************
345 *** 6309,6331 ****
346 if (fname == NULL || *fname == NUL
347 || vim_ispathsep(fname[STRLEN(fname) - 1]))
348 {
349 - #ifdef RISCOS
350 - if (*ext == '/')
351 - #else
352 if (*ext == '.')
353 - #endif
354 *s++ = '_';
355 }
356 /*
357 * If the extension starts with '.', truncate the base name at 8
358 * characters
359 */
360 - #ifdef RISCOS
361 - /* We normally use '/', but swap files are '_' */
362 - else if (*ext == '/' || *ext == '_')
363 - #else
364 else if (*ext == '.')
365 - #endif
366 {
367 if ((size_t)(s - ptr) > (size_t)8)
368 {
369 --- 6288,6301 ----
370 ***************
371 *** 6337,6349 ****
372 * If the extension doesn't start with '.', and the file name
373 * doesn't have an extension yet, append a '.'
374 */
375 - #ifdef RISCOS
376 - else if ((e = vim_strchr(ptr, '/')) == NULL)
377 - *s++ = '/';
378 - #else
379 else if ((e = vim_strchr(ptr, '.')) == NULL)
380 *s++ = '.';
381 - #endif
382 /*
383 * If the extension doesn't start with '.', and there already is an
384 * extension, it may need to be truncated
385 --- 6307,6314 ----
386 ***************
387 *** 6371,6393 ****
388 /*
389 * Prepend the dot.
390 */
391 ! if (prepend_dot && !shortname && *(e = gettail(retval)) !=
392 ! #ifdef RISCOS
393 ! '/'
394 ! #else
395 ! '.'
396 ! #endif
397 #ifdef USE_LONG_FNAME
398 && USE_LONG_FNAME
399 #endif
400 )
401 {
402 STRMOVE(e + 1, e);
403 - #ifdef RISCOS
404 - *e = '/';
405 - #else
406 *e = '.';
407 - #endif
408 }
409 #endif
410
411 --- 6336,6349 ----
412 /*
413 * Prepend the dot.
414 */
415 ! if (prepend_dot && !shortname && *(e = gettail(retval)) != '.'
416 #ifdef USE_LONG_FNAME
417 && USE_LONG_FNAME
418 #endif
419 )
420 {
421 STRMOVE(e + 1, e);
422 *e = '.';
423 }
424 #endif
425
426 ***************
427 *** 10205,10223 ****
428 ++p;
429 break;
430 case '.':
431 - #ifdef RISCOS
432 - if (allow_dirs != NULL)
433 - *allow_dirs = TRUE;
434 - /* FALLTHROUGH */
435 - #endif
436 case '~':
437 reg_pat[i++] = '\\';
438 reg_pat[i++] = *p;
439 break;
440 case '?':
441 - #ifdef RISCOS
442 - case '#':
443 - #endif
444 reg_pat[i++] = '.';
445 break;
446 case '\\':
447 --- 10161,10171 ----
448 *** ../vim-7.3.186/src/globals.h 2011-05-05 14:26:37.000000000 +0200
449 --- src/globals.h 2011-05-10 16:26:13.000000000 +0200
450 ***************
451 *** 1513,1519 ****
452 EXTERN char_u e_sandbox[] INIT(= N_("E48: Not allowed in sandbox"));
453 #endif
454 EXTERN char_u e_secure[] INIT(= N_("E523: Not allowed here"));
455 ! #if defined(AMIGA) || defined(MACOS) || defined(MSWIN) || defined(RISCOS) \
456 || defined(UNIX) || defined(VMS) || defined(OS2)
457 EXTERN char_u e_screenmode[] INIT(= N_("E359: Screen mode setting not supported"));
458 #endif
459 --- 1513,1519 ----
460 EXTERN char_u e_sandbox[] INIT(= N_("E48: Not allowed in sandbox"));
461 #endif
462 EXTERN char_u e_secure[] INIT(= N_("E523: Not allowed here"));
463 ! #if defined(AMIGA) || defined(MACOS) || defined(MSWIN) \
464 || defined(UNIX) || defined(VMS) || defined(OS2)
465 EXTERN char_u e_screenmode[] INIT(= N_("E359: Screen mode setting not supported"));
466 #endif
467 *** ../vim-7.3.186/src/gui.c 2011-01-17 20:08:03.000000000 +0100
468 --- src/gui.c 2011-05-10 16:26:53.000000000 +0200
469 ***************
470 *** 2156,2162 ****
471
472 if (highlight_mask & (HL_INVERSE | HL_STANDOUT))
473 {
474 ! #if defined(AMIGA) || defined(RISCOS)
475 gui_mch_set_colors(bg_color, fg_color);
476 #else
477 gui_mch_set_fg_color(bg_color);
478 --- 2156,2162 ----
479
480 if (highlight_mask & (HL_INVERSE | HL_STANDOUT))
481 {
482 ! #if defined(AMIGA)
483 gui_mch_set_colors(bg_color, fg_color);
484 #else
485 gui_mch_set_fg_color(bg_color);
486 ***************
487 *** 2165,2171 ****
488 }
489 else
490 {
491 ! #if defined(AMIGA) || defined(RISCOS)
492 gui_mch_set_colors(fg_color, bg_color);
493 #else
494 gui_mch_set_fg_color(fg_color);
495 --- 2165,2171 ----
496 }
497 else
498 {
499 ! #if defined(AMIGA)
500 gui_mch_set_colors(fg_color, bg_color);
501 #else
502 gui_mch_set_fg_color(fg_color);
503 ***************
504 *** 2193,2199 ****
505 if (back != 0 && ((draw_flags & DRAW_BOLD) || (highlight_mask & HL_ITALIC)))
506 return FAIL;
507
508 ! #if defined(RISCOS) || defined(FEAT_GUI_GTK)
509 /* If there's no italic font, then fake it.
510 * For GTK2, we don't need a different font for italic style. */
511 if (hl_mask_todo & HL_ITALIC)
512 --- 2193,2199 ----
513 if (back != 0 && ((draw_flags & DRAW_BOLD) || (highlight_mask & HL_ITALIC)))
514 return FAIL;
515
516 ! #if defined(FEAT_GUI_GTK)
517 /* If there's no italic font, then fake it.
518 * For GTK2, we don't need a different font for italic style. */
519 if (hl_mask_todo & HL_ITALIC)
520 ***************
521 *** 2985,3010 ****
522 did_clip = TRUE;
523 }
524 /* Allow the left button to start the selection */
525 - else if (button ==
526 - # ifdef RISCOS
527 - /* Only start a drag on a drag event. Otherwise
528 - * we don't get a release event. */
529 - MOUSE_DRAG
530 - # else
531 - MOUSE_LEFT
532 - # endif
533 - )
534 - {
535 - clip_start_selection(X_2_COL(x), Y_2_ROW(y), repeated_click);
536 - did_clip = TRUE;
537 - }
538 - # ifdef RISCOS
539 else if (button == MOUSE_LEFT)
540 {
541 ! clip_clear_selection();
542 did_clip = TRUE;
543 }
544 - # endif
545
546 /* Always allow pasting */
547 if (button != MOUSE_MIDDLE)
548 --- 2985,2995 ----
549 did_clip = TRUE;
550 }
551 /* Allow the left button to start the selection */
552 else if (button == MOUSE_LEFT)
553 {
554 ! clip_start_selection(X_2_COL(x), Y_2_ROW(y), repeated_click);
555 did_clip = TRUE;
556 }
557
558 /* Always allow pasting */
559 if (button != MOUSE_MIDDLE)
560 *** ../vim-7.3.186/src/gui.h 2010-08-15 21:57:25.000000000 +0200
561 --- src/gui.h 2011-05-10 16:27:19.000000000 +0200
562 ***************
563 *** 52,61 ****
564 # include <SegLoad.h>*/
565 #endif
566
567 - #ifdef RISCOS
568 - # include "gui_riscos.h"
569 - #endif
570 -
571 #ifdef FEAT_GUI_PHOTON
572 # include <Ph.h>
573 # include <Pt.h>
574 --- 52,57 ----
575 ***************
576 *** 151,157 ****
577 #define DRAW_BOLD 0x02 /* draw bold text */
578 #define DRAW_UNDERL 0x04 /* draw underline text */
579 #define DRAW_UNDERC 0x08 /* draw undercurl text */
580 ! #if defined(RISCOS) || defined(FEAT_GUI_GTK)
581 # define DRAW_ITALIC 0x10 /* draw italic text */
582 #endif
583 #define DRAW_CURSOR 0x20 /* drawing block cursor (win32) */
584 --- 147,153 ----
585 #define DRAW_BOLD 0x02 /* draw bold text */
586 #define DRAW_UNDERL 0x04 /* draw underline text */
587 #define DRAW_UNDERC 0x08 /* draw undercurl text */
588 ! #if defined(FEAT_GUI_GTK)
589 # define DRAW_ITALIC 0x10 /* draw italic text */
590 #endif
591 #define DRAW_CURSOR 0x20 /* drawing block cursor (win32) */
592 ***************
593 *** 219,227 ****
594 #ifdef FEAT_GUI_MAC
595 ControlHandle id; /* A handle to the scrollbar */
596 #endif
597 - #ifdef RISCOS
598 - int id; /* Window handle of scrollbar window */
599 - #endif
600 #ifdef FEAT_GUI_PHOTON
601 PtWidget_t *id;
602 #endif
603 --- 215,220 ----
604 ***************
605 *** 450,463 ****
606 int visibility; /* Is window partially/fully obscured? */
607 #endif
608
609 - #ifdef RISCOS
610 - int window_handle;
611 - char_u *window_title;
612 - int window_title_size;
613 - int fg_colour; /* in 0xBBGGRR format */
614 - int bg_colour;
615 - #endif
616 -
617 #ifdef FEAT_GUI_PHOTON
618 PtWidget_t *vimWindow; /* PtWindow */
619 PtWidget_t *vimTextArea; /* PtRaw */
620 --- 443,448 ----
621 *** ../vim-7.3.186/src/main.c 2011-04-11 21:35:03.000000000 +0200
622 --- src/main.c 2011-05-10 16:27:33.000000000 +0200
623 ***************
624 *** 3276,3286 ****
625 main_msg(_("+reverse\t\tDon't use reverse video (also: +rv)"));
626 main_msg(_("-xrm <resource>\tSet the specified resource"));
627 #endif /* FEAT_GUI_X11 */
628 - #if defined(FEAT_GUI) && defined(RISCOS)
629 - mch_msg(_("\nArguments recognised by gvim (RISC OS version):\n"));
630 - main_msg(_("--columns <number>\tInitial width of window in columns"));
631 - main_msg(_("--rows <number>\tInitial height of window in rows"));
632 - #endif
633 #ifdef FEAT_GUI_GTK
634 mch_msg(_("\nArguments recognised by gvim (GTK+ version):\n"));
635 main_msg(_("-font <font>\t\tUse <font> for normal text (also: -fn)"));
636 --- 3276,3281 ----
637 *** ../vim-7.3.186/src/memfile.c 2011-03-22 18:10:34.000000000 +0100
638 --- src/memfile.c 2011-05-10 16:27:38.000000000 +0200
639 ***************
640 *** 1307,1313 ****
641 * fname cannot be NameBuff, because it must have been allocated.
642 */
643 mf_set_ffname(mfp);
644 ! #if defined(MSDOS) || defined(MSWIN) || defined(RISCOS)
645 /*
646 * A ":!cd e:xxx" may change the directory without us knowning, use the
647 * full pathname always. Careful: This frees fname!
648 --- 1307,1313 ----
649 * fname cannot be NameBuff, because it must have been allocated.
650 */
651 mf_set_ffname(mfp);
652 ! #if defined(MSDOS) || defined(MSWIN)
653 /*
654 * A ":!cd e:xxx" may change the directory without us knowning, use the
655 * full pathname always. Careful: This frees fname!
656 *** ../vim-7.3.186/src/memline.c 2011-02-15 11:56:56.000000000 +0100
657 --- src/memline.c 2011-05-10 16:28:40.000000000 +0200
658 ***************
659 *** 748,754 ****
660 continue;
661 if (mf_open_file(mfp, fname) == OK) /* consumes fname! */
662 {
663 ! #if defined(MSDOS) || defined(MSWIN) || defined(RISCOS)
664 /*
665 * set full pathname for swap file now, because a ":!cd dir" may
666 * change directory without us knowing it.
667 --- 748,754 ----
668 continue;
669 if (mf_open_file(mfp, fname) == OK) /* consumes fname! */
670 {
671 ! #if defined(MSDOS) || defined(MSWIN)
672 /*
673 * set full pathname for swap file now, because a ":!cd dir" may
674 * change directory without us knowing it.
675 ***************
676 *** 933,939 ****
677 b0p->b0_fname[0] = NUL;
678 else
679 {
680 ! #if defined(MSDOS) || defined(MSWIN) || defined(AMIGA) || defined(RISCOS)
681 /* Systems that cannot translate "~user" back into a path: copy the
682 * file name unmodified. Do use slashes instead of backslashes for
683 * portability. */
684 --- 933,939 ----
685 b0p->b0_fname[0] = NUL;
686 else
687 {
688 ! #if defined(MSDOS) || defined(MSWIN) || defined(AMIGA)
689 /* Systems that cannot translate "~user" back into a path: copy the
690 * file name unmodified. Do use slashes instead of backslashes for
691 * portability. */
692 ***************
693 *** 1103,1109 ****
694 fname = (char_u *)"";
695 len = (int)STRLEN(fname);
696 if (len >= 4 &&
697 ! #if defined(VMS) || defined(RISCOS)
698 STRNICMP(fname + len - 4, "_s" , 2)
699 #else
700 STRNICMP(fname + len - 4, ".s" , 2)
701 --- 1103,1109 ----
702 fname = (char_u *)"";
703 len = (int)STRLEN(fname);
704 if (len >= 4 &&
705 ! #if defined(VMS)
706 STRNICMP(fname + len - 4, "_s" , 2)
707 #else
708 STRNICMP(fname + len - 4, ".s" , 2)
709 ***************
710 *** 1773,1783 ****
711 #ifdef VMS
712 names[0] = vim_strsave((char_u *)"*_sw%");
713 #else
714 - # ifdef RISCOS
715 - names[0] = vim_strsave((char_u *)"*_sw#");
716 - # else
717 names[0] = vim_strsave((char_u *)"*.sw?");
718 - # endif
719 #endif
720 #if defined(UNIX) || defined(WIN3264)
721 /* For Unix names starting with a dot are special. MS-Windows
722 --- 1773,1779 ----
723 ***************
724 *** 1804,1814 ****
725 #ifdef VMS
726 names[0] = concat_fnames(dir_name, (char_u *)"*_sw%", TRUE);
727 #else
728 - # ifdef RISCOS
729 - names[0] = concat_fnames(dir_name, (char_u *)"*_sw#", TRUE);
730 - # else
731 names[0] = concat_fnames(dir_name, (char_u *)"*.sw?", TRUE);
732 - # endif
733 #endif
734 #if defined(UNIX) || defined(WIN3264)
735 /* For Unix names starting with a dot are special. MS-Windows
736 --- 1800,1806 ----
737 ***************
738 *** 1877,1883 ****
739 char_u *swapname;
740
741 swapname = modname(fname_res,
742 ! #if defined(VMS) || defined(RISCOS)
743 (char_u *)"_swp", FALSE
744 #else
745 (char_u *)".swp", TRUE
746 --- 1869,1875 ----
747 char_u *swapname;
748
749 swapname = modname(fname_res,
750 ! #if defined(VMS)
751 (char_u *)"_swp", FALSE
752 #else
753 (char_u *)".swp", TRUE
754 ***************
755 *** 2176,2186 ****
756 #ifdef VMS
757 names[num_names] = concat_fnames(path, (char_u *)"_sw%", FALSE);
758 #else
759 - # ifdef RISCOS
760 - names[num_names] = concat_fnames(path, (char_u *)"_sw#", FALSE);
761 - # else
762 names[num_names] = concat_fnames(path, (char_u *)".sw?", FALSE);
763 - # endif
764 #endif
765 if (names[num_names] == NULL)
766 goto end;
767 --- 2168,2174 ----
768 ***************
769 *** 2207,2217 ****
770 #ifdef VMS
771 names[num_names] = modname(path, (char_u *)"_sw%", FALSE);
772 #else
773 - # ifdef RISCOS
774 - names[num_names] = modname(path, (char_u *)"_sw#", FALSE);
775 - # else
776 names[num_names] = modname(path, (char_u *)".sw?", FALSE);
777 - # endif
778 #endif
779 if (names[num_names] == NULL)
780 goto end;
781 --- 2195,2201 ----
782 ***************
783 *** 3205,3211 ****
784 mf_free(mfp, hp); /* free the data block */
785 buf->b_ml.ml_locked = NULL;
786
787 ! for (stack_idx = buf->b_ml.ml_stack_top - 1; stack_idx >= 0; --stack_idx)
788 {
789 buf->b_ml.ml_stack_top = 0; /* stack is invalid when failing */
790 ip = &(buf->b_ml.ml_stack[stack_idx]);
791 --- 3189,3196 ----
792 mf_free(mfp, hp); /* free the data block */
793 buf->b_ml.ml_locked = NULL;
794
795 ! for (stack_idx = buf->b_ml.ml_stack_top - 1; stack_idx >= 0;
796 ! --stack_idx)
797 {
798 buf->b_ml.ml_stack_top = 0; /* stack is invalid when failing */
799 ip = &(buf->b_ml.ml_stack[stack_idx]);
800 ***************
801 *** 3956,3969 ****
802 #else
803 (buf->b_p_sn || buf->b_shortname),
804 #endif
805 - #ifdef RISCOS
806 - /* Avoid problems if fname has special chars, eg <Wimp$Scrap> */
807 - ffname,
808 - #else
809 fname_res,
810 - #endif
811 (char_u *)
812 ! #if defined(VMS) || defined(RISCOS)
813 "_swp",
814 #else
815 ".swp",
816 --- 3941,3949 ----
817 #else
818 (buf->b_p_sn || buf->b_shortname),
819 #endif
820 fname_res,
821 (char_u *)
822 ! #if defined(VMS)
823 "_swp",
824 #else
825 ".swp",
826 ***************
827 *** 4427,4440 ****
828 }
829 close(fd);
830 }
831 - #ifdef RISCOS
832 - else
833 - /* Can't open swap file, though it does exist.
834 - * Assume that the user is editing two files with
835 - * the same name in different directories. No error.
836 - */
837 - differ = TRUE;
838 - #endif
839
840 /* give the ATTENTION message when there is an old swap file
841 * for the current file, and the buffer was not recovered. */
842 --- 4407,4412 ----
843 *** ../vim-7.3.186/src/misc1.c 2011-05-10 14:44:07.000000000 +0200
844 --- src/misc1.c 2011-05-10 16:29:29.000000000 +0200
845 ***************
846 *** 4589,4613 ****
847 vim_ispathsep(c)
848 int c;
849 {
850 ! #ifdef RISCOS
851 ! return (c == '.' || c == ':');
852 ! #else
853 ! # ifdef UNIX
854 return (c == '/'); /* UNIX has ':' inside file names */
855 ! # else
856 ! # ifdef BACKSLASH_IN_FILENAME
857 return (c == ':' || c == '/' || c == '\\');
858 ! # else
859 ! # ifdef VMS
860 /* server"user passwd"::device:[full.path.name]fname.extension;version" */
861 return (c == ':' || c == '[' || c == ']' || c == '/'
862 || c == '<' || c == '>' || c == '"' );
863 ! # else /* Amiga */
864 return (c == ':' || c == '/');
865 ! # endif /* VMS */
866 ! # endif
867 # endif
868 ! #endif /* RISC OS */
869 }
870
871 #if defined(FEAT_SEARCHPATH) || defined(PROTO)
872 --- 4589,4609 ----
873 vim_ispathsep(c)
874 int c;
875 {
876 ! #ifdef UNIX
877 return (c == '/'); /* UNIX has ':' inside file names */
878 ! #else
879 ! # ifdef BACKSLASH_IN_FILENAME
880 return (c == ':' || c == '/' || c == '\\');
881 ! # else
882 ! # ifdef VMS
883 /* server"user passwd"::device:[full.path.name]fname.extension;version" */
884 return (c == ':' || c == '[' || c == ']' || c == '/'
885 || c == '<' || c == '>' || c == '"' );
886 ! # else
887 return (c == ':' || c == '/');
888 ! # endif /* VMS */
889 # endif
890 ! #endif
891 }
892
893 #if defined(FEAT_SEARCHPATH) || defined(PROTO)
894 *** ../vim-7.3.186/src/proto.h 2010-08-15 21:57:29.000000000 +0200
895 --- src/proto.h 2011-05-10 16:29:45.000000000 +0200
896 ***************
897 *** 62,70 ****
898 # ifdef __BEOS__
899 # include "os_beos.pro"
900 # endif
901 - # ifdef RISCOS
902 - # include "os_riscos.pro"
903 - # endif
904 # ifdef __QNX__
905 # include "os_qnx.pro"
906 # endif
907 --- 62,67 ----
908 ***************
909 *** 245,253 ****
910 # ifdef FEAT_GUI_X11
911 # include "gui_x11.pro"
912 # endif
913 - # ifdef RISCOS
914 - # include "gui_riscos.pro"
915 - # endif
916 # ifdef FEAT_GUI_PHOTON
917 # include "gui_photon.pro"
918 # endif
919 --- 242,247 ----
920 *** ../vim-7.3.186/src/quickfix.c 2011-05-05 17:14:07.000000000 +0200
921 --- src/quickfix.c 2011-05-10 16:30:18.000000000 +0200
922 ***************
923 *** 1182,1202 ****
924 if (fname == NULL || *fname == NUL) /* no file name */
925 return 0;
926 {
927 - #ifdef RISCOS
928 - /* Name is reported as `main.c', but file is `c.main' */
929 - return ro_buflist_add(fname);
930 - #else
931 char_u *ptr;
932 int fnum;
933
934 ! # ifdef VMS
935 vms_remove_version(fname);
936 ! # endif
937 ! # ifdef BACKSLASH_IN_FILENAME
938 if (directory != NULL)
939 slash_adjust(directory);
940 slash_adjust(fname);
941 ! # endif
942 if (directory != NULL && !vim_isAbsName(fname)
943 && (ptr = concat_fnames(directory, fname, TRUE)) != NULL)
944 {
945 --- 1182,1198 ----
946 if (fname == NULL || *fname == NUL) /* no file name */
947 return 0;
948 {
949 char_u *ptr;
950 int fnum;
951
952 ! #ifdef VMS
953 vms_remove_version(fname);
954 ! #endif
955 ! #ifdef BACKSLASH_IN_FILENAME
956 if (directory != NULL)
957 slash_adjust(directory);
958 slash_adjust(fname);
959 ! #endif
960 if (directory != NULL && !vim_isAbsName(fname)
961 && (ptr = concat_fnames(directory, fname, TRUE)) != NULL)
962 {
963 ***************
964 *** 1221,1227 ****
965 return fnum;
966 }
967 return buflist_add(fname, 0);
968 - #endif
969 }
970 }
971
972 --- 1217,1222 ----
973 *** ../vim-7.3.186/src/search.c 2011-02-25 18:38:29.000000000 +0100
974 --- src/search.c 2011-05-10 16:30:38.000000000 +0200
975 ***************
976 *** 4581,4589 ****
977 char_u *already = NULL;
978 char_u *startp = NULL;
979 char_u *inc_opt = NULL;
980 - #ifdef RISCOS
981 - int previous_munging = __riscosify_control;
982 - #endif
983 #if defined(FEAT_WINDOWS) && defined(FEAT_QUICKFIX)
984 win_T *curwin_save = NULL;
985 #endif
986 --- 4581,4586 ----
987 ***************
988 *** 4596,4606 ****
989 if (file_line == NULL)
990 return;
991
992 - #ifdef RISCOS
993 - /* UnixLib knows best how to munge c file names - turn munging back on. */
994 - int __riscosify_control = 0;
995 - #endif
996 -
997 if (type != CHECK_PATH && type != FIND_DEFINE
998 #ifdef FEAT_INS_EXPAND
999 /* when CONT_SOL is set compare "ptr" with the beginning of the line
1000 --- 4593,4598 ----
1001 ***************
1002 *** 5228,5238 ****
1003 vim_free(regmatch.regprog);
1004 vim_free(incl_regmatch.regprog);
1005 vim_free(def_regmatch.regprog);
1006 -
1007 - #ifdef RISCOS
1008 - /* Restore previous file munging state. */
1009 - __riscosify_control = previous_munging;
1010 - #endif
1011 }
1012
1013 static void
1014 --- 5220,5225 ----
1015 *** ../vim-7.3.186/src/structs.h 2011-03-22 18:10:34.000000000 +0100
1016 --- src/structs.h 2011-05-10 16:30:49.000000000 +0200
1017 ***************
1018 *** 2366,2376 ****
1019 MenuHandle menu_handle;
1020 MenuHandle submenu_handle;
1021 #endif
1022 - #ifdef RISCOS
1023 - int *id; /* Not used, but gui.c needs it */
1024 - int greyed_out; /* Flag */
1025 - int hidden;
1026 - #endif
1027 #ifdef FEAT_GUI_PHOTON
1028 PtWidget_t *id;
1029 PtWidget_t *submenu_id;
1030 --- 2366,2371 ----
1031 *** ../vim-7.3.186/src/term.c 2010-12-30 14:47:32.000000000 +0100
1032 --- src/term.c 2011-05-10 16:31:41.000000000 +0200
1033 ***************
1034 *** 52,58 ****
1035
1036 /*
1037 * Here are the builtin termcap entries. They are not stored as complete
1038 ! * Tcarr structures, as such a structure is too big.
1039 *
1040 * The entries are compact, therefore they normally are included even when
1041 * HAVE_TGETENT is defined. When HAVE_TGETENT is defined, the builtin entries
1042 --- 52,58 ----
1043
1044 /*
1045 * Here are the builtin termcap entries. They are not stored as complete
1046 ! * structures with all entries, as such a structure is too big.
1047 *
1048 * The entries are compact, therefore they normally are included even when
1049 * HAVE_TGETENT is defined. When HAVE_TGETENT is defined, the builtin entries
1050 ***************
1051 *** 199,269 ****
1052 #endif
1053
1054 #ifndef NO_BUILTIN_TCAPS
1055 - # if defined(RISCOS) || defined(ALL_BUILTIN_TCAPS)
1056 - /*
1057 - * Default for the Acorn.
1058 - */
1059 - {(int)KS_NAME, "riscos"},
1060 - {(int)KS_CL, "\014"}, /* Cls and Home Cursor */
1061 - {(int)KS_CM, "\001%d\001%d\002"}, /* Position cursor */
1062 -
1063 - {(int)KS_CCO, "16"}, /* Allow 16 colors */
1064 -
1065 - {(int)KS_CAF, "\001%d\021"}, /* Set foreground colour */
1066 - {(int)KS_CAB, "\001%d\022"}, /* Set background colour */
1067 -
1068 -
1069 - {(int)KS_ME, "\004"}, /* Normal mode */
1070 - {(int)KS_MR, "\005"}, /* Reverse */
1071 -
1072 - {(int)KS_VI, "\016"}, /* Cursor invisible */
1073 - {(int)KS_VE, "\017"}, /* Cursor visible */
1074 - {(int)KS_VS, "\020"}, /* Cursor very visible */
1075 -
1076 - {(int)KS_CS, "\001%d\001%d\003"}, /* Set scroll region */
1077 - {(int)KS_SR, "\023"}, /* Scroll text down */
1078 - {K_UP, "\217"},
1079 - {K_DOWN, "\216"},
1080 - {K_LEFT, "\214"},
1081 - {K_RIGHT, "\215"},
1082 - {K_S_UP, "\237"},
1083 - {K_S_DOWN, "\236"},
1084 - {K_S_LEFT, "\234"},
1085 - {K_S_RIGHT, "\235"},
1086 -
1087 - {K_F1, "\201"},
1088 - {K_F2, "\202"},
1089 - {K_F3, "\203"},
1090 - {K_F4, "\204"},
1091 - {K_F5, "\205"},
1092 - {K_F6, "\206"},
1093 - {K_F7, "\207"},
1094 - {K_F8, "\210"},
1095 - {K_F9, "\211"},
1096 - {K_F10, "\312"},
1097 - {K_F11, "\313"},
1098 - {K_F12, "\314"},
1099 - {K_S_F1, "\221"},
1100 - {K_S_F2, "\222"},
1101 - {K_S_F3, "\223"},
1102 - {K_S_F4, "\224"},
1103 - {K_S_F5, "\225"},
1104 - {K_S_F6, "\226"},
1105 - {K_S_F7, "\227"},
1106 - {K_S_F8, "\230"},
1107 - {K_S_F9, "\231"},
1108 - {K_S_F10, "\332"},
1109 - {K_S_F11, "\333"},
1110 - {K_S_F12, "\334"},
1111 - {K_BS, "\010"},
1112 - {K_INS, "\315"},
1113 - {K_DEL, "\177"},
1114 - {K_HOME, "\036"},
1115 - {K_END, "\213"},
1116 - {K_PAGEUP, "\237"},
1117 - {K_PAGEDOWN, "\236"},
1118 - # endif /* Acorn terminal */
1119 -
1120
1121 # if defined(AMIGA) || defined(ALL_BUILTIN_TCAPS)
1122 /*
1123 --- 199,204 ----
1124 ***************
1125 *** 1399,1408 ****
1126 /*
1127 * DEFAULT_TERM is used, when no terminal is specified with -T option or $TERM.
1128 */
1129 - #ifdef RISCOS
1130 - # define DEFAULT_TERM (char_u *)"riscos"
1131 - #endif
1132 -
1133 #ifdef AMIGA
1134 # define DEFAULT_TERM (char_u *)"amiga"
1135 #endif
1136 --- 1334,1339 ----
1137 *** ../vim-7.3.186/src/termlib.c 2010-08-15 21:57:30.000000000 +0200
1138 --- src/termlib.c 2011-05-10 16:31:58.000000000 +0200
1139 ***************
1140 *** 13,19 ****
1141 #include "vim.h"
1142 #include "termlib.pro"
1143
1144 ! #if !defined(AMIGA) && !defined(VMS) && !defined(MACOS) && !defined(RISCOS)
1145 # include <sgtty.h>
1146 #endif
1147
1148 --- 13,19 ----
1149 #include "vim.h"
1150 #include "termlib.pro"
1151
1152 ! #if !defined(AMIGA) && !defined(VMS) && !defined(MACOS)
1153 # include <sgtty.h>
1154 #endif
1155
1156 *** ../vim-7.3.186/src/version.c 2011-05-10 16:12:40.000000000 +0200
1157 --- src/version.c 2011-05-10 16:37:20.000000000 +0200
1158 ***************
1159 *** 1205,1213 ****
1160 # endif
1161 #endif
1162
1163 - #ifdef RISCOS
1164 - MSG_PUTS(_("\nRISC OS version"));
1165 - #endif
1166 #ifdef VMS
1167 MSG_PUTS(_("\nOpenVMS version"));
1168 # ifdef HAVE_PATHDEF
1169 --- 1207,1212 ----
1170 *** ../vim-7.3.186/src/vim.h 2011-05-05 16:41:19.000000000 +0200
1171 --- src/vim.h 2011-05-10 16:32:40.000000000 +0200
1172 ***************
1173 *** 184,192 ****
1174 # define SIZEOF_INT 2
1175 # endif
1176 #endif
1177 - #ifdef RISCOS
1178 - # define SIZEOF_INT 4
1179 - #endif
1180
1181
1182 #include "feature.h" /* #defines for optionals and features */
1183 --- 184,189 ----
1184 ***************
1185 *** 340,349 ****
1186 # include "os_mac.h"
1187 #endif
1188
1189 - #ifdef RISCOS
1190 - # include "os_riscos.h"
1191 - #endif
1192 -
1193 #ifdef __QNX__
1194 # include "os_qnx.h"
1195 #endif
1196 --- 337,342 ----
1197 *** ../vim-7.3.186/src/gui_riscos.h 2010-08-15 21:57:28.000000000 +0200
1198 --- src/gui_riscos.h 1970-01-01 01:00:00.000000000 +0100
1199 ***************
1200 *** 1,32 ****
1201 - /* vi:set ts=8 sts=4 sw=4:
1202 - *
1203 - * VIM - Vi IMproved by Bram Moolenaar
1204 - *
1205 - * Do ":help uganda" in Vim to read copying and usage conditions.
1206 - * Do ":help credits" in Vim to see a list of people who contributed.
1207 - */
1208 -
1209 - #define FEAT_BROWSE
1210 -
1211 - #define TASK 0x4b534154
1212 -
1213 - /* Nested wimp flags: */
1214 - #define CHILD_FIX_TO_WORKAREA 0
1215 - #define CHILD_FIX_TO_LEFT 1
1216 - #define CHILD_FIX_TO_BOTTOM 1
1217 - #define CHILD_FIX_TO_RIGHT 2
1218 - #define CHILD_FIX_TO_TOP 2
1219 -
1220 - #define CHILD_SELF_SCROLL 0
1221 - #define CHILD_PARENT_SCROLL 1
1222 -
1223 - #define CHILD_LEFT 16
1224 - #define CHILD_BOTTOM 18
1225 - #define CHILD_RIGHT 20
1226 - #define CHILD_TOP 22
1227 - #define CHILD_SCROLL_X 24
1228 - #define CHILD_SCROLL_Y 26
1229 -
1230 - int wimp_poll(int mask, int *block);
1231 - int wimp_poll_idle(int mask, int *block, int end_time);
1232 - void ro_open_main(int *block);
1233 --- 0 ----
1234 *** ../vim-7.3.186/src/os_riscos.h 2010-08-15 21:57:30.000000000 +0200
1235 --- src/os_riscos.h 1970-01-01 01:00:00.000000000 +0100
1236 ***************
1237 *** 1,166 ****
1238 - /* vi:set ts=8 sts=4 sw=4:
1239 - *
1240 - * VIM - Vi IMproved by Bram Moolenaar
1241 - *
1242 - * Do ":help uganda" in Vim to read copying and usage conditions.
1243 - * Do ":help credits" in Vim to see a list of people who contributed.
1244 - */
1245 -
1246 - #include <sys/types.h>
1247 - #include <sys/stat.h>
1248 - #include <sys/ioctl.h>
1249 - #include <termios.h>
1250 - #include <stdlib.h>
1251 - #include <unixlib/local.h>
1252 - #include <errno.h>
1253 - #include <fcntl.h>
1254 -
1255 - #define CASE_INSENSITIVE_FILENAME
1256 - #define FEAT_MODIFY_FNAME
1257 - #define FEAT_OSFILETYPE
1258 - #define DFLT_OFT "Text"
1259 - #define USE_TERM_CONSOLE
1260 - #define HAVE_AVAIL_MEM
1261 -
1262 - /* Longer filenames now accessible to all */
1263 - #ifndef BASENAMELEN
1264 - # define BASENAMELEN 64 /* Same length as unzip */
1265 - #endif
1266 -
1267 - #ifndef TEMNAME
1268 - # define TEMPNAME "<Wimp$ScrapDir>.v?XXXXXX"
1269 - # define TEMPNAMELEN 25
1270 - #endif
1271 -
1272 - #ifndef DFLT_HELPFILE
1273 - # define DFLT_HELPFILE "Vim:doc.help"
1274 - #endif
1275 -
1276 - #ifndef DFLT_BDIR
1277 - # define DFLT_BDIR ".,<Wimp$ScrapDir>." /* default for 'backupdir' */
1278 - #endif
1279 -
1280 - /* Paths to try putting swap file in. */
1281 - #ifndef DFLT_DIR
1282 - # define DFLT_DIR "<Wimp$ScrapDir>.,." /* default for 'directory' */
1283 - #endif
1284 -
1285 - #ifndef DFLT_VDIR
1286 - # define DFLT_VDIR "Choices:Vim.view" /* default for 'viewdir' */
1287 - #endif
1288 -
1289 - #ifndef TERMCAPFILE
1290 - # define TERMCAPFILE "Vim:TermCap"
1291 - #endif
1292 - #define HAVE_TGETENT
1293 -
1294 - #ifndef SYNTAX_FNAME
1295 - # define SYNTAX_FNAME "Vim:Syntax.%s"
1296 - #endif
1297 -
1298 - #ifndef EVIM_FILE
1299 - # define EVIM_FILE "Vim:Evim"
1300 - #endif
1301 -
1302 - #define FEAT_VIMINFO
1303 -
1304 - #ifndef VIMINFO_FILE
1305 - # define VIMINFO_FILE "<Choices$Write>.Vim.VimInfo"
1306 - #endif
1307 - #ifndef VIMINFO_FILE2
1308 - # define VIMINFO_FILE2 "Choices:Vim.VimInfo"
1309 - #endif
1310 -
1311 - #ifndef VIMRC_FILE
1312 - # define VIMRC_FILE "/vimrc"
1313 - #endif
1314 - #ifndef EXRC_FILE
1315 - # define EXRC_FILE "/exrc"
1316 - #endif
1317 - #ifndef GVIMRC_FILE
1318 - # define GVIMRC_FILE "/gvimrc"
1319 - #endif
1320 - #ifndef USR_VIMRC_FILE
1321 - # define USR_VIMRC_FILE "Vim:Evim"
1322 - #endif
1323 - #ifndef SESSION_FILE
1324 - # define SESSION_FILE "/Session.vim"
1325 - #endif
1326 - #ifndef USR_VIMRC_FILE
1327 - # define USR_VIMRC_FILE "Choices:Vim.VimRC"
1328 - #endif
1329 - #ifndef USR_GVIMRC_FILE
1330 - # define USR_GVIMRC_FILE "Choices:Vim.GVimRC"
1331 - #endif
1332 - #ifndef USR_EXRC_FILE
1333 - # define USR_EXRC_FILE "Choices:Vim.ExRC"
1334 - #endif
1335 - #ifndef SYS_VIMRC_FILE
1336 - # define SYS_VIMRC_FILE "Vim:VimRC"
1337 - #endif
1338 - #ifndef SYS_GVIMRC_FILE
1339 - # define SYS_GVIMRC_FILE "Vim:GVimRC"
1340 - #endif
1341 - #ifndef SYS_MENU_FILE
1342 - # define SYS_MENU_FILE "Vim:Menu"
1343 - #endif
1344 - #ifndef SYS_OPTWIN_FILE
1345 - # define SYS_OPTWIN_FILE "Vim:Optwin"
1346 - #endif
1347 - #ifndef FILETYPE_FILE
1348 - # define FILETYPE_FILE "Vim:Filetype"
1349 - #endif
1350 - #ifndef FTPLUGIN_FILE
1351 - # define FTPLUGIN_FILE "Vim:Ftplugin/vim"
1352 - #endif
1353 - #ifndef INDENT_FILE
1354 - # define INDENT_FILE "Vim:Indent/vim"
1355 - #endif
1356 - #ifndef FTOFF_FILE
1357 - # define FTOFF_FILE "Vim:Ftoff"
1358 - #endif
1359 - #ifndef FTPLUGOF_FILE
1360 - # define FTPLUGOF_FILE "Vim:Ftplugof"
1361 - #endif
1362 - #ifndef INDOFF_FILE
1363 - # define INDOFF_FILE "Vim:Indoff"
1364 - #endif
1365 -
1366 - #define DFLT_ERRORFILE "errors/vim"
1367 - #define DFLT_RUNTIMEPATH "Choices:Vim,Vim:,Choices:Vim.after"
1368 -
1369 - /*
1370 - * RISC PCs have plenty of memory, use large buffers
1371 - */
1372 - #define CMDBUFFSIZE 1024 /* size of the command processing buffer */
1373 - #define MAXPATHL 256 /* paths are always quite short though */
1374 -
1375 - #ifndef DFLT_MAXMEM
1376 - # define DFLT_MAXMEM (5*1024) /* use up to 5 Mbyte for a buffer */
1377 - #endif
1378 -
1379 - #ifndef DFLT_MAXMEMTOT
1380 - # define DFLT_MAXMEMTOT (10*1024) /* use up to 10 Mbyte for Vim */
1381 - #endif
1382 -
1383 - #ifdef HAVE_SIGSET
1384 - # define signal sigset
1385 - #endif
1386 -
1387 - #define n_flag (1<<31)
1388 - #define z_flag (1<<30)
1389 - #define c_flag (1<<29)
1390 - #define v_flag (1<<28)
1391 -
1392 - /* These take r0-r7 as inputs, returns r0-r7 in global variables. */
1393 - void swi(int swinum, ...); /* Handles errors itself */
1394 - int xswi(int swinum, ...); /* Returns errors using v flag */
1395 - extern int r0, r1, r2, r3, r4, r5, r6, r7; /* For return values */
1396 -
1397 - #include <kernel.h>
1398 - #include <swis.h>
1399 -
1400 - #define mch_memmove(to, from, len) memmove((char *)(to), (char *)(from), len)
1401 - #define mch_rename(src, dst) rename(src, dst)
1402 - #define mch_getenv(x) (char_u *)getenv((char *)x)
1403 - #define mch_setenv(name, val, x) setenv(name, val, x)
1404 --- 0 ----
1405 *** ../vim-7.3.186/src/gui_riscos.c 2011-05-10 15:52:10.000000000 +0200
1406 --- src/gui_riscos.c 1970-01-01 01:00:00.000000000 +0100
1407 ***************
1408 *** 1,3558 ****
1409 - /* vi:set ts=8 sts=4 sw=4:
1410 - *
1411 - * VIM - Vi IMproved by Bram Moolenaar
1412 - *
1413 - * Do ":help uganda" in Vim to read copying and usage conditions.
1414 - * Do ":help credits" in Vim to see a list of people who contributed.
1415 - * See README.txt for an overview of the Vim source code.
1416 - */
1417 -
1418 - #include "vim.h"
1419 - #include <string.h>
1420 -
1421 - /*
1422 - * gui_riscos.c
1423 - *
1424 - * Thomas Leonard <tal197@ecs.soton.ac.uk>
1425 - * Updated by Andy Wingate <andy@sparse.net>
1426 - */
1427 -
1428 - extern int time_of_last_poll;
1429 -
1430 - int task_handle = 0; /* Zero means we are not yet a Wimp task */
1431 - int child_handle = 0; /* Task handle of our child process (zero if none). */
1432 - int *wimp_menu = (int *) -1; /* Pointer to a Wimp menu structure (or -1) */
1433 - int save_window = -1; /* Save As window handle */
1434 -
1435 - int *redraw_block = NULL; /* NULL means not in a redraw loop. */
1436 - int ro_return_early = FALSE; /* Break out of gui_mch_wait_for_chars() */
1437 -
1438 - int leaf_ref = 0; /* Wimp message number - send via Wimp$Scrap */
1439 - char_u *leaf_name = NULL; /* Leaf name from DataSave */
1440 -
1441 - int default_columns = 120; /* These values are used if the --rows and --columns */
1442 - int default_rows = 32; /* options aren't used on startup. */
1443 -
1444 - #define DRAG_FALSE 0
1445 - #define DRAG_SELECTION 1
1446 - #define DRAG_RESIZE_WINDOW 2
1447 - int ro_dragging = DRAG_FALSE;
1448 - int drag_button;
1449 - int drag_modifiers;
1450 - int drag_x_offset;
1451 - int drag_y_offset;
1452 -
1453 - int nested_wimp = FALSE; /* Bool - can we use the new wimp? */
1454 -
1455 - int changed_mode = FALSE;
1456 - int x_eigen_factor;
1457 - int y_eigen_factor;
1458 -
1459 - /* If ro_current_font is non-zero then use the outline font with that handle,
1460 - * otherwise, if zap_redraw is TRUE then use ZapRedraw, otherwise use the
1461 - * system font.
1462 - *
1463 - * If zap_redraw is TRUE then zap_file[] contains valid Zap font file
1464 - * pointers (or NULLs).
1465 - */
1466 - int ro_current_font = 0; /* 0 is system font, or ZapRedraw */
1467 - int font_x_offset = 0; /* Where to position each char in its box */
1468 - int font_y_offset = 0;
1469 -
1470 - int zap_redraw = FALSE;
1471 - int double_height = FALSE; /* Plot each line twice? */
1472 -
1473 - #define grgb(r,g,b) ((b<<16) + (g<<8) + (r))
1474 - #define UNUSED_COLOUR (gui.back_pixel)
1475 -
1476 - #define RO_LOAD_CLIPBOARD -2 /* Internal handle for DataSave message. */
1477 -
1478 - /* Changes by John Kortink, 22-23 July 1998
1479 - *
1480 - * Stuff to make redraw a lot faster. Almost all of it is right here below,
1481 - * elsewhere changes are marked with 'JK230798'. Apart from a small change in
1482 - * 'gui.c' all changes are limited to this file, 'gui_riscos.c'. The change in
1483 - * 'gui.c' is to make Vim stop being 'smart' not redrawing characters that are
1484 - * 'already there' (i.e. from the previous line, by coincidence). This caused a
1485 - * lot more calls to the redraw code, which we want to avoid because a few nice
1486 - * big strings at a time is a lot faster than a truckload of small ones. ('Dear
1487 - * Bram ...').
1488 - */
1489 -
1490 - /* The ZapRedraw structure */
1491 -
1492 - static struct
1493 - {
1494 - int r_flags;
1495 - int r_minx;
1496 - int r_miny;
1497 - int r_maxx;
1498 - int r_maxy;
1499 - int r_screen;
1500 - int r_bpl;
1501 - int r_bpp;
1502 - int r_charw;
1503 - int r_charh;
1504 - char *r_caddr;
1505 - int r_cbpl;
1506 - int r_cbpc;
1507 - int r_linesp;
1508 - int r_data;
1509 - int r_scrollx;
1510 - int r_scrolly;
1511 - int *r_palette;
1512 - int r_for;
1513 - int r_bac;
1514 - char *r_workarea;
1515 - int r_magx;
1516 - int r_magy;
1517 - int r_xsize;
1518 - int r_ysize;
1519 - int r_mode;
1520 - }
1521 - zap_redraw_block;
1522 -
1523 - /* Other globals */
1524 -
1525 - static int zap_redraw_initialised = FALSE;
1526 - static int zap_redraw_update_colours;
1527 - static int zap_redraw_colours[2];
1528 - static int zap_redraw_palette[16];
1529 -
1530 - /* Holds the current Zap font file(s).
1531 - * The font is recreated from this block on a mode change.
1532 - * When using zap, element ZAP_NORMAL is always valid, but
1533 - * the others can be NULL.
1534 - */
1535 -
1536 - #define ZAP_NORMAL 0
1537 - #define ZAP_BOLD 1
1538 - #define ZAP_ITALIC 2
1539 - #define ZAP_BITALIC 3
1540 - #define ZAP_STYLES 4
1541 -
1542 - /* Zap font file format data */
1543 - static char *zap_file[ZAP_STYLES] = {NULL, NULL, NULL, NULL};
1544 -
1545 - /* r_caddr format for current mode */
1546 - static char *zap_caddr[ZAP_STYLES] = {NULL, NULL, NULL, NULL};
1547 -
1548 - static void ro_remove_menu(int *menu);
1549 -
1550 - /*
1551 - * Initialise all the ZapRedraw stuff.
1552 - * Call this when changing font and after each mode change.
1553 - * zap_redraw_bitmap must contain a valid Zap font file (possibly
1554 - * created from the system font).
1555 - *
1556 - * Return FAIL to revert to system font (if we can't use ZapRedraw).
1557 - */
1558 - int
1559 - ro_zap_redraw_initialise()
1560 - {
1561 - int bytes_per_bitmap_char;
1562 - int first, last;
1563 - int i;
1564 -
1565 - /* Can't have initialisers for struct members :-(, ok, this way then ... */
1566 - if (!zap_redraw_initialised)
1567 - {
1568 - zap_redraw_block.r_workarea = NULL;
1569 - zap_redraw_initialised = TRUE;
1570 - }
1571 -
1572 - /* We redraw in DSA mode */
1573 - zap_redraw_block.r_flags = 0x0;
1574 -
1575 - /* Let ZapRedraw get the screen address for us */
1576 - zap_redraw_block.r_screen = 0;
1577 -
1578 - /* Read the font width and height from the font file header.
1579 - * Assume that all styles are the same size.
1580 - * ZAP_NORMAL is always present.
1581 - */
1582 - zap_redraw_block.r_charw = ((int *) zap_file[ZAP_NORMAL])[2];
1583 - zap_redraw_block.r_charh = ((int *) zap_file[ZAP_NORMAL])[3];
1584 -
1585 - /* We have no linespacing */
1586 - zap_redraw_block.r_linesp = 0;
1587 -
1588 - /* Fix foreground = colour 1 */
1589 - zap_redraw_block.r_for = 1;
1590 -
1591 - /* Fix background = colour 0 */
1592 - zap_redraw_block.r_bac = 0;
1593 -
1594 - /* Colour mask buffer */
1595 - zap_redraw_block.r_palette = zap_redraw_palette;
1596 -
1597 - /* Allocate local workspace (for the few calls following here) */
1598 - if (zap_redraw_block.r_workarea != NULL)
1599 - free(zap_redraw_block.r_workarea);
1600 - zap_redraw_block.r_workarea = (char*) malloc(128);
1601 - if (!zap_redraw_block.r_workarea)
1602 - return FAIL; /* Out of memory */
1603 -
1604 - /* Fill in VDU variables */
1605 - if (xswi(ZapRedraw_ReadVduVars, 0, &zap_redraw_block) & v_flag)
1606 - return FAIL; /* Can't find ZapRedraw module - use VDU instead */
1607 -
1608 - /* Determine cbpl and cbpc */
1609 - swi(ZapRedraw_CachedCharSize, zap_redraw_block.r_bpp, 0,
1610 - zap_redraw_block.r_charw, zap_redraw_block.r_charh);
1611 - zap_redraw_block.r_cbpl = r2;
1612 - zap_redraw_block.r_cbpc = r3;
1613 -
1614 - /* Allocate general workspace (for the calls outside) */
1615 - if (zap_redraw_block.r_workarea != NULL)
1616 - free(zap_redraw_block.r_workarea);
1617 - zap_redraw_block.r_workarea = (char*) malloc(128 + zap_redraw_block.r_cbpl);
1618 - if (!zap_redraw_block.r_workarea)
1619 - return FAIL; /* Out of memory */
1620 -
1621 - /* Now convert the 1 bpp character data ready for the current mode */
1622 -
1623 - bytes_per_bitmap_char = (zap_redraw_block.r_charw * zap_redraw_block.r_charh + 7) / 8;
1624 -
1625 - /* Convert the fonts from 1bpp to a format suitable for the
1626 - * current mode.
1627 - */
1628 - for (i = 0; i < ZAP_STYLES; i++)
1629 - {
1630 - first = ((int *) zap_file[i])[4];
1631 - last = ((int *) zap_file[i])[5];
1632 -
1633 - if (last > 255)
1634 - last = 255; /* Don't convert cursors (overwrites memory!) */
1635 -
1636 - /* Allocate the font cache */
1637 - vim_free(zap_caddr[i]);
1638 - if (zap_file[i])
1639 - zap_caddr[i] = (char*) malloc(zap_redraw_block.r_cbpc * 256);
1640 - else
1641 - zap_caddr[i] = NULL; /* No file for this style */
1642 -
1643 - if (zap_caddr[i])
1644 - {
1645 - zap_redraw_block.r_caddr = zap_caddr[i];
1646 -
1647 - swi(ZapRedraw_ConvertBitmap, 0, &zap_redraw_block,
1648 - first, last, /* Range of characters to convert */
1649 - zap_file[i] + 0x20 /* Addr of first char provided by font */
1650 - - first * bytes_per_bitmap_char);
1651 - }
1652 - }
1653 -
1654 - if (!zap_caddr[ZAP_NORMAL])
1655 - {
1656 - zap_redraw = FALSE; /* Out of memory */
1657 - return FAIL;
1658 - }
1659 -
1660 - /* Next time we need them, we have to update the colour masks */
1661 - zap_redraw_update_colours = TRUE;
1662 -
1663 - return OK;
1664 - }
1665 -
1666 - /*
1667 - * Redraw a string at OS coordinates <x,y> (top-left, x inclusive, y exclusive).
1668 - * Graphics clip window is window[0..3] as in R1+28..40 of Wimp_RedrawWindow.
1669 - * Returns (possibly modified) flags.
1670 - */
1671 - int
1672 - ro_zap_redraw_draw_string(x, y, string, length, flags, clip)
1673 - int x;
1674 - int y;
1675 - char *string;
1676 - int length;
1677 - int flags; /* DRAW_TRANSP, DRAW_BOLD, DRAW_UNDERL, DRAW_ITALIC */
1678 - int *clip;
1679 - {
1680 - char redraw_data[1024];
1681 - int clip_minx;
1682 - int clip_miny;
1683 - int clip_maxx;
1684 - int clip_maxy;
1685 - int os_xshift = zap_redraw_block.r_magx;
1686 - int os_yshift = zap_redraw_block.r_magy;
1687 -
1688 - if (flags & DRAW_TRANSP)
1689 - return flags; /* We don't do transparent plotting yet. */
1690 -
1691 - if (flags & DRAW_BOLD)
1692 - {
1693 - if (flags & DRAW_ITALIC && zap_caddr[ZAP_BITALIC])
1694 - zap_redraw_block.r_caddr = zap_caddr[ZAP_BITALIC];
1695 - else
1696 - zap_redraw_block.r_caddr = zap_caddr[ZAP_BOLD];
1697 - }
1698 - else
1699 - {
1700 - if (flags & DRAW_ITALIC)
1701 - zap_redraw_block.r_caddr = zap_caddr[ZAP_ITALIC];
1702 - else
1703 - zap_redraw_block.r_caddr = zap_caddr[ZAP_NORMAL];
1704 - }
1705 - if (!zap_redraw_block.r_caddr)
1706 - {
1707 - zap_redraw_block.r_caddr = zap_caddr[ZAP_NORMAL];
1708 - flags |= DRAW_UNDERL; /* Style missing - we can always underline */
1709 - }
1710 -
1711 - /* Set the vertical scaling flag */
1712 - if (double_height)
1713 - zap_redraw_block.r_flags = 1 << 1;
1714 - else
1715 - zap_redraw_block.r_flags = 0;
1716 -
1717 - /* Update the colour masks (if needed) */
1718 - if (zap_redraw_update_colours)
1719 - {
1720 - swi(ZapRedraw_CreatePalette, 2,
1721 - &zap_redraw_block,
1722 - zap_redraw_colours,
1723 - zap_redraw_block.r_palette, 2);
1724 - zap_redraw_update_colours = FALSE;
1725 - }
1726 -
1727 - /* Target rectangle in ZapRedraw rectangle coordinates (pixels, Y-min/max reversed !!!) */
1728 - zap_redraw_block.r_minx = x >> os_xshift; /* inclusive */
1729 - zap_redraw_block.r_miny = zap_redraw_block.r_ysize - (y >> os_yshift); /* inclusive */
1730 - zap_redraw_block.r_maxx = (x + length * gui.char_width) >> os_xshift; /* exclusive */
1731 - zap_redraw_block.r_maxy = zap_redraw_block.r_ysize - ((y - gui.char_height) >> os_yshift);
1732 - /* exclusive */
1733 -
1734 - /* Clip rectangle in ZapRedraw rectangle coordinates (pixels, Y-min/max reversed !!!) */
1735 - clip_minx = clip[0] >> os_xshift; /* inclusive */
1736 - clip_miny = zap_redraw_block.r_ysize - (clip[3] >> os_yshift); /* inclusive */
1737 - clip_maxx = clip[2] >> os_xshift; /* exclusive */
1738 - clip_maxy = zap_redraw_block.r_ysize - (clip[1] >> os_yshift); /* exclusive */
1739 -
1740 - /* Clip target rectangle against the current graphics window */
1741 - if (zap_redraw_block.r_minx < clip_minx)
1742 - {
1743 - zap_redraw_block.r_scrollx = clip_minx - zap_redraw_block.r_minx;
1744 - zap_redraw_block.r_minx = clip_minx;
1745 - }
1746 - else
1747 - zap_redraw_block.r_scrollx = 0;
1748 - if (zap_redraw_block.r_miny < clip_miny)
1749 - {
1750 - zap_redraw_block.r_scrolly = clip_miny - zap_redraw_block.r_miny;
1751 - zap_redraw_block.r_miny = clip_miny;
1752 - }
1753 - else
1754 - zap_redraw_block.r_scrolly = 0;
1755 - if (zap_redraw_block.r_maxx > clip_maxx)
1756 - zap_redraw_block.r_maxx = clip_maxx;
1757 - if (zap_redraw_block.r_maxy > clip_maxy)
1758 - zap_redraw_block.r_maxy = clip_maxy;
1759 -
1760 - /* Fill in the character data structure */
1761 - if (length > (sizeof(redraw_data) - 2 * 4 - 2))
1762 - length = sizeof(redraw_data) - 2 * 4 - 2;
1763 - ((int*) redraw_data)[0] = 2 * 4;
1764 - ((int*) redraw_data)[1] = 0;
1765 - strncpy(redraw_data + 2 * 4, string, length);
1766 - redraw_data[2 * 4 + length + 0] = '\0';
1767 - redraw_data[2 * 4 + length + 1] = '\x2';
1768 - zap_redraw_block.r_data = (int) redraw_data;
1769 -
1770 - /* Perform the draw */
1771 - swi(ZapRedraw_RedrawArea, 0, &zap_redraw_block);
1772 -
1773 - return flags;
1774 - }
1775 -
1776 - /*
1777 - * Okay that was it from me, back to Thomas ...
1778 - */
1779 -
1780 - /*
1781 - * Parse the GUI related command-line arguments. Any arguments used are
1782 - * deleted from argv, and *argc is decremented accordingly. This is called
1783 - * when vim is started, whether or not the GUI has been started.
1784 - */
1785 - void
1786 - gui_mch_prepare(int *argc, char **argv)
1787 - {
1788 - int arg = 1;
1789 -
1790 - while (arg < *argc - 1)
1791 - {
1792 - if (strcmp(argv[arg], "--rows") == 0 || strcmp(argv[arg], "--columns") == 0)
1793 - {
1794 - int value;
1795 -
1796 - value = atoi(argv[arg + 1]);
1797 -
1798 - if (argv[arg][2] == 'r')
1799 - default_rows = value;
1800 - else
1801 - default_columns = value;
1802 -
1803 - /* Delete argument from argv[]. (hope this is read/write!) */
1804 -
1805 - *argc -= 2;
1806 - if (*argc > arg)
1807 - mch_memmove(&argv[arg], &argv[arg + 2], (*argc - arg)
1808 - * sizeof(char *));
1809 - }
1810 - else
1811 - arg++;
1812 - }
1813 - }
1814 -
1815 - /* Fatal error on initialisation - report it and die. */
1816 - void
1817 - ro_die(error)
1818 - char_u *error; /* RISC OS error block */
1819 - {
1820 - swi(Wimp_ReportError, error, 5, "GVim");
1821 - exit(EXIT_FAILURE);
1822 - }
1823 -
1824 - /* Find the sizes of the window tools:
1825 - *
1826 - * Create a test window.
1827 - * Find inner and outer sizes.
1828 - * Find the difference.
1829 - * Delete window.
1830 - *
1831 - * While we're here, find the eigen values too.
1832 - */
1833 - void
1834 - ro_measure_tools()
1835 - {
1836 - int block[10];
1837 - int vdu[] = { 4, 5, -1};
1838 - int test_window[] =
1839 - {
1840 - -100, -100, /* Visible area : min X,Y */
1841 - -50, -50, /* max X,Y */
1842 - 0, 0, /* Scroll offsets */
1843 - -1, /* Window in front */
1844 - 0xd0800150, /* Window flags */
1845 - 0xff070207, /* Colours */
1846 - 0x000c0103, /* More colours */
1847 - 0, -0x4000, /* Workarea extent */
1848 - 0x4000, 0, /* max X,Y */
1849 - 0x00000000, /* No title */
1850 - 0 << 12, /* No workarea button type */
1851 - 1, /* Wimp sprite area */
1852 - 0x00010001, /* Minimum width, height */
1853 - 0, 0, 0, /* Title data (none) */
1854 - 0 /* No icons */
1855 - };
1856 - int inner_max_x, inner_min_y;
1857 -
1858 - swi(Wimp_CreateWindow, 0, test_window);
1859 -
1860 - block[0] = r0;
1861 - /* Open the window (and read state).
1862 - * GetWindowOutline needs it too if the wimp isn't nested.
1863 - */
1864 - swi(Wimp_OpenWindow, 0, block);
1865 - inner_max_x = block[3];
1866 - inner_min_y = block[2];
1867 -
1868 - swi(Wimp_GetWindowOutline, 0, block);
1869 -
1870 - gui.scrollbar_width = block[3] - inner_max_x;
1871 - gui.scrollbar_height = inner_min_y - block[2];
1872 -
1873 - swi(Wimp_DeleteWindow, 0, block);
1874 -
1875 - /* Read the size of one pixel. */
1876 - swi(OS_ReadVduVariables, vdu, vdu);
1877 - x_eigen_factor = vdu[0];
1878 - y_eigen_factor = vdu[1];
1879 - }
1880 -
1881 - /* Load a template from the current templates file.
1882 - * Create the window and return its handle.
1883 - */
1884 - int
1885 - ro_load_template(str_name, title, title_size)
1886 - char_u *str_name; /* Identifier of window in file (max 12 chars) */
1887 - char_u **title; /* If not NULL then return pointer to title here */
1888 - int *title_size; /* If not NULL then return the title length here */
1889 - {
1890 - int *window;
1891 - char *data;
1892 - int name[4];
1893 -
1894 - strcpy( (char *) name, str_name);
1895 -
1896 - /* Find how big we must make the buffers */
1897 -
1898 - if (xswi(Wimp_LoadTemplate, 0, 0, 0, 0, -1, name, 0) & v_flag)
1899 - ro_die( (char *) r0);
1900 -
1901 - window = malloc(r1); /* Don't print text messages from alloc() */
1902 - data = malloc(r2);
1903 - if (window == NULL || data == NULL)
1904 - ro_die("\0\0\0\0Out of memory - Can't load templates");
1905 -
1906 - /* Load the template into the buffers */
1907 -
1908 - swi(Wimp_LoadTemplate, 0,
1909 - window, /* Temp block */
1910 - data, /* Icon data */
1911 - data + r2 + 1, /* End of icon data */
1912 - -1, /* No fonts */
1913 - name, 0); /* First match */
1914 - if (r6 == 0)
1915 - ro_die("\0\0\0\0Can't find window in Templates file");
1916 -
1917 - /* Create the window */
1918 -
1919 - if (xswi(Wimp_CreateWindow, 0, window) & v_flag)
1920 - ro_die( (char *) r0);
1921 -
1922 - if (title)
1923 - *title = (char_u *) window[18];
1924 - if (title_size)
1925 - *title_size = window[20];
1926 -
1927 - free(window); /* Free temp block */
1928 - return r0; /* Return the window handle */
1929 - }
1930 -
1931 - /*
1932 - * Check if the GUI can be started. Called before gvimrc is sourced.
1933 - * Return OK or FAIL.
1934 - */
1935 - int
1936 - gui_mch_init_check()
1937 - {
1938 - return OK; /* TODO: GUI can always be started? */
1939 - }
1940 -
1941 - /*
1942 - * Initialise the RISC OS GUI.
1943 - * Create all the windows.
1944 - * Returns OK for success, FAIL when the GUI can't be started.
1945 - */
1946 - int
1947 - gui_mch_init()
1948 - {
1949 - int messages[] = {
1950 - 1, 2, 3, 4, /* DataSave, DataSaveAck, DataLoad, DataLoadAck */
1951 - 8, /* PreQuit */
1952 - 0xf, /* ClaimEntity (for clipboard) */
1953 - 0x10, /* DataRequest (for clipboard) */
1954 - 0x400c1, /* Mode change */
1955 - 0x400c3, /* TaskCloseDown */
1956 - 0x400c9, /* MenusDeleted */
1957 - 0x808c1, /* TW_Output */
1958 - 0x808c2, /* TW_Ego */
1959 - 0x808c3, /* TW_Morio */
1960 - 0x808c4, /* TW_Morite */
1961 - 0}; /* End-of-list. */
1962 -
1963 -
1964 - /* There may have been some errors reported in the
1965 - * command window before we get here. Wait if so.
1966 - */
1967 - swi(Wimp_ReadSysInfo, 3);
1968 - if (r0 == 0)
1969 - swi(Wimp_CommandWindow, 0); /* Window opened - close with prompt */
1970 -
1971 - if (xswi(Wimp_Initialise, 310, 0x4b534154, "GVim", messages) & v_flag)
1972 - return FAIL;
1973 - nested_wimp = r0 >= 397;
1974 - task_handle = r1;
1975 -
1976 - /* Load the templates. */
1977 -
1978 - if (xswi(Wimp_OpenTemplate, 0, "Vim:Templates") & v_flag)
1979 - ro_die( (char *) r0);
1980 -
1981 - gui.window_handle = ro_load_template("editor",
1982 - &gui.window_title,
1983 - &gui.window_title_size);
1984 -
1985 - save_window = ro_load_template("save", NULL, NULL);
1986 -
1987 - swi(Wimp_CloseTemplate);
1988 -
1989 - /* Set default foreground and background colours. */
1990 -
1991 - gui.norm_pixel = gui.def_norm_pixel;
1992 - gui.back_pixel = gui.def_back_pixel;
1993 -
1994 - /* Get the colours from the "Normal" and "Menu" group (set in syntax.c or
1995 - * in a vimrc file) */
1996 -
1997 - set_normal_colors();
1998 -
1999 - /*
2000 - * Check that none of the colors are the same as the background color
2001 - */
2002 -
2003 - gui_check_colors();
2004 -
2005 - /* Get the colours for the highlight groups (gui_check_colors() might have
2006 - * changed them) */
2007 -
2008 - highlight_gui_started(); /* re-init colours and fonts */
2009 -
2010 - /* Set geometry based on values read on initialisation. */
2011 -
2012 - gui.num_cols = Columns = default_columns;
2013 - gui.num_rows = Rows = default_rows;
2014 -
2015 - /* Get some information about our environment. */
2016 -
2017 - ro_measure_tools();
2018 -
2019 - return OK;
2020 - }
2021 -
2022 - /*
2023 - * Called when the foreground or background colour has been changed.
2024 - */
2025 - void
2026 - gui_mch_new_colors()
2027 - {
2028 - }
2029 -
2030 - /*
2031 - * Open the GUI window which was created by a call to gui_mch_init().
2032 - */
2033 - int
2034 - gui_mch_open(void)
2035 - {
2036 - int block[10];
2037 -
2038 - block[0] = gui.window_handle;
2039 - swi(Wimp_GetWindowState, 0, block);
2040 - block[7] = -1; /* Open at the top of the stack */
2041 - swi(Wimp_OpenWindow, 0, block);
2042 -
2043 - /* Give the new window the input focus */
2044 - swi(Wimp_SetCaretPosition, gui.window_handle, -1, 0, 0, -1, -1);
2045 -
2046 - if (gui_win_x != -1 && gui_win_y != -1)
2047 - gui_mch_set_winpos(gui_win_x, gui_win_y);
2048 -
2049 - return OK;
2050 - }
2051 -
2052 - void
2053 - gui_mch_exit(int rc)
2054 - {
2055 - int block[64];
2056 -
2057 - /* Close window. Stops us from getting troublesome events
2058 - * if we take a while to die.
2059 - */
2060 - block[0] = gui.window_handle;
2061 - swi(Wimp_CloseWindow, 0, block);
2062 -
2063 - if (child_handle)
2064 - {
2065 - /* We still have a sub-task running - kill it */
2066 - block[0] = 20;
2067 - block[3] = 0;
2068 - block[4] = 0; /* Quit */
2069 - if ((xswi(Wimp_SendMessage, 17, block, child_handle) & v_flag) == 0)
2070 - {
2071 - /* Idle until child dies. */
2072 - while (child_handle)
2073 - {
2074 - process_event(wimp_poll(1, block), block);
2075 - }
2076 - }
2077 - }
2078 -
2079 - exit(rc);
2080 - }
2081 -
2082 - /*
2083 - * Get the position of the top left corner of the window.
2084 - */
2085 - int
2086 - gui_mch_get_winpos(int *x, int *y)
2087 - {
2088 - /* TODO */
2089 - return FAIL;
2090 - }
2091 -
2092 - /*
2093 - * Set the position of the top left corner of the window to the given
2094 - * coordinates.
2095 - */
2096 - void
2097 - gui_mch_set_winpos(int x, int y)
2098 - {
2099 - /* TODO */
2100 - }
2101 -
2102 - void
2103 - gui_mch_set_shellsize(width, height, min_width, min_height, base_width, base_height, direction)
2104 - int width; /* In OS units */
2105 - int height;
2106 - int min_width; /* Smallest permissible window size (ignored) */
2107 - int min_height;
2108 - int base_width; /* Space for scroll bars, etc */
2109 - int base_height;
2110 - int direction;
2111 - {
2112 - int s_width, s_height;
2113 - int block[] = {
2114 - gui.window_handle,
2115 - 0,
2116 - -height + 1,
2117 - width,
2118 - 1};
2119 -
2120 - gui_mch_get_screen_dimensions(&s_width, &s_height);
2121 - s_width -= base_width;
2122 - s_height -= base_height; /* Underestimate - ignores titlebar */
2123 -
2124 - swi(Wimp_GetWindowState, 0, block);
2125 - block[3] = block[1] + width;
2126 - block[2] = block[4] - height;
2127 - if (block[3] > s_width)
2128 - {
2129 - block[3] = s_width;
2130 - block[1] = block[3] - width;
2131 - }
2132 - if (block[2] < gui.scrollbar_height)
2133 - {
2134 - block[2] = gui.scrollbar_height;
2135 - block[4] = block[2] + height;
2136 - }
2137 - swi(Wimp_OpenWindow, 0, block);
2138 - swi(Wimp_ForceRedraw, gui.window_handle, 0, -height, width, 0);
2139 - }
2140 -
2141 - void
2142 - gui_mch_get_screen_dimensions(int *screen_w, int *screen_h)
2143 - {
2144 - int block[] = {4, 5, 11, 12, -1};
2145 -
2146 - swi(OS_ReadVduVariables, block, block);
2147 - *screen_w = (block[2] + 1) << block[0];
2148 - *screen_h = (block[3] + 1) << block[1];
2149 - }
2150 -
2151 - /* Take a font name with options and return a font handle, or
2152 - * zero for failure.
2153 - * Replace extension with 'Bold' or 'Italic' depending on modifiers.
2154 - */
2155 - int
2156 - ro_get_font(fullname, weight)
2157 - char_u *fullname;
2158 - int weight; /* Initial weights:
2159 - * BIT MEANING
2160 - * 0 bold
2161 - * 1 italic
2162 - */
2163 - {
2164 - char_u *arg;
2165 - char_u font[41];
2166 - int width = -1;
2167 - int height = -1;
2168 - int name_len;
2169 - int i;
2170 - char_u c;
2171 -
2172 - for (i = 0; i < 39;)
2173 - {
2174 - c = fullname[i];
2175 - if (c == ':' || c == NUL || c == '.')
2176 - break;
2177 - font[i++] = c;
2178 - }
2179 -
2180 - /* find the first modifier, NULL if none */
2181 - arg = strchr(fullname + i, ':');
2182 -
2183 - while (arg)
2184 - {
2185 - switch (*++arg)
2186 - {
2187 - case 'h':
2188 - height = strtol(arg + 1, (char **) &arg, 10);
2189 - break;
2190 - case 'w':
2191 - width = strtol(arg + 1, (char **) &arg, 10);
2192 - break;
2193 - case 'b':
2194 - weight |= 1;
2195 - break;
2196 - case 'i':
2197 - weight |= 2;
2198 - break;
2199 - default:
2200 - return 0;
2201 - }
2202 - arg = strchr(arg, ':');
2203 - }
2204 -
2205 - if ((weight & 1) && i < 35)
2206 - {
2207 - /* Bold goes instead of given suffix */
2208 - strncpy(font + i, ".Bold", 5);
2209 - i += 5;
2210 - }
2211 - else
2212 - {
2213 - /* Copy rest of name unless we are using Bold */
2214 - while (i < 39)
2215 - {
2216 - c = fullname[i];
2217 - if (c == ':' || c == NUL)
2218 - break;
2219 - font[i++] = c;
2220 - }
2221 - }
2222 - if ((weight & 2) && i < 32)
2223 - {
2224 - strncpy(font + i, ".Oblique", 8);
2225 - i += 8;
2226 - }
2227 -
2228 - font[i] = 0;
2229 -
2230 - if (height < 1 && width < 1)
2231 - height = width = 10; /* Default to 10pt */
2232 - else if (height < 1)
2233 - height = width;
2234 - else if (width < 1)
2235 - width = height;
2236 -
2237 - if (xswi(Font_FindFont, 0, font, width << 4, height << 4, 0, 0) & v_flag)
2238 - return NOFONT; /* Can't find font */
2239 -
2240 - return r0;
2241 - }
2242 -
2243 - /* Load a file into allocated memory and check it is valid.
2244 - * Return a pointer to the allocated block on success.
2245 - */
2246 - char *
2247 - zap_load_file(name, style)
2248 - char_u *name; /* Name of directory containing styles */
2249 - char_u *style; /* Name of style within directory */
2250 - {
2251 - char_u fname[256];
2252 - char_u *file;
2253 -
2254 - if (strlen(name) + strlen(style) > 254)
2255 - return NULL; /* Names too long */
2256 -
2257 - sprintf(fname, "%s.%s", name, style);
2258 -
2259 - /* Load the named font in 1bpp format. */
2260 - if (xswi(OS_File, 13, fname, 0, 0, "VimFonts:") & v_flag || r0 != 1)
2261 - return NULL; /* Error reading file info, or not a file */
2262 -
2263 - /* Allocate enough memory to load the whole file */
2264 - file = (char *) alloc(r4);
2265 - if (!file)
2266 - return NULL; /* Out of memory */
2267 -
2268 - if (xswi(OS_File, 12, fname, file, 0, "VimFonts:") & v_flag)
2269 - return NULL; /* Unable to load file */
2270 -
2271 - if (strncmp(file, "ZapFont\015", 8) == 0)
2272 - return file; /* Loaded OK! */
2273 -
2274 - vim_free(file);
2275 - return NULL; /* Not a valid font file */
2276 - }
2277 -
2278 - /* Load and convert the named font.
2279 - * If name is NULL or a null string then convert the system font.
2280 - * Return OK on success; FAIL and we revert to using the VDU drivers.
2281 - *
2282 - * 'name' is the name of a directory.
2283 - * Tries to load 'name.0', 'name.B', 'name.I' and 'name.IB'.
2284 - */
2285 - int
2286 - zap_load_font(name)
2287 - char_u *name;
2288 - {
2289 - int i;
2290 -
2291 - /* Free the existing font files, if any */
2292 - for (i = 0; i < ZAP_STYLES; i++)
2293 - {
2294 - vim_free(zap_file[i]);
2295 - zap_file[i] = NULL;
2296 - }
2297 -
2298 - if (name && *name == '!')
2299 - {
2300 - name++;
2301 - double_height = TRUE;
2302 - }
2303 - else
2304 - double_height = FALSE;
2305 -
2306 - if (name && *name)
2307 - {
2308 - zap_file[ZAP_NORMAL] = zap_load_file(name, "0");
2309 - if (!zap_file[ZAP_NORMAL])
2310 - return FAIL; /* Can't load the 'normal' style - error */
2311 -
2312 - zap_file[ZAP_BOLD] = zap_load_file(name, "B");
2313 - zap_file[ZAP_ITALIC] = zap_load_file(name, "I");
2314 - zap_file[ZAP_BITALIC] = zap_load_file(name, "IB");
2315 - }
2316 - else
2317 - {
2318 - int *header;
2319 - char workarea[16];
2320 - char *old_wa;
2321 -
2322 - /* Allocate memory for system font (8 x 8 x 256 bits, plus header) */
2323 - header = (int *) alloc(0x20 + 8 * 256);
2324 - if (header == NULL)
2325 - return FAIL;
2326 - zap_file[ZAP_NORMAL] = (char *) header;
2327 -
2328 - /* Store details about the system font */
2329 - header[2] = 8; /* Width */
2330 - header[3] = 8; /* Height */
2331 - header[4] = 0; /* First char */
2332 - header[5] = 255; /* Last char */
2333 - header[6] = header[7] = 0; /* Reserved */
2334 -
2335 - /* Get system font bitmap */
2336 - old_wa = zap_redraw_block.r_workarea;
2337 - zap_redraw_block.r_workarea = workarea;
2338 - swi(ZapRedraw_ReadSystemChars, zap_file[ZAP_NORMAL] + 0x20, &zap_redraw_block);
2339 - zap_redraw_block.r_workarea = old_wa;
2340 - }
2341 -
2342 - return ro_zap_redraw_initialise();
2343 - }
2344 -
2345 - /*
2346 - * Initialise vim to use the font with the given name.
2347 - * Return FAIL if the font could not be loaded, OK otherwise.
2348 - */
2349 - int
2350 - gui_mch_init_font(char_u *font_name, int fontset)
2351 - {
2352 - int new_handle = 0; /* Use the system font by default */
2353 -
2354 - if (font_name[0] == '!')
2355 - {
2356 - /* Select a ZapRedraw font */
2357 - if (zap_load_font(font_name + 1))
2358 - zap_redraw = TRUE;
2359 - else
2360 - {
2361 - EMSG2(_("E610: Can't load Zap font '%s'"), font_name);
2362 - font_name = "System"; /* Error - use system font */
2363 - zap_redraw = FALSE;
2364 - }
2365 - }
2366 - else
2367 - {
2368 - zap_redraw = FALSE;
2369 -
2370 - if (font_name)
2371 - {
2372 - /* Extract any extra details about the font */
2373 - new_handle = ro_get_font(font_name, 0);
2374 - if (!new_handle)
2375 - return FAIL;
2376 - }
2377 - else
2378 - font_name = "System";
2379 - }
2380 -
2381 - /* Free the previous font, if any */
2382 - gui_mch_free_font(gui.norm_font);
2383 - gui.norm_font = new_handle;
2384 - gui.char_ascent = 0;
2385 -
2386 - if (new_handle)
2387 - {
2388 - /* Read details about the chosen font */
2389 - swi(Font_ReadInfo, new_handle);
2390 -
2391 - gui.char_width = r3 - r1;
2392 - gui.char_height = r4 - r2;
2393 -
2394 - font_x_offset = -r1; /* Where to position each char in its box */
2395 - font_y_offset = -r4;
2396 -
2397 - /* Try to load other fonts for bold, italic, and bold-italic */
2398 - gui_mch_free_font(gui.bold_font);
2399 - gui.bold_font = ro_get_font(font_name, 1);
2400 - gui_mch_free_font(gui.ital_font);
2401 - gui.ital_font = ro_get_font(font_name, 2);
2402 - gui_mch_free_font(gui.boldital_font);
2403 - gui.boldital_font = ro_get_font(font_name, 3);
2404 - }
2405 - else
2406 - {
2407 - /* Use the system font or ZapRedraw. */
2408 - if (zap_redraw)
2409 - {
2410 - gui.char_width = zap_redraw_block.r_charw << zap_redraw_block.r_magx;
2411 - gui.char_height = zap_redraw_block.r_charh << zap_redraw_block.r_magy;
2412 - if (double_height)
2413 - gui.char_height <<= 1;
2414 - }
2415 - else
2416 - {
2417 - gui.char_width = 16;
2418 - gui.char_height = 32;
2419 - }
2420 -
2421 - gui_mch_free_font(gui.bold_font);
2422 - gui.bold_font = 0;
2423 - gui_mch_free_font(gui.ital_font);
2424 - gui.ital_font = 0;
2425 - gui_mch_free_font(gui.boldital_font);
2426 - gui.boldital_font = 0;
2427 - }
2428 - hl_set_font_name(font_name);
2429 -
2430 - must_redraw = CLEAR;
2431 - return OK;
2432 - }
2433 -
2434 - /*
2435 - * Adjust gui.char_height (after 'linespace' was changed).
2436 - */
2437 - int
2438 - gui_mch_adjust_charheight()
2439 - {
2440 - return FAIL;
2441 - }
2442 -
2443 - /*
2444 - * Get a font structure for highlighting.
2445 - */
2446 - GuiFont
2447 - gui_mch_get_font(name, giveErrorIfMissing)
2448 - char_u *name;
2449 - int giveErrorIfMissing;
2450 - {
2451 - int handle;
2452 -
2453 - if (!name)
2454 - return NOFONT; /* System font if no name */
2455 -
2456 - handle = ro_get_font(name, 0);
2457 - if (!handle)
2458 - {
2459 - if (giveErrorIfMissing)
2460 - EMSG2(_("E611: Can't use font %s"), name);
2461 - return NOFONT;
2462 - }
2463 -
2464 - return handle;
2465 - }
2466 -
2467 - #if defined(FEAT_EVAL) || defined(PROTO)
2468 - /*
2469 - * Return the name of font "font" in allocated memory.
2470 - * Don't know how to get the actual name, thus use the provided name.
2471 - */
2472 - char_u *
2473 - gui_mch_get_fontname(font, name)
2474 - GuiFont font;
2475 - char_u *name;
2476 - {
2477 - if (name == NULL)
2478 - return NULL;
2479 - return vim_strsave(name);
2480 - }
2481 - #endif
2482 -
2483 - /*
2484 - * Set the current text font.
2485 - */
2486 - void
2487 - gui_mch_set_font(GuiFont font)
2488 - {
2489 - ro_current_font = font;
2490 -
2491 - if (font)
2492 - {
2493 - /* Not the system font or ZapRedraw font - select it */
2494 - swi(Font_SetFont, font);
2495 - }
2496 - }
2497 -
2498 - /*
2499 - * If a font is not going to be used, free its structure.
2500 - */
2501 - void
2502 - gui_mch_free_font(GuiFont font)
2503 - {
2504 - if (font)
2505 - swi(Font_LoseFont, font);
2506 - }
2507 -
2508 - /*
2509 - * Return the Pixel value (colour) for the given colour name.
2510 - * Return INVALCOLOR for error.
2511 - * NB: I've changed Green for now, since it looked really sick
2512 - */
2513 - guicolor_T
2514 - gui_mch_get_color(char_u *name)
2515 - {
2516 - int i;
2517 - struct colour
2518 - {
2519 - char_u *name;
2520 - guicolor_T value;
2521 - } colours[] =
2522 - {
2523 - { "Red", grgb(255, 0, 0) },
2524 - { "LightRed", grgb(255, 0, 0) },
2525 - { "DarkRed", grgb(139, 0, 0) },
2526 -
2527 - { "Green", grgb(50, 200, 50) },
2528 - { "LightGreen", grgb(144, 238, 144) },
2529 - { "DarkGreen", grgb(0, 100, 0) },
2530 - { "SeaGreen", grgb(46, 139, 87) },
2531 -
2532 - { "Blue", grgb(0, 0, 255) },
2533 - { "LightBlue", grgb(173, 216, 230) },
2534 - { "DarkBlue", grgb(0, 0, 139) },
2535 - { "SlateBlue", grgb(160, 90, 205) },
2536 -
2537 - { "Cyan", grgb(0, 255, 255) },
2538 - { "LightCyan", grgb(224, 255, 255) },
2539 - { "DarkCyan", grgb(0, 139, 139) },
2540 -
2541 - { "Magenta", grgb(255, 0, 255) },
2542 - { "LightMagenta", grgb(255, 224, 255) },
2543 - { "DarkMagenta", grgb(139, 0, 139) },
2544 -
2545 - { "Yellow", grgb(255, 255, 0) },
2546 - { "LightYellow", grgb(255, 255, 224) },
2547 - { "DarkYellow", grgb(139, 139, 0) },
2548 - { "Brown", grgb(165, 42, 42) },
2549 -
2550 - { "Gray", grgb(190, 190, 190) },
2551 - { "Grey", grgb(190, 190, 190) },
2552 - { "LightGray", grgb(211, 211, 211) },
2553 - { "LightGrey", grgb(211, 211, 211) },
2554 - { "DarkGray", grgb(169, 169, 169) },
2555 - { "DarkGrey", grgb(169, 169, 169) },
2556 - { "Gray10", grgb(26, 26, 26) },
2557 - { "Grey10", grgb(26, 26, 26) },
2558 - { "Gray20", grgb(51, 51, 51) },
2559 - { "Grey20", grgb(51, 51, 51) },
2560 - { "Gray30", grgb(77, 77, 77) },
2561 - { "Grey30", grgb(77, 77, 77) },
2562 - { "Gray40", grgb(102, 102, 102) },
2563 - { "Grey40", grgb(102, 102, 102) },
2564 - { "Gray50", grgb(127, 127, 127) },
2565 - { "Grey50", grgb(127, 127, 127) },
2566 - { "Gray60", grgb(153, 153, 153) },
2567 - { "Grey60", grgb(153, 153, 153) },
2568 - { "Gray70", grgb(179, 179, 179) },
2569 - { "Grey70", grgb(179, 179, 179) },
2570 - { "Gray80", grgb(204, 204, 204) },
2571 - { "Grey80", grgb(204, 204, 204) },
2572 - { "Gray90", grgb(229, 229, 229) },
2573 - { "Grey90", grgb(229, 229, 229) },
2574 -
2575 - { "Black", grgb(0, 0, 0) },
2576 - { "White", grgb(255, 255, 255) },
2577 -
2578 - { "Orange", grgb(255, 165, 0) },
2579 - { "Purple", grgb(160, 32, 240) },
2580 - { "Violet", grgb(238, 130, 238) },
2581 - {NULL, 0}
2582 - };
2583 -
2584 - if (name[0] == '#')
2585 - {
2586 - char *end;
2587 - int c;
2588 -
2589 - c = strtol(name + 1, &end, 16);
2590 - return (guicolor_T) ((c >> 16) & 0xff) | (c & 0xff00) | ((c & 0xff) << 16);
2591 - }
2592 -
2593 - for (i = 0; colours[i].name != NULL; i++)
2594 - {
2595 - if (STRICMP(name, colours[i].name) == 0)
2596 - return colours[i].value;
2597 - }
2598 - if (strnicmp(name, "grey", 4) == 0 || strnicmp(name, "gray", 4) == 0)
2599 - {
2600 - int level = (255 * atoi(name + 4)) / 100;
2601 - return (guicolor_T) grgb(level, level, level);
2602 - }
2603 - return INVALCOLOR;
2604 - }
2605 -
2606 - /*
2607 - * Set the current text colours.
2608 - * If we are using fonts then set the antialiasing colours too.
2609 - */
2610 - void
2611 - gui_mch_set_colors(guicolor_T fg, guicolor_T bg)
2612 - {
2613 - zap_redraw_colours[0] = bg << 8; /* JK230798, register new background colour */
2614 - zap_redraw_colours[1] = fg << 8; /* JK230798, register new foreground colour */
2615 - zap_redraw_update_colours = TRUE; /* JK230798, need update of colour masks */
2616 -
2617 - swi(ColourTrans_ReturnGCOL, fg << 8);
2618 - gui.fg_colour = r0;
2619 - swi(ColourTrans_ReturnGCOL, bg << 8);
2620 - gui.bg_colour = r0;
2621 -
2622 - if (ro_current_font)
2623 - swi(ColourTrans_SetFontColours, 0, bg << 8, fg << 8, 14);
2624 - }
2625 -
2626 - void
2627 - ro_draw_string(x, y, s, len, flags, clip)
2628 - int x; /* Top-left coord to plot at (x incl, y excl) */
2629 - int y; /* (screen coords) */
2630 - char_u *s; /* String to plot */
2631 - int len; /* Length of string */
2632 - int flags; /* DRAW_TRANSP, DRAW_BOLD, DRAW_UNDERL */
2633 - int* clip; /* JK230798, added clip window */
2634 - {
2635 - if (ro_current_font)
2636 - {
2637 - int fx;
2638 - int flen = len; /* Preserve for underline */
2639 -
2640 - /* Use the Font manager to paint the string.
2641 - * Must do one char at a time to get monospacing.
2642 - */
2643 -
2644 - if (flags & DRAW_ITALIC && !gui.ital_font)
2645 - flags |= DRAW_UNDERL; /* No italic - underline instead */
2646 -
2647 - if ((flags & DRAW_TRANSP) == 0)
2648 - {
2649 - swi(ColourTrans_SetColour, gui.bg_colour, 0, 0, 0, 0);
2650 - swi(OS_Plot, 4, x, y - gui.char_height);
2651 - swi(OS_Plot, 96 + 5, x + len * gui.char_width - 1, y - 1);
2652 - }
2653 -
2654 - fx = x + font_x_offset;
2655 - while (flen--)
2656 - {
2657 - swi(Font_Paint, 0, s++, 0x90, fx, y + font_y_offset, 0, 0, 1);
2658 - fx += gui.char_width;
2659 - }
2660 - }
2661 - else
2662 - {
2663 - if (zap_redraw)
2664 - {
2665 - /* Using fast Zap redraw. */
2666 - flags = ro_zap_redraw_draw_string(x, y, s, len, flags, clip);
2667 - }
2668 - else
2669 - {
2670 - /* Using the system font */
2671 - if (flags & DRAW_ITALIC)
2672 - flags |= DRAW_UNDERL;
2673 -
2674 - if ((flags & DRAW_TRANSP) == 0)
2675 - {
2676 - swi(ColourTrans_SetColour, gui.bg_colour, 0, 0, 0, 0);
2677 - swi(OS_Plot, 4, x, y - gui.char_height);
2678 - swi(OS_Plot, 96 + 5, x + len * gui.char_width - 1, y - 1);
2679 - }
2680 - swi(OS_Plot, 4, /* Move the drawing cursor */
2681 - x,
2682 - y - 1);
2683 - swi(ColourTrans_SetColour, gui.fg_colour, 0, 0, 0, 0);
2684 - swi(OS_WriteN, s, len);
2685 -
2686 - if (flags & DRAW_BOLD)
2687 - {
2688 - swi(OS_Plot, 4, x + (1 << x_eigen_factor), y - 1);
2689 - swi(OS_WriteN, s, len);
2690 - }
2691 - }
2692 - }
2693 -
2694 - if (flags & DRAW_UNDERL)
2695 - {
2696 - if (ro_current_font || zap_redraw)
2697 - swi(ColourTrans_SetColour, gui.fg_colour, 0, 0, 0, 0);
2698 - /* Underlined is the same with all plotting methods */
2699 - swi(OS_Plot, 4, x, y - gui.char_height);
2700 - swi(OS_Plot, 1, gui.char_width * len, 0);
2701 - }
2702 - }
2703 -
2704 - void
2705 - gui_mch_draw_string(int row, int col, char_u *s, int len, int flags)
2706 - {
2707 - int x, y; /* Workarea x,y */
2708 - x = col * gui.char_width;
2709 - y = -row * gui.char_height;
2710 -
2711 - if (redraw_block)
2712 - {
2713 - ro_draw_string(x + redraw_block[1], y + redraw_block[4],
2714 - s, len, flags, &redraw_block[7]); /* JK230798, added clip window */
2715 - }
2716 - else
2717 - {
2718 - int block[44];
2719 - block[0] = gui.window_handle;
2720 - block[1] = x;
2721 - block[2] = y - gui.char_height;
2722 - block[3] = (col + len) * gui.char_width;
2723 - block[4] = y;
2724 - swi(Wimp_UpdateWindow, 0, block);
2725 - while (r0)
2726 - {
2727 - ro_draw_string(x + block[1], y + block[4],
2728 - s, len, flags, &block[7]); /* JK230798, added clip window */
2729 - swi(Wimp_GetRectangle, 0, block);
2730 - }
2731 - }
2732 - }
2733 -
2734 - /*
2735 - * Return OK if the key with the termcap name "name" is supported.
2736 - */
2737 - int
2738 - gui_mch_haskey(char_u *name)
2739 - {
2740 - return FAIL;
2741 - }
2742 -
2743 - void
2744 - gui_mch_beep(void)
2745 - {
2746 - swi(OS_WriteI + 7);
2747 - }
2748 -
2749 - /*
2750 - * Visual bell.
2751 - */
2752 - void
2753 - gui_mch_flash(int msec)
2754 - {
2755 - /* TODO */
2756 - }
2757 -
2758 -
2759 - /*
2760 - * Plot a solid rectangle using the given plot action and colour.
2761 - * Coordinates are inclusive and window-relative.
2762 - */
2763 - void
2764 - plot_rectangle(plot, colour, minx, miny, maxx, maxy)
2765 - int plot; /* OS_Plot action */
2766 - int colour;
2767 - int minx;
2768 - int miny;
2769 - int maxx;
2770 - int maxy;
2771 - {
2772 - if (redraw_block)
2773 - {
2774 - swi(ColourTrans_SetColour, colour, 0, 0, 0, 0);
2775 - swi(OS_Plot, 4, minx + redraw_block[1], miny + redraw_block[4]);
2776 - swi(OS_Plot, plot, maxx + redraw_block[1], maxy + redraw_block[4]);
2777 - }
2778 - else
2779 - {
2780 - int block[44];
2781 - block[0] = gui.window_handle;
2782 - block[1] = minx;
2783 - block[2] = miny;
2784 - block[3] = maxx + 1;
2785 - block[4] = maxy + 1;
2786 - swi(Wimp_UpdateWindow, 0, block);
2787 - while (r0)
2788 - {
2789 - swi(ColourTrans_SetColour, colour, 0, 0, 0, 0);
2790 - swi(OS_Plot, 4, minx + block[1], miny + block[4]);
2791 - swi(OS_Plot, plot, maxx + block[1], maxy + block[4]);
2792 - swi(Wimp_GetRectangle, 0, block);
2793 - }
2794 - }
2795 - }
2796 -
2797 - /*
2798 - * Invert a rectangle from row r, column c, for nr rows and nc columns.
2799 - */
2800 - void
2801 - gui_mch_invert_rectangle(int r, int c, int nr, int nc)
2802 - {
2803 - plot_rectangle(96 + 6, 0, FILL_X(c), -FILL_Y(r + nr), FILL_X(c + nc), -FILL_Y(r));
2804 - }
2805 -
2806 - /*
2807 - * Iconify the GUI window.
2808 - */
2809 - void
2810 - gui_mch_iconify(void)
2811 - {
2812 - }
2813 -
2814 - #if defined(FEAT_EVAL) || defined(PROTO)
2815 - /*
2816 - * Bring the Vim window to the foreground.
2817 - */
2818 - void
2819 - gui_mch_set_foreground()
2820 - {
2821 - /* TODO */
2822 - }
2823 - #endif
2824 -
2825 - /* Draw a hollow rectangle relative to the current
2826 - * graphics cursor position, with the given width
2827 - * and height. Start position is top-left.
2828 - */
2829 - void
2830 - draw_hollow(w, h)
2831 - int w;
2832 - int h;
2833 - {
2834 - swi(OS_Plot, 1, w - 1, 0);
2835 - swi(OS_Plot, 1, 0, 1 - h);
2836 - swi(OS_Plot, 1, 1 - w, 0);
2837 - swi(OS_Plot, 1, 0, h - 1);
2838 - }
2839 -
2840 - /*
2841 - * Draw a cursor without focus.
2842 - */
2843 - void
2844 - gui_mch_draw_hollow_cursor(guicolor_T colour)
2845 - {
2846 - int x = FILL_X(gui.cursor_col); /* Window relative, top-left */
2847 - int y = -FILL_Y(gui.cursor_row);
2848 - if (redraw_block == NULL)
2849 - {
2850 - int block[11];
2851 -
2852 - block[0] = gui.window_handle;
2853 - block[1] = x;
2854 - block[2] = y - gui.char_height;
2855 - block[3] = x + gui.char_width;
2856 - block[4] = y;
2857 - swi(Wimp_UpdateWindow, 0, block);
2858 - while (r0)
2859 - {
2860 - swi(ColourTrans_SetGCOL, colour << 8, 0, 0, 0, 0);
2861 -
2862 - swi(OS_Plot, 4, x + block[1], y + block[4] - 1);
2863 - draw_hollow(gui.char_width, gui.char_height);
2864 -
2865 - swi(Wimp_GetRectangle, 0, block);
2866 - }
2867 - }
2868 - else
2869 - {
2870 - swi(ColourTrans_SetGCOL, colour << 8, 0, 0, 0, 0);
2871 -
2872 - swi(OS_Plot, 4, x + redraw_block[1], y + redraw_block[4] - 1);
2873 - draw_hollow(gui.char_width, gui.char_height);
2874 - }
2875 - }
2876 -
2877 - /*
2878 - * Draw part of a cursor, "w" pixels wide, and "h" pixels high, using
2879 - * color "color".
2880 - */
2881 - void
2882 - gui_mch_draw_part_cursor(w, h, colour)
2883 - int w;
2884 - int h;
2885 - guicolor_T colour;
2886 - {
2887 - int x = FILL_X(gui.cursor_col);
2888 - int y = -FILL_Y(gui.cursor_row);
2889 - swi(ColourTrans_ReturnGCOL, colour << 8);
2890 - plot_rectangle(96 + 5, r0, x, y - h, x + w - 1, y - 1);
2891 - }
2892 -
2893 - /*
2894 - * Catch up with any queued events. This may put keyboard input into the
2895 - * input buffer, call resize call-backs, trigger timers etc.
2896 - * If there is nothing in the event queue(& no timers pending), then we return
2897 - * immediately (well, after a Wimp_Poll).
2898 - */
2899 - void
2900 - gui_mch_update(void)
2901 - {
2902 - int block[64];
2903 - int reason;
2904 -
2905 - swi(OS_ReadMonotonicTime);
2906 - if ((r0 - time_of_last_poll) < 50)
2907 - return; /* Don't return too often */
2908 -
2909 - reason = wimp_poll(0, block);
2910 - if (reason)
2911 - process_event(reason, block);
2912 - ro_return_early = FALSE; /* We're returning anyway. */
2913 - }
2914 -
2915 - void
2916 - redraw_window(block)
2917 - int *block;
2918 - {
2919 - int x, y; /* Vim workarea coords */
2920 - int width, height;
2921 - int blank_col;
2922 -
2923 - swi(ColourTrans_ReturnGCOL, UNUSED_COLOUR << 8, 0, 0, 1<<7, 0);
2924 - blank_col = r0;
2925 -
2926 - swi(Wimp_RedrawWindow, 0, block);
2927 - redraw_block = block;
2928 - while (r0)
2929 - {
2930 - x = block[7] - block[1];
2931 - y = block[4] - block[10];
2932 - width = block[9] - block[7];
2933 - height = block[10] - block[8];
2934 -
2935 - if (height + y > Rows * gui.char_height)
2936 - {
2937 - /* Blank everything off the bottom. */
2938 - plot_rectangle(96 + 5, blank_col,
2939 - 0, block[8] - block[4],
2940 - block[9] - block[1], -FILL_Y(Rows) - 1);
2941 - height = Rows * gui.char_height;
2942 - }
2943 - if (width + x> Columns * gui.char_width)
2944 - {
2945 - /* Blank everything off to the right. */
2946 - plot_rectangle(96 + 5, blank_col,
2947 - FILL_X(Columns), block[8] - block[4],
2948 - block[9] - block[1], 0);
2949 - width = Columns * gui.char_width;
2950 - }
2951 - gui_redraw(x , y, width, height);
2952 - swi(Wimp_GetRectangle, 0, block);
2953 - }
2954 - redraw_block = NULL;
2955 - }
2956 -
2957 - /* Check if we have modified data.
2958 - * If we do then ack the message to stop the shutdown.
2959 - * Otherwise, ignore the message.
2960 - */
2961 - void
2962 - ro_prequit(block)
2963 - int *block;
2964 - {
2965 - if (!ro_ok_to_quit())
2966 - {
2967 - /* Not OK to quit - stop shutdown */
2968 - block[3] = block[2];
2969 - swi(Wimp_SendMessage, 19, block, block[1]);
2970 - }
2971 - /* Do nothing. We may get a Message_Quit later. */
2972 - }
2973 -
2974 - /* If there is unsaved data then ask the user if they mind losing it.
2975 - * Return TRUE if we can quit without saving, FALSE to halt the
2976 - * shutdown.
2977 - */
2978 - int
2979 - ro_ok_to_quit()
2980 - {
2981 - int old_confirm = cmdmod.confirm;
2982 -
2983 - cmdmod.confirm = FALSE; /* Use our own, single tasking, box */
2984 -
2985 - if (check_changed_any(FALSE))
2986 - {
2987 - swi(Wimp_ReportError,
2988 - "\0\0\0\0Vim contains unsaved data - quit anyway?",
2989 - 0x17,
2990 - "Vim");
2991 - cmdmod.confirm = old_confirm;
2992 - if (r1 != 1)
2993 - return FALSE;
2994 - }
2995 - cmdmod.confirm = old_confirm;
2996 - return TRUE;
2997 - }
2998 -
2999 - /* Quit without checking for unsaved data. */
3000 - void
3001 - ro_quit()
3002 - {
3003 - exiting = TRUE;
3004 - getout(0);
3005 -
3006 - exiting = FALSE; /* probably can't get here */
3007 - setcursor(); /* position cursor */
3008 - out_flush();
3009 - }
3010 -
3011 - /* Insent the given vim special code into the input buffer */
3012 - void
3013 - ro_press(a, b, modifier)
3014 - char a;
3015 - char b;
3016 - int modifier; /* %<Ctrl><Shift> 0000 0000 */
3017 - {
3018 - char_u buf[6];
3019 - int vim_mod;
3020 - int key;
3021 -
3022 -
3023 - /* Convert RISC OS modifier to Vim modifier. */
3024 - vim_mod = ((modifier & 0x10) ? MOD_MASK_SHIFT : 0)
3025 - | ((modifier & 0x20) ? MOD_MASK_CTRL : 0);
3026 - key = simplify_key(TERMCAP2KEY(a, b), &vim_mod);
3027 -
3028 - buf[3] = CSI;
3029 - buf[4] = KEY2TERMCAP0(key);
3030 - buf[5] = KEY2TERMCAP1(key);
3031 - if (vim_mod)
3032 - {
3033 - buf[0] = CSI;
3034 - buf[1] = KS_MODIFIER;
3035 - buf[2] = vim_mod;
3036 - add_to_input_buf(buf, 6);
3037 - }
3038 - else
3039 - add_to_input_buf(buf + 3, 3);
3040 - }
3041 -
3042 - /* Take a wimp key code and insert the vim equivalent
3043 - * into vim's input buffer.
3044 - * CTRL-C also sets got_int.
3045 - */
3046 - void
3047 - ro_insert_key(code)
3048 - char_u *code; /* Wimp_ProcessKey code (4 bytes) */
3049 - {
3050 - char a = code[0];
3051 - char b = code[1];
3052 - int base, modifier;
3053 -
3054 - if (a == 3 && ctrl_c_interrupts)
3055 - got_int = TRUE;
3056 -
3057 - /* Is it a normal key? */
3058 - if (a > 31 && a < 127)
3059 - {
3060 - add_to_input_buf(code, 1);
3061 - return;
3062 - }
3063 -
3064 - /* We should pass any unrecognised keys on, but
3065 - * for now just pass on F12 combinations.
3066 - */
3067 - switch (b)
3068 - {
3069 - case 0:
3070 - /* Home and Delete are the only special cases */
3071 - switch (a)
3072 - {
3073 - case 0x1e:
3074 - ro_press('k','h', 0); /* Home */
3075 - return;
3076 - case 0x7f:
3077 - ro_press('k','D', 0); /* Delete */
3078 - return;
3079 - case CSI:
3080 - {
3081 - /* Turn CSI into K_CSI. Untested! */
3082 - char_u string[3] = {CSI, KS_EXTRA, KE_CSI};
3083 -
3084 - add_to_input_buf(string, 3);
3085 - return;
3086 - }
3087 - default:
3088 - add_to_input_buf(code, 1);
3089 - return;
3090 - }
3091 - case 1:
3092 - if ((a & 0xcf) == 0xcc)
3093 - {
3094 - /* F12 pressed - pass it on (quick hack) */
3095 - swi(Wimp_ProcessKey, a | 0x100);
3096 - return;
3097 - }
3098 - base = a & 0xcf;
3099 - modifier = a & 0x30;
3100 - switch (base)
3101 - {
3102 - case 0x8a: /* Tab */
3103 - add_to_input_buf("\011", 1);
3104 - return;
3105 - case 0x8b: /* Copy (End) */
3106 - return ro_press('@', '7', modifier);
3107 - case 0x8c: /* Left */
3108 - return ro_press('k', 'l', modifier);
3109 - case 0x8d: /* Right */
3110 - return ro_press('k', 'r', modifier);
3111 - case 0x8e: /* Down */
3112 - if (modifier & 0x10)
3113 - return ro_press('k', 'N', modifier ^ 0x10);
3114 - else
3115 - return ro_press('k', 'd', modifier);
3116 - case 0x8f: /* Up */
3117 - if (modifier & 0x10)
3118 - return ro_press('k', 'P', modifier ^ 0x10);
3119 - else
3120 - return ro_press('k', 'u', modifier);
3121 - case 0xca: /* F10 */
3122 - return ro_press('k', ';', modifier);
3123 - case 0xcb: /* F11 */
3124 - return ro_press('F', '1', modifier);
3125 - case 0xcd: /* Insert */
3126 - return ro_press('k', 'I', modifier);
3127 - default:
3128 - if (base > 0x80 && base < 0x18a)
3129 - {
3130 - /* One of the other function keys */
3131 - return ro_press('k', '0' + (base & 15), modifier);
3132 - }
3133 - }
3134 - }
3135 - }
3136 -
3137 - /* Process a mouse event. */
3138 - void
3139 - ro_mouse(block)
3140 - int *block;
3141 - {
3142 - int x, y, button, vim_button;
3143 - int modifiers = 0;
3144 - int min_x, min_y; /* Visible area of editor window */
3145 - int max_x, max_y;
3146 -
3147 - if (block[3] != gui.window_handle || ro_dragging)
3148 - return; /* Not our window or ignoring clicks*/
3149 -
3150 - x = block[0]; /* Click position - screen coords */
3151 - y = block[1];
3152 - button = block[2];
3153 -
3154 - block[0] = gui.window_handle;
3155 - swi(Wimp_GetWindowState, 0, block);
3156 - min_x = block[1];
3157 - min_y = block[2];
3158 - max_x = block[3];
3159 - max_y = block[4];
3160 -
3161 - if (block[3] - x < gui.scrollbar_width)
3162 - {
3163 - /* Click in that blank area under the scrollbars */
3164 -
3165 - if (button & 0x444)
3166 - {
3167 - int front_block[64];
3168 - /* Dragging with Select - bring window to front first */
3169 - front_block[0] = gui.window_handle;
3170 - swi(Wimp_GetWindowState, 0, front_block);
3171 - front_block[7] = -1;
3172 - ro_open_main(front_block);
3173 - }
3174 -
3175 - block[0] = gui.window_handle;
3176 - block[1] = 7; /* Drag point */
3177 - block[2] = block[4] = 0; /* Coords of point. */
3178 - block[3] = block[5] = 0;
3179 - drag_x_offset = max_x - x;
3180 - drag_y_offset = min_y - y;
3181 -
3182 - /* Parent box. */
3183 - block[6] = min_x +
3184 - gui.scrollbar_width * 2 +
3185 - MIN_COLUMNS * gui.char_width;
3186 - block[7] = 0;
3187 - gui_mch_get_screen_dimensions(&block[8], &block[9]);
3188 - block[9] = max_y -
3189 - 4 * gui.char_height -
3190 - gui.scrollbar_height;
3191 -
3192 - swi(Wimp_DragBox, 0, block);
3193 - ro_dragging = DRAG_RESIZE_WINDOW;
3194 - drag_button = vim_button;
3195 - drag_modifiers = modifiers;
3196 - return;
3197 - }
3198 -
3199 - if (button & 0x111)
3200 - vim_button = MOUSE_RIGHT;
3201 - else if (button & 0x222)
3202 - vim_button = MOUSE_MIDDLE;
3203 - else
3204 - vim_button = MOUSE_LEFT;
3205 -
3206 - swi(OS_Byte, 121, 0x80);
3207 - if (r1 == 0xff)
3208 - modifiers |= MOUSE_SHIFT;
3209 - swi(OS_Byte, 121, 0x81);
3210 - if (r1 == 0xff)
3211 - modifiers |= MOUSE_CTRL;
3212 - swi(OS_Byte, 121, 0x82);
3213 - if (r1 == 0xff)
3214 - modifiers |= MOUSE_ALT;
3215 -
3216 - if (button == 2)
3217 - {
3218 - /* Menu click:
3219 - * If shift was pressed then do the paste action.
3220 - * If not, then open the pop-up menu.
3221 - */
3222 - modifiers ^= MOUSE_SHIFT;
3223 - if (modifiers && MOUSE_SHIFT)
3224 - {
3225 - vimmenu_T main;
3226 - /* Shift was NOT pressed - show menu */
3227 - main.dname = (char_u *) "Vim";
3228 - main.children = root_menu;
3229 - gui_mch_show_popupmenu(&main);
3230 - return;
3231 - }
3232 - }
3233 -
3234 - /* Gain the input focus */
3235 - swi(Wimp_SetCaretPosition, gui.window_handle, -1, 0, 0, -1, -1);
3236 -
3237 - if (button & 0xf0)
3238 - {
3239 - /* Drag operation:
3240 - *
3241 - * Tell the Wimp to start a drag.
3242 - * Monitor null events.
3243 - */
3244 - block[1] = 7; /* Drag a point. */
3245 - block[2] = block[4] = x; /* Coords of point. */
3246 - block[3] = block[5] = y;
3247 - block[6] = 0; /* Coords of bounding box. */
3248 - block[7] = 0;
3249 - gui_mch_get_screen_dimensions(&block[8], &block[9]);
3250 -
3251 - drag_x_offset = drag_y_offset = 0;
3252 -
3253 - swi(Wimp_DragBox, 0, block);
3254 - ro_dragging = DRAG_SELECTION;
3255 - drag_button = vim_button;
3256 - drag_modifiers = modifiers;
3257 -
3258 - vim_button |= MOUSE_DRAG;
3259 - }
3260 -
3261 - gui_send_mouse_event(
3262 - vim_button,
3263 - x - min_x,
3264 - max_y - y,
3265 - button & 0xf ? TRUE : FALSE, /* dclick */
3266 - modifiers);
3267 - }
3268 -
3269 - void
3270 - ro_continue_drag(block)
3271 - int *block; /* Just used as scrap. */
3272 - {
3273 - int x, y;
3274 -
3275 - /* Get screen coords of pointer. */
3276 - swi(Wimp_GetPointerInfo, 0, block);
3277 - x = block[0] + drag_x_offset;
3278 - y = block[1] + drag_y_offset;
3279 -
3280 - block[0] = gui.window_handle;
3281 - swi(Wimp_GetWindowState, 0, block);
3282 -
3283 - if (ro_dragging == DRAG_RESIZE_WINDOW)
3284 - {
3285 - /* Resizing the main window. */
3286 - block[2] = y;
3287 - block[3] = x;
3288 - ro_open_main(block);
3289 - }
3290 - else
3291 - {
3292 - /* Selecting some text. */
3293 - gui_send_mouse_event(
3294 - drag_button | MOUSE_DRAG, /* Always report the same button */
3295 - x - block[1],
3296 - block[4] - y,
3297 - FALSE, /* Not a double click. */
3298 - drag_modifiers);
3299 - }
3300 - }
3301 -
3302 - /* User has released all mouse buttons, marking the end of a drag. */
3303 - void
3304 - ro_drag_finished(block)
3305 - int *block;
3306 - {
3307 - int x;
3308 - int y;
3309 - int width, height;
3310 -
3311 - /* I don't trust the box returned by Wimp_Poll; look at the pointer
3312 - * ourselves.
3313 - */
3314 - swi(Wimp_GetPointerInfo, 0, block);
3315 - x = block[0] + drag_x_offset;
3316 - y = block[1] + drag_y_offset;
3317 -
3318 - if (ro_dragging == DRAG_RESIZE_WINDOW)
3319 - {
3320 - block[0] = gui.window_handle;
3321 - swi(Wimp_GetWindowState, 0, block);
3322 - block[2] = y;
3323 - block[3] = x;
3324 - ro_open_main(block);
3325 -
3326 - width = (block[3] - block[1]);
3327 - height = (block[4] - block[2]);
3328 -
3329 - swi(Wimp_ForceRedraw, gui.window_handle, 0, -height, width, 0);
3330 - gui_resize_shell(width, height);
3331 - }
3332 - else
3333 - {
3334 - block[0] = gui.window_handle;
3335 - swi(Wimp_GetWindowState, 0, block);
3336 - gui_send_mouse_event(
3337 - MOUSE_RELEASE,
3338 - x - block[1],
3339 - block[4] - y,
3340 - FALSE, /* not a double click */
3341 - drag_modifiers);
3342 - }
3343 - ro_dragging = DRAG_FALSE;
3344 - }
3345 -
3346 - /* Load the file/pathname given in block into a [new] buffer.
3347 - *
3348 - * Modifier Action
3349 - *
3350 - * None :confirm e <file>
3351 - * Ctrl :sp <file>
3352 - * Shift <file>
3353 - *
3354 - * Insert into typebuf, at the start.
3355 - * If loading from !Scrap then use saved leafname instead, and
3356 - * delete the scrap file. Also, ignore shift key.
3357 - *
3358 - * NB: Doesn't send DataLoadAck (other app might delete temp file?).
3359 - */
3360 - void
3361 - ro_dataload(block)
3362 - int *block;
3363 - {
3364 - char_u new_path[MAXPATHL];
3365 - char_u *path = ((char_u *) block) + 44;
3366 - int scrap = FALSE;
3367 -
3368 - if (block[3] == leaf_ref && leaf_name)
3369 - scrap = TRUE;
3370 -
3371 - switch (get_real_state() & 0xff)
3372 - {
3373 - case INSERT:
3374 - case CMDLINE:
3375 - case CMDLINE+LANGMAP:
3376 - /* For insert mode we can only insert the pathname (currently)
3377 - * Make sure Shift is pressed.
3378 - */
3379 - swi(OS_Byte, 121, 0x80); /* Is Shift pressed? */
3380 - if (r1 == 0xff)
3381 - {
3382 - ins_typebuf(" ", REMAP_NONE, 0, TRUE, FALSE);
3383 - ins_typebuf(path, REMAP_NONE, 0, TRUE, FALSE);
3384 - ro_return_early = TRUE; /* Return even though nothing was typed. */
3385 - }
3386 - else
3387 - swi(Wimp_ReportError,
3388 - "\0\0\0\0Sorry, you can only load text in normal mode", 5, "Vim");
3389 - break;
3390 -
3391 - case NORMAL:
3392 - ro_return_early = TRUE; /* Return even though nothing was typed. */
3393 -
3394 - if (scrap) /* Remove <Wimp$Scrap>. Later. */
3395 - ins_typebuf(":!~remove <Wimp$Scrap>\r", REMAP_NONE, 0, TRUE, FALSE);
3396 -
3397 - /* Insert {:sp ,:confirm e }[+f\ <leaf> ]<file><CR> */
3398 - ins_typebuf("\r", REMAP_NONE, 0, TRUE, FALSE);
3399 - ins_typebuf(path, REMAP_NONE, 0, TRUE, FALSE);
3400 - ins_typebuf(" ", REMAP_NONE, 0, TRUE, FALSE);
3401 -
3402 - if (scrap)
3403 - {
3404 - /* Loading via !Scrap - change pathname to stored leafname */
3405 - ins_typebuf(leaf_name, REMAP_NONE, 0, TRUE, FALSE);
3406 - ins_typebuf(" +f\\ ", REMAP_NONE, 0, TRUE, FALSE);
3407 - leaf_ref = 0;
3408 - vim_free(leaf_name);
3409 - leaf_name = NULL;
3410 - }
3411 -
3412 - swi(OS_Byte, 121, 0x81); /* Is Ctrl pressed? */
3413 - if (r1 == 0xff)
3414 - /* Yes, split window */
3415 - ins_typebuf(":sp", REMAP_NONE, 0, TRUE, FALSE);
3416 - else
3417 - ins_typebuf(":confirm e", REMAP_NONE, 0, TRUE, FALSE);
3418 - break;
3419 -
3420 - default:
3421 - swi(Wimp_ReportError, "\0\0\0\0You can only load text in normal mode.", 5, "Vim");
3422 - }
3423 - /* Send DataSaveAck so other program doesn't think we died
3424 - * and delete <Wimp$Scrap>.
3425 - */
3426 - block[3] = block[2];
3427 - block[4] = 4;
3428 - swi(Wimp_SendMessage, 17, block, block[1]);
3429 - }
3430 -
3431 - void
3432 - ro_datasave(block)
3433 - int *block;
3434 - {
3435 - char_u *path = ((char_u *) block) + 44;
3436 -
3437 - /* Preserve the name given so we can use it, not <Wimp$Scrap> */
3438 - if (leaf_name)
3439 - vim_free(leaf_name);
3440 - leaf_name = vim_strsave(path);
3441 -
3442 - block[9] = -1; /* File is unsafe. */
3443 - strcpy(path, "<Wimp$Scrap>");
3444 - block[0] = 60;
3445 - block[3] = block[2];
3446 - block[4] = 2;
3447 - swi(Wimp_SendMessage, 17, block, block[1]);
3448 -
3449 - leaf_ref = block[2];
3450 - }
3451 -
3452 - void
3453 - ro_message(block)
3454 - int *block;
3455 - {
3456 - char_u *buffer;
3457 - long_u len;
3458 -
3459 - if (block[1] == task_handle)
3460 - return; /* Don't talk to ourself! */
3461 - switch (block[4])
3462 - {
3463 - case 0: /* Quit. */
3464 - if (block[4] == 0)
3465 - ro_quit();
3466 - break;
3467 - case 1: /* DataSave */
3468 - ro_datasave(block);
3469 - break;
3470 - case 2: /* DataSaveAck. */
3471 - if (clip_convert_selection(&buffer, &len, &clip_star) == -1)
3472 - return;
3473 -
3474 - /* Save the clipboard contents to a file. */
3475 - swi(OS_File, 10, ((char_u *) block) + 44, 0xfff, 0, buffer, buffer + len);
3476 -
3477 - /* Ack with DataLoad message. */
3478 - block[3] = block[2];
3479 - block[4] = 3;
3480 - block[9] = len;
3481 - swi(Wimp_SendMessage, 17, block, block[1]);
3482 -
3483 - vim_free(buffer);
3484 - break;
3485 - case 3: /* DataLoad */
3486 - ro_dataload(block);
3487 - break;
3488 - case 8: /* PreQuit */
3489 - ro_prequit(block);
3490 - break;
3491 - case 0xf: /* Lose clipboard. */
3492 - if (block[5] & 4)
3493 - {
3494 - clip_free_selection(&clip_star);
3495 - clip_star.owned = FALSE;
3496 - }
3497 - break;
3498 - case 0x10: /* DataRequest (clip_star) */
3499 - if (clip_star.owned)
3500 - {
3501 - int rows;
3502 -
3503 - /* Tell other program that we have the clipboard. */
3504 - block[0] = 52;
3505 - block[3] = block[2]; /* Copy myref to yourref. */
3506 - block[4] = 1; /* DataSave message. */
3507 - /* Create an estimate for the size (larger or same as true
3508 - * value) */
3509 - rows = clip_star.end.lnum - clip_star.start.lnum;
3510 - if (rows < 0)
3511 - rows = -rows;
3512 - block[9] = (rows + 1) * Columns + 1; /* Add one for possible
3513 - final newline. */
3514 - block[10] = 0xfff; /* Clipboard is text. */
3515 - strcpy( ((char_u *) block) + 44, "VimClip");
3516 - swi(Wimp_SendMessage, 17, block, block[1]);
3517 - }
3518 - break;
3519 - case 0x400c1: /* Mode change */
3520 - changed_mode = TRUE; /* Flag - update on next OpenWindow */
3521 - if (zap_redraw)
3522 - {
3523 - /* JK230798, re-initialise ZapRedraw stuff */
3524 - if (ro_zap_redraw_initialise() == FAIL)
3525 - zap_redraw = FALSE;
3526 - }
3527 - break;
3528 - case 0x400c3: /* TaskCloseDown */
3529 - if (block[1] == child_handle)
3530 - child_handle = 0;
3531 - break;
3532 - }
3533 - }
3534 -
3535 - /*
3536 - * Converts a scrollbar's window handle into a scrollbar pointer.
3537 - * NULL on failure.
3538 - */
3539 - scrollbar_T *
3540 - ro_find_sbar(id)
3541 - int id;
3542 - {
3543 - win_T *wp;
3544 -
3545 - if (gui.bottom_sbar.id == id)
3546 - return &gui.bottom_sbar;
3547 - FOR_ALL_WINDOWS(wp)
3548 - {
3549 - if (wp->w_scrollbars[SBAR_LEFT].id == id)
3550 - return &wp->w_scrollbars[SBAR_LEFT];
3551 - if (wp->w_scrollbars[SBAR_RIGHT].id == id)
3552 - return &wp->w_scrollbars[SBAR_RIGHT];
3553 - }
3554 - return NULL;
3555 - }
3556 -
3557 - void
3558 - scroll_to(line, sb)
3559 - int sb; /* Scrollbar number */
3560 - int line;
3561 - {
3562 - char_u code[8];
3563 -
3564 - /* Don't put events in the input queue now. */
3565 - if (hold_gui_events)
3566 - return;
3567 -
3568 - /* Send a scroll event:
3569 - *
3570 - * A scrollbar event is CSI (NOT K_SPECIAL), KS_VER_SCROLLBAR,
3571 - * KE_FILLER followed by:
3572 - * one byte representing the scrollbar number, and then four bytes
3573 - * representing a long_u which is the new value of the scrollbar.
3574 - */
3575 - code[0] = CSI;
3576 - code[1] = KS_VER_SCROLLBAR;
3577 - code[2] = KE_FILLER;
3578 - code[3] = sb;
3579 - code[4] = line >> 24;
3580 - code[5] = line >> 16;
3581 - code[6] = line >> 8;
3582 - code[7] = line;
3583 - add_to_input_buf(code, 8);
3584 - }
3585 -
3586 - void
3587 - h_scroll_to(col)
3588 - int col;
3589 - {
3590 - char_u code[8];
3591 -
3592 - /* Don't put events in the input queue now. */
3593 - if (hold_gui_events)
3594 - return;
3595 -
3596 - /* Send a scroll event:
3597 - *
3598 - * A scrollbar event is CSI (NOT K_SPECIAL)
3599 - *
3600 - * A horizontal scrollbar event is K_SPECIAL, KS_HOR_SCROLLBAR,
3601 - * KE_FILLER followed by four bytes representing a long_u which is the
3602 - * new value of the scrollbar.
3603 - */
3604 - code[0] = CSI;
3605 - code[1] = KS_HOR_SCROLLBAR;
3606 - code[2] = KE_FILLER;
3607 - code[4] = col >> 24;
3608 - code[5] = col >> 16;
3609 - code[6] = col >> 8;
3610 - code[7] = col;
3611 - add_to_input_buf(code, 8);
3612 - }
3613 -
3614 - void
3615 - ro_scroll(block)
3616 - int *block;
3617 - {
3618 - scrollbar_T *sb;
3619 - int offset;
3620 - win_T *wp;
3621 -
3622 - /* Block is ready for Wimp_OpenWindow, and also contains:
3623 - *
3624 - * +32 = scroll X direction (-2 .. +2)
3625 - * +36 = scroll Y direction (-2 .. +2)
3626 - */
3627 -
3628 - sb = ro_find_sbar(block[0]);
3629 - if (!sb)
3630 - return; /* Window not found (error). */
3631 -
3632 - wp = sb-> wp;
3633 -
3634 - if (wp == NULL)
3635 - {
3636 - /* Horizontal bar. */
3637 - offset = block[8];
3638 - if (offset == -2)
3639 - offset = (block[1] - block[3]) / gui.char_width;
3640 - else if (offset == 2)
3641 - offset = (block[3] - block[1]) / gui.char_width;
3642 -
3643 - block[5] += offset * gui.char_width;
3644 -
3645 - gui_drag_scrollbar(sb, block[5] / gui.char_width, FALSE);
3646 -
3647 - swi(Wimp_OpenWindow, 0, block);
3648 - }
3649 - else
3650 - {
3651 - offset = -block[9];
3652 - if (offset == -2)
3653 - offset = -(wp -> w_height - 1);
3654 - else if (offset == 2)
3655 - offset = wp -> w_height - 1;
3656 -
3657 - /* Possibly we should reposition the scrollbar?
3658 - * Vim seems to update the bar anyway...
3659 - */
3660 - gui_drag_scrollbar(sb, offset - (block[6] / gui.char_height), FALSE);
3661 - }
3662 - }
3663 -
3664 - /* Move a window by a given offset. Used to simulate the function of the
3665 - * nested wimp.
3666 - */
3667 - void
3668 - ro_move_child(window, x, y, pos_wanted, pos_got)
3669 - int window;
3670 - int x,y; /* offset to move by */
3671 - int pos_wanted, pos_got;
3672 - {
3673 - int block[10];
3674 -
3675 - block[0] = window;
3676 - swi(Wimp_GetWindowState, 0, block);
3677 - block[1] += x;
3678 - block[2] += y;
3679 - block[3] += x;
3680 - block[4] += y;
3681 - if (pos_wanted == -1)
3682 - block[7] = -1;
3683 - else if (pos_wanted == -2)
3684 - block[7] = pos_got;
3685 - swi(Wimp_OpenWindow, 0, block);
3686 - }
3687 -
3688 - /* Open the main window. Also updates scrollbars if we are not
3689 - * using the nested Wimp.
3690 - * If we have just changed mode then re-read all values.
3691 - */
3692 - void
3693 - ro_open_main(block)
3694 - int *block;
3695 - {
3696 - int toggle_size;
3697 -
3698 - /* Find out if the user clicked on the toggle size icon. */
3699 - block[20] = block[0];
3700 - swi(Wimp_GetWindowState, 0, block + 20);
3701 - toggle_size = block[28] & (1 << 19);
3702 -
3703 - if (nested_wimp)
3704 - {
3705 - swi(Wimp_OpenWindow, 0, block);
3706 - }
3707 - else
3708 - {
3709 - int old[10];
3710 - int x_offset, y_offset; /* Move children same as parent. */
3711 - int pos_wanted, pos_got;
3712 - int left_bar = gui.which_scrollbars[SBAR_LEFT];
3713 - int right_bar = gui.which_scrollbars[SBAR_RIGHT];
3714 - win_T *wp;
3715 -
3716 - /* Three cases to think about:
3717 - * 1) Move to top. Open each window at the top.
3718 - * 2) Same stack position. Open each with same position.
3719 - * 3) Open at bottom. Open children with parent's new position.
3720 - */
3721 -
3722 - old[0] = block[0];
3723 - swi(Wimp_GetWindowState, 0, old);
3724 - pos_wanted = block[7];
3725 - swi(Wimp_OpenWindow, 0, block);
3726 - /* Block updated by OpenWindow? I don't think so! */
3727 - swi(Wimp_GetWindowState, 0, block);
3728 - pos_got = block[7];
3729 -
3730 - x_offset = block[1] - old[1];
3731 - y_offset = block[4] - old[4];
3732 - if (x_offset || y_offset || pos_wanted == -1 || pos_wanted == -2)
3733 - {
3734 - /* If parent has moved, re-open all the child windows. */
3735 - FOR_ALL_WINDOWS(wp)
3736 - {
3737 - /* Reopen scrollbars for this window. */
3738 - if (left_bar)
3739 - ro_move_child(wp -> w_scrollbars[SBAR_LEFT].id,
3740 - x_offset, y_offset,
3741 - pos_wanted, pos_got);
3742 - if (right_bar)
3743 - ro_move_child(wp -> w_scrollbars[SBAR_RIGHT].id,
3744 - x_offset, y_offset,
3745 - pos_wanted, pos_got);
3746 - }
3747 - }
3748 - }
3749 - if (changed_mode || toggle_size)
3750 - {
3751 - int width, height;
3752 -
3753 - if (changed_mode)
3754 - ro_measure_tools();
3755 - block[0] = gui.window_handle;
3756 - swi(Wimp_GetWindowState, 0, block);
3757 -
3758 - width = block[3] - block[1];
3759 - height = block[4] - block[2];
3760 - swi(Wimp_ForceRedraw, gui.window_handle, 0, -height, width, 0);
3761 - gui_resize_shell(width, height);
3762 - changed_mode = FALSE;
3763 - }
3764 - }
3765 -
3766 - void
3767 - ro_open_window(block)
3768 - int *block;
3769 - {
3770 - int pos;
3771 - scrollbar_T *sb;
3772 -
3773 - if (block[0] == gui.window_handle)
3774 - ro_open_main(block);
3775 - else
3776 - {
3777 - swi(Wimp_OpenWindow, 0, block);
3778 - if (block[0] != gui.window_handle)
3779 - {
3780 - sb = ro_find_sbar(block[0]);
3781 - if (sb)
3782 - {
3783 - if (sb-> wp != NULL)
3784 - gui_drag_scrollbar(sb, -block[6] / gui.char_height, FALSE);
3785 - else
3786 - gui_drag_scrollbar(sb, block[5] / gui.char_width, FALSE);
3787 - }
3788 - }
3789 - }
3790 - }
3791 -
3792 - void
3793 - ro_menu_selection(block)
3794 - int *block;
3795 - {
3796 - int *item = wimp_menu + 7;
3797 - vimmenu_T *menu;
3798 - /* wimp_menu points to a wimp menu structure */
3799 -
3800 - for (;;)
3801 - {
3802 - while (block[0]--)
3803 - item += 6;
3804 - if (block[1] == -1)
3805 - break;
3806 - item = ((int *) item[1]) + 7;
3807 - block++;
3808 - }
3809 - /* item points to the wimp menu item structure chosen */
3810 - menu = (vimmenu_T *) item[5];
3811 -
3812 - swi(Wimp_GetPointerInfo, 0, block);
3813 - if (block[2] == 1)
3814 - /* Adjust used - keep menu open */
3815 - swi(Wimp_CreateMenu, 0, wimp_menu);
3816 -
3817 - if (menu-> cb)
3818 - menu-> cb(menu);
3819 - }
3820 -
3821 - void
3822 - ro_open_parent()
3823 - {
3824 - int head;
3825 - char_u *i = curbuf-> b_ffname;
3826 - char_u buffer[256];
3827 -
3828 - head = 0;
3829 - for (; *i; i++)
3830 - {
3831 - if (*i == '.')
3832 - head = i - curbuf-> b_ffname;
3833 - }
3834 -
3835 - /* Append head chars to buffer */
3836 - if (head < 240 && curbuf-> b_ffname && head)
3837 - {
3838 - strcpy(buffer, "%filer_opendir ");
3839 - strncpy(buffer + 15, curbuf-> b_ffname, head);
3840 - buffer[15 + head] = '\0';
3841 - swi(OS_CLI, buffer);
3842 - }
3843 - }
3844 -
3845 - void
3846 - process_event(event, block)
3847 - int event;
3848 - int *block;
3849 - {
3850 - switch (event)
3851 - {
3852 - case 0: /* Nothing - update drag state. */
3853 - if (ro_dragging)
3854 - ro_continue_drag(block);
3855 - break;
3856 - case 1: /* Redraw window. */
3857 - redraw_window(block);
3858 - break;
3859 - case 2: /* Open window. */
3860 - ro_open_window(block);
3861 - break;
3862 - case 3: /* Close window. */
3863 - swi(Wimp_GetPointerInfo, 0, block + 1);
3864 - if (block[3] == 1)
3865 - ro_open_parent();
3866 - else
3867 - if (ro_ok_to_quit())
3868 - ro_quit();
3869 - break;
3870 - case 6: /* Mouse click. */
3871 - ro_mouse(block);
3872 - break;
3873 - case 7: /* Finished drag. */
3874 - ro_drag_finished(block);
3875 - break;
3876 - case 8: /* Key pressed. */
3877 - ro_insert_key((char_u *) &block[6]);
3878 - break;
3879 - case 9:
3880 - ro_menu_selection(block);
3881 - break;
3882 - case 10: /* Scroll request. */
3883 - ro_scroll(block);
3884 - break;
3885 - case 11: /* Lose caret. */
3886 - if (block[0] == gui.window_handle)
3887 - gui_focus_change(FALSE);
3888 - break;
3889 - case 12: /* Gain caret. */
3890 - if (block[0] == gui.window_handle)
3891 - gui_focus_change(TRUE);
3892 - break;
3893 - case 17: /* User message. */
3894 - case 18: /* User message recorded. */
3895 - ro_message(block);
3896 - break;
3897 - }
3898 - }
3899 -
3900 - /*
3901 - * GUI input routine called by gui_wait_for_chars(). Waits for a character
3902 - * from the keyboard.
3903 - * wtime == -1 Wait forever.
3904 - * wtime == 0 This should never happen.
3905 - * wtime > 0 Wait wtime milliseconds for a character.
3906 - * Returns OK if a character was found to be available within the given time,
3907 - * or FAIL otherwise.
3908 - */
3909 - int
3910 - gui_mch_wait_for_chars(long wtime)
3911 - {
3912 - int block[64];
3913 - int reason;
3914 - int start_time = -1;
3915 - int ctime = wtime / 10; /* delay in cs */
3916 -
3917 - if (wtime != -1)
3918 - {
3919 - swi(OS_ReadMonotonicTime);
3920 - start_time = r0;
3921 - }
3922 -
3923 - for (;;)
3924 - {
3925 - if (ro_dragging)
3926 - reason = wimp_poll(0, block); /* Always return immediately */
3927 - else if (wtime == -1)
3928 - reason = wimp_poll(1, block);
3929 - else
3930 - reason = wimp_pollidle(0, block, start_time + ctime);
3931 -
3932 - process_event(reason, block);
3933 -
3934 - if (input_available() || ro_return_early)
3935 - {
3936 - ro_return_early = FALSE;
3937 - return OK; /* There is something to process (key / menu event) */
3938 - }
3939 -
3940 - if (wtime != -1)
3941 - {
3942 - swi(OS_ReadMonotonicTime);
3943 - if (r0 - start_time > ctime)
3944 - return FAIL; /* We've been waiting too long - return failure */
3945 - }
3946 - }
3947 - }
3948 -
3949 - /* Flush any output to the screen */
3950 - void
3951 - gui_mch_flush(void)
3952 - {
3953 - }
3954 -
3955 - /*
3956 - * Clear a rectangular region of the screen from text pos(row1, col1) to
3957 - * (row2, col2) inclusive.
3958 - */
3959 - void
3960 - gui_mch_clear_block(int row1, int col1, int row2, int col2)
3961 - {
3962 - swi(ColourTrans_ReturnGCOL, gui.back_pixel << 8, 0, 0, 1<<7, 0);
3963 - plot_rectangle(96 + 5, r0,
3964 - FILL_X(col1), -FILL_Y(row2 + 1),
3965 - FILL_X(col2 + 1), -FILL_Y(row1));
3966 - }
3967 -
3968 - void
3969 - gui_mch_clear_all(void)
3970 - {
3971 - if (redraw_block)
3972 - {
3973 - swi(ColourTrans_SetGCOL, gui.back_pixel << 8, 0, 0, 1<<7, 0);
3974 - swi(OS_WriteI + 16);
3975 - }
3976 - else
3977 - {
3978 - int block[44];
3979 - block[0] = gui.window_handle;
3980 - block[1] = 0;
3981 - block[2] = -gui.num_rows * gui.char_height;
3982 - block[3] = gui.num_cols * gui.char_width;
3983 - block[4] = 0;
3984 - swi(Wimp_UpdateWindow, 0, block);
3985 - while (r0)
3986 - {
3987 - swi(ColourTrans_SetGCOL, gui.back_pixel << 8, 0, 0, 1<<7, 0);
3988 - swi(OS_WriteI + 16);
3989 - swi(Wimp_GetRectangle, 0, block);
3990 - }
3991 - }
3992 - }
3993 -
3994 - /*
3995 - * Delete the given number of lines from the given row, scrolling up any
3996 - * text further down within the scroll region.
3997 - */
3998 - void
3999 - gui_mch_delete_lines(int row, int num_lines)
4000 - {
4001 - int top_from = -row - num_lines;
4002 - int bot_from = -gui.scroll_region_bot - 1;
4003 - int bot_to = bot_from + num_lines;
4004 -
4005 - swi(ColourTrans_SetGCOL, gui.back_pixel << 8, 0, 0, 0x80, 0);
4006 -
4007 - /* Changed without checking! */
4008 - swi(Wimp_BlockCopy, gui.window_handle,
4009 - gui.scroll_region_left * gui.char_width,
4010 - bot_from * gui.char_height,
4011 - (gui.scroll_region_right - gui.scroll_region_left
4012 - + 1) * gui.char_width,
4013 - top_from * gui.char_height,
4014 -
4015 - gui.scroll_region_left * gui.char_width,
4016 - bot_to * gui.char_height);
4017 -
4018 - gui_clear_block(gui.scroll_region_bot - num_lines + 1,
4019 - gui.scroll_region_left,
4020 - gui.scroll_region_bot, gui.scroll_region_right);
4021 - }
4022 -
4023 - /*
4024 - * Insert the given number of lines before the given row, scrolling down any
4025 - * following text within the scroll region.
4026 - */
4027 - void
4028 - gui_mch_insert_lines(int row, int num_lines)
4029 - {
4030 - int top_from = -row;
4031 - int bot_to = -gui.scroll_region_bot - 1;
4032 - int bot_from = bot_to + num_lines;
4033 -
4034 - swi(ColourTrans_SetGCOL, gui.back_pixel << 8, 0, 0, 0x80, 0);
4035 -
4036 - swi(Wimp_BlockCopy, gui.window_handle,
4037 - gui.scroll_region_left * gui.char_width,
4038 - bot_from * gui.char_height,
4039 - (gui.scroll_region_right - gui.scroll_region_left
4040 - + 1) * gui.char_width,
4041 - top_from * gui.char_height,
4042 -
4043 - gui.scroll_region_left * gui.char_width,
4044 - bot_to * gui.char_height);
4045 -
4046 - gui_clear_block(row, gui.scroll_region_left,
4047 - row + num_lines - 1, gui.scroll_region_right);
4048 - }
4049 -
4050 - /* Put selection in clipboard buffer.
4051 - * Should we become the new owner?
4052 - */
4053 - void
4054 - clip_mch_request_selection(VimClipboard *cbd)
4055 - {
4056 - int block[64]; /* Will be used in Wimp_Poll. */
4057 - int reason;
4058 - char_u *buffer;
4059 - long_u length;
4060 -
4061 - block[0] = 48; /* Size of block. */
4062 - block[3] = 0; /* Original message. */
4063 - block[4] = 0x10; /* Data request. */
4064 - block[5] = gui.window_handle;
4065 - block[6] = RO_LOAD_CLIPBOARD; /* Internal handle. */
4066 - block[7] = block[8] = 0; /* (x,y) not used. */
4067 - block[9] = 4;
4068 - block[10] = 0xfff; /* We want text files if possible, I think. */
4069 - block[11] = -1; /* End of list. */
4070 - swi(Wimp_SendMessage, 17, block, 0); /* Broadcast request. */
4071 -
4072 - /* OK, we've sent the request. Poll until we get a null poll (failure) or
4073 - * we load the clipboard.
4074 - * If we receive a DataSave event with icon handle = -2 then put it on the
4075 - * clipboard. RISC OS should ensure that key events will not be delivered
4076 - * until the clipboard operation completes (unless the owner starts idling
4077 - * - we can't wait forever!).
4078 - */
4079 - for (;;)
4080 - {
4081 - reason = wimp_poll(0, block);
4082 - if (reason == 0)
4083 - return; /* Failed to get clipboard. */
4084 - if ((reason == 17 || reason == 18) &&
4085 - block[4] == 1 && block[6] == RO_LOAD_CLIPBOARD)
4086 - break; /* Got it - stop waiting. */
4087 - process_event(reason, block);
4088 - if (ro_return_early)
4089 - return;
4090 - }
4091 - /* Tell owner to save data in <Wimp$Scrap>. */
4092 - block[0] = 60;
4093 - block[3] = block[2]; /* Copy myref -> yourref */
4094 - block[4] = 2; /* DataSaveAck. */
4095 - block[9] = -1; /* Data is unsafe. */
4096 - strcpy( ((char_u *) block) + 44, "<Wimp$Scrap>");
4097 - swi(Wimp_SendMessage, 17, block, block[1]);
4098 -
4099 - /* Wait again for reply. */
4100 - for (;;)
4101 - {
4102 - reason = wimp_poll(0, block);
4103 - if (reason == 0)
4104 - return; /* Other program has given up! */
4105 - if ((reason == 17 || reason == 18) && block[4] == 3 && block[6] == RO_LOAD_CLIPBOARD)
4106 - break; /* Clipboard data saved to <Wimp$Scrap> */
4107 - process_event(reason, block);
4108 - if (ro_return_early)
4109 - return;
4110 - }
4111 -
4112 - /* <Wimp$Scrap> contains clipboard - load it. */
4113 - if (xswi(OS_File, 17, "<Wimp$Scrap>") & v_flag)
4114 - return; /* Error! */
4115 - if (r0 != 1 && r0 != 3)
4116 - return;
4117 - length = r4;
4118 -
4119 - buffer = lalloc(length, TRUE); /* Claim memory (and report errors). */
4120 - if (buffer == NULL)
4121 - return;
4122 -
4123 - if (xswi(OS_File, 16, "<Wimp$Scrap>", buffer, 0) & v_flag)
4124 - return;
4125 -
4126 - clip_yank_selection(MCHAR, buffer, length, cbd);
4127 -
4128 - vim_free(buffer);
4129 -
4130 - swi(OS_FSControl, 27, "<Wimp$Scrap>", 0, 0); /* Delete temp file. */
4131 -
4132 - block[4] = 4; /* Send DataLoadAck. */
4133 - block[3] = block[2]; /* Copy myref -> yourref. */
4134 - swi(Wimp_SendMessage, 17, block, block[1]);
4135 - }
4136 -
4137 - /* Not sure what this means under RISC OS. */
4138 - void
4139 - clip_mch_lose_selection(VimClipboard *cbd)
4140 - {
4141 - }
4142 -
4143 - /* Tell everyone that we now own the clipboard.
4144 - * Return OK if our claim is accepted (always, under RISC OS)
4145 - */
4146 - int
4147 - clip_mch_own_selection(VimClipboard *cbd)
4148 - {
4149 - int block[6];
4150 - block[0] = 24; /* Length of block. */
4151 - block[3] = 0; /* Original message. */
4152 - block[4] = 0xf; /* ClaimEntity. */
4153 - block[5] = 0x4; /* Claim clipboard only. */
4154 - swi(Wimp_SendMessage, 17, block, 0);
4155 - return OK;
4156 - }
4157 -
4158 - /*
4159 - * Send the current selection to the clipboard. Do nothing for X because we
4160 - * will fill in the selection only when requested by another app. Sounds good
4161 - * for RISC OS too.
4162 - */
4163 - void
4164 - clip_mch_set_selection(VimClipboard *cbd)
4165 - {
4166 - clip_get_selection(cbd);
4167 - }
4168 -
4169 - /*
4170 - * Make a menu either grey or not grey.
4171 - */
4172 - void
4173 - gui_mch_menu_grey(vimmenu_T *menu, int grey)
4174 - {
4175 - menu-> greyed_out = grey;
4176 - }
4177 -
4178 - /*
4179 - * Make menu item hidden or not hidden
4180 - */
4181 - void
4182 - gui_mch_menu_hidden(vimmenu_T *menu, int hidden)
4183 - {
4184 - menu-> hidden = hidden;
4185 - }
4186 -
4187 - /*
4188 - * This is called after setting all the menus to grey/hidden or not.
4189 - */
4190 - void
4191 - gui_mch_draw_menubar(void)
4192 - {
4193 - swi(Wimp_CreateMenu, 0, -1);
4194 - if (wimp_menu != (int *) -1)
4195 - {
4196 - ro_remove_menu(wimp_menu);
4197 - wimp_menu = (int *) -1;
4198 - }
4199 - }
4200 -
4201 - /* Add or remove a scrollbar. Note that this is only called when
4202 - * the scrollbar state is changing.
4203 - * The scroll bar window has already been created.
4204 - * We can't do anything except remove the scroll bar
4205 - * until we know what size to use.
4206 - */
4207 - void
4208 - gui_mch_enable_scrollbar(sb, flag)
4209 - scrollbar_T *sb;
4210 - int flag;
4211 - {
4212 - if (!flag)
4213 - swi(Wimp_CloseWindow, 0, & (sb->id) );
4214 - return;
4215 - }
4216 -
4217 - void
4218 - gui_mch_set_blinking(long waittime, long on, long off)
4219 - {
4220 - }
4221 -
4222 - /*
4223 - * Stop the cursor blinking. Show the cursor if it wasn't shown.
4224 - */
4225 - void
4226 - gui_mch_stop_blink(void)
4227 - {
4228 - }
4229 -
4230 - /*
4231 - * Start the cursor blinking. If it was already blinking, this restarts the
4232 - * waiting time and shows the cursor.
4233 - */
4234 - void
4235 - gui_mch_start_blink(void)
4236 - {
4237 - }
4238 -
4239 - /*
4240 - * Return the RGB value of a pixel as a long.
4241 - */
4242 - long_u
4243 - gui_mch_get_rgb(guicolor_T pixel)
4244 - {
4245 - return (long_u)pixel;
4246 - }
4247 -
4248 - void
4249 - gui_mch_set_text_area_pos(int x, int y, int w, int h)
4250 - {
4251 - }
4252 -
4253 - void
4254 - gui_mch_enable_menu(int flag)
4255 - {
4256 - }
4257 -
4258 - void
4259 - gui_mch_set_menu_pos(int x, int y, int w, int h)
4260 - {
4261 - }
4262 -
4263 - void
4264 - gui_mch_add_menu(vimmenu_T *menu, int idx)
4265 - {
4266 - }
4267 -
4268 - void
4269 - gui_mch_add_menu_item(vimmenu_T *menu, int idx)
4270 - {
4271 - }
4272 -
4273 - void
4274 - gui_mch_new_menu_colors(void)
4275 - {
4276 - }
4277 -
4278 - void
4279 - gui_mch_destroy_menu(vimmenu_T *menu)
4280 - {
4281 - }
4282 -
4283 - /* Size of buffer has changed.
4284 - * Add one to max since gui.c subtracts one more than it should!
4285 - */
4286 - void
4287 - gui_mch_set_scrollbar_thumb(sb, val, size, max)
4288 - scrollbar_T *sb;
4289 - long val;
4290 - long size;
4291 - long max;
4292 - {
4293 - int block[10], width, height;
4294 -
4295 - width = (max + 1) * gui.char_width;
4296 - height = (max + 1 + W_STATUS_HEIGHT(sb->wp)) * gui.char_height;
4297 -
4298 - block[0] = block[3] = 0;
4299 - block[1] = -height + (1 << y_eigen_factor);
4300 - block[2] = width;
4301 -
4302 - swi(Wimp_SetExtent, sb -> id, block);
4303 -
4304 - block[0] = sb -> id;
4305 - swi(Wimp_GetWindowState, 0, block);
4306 - block[5] = val * gui.char_width;
4307 - block[6] = -val * gui.char_height;
4308 - swi(Wimp_OpenWindow, 0, block, 0x4b534154,
4309 - gui.window_handle, /* Parent window handle. */
4310 - (CHILD_FIX_TO_RIGHT << CHILD_LEFT ) |
4311 - (CHILD_FIX_TO_RIGHT << CHILD_RIGHT ) |
4312 - (CHILD_FIX_TO_BOTTOM << CHILD_TOP ) |
4313 - (CHILD_FIX_TO_BOTTOM << CHILD_BOTTOM) |
4314 - (CHILD_SELF_SCROLL << CHILD_SCROLL_X) |
4315 - (CHILD_SELF_SCROLL << CHILD_SCROLL_Y)
4316 - );
4317 - }
4318 -
4319 - /* Set the position of the scrollbar within the editor
4320 - * window. Note that, for vertical scrollbars, x and w
4321 - * are ignored. For horizontal bars y and h are ignored.
4322 - */
4323 - void
4324 - gui_mch_set_scrollbar_pos(sb, x, y, w, h)
4325 - scrollbar_T *sb;
4326 - int x; /* Horizontal sb position */
4327 - int y; /* Top of scroll bar */
4328 - int w; /* Width */
4329 - int h; /* Height */
4330 - {
4331 - int block[24];
4332 - int px1, py1; /* Parent window min coords */
4333 - int px2, py2; /* Parent window max coords */
4334 -
4335 - /* Find where the parent window is. */
4336 - block[0] = gui.window_handle;
4337 - swi(Wimp_GetWindowState, 0, block);
4338 - px1 = block[1];
4339 - py1 = block[2];
4340 - px2 = block[3];
4341 - py2 = block[4];
4342 -
4343 - block[0] = sb -> id;
4344 -
4345 - /* Find out how big the scroll window is at the moment. */
4346 - swi(Wimp_GetWindowInfo, 0, ((char_u *)block) + 1);
4347 -
4348 - if (block[13] < w || block[12] > -h)
4349 - {
4350 - /* Current window is too small! */
4351 - if (block[12] > -h)
4352 - block[12] = -h;
4353 - if (block[13] < w)
4354 - block[13] = w;
4355 - swi(Wimp_SetExtent, block[0], block + 11);
4356 - }
4357 -
4358 - /* This works better on the nested_wimp. */
4359 - if (sb-> wp)
4360 - {
4361 - /* This is a vertical scrollbar. */
4362 - block[1] = block[3] = px2 - gui.scrollbar_width + (1 << x_eigen_factor);
4363 - block[2] = 1 + py2 - (y + h) + (1 << y_eigen_factor);
4364 - block[4] = 1 + py2 - y;
4365 - }
4366 - else
4367 - {
4368 - /* This is a horizontal scrollbar. */
4369 - block[2] = block[4] = py1 + gui.scrollbar_height;
4370 - block[1] = px1;
4371 - block[3] = px2 - gui.scrollbar_width;
4372 - }
4373 -
4374 - block[5] = 0;
4375 - block[6] = 0;
4376 - block[7] = -1;
4377 -
4378 - swi(Wimp_OpenWindow, 0, block, 0x4b534154,
4379 - gui.window_handle, /* Parent window handle. */
4380 - (CHILD_FIX_TO_RIGHT << CHILD_LEFT ) |
4381 - (CHILD_FIX_TO_RIGHT << CHILD_RIGHT ) |
4382 - (CHILD_FIX_TO_BOTTOM << CHILD_TOP ) |
4383 - (CHILD_FIX_TO_BOTTOM << CHILD_BOTTOM) |
4384 - (CHILD_SELF_SCROLL << CHILD_SCROLL_X) |
4385 - (CHILD_SELF_SCROLL << CHILD_SCROLL_Y)
4386 - );
4387 - }
4388 -
4389 - /* Create a window with no workarea to place inside editor window.
4390 - * (what happens without the nested wimp?)
4391 - * Data for scrollbar is invalid.
4392 - */
4393 - void
4394 - gui_mch_create_scrollbar(sb, orient)
4395 - scrollbar_T *sb;
4396 - int orient; /* orient is SBAR_HORIZ or SBAR_VERT */
4397 - {
4398 - int bar[] =
4399 - {
4400 - 0, 0, /* Visible area : min X,Y */
4401 - 100, 100, /* max X,Y */
4402 - 0, 0, /* Scroll offsets */
4403 - -1, /* Window in front */
4404 - 0x80800150 | (orient == SBAR_HORIZ ? (1 << 30) : (1 << 28)),
4405 - 0xff070207, /* Colours */
4406 - 0x000c0103, /* More colours */
4407 - 0, -0x4000, /* Workarea extent */
4408 - 0x4000, 0, /* max X,Y */
4409 - 0x00000000, /* No title */
4410 - 0 << 12, /* No workarea button type */
4411 - 1, /* Wimp sprite area */
4412 - 0x00010001, /* Minimum width, height */
4413 - 0, 0, 0, /* Title data (none) */
4414 - 0 /* No icons */
4415 - };
4416 - swi(Wimp_CreateWindow, 0, bar);
4417 - sb -> id = r0;
4418 - }
4419 -
4420 - #if defined(FEAT_WINDOWS) || defined(PROTO)
4421 - void
4422 - gui_mch_destroy_scrollbar(scrollbar_T *sb)
4423 - {
4424 - swi(Wimp_DeleteWindow, 0, & (sb->id));
4425 - sb -> id = -1;
4426 - }
4427 - #endif
4428 -
4429 - void
4430 - gui_mch_set_scrollbar_colors(scrollbar_T *sb)
4431 - {
4432 - /* Always use default RO colour scheme. */
4433 - }
4434 -
4435 - /*
4436 - * Get current mouse coordinates in text window.
4437 - * Note: (0,0) is the bottom left corner, positive y is UP.
4438 - */
4439 - void
4440 - gui_mch_getmouse(x, y)
4441 - int *x;
4442 - int *y;
4443 - {
4444 - int left;
4445 - int top;
4446 - int block[10];
4447 -
4448 - block[0] = gui.window_handle;
4449 - swi(Wimp_GetWindowState, 0, block);
4450 - left = block[1];
4451 - top = block[4];
4452 -
4453 - swi(Wimp_GetPointerInfo, 0, block);
4454 - *x = block[0] - left;
4455 - *y = top - block[1];
4456 - }
4457 -
4458 - /* MouseTo(x, y) */
4459 - void
4460 - gui_mch_setmouse(x, y)
4461 - int x;
4462 - int y;
4463 - {
4464 - }
4465 -
4466 - void
4467 - gui_mch_toggle_tearoffs(enable)
4468 - int enable;
4469 - {
4470 - /* no tearoff menus */
4471 - }
4472 -
4473 - /* Redraw a window's title.
4474 - * For the nested wimp we use the new 'redraw-title-bar' reason code.
4475 - * For older wimps we mark the area of the screen where the title bar
4476 - * is as invalid.
4477 - */
4478 - void
4479 - ro_redraw_title(window)
4480 - int window;
4481 - {
4482 - if (nested_wimp)
4483 - {
4484 - swi(Wimp_ForceRedraw, window, 0x4b534154, 3);
4485 - }
4486 - else
4487 - {
4488 - int block[10];
4489 - int miny;
4490 -
4491 - block[0] = window;
4492 - swi(Wimp_GetWindowState, 0, block);
4493 - miny = block[4];
4494 - swi(Wimp_GetWindowOutline, 0, block);
4495 - swi(Wimp_ForceRedraw, -1,
4496 - block[1], miny,
4497 - block[3], block[4]);
4498 - }
4499 - }
4500 -
4501 - /* Turn a vimmenu_T structure into a wimp menu structure.
4502 - * -1 if resulting menu is empty.
4503 - * Only the children and dname items in the root menu are used.
4504 - */
4505 - int *
4506 - ro_build_menu(menu)
4507 - vimmenu_T *menu;
4508 - {
4509 - int *wimp_menu;
4510 - int width = 4;
4511 - int w;
4512 - int size = 28;
4513 - vimmenu_T *item;
4514 - int *wimp_item;
4515 -
4516 - /* Find out how big the menu is so we can allocate memory for it */
4517 - for (item = menu-> children; item; item = item-> next)
4518 - {
4519 - if (item-> hidden == FALSE && !menu_is_separator(item->name))
4520 - size += 24;
4521 - }
4522 -
4523 - if (size <= 28)
4524 - return (int *) -1; /* No children - shouldn't happen */
4525 -
4526 - wimp_menu = (int *) alloc(size);
4527 -
4528 - wimp_menu[0] = (int) menu-> dname;
4529 - wimp_menu[1] = -1;
4530 - wimp_menu[2] = 0;
4531 - wimp_menu[3] = 0x00070207;
4532 - wimp_menu[5] = 44;
4533 - wimp_menu[6] = 0;
4534 -
4535 - wimp_item = wimp_menu + 7;
4536 -
4537 - for (item = menu-> children; item; item = item-> next)
4538 - {
4539 - if (menu_is_separator(item-> name))
4540 - {
4541 - /* This menu entry is actually a separator. If it is not the first
4542 - * menu entry then mark the previous menu item as needing a dotted
4543 - * line after it.
4544 - */
4545 - if (wimp_item > wimp_menu + 7)
4546 - wimp_item[-6] |= 0x2;
4547 - }
4548 - else if (item-> hidden == FALSE)
4549 - {
4550 - wimp_item[0] = 0;
4551 - wimp_item[1] = item-> children ? (int) ro_build_menu(item) : -1;
4552 - wimp_item[2] = 0x07009131 | (item-> greyed_out << 22);
4553 - wimp_item[3] = (int) item-> dname;
4554 - wimp_item[4] = -1;
4555 - wimp_item[5] = (int) item; /* Stuff the menu address in this unused space */
4556 -
4557 - w = strlen(item-> dname) + 1;
4558 - if (w > width)
4559 - width = w;
4560 - wimp_item += 6;
4561 - }
4562 - }
4563 -
4564 - wimp_menu[4] = (width + 2) * 16;
4565 - wimp_menu[7] |= 0x100; /* Menu title is indirected */
4566 - wimp_item[-6] |= 0x080; /* Last entry in menu */
4567 - return wimp_menu;
4568 - }
4569 -
4570 - static void
4571 - ro_remove_menu(menu)
4572 - int *menu;
4573 - {
4574 - int *item = menu + 7;
4575 -
4576 - if (menu == NULL || menu == (int *) -1)
4577 - return;
4578 -
4579 - for (;;)
4580 - {
4581 - if (item[1] != -1)
4582 - ro_remove_menu((int *) item[1]); /* Remove sub-menu */
4583 - if (item[0] & 0x80)
4584 - break; /* This was the last entry */
4585 - item += 6;
4586 - }
4587 - vim_free(menu);
4588 - }
4589 -
4590 - void
4591 - gui_mch_show_popupmenu(menu)
4592 - vimmenu_T *menu;
4593 - {
4594 - int block[10];
4595 -
4596 - /* Remove the existing menu, if any */
4597 - if (wimp_menu != (int *) -1)
4598 - {
4599 - swi(Wimp_CreateMenu, 0, -1);
4600 - ro_remove_menu(wimp_menu);
4601 - wimp_menu = (int *) -1;
4602 - }
4603 -
4604 - wimp_menu = ro_build_menu(menu);
4605 - if (wimp_menu != (int *) -1)
4606 - {
4607 - swi(Wimp_GetPointerInfo, 0, block);
4608 - swi(Wimp_CreateMenu, 0, wimp_menu, block[0] - 64, block[1] + 64);
4609 - }
4610 - }
4611 -
4612 - /* Run a command using the TaskWindow module.
4613 - * If SHELL_FILTER is set then output is not echoed to the screen,
4614 - * If it is not set, then \r is not sent to the output file.
4615 - */
4616 - int
4617 - gui_mch_call_shell(cmd, options)
4618 - char_u *cmd;
4619 - int options; /* SHELL_FILTER if called by do_filter() */
4620 - /* SHELL_COOKED if term needs cooked mode */
4621 - {
4622 - char_u task_cmd[256]; /* Contains *TaskWindow command. */
4623 - int block[64];
4624 - int reason;
4625 - char_u *out;
4626 - char_u c;
4627 - int old_msg_col;
4628 - char_u *out_redir;
4629 - int length;
4630 - FILE *out_file = NULL;
4631 -
4632 - out_redir = strstr(cmd, " > ");
4633 - if (out_redir == NULL)
4634 - length = strlen(cmd); /* No redirection. */
4635 - else
4636 - {
4637 - length = out_redir - cmd;
4638 - out_file = fopen(out_redir + 3, "wb");
4639 - if (out_file == NULL)
4640 - smsg("WARNING : Can't open file %s for writing\n", out_redir + 3);
4641 - }
4642 -
4643 - if (length > 180)
4644 - {
4645 - if (out_file)
4646 - fclose(out_file);
4647 - return FAIL; /* Command too long. */
4648 - }
4649 -
4650 - strcpy(task_cmd, "TaskWindow \"");
4651 - strncpy(task_cmd + 12, cmd, length);
4652 - sprintf(task_cmd + 12 + length,
4653 - "\" -task &%08x -ctrl -quit -name \"Vim command\"",
4654 - task_handle);
4655 -
4656 - if (options & SHELL_COOKED)
4657 - settmode(TMODE_COOK);
4658 -
4659 - if (xswi(Wimp_StartTask, task_cmd) & v_flag)
4660 - {
4661 - /* Failed to even start a new task (out of memory?) */
4662 - settmode(TMODE_RAW);
4663 - if (out_file)
4664 - fclose(out_file);
4665 - return FAIL;
4666 - }
4667 -
4668 - /* Wait for the child process to initialise. */
4669 - child_handle = 0;
4670 - while (!child_handle)
4671 - {
4672 - reason = wimp_poll(0, block);
4673 - if ((reason == 17 || reason == 18) && block[4] == 0x808c2)
4674 - child_handle = block[1];
4675 - else
4676 - process_event(reason, block);
4677 - }
4678 -
4679 - /* Block until finished */
4680 - while (child_handle)
4681 - {
4682 - reason = wimp_poll(1, block);
4683 - if (reason == 3 || (reason == 8 && block[6] == 3))
4684 - {
4685 - /* Close window request or CTRL-C - kill child task. */
4686 - block[0] = 20;
4687 - block[3] = 0;
4688 - block[4] = 0x808c4; /* Morite */
4689 - swi(Wimp_SendMessage, 17, block, child_handle);
4690 - MSG_PUTS(_("\nSending message to terminate child process.\n"));
4691 - continue;
4692 - }
4693 - else if (reason == 8)
4694 - {
4695 - block[0] = 28;
4696 - block[3] = 0;
4697 - block[4] = 0x808c0; /* Input */
4698 - block[5] = 1;
4699 - /* Block[6] is OK as it is! */
4700 - swi(Wimp_SendMessage, 17, block, child_handle);
4701 - continue;
4702 - }
4703 - else if (reason == 17 || reason == 18)
4704 - {
4705 - if (block[4] == 0x808c1)
4706 - {
4707 - /* Ack message. */
4708 - block[3] = block[2];
4709 - swi(Wimp_SendMessage, 19, block, block[1]);
4710 - out = (char_u *)block + 24;
4711 - old_msg_col = msg_col;
4712 - while (block[5]--)
4713 - {
4714 - c = *out++;
4715 - if (out_file && (c != '\r' || (options & SHELL_FILTER)))
4716 - fputc(c, out_file);
4717 - if ((options & SHELL_FILTER) == 0)
4718 - {
4719 - if (c == 127)
4720 - msg_puts("\b \b");
4721 - else if (c > 31)
4722 - msg_putchar(c);
4723 - else if (c == 10)
4724 - {
4725 - lines_left = 8; /* Don't do More prompt! */
4726 - msg_putchar(10);
4727 - }
4728 - }
4729 - }
4730 - /* Flush output to the screen. */
4731 - windgoto(msg_row, msg_col);
4732 - out_flush();
4733 - continue;
4734 - }
4735 - }
4736 - process_event(reason, block);
4737 - }
4738 - msg_putchar('\n');
4739 - settmode(TMODE_RAW);
4740 - if (out_file)
4741 - fclose(out_file);
4742 - return OK;
4743 - }
4744 -
4745 - /* Like strsave(), but stops at any control char */
4746 - char_u *
4747 - wimp_strsave(str)
4748 - char *str;
4749 - {
4750 - int strlen = 0;
4751 - char_u *retval;
4752 - while (str[strlen] > 31)
4753 - strlen++;
4754 - retval = alloc(strlen + 1);
4755 - if (retval)
4756 - {
4757 - memcpy(retval, str, strlen);
4758 - retval[strlen] = '\0';
4759 - }
4760 - return retval;
4761 - }
4762 -
4763 - /* If we are saving then pop up a standard RISC OS save box.
4764 - * Otherwise, open a directory viewer on the given directory (and return NULL)
4765 - * The string we return will be freed later.
4766 - */
4767 - char_u *
4768 - gui_mch_browse(saving, title, dflt, ext, initdir, filter)
4769 - int saving; /* write action */
4770 - char_u *title; /* title for the window */
4771 - char_u *dflt; /* default file name */
4772 - char_u *ext; /* extension added */
4773 - char_u *initdir; /* initial directory, NULL for current dir */
4774 - char_u *filter; /* file name filter */
4775 - {
4776 - char command[256];
4777 - int length;
4778 -
4779 - if (saving)
4780 - {
4781 - int block[64];
4782 - int reason;
4783 - int done_save = FALSE;
4784 - char_u *retval = NULL;
4785 - char_u *sprname;
4786 - char_u *fname;
4787 - int dragging_icon = FALSE;
4788 - int filetype;
4789 -
4790 - if (!dflt)
4791 - dflt = "TextFile";
4792 -
4793 - block[0] = save_window;
4794 - block[1] = 0;
4795 - swi(Wimp_GetIconState, 0, block);
4796 - sprname = ((char_u *) block[7]);
4797 - block[1] = 1;
4798 - swi(Wimp_GetIconState, 0, block);
4799 - fname = ((char *) block[7]);
4800 - strncpy(fname, dflt, 255);
4801 -
4802 - if (xswi(OS_FSControl, 31, curbuf->b_p_oft) & v_flag)
4803 - {
4804 - filetype = 0xfff;
4805 - strcpy(sprname + 5, "xxx");
4806 - }
4807 - else
4808 - {
4809 - filetype = r2;
4810 - sprintf(sprname + 5, "%03x", filetype);
4811 - }
4812 -
4813 - /* Open the save box */
4814 -
4815 - swi(Wimp_GetPointerInfo, 0, block);
4816 - swi(Wimp_CreateMenu, 0, save_window, block[0] - 64, block[1] + 64);
4817 - swi(Wimp_SetCaretPosition, save_window, 1, 0, 0, -1, -1);
4818 -
4819 - while (!done_save)
4820 - {
4821 - reason = wimp_poll(1, block);
4822 - switch (reason)
4823 - {
4824 - case 1:
4825 - redraw_window(block);
4826 - break;
4827 - case 2:
4828 - if (block[0] == save_window)
4829 - swi(Wimp_OpenWindow, 0, block);
4830 - else
4831 - ro_open_window(block);
4832 - break;
4833 - case 3:
4834 - done_save = TRUE;
4835 - break;
4836 - case 6:
4837 - if (block[3] != save_window)
4838 - done_save = TRUE;
4839 - else
4840 - {
4841 - int drag_box[4];
4842 - int min_x, max_y;
4843 -
4844 - switch (block[4])
4845 - {
4846 - case 0: /* Start drag */
4847 - block[0] = save_window;
4848 - swi(Wimp_GetWindowState, 0, block);
4849 - min_x = block[1];
4850 - max_y = block[4];
4851 - block[1] = 0;
4852 - swi(Wimp_GetIconState, 0, block);
4853 - drag_box[0] = block[2] + min_x;
4854 - drag_box[1] = block[3] + max_y;
4855 - drag_box[2] = block[4] + min_x;
4856 - drag_box[3] = block[5] + max_y;
4857 -
4858 - swi(DragASprite_Start,
4859 - 0x45,
4860 - 1,
4861 - sprname,
4862 - drag_box);
4863 - dragging_icon = TRUE;
4864 - break;
4865 - case 2: /* OK */
4866 - retval = wimp_strsave(fname);
4867 - done_save = TRUE;
4868 - break;
4869 - case 3: /* Cancel */
4870 - done_save = TRUE;
4871 - break;
4872 - }
4873 - }
4874 - break;
4875 - case 7:
4876 - if (dragging_icon)
4877 - {
4878 - int len = 0;
4879 -
4880 - dragging_icon = FALSE;
4881 - swi(Wimp_GetPointerInfo, 0, block);
4882 - block[5] = block[3];
4883 - block[6] = block[4];
4884 - block[7] = block[0];
4885 - block[8] = block[1];
4886 - block[9] = 0; /* Don't know the size */
4887 - block[10] = filetype;
4888 -
4889 - while (fname[len] > 31)
4890 - {
4891 - if (fname[len] == '.')
4892 - {
4893 - fname += len + 1;
4894 - len = 0;
4895 - }
4896 - else
4897 - len++;
4898 - }
4899 - if (len > 211)
4900 - len = 211;
4901 -
4902 - memcpy(((char_u *) block) + 44, fname, len);
4903 - ((char_u *)block)[44 + len] = '\0';
4904 -
4905 - block[0] = (len + 48) & 0xfc;
4906 - block[3] = 0;
4907 - block[4] = 1; /* DataSave */
4908 -
4909 - swi(Wimp_SendMessage, 17, block, block[5], block[6]);
4910 - }
4911 - else
4912 - ro_drag_finished(block);
4913 - break;
4914 - case 8:
4915 - if (block[6] == 13)
4916 - {
4917 - retval = wimp_strsave(fname);
4918 - done_save = TRUE;
4919 - }
4920 - else if (block[6] == 0x1b)
4921 - done_save = TRUE;
4922 - else
4923 - swi(Wimp_ProcessKey, block[6]);
4924 - break;
4925 - case 17:
4926 - case 18:
4927 - if (block[4] == 2 && block[9] != -1)
4928 - {
4929 - /* DataSaveAck from dragging icon. */
4930 - retval = wimp_strsave(((char_u *) block) + 44);
4931 - done_save = TRUE;
4932 - }
4933 - else if (block[4] == 0x400c9)
4934 - {
4935 - /* MenusDeleted */
4936 - done_save = TRUE;
4937 - }
4938 - else
4939 - ro_message(block);
4940 - break;
4941 - }
4942 - }
4943 - block[0] = save_window;
4944 - swi(Wimp_CloseWindow, 0, block);
4945 - swi(Wimp_GetCaretPosition, 0, block);
4946 - if (block[0] == -1)
4947 - swi(Wimp_SetCaretPosition, gui.window_handle, -1, 0, 0, -1, -1);
4948 -
4949 - return retval;
4950 - }
4951 - else if (initdir)
4952 - {
4953 - /* Open a directory viewer */
4954 - length = strlen(initdir);
4955 -
4956 - if (length > 240)
4957 - return NULL; /* Path too long! */
4958 -
4959 - length = sprintf(command, "Filer_OpenDir %s", initdir);
4960 - while (command[length - 1] == '.')
4961 - length--;
4962 - command[length] = '\0';
4963 - swi(OS_CLI, command);
4964 - }
4965 - return NULL;
4966 - }
4967 --- 0 ----
4968 *** ../vim-7.3.186/src/os_riscos.c 2010-08-15 21:57:27.000000000 +0200
4969 --- src/os_riscos.c 1970-01-01 01:00:00.000000000 +0100
4970 ***************
4971 *** 1,1292 ****
4972 - /* vi:set ts=8 sts=4 sw=4:
4973 - *
4974 - * VIM - Vi IMproved by Bram Moolenaar
4975 - *
4976 - * Do ":help uganda" in Vim to read copying and usage conditions.
4977 - * Do ":help credits" in Vim to see a list of people who contributed.
4978 - * See README.txt for an overview of the Vim source code.
4979 - */
4980 -
4981 - #include "vim.h"
4982 -
4983 - /*
4984 - * os_riscos.c
4985 - *
4986 - * Thomas Leonard <tal197@ecs.soton.ac.uk>
4987 - */
4988 -
4989 - const char *__dynamic_da_name = "Vim heap"; /* Enable and name our dynamic area */
4990 - int ro_line_mode = TRUE; /* For Ex mode we much echo chars to the screen ourselves */
4991 - int windowed; /* Flag - are we running inside a text window? */
4992 - int WinLeft, WinTop; /* We might be started inside a text window */
4993 - int ScrollTop; /* Make cursor movements relative to ScrollTop. */
4994 -
4995 - int old_escape_state = -1;
4996 - int old_cursor_state = -1;
4997 -
4998 - #define rgb(r,g,b) ((b<<24) + (g<<16) + (r<<8))
4999 - #define NORMAL_FG 0x00000000
5000 - #define NORMAL_BG 0xffffffff
5001 -
5002 - /* Convert a DOS colour number to an RGB palette entry.
5003 - * Mappings from X11 rgb/txt file.
5004 - */
5005 - static int
5006 - map_colour(dos)
5007 - int dos; /* Standard DOS colour number. */
5008 - {
5009 - switch (dos)
5010 - {
5011 - case 0: return 0; /* Black */
5012 - case 1: return rgb(0,0,139); /* DarkBlue */
5013 - case 2: return rgb(0,100,0); /* DarkGreen */
5014 - case 3: return rgb(0,139,139); /* DarkCyan */
5015 - case 4: return rgb(139,0,0); /* DarkRed */
5016 - case 5: return rgb(139,0,139); /* DarkMagenta */
5017 - case 6: return rgb(165,42,42); /* Brown, DarkYellow */
5018 - case 7: return rgb(211,211,211); /* LightGray, LightGrey, Gray, Grey */
5019 - case 8: return rgb(169,169,169); /* DarkGray, DarkGrey */
5020 - case 9: return rgb(173,216,230); /* Blue, LightBlue */
5021 - case 10: return rgb(144,238,144); /* Green, LightGreen */
5022 - case 11: return rgb(224,255,255); /* Cyan, LightCyan */
5023 - case 12: return rgb(255,0,0); /* Red, LightRed */
5024 - case 13: return rgb(255,0,255); /* Magenta, LightMagenta */
5025 - case 14: return rgb(255,255,0); /* Yellow, LightYellow */
5026 - case 15: return rgb(255,255,255); /* White */
5027 - }
5028 - return rgb(100,100,100);
5029 - }
5030 -
5031 - static void
5032 - text_fg(fg)
5033 - int fg; /* Foregound colour in the form &BBGGRR00 */
5034 - {
5035 - xswi(ColourTrans_SetTextColour, fg, 0, 0, 0);
5036 - }
5037 -
5038 - static void
5039 - text_bg(bg)
5040 - int bg; /* Backgound colour in the form &BBGGRR00 */
5041 - {
5042 - xswi(ColourTrans_SetTextColour, bg, 0, 0, 1 << 7);
5043 - }
5044 -
5045 - #define OUT_NORMAL 0
5046 - #define OUT_NUMBER 1 /* Reading in a number */
5047 -
5048 - void
5049 - mch_write(s, len)
5050 - char_u *s;
5051 - int len;
5052 - {
5053 - static int mode = OUT_NORMAL;
5054 - static int x, y; /* For reading numbers in. */
5055 -
5056 - if (!term_console)
5057 - {
5058 - /* Maybe we are running Vim remotely - don't interpret chars */
5059 - while (len--)
5060 - {
5061 - char_u c = *s++;
5062 - swi(OS_WriteC, c);
5063 - /* We might need to send a CR too. This shouldn't
5064 - * hurt if we don't need it, should it?
5065 - */
5066 - if (c == 10)
5067 - swi(OS_WriteI + 13);
5068 - }
5069 - return;
5070 - }
5071 -
5072 - while (len--)
5073 - {
5074 - char_u c = *s++;
5075 - switch (mode)
5076 - {
5077 - case OUT_NUMBER:
5078 - if (c < '0' || c > '9')
5079 - {
5080 - mode = OUT_NORMAL;
5081 - }
5082 - else
5083 - {
5084 - x = (x * 10) + c - '0';
5085 - continue;
5086 - }
5087 - /* note: no break here! */
5088 -
5089 - case OUT_NORMAL:
5090 - switch (c)
5091 - {
5092 - case 1:
5093 - /* Number (in decimal) follows. */
5094 - mode = OUT_NUMBER;
5095 - y = x;
5096 - x = 0;
5097 - break;
5098 - case 2:
5099 - /* Position cursor. */
5100 - swi(OS_WriteI + 31);
5101 - swi(OS_WriteC, x);
5102 - swi(OS_WriteC, y - ScrollTop);
5103 - break;
5104 - case 3:
5105 - /* Set scroll region. */
5106 - if (x == Rows -1 && y == 0 && !windowed)
5107 - {
5108 - /* Whole screen - remove text window.
5109 - * This is MUCH faster.
5110 - */
5111 - swi(OS_WriteI + 26);
5112 - }
5113 - else
5114 - {
5115 - /* Create a text window. */
5116 - swi(OS_WriteI + 28);
5117 - swi(OS_WriteC, WinLeft);
5118 - swi(OS_WriteC, WinTop + x);
5119 - swi(OS_WriteC, WinLeft + Columns - 1);
5120 - swi(OS_WriteC, WinTop + y);
5121 - }
5122 - ScrollTop = y;
5123 - break;
5124 - case 4:
5125 - /* Normal mode. */
5126 - text_fg(NORMAL_FG);
5127 - text_bg(NORMAL_BG);
5128 - break;
5129 - case 5:
5130 - /* Reverse mode. */
5131 - text_fg(NORMAL_BG);
5132 - text_bg(NORMAL_FG);
5133 - break;
5134 - case 10:
5135 - swi(OS_NewLine);
5136 - break;
5137 - case 14:
5138 - /* Cursor invisible. */
5139 - swi(OS_WriteN,
5140 - "\027\001\000\000\000\000\000\000\000\000",
5141 - 10);
5142 - break;
5143 - case 15:
5144 - /* Cursor visible. */
5145 - swi(OS_WriteN,
5146 - "\027\001\002\000\000\000\000\000\000\000",
5147 - 10);
5148 - break;
5149 - case 16:
5150 - /* Cursor very visible (flash) */
5151 - swi(OS_WriteN,
5152 - "\027\001\003\000\000\000\000\000\000\000",
5153 - 10);
5154 - case 17:
5155 - /* Set foreground colour. */
5156 - text_fg(map_colour(x));
5157 - break;
5158 - case 18:
5159 - /* Set background colour. */
5160 - text_bg(map_colour(x));
5161 - break;
5162 - case 19:
5163 - /* Scroll text down. */
5164 - swi(OS_WriteN,
5165 - "\027\007\000\002\000\000\000\000\000\000",
5166 - 10);
5167 - break;
5168 - default:
5169 - swi(OS_WriteC, c);
5170 - }
5171 - continue;
5172 -
5173 - default:
5174 - printf("[output error]");
5175 - mode = OUT_NORMAL;
5176 - }
5177 - }
5178 - }
5179 -
5180 - /*
5181 - * mch_inchar(): low level input funcion.
5182 - * Get a characters from the keyboard.
5183 - * Return the number of characters that are available.
5184 - * If wtime == 0 do not wait for characters.
5185 - * If wtime == n wait n msecs for characters.
5186 - * If wtime == -1 wait forever for characters.
5187 - *
5188 - * TODO: call convert_input() for 'fileencoding' to 'encoding' conversion.
5189 - */
5190 - int
5191 - mch_inchar(buf, maxlen, wtime, tb_change_cnt)
5192 - char_u *buf;
5193 - int maxlen;
5194 - long wtime;
5195 - int tb_change_cnt;
5196 - {
5197 - int got=0;
5198 - unsigned int start_time = clock();
5199 -
5200 - if (ro_line_mode)
5201 - {
5202 - /* We're probably in Ex mode - get whole lines at a time. */
5203 -
5204 - static char_u line_buffer[256];
5205 - static int remaining_chars = 0;
5206 - static int buf_pos = 0;
5207 -
5208 - /* Do we need to fetch another line? */
5209 - if (remaining_chars == 0)
5210 - {
5211 - int old_esc_state;
5212 - swi(OS_Byte, 200, 1, 0xfe);
5213 - old_esc_state = r1;
5214 -
5215 - buf_pos = 0;
5216 - if (xswi(OS_ReadLine, line_buffer, 255, 0, 255) & (c_flag | v_flag))
5217 - {
5218 - got_int = TRUE; /* ESC pressed */
5219 - r1 = 0;
5220 - }
5221 - line_buffer[r1] = 13;
5222 - remaining_chars = r1 + 1; /* Count CR as part of input */
5223 -
5224 - swi(OS_Byte, 200, old_esc_state, 0);
5225 - }
5226 -
5227 - /* Can we send the rest of the buffer back in one go? */
5228 - if (remaining_chars <= maxlen)
5229 - {
5230 - int got = remaining_chars;
5231 -
5232 - memcpy(buf, line_buffer + buf_pos, got);
5233 - remaining_chars = 0;
5234 - return got;
5235 - }
5236 -
5237 - /* Send as much as we can */
5238 - memcpy(buf, line_buffer + buf_pos, maxlen);
5239 - buf_pos += maxlen;
5240 - remaining_chars -= maxlen;
5241 -
5242 - return maxlen;
5243 - }
5244 -
5245 - if (!term_console)
5246 - {
5247 - /* Use OS_ReadC for all input.
5248 - * Avoids problems with remote access getting interference from
5249 - * the keyboard.
5250 - */
5251 - if (wtime == 0)
5252 - return 0; /* Ignore quick key checks */
5253 -
5254 - if (xswi(OS_ReadC) & c_flag)
5255 - {
5256 - got_int = TRUE; /* ESC pressed - can this happen? */
5257 - swi(OS_Byte, 124); /* Clear Escape state */
5258 - r0 = 0x1b; /* It *might* not have been Escape! */
5259 - }
5260 - buf[0] = r0;
5261 - return 1;
5262 - }
5263 -
5264 - /*
5265 - * OK, here's the plan:
5266 - *
5267 - * 1) Wait until wtime expires or we get a key
5268 - * 2) Get keys until the keyboard buffer is empty or buf is full
5269 - */
5270 -
5271 - while (xswi(OS_Byte,145,0) & c_flag)
5272 - {
5273 - /* Nothing at all in the keyboard buffer.
5274 - * Has our time expired yet?
5275 - */
5276 - if ( (wtime != -1) && (clock() - start_time) >= wtime )
5277 - return 0; /* Nothing read - giving up */
5278 - }
5279 -
5280 - /* We've got one char (in r2) - are there any more? */
5281 -
5282 - while (got < maxlen)
5283 - {
5284 - buf[got++] = r2;
5285 -
5286 - if (xswi(OS_Byte,145,0) & c_flag)
5287 - return got; /* Keyboard buffer empty */
5288 - }
5289 - return got; /* buf is full */
5290 - }
5291 -
5292 - /*
5293 - * return non-zero if a character is available
5294 - */
5295 - int
5296 - mch_char_avail()
5297 - {
5298 - if (!term_console)
5299 - return 0; /* Can't tell */
5300 - if (xswi(OS_Byte, 152, 0) & c_flag)
5301 - return 0;
5302 - return 1;
5303 - }
5304 -
5305 - /* Find out how much free memory we have.
5306 - * I don't know how to work this out exactly but, since we can claim
5307 - * more memory from the OS, let's just report the free pool size.
5308 - * Dynamic area 6 doesn't exist pre 3.6 according to StrongHelp, so
5309 - * we'll use Wimp_SlotSize. If that fails (outside the desktop?)
5310 - * then just return a big number and hope.
5311 - */
5312 - long_u
5313 - mch_avail_mem(special)
5314 - int special;
5315 - {
5316 - if (xswi(Wimp_SlotSize, -1, -1) & v_flag)
5317 - return 0x7fffffff;
5318 - return r2;
5319 - }
5320 -
5321 - void
5322 - mch_delay(msec, ignoreinput)
5323 - long msec;
5324 - int ignoreinput;
5325 - {
5326 - int start_time, time_now;
5327 - int csec = msec / 10;
5328 -
5329 - swi(OS_ReadMonotonicTime);
5330 - start_time = r0;
5331 -
5332 - for (;;)
5333 - {
5334 - swi(OS_ReadMonotonicTime);
5335 - time_now = r0;
5336 - if (time_now - start_time > csec)
5337 - return;
5338 - #ifdef FEAT_GUI
5339 - /* In the GUI, allow other programs to run while waiting. */
5340 - if (gui.in_use)
5341 - gui_mch_wait_for_chars(start_time + csec);
5342 - #endif
5343 - }
5344 - }
5345 -
5346 - /*
5347 - * If the machine has job control, use it to suspend the program,
5348 - * otherwise fake it by starting a new shell.
5349 - */
5350 - void
5351 - mch_suspend()
5352 - {
5353 - suspend_shell();
5354 - }
5355 -
5356 - void
5357 - mch_init()
5358 - {
5359 - /*
5360 - * Read window size first. Calls to mch_get_shellsize() will
5361 - * simply return these values in future so that setting the
5362 - * text window (used for scrolling) won't give strange results.
5363 - */
5364 -
5365 - int buf[7] = {132, 135, 256, 257, 1, 2, -1};
5366 -
5367 - /* Command windows are no longer forced open, since if we are
5368 - * in the desktop then we'll use the GUI version.
5369 - * Opening a command window here messes up the GUI version startup
5370 - */
5371 - #ifndef FEAT_GUI
5372 - swi(OS_WriteI);
5373 - #endif
5374 - swi(OS_ReadVduVariables, buf, buf);
5375 - WinLeft = buf[0];
5376 - WinTop = buf[1];
5377 - Columns = buf[2];
5378 - Rows = buf[3] + 1; /* Seems to be one off (VduVars wrong?) */
5379 - ScrollTop = 0;
5380 -
5381 - /* Are we running in a textwindow? */
5382 - if (Rows == buf[5] + 1 && Columns == buf[4] + 1)
5383 - windowed = 0;
5384 - else
5385 - windowed = 1;
5386 -
5387 - /* Choose a nice colour scheme. */
5388 - text_fg(NORMAL_FG);
5389 - text_bg(NORMAL_BG);
5390 - }
5391 -
5392 - /*
5393 - * Check_win checks whether we have an interactive stdout.
5394 - */
5395 - /* ARGSUSED */
5396 - int
5397 - mch_check_win(argc, argv)
5398 - int argc;
5399 - char **argv;
5400 - {
5401 - return OK;
5402 - }
5403 -
5404 - /*
5405 - * Return TRUE if the input comes from a terminal, FALSE otherwise.
5406 - */
5407 - int
5408 - mch_input_isatty()
5409 - {
5410 - if (xswi(OS_ChangeRedirection, -1, -1) & v_flag)
5411 - return TRUE; /* Error - TRUE is probably correct though */
5412 - if (r0 == 0)
5413 - return TRUE;
5414 - return FALSE;
5415 - }
5416 -
5417 - #ifdef FEAT_TITLE
5418 - int
5419 - mch_can_restore_title()
5420 - {
5421 - return FALSE;
5422 - }
5423 -
5424 - int
5425 - mch_can_restore_icon()
5426 - {
5427 - return FALSE;
5428 - }
5429 -
5430 -
5431 - /*
5432 - * Set the window title and icon.
5433 - */
5434 - void
5435 - mch_settitle(title, icon)
5436 - char_u *title;
5437 - char_u *icon;
5438 - {
5439 - if (title == NULL)
5440 - title = (char_u *) "<untitled>";
5441 - #ifdef FEAT_GUI
5442 - if (gui.in_use && strcmp(title, gui.window_title))
5443 - {
5444 - int length;
5445 - length = strlen(title);
5446 - if (length >= gui.window_title_size)
5447 - length = gui.window_title_size - 1;
5448 - strncpy(gui.window_title, title, length);
5449 - gui.window_title[length] = 0;
5450 - ro_redraw_title(gui.window_handle);
5451 - }
5452 - #endif
5453 - return;
5454 - }
5455 -
5456 - /*
5457 - * Restore the window/icon title.
5458 - * "which" is one of:
5459 - * 1 only restore title
5460 - * 2 only restore icon
5461 - * 3 restore title and icon
5462 - */
5463 - void
5464 - mch_restore_title(which)
5465 - int which;
5466 - {
5467 - return;
5468 - }
5469 - #endif
5470 -
5471 - /*
5472 - * Insert user name in s[len].
5473 - * Return OK if a name found.
5474 - */
5475 - int
5476 - mch_get_user_name(s, len)
5477 - char_u *s;
5478 - int len;
5479 - {
5480 - /* RISC OS doesn't support user names. */
5481 - *s = NUL;
5482 - return FAIL;
5483 - }
5484 -
5485 - /*
5486 - * Insert host name in s[len].
5487 - */
5488 -
5489 - void
5490 - mch_get_host_name(s, len)
5491 - char_u *s;
5492 - int len;
5493 - {
5494 - if (xswi(OS_ReadVarVal, "Machine$Name", s, len, 0, 3) & v_flag)
5495 - {
5496 - /* Variable does not exist (normal operation) */
5497 - vim_strncpy(s, "(unknown)", len - 1);
5498 - }
5499 - }
5500 -
5501 - /*
5502 - * return process ID
5503 - */
5504 - long
5505 - mch_get_pid()
5506 - {
5507 - if (xswi(Wimp_ReadSysInfo, 5) & v_flag)
5508 - return 0;
5509 - return r0;
5510 - }
5511 -
5512 - /*
5513 - * Get name of current directory into buffer 'buf' of length 'len' bytes.
5514 - * Return OK for success, FAIL for failure.
5515 - */
5516 - int
5517 - mch_dirname(buf, len)
5518 - char_u *buf;
5519 - int len;
5520 - {
5521 - if (xswi(OS_FSControl, 37, "@", buf, 0, 0, len) & v_flag)
5522 - return FAIL;
5523 - return OK;
5524 - }
5525 -
5526 - /*
5527 - * Get absolute file name into buffer 'buf' of length 'len' bytes.
5528 - *
5529 - * return FAIL for failure, OK for success
5530 - */
5531 - int
5532 - mch_FullName(fname, buf, len, force)
5533 - char_u *fname, *buf;
5534 - int len;
5535 - int force; /* Also expand when already absolute path name.
5536 - * Not used under RISC OS.
5537 - */
5538 - {
5539 - if (xswi(OS_FSControl, 37, fname, buf, 0, 0, len) & v_flag)
5540 - return FAIL;
5541 - return OK;
5542 - }
5543 -
5544 - /*
5545 - * Return TRUE if "fname" does not depend on the current directory.
5546 - */
5547 - int
5548 - mch_isFullName(fname)
5549 - char_u *fname;
5550 - {
5551 - if (strstr(fname, "::") && strstr(fname,".$."))
5552 - return TRUE;
5553 - return FALSE;
5554 - }
5555 -
5556 - /*
5557 - * Get file permissions for 'name'.
5558 - * Returns -1 when it doesn't exist.
5559 - */
5560 - long
5561 - mch_getperm(name)
5562 - char_u *name;
5563 - {
5564 - struct stat statb;
5565 -
5566 - if (stat((char *)name, &statb))
5567 - return -1;
5568 - return statb.st_mode;
5569 - }
5570 -
5571 - /*
5572 - * set file permission for 'name' to 'perm'
5573 - *
5574 - * return FAIL for failure, OK otherwise
5575 - */
5576 - int
5577 - mch_setperm(name, perm)
5578 - char_u *name;
5579 - long perm;
5580 - {
5581 - return (chmod((char *)name, (mode_t)perm) == 0 ? OK : FAIL);
5582 - }
5583 -
5584 - /*
5585 - * Set hidden flag for "name".
5586 - */
5587 - /* ARGSUSED */
5588 - void
5589 - mch_hide(name)
5590 - char_u *name;
5591 - {
5592 - /* can't hide a file */
5593 - }
5594 -
5595 - /*
5596 - * return TRUE if "name" is a directory
5597 - * return FALSE if "name" is not a directory
5598 - * return FALSE for error
5599 - */
5600 - int
5601 - mch_isdir(name)
5602 - char_u *name;
5603 - {
5604 - if (xswi(OS_File, 17, name) & v_flag)
5605 - return FALSE;
5606 - if (r0 == 2 || r0 == 3)
5607 - return TRUE; /* Count image files as directories. */
5608 - return FALSE;
5609 - }
5610 -
5611 - /*
5612 - * Return 1 if "name" can be executed, 0 if not.
5613 - * Return -1 if unknown. Requires which to work.
5614 - */
5615 - int
5616 - mch_can_exe(name)
5617 - char_u *name;
5618 - {
5619 - char_u *buf;
5620 - char_u *p;
5621 - int retval;
5622 -
5623 - buf = alloc((unsigned)STRLEN(name) + 7);
5624 - if (buf == NULL)
5625 - return -1;
5626 - sprintf((char *)buf, "which %s", name);
5627 - p = get_cmd_output(buf, NULL, SHELL_SILENT);
5628 - vim_free(buf);
5629 - if (p == NULL)
5630 - return -1;
5631 - /* result can be: "name: Command not found" */
5632 - retval = (*p != NUL && strstr((char *)p, "not found") == NULL);
5633 - vim_free(p);
5634 - return retval;
5635 - }
5636 -
5637 - /*
5638 - * Check what "name" is:
5639 - * NODE_NORMAL: file or directory (or doesn't exist)
5640 - * NODE_WRITABLE: writable device, socket, fifo, etc.
5641 - * NODE_OTHER: non-writable things
5642 - */
5643 - int
5644 - mch_nodetype(name)
5645 - char_u *name;
5646 - {
5647 - /* TODO */
5648 - return NODE_NORMAL;
5649 - }
5650 -
5651 - void
5652 - mch_early_init()
5653 - {
5654 - /* Turn off all the horrible filename munging in UnixLib. */
5655 - int __riscosify_control = __RISCOSIFY_NO_PROCESS;
5656 - }
5657 -
5658 - void
5659 - mch_exit(r)
5660 - int r;
5661 - {
5662 - settmode(TMODE_COOK);
5663 - exiting = TRUE;
5664 - out_flush();
5665 - ml_close_all(TRUE); /* remove all memfiles */
5666 -
5667 - #ifdef FEAT_GUI
5668 - if (gui.in_use)
5669 - gui_exit(r);
5670 - #endif
5671 - swi(OS_NewLine);
5672 - if (old_escape_state != -1)
5673 - swi(OS_Byte, 229, old_escape_state, 0);
5674 - if (old_cursor_state != -1)
5675 - swi(OS_Byte, 4, old_cursor_state);
5676 - exit(r);
5677 - }
5678 -
5679 - void
5680 - mch_settmode(tmode)
5681 - int tmode; /* TMODE_RAW or TMODE_COOK */
5682 - {
5683 - if (tmode == TMODE_COOK)
5684 - {
5685 - ro_line_mode = TRUE;
5686 - return;
5687 - }
5688 -
5689 - ro_line_mode = FALSE;
5690 -
5691 - if (term_console)
5692 - {
5693 - /* Block cursor. */
5694 - swi(OS_WriteN,
5695 - "\027\000\012\000\000\000\000\000\000\000",
5696 - 10);
5697 -
5698 - /* Disable the standard cursor key actions. */
5699 - swi(OS_Byte, 4, 1);
5700 - if (old_cursor_state == -1)
5701 - old_cursor_state = r1;
5702 - }
5703 -
5704 - /* Stop Escape from quitting Vim! */
5705 - swi(OS_Byte, 229, 1, 0);
5706 - if (old_escape_state == -1)
5707 - old_escape_state = r1;
5708 - }
5709 -
5710 - /*
5711 - * set mouse clicks on or off (only works for xterms)
5712 - */
5713 - void
5714 - mch_setmouse(on)
5715 - int on;
5716 - {
5717 - }
5718 -
5719 - /*
5720 - * set screen mode, always fails.
5721 - */
5722 - /* ARGSUSED */
5723 - int
5724 - mch_screenmode(arg)
5725 - char_u *arg;
5726 - {
5727 - EMSG(_(e_screenmode));
5728 - return FAIL;
5729 - }
5730 -
5731 - /*
5732 - * Try to get the current window size.
5733 - * Return OK when size could be determined, FAIL otherwise.
5734 - * Simply return results stored by mch_init() if we are the
5735 - * machine's console. If not, we don't know how big the screen is.
5736 - */
5737 - int
5738 - mch_get_shellsize()
5739 - {
5740 - /* if size changed: screenalloc will allocate new screen buffers */
5741 - return term_console ? OK : FAIL;
5742 - }
5743 -
5744 - /*
5745 - * Can't change the size.
5746 - * Assume the user knows what he's doing and use the new values.
5747 - */
5748 - void
5749 - mch_set_shellsize()
5750 - {
5751 - /* Assume the user knows what he's doing and use the new values. */
5752 - }
5753 -
5754 - /*
5755 - * Rows and/or Columns has changed.
5756 - */
5757 - void
5758 - mch_new_shellsize()
5759 - {
5760 - /* Nothing to do. */
5761 - }
5762 -
5763 - int
5764 - mch_call_shell(cmd, options)
5765 - char_u *cmd;
5766 - int options; /* SHELL_*, see vim.h */
5767 - {
5768 - int retval;
5769 - int tmode = cur_tmode;
5770 -
5771 - if (cmd == NULL)
5772 - cmd = (char_u *) "GOS";
5773 -
5774 - #ifdef FEAT_GUI
5775 - if (gui.in_use)
5776 - return gui_mch_call_shell(cmd, options);
5777 - #endif
5778 - if (options & SHELL_COOKED)
5779 - settmode(TMODE_COOK); /* set to normal mode */
5780 - MSG_PUTS("\n");
5781 -
5782 - /* I don't even want to think about what UnixLib must
5783 - * be doing to allow this to work...
5784 - */
5785 - retval = system(cmd);
5786 - if (retval && !(options & SHELL_SILENT))
5787 - EMSG(strerror(EOPSYS)); /* Doesn't seem to set errno? */
5788 -
5789 - swi(OS_Byte, 229, 1, 0); /* Re-disable escape */
5790 - if (tmode == TMODE_RAW)
5791 - settmode(TMODE_RAW); /* set to raw mode */
5792 - return retval ? FAIL : OK;
5793 - }
5794 -
5795 - /*
5796 - * Check for Escape being pressed right now.
5797 - * [ different if !term_console? ]
5798 - */
5799 - void
5800 - mch_breakcheck()
5801 - {
5802 - if (xswi(OS_Byte, 121, 0xf0) & v_flag)
5803 - return;
5804 - if (r1 == 0xff)
5805 - {
5806 - got_int = TRUE;
5807 - swi(OS_Byte, 15, 1); /* Flush input buffer */
5808 - }
5809 - }
5810 -
5811 - /*
5812 - * Recursively expand one path component into all matching files and/or
5813 - * directories.
5814 - * "path" has backslashes before chars that are not to be expanded.
5815 - * Return the number of matches found.
5816 - */
5817 - int
5818 - mch_expandpath(gap, path, flags)
5819 - garray_T *gap; /* Grow array for results. */
5820 - char_u *path;
5821 - int flags; /* EW_* flags */
5822 - {
5823 - int got; /* Number of matches. */
5824 - char_u *pattern;
5825 -
5826 - /* Plan:
5827 - *
5828 - * 1) Get first part of path - no wildcards
5829 - * 2) Get next path element (wildcarded)
5830 - * 3) Get rest of path
5831 - *
5832 - * If (3) is nothing then only the leaf is wildcarded - add to gap
5833 - * Otherwise call recursively for each path in (2), passing (3)
5834 - *
5835 - * This is just the header function.
5836 - */
5837 -
5838 - /* We must be able to modifiy path, so make a copy */
5839 - pattern = vim_strsave(path);
5840 - if (pattern == NULL)
5841 - return 0;
5842 - got = expand_section(gap, (char_u *)"", pattern, flags);
5843 - vim_free(pattern);
5844 - return got;
5845 - }
5846 -
5847 - /*
5848 - * expand_section(gap, "$.Dir1.Dir2", "ABBA*.myleaf##")
5849 - *
5850 - * calls expand_section(gap, "$.Dir1.Dir2.ABBA_Gold", "myleaf##")
5851 - * and expand_section(gap, "$.Dir1.Dir2.ABBA_Live", "myleaf##")
5852 - *
5853 - * If rest is just a leaf then all matches are added to gap.
5854 - *
5855 - * Returns number of items added to gap.
5856 - */
5857 - int
5858 - expand_section(gap, root, rest, flags)
5859 - garray_T *gap;
5860 - char_u *root; /* Non-wildcarded path to search */
5861 - char_u *rest; /* Wildcarded remainder of path */
5862 - int flags; /* Add dirs/files/missing objects. */
5863 - {
5864 - static char_u buf[MAXPATHL]; /* Temporary buffer. */
5865 - char_u dir[MAXPATHL];
5866 - int start_element = -1; /* Start of wildcarded element */
5867 - char_u c;
5868 - int i;
5869 - int got, dir_pos;
5870 - int buflen; /* Chars used in buf[] */
5871 - int colon = 0; /* Dir ends in ':' */
5872 -
5873 - buflen = strlen(root);
5874 - STRNCPY(buf, root, buflen); /* Copy root into buffer. */
5875 -
5876 - /*
5877 - * Find end of nonwildcarded section.
5878 - * Count ':' as a path sep since Vim:Bug* is a valid pathname.
5879 - */
5880 -
5881 - for (i = 0; c = rest[i]; i++)
5882 - {
5883 - if (c == PATHSEP)
5884 - {
5885 - start_element = i;
5886 - colon = 0;
5887 - }
5888 - if (c == ':')
5889 - {
5890 - start_element = i + 1;
5891 - colon = 1;
5892 - }
5893 - if (c == '#' || c == '*')
5894 - break;
5895 - }
5896 - if (c == 0)
5897 - start_element = i;
5898 -
5899 - /*
5900 - * start_element +> terminator for non-wildcarded section.
5901 - * Transfer this bit into buf.
5902 - */
5903 - if (buflen + start_element + 4 >= MAXPATHL)
5904 - return 0; /* Buffer full */
5905 - if (start_element >= 0)
5906 - {
5907 - if (*root && !colon)
5908 - buf[buflen++] = PATHSEP;
5909 - strncpy(buf + buflen, rest, start_element);
5910 - buflen += start_element;
5911 - }
5912 - buf[buflen] = 0;
5913 -
5914 - /*
5915 - * Did we reach the end of the string without hitting any wildcards?
5916 - */
5917 - if (c == 0)
5918 - {
5919 - /* Yes - add combined path to grow array and return. */
5920 - addfile(gap, buf, flags);
5921 - return 1;
5922 - }
5923 -
5924 - if (start_element < 0 || !colon)
5925 - start_element++;
5926 - rest += start_element;
5927 -
5928 - /*
5929 - * rest does contain wildcards if we get here.
5930 - *
5931 - * Now : have we reached the leaf names part yet?
5932 - * If so, add all matches (files and dirs) to gap.
5933 - * If not, get next path element and scan all matching directories.
5934 - */
5935 -
5936 - start_element = -1;
5937 - for (i = 0; rest[i]; i++)
5938 - {
5939 - if (rest[i] == '.')
5940 - {
5941 - start_element = i;
5942 - rest[i] = 0; /* Break string here. */
5943 - break;
5944 - }
5945 - }
5946 -
5947 - /* If start_element is -1 then we are matching leaf names */
5948 -
5949 - r3 = 0; /* Number of objs read. */
5950 - dir_pos = 0; /* Position through directory. */
5951 - got = 0; /* Files added so far. */
5952 - while (dir_pos != -1)
5953 - {
5954 - buf[buflen] = 0;
5955 - if (xswi(OS_GBPB, 9,
5956 - buf, /* Directory to scan. */
5957 - buf + buflen + (1 - colon), /* Buffer for result. */
5958 - 1, /* Number of objects to read. */
5959 - dir_pos, /* Search position. */
5960 - MAXPATHL - 2 - buflen, /* Size of result buffer. */
5961 - rest) /* Wildcarded leafname. */
5962 - & v_flag)
5963 - {
5964 - EMSG(r0 + 4);
5965 - r4 = -1;
5966 - }
5967 - dir_pos = r4; /* r4 corrupted by addfile() */
5968 - if (r3 > 0)
5969 - {
5970 - char_u *path = buf;
5971 - if (buflen == 0)
5972 - path++; /* Don't do '.File' */
5973 - else if (!colon)
5974 - buf[buflen] = '.'; /* Join path and leaf */
5975 -
5976 - /* Path -> full path of object found */
5977 - if (start_element == -1)
5978 - {
5979 - addfile(gap, path, flags);
5980 - got++;
5981 - }
5982 - else
5983 - {
5984 - /* Scan into subdirectories and images; ignore files */
5985 - swi(OS_File, 17, path);
5986 - if (r0 == 2 || r0 == 3)
5987 - got += expand_section(gap,
5988 - path,
5989 - rest + start_element + 1,
5990 - flags);
5991 - }
5992 - }
5993 - }
5994 -
5995 - /* Restore the dot if we removed it. */
5996 - if (start_element >= 0)
5997 - rest[start_element] = '.';
5998 - return got;
5999 - }
6000 -
6001 - /*
6002 - * mch_expand_wildcards() - this code does wild-card pattern matching using
6003 - * the shell. It isn't used under RISC OS.
6004 - *
6005 - * return OK for success, FAIL for error (you may lose some memory) and put
6006 - * an error message in *file.
6007 - *
6008 - * num_pat is number of input patterns
6009 - * pat is array of pointers to input patterns
6010 - * num_file is pointer to number of matched file names
6011 - * file is pointer to array of pointers to matched file names
6012 - */
6013 - int
6014 - mch_expand_wildcards(num_pat, pat, num_file, file, flags)
6015 - int num_pat;
6016 - char_u **pat;
6017 - int *num_file;
6018 - char_u ***file;
6019 - int flags; /* EW_* flags */
6020 - {
6021 - /* This doesn't get called unless SPECIAL_WILDCHAR is defined. */
6022 - return FAIL;
6023 - }
6024 -
6025 - /*
6026 - * Return TRUE if "p" contains wildcards which can be expanded by
6027 - * mch_expandpath().
6028 - */
6029 - int
6030 - mch_has_exp_wildcard(p)
6031 - char_u *p;
6032 - {
6033 - if (vim_strpbrk((char_u *)"*#", p))
6034 - return TRUE;
6035 - return FALSE;
6036 - }
6037 -
6038 - /* Return TRUE if "p" contains wildcards. */
6039 - int
6040 - mch_has_wildcard(p)
6041 - char_u *p;
6042 - {
6043 - if (vim_strpbrk((char_u *)"*#`", p))
6044 - return TRUE;
6045 - return FALSE;
6046 - }
6047 -
6048 - int /* see Unix unlink(2) */
6049 - mch_remove(file)
6050 - char_u *file; /* Name of file to delete. */
6051 - {
6052 - if (xswi(OS_FSControl, 27, file, 0, 0) & v_flag)
6053 - return EXIT_FAILURE;
6054 - return EXIT_SUCCESS;
6055 - }
6056 -
6057 - /* Try to make existing scripts work without modification.
6058 - * Return a pointer to the new string (freed by caller), or NULL
6059 - *
6060 - * Two main cases:
6061 - * - Absolute : $VIM/syntax/help.vim
6062 - * - Relative : Adfs::4.$.!Vim.Resources.Syntax/help.vim
6063 - */
6064 - char_u *
6065 - mch_munge_fname(fname)
6066 - char_u *fname;
6067 - {
6068 - char_u c;
6069 - int len;
6070 - char_u *retval;
6071 -
6072 - retval = fname = vim_strsave(fname);
6073 - if (fname == NULL)
6074 - return NULL;
6075 -
6076 - if (strncmp(fname, "$VIM/", 5) == 0)
6077 - {
6078 - strncpy(fname, "Vim:", 4);
6079 - for (fname += 5; c = *fname; fname++)
6080 - {
6081 - if (c == '.')
6082 - break;
6083 - if (c == '/')
6084 - fname[-1] = '.';
6085 - else
6086 - fname[-1] = c;
6087 - }
6088 - fname[-1] = '\0';
6089 - }
6090 - else
6091 - {
6092 - /* Check to see if the file exists without modification. */
6093 - if (xswi(OS_File, 17, fname) & v_flag)
6094 - r0 == 0; /* Invalid filename? */
6095 - if (r0)
6096 - return retval;
6097 -
6098 - len = strlen(fname);
6099 - if (strcmp(fname + len - 4, ".vim") == 0)
6100 - {
6101 - fname[len - 4] = '\0';
6102 - for (; c = *fname; fname++)
6103 - {
6104 - if (c == '/')
6105 - *fname = '.';
6106 - }
6107 - }
6108 - }
6109 - return retval;
6110 - }
6111 -
6112 - /* QuickFix reads munged names from the error file.
6113 - * Correct them.
6114 - */
6115 - int
6116 - ro_buflist_add(old_name)
6117 - char_u *old_name; /* Name of file found by quickfix */
6118 - {
6119 - char_u *fname;
6120 - char_u *leaf; /* Pointer to start of leaf in old_name */
6121 - char_u *ptr;
6122 - char_u c;
6123 - int retval;
6124 -
6125 - if (old_name == NULL)
6126 - return buflist_add(NULL, 0);
6127 -
6128 - /* Copy the name so we can mess around with it. */
6129 - fname = vim_strsave(old_name);
6130 - if (fname == NULL)
6131 - /* Out of memory - can't modify name */
6132 - return buflist_add(old_name, 0);
6133 -
6134 - /* Change `dir/main.c' into `dir.c.main' */
6135 - leaf = fname;
6136 - for (ptr = fname; c = *ptr; ptr++)
6137 - {
6138 - if (c == '/')
6139 - {
6140 - leaf = ptr + 1;
6141 - *ptr = '.';
6142 - }
6143 - else if (c == '.')
6144 - break;
6145 - }
6146 - if (c == '.')
6147 - {
6148 - /* Change `main.c' into `c.main'
6149 - * | |
6150 - * leaf ptr
6151 - */
6152 - ptr += old_name - fname;
6153 - *ptr = '\0';
6154 - sprintf(leaf,
6155 - "%s.%s",
6156 - ptr + 1,
6157 - leaf - fname + old_name);
6158 - }
6159 -
6160 - retval = buflist_add(fname, 0);
6161 - free(fname);
6162 - return retval;
6163 - }
6164 -
6165 - /* Change the current directory.
6166 - * Strip trailing dots to make it easier to use with filename completion.
6167 - * Return 0 for success, -1 for failure.
6168 - */
6169 - int
6170 - mch_chdir(dir)
6171 - char_u *dir;
6172 - {
6173 - int length;
6174 - int retval;
6175 - char_u *new_dir;
6176 -
6177 - if (p_verbose >= 5)
6178 - {
6179 - verbose_enter();
6180 - smsg((char_u *)"chdir(%s)", dir);
6181 - verbose_leave();
6182 - }
6183 - length = strlen(dir);
6184 - if (dir[length - 1] != '.')
6185 - return chdir(dir); /* No trailing dots - nothing to do. */
6186 - new_dir = vim_strsave(dir);
6187 - if (new_dir == NULL)
6188 - return chdir(dir); /* Can't allocate memory. */
6189 -
6190 - while (new_dir[--length] == '.')
6191 - new_dir[length] = '\0';
6192 -
6193 - retval = chdir(new_dir);
6194 - vim_free(new_dir);
6195 - return retval;
6196 - }
6197 -
6198 - /* Examine the named file, and set the 'osfiletype' option
6199 - * (in curbuf) to the file's type.
6200 - */
6201 - void
6202 - mch_read_filetype(file)
6203 - char_u *file;
6204 - {
6205 - int type;
6206 - char_u type_string[9];
6207 - int i;
6208 -
6209 - if (xswi(OS_File, 23, file) & v_flag)
6210 - type = 0xfff; /* Default to Text */
6211 - else
6212 - type = r6;
6213 -
6214 - /* Type is the numerical value - see if we have a textual equivalent */
6215 - swi(OS_FSControl, 18, 0, type);
6216 - ((int *) type_string)[0] = r2;
6217 - ((int *) type_string)[1] = r3;
6218 - type_string[8] = 0;
6219 - for (i = 0; type_string[i] > ' '; i++)
6220 - ;
6221 - type_string[i] = 0;
6222 -
6223 - set_string_option_direct("osfiletype", -1, type_string, OPT_FREE, 0);
6224 - return;
6225 - }
6226 -
6227 - void
6228 - mch_set_filetype(file, type)
6229 - char_u *file;
6230 - char_u *type;
6231 - {
6232 - if (xswi(OS_FSControl, 31, type) & v_flag)
6233 - {
6234 - EMSG(_("E366: Invalid 'osfiletype' option - using Text"));
6235 - r2 = 0xfff;
6236 - }
6237 -
6238 - swi(OS_File, 18, file, r2);
6239 - }
6240 -
6241 - /* Return TRUE if the file's type matches 'type'
6242 - * RISC OS types always start with '&'
6243 - */
6244 - int
6245 - mch_check_filetype(fname, type)
6246 - char_u *fname;
6247 - char_u *type;
6248 - {
6249 - int value;
6250 - char *end;
6251 -
6252 - if (*type != '&')
6253 - return FALSE;
6254 -
6255 - value = strtol(type + 1, &end, 16);
6256 - if (*end)
6257 - return FALSE; /* Invalid type (report error?) */
6258 -
6259 - if (xswi(OS_File, 23, fname) & v_flag)
6260 - return FALSE; /* Invalid filename? */
6261 -
6262 - return (r0 && r6 == value);
6263 - }
6264 --- 0 ----
6265 *** ../vim-7.3.186/runtime/doc/os_risc.txt 2010-08-15 21:57:16.000000000 +0200
6266 --- runtime/doc/os_risc.txt 2011-05-10 16:19:25.000000000 +0200
6267 ***************
6268 *** 1,322 ****
6269 ! *os_risc.txt* For Vim version 7.3. Last change: 2010 Aug 07
6270
6271
6272 VIM REFERENCE MANUAL by Thomas Leonard
6273
6274
6275 *riscos* *RISCOS* *RISC-OS*
6276 ! This file contains the particularities for the RISC OS version of Vim.
6277
6278 - The RISC OS port is a completely new port and is not based on the old "archi"
6279 - port.
6280
6281 - 1. File locations |riscos-locations|
6282 - 2. Filename munging |riscos-munging|
6283 - 3. Command-line use |riscos-commandline|
6284 - 4. Desktop (GUI) use |riscos-gui|
6285 - 5. Remote use (telnet) |riscos-remote|
6286 - 6. Temporary files |riscos-temp-files|
6287 - 7. Interrupting |riscos-interrupt|
6288 - 8. Memory usage |riscos-memory|
6289 - 9. Filetypes |riscos-filetypes|
6290 - 10. The shell |riscos-shell|
6291 - 11. Porting new releases |riscos-porting|
6292 -
6293 - If I've missed anything, email me and I'll try to fix it. In fact, even if I
6294 - haven't missed anything then email me anyway to give me some confidence that it
6295 - actually works!
6296 -
6297 - Thomas Leonard <tal197@ecs.soton.ac.uk>
6298 -
6299 - [these URLs no longer work...]
6300 - Port homepage: http://www.ecs.soton.ac.uk/~tal197/
6301 - or try: http://www.soton.ac.uk/~tal197/
6302 -
6303 - ==============================================================================
6304 - *riscos-locations*
6305 - 1. File locations
6306 -
6307 - The Vim executable and shared resource files are all stored inside the !Vim
6308 - application directory.
6309 -
6310 - When !Vim is first seen by the filer, it aliases the *vi and *ex commands to
6311 - run the command-line versions of Vim (see |riscos-commandline|).
6312 -
6313 - !Vim.Resources and !Vim.Resources2 contain the files from the standard Vim
6314 - distribution, but modified slightly to work within the limits of ADFS, plus
6315 - some extra files such as the window templates.
6316 -
6317 - User choices are read from "Choices:*" and are saved to "<Choices$Write>.*".
6318 - If you have the new !Boot structure then these should be set up already. If
6319 - not, set Choices$Path to a list of directories to search when looking for
6320 - user configuration files. Set Choices$Write to the directory you want files
6321 - to be saved into (so your search patterns and marks can be remembered between
6322 - sessions).
6323 -
6324 - ==============================================================================
6325 - *riscos-munging*
6326 - 2. Filename munging
6327 -
6328 - All pathname munging is disabled by default, so Vim should behave like a
6329 - normal RISC OS application now. So, if you want to edit "doc/html" then you
6330 - actually type "*vi doc/html".
6331 -
6332 - The only times munging is done is when:
6333 -
6334 - - Searching included files from C programs, since these are always munged.
6335 - See |[I|.
6336 - Note: make sure you are in the right directory when you use this
6337 - command (i.e. the one with subdirectories "c" and "h").
6338 -
6339 - - Sourcing files using |:so|.
6340 - Paths starting "$VIM/" are munged like this:
6341 -
6342 - $VIM/syntax/help.vim -> Vim:syntax.help
6343 -
6344 - Also, files ending in ".vim" have their extensions removed, and slashes
6345 - replaced with dots.
6346 -
6347 - Some tag files and script files may have to be edited to work under this port.
6348 -
6349 - ==============================================================================
6350 - *riscos-commandline*
6351 - 3. Command-line use
6352 -
6353 - To use Vim from the command-line use the "*vi" command (or "*ex" for
6354 - |Ex-mode|).
6355 -
6356 - Type "*vi -h" for a list of options.
6357 -
6358 - Running the command-line version of Vim in a large high-color mode may cause
6359 - the scrolling to be very slow. Either change to a mode with fewer colors or
6360 - use the GUI version.
6361 -
6362 - Also, holding down Ctrl will slow it down even more, and Ctrl-Shift will
6363 - freeze it, as usual for text programs.
6364 -
6365 - ==============================================================================
6366 - *riscos-gui*
6367 - 4. Desktop use
6368 -
6369 - Limitations:
6370 -
6371 - - Left scrollbars don't work properly (right and bottom are fine).
6372 - - Doesn't increase scroll speed if it gets behind.
6373 -
6374 - You can resize the window by dragging the lower-right corner, even though
6375 - there is no icon shown there.
6376 -
6377 - You can use the --rows and --columns arguments to specify the initial size of
6378 - the Vim window, like this: >
6379 -
6380 - *Vi -g --rows 20 --columns 80
6381 -
6382 - The global clipboard is supported, so you can select some text and then
6383 - paste it directly into another application (provided it supports the
6384 - clipboard too).
6385 -
6386 - Clicking Menu now opens a menu like a normal RISC OS program. Hold down Shift
6387 - when clicking Menu to paste (from the global clipboard).
6388 -
6389 - Dragging a file to the window replaces the CURRENT buffer (the one with the
6390 - cursor, NOT the one you dragged to) with the file.
6391 -
6392 - Dragging with Ctrl held down causes a new Vim window to be opened for the
6393 - file (see |:sp|).
6394 -
6395 - Dragging a file in with Shift held down in insert mode inserts the pathname of
6396 - the file.
6397 -
6398 - :browse :w opens a standard RISC OS save box.
6399 - :browse :e opens a directory viewer.
6400 -
6401 - For fonts, you have the choice of the system font, an outline font, the system
6402 - font via ZapRedraw and any of the Zap fonts via ZapRedraw: >
6403 -
6404 - :set guifont=
6405 - < To use the system font via the VDU drivers. Supports
6406 - bold and underline.
6407 - >
6408 - :set guifont=Corpus.Medium
6409 - < Use the named outline font. You can use any font, but
6410 - only monospaced ones like Corpus look right.
6411 - >
6412 - :set guifont=Corpus.Medium:w8:h12:b:i
6413 - < As before, but with size of 8 point by 12 point, and
6414 - in bold italic.
6415 - If only one of width and height is given then that
6416 - value is used for both. If neither is given then 10
6417 - point is used.
6418 -
6419 - Thanks to John Kortink, Vim can use the ZapRedraw module. Start the font name
6420 - with "!" (or "!!" for double height), like this: >
6421 -
6422 - :set guifont=!!
6423 - < Use the system font, but via ZapRedraw. This gives a
6424 - faster redraw on StrongARM processors, but you can't
6425 - get bold or italic text. Double height.
6426 - >
6427 - :set guifont=!script
6428 - < Uses the named Zap font (a directory in VimFont$Path).
6429 - The redraw is the same speed as for "!!", but you get
6430 - a nicer looking font.
6431 - Only the "man+" and "script" fonts are supplied
6432 - currently, but you can use any of the Zap fonts if
6433 - they are in VimFont$Path.
6434 - Vim will try to load font files "0", "B", "I" and "IB"
6435 - from the named directory. Only "0" (normal style) MUST
6436 - be present. Link files are not currently supported.
6437 -
6438 - Note that when using ZapRedraw the edit bar is drawn in front of the character
6439 - you are on rather than behind it. Also redraw is incorrect for screen modes
6440 - with eigen values of 0. If the font includes control characters then you can
6441 - get Vim to display them by changing the 'isprint' option.
6442 -
6443 - If you find the scrolling is too slow on your machine, try experimenting
6444 - with the 'scrolljump' and 'ttyscroll' options.
6445 -
6446 - In particular, StrongARM users may find that: >
6447 -
6448 - :set ttyscroll=0
6449 -
6450 - makes scrolling faster in high-color modes.
6451 -
6452 - =============================================================================
6453 - *riscos-remote*
6454 - 5. Remote use (telnet)
6455 -
6456 - I have included a built-in termcap entry, but you can edit the termcap file to
6457 - allow other codes to be used if you want to use Vim from a remote terminal.
6458 -
6459 - Although I do not have an internet connection to my Acorn, I have managed to
6460 - run Vim in a FreeTerm window using the loopback connection.
6461 -
6462 - It seems to work pretty well now, using "*vi -T ansi".
6463 -
6464 - ==============================================================================
6465 - *riscos-temp-files*
6466 - 6. Temporary files
6467 -
6468 - If Vim crashes then the swap and backup files (if any) will be in the
6469 - directories set with the 'directory' and 'bdir' options. By default the swap
6470 - files are in <Wimp$ScrapDir> (i.e. inside !Scrap) and backups are in the
6471 - directory you were saving to. Vim will allow you to try and recover the file
6472 - when you next try to edit it.
6473 -
6474 - To see a list of swap files, press <F12> and type "*vi -r".
6475 -
6476 - Vim no longer brings up ATTENTION warnings if you try to edit two files with
6477 - the same name in different directories.
6478 -
6479 - However, it also no longer warns if you try to edit the same file twice (with
6480 - two copies of Vim), though you will still be warned when you save that the
6481 - datestamp has changed.
6482 -
6483 - ==============================================================================
6484 - *riscos-interrupt*
6485 - 7. Interrupting
6486 -
6487 - To break out of a looping macro, or similar, hold down Escape in the
6488 - command-line version, or press CTRL-C in the GUI version.
6489 -
6490 - ==============================================================================
6491 - *riscos-memory*
6492 - 8. Memory usage
6493 -
6494 - Vim will use dynamic areas on RISC OS 3.5 or later. If you can use them on
6495 - older machines then edit the !RunTxt and GVim files. I don't know what UnixLib
6496 - does by default on these machines so I'm playing safe.
6497 -
6498 - It doesn't work at all well without dynamic areas, since it can't change its
6499 - memory allocation once running. Hence you should edit "!Vim.GVim" and
6500 - "!Vim.!RunTxt" to choose the best size for you. You probably need at least
6501 - about 1400K.
6502 -
6503 - ==============================================================================
6504 - *riscos-filetypes*
6505 - 9. Filetypes
6506 -
6507 - You can now specify that autocommands are only executed for files of certain
6508 - types. The filetype is given in the form &xxx, when xxx is the filetype.
6509 -
6510 - Filetypes must be specified by number (e.g. &fff for Text).
6511 -
6512 - The system has changed from version 5.3. The new sequence of events is:
6513 -
6514 - - A file is loaded. |'osfiletype'| is set to the RISC OS filetype.
6515 - - Based on the filetype and pathname, Vim will try to set |'filetype'| to the
6516 - Vim-type of the file.
6517 - - Setting this option may load syntax files and perform other actions.
6518 - - Saving the file will give it a filetype of |'osfiletype'|.
6519 -
6520 - Some examples may make this clearer:
6521 -
6522 - Kind of file loaded osfiletype filetype ~
6523 - C code "c.hellow" Text (&fff) C
6524 - LaTeX document LaTeX (&2a8) TeX
6525 - Draw document DrawFile (&aff) (not changed)
6526 -
6527 - ==============================================================================
6528 - *riscos-shell*
6529 - 10. The shell
6530 -
6531 - - Bangs (!s) are only replaced if they are followed by a space or end-of-line,
6532 - since many pathnames contain them.
6533 -
6534 - - You can prefix the command with "~", which stops any output from being
6535 - displayed. This also means that you don't have to press <Enter> afterwards,
6536 - and stops the screen from being redrawn. {only in the GUI version}
6537 -
6538 - ==============================================================================
6539 - *riscos-porting*
6540 - 11. Porting new releases to RISC OS
6541 -
6542 - Downloading everything you need:
6543 -
6544 - - Get the latest source distribution (see www.vim.org)
6545 - - Get the runtime environment files (e.g. these help files)
6546 - - Get the RISC OS binary distribution (if possible)
6547 -
6548 -
6549 - Unarchiving:
6550 -
6551 - - Create a raFS disk and put the archives on it
6552 - - Un-gzip them
6553 - - Un-tar them (*tar xELf 50 archive/tar)
6554 -
6555 -
6556 - Recompiling the sources:
6557 -
6558 - - Create c, s, and h directories.
6559 - - Put all the header files in "h". \
6560 - - Put all the C files in "c". | And lose the extensions
6561 - - Put the assembler file ("swis/s") in "s". /
6562 - - Rename all the files in "proto" to "h", like this:
6563 - raFS::VimSrc.source.proto.file/pro
6564 - becomes
6565 - raFS::VimSrc.source.h.file_pro
6566 - - In the files "h.proto" and "c.termlib", search and replace
6567 - .pro"
6568 - with
6569 - _pro.h"
6570 - - Create a simple Makefile if desired and do "*make -k".
6571 - Use "CC = gcc -DRISCOS -DUSE_GUI -O2 -x c" in the Makefile.
6572 - - Save the binary as !Vim.Vim in the binary distribution.
6573 -
6574 -
6575 - Updating the run-time environment:
6576 -
6577 - - Replace old or missing files inside !Vim.Resources with the
6578 - new files.
6579 - - Remove files in "doc" not ending in "/txt", except for "tags".
6580 - - Lose the extensions from the files in "doc".
6581 - - Edit the "doc.tags" file. Remove extensions from the second column: >
6582 - :%s/^\(.[^\t]*\t.*\)\.txt\t/\1\t/
6583 - - Remove extensions from the syntax files. Split them into two directories
6584 - to avoid the 77 entry limit on old ADFS filesystems.
6585 - - Edit "Vim:FileType" to match "*.c.*" as well as "*/c" and so on.
6586 - Add filetype checking too.
6587 - - Edit "Vim:Menu" and remove all the keys from the menus: >
6588 - :%s/<Tab>[^ \t]*//
6589 - <
6590 vim:tw=78:ts=8:ft=help:norl:
6591 --- 1,12 ----
6592 ! *os_risc.txt* For Vim version 7.3. Last change: 2011 May 10
6593
6594
6595 VIM REFERENCE MANUAL by Thomas Leonard
6596
6597
6598 *riscos* *RISCOS* *RISC-OS*
6599 ! The RISC OS support has been removed from Vim with patch 7.3.187.
6600 ! If you would like to use Vim on RISC OS get the files from before that patch.
6601
6602
6603 vim:tw=78:ts=8:ft=help:norl:
6604 *** ../vim-7.3.186/src/version.c 2011-05-10 16:12:40.000000000 +0200
6605 --- src/version.c 2011-05-10 16:37:20.000000000 +0200
6606 ***************
6607 *** 716,717 ****
6608 --- 716,719 ----
6609 { /* Add new patch number below this line */
6610 + /**/
6611 + 187,
6612 /**/
6613
6614 --
6615 hundred-and-one symptoms of being an internet addict:
6616 81. At social functions you introduce your husband as "my domain server."
6617
6618 /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net \\\
6619 /// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
6620 \\\ an exciting new programming language -- http://www.Zimbu.org ///
6621 \\\ help me help AIDS victims -- http://ICCF-Holland.org ///
IPFire 3.x development tree