Mercurial > vim
annotate src/os_amiga.c @ 30998:10aa54743543 v9.0.0834
patch 9.0.0834: warning for missing return type
Commit: https://github.com/vim/vim/commit/f8ea10677d007befbb6f24cd20f35c3bf71c1296
Author: Sam James <sam@gentoo.org>
Date: Sat Nov 5 15:13:50 2022 +0000
patch 9.0.0834: warning for missing return type
Problem: Warning for missing return type.
Solution: Add "int". (San James, closes https://github.com/vim/vim/issues/11496)
| author | Bram Moolenaar <Bram@vim.org> |
|---|---|
| date | Sat, 05 Nov 2022 16:15:03 +0100 |
| parents | 84bcf4a6564a |
| children | 3365a601e73b |
| rev | line source |
|---|---|
|
10042
4aead6a9b7a9
commit https://github.com/vim/vim/commit/edf3f97ae2af024708ebb4ac614227327033ca47
Christian Brabandt <cb@256bit.org>
parents:
10025
diff
changeset
|
1 /* vi:set ts=8 sts=4 sw=4 noet: |
| 7 | 2 * |
| 3 * VIM - Vi IMproved by Bram Moolenaar | |
| 4 * | |
| 5 * Do ":help uganda" in Vim to read copying and usage conditions. | |
| 6 * Do ":help credits" in Vim to see a list of people who contributed. | |
| 7 * See README.txt for an overview of the Vim source code. | |
| 8 */ | |
| 9 | |
| 10 /* | |
| 11 * os_amiga.c | |
| 12 * | |
| 13 * Amiga system-dependent routines. | |
| 14 */ | |
| 15 | |
| 16 #include "vim.h" | |
|
17567
b25f81a18616
patch 8.1.1781: Amiga: no builtin OS readable version info
Bram Moolenaar <Bram@vim.org>
parents:
17237
diff
changeset
|
17 #include "version.h" |
| 7 | 18 |
| 19 #ifdef Window | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
20 # undef Window // Amiga has its own Window definition |
| 7 | 21 #endif |
| 22 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
23 #undef TRUE // will be redefined by exec/types.h |
| 7 | 24 #undef FALSE |
| 25 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
26 // cproto fails on missing include files, skip them |
| 3927 | 27 #ifndef PROTO |
| 28 | |
| 7 | 29 #ifndef LATTICE |
| 30 # include <exec/types.h> | |
| 31 # include <exec/exec.h> | |
| 32 # include <libraries/dos.h> | |
| 33 # include <intuition/intuition.h> | |
| 34 #endif | |
| 35 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
36 // XXX These are included from os_amiga.h |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
37 // #include <proto/exec.h> |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
38 // #include <proto/dos.h> |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
39 // #include <proto/intuition.h> |
| 1030 | 40 |
| 7 | 41 #include <exec/memory.h> |
| 1030 | 42 #include <libraries/dosextens.h> |
| 7 | 43 |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
44 #include <dos/dostags.h> // for 2.0 functions |
| 7 | 45 #include <dos/dosasl.h> |
| 46 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
47 // From version 4 of AmigaOS, several system structures must be allocated |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
48 // and freed using system functions. "struct AnchorPath" is one. |
| 1030 | 49 #ifdef __amigaos4__ |
| 50 # include <dos/anchorpath.h> | |
| 51 # define free_fib(x) FreeDosObject(DOS_FIB, x) | |
| 52 #else | |
| 53 # define free_fib(x) vim_free(fib) | |
| 54 #endif | |
| 55 | |
| 7 | 56 #if defined(LATTICE) && !defined(SASC) && defined(FEAT_ARP) |
| 57 # include <libraries/arp_pragmas.h> | |
| 58 #endif | |
| 59 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
60 #endif // PROTO |
| 3927 | 61 |
| 7 | 62 /* |
|
17237
9185ba71aae6
patch 8.1.1618: Amiga-like systems quickly run out of stack
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
63 * Set stack size to 1 MiB on NG systems. This should be enough even for |
|
9185ba71aae6
patch 8.1.1618: Amiga-like systems quickly run out of stack
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
64 * hungry syntax HL / plugin combinations. Leave the stack alone on OS 3 |
|
9185ba71aae6
patch 8.1.1618: Amiga-like systems quickly run out of stack
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
65 * and below, those systems might be low on memory. |
|
9185ba71aae6
patch 8.1.1618: Amiga-like systems quickly run out of stack
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
66 */ |
|
9185ba71aae6
patch 8.1.1618: Amiga-like systems quickly run out of stack
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
67 #if defined(__amigaos4__) |
|
9185ba71aae6
patch 8.1.1618: Amiga-like systems quickly run out of stack
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
68 static const char* __attribute__((used)) stackcookie = "$STACK: 1048576"; |
|
9185ba71aae6
patch 8.1.1618: Amiga-like systems quickly run out of stack
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
69 #elif defined(__AROS__) || defined(__MORPHOS__) |
|
9185ba71aae6
patch 8.1.1618: Amiga-like systems quickly run out of stack
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
70 unsigned long __stack = 1048576; |
|
9185ba71aae6
patch 8.1.1618: Amiga-like systems quickly run out of stack
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
71 #endif |
|
9185ba71aae6
patch 8.1.1618: Amiga-like systems quickly run out of stack
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
72 |
|
9185ba71aae6
patch 8.1.1618: Amiga-like systems quickly run out of stack
Bram Moolenaar <Bram@vim.org>
parents:
16825
diff
changeset
|
73 /* |
| 7 | 74 * At this point TRUE and FALSE are defined as 1L and 0L, but we want 1 and 0. |
| 75 */ | |
| 76 #undef TRUE | |
| 77 #define TRUE (1) | |
| 78 #undef FALSE | |
| 79 #define FALSE (0) | |
| 80 | |
| 1030 | 81 #ifdef __amigaos4__ |
| 82 # define dos_packet(a, b, c) DoPkt(a, b, c, 0, 0, 0, 0) | |
| 83 #elif !defined(AZTEC_C) && !defined(__AROS__) | |
|
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
6695
diff
changeset
|
84 static long dos_packet(struct MsgPort *, long, long); |
| 7 | 85 #endif |
|
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
6695
diff
changeset
|
86 static int lock2name(BPTR lock, char_u *buf, long len); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
6695
diff
changeset
|
87 static void out_num(long n); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
6695
diff
changeset
|
88 static struct FileInfoBlock *get_fib(char_u *); |
|
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
6695
diff
changeset
|
89 static int sortcmp(const void *a, const void *b); |
| 7 | 90 |
| 91 static BPTR raw_in = (BPTR)NULL; | |
| 92 static BPTR raw_out = (BPTR)NULL; | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
93 static int close_win = FALSE; // set if Vim opened the window |
| 7 | 94 |
|
19009
43713a77baaf
patch 8.2.0065: Amiga and alikes: autoopen only used on Amiga OS4
Bram Moolenaar <Bram@vim.org>
parents:
18810
diff
changeset
|
95 /* Use autoopen for AmigaOS4, AROS and MorphOS */ |
|
43713a77baaf
patch 8.2.0065: Amiga and alikes: autoopen only used on Amiga OS4
Bram Moolenaar <Bram@vim.org>
parents:
18810
diff
changeset
|
96 #if !defined(__amigaos4__) && !defined(__AROS__) && !defined(__MORPHOS__) |
| 7 | 97 struct IntuitionBase *IntuitionBase = NULL; |
| 1030 | 98 #endif |
| 7 | 99 #ifdef FEAT_ARP |
| 100 struct ArpBase *ArpBase = NULL; | |
| 101 #endif | |
| 102 | |
| 103 static struct Window *wb_window; | |
| 104 static char_u *oldwindowtitle = NULL; | |
| 105 | |
| 106 #ifdef FEAT_ARP | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
107 int dos2 = FALSE; // Amiga DOS 2.0x or higher |
| 7 | 108 #endif |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
109 int size_set = FALSE; // set to TRUE if window size was set |
| 7 | 110 |
|
17567
b25f81a18616
patch 8.1.1781: Amiga: no builtin OS readable version info
Bram Moolenaar <Bram@vim.org>
parents:
17237
diff
changeset
|
111 #ifdef __GNUC__ |
|
b25f81a18616
patch 8.1.1781: Amiga: no builtin OS readable version info
Bram Moolenaar <Bram@vim.org>
parents:
17237
diff
changeset
|
112 static char version[] __attribute__((used)) = |
|
b25f81a18616
patch 8.1.1781: Amiga: no builtin OS readable version info
Bram Moolenaar <Bram@vim.org>
parents:
17237
diff
changeset
|
113 "\0$VER: Vim " |
|
b25f81a18616
patch 8.1.1781: Amiga: no builtin OS readable version info
Bram Moolenaar <Bram@vim.org>
parents:
17237
diff
changeset
|
114 VIM_VERSION_MAJOR_STR "." |
|
b25f81a18616
patch 8.1.1781: Amiga: no builtin OS readable version info
Bram Moolenaar <Bram@vim.org>
parents:
17237
diff
changeset
|
115 VIM_VERSION_MINOR_STR |
|
b25f81a18616
patch 8.1.1781: Amiga: no builtin OS readable version info
Bram Moolenaar <Bram@vim.org>
parents:
17237
diff
changeset
|
116 # ifdef PATCHLEVEL |
|
b25f81a18616
patch 8.1.1781: Amiga: no builtin OS readable version info
Bram Moolenaar <Bram@vim.org>
parents:
17237
diff
changeset
|
117 "." PATCHLEVEL |
|
b25f81a18616
patch 8.1.1781: Amiga: no builtin OS readable version info
Bram Moolenaar <Bram@vim.org>
parents:
17237
diff
changeset
|
118 # endif |
|
25002
b371ff5c53b2
patch 8.2.3038: Amiga built-in version string doesn't include build date
Bram Moolenaar <Bram@vim.org>
parents:
21927
diff
changeset
|
119 # ifdef BUILDDATE |
|
b371ff5c53b2
patch 8.2.3038: Amiga built-in version string doesn't include build date
Bram Moolenaar <Bram@vim.org>
parents:
21927
diff
changeset
|
120 " (" BUILDDATE ")" |
|
b371ff5c53b2
patch 8.2.3038: Amiga built-in version string doesn't include build date
Bram Moolenaar <Bram@vim.org>
parents:
21927
diff
changeset
|
121 # endif |
|
17567
b25f81a18616
patch 8.1.1781: Amiga: no builtin OS readable version info
Bram Moolenaar <Bram@vim.org>
parents:
17237
diff
changeset
|
122 ; |
|
b25f81a18616
patch 8.1.1781: Amiga: no builtin OS readable version info
Bram Moolenaar <Bram@vim.org>
parents:
17237
diff
changeset
|
123 #endif |
|
b25f81a18616
patch 8.1.1781: Amiga: no builtin OS readable version info
Bram Moolenaar <Bram@vim.org>
parents:
17237
diff
changeset
|
124 |
| 7 | 125 void |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
126 win_resize_on(void) |
| 7 | 127 { |
| 128 OUT_STR_NF("\033[12{"); | |
| 129 } | |
| 130 | |
| 131 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
132 win_resize_off(void) |
| 7 | 133 { |
| 134 OUT_STR_NF("\033[12}"); | |
| 135 } | |
| 136 | |
| 137 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
138 mch_write(char_u *p, int len) |
| 7 | 139 { |
| 140 Write(raw_out, (char *)p, (long)len); | |
| 141 } | |
| 142 | |
| 143 /* | |
| 4352 | 144 * mch_inchar(): low level input function. |
| 7 | 145 * Get a characters from the keyboard. |
| 146 * If time == 0 do not wait for characters. | |
| 147 * If time == n wait a short time for characters. | |
| 148 * If time == -1 wait forever for characters. | |
| 149 * | |
| 150 * Return number of characters read. | |
| 151 */ | |
| 152 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
153 mch_inchar( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
154 char_u *buf, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
155 int maxlen, |
|
26771
fc859aea8cec
patch 8.2.3914: various spelling mistakes in comments
Bram Moolenaar <Bram@vim.org>
parents:
26336
diff
changeset
|
156 long time, // milliseconds |
|
27684
1761cc771623
patch 8.2.4368: Amiga: a few compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
27628
diff
changeset
|
157 int tb_change_cnt UNUSED) |
| 7 | 158 { |
| 159 int len; | |
| 160 long utime; | |
| 161 | |
| 162 if (time >= 0) | |
| 163 { | |
| 164 if (time == 0) | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
165 utime = 100L; // time = 0 causes problems in DOS 1.2 |
| 7 | 166 else |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
167 utime = time * 1000L; // convert from milli to micro secs |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
168 if (WaitForChar(raw_in, utime) == 0) // no character available |
| 7 | 169 return 0; |
| 170 } | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
171 else // time == -1 |
| 7 | 172 { |
| 173 /* | |
| 174 * If there is no character available within 2 seconds (default) | |
| 208 | 175 * write the autoscript file to disk. Or cause the CursorHold event |
| 176 * to be triggered. | |
| 7 | 177 */ |
| 208 | 178 if (WaitForChar(raw_in, p_ut * 1000L) == 0) |
| 7 | 179 { |
| 610 | 180 if (trigger_cursorhold() && maxlen >= 3) |
| 7 | 181 { |
| 208 | 182 buf[0] = K_SPECIAL; |
| 183 buf[1] = KS_EXTRA; | |
| 184 buf[2] = (int)KE_CURSORHOLD; | |
| 185 return 3; | |
| 7 | 186 } |
| 371 | 187 before_blocking(); |
| 7 | 188 } |
| 189 } | |
| 190 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
191 for (;;) // repeat until we got a character |
| 7 | 192 { |
| 193 len = Read(raw_in, (char *)buf, (long)maxlen / input_conv.vc_factor); | |
| 194 if (len > 0) | |
| 195 { | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
196 // Convert from 'termencoding' to 'encoding'. |
| 7 | 197 if (input_conv.vc_type != CONV_NONE) |
| 198 len = convert_input(buf, len, maxlen); | |
| 199 return len; | |
| 200 } | |
| 201 } | |
| 202 } | |
| 203 | |
| 204 /* | |
| 205 * return non-zero if a character is available | |
| 206 */ | |
| 207 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
208 mch_char_avail(void) |
| 7 | 209 { |
| 210 return (WaitForChar(raw_in, 100L) != 0); | |
| 211 } | |
| 212 | |
| 213 /* | |
| 3634 | 214 * Return amount of memory still available in Kbyte. |
| 7 | 215 */ |
| 216 long_u | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
217 mch_avail_mem(int special) |
| 7 | 218 { |
|
17678
723ec38d521e
patch 8.1.1836: inaccurate memory estimate for Amiga-like OS
Bram Moolenaar <Bram@vim.org>
parents:
17567
diff
changeset
|
219 #if defined(__amigaos4__) || defined(__AROS__) || defined(__MORPHOS__) |
| 3634 | 220 return (long_u)AvailMem(MEMF_ANY) >> 10; |
| 1030 | 221 #else |
| 3634 | 222 return (long_u)(AvailMem(special ? (long)MEMF_CHIP : (long)MEMF_ANY)) >> 10; |
| 1030 | 223 #endif |
| 7 | 224 } |
| 225 | |
| 1030 | 226 /* |
| 227 * Waits a specified amount of time, or until input arrives if | |
|
21927
88070e222e82
patch 8.2.1513: cannot interrupt shell used for filename expansion
Bram Moolenaar <Bram@vim.org>
parents:
20439
diff
changeset
|
228 * flags does not have MCH_DELAY_IGNOREINPUT. |
| 1030 | 229 */ |
| 7 | 230 void |
|
21927
88070e222e82
patch 8.2.1513: cannot interrupt shell used for filename expansion
Bram Moolenaar <Bram@vim.org>
parents:
20439
diff
changeset
|
231 mch_delay(long msec, int flags) |
| 7 | 232 { |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
233 #ifndef LATTICE // SAS declares void Delay(ULONG) |
|
7805
0b6c37dd858d
commit https://github.com/vim/vim/commit/baaa7e9ec7398a813e21285c272fa99792642077
Christian Brabandt <cb@256bit.org>
parents:
6695
diff
changeset
|
234 void Delay(long); |
| 7 | 235 #endif |
| 236 | |
| 237 if (msec > 0) | |
| 238 { | |
|
21927
88070e222e82
patch 8.2.1513: cannot interrupt shell used for filename expansion
Bram Moolenaar <Bram@vim.org>
parents:
20439
diff
changeset
|
239 if (flags & MCH_DELAY_IGNOREINPUT) |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
240 Delay(msec / 20L); // Delay works with 20 msec intervals |
| 7 | 241 else |
| 242 WaitForChar(raw_in, msec * 1000L); | |
| 243 } | |
| 244 } | |
| 245 | |
| 246 /* | |
| 247 * We have no job control, fake it by starting a new shell. | |
| 248 */ | |
| 249 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
250 mch_suspend(void) |
| 7 | 251 { |
| 252 suspend_shell(); | |
| 253 } | |
| 254 | |
| 255 #ifndef DOS_LIBRARY | |
| 256 # define DOS_LIBRARY ((UBYTE *)"dos.library") | |
| 257 #endif | |
| 258 | |
| 259 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
260 mch_init(void) |
| 7 | 261 { |
|
19009
43713a77baaf
patch 8.2.0065: Amiga and alikes: autoopen only used on Amiga OS4
Bram Moolenaar <Bram@vim.org>
parents:
18810
diff
changeset
|
262 #if !defined(__amigaos4__) && !defined(__AROS__) && !defined(__MORPHOS__) |
| 7 | 263 static char intlibname[] = "intuition.library"; |
|
19009
43713a77baaf
patch 8.2.0065: Amiga and alikes: autoopen only used on Amiga OS4
Bram Moolenaar <Bram@vim.org>
parents:
18810
diff
changeset
|
264 #endif |
| 7 | 265 |
| 266 #ifdef AZTEC_C | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
267 Enable_Abort = 0; // disallow vim to be aborted |
| 7 | 268 #endif |
| 269 Columns = 80; | |
| 270 Rows = 24; | |
| 271 | |
| 272 /* | |
| 273 * Set input and output channels, unless we have opened our own window | |
| 274 */ | |
| 275 if (raw_in == (BPTR)NULL) | |
| 276 { | |
| 277 raw_in = Input(); | |
| 278 raw_out = Output(); | |
| 279 /* | |
| 280 * If Input() is not interactive, then Output() will be (because of | |
| 281 * check in mch_check_win()). Used for "Vim -". | |
| 282 * Also check the other way around, for "Vim -h | more". | |
| 283 */ | |
| 284 if (!IsInteractive(raw_in)) | |
| 285 raw_in = raw_out; | |
| 286 else if (!IsInteractive(raw_out)) | |
| 287 raw_out = raw_in; | |
| 288 } | |
| 289 | |
| 290 out_flush(); | |
| 291 | |
| 292 wb_window = NULL; | |
|
19009
43713a77baaf
patch 8.2.0065: Amiga and alikes: autoopen only used on Amiga OS4
Bram Moolenaar <Bram@vim.org>
parents:
18810
diff
changeset
|
293 #if !defined(__amigaos4__) && !defined(__AROS__) && !defined(__MORPHOS__) |
| 7 | 294 if ((IntuitionBase = (struct IntuitionBase *) |
| 295 OpenLibrary((UBYTE *)intlibname, 0L)) == NULL) | |
| 296 { | |
| 297 mch_errmsg(_("cannot open ")); | |
| 298 mch_errmsg(intlibname); | |
| 299 mch_errmsg("!?\n"); | |
| 300 mch_exit(3); | |
| 301 } | |
| 1030 | 302 #endif |
| 7 | 303 } |
| 304 | |
| 3927 | 305 #ifndef PROTO |
| 306 # include <workbench/startup.h> | |
| 307 #endif | |
| 7 | 308 |
| 309 /* | |
| 310 * Check_win checks whether we have an interactive window. | |
| 311 * If not, a new window is opened with the newcli command. | |
| 312 * If we would open a window ourselves, the :sh and :! commands would not | |
| 313 * work properly (Why? probably because we are then running in a background | |
| 314 * CLI). This also is the best way to assure proper working in a next | |
| 315 * Workbench release. | |
| 316 * | |
| 317 * For the -f option (foreground mode) we open our own window and disable :sh. | |
| 318 * Otherwise the calling program would never know when editing is finished. | |
| 319 */ | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
320 #define BUF2SIZE 320 // length of buffer for argument with complete path |
| 7 | 321 |
| 322 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
323 mch_check_win(int argc, char **argv) |
| 7 | 324 { |
| 325 int i; | |
| 326 BPTR nilfh, fh; | |
| 1030 | 327 char_u buf1[24]; |
| 7 | 328 char_u buf2[BUF2SIZE]; |
| 329 static char_u *(constrings[3]) = {(char_u *)"con:0/0/662/210/", | |
| 330 (char_u *)"con:0/0/640/200/", | |
| 331 (char_u *)"con:0/0/320/200/"}; | |
| 332 static char_u *winerr = (char_u *)N_("VIM: Can't open window!\n"); | |
| 333 struct WBArg *argp; | |
| 334 int ac; | |
| 335 char *av; | |
| 336 char_u *device = NULL; | |
| 337 int exitval = 4; | |
|
19009
43713a77baaf
patch 8.2.0065: Amiga and alikes: autoopen only used on Amiga OS4
Bram Moolenaar <Bram@vim.org>
parents:
18810
diff
changeset
|
338 #if !defined(__amigaos4__) && !defined(__AROS__) && !defined(__MORPHOS__) |
| 7 | 339 struct Library *DosBase; |
| 1030 | 340 #endif |
| 7 | 341 int usewin = FALSE; |
| 342 | |
| 343 /* | |
| 344 * check if we are running under DOS 2.0x or higher | |
| 345 */ | |
|
19009
43713a77baaf
patch 8.2.0065: Amiga and alikes: autoopen only used on Amiga OS4
Bram Moolenaar <Bram@vim.org>
parents:
18810
diff
changeset
|
346 #if !defined(__amigaos4__) && !defined(__AROS__) && !defined(__MORPHOS__) |
| 7 | 347 DosBase = OpenLibrary(DOS_LIBRARY, 37L); |
| 348 if (DosBase != NULL) | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
349 // if (((struct Library *)DOSBase)->lib_Version >= 37) |
| 7 | 350 { |
| 351 CloseLibrary(DosBase); | |
| 1030 | 352 # ifdef FEAT_ARP |
| 7 | 353 dos2 = TRUE; |
| 1030 | 354 # endif |
| 7 | 355 } |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
356 else // without arp functions we NEED 2.0 |
| 7 | 357 { |
| 1030 | 358 # ifndef FEAT_ARP |
| 7 | 359 mch_errmsg(_("Need Amigados version 2.04 or later\n")); |
| 360 exit(3); | |
| 1030 | 361 # else |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
362 // need arp functions for dos 1.x |
| 7 | 363 if (!(ArpBase = (struct ArpBase *) OpenLibrary((UBYTE *)ArpName, ArpVersion))) |
| 364 { | |
| 365 fprintf(stderr, _("Need %s version %ld\n"), ArpName, ArpVersion); | |
| 366 exit(3); | |
| 367 } | |
| 1030 | 368 # endif |
| 7 | 369 } |
|
19009
43713a77baaf
patch 8.2.0065: Amiga and alikes: autoopen only used on Amiga OS4
Bram Moolenaar <Bram@vim.org>
parents:
18810
diff
changeset
|
370 #endif /* __amigaos4__ __AROS__ __MORPHOS__ */ |
| 7 | 371 |
| 372 /* | |
| 373 * scan argv[] for the "-f" and "-d" arguments | |
| 374 */ | |
| 375 for (i = 1; i < argc; ++i) | |
| 376 if (argv[i][0] == '-') | |
| 377 { | |
| 378 switch (argv[i][1]) | |
| 379 { | |
| 380 case 'f': | |
| 381 usewin = TRUE; | |
| 382 break; | |
| 383 | |
| 384 case 'd': | |
| 385 if (i < argc - 1 | |
| 386 #ifdef FEAT_DIFF | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
387 // require using "-dev", "-d" means diff mode |
| 7 | 388 && argv[i][2] == 'e' && argv[i][3] == 'v' |
| 389 #endif | |
| 390 ) | |
| 391 device = (char_u *)argv[i + 1]; | |
| 392 break; | |
| 393 } | |
| 394 } | |
| 395 | |
| 396 /* | |
| 397 * If we were not started from workbench, do not have a "-d" or "-dev" | |
| 398 * argument and we have been started with an interactive window, use that | |
| 399 * window. | |
| 400 */ | |
| 401 if (argc != 0 | |
| 402 && device == NULL | |
| 403 && (IsInteractive(Input()) || IsInteractive(Output()))) | |
| 404 return OK; | |
| 405 | |
| 406 /* | |
| 407 * When given the "-f" argument, we open our own window. We can't use the | |
| 408 * newcli trick below, because the calling program (mail, rn, etc.) would not | |
| 409 * know when we are finished. | |
| 410 */ | |
| 411 if (usewin) | |
| 412 { | |
| 413 /* | |
| 414 * Try to open a window. First try the specified device. | |
| 415 * Then try a 24 line 80 column window. | |
| 416 * If that fails, try two smaller ones. | |
| 417 */ | |
| 418 for (i = -1; i < 3; ++i) | |
| 419 { | |
| 420 if (i >= 0) | |
| 421 device = constrings[i]; | |
| 422 if (device != NULL && (raw_in = Open((UBYTE *)device, | |
| 423 (long)MODE_NEWFILE)) != (BPTR)NULL) | |
| 424 break; | |
| 425 } | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
426 if (raw_in == (BPTR)NULL) // all three failed |
| 7 | 427 { |
| 428 mch_errmsg(_(winerr)); | |
| 429 goto exit; | |
| 430 } | |
| 431 raw_out = raw_in; | |
| 432 close_win = TRUE; | |
| 433 return OK; | |
| 434 } | |
| 435 | |
| 436 if ((nilfh = Open((UBYTE *)"NIL:", (long)MODE_NEWFILE)) == (BPTR)NULL) | |
| 437 { | |
| 438 mch_errmsg(_("Cannot open NIL:\n")); | |
| 439 goto exit; | |
| 440 } | |
| 441 | |
| 442 /* | |
| 443 * Make a unique name for the temp file (which we will not delete!). | |
| 444 * Use a pointer on the stack (nobody else will be using it). | |
| 1030 | 445 * Under AmigaOS4, this assumption might change in the future, so |
| 446 * we use a pointer to the current task instead. This should be a | |
| 447 * shared structure and thus globally unique. | |
| 7 | 448 */ |
|
25014
a47dea17acba
patch 8.2.3044: Amiga MorphOS and AROS: process ID is not valid
Bram Moolenaar <Bram@vim.org>
parents:
25012
diff
changeset
|
449 #if !defined(__amigaos4__) && !defined(__AROS__) && !defined(__MORPHOS__) |
| 1030 | 450 sprintf((char *)buf1, "t:nc%p", FindTask(0)); |
| 451 #else | |
| 7 | 452 sprintf((char *)buf1, "t:nc%ld", (long)buf1); |
| 1030 | 453 #endif |
| 7 | 454 if ((fh = Open((UBYTE *)buf1, (long)MODE_NEWFILE)) == (BPTR)NULL) |
| 455 { | |
| 456 mch_errmsg(_("Cannot create ")); | |
| 457 mch_errmsg((char *)buf1); | |
| 458 mch_errmsg("\n"); | |
| 459 goto exit; | |
| 460 } | |
| 461 /* | |
| 462 * Write the command into the file, put quotes around the arguments that | |
| 463 * have a space in them. | |
| 464 */ | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
465 if (argc == 0) // run from workbench |
| 7 | 466 ac = ((struct WBStartup *)argv)->sm_NumArgs; |
| 467 else | |
| 468 ac = argc; | |
| 469 for (i = 0; i < ac; ++i) | |
| 470 { | |
| 471 if (argc == 0) | |
| 472 { | |
| 473 *buf2 = NUL; | |
| 474 argp = &(((struct WBStartup *)argv)->sm_ArgList[i]); | |
| 475 if (argp->wa_Lock) | |
| 476 (void)lock2name(argp->wa_Lock, buf2, (long)(BUF2SIZE - 1)); | |
| 477 #ifdef FEAT_ARP | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
478 if (dos2) // use 2.0 function |
| 7 | 479 #endif |
| 480 AddPart((UBYTE *)buf2, (UBYTE *)argp->wa_Name, (long)(BUF2SIZE - 1)); | |
| 481 #ifdef FEAT_ARP | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
482 else // use arp function |
| 7 | 483 TackOn((char *)buf2, argp->wa_Name); |
| 484 #endif | |
| 485 av = (char *)buf2; | |
| 486 } | |
| 487 else | |
| 488 av = argv[i]; | |
| 489 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
490 // skip '-d' or "-dev" option |
| 7 | 491 if (av[0] == '-' && av[1] == 'd' |
| 492 #ifdef FEAT_DIFF | |
| 493 && av[2] == 'e' && av[3] == 'v' | |
| 494 #endif | |
| 495 ) | |
| 496 { | |
| 497 ++i; | |
| 498 continue; | |
| 499 } | |
| 500 if (vim_strchr((char_u *)av, ' ')) | |
| 501 Write(fh, "\"", 1L); | |
| 502 Write(fh, av, (long)strlen(av)); | |
| 503 if (vim_strchr((char_u *)av, ' ')) | |
| 504 Write(fh, "\"", 1L); | |
| 505 Write(fh, " ", 1L); | |
| 506 } | |
| 507 Write(fh, "\nendcli\n", 8L); | |
| 508 Close(fh); | |
| 509 | |
| 510 /* | |
| 511 * Try to open a new cli in a window. If "-d" or "-dev" argument was given try | |
| 512 * to open the specified device. Then try a 24 line 80 column window. If that | |
| 513 * fails, try two smaller ones. | |
| 514 */ | |
| 515 for (i = -1; i < 3; ++i) | |
| 516 { | |
| 517 if (i >= 0) | |
| 518 device = constrings[i]; | |
| 519 else if (device == NULL) | |
| 520 continue; | |
| 521 sprintf((char *)buf2, "newcli <nil: >nil: %s from %s", (char *)device, (char *)buf1); | |
| 522 #ifdef FEAT_ARP | |
| 523 if (dos2) | |
| 524 { | |
| 525 #endif | |
| 526 if (!SystemTags((UBYTE *)buf2, SYS_UserShell, TRUE, TAG_DONE)) | |
| 527 break; | |
| 528 #ifdef FEAT_ARP | |
| 529 } | |
| 530 else | |
| 531 { | |
| 532 if (Execute((UBYTE *)buf2, nilfh, nilfh)) | |
| 533 break; | |
| 534 } | |
| 535 #endif | |
| 536 } | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
537 if (i == 3) // all three failed |
| 7 | 538 { |
| 539 DeleteFile((UBYTE *)buf1); | |
| 540 mch_errmsg(_(winerr)); | |
| 541 goto exit; | |
| 542 } | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
543 exitval = 0; // The Execute succeeded: exit this program |
| 7 | 544 |
| 545 exit: | |
| 546 #ifdef FEAT_ARP | |
| 547 if (ArpBase) | |
| 548 CloseLibrary((struct Library *) ArpBase); | |
| 549 #endif | |
| 550 exit(exitval); | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
551 // NOTREACHED |
| 7 | 552 return FAIL; |
| 553 } | |
| 554 | |
| 555 /* | |
| 556 * Return TRUE if the input comes from a terminal, FALSE otherwise. | |
| 557 * We fake there is a window, because we can always open one! | |
| 558 */ | |
| 559 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
560 mch_input_isatty(void) |
| 7 | 561 { |
| 562 return TRUE; | |
| 563 } | |
| 564 | |
| 565 /* | |
| 566 * fname_case(): Set the case of the file name, if it already exists. | |
| 1030 | 567 * This will cause the file name to remain exactly the same |
| 568 * if the file system ignores, but preserves case. | |
| 7 | 569 */ |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
570 //ARGSUSED |
| 7 | 571 void |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
572 fname_case( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
573 char_u *name, |
|
27684
1761cc771623
patch 8.2.4368: Amiga: a few compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
27628
diff
changeset
|
574 int len UNUSED) // buffer size, ignored here |
| 7 | 575 { |
| 576 struct FileInfoBlock *fib; | |
| 577 size_t flen; | |
| 578 | |
| 579 fib = get_fib(name); | |
| 580 if (fib != NULL) | |
| 581 { | |
| 582 flen = STRLEN(name); | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
583 // TODO: Check if this fix applies to AmigaOS < 4 too. |
| 1030 | 584 #ifdef __amigaos4__ |
| 585 if (fib->fib_DirEntryType == ST_ROOT) | |
| 586 strcat(fib->fib_FileName, ":"); | |
| 587 #endif | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
588 if (flen == strlen(fib->fib_FileName)) // safety check |
| 7 | 589 mch_memmove(name, fib->fib_FileName, flen); |
| 1030 | 590 free_fib(fib); |
| 7 | 591 } |
| 592 } | |
| 593 | |
| 594 /* | |
| 595 * Get the FileInfoBlock for file "fname" | |
| 596 * The returned structure has to be free()d. | |
| 597 * Returns NULL on error. | |
| 598 */ | |
| 599 static struct FileInfoBlock * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
600 get_fib(char_u *fname) |
| 7 | 601 { |
| 602 BPTR flock; | |
| 603 struct FileInfoBlock *fib; | |
| 604 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
605 if (fname == NULL) // safety check |
| 7 | 606 return NULL; |
| 1030 | 607 #ifdef __amigaos4__ |
| 608 fib = AllocDosObject(DOS_FIB,0); | |
| 609 #else | |
|
16825
ce04ebdf26b8
patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents:
16768
diff
changeset
|
610 fib = ALLOC_ONE(struct FileInfoBlock); |
| 1030 | 611 #endif |
| 7 | 612 if (fib != NULL) |
| 613 { | |
| 614 flock = Lock((UBYTE *)fname, (long)ACCESS_READ); | |
| 615 if (flock == (BPTR)NULL || !Examine(flock, fib)) | |
| 616 { | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
617 free_fib(fib); // in case of an error the memory is freed here |
| 7 | 618 fib = NULL; |
| 619 } | |
| 620 if (flock) | |
| 621 UnLock(flock); | |
| 622 } | |
| 623 return fib; | |
| 624 } | |
| 625 | |
| 626 /* | |
| 627 * set the title of our window | |
| 628 * icon name is not set | |
| 629 */ | |
| 630 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
631 mch_settitle(char_u *title, char_u *icon) |
| 7 | 632 { |
| 633 if (wb_window != NULL && title != NULL) | |
| 634 SetWindowTitles(wb_window, (UBYTE *)title, (UBYTE *)-1L); | |
| 635 } | |
| 636 | |
| 637 /* | |
| 638 * Restore the window/icon title. | |
| 639 * which is one of: | |
|
14479
3375a8cbb442
patch 8.1.0253: saving and restoring window title does not always work
Christian Brabandt <cb@256bit.org>
parents:
13380
diff
changeset
|
640 * SAVE_RESTORE_TITLE Just restore title |
|
3375a8cbb442
patch 8.1.0253: saving and restoring window title does not always work
Christian Brabandt <cb@256bit.org>
parents:
13380
diff
changeset
|
641 * SAVE_RESTORE_ICON Just restore icon (which we don't have) |
|
3375a8cbb442
patch 8.1.0253: saving and restoring window title does not always work
Christian Brabandt <cb@256bit.org>
parents:
13380
diff
changeset
|
642 * SAVE_RESTORE_BOTH Restore title and icon (which we don't have) |
| 7 | 643 */ |
| 644 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
645 mch_restore_title(int which) |
| 7 | 646 { |
|
14479
3375a8cbb442
patch 8.1.0253: saving and restoring window title does not always work
Christian Brabandt <cb@256bit.org>
parents:
13380
diff
changeset
|
647 if (which & SAVE_RESTORE_TITLE) |
| 7 | 648 mch_settitle(oldwindowtitle, NULL); |
| 649 } | |
| 650 | |
| 651 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
652 mch_can_restore_title(void) |
| 7 | 653 { |
| 654 return (wb_window != NULL); | |
| 655 } | |
| 656 | |
| 657 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
658 mch_can_restore_icon(void) |
| 7 | 659 { |
| 660 return FALSE; | |
| 661 } | |
| 662 | |
|
18461
7f16792d15f7
patch 8.1.2224: cannot build Amiga version
Bram Moolenaar <Bram@vim.org>
parents:
18178
diff
changeset
|
663 void |
|
7f16792d15f7
patch 8.1.2224: cannot build Amiga version
Bram Moolenaar <Bram@vim.org>
parents:
18178
diff
changeset
|
664 mch_setmouse(int on UNUSED) |
|
7f16792d15f7
patch 8.1.2224: cannot build Amiga version
Bram Moolenaar <Bram@vim.org>
parents:
18178
diff
changeset
|
665 { |
|
7f16792d15f7
patch 8.1.2224: cannot build Amiga version
Bram Moolenaar <Bram@vim.org>
parents:
18178
diff
changeset
|
666 // TODO: implement |
|
7f16792d15f7
patch 8.1.2224: cannot build Amiga version
Bram Moolenaar <Bram@vim.org>
parents:
18178
diff
changeset
|
667 } |
|
7f16792d15f7
patch 8.1.2224: cannot build Amiga version
Bram Moolenaar <Bram@vim.org>
parents:
18178
diff
changeset
|
668 |
| 7 | 669 /* |
| 670 * Insert user name in s[len]. | |
| 671 */ | |
| 672 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
673 mch_get_user_name(char_u *s, int len) |
| 7 | 674 { |
|
18178
a3ddd35ee6d4
patch 8.1.2084: Amiga: cannot get the user name
Bram Moolenaar <Bram@vim.org>
parents:
17678
diff
changeset
|
675 #if defined(__amigaos4__) || defined(__AROS__) || defined(__MORPHOS__) |
|
a3ddd35ee6d4
patch 8.1.2084: Amiga: cannot get the user name
Bram Moolenaar <Bram@vim.org>
parents:
17678
diff
changeset
|
676 struct passwd *pwd = getpwuid(getuid()); |
|
a3ddd35ee6d4
patch 8.1.2084: Amiga: cannot get the user name
Bram Moolenaar <Bram@vim.org>
parents:
17678
diff
changeset
|
677 |
|
a3ddd35ee6d4
patch 8.1.2084: Amiga: cannot get the user name
Bram Moolenaar <Bram@vim.org>
parents:
17678
diff
changeset
|
678 if (pwd != NULL && pwd->pw_name && len > 0) |
|
a3ddd35ee6d4
patch 8.1.2084: Amiga: cannot get the user name
Bram Moolenaar <Bram@vim.org>
parents:
17678
diff
changeset
|
679 { |
|
28844
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
680 vim_strncpy(s, (char_u *)pwd->pw_name, len - 1); |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
681 return OK; |
|
18178
a3ddd35ee6d4
patch 8.1.2084: Amiga: cannot get the user name
Bram Moolenaar <Bram@vim.org>
parents:
17678
diff
changeset
|
682 } |
|
a3ddd35ee6d4
patch 8.1.2084: Amiga: cannot get the user name
Bram Moolenaar <Bram@vim.org>
parents:
17678
diff
changeset
|
683 #endif |
| 7 | 684 *s = NUL; |
| 685 return FAIL; | |
| 686 } | |
| 687 | |
| 688 /* | |
| 689 * Insert host name is s[len]. | |
| 690 */ | |
| 691 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
692 mch_get_host_name(char_u *s, int len) |
| 7 | 693 { |
| 1030 | 694 #if defined(__amigaos4__) && defined(__CLIB2__) |
| 695 gethostname(s, len); | |
| 696 #else | |
| 419 | 697 vim_strncpy(s, "Amiga", len - 1); |
| 1030 | 698 #endif |
| 7 | 699 } |
| 700 | |
| 701 /* | |
| 702 * return process ID | |
| 703 */ | |
| 704 long | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
705 mch_get_pid(void) |
| 7 | 706 { |
|
30507
84bcf4a6564a
patch 9.0.0589: on AmigaOS4 the pid is available but the task address is used
Bram Moolenaar <Bram@vim.org>
parents:
28844
diff
changeset
|
707 #if defined(__amigaos4__) |
|
84bcf4a6564a
patch 9.0.0589: on AmigaOS4 the pid is available but the task address is used
Bram Moolenaar <Bram@vim.org>
parents:
28844
diff
changeset
|
708 return (long) getpid(); |
|
84bcf4a6564a
patch 9.0.0589: on AmigaOS4 the pid is available but the task address is used
Bram Moolenaar <Bram@vim.org>
parents:
28844
diff
changeset
|
709 #elif defined(__AROS__) || defined(__MORPHOS__) |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
710 // This is as close to a pid as we can come. We could use CLI numbers also, |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
711 // but then we would have two different types of process identifiers. |
| 1030 | 712 return((long)FindTask(0)); |
| 713 #else | |
| 7 | 714 return (long)0; |
| 1030 | 715 #endif |
| 7 | 716 } |
| 717 | |
| 718 /* | |
| 719 * Get name of current directory into buffer 'buf' of length 'len' bytes. | |
| 720 * Return OK for success, FAIL for failure. | |
| 721 */ | |
| 722 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
723 mch_dirname(char_u *buf, int len) |
| 7 | 724 { |
| 725 return mch_FullName((char_u *)"", buf, len, FALSE); | |
| 726 } | |
| 727 | |
| 728 /* | |
| 729 * get absolute file name into buffer 'buf' of length 'len' bytes | |
| 730 * | |
| 731 * return FAIL for failure, OK otherwise | |
| 732 */ | |
| 733 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
734 mch_FullName( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
735 char_u *fname, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
736 char_u *buf, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
737 int len, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
738 int force) |
| 7 | 739 { |
| 740 BPTR l; | |
| 741 int retval = FAIL; | |
| 742 int i; | |
| 743 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
744 // Lock the file. If it exists, we can get the exact name. |
| 7 | 745 if ((l = Lock((UBYTE *)fname, (long)ACCESS_READ)) != (BPTR)0) |
| 746 { | |
| 747 retval = lock2name(l, buf, (long)len - 1); | |
| 748 UnLock(l); | |
| 749 } | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
750 else if (force || !mch_isFullName(fname)) // not a full path yet |
| 7 | 751 { |
| 752 /* | |
| 753 * If the file cannot be locked (doesn't exist), try to lock the | |
| 754 * current directory and concatenate the file name. | |
| 755 */ | |
| 756 if ((l = Lock((UBYTE *)"", (long)ACCESS_READ)) != (BPTR)NULL) | |
| 757 { | |
| 758 retval = lock2name(l, buf, (long)len); | |
| 759 UnLock(l); | |
| 760 if (retval == OK) | |
| 761 { | |
| 762 i = STRLEN(buf); | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
763 // Concatenate the fname to the directory. Don't add a slash |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
764 // if fname is empty, but do change "" to "/". |
| 7 | 765 if (i == 0 || *fname != NUL) |
| 766 { | |
| 767 if (i < len - 1 && (i == 0 || buf[i - 1] != ':')) | |
| 768 buf[i++] = '/'; | |
| 419 | 769 vim_strncpy(buf + i, fname, len - i - 1); |
| 7 | 770 } |
| 771 } | |
| 772 } | |
| 773 } | |
| 774 if (*buf == 0 || *buf == ':') | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
775 retval = FAIL; // something failed; use the file name |
| 7 | 776 return retval; |
| 777 } | |
| 778 | |
| 779 /* | |
| 780 * Return TRUE if "fname" does not depend on the current directory. | |
| 781 */ | |
| 782 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
783 mch_isFullName(char_u *fname) |
| 7 | 784 { |
| 785 return (vim_strchr(fname, ':') != NULL && *fname != ':'); | |
| 786 } | |
| 787 | |
| 788 /* | |
| 789 * Get the full file name from a lock. Use 2.0 function if possible, because | |
| 790 * the arp function has more restrictions on the path length. | |
| 791 * | |
| 792 * return FAIL for failure, OK otherwise | |
| 793 */ | |
| 794 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
795 lock2name(BPTR lock, char_u *buf, long len) |
| 7 | 796 { |
| 797 #ifdef FEAT_ARP | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
798 if (dos2) // use 2.0 function |
| 7 | 799 #endif |
| 800 return ((int)NameFromLock(lock, (UBYTE *)buf, len) ? OK : FAIL); | |
| 801 #ifdef FEAT_ARP | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
802 else // use arp function |
| 7 | 803 return ((int)PathName(lock, (char *)buf, (long)(len/32)) ? OK : FAIL); |
| 804 #endif | |
| 805 } | |
| 806 | |
| 807 /* | |
| 808 * get file permissions for 'name' | |
| 809 * Returns -1 when it doesn't exist. | |
| 810 */ | |
| 811 long | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
812 mch_getperm(char_u *name) |
| 7 | 813 { |
| 814 struct FileInfoBlock *fib; | |
| 815 long retval = -1; | |
| 816 | |
| 817 fib = get_fib(name); | |
| 818 if (fib != NULL) | |
| 819 { | |
| 820 retval = fib->fib_Protection; | |
| 1030 | 821 free_fib(fib); |
| 7 | 822 } |
| 823 return retval; | |
| 824 } | |
| 825 | |
| 826 /* | |
| 827 * set file permission for 'name' to 'perm' | |
| 828 * | |
| 829 * return FAIL for failure, OK otherwise | |
| 830 */ | |
| 831 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
832 mch_setperm(char_u *name, long perm) |
| 7 | 833 { |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
834 perm &= ~FIBF_ARCHIVE; // reset archived bit |
| 7 | 835 return (SetProtection((UBYTE *)name, (long)perm) ? OK : FAIL); |
| 836 } | |
| 837 | |
| 838 /* | |
| 839 * Set hidden flag for "name". | |
| 840 */ | |
| 841 void | |
|
27684
1761cc771623
patch 8.2.4368: Amiga: a few compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
27628
diff
changeset
|
842 mch_hide(char_u *name UNUSED) |
| 7 | 843 { |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
844 // can't hide a file |
| 7 | 845 } |
| 846 | |
| 847 /* | |
| 848 * return FALSE if "name" is not a directory | |
| 849 * return TRUE if "name" is a directory. | |
| 850 * return FALSE for error. | |
| 851 */ | |
| 852 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
853 mch_isdir(char_u *name) |
| 7 | 854 { |
| 855 struct FileInfoBlock *fib; | |
| 856 int retval = FALSE; | |
| 857 | |
| 858 fib = get_fib(name); | |
| 859 if (fib != NULL) | |
| 860 { | |
| 1030 | 861 #ifdef __amigaos4__ |
| 862 retval = (FIB_IS_DRAWER(fib)) ? TRUE : FALSE; | |
| 863 #else | |
| 7 | 864 retval = ((fib->fib_DirEntryType >= 0) ? TRUE : FALSE); |
| 1030 | 865 #endif |
| 866 free_fib(fib); | |
| 7 | 867 } |
| 868 return retval; | |
| 869 } | |
| 870 | |
| 871 /* | |
| 872 * Create directory "name". | |
| 873 */ | |
| 982 | 874 int |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
875 mch_mkdir(char_u *name) |
| 7 | 876 { |
| 877 BPTR lock; | |
| 878 | |
| 879 lock = CreateDir(name); | |
| 880 if (lock != NULL) | |
| 982 | 881 { |
| 7 | 882 UnLock(lock); |
| 982 | 883 return 0; |
| 884 } | |
| 885 return -1; | |
| 7 | 886 } |
| 887 | |
| 888 /* | |
| 889 * Return 1 if "name" can be executed, 0 if not. | |
| 6695 | 890 * If "use_path" is FALSE only check if "name" is executable. |
| 7 | 891 * Return -1 if unknown. |
| 892 */ | |
| 893 int | |
|
27684
1761cc771623
patch 8.2.4368: Amiga: a few compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
27628
diff
changeset
|
894 mch_can_exe(char_u *name, char_u **path UNUSED, int use_path) |
| 7 | 895 { |
|
27628
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
896 int exe = -1; |
|
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
897 #ifdef __amigaos4__ |
|
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
898 // Load file sections using elf.library or hunk.library. |
|
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
899 BPTR seg = LoadSeg(name); |
|
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
900 |
|
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
901 if (seg && GetSegListInfoTags(seg, GSLI_Native, NULL, TAG_DONE) != |
|
28844
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
902 GetSegListInfoTags(seg, GSLI_68KHUNK, NULL, TAG_DONE)) |
|
27628
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
903 { |
|
28844
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
904 // Test if file permissions allow execution. |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
905 struct ExamineData *exd = ExamineObjectTags(EX_StringNameInput, name); |
|
27628
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
906 |
|
28844
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
907 exe = (exd && !(exd->Protection & EXDF_NO_EXECUTE)) ? 1 : 0; |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
908 FreeDosObject(DOS_EXAMINEDATA, exd); |
|
27628
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
909 } |
|
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
910 else |
|
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
911 { |
|
28844
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
912 exe = 0; |
|
27628
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
913 } |
|
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
914 |
|
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
915 UnLoadSeg(seg); |
|
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
916 |
|
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
917 // Search for executable in path if applicable. |
|
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
918 if (!exe && use_path) |
|
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
919 { |
|
28844
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
920 // Save current working dir. |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
921 BPTR cwd = GetCurrentDir(); |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
922 struct PathNode *head = DupCmdPathList(NULL); |
|
27628
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
923 |
|
28844
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
924 // For each entry, recur to check for executable. |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
925 for(struct PathNode *tail = head; !exe && tail; |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
926 tail = (struct PathNode *) BADDR(tail->pn_Next)) |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
927 { |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
928 SetCurrentDir(tail->pn_Lock); |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
929 exe = mch_can_exe(name, path, 0); |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
930 } |
|
27628
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
931 |
|
28844
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
932 // Go back to where we were. |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
933 FreeCmdPathList(head); |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
934 SetCurrentDir(cwd); |
|
27628
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
935 } |
|
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
936 #endif |
|
6ece6dd69583
patch 8.2.4340: Amiga: mch_can_exe() is not implemented
Bram Moolenaar <Bram@vim.org>
parents:
26913
diff
changeset
|
937 return exe; |
| 7 | 938 } |
| 939 | |
| 940 /* | |
| 941 * Check what "name" is: | |
| 942 * NODE_NORMAL: file or directory (or doesn't exist) | |
| 943 * NODE_WRITABLE: writable device, socket, fifo, etc. | |
| 944 * NODE_OTHER: non-writable things | |
| 945 */ | |
| 946 int | |
|
27684
1761cc771623
patch 8.2.4368: Amiga: a few compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
27628
diff
changeset
|
947 mch_nodetype(char_u *name UNUSED) |
| 7 | 948 { |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
949 // TODO |
| 7 | 950 return NODE_NORMAL; |
| 951 } | |
| 952 | |
| 953 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
954 mch_early_init(void) |
| 7 | 955 { |
| 956 } | |
| 957 | |
| 958 /* | |
| 959 * Careful: mch_exit() may be called before mch_init()! | |
| 960 */ | |
| 961 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
962 mch_exit(int r) |
| 7 | 963 { |
|
10835
c9da7f9137af
patch 8.0.0307: asan detects a memory error when EXITFREE is defined
Christian Brabandt <cb@256bit.org>
parents:
10240
diff
changeset
|
964 exiting = TRUE; |
|
c9da7f9137af
patch 8.0.0307: asan detects a memory error when EXITFREE is defined
Christian Brabandt <cb@256bit.org>
parents:
10240
diff
changeset
|
965 |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
966 if (raw_in) // put terminal in 'normal' mode |
| 7 | 967 { |
| 968 settmode(TMODE_COOK); | |
| 969 stoptermcap(); | |
| 970 } | |
| 971 out_char('\n'); | |
| 972 if (raw_out) | |
| 973 { | |
| 974 if (term_console) | |
| 975 { | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
976 win_resize_off(); // window resize events de-activated |
| 7 | 977 if (size_set) |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
978 OUT_STR("\233t\233u"); // reset window size (CSI t CSI u) |
| 7 | 979 } |
| 980 out_flush(); | |
| 981 } | |
| 982 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
983 mch_restore_title(SAVE_RESTORE_BOTH); // restore window title |
| 7 | 984 |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
985 ml_close_all(TRUE); // remove all memfiles |
| 7 | 986 |
| 987 #ifdef FEAT_ARP | |
| 988 if (ArpBase) | |
| 989 CloseLibrary((struct Library *) ArpBase); | |
| 990 #endif | |
| 991 if (close_win) | |
| 992 Close(raw_in); | |
| 993 if (r) | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
994 printf(_("Vim exiting with %d\n"), r); // somehow this makes :cq work!? |
| 7 | 995 exit(r); |
| 996 } | |
| 997 | |
| 998 /* | |
| 999 * This is a routine for setting a given stream to raw or cooked mode on the | |
| 1000 * Amiga . This is useful when you are using Lattice C to produce programs | |
| 1001 * that want to read single characters with the "getch()" or "fgetc" call. | |
| 1002 * | |
| 1003 * Written : 18-Jun-87 By Chuck McManis. | |
| 1004 */ | |
| 1005 | |
| 1006 #define MP(xx) ((struct MsgPort *)((struct FileHandle *) (BADDR(xx)))->fh_Type) | |
| 1007 | |
| 1008 /* | |
| 1009 * Function mch_settmode() - Convert the specified file pointer to 'raw' or | |
| 1010 * 'cooked' mode. This only works on TTY's. | |
| 1011 * | |
| 1012 * Raw: keeps DOS from translating keys for you, also (BIG WIN) it means | |
| 1013 * getch() will return immediately rather than wait for a return. You | |
| 1014 * lose editing features though. | |
| 1015 * | |
|
15034
6e4e0d43b20b
patch 8.1.0528: various typos in comments
Bram Moolenaar <Bram@vim.org>
parents:
14479
diff
changeset
|
1016 * Cooked: This function returns the designate file pointer to its normal, |
| 7 | 1017 * wait for a <CR> mode. This is exactly like raw() except that |
| 1018 * it sends a 0 to the console to make it back into a CON: from a RAW: | |
| 1019 */ | |
| 1020 void | |
|
20439
d4b2a8675b78
patch 8.2.0774: t_TI and t_TE are output when using 'visualbell'
Bram Moolenaar <Bram@vim.org>
parents:
20437
diff
changeset
|
1021 mch_settmode(tmode_T tmode) |
| 7 | 1022 { |
|
25018
76c9f536bafb
patch 8.2.3046: Amiga MorphOS: Term mode is set using DOS packets
Bram Moolenaar <Bram@vim.org>
parents:
25014
diff
changeset
|
1023 #if defined(__AROS__) || defined(__amigaos4__) || defined(__MORPHOS__) |
| 7 | 1024 if (!SetMode(raw_in, tmode == TMODE_RAW ? 1 : 0)) |
| 1025 #else | |
| 1026 if (dos_packet(MP(raw_in), (long)ACTION_SCREEN_MODE, | |
| 1027 tmode == TMODE_RAW ? -1L : 0L) == 0) | |
| 1028 #endif | |
| 1029 mch_errmsg(_("cannot change console mode ?!\n")); | |
| 1030 } | |
| 1031 | |
| 1032 /* | |
| 1033 * Code for this routine came from the following : | |
| 1034 * | |
| 1035 * ConPackets.c - C. Scheppner, A. Finkel, P. Lindsay CBM | |
| 1036 * DOS packet example | |
| 1037 * Requires 1.2 | |
| 1038 * | |
| 1039 * Found on Fish Disk 56. | |
| 1040 * | |
| 1041 * Heavely modified by mool. | |
| 1042 */ | |
| 1043 | |
| 3927 | 1044 #ifndef PROTO |
| 1045 # include <devices/conunit.h> | |
| 1046 #endif | |
| 7 | 1047 |
| 1048 /* | |
|
25012
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1049 * Get console size in a system friendly way on AROS and MorphOS. |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1050 * Return FAIL for failure, OK otherwise |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1051 */ |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1052 #if defined(__AROS__) || defined(__MORPHOS__) |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1053 int |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1054 mch_get_shellsize(void) |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1055 { |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1056 if (!term_console) |
|
28844
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1057 return FAIL; |
|
25012
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1058 |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1059 if (raw_in && raw_out) |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1060 { |
|
28844
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1061 // Save current console mode. |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1062 int old_tmode = cur_tmode; |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1063 char ctrl[] = "\x9b""0 q"; |
|
25012
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1064 |
|
28844
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1065 // Set RAW mode. |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1066 mch_settmode(TMODE_RAW); |
|
25012
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1067 |
|
28844
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1068 // Write control sequence to console. |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1069 if (Write(raw_out, ctrl, sizeof(ctrl)) == sizeof(ctrl)) |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1070 { |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1071 char scan[] = "\x9b""1;1;%d;%d r", |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1072 answ[sizeof(scan) + 8] = { '\0' }; |
|
25012
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1073 |
|
28844
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1074 // Read return sequence from input. |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1075 if (Read(raw_in, answ, sizeof(answ) - 1) > 0) |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1076 { |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1077 // Parse result and set Vim globals. |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1078 if (sscanf(answ, scan, &Rows, &Columns) == 2) |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1079 { |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1080 // Restore console mode. |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1081 mch_settmode(old_tmode); |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1082 return OK; |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1083 } |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1084 } |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1085 } |
|
25012
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1086 |
|
28844
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1087 // Restore console mode. |
|
c0403cd5ca06
patch 8.2.4945: inconsistent use of white space
Bram Moolenaar <Bram@vim.org>
parents:
27684
diff
changeset
|
1088 mch_settmode(old_tmode); |
|
25012
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1089 } |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1090 |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1091 // I/O error. Default size fallback. |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1092 term_console = FALSE; |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1093 Columns = 80; |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1094 Rows = 24; |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1095 |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1096 return FAIL; |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1097 } |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1098 #else |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1099 /* |
|
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1100 * Try to get the real window size, |
| 7 | 1101 * return FAIL for failure, OK otherwise |
| 1102 */ | |
| 1103 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1104 mch_get_shellsize(void) |
| 7 | 1105 { |
| 1106 struct ConUnit *conUnit; | |
| 1030 | 1107 #ifndef __amigaos4__ |
| 7 | 1108 char id_a[sizeof(struct InfoData) + 3]; |
| 1030 | 1109 #endif |
| 1110 struct InfoData *id=0; | |
| 7 | 1111 |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1112 if (!term_console) // not an amiga window |
| 1030 | 1113 goto out; |
| 7 | 1114 |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1115 // insure longword alignment |
| 1030 | 1116 #ifdef __amigaos4__ |
| 3143 | 1117 if (!(id = AllocDosObject(DOS_INFODATA, 0))) |
| 1030 | 1118 goto out; |
| 1119 #else | |
| 7 | 1120 id = (struct InfoData *)(((long)id_a + 3L) & ~3L); |
| 1030 | 1121 #endif |
| 7 | 1122 |
| 1123 /* | |
| 1124 * Should make console aware of real window size, not the one we set. | |
| 1125 * Unfortunately, under DOS 2.0x this redraws the window and it | |
| 1126 * is rarely needed, so we skip it now, unless we changed the size. | |
| 1127 */ | |
| 1128 if (size_set) | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1129 OUT_STR("\233t\233u"); // CSI t CSI u |
| 7 | 1130 out_flush(); |
| 1131 | |
| 1132 if (dos_packet(MP(raw_out), (long)ACTION_DISK_INFO, ((ULONG) id) >> 2) == 0 | |
| 1133 || (wb_window = (struct Window *)id->id_VolumeNode) == NULL) | |
| 1134 { | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1135 // it's not an amiga window, maybe aux device |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1136 // terminal type should be set |
| 7 | 1137 term_console = FALSE; |
| 1030 | 1138 goto out; |
| 7 | 1139 } |
| 1140 if (oldwindowtitle == NULL) | |
| 1141 oldwindowtitle = (char_u *)wb_window->Title; | |
| 1142 if (id->id_InUse == (BPTR)NULL) | |
| 1143 { | |
| 1144 mch_errmsg(_("mch_get_shellsize: not a console??\n")); | |
| 1145 return FAIL; | |
| 1146 } | |
| 1147 conUnit = (struct ConUnit *) ((struct IOStdReq *) id->id_InUse)->io_Unit; | |
| 1148 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1149 // get window size |
| 7 | 1150 Rows = conUnit->cu_YMax + 1; |
| 1151 Columns = conUnit->cu_XMax + 1; | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1152 if (Rows < 0 || Rows > 200) // cannot be an amiga window |
| 7 | 1153 { |
| 1154 Columns = 80; | |
| 1155 Rows = 24; | |
| 1156 term_console = FALSE; | |
| 1157 return FAIL; | |
| 1158 } | |
| 1159 | |
| 1160 return OK; | |
| 1030 | 1161 out: |
| 1162 #ifdef __amigaos4__ | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1163 FreeDosObject(DOS_INFODATA, id); // Safe to pass NULL |
| 1030 | 1164 #endif |
| 1165 | |
| 1166 return FAIL; | |
| 7 | 1167 } |
|
25012
c2c2189a98c4
patch 8.2.3043: Amiga: cannot get the shell size on MorphOS and AROS
Bram Moolenaar <Bram@vim.org>
parents:
25002
diff
changeset
|
1168 #endif |
| 7 | 1169 |
| 1170 /* | |
| 1171 * Try to set the real window size to Rows and Columns. | |
| 1172 */ | |
| 1173 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1174 mch_set_shellsize(void) |
| 7 | 1175 { |
| 1176 if (term_console) | |
| 1177 { | |
| 1178 size_set = TRUE; | |
| 1179 out_char(CSI); | |
| 1180 out_num((long)Rows); | |
| 1181 out_char('t'); | |
| 1182 out_char(CSI); | |
| 1183 out_num((long)Columns); | |
| 1184 out_char('u'); | |
| 1185 out_flush(); | |
| 1186 } | |
| 1187 } | |
| 1188 | |
| 1189 /* | |
| 1190 * Rows and/or Columns has changed. | |
| 1191 */ | |
| 1192 void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1193 mch_new_shellsize(void) |
| 7 | 1194 { |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1195 // Nothing to do. |
| 7 | 1196 } |
| 1197 | |
| 1198 /* | |
| 1199 * out_num - output a (big) number fast | |
| 1200 */ | |
| 1201 static void | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1202 out_num(long n) |
| 7 | 1203 { |
| 1204 OUT_STR_NF(tltoa((unsigned long)n)); | |
| 1205 } | |
| 1206 | |
| 1030 | 1207 #if !defined(AZTEC_C) && !defined(__AROS__) && !defined(__amigaos4__) |
| 7 | 1208 /* |
| 1209 * Sendpacket.c | |
| 1210 * | |
| 1211 * An invaluable addition to your Amiga.lib file. This code sends a packet to | |
| 1212 * the given message port. This makes working around DOS lots easier. | |
| 1213 * | |
| 1214 * Note, I didn't write this, those wonderful folks at CBM did. I do suggest | |
| 1215 * however that you may wish to add it to Amiga.Lib, to do so, compile it and | |
| 1216 * say 'oml lib:amiga.lib -r sendpacket.o' | |
| 1217 */ | |
| 1218 | |
| 3927 | 1219 #ifndef PROTO |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1220 // #include <proto/exec.h> |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1221 // #include <proto/dos.h> |
| 3927 | 1222 # include <exec/memory.h> |
| 1223 #endif | |
| 7 | 1224 |
| 1225 /* | |
| 1226 * Function - dos_packet written by Phil Lindsay, Carolyn Scheppner, and Andy | |
| 1227 * Finkel. This function will send a packet of the given type to the Message | |
| 1228 * Port supplied. | |
| 1229 */ | |
| 1230 | |
| 1231 static long | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1232 dos_packet( |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1233 struct MsgPort *pid, // process identifier ... (handlers message port) |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1234 long action, // packet type ... (what you want handler to do) |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1235 long arg) // single argument |
| 7 | 1236 { |
| 1237 # ifdef FEAT_ARP | |
| 1238 struct MsgPort *replyport; | |
| 1239 struct StandardPacket *packet; | |
| 1240 long res1; | |
| 1241 | |
| 1242 if (dos2) | |
| 1243 # endif | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1244 return DoPkt(pid, action, arg, 0L, 0L, 0L, 0L); // use 2.0 function |
| 7 | 1245 # ifdef FEAT_ARP |
| 1246 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1247 replyport = (struct MsgPort *) CreatePort(NULL, 0); // use arp function |
| 7 | 1248 if (!replyport) |
| 1249 return (0); | |
| 1250 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1251 // Allocate space for a packet, make it public and clear it |
| 7 | 1252 packet = (struct StandardPacket *) |
| 1253 AllocMem((long) sizeof(struct StandardPacket), MEMF_PUBLIC | MEMF_CLEAR); | |
| 1254 if (!packet) { | |
| 1255 DeletePort(replyport); | |
| 1256 return (0); | |
| 1257 } | |
| 1258 packet->sp_Msg.mn_Node.ln_Name = (char *) &(packet->sp_Pkt); | |
| 1259 packet->sp_Pkt.dp_Link = &(packet->sp_Msg); | |
| 1260 packet->sp_Pkt.dp_Port = replyport; | |
| 1261 packet->sp_Pkt.dp_Type = action; | |
| 1262 packet->sp_Pkt.dp_Arg1 = arg; | |
| 1263 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1264 PutMsg(pid, (struct Message *)packet); // send packet |
| 7 | 1265 |
| 1266 WaitPort(replyport); | |
| 1267 GetMsg(replyport); | |
| 1268 | |
| 1269 res1 = packet->sp_Pkt.dp_Res1; | |
| 1270 | |
| 1271 FreeMem(packet, (long) sizeof(struct StandardPacket)); | |
| 1272 DeletePort(replyport); | |
| 1273 | |
| 1274 return (res1); | |
| 1275 # endif | |
| 1276 } | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1277 #endif // !defined(AZTEC_C) && !defined(__AROS__) |
| 7 | 1278 |
| 1279 /* | |
| 1280 * Call shell. | |
| 1281 * Return error number for failure, 0 otherwise | |
| 1282 */ | |
| 1283 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1284 mch_call_shell( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1285 char_u *cmd, |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1286 int options) // SHELL_*, see vim.h |
| 7 | 1287 { |
| 1288 BPTR mydir; | |
| 1289 int x; | |
| 1290 int tmode = cur_tmode; | |
| 1291 #ifdef AZTEC_C | |
| 1292 int use_execute; | |
| 1293 char_u *shellcmd = NULL; | |
| 1294 char_u *shellarg; | |
| 1295 #endif | |
| 1296 int retval = 0; | |
| 1297 | |
| 1298 if (close_win) | |
| 1299 { | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1300 // if Vim opened a window: Executing a shell may cause crashes |
|
26913
d4e61d61afd9
patch 8.2.3985: error messages are spread out
Bram Moolenaar <Bram@vim.org>
parents:
26771
diff
changeset
|
1301 emsg(_(e_cannot_execute_shell_with_f_option)); |
| 7 | 1302 return -1; |
| 1303 } | |
| 1304 | |
| 1305 if (term_console) | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1306 win_resize_off(); // window resize events de-activated |
| 7 | 1307 out_flush(); |
| 1308 | |
| 1309 if (options & SHELL_COOKED) | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1310 settmode(TMODE_COOK); // set to normal mode |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1311 mydir = Lock((UBYTE *)"", (long)ACCESS_READ); // remember current dir |
| 7 | 1312 |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1313 #if !defined(AZTEC_C) // not tested very much |
| 7 | 1314 if (cmd == NULL) |
| 1315 { | |
| 1316 # ifdef FEAT_ARP | |
| 1317 if (dos2) | |
| 1318 # endif | |
| 1319 x = SystemTags(p_sh, SYS_UserShell, TRUE, TAG_DONE); | |
| 1320 # ifdef FEAT_ARP | |
| 1321 else | |
| 1322 x = Execute(p_sh, raw_in, raw_out); | |
| 1323 # endif | |
| 1324 } | |
| 1325 else | |
| 1326 { | |
| 1327 # ifdef FEAT_ARP | |
| 1328 if (dos2) | |
| 1329 # endif | |
| 1330 x = SystemTags((char *)cmd, SYS_UserShell, TRUE, TAG_DONE); | |
| 1331 # ifdef FEAT_ARP | |
| 1332 else | |
| 1333 x = Execute((char *)cmd, 0L, raw_out); | |
| 1334 # endif | |
| 1335 } | |
| 1336 # ifdef FEAT_ARP | |
| 1337 if ((dos2 && x < 0) || (!dos2 && !x)) | |
| 1338 # else | |
| 1339 if (x < 0) | |
| 1340 # endif | |
| 1341 { | |
|
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1342 msg_puts(_("Cannot execute ")); |
| 7 | 1343 if (cmd == NULL) |
| 1344 { | |
|
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1345 msg_puts(_("shell ")); |
| 7 | 1346 msg_outtrans(p_sh); |
| 1347 } | |
| 1348 else | |
| 1349 msg_outtrans(cmd); | |
| 1350 msg_putchar('\n'); | |
| 1351 retval = -1; | |
| 1352 } | |
| 1353 # ifdef FEAT_ARP | |
| 1354 else if (!dos2 || x) | |
| 1355 # else | |
| 1356 else if (x) | |
| 1357 # endif | |
| 1358 { | |
| 1359 if ((x = IoErr()) != 0) | |
| 1360 { | |
| 1361 if (!(options & SHELL_SILENT)) | |
| 1362 { | |
| 1363 msg_putchar('\n'); | |
| 1364 msg_outnum((long)x); | |
|
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1365 msg_puts(_(" returned\n")); |
| 7 | 1366 } |
| 1367 retval = x; | |
| 1368 } | |
| 1369 } | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1370 #else // else part is for AZTEC_C |
| 7 | 1371 if (p_st >= 4 || (p_st >= 2 && !(options & SHELL_FILTER))) |
| 1372 use_execute = 1; | |
| 1373 else | |
| 1374 use_execute = 0; | |
| 1375 if (!use_execute) | |
| 1376 { | |
| 1377 /* | |
| 1378 * separate shell name from argument | |
| 1379 */ | |
| 1380 shellcmd = vim_strsave(p_sh); | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1381 if (shellcmd == NULL) // out of memory, use Execute |
| 7 | 1382 use_execute = 1; |
| 1383 else | |
| 1384 { | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1385 shellarg = skiptowhite(shellcmd); // find start of arguments |
| 7 | 1386 if (*shellarg != NUL) |
| 1387 { | |
| 1388 *shellarg++ = NUL; | |
| 1389 shellarg = skipwhite(shellarg); | |
| 1390 } | |
| 1391 } | |
| 1392 } | |
| 1393 if (cmd == NULL) | |
| 1394 { | |
| 1395 if (use_execute) | |
| 1396 { | |
| 1397 # ifdef FEAT_ARP | |
| 1398 if (dos2) | |
| 1399 # endif | |
| 1400 x = SystemTags((UBYTE *)p_sh, SYS_UserShell, TRUE, TAG_DONE); | |
| 1401 # ifdef FEAT_ARP | |
| 1402 else | |
| 1403 x = !Execute((UBYTE *)p_sh, raw_in, raw_out); | |
| 1404 # endif | |
| 1405 } | |
| 1406 else | |
| 1407 x = fexecl((char *)shellcmd, (char *)shellcmd, (char *)shellarg, NULL); | |
| 1408 } | |
| 1409 else if (use_execute) | |
| 1410 { | |
| 1411 # ifdef FEAT_ARP | |
| 1412 if (dos2) | |
| 1413 # endif | |
| 1414 x = SystemTags((UBYTE *)cmd, SYS_UserShell, TRUE, TAG_DONE); | |
| 1415 # ifdef FEAT_ARP | |
| 1416 else | |
| 1417 x = !Execute((UBYTE *)cmd, 0L, raw_out); | |
| 1418 # endif | |
| 1419 } | |
| 1420 else if (p_st & 1) | |
| 1421 x = fexecl((char *)shellcmd, (char *)shellcmd, (char *)shellarg, | |
| 1422 (char *)cmd, NULL); | |
| 1423 else | |
| 1424 x = fexecl((char *)shellcmd, (char *)shellcmd, (char *)shellarg, | |
| 1425 (char *)p_shcf, (char *)cmd, NULL); | |
| 1426 # ifdef FEAT_ARP | |
| 1427 if ((dos2 && x < 0) || (!dos2 && x)) | |
| 1428 # else | |
| 1429 if (x < 0) | |
| 1430 # endif | |
| 1431 { | |
|
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1432 msg_puts(_("Cannot execute ")); |
| 7 | 1433 if (use_execute) |
| 1434 { | |
| 1435 if (cmd == NULL) | |
| 1436 msg_outtrans(p_sh); | |
| 1437 else | |
| 1438 msg_outtrans(cmd); | |
| 1439 } | |
| 1440 else | |
| 1441 { | |
|
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1442 msg_puts(_("shell ")); |
| 7 | 1443 msg_outtrans(shellcmd); |
| 1444 } | |
| 1445 msg_putchar('\n'); | |
| 1446 retval = -1; | |
| 1447 } | |
| 1448 else | |
| 1449 { | |
| 1450 if (use_execute) | |
| 1451 { | |
| 1452 # ifdef FEAT_ARP | |
| 1453 if (!dos2 || x) | |
| 1454 # else | |
| 1455 if (x) | |
| 1456 # endif | |
| 1457 x = IoErr(); | |
| 1458 } | |
| 1459 else | |
| 1460 x = wait(); | |
| 1461 if (x) | |
| 1462 { | |
| 1463 if (!(options & SHELL_SILENT) && !emsg_silent) | |
| 1464 { | |
| 1465 msg_putchar('\n'); | |
| 1466 msg_outnum((long)x); | |
|
15543
dd725a8ab112
patch 8.1.0779: argument for message functions is inconsistent
Bram Moolenaar <Bram@vim.org>
parents:
15470
diff
changeset
|
1467 msg_puts(_(" returned\n")); |
| 7 | 1468 } |
| 1469 retval = x; | |
| 1470 } | |
| 1471 } | |
| 1472 vim_free(shellcmd); | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1473 #endif // AZTEC_C |
| 7 | 1474 |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1475 if ((mydir = CurrentDir(mydir)) != 0) // make sure we stay in the same directory |
| 7 | 1476 UnLock(mydir); |
| 1477 if (tmode == TMODE_RAW) | |
|
20437
3bb4dea4a164
patch 8.2.0773: switching to raw mode every time ":" is used
Bram Moolenaar <Bram@vim.org>
parents:
19131
diff
changeset
|
1478 { |
|
3bb4dea4a164
patch 8.2.0773: switching to raw mode every time ":" is used
Bram Moolenaar <Bram@vim.org>
parents:
19131
diff
changeset
|
1479 // The shell may have messed with the mode, always set it. |
|
3bb4dea4a164
patch 8.2.0773: switching to raw mode every time ":" is used
Bram Moolenaar <Bram@vim.org>
parents:
19131
diff
changeset
|
1480 cur_tmode = TMODE_UNKNOWN; |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1481 settmode(TMODE_RAW); // set to raw mode |
|
20437
3bb4dea4a164
patch 8.2.0773: switching to raw mode every time ":" is used
Bram Moolenaar <Bram@vim.org>
parents:
19131
diff
changeset
|
1482 } |
| 7 | 1483 resettitle(); |
| 1484 if (term_console) | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1485 win_resize_on(); // window resize events activated |
| 7 | 1486 return retval; |
| 1487 } | |
| 1488 | |
| 1489 /* | |
| 1490 * check for an "interrupt signal" | |
| 1491 * We only react to a CTRL-C, but also clear the other break signals to avoid | |
| 1492 * trouble with lattice-c programs. | |
| 1493 */ | |
| 1494 void | |
|
27684
1761cc771623
patch 8.2.4368: Amiga: a few compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
27628
diff
changeset
|
1495 mch_breakcheck(int force UNUSED) |
| 7 | 1496 { |
| 1497 if (SetSignal(0L, (long)(SIGBREAKF_CTRL_C|SIGBREAKF_CTRL_D|SIGBREAKF_CTRL_E|SIGBREAKF_CTRL_F)) & SIGBREAKF_CTRL_C) | |
| 1498 got_int = TRUE; | |
| 1499 } | |
| 1500 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1501 // this routine causes manx to use this Chk_Abort() rather than its own |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1502 // otherwise it resets our ^C when doing any I/O (even when Enable_Abort |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1503 // is zero). Since we want to check for our own ^C's |
| 7 | 1504 |
| 1505 #ifdef _DCC | |
| 1506 #define Chk_Abort chkabort | |
| 1507 #endif | |
| 1508 | |
| 1509 #ifdef LATTICE | |
| 1510 void __regargs __chkabort(void); | |
| 1511 | |
| 1512 void __regargs __chkabort(void) | |
| 1513 {} | |
| 1514 | |
| 1515 #else | |
| 1516 long | |
| 1517 Chk_Abort(void) | |
| 1518 { | |
| 1519 return(0L); | |
| 1520 } | |
| 1521 #endif | |
| 1522 | |
| 1523 /* | |
| 1524 * mch_expandpath() - this code does wild-card pattern matching using the arp | |
| 1525 * routines. | |
| 1526 * | |
| 1527 * "pat" has backslashes before chars that are not to be expanded. | |
| 1528 * Returns the number of matches found. | |
| 1529 * | |
| 1530 * This is based on WildDemo2.c (found in arp1.1 distribution). | |
| 1531 * That code's copyright follows: | |
| 1532 * Copyright (c) 1987, Scott Ballantyne | |
| 1533 * Use and abuse as you please. | |
| 1534 */ | |
| 1535 | |
| 1030 | 1536 #ifdef __amigaos4__ |
| 1537 # define ANCHOR_BUF_SIZE 1024 | |
| 1538 #else | |
| 1539 # define ANCHOR_BUF_SIZE (512) | |
| 1540 # define ANCHOR_SIZE (sizeof(struct AnchorPath) + ANCHOR_BUF_SIZE) | |
| 1541 #endif | |
| 7 | 1542 |
| 1543 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1544 mch_expandpath( |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1545 garray_T *gap, |
|
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1546 char_u *pat, |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1547 int flags) // EW_* flags |
| 7 | 1548 { |
| 1549 struct AnchorPath *Anchor; | |
| 1550 LONG Result; | |
| 1551 char_u *starbuf, *sp, *dp; | |
| 1552 int start_len; | |
| 1553 int matches; | |
| 1030 | 1554 #ifdef __amigaos4__ |
| 1555 struct TagItem AnchorTags[] = { | |
| 1556 {ADO_Strlen, ANCHOR_BUF_SIZE}, | |
| 1557 {ADO_Flags, APF_DODOT|APF_DOWILD|APF_MultiAssigns}, | |
| 1558 {TAG_DONE, 0L} | |
| 1559 }; | |
| 1560 #endif | |
| 7 | 1561 |
| 1562 start_len = gap->ga_len; | |
| 1563 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1564 // Get our AnchorBase |
| 1030 | 1565 #ifdef __amigaos4__ |
| 1566 Anchor = AllocDosObject(DOS_ANCHORPATH, AnchorTags); | |
| 1567 #else | |
|
16825
ce04ebdf26b8
patch 8.1.1414: alloc() returning "char_u *" causes a lot of type casts
Bram Moolenaar <Bram@vim.org>
parents:
16768
diff
changeset
|
1568 Anchor = alloc_clear(ANCHOR_SIZE); |
| 1030 | 1569 #endif |
| 7 | 1570 if (Anchor == NULL) |
| 1571 return 0; | |
| 1572 | |
| 1030 | 1573 #ifndef __amigaos4__ |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1574 Anchor->ap_Strlen = ANCHOR_BUF_SIZE; // ap_Length not supported anymore |
| 1030 | 1575 # ifdef APF_DODOT |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1576 Anchor->ap_Flags = APF_DODOT | APF_DOWILD; // allow '.' for current dir |
| 1030 | 1577 # else |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1578 Anchor->ap_Flags = APF_DoDot | APF_DoWild; // allow '.' for current dir |
| 1030 | 1579 # endif |
| 7 | 1580 #endif |
| 1581 | |
| 1582 #ifdef FEAT_ARP | |
| 1583 if (dos2) | |
| 1584 { | |
| 1585 #endif | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1586 // hack to replace '*' by '#?' |
|
16764
ef00b6bc186b
patch 8.1.1384: using "int" for alloc() often results in compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
15603
diff
changeset
|
1587 starbuf = alloc(2 * STRLEN(pat) + 1); |
| 7 | 1588 if (starbuf == NULL) |
| 1589 goto Return; | |
| 1590 for (sp = pat, dp = starbuf; *sp; ++sp) | |
| 1591 { | |
| 1592 if (*sp == '*') | |
| 1593 { | |
| 1594 *dp++ = '#'; | |
| 1595 *dp++ = '?'; | |
| 1596 } | |
| 1597 else | |
| 1598 *dp++ = *sp; | |
| 1599 } | |
| 1600 *dp = NUL; | |
| 1601 Result = MatchFirst((UBYTE *)starbuf, Anchor); | |
| 1602 vim_free(starbuf); | |
| 1603 #ifdef FEAT_ARP | |
| 1604 } | |
| 1605 else | |
| 1606 Result = FindFirst((char *)pat, Anchor); | |
| 1607 #endif | |
| 1608 | |
| 1609 /* | |
| 1610 * Loop to get all matches. | |
| 1611 */ | |
| 1612 while (Result == 0) | |
| 1613 { | |
| 1030 | 1614 #ifdef __amigaos4__ |
| 1615 addfile(gap, (char_u *)Anchor->ap_Buffer, flags); | |
| 1616 #else | |
| 7 | 1617 addfile(gap, (char_u *)Anchor->ap_Buf, flags); |
| 1030 | 1618 #endif |
| 7 | 1619 #ifdef FEAT_ARP |
| 1620 if (dos2) | |
| 1621 #endif | |
| 1622 Result = MatchNext(Anchor); | |
| 1623 #ifdef FEAT_ARP | |
| 1624 else | |
| 1625 Result = FindNext(Anchor); | |
| 1626 #endif | |
| 1627 } | |
| 1628 matches = gap->ga_len - start_len; | |
| 1629 | |
| 1630 if (Result == ERROR_BUFFER_OVERFLOW) | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1631 emsg(_("ANCHOR_BUF_SIZE too small.")); |
| 7 | 1632 else if (matches == 0 && Result != ERROR_OBJECT_NOT_FOUND |
| 1633 && Result != ERROR_DEVICE_NOT_MOUNTED | |
| 1634 && Result != ERROR_NO_MORE_ENTRIES) | |
|
15470
55ccc2d353bd
patch 8.1.0743: giving error messages is not flexible
Bram Moolenaar <Bram@vim.org>
parents:
15034
diff
changeset
|
1635 emsg(_("I/O ERROR")); |
| 7 | 1636 |
| 1637 /* | |
| 1638 * Sort the files for this pattern. | |
| 1639 */ | |
| 1640 if (matches) | |
| 1641 qsort((void *)(((char_u **)gap->ga_data) + start_len), | |
| 1642 (size_t)matches, sizeof(char_u *), sortcmp); | |
| 1643 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1644 // Free the wildcard stuff |
| 7 | 1645 #ifdef FEAT_ARP |
| 1646 if (dos2) | |
| 1647 #endif | |
| 1648 MatchEnd(Anchor); | |
| 1649 #ifdef FEAT_ARP | |
| 1650 else | |
| 1651 FreeAnchorChain(Anchor); | |
| 1652 #endif | |
| 1653 | |
| 1654 Return: | |
| 1030 | 1655 #ifdef __amigaos4__ |
| 1656 FreeDosObject(DOS_ANCHORPATH, Anchor); | |
| 1657 #else | |
| 7 | 1658 vim_free(Anchor); |
| 1030 | 1659 #endif |
| 7 | 1660 |
| 1661 return matches; | |
| 1662 } | |
| 1663 | |
| 1664 static int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1665 sortcmp(const void *a, const void *b) |
| 7 | 1666 { |
| 1667 char *s = *(char **)a; | |
| 1668 char *t = *(char **)b; | |
| 1669 | |
| 39 | 1670 return pathcmp(s, t, -1); |
| 7 | 1671 } |
| 1672 | |
| 1673 /* | |
| 1674 * Return TRUE if "p" has wildcards that can be expanded by mch_expandpath(). | |
| 1675 */ | |
| 1676 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1677 mch_has_exp_wildcard(char_u *p) |
| 7 | 1678 { |
|
11127
506f5d8b7d8b
patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
10835
diff
changeset
|
1679 for ( ; *p; MB_PTR_ADV(p)) |
| 7 | 1680 { |
| 1681 if (*p == '\\' && p[1] != NUL) | |
| 1682 ++p; | |
| 1683 else if (vim_strchr((char_u *)"*?[(#", *p) != NULL) | |
| 1684 return TRUE; | |
| 1685 } | |
| 1686 return FALSE; | |
| 1687 } | |
| 1688 | |
| 1689 int | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1690 mch_has_wildcard(char_u *p) |
| 7 | 1691 { |
|
11127
506f5d8b7d8b
patch 8.0.0451: some macros are in lower case
Christian Brabandt <cb@256bit.org>
parents:
10835
diff
changeset
|
1692 for ( ; *p; MB_PTR_ADV(p)) |
| 7 | 1693 { |
| 1694 if (*p == '\\' && p[1] != NUL) | |
| 1695 ++p; | |
| 1696 else | |
| 1697 if (vim_strchr((char_u *) | |
| 1698 # ifdef VIM_BACKTICK | |
| 1699 "*?[(#$`" | |
| 1700 # else | |
| 1701 "*?[(#$" | |
| 1702 # endif | |
| 1703 , *p) != NULL | |
| 1704 || (*p == '~' && p[1] != NUL)) | |
| 1705 return TRUE; | |
| 1706 } | |
| 1707 return FALSE; | |
| 1708 } | |
| 1709 | |
| 1710 /* | |
| 1711 * With AmigaDOS 2.0 support for reading local environment variables | |
| 1712 * | |
| 1713 * Two buffers are allocated: | |
| 1714 * - A big one to do the expansion into. It is freed before returning. | |
| 1715 * - A small one to hold the return value. It is kept until the next call. | |
| 1716 */ | |
| 1717 char_u * | |
|
7833
c079097365f3
commit https://github.com/vim/vim/commit/055409764ca5f7978d4c399d2c440af0ce971c4f
Christian Brabandt <cb@256bit.org>
parents:
7805
diff
changeset
|
1718 mch_getenv(char_u *var) |
| 7 | 1719 { |
| 1720 int len; | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1721 UBYTE *buf; // buffer to expand in |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1722 char_u *retval; // return value |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1723 static char_u *alloced = NULL; // allocated memory |
| 7 | 1724 |
| 1725 #ifdef FEAT_ARP | |
| 1726 if (!dos2) | |
| 1727 retval = (char_u *)getenv((char *)var); | |
| 1728 else | |
| 1729 #endif | |
| 1730 { | |
|
13244
ac42c4b11dbc
patch 8.0.1496: clearing a pointer takes two lines
Christian Brabandt <cb@256bit.org>
parents:
11127
diff
changeset
|
1731 VIM_CLEAR(alloced); |
| 7 | 1732 retval = NULL; |
| 1733 | |
| 1734 buf = alloc(IOSIZE); | |
| 1735 if (buf == NULL) | |
| 1736 return NULL; | |
| 1737 | |
| 1738 len = GetVar((UBYTE *)var, buf, (long)(IOSIZE - 1), (long)0); | |
| 1739 if (len >= 0) | |
| 1740 { | |
| 1741 retval = vim_strsave((char_u *)buf); | |
| 1742 alloced = retval; | |
| 1743 } | |
| 1744 | |
| 1745 vim_free(buf); | |
| 1746 } | |
| 1747 | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1748 // if $VIM is not defined, use "vim:" instead |
| 7 | 1749 if (retval == NULL && STRCMP(var, "VIM") == 0) |
| 1750 retval = (char_u *)"vim:"; | |
| 1751 | |
| 1752 return retval; | |
| 1753 } | |
| 1754 | |
| 1755 /* | |
| 1756 * Amiga version of setenv() with AmigaDOS 2.0 support. | |
| 1757 */ | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1758 // ARGSUSED |
| 7 | 1759 int |
|
27684
1761cc771623
patch 8.2.4368: Amiga: a few compiler warnings
Bram Moolenaar <Bram@vim.org>
parents:
27628
diff
changeset
|
1760 mch_setenv(char *var, char *value, int x UNUSED) |
| 7 | 1761 { |
| 1762 #ifdef FEAT_ARP | |
| 1763 if (!dos2) | |
| 1764 return setenv(var, value); | |
| 1765 #endif | |
| 1766 | |
| 1767 if (SetVar((UBYTE *)var, (UBYTE *)value, (LONG)-1, (ULONG)GVF_LOCAL_ONLY)) | |
|
18810
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1768 return 0; // success |
|
44b855153d8e
patch 8.1.2393: using old C style comments
Bram Moolenaar <Bram@vim.org>
parents:
18461
diff
changeset
|
1769 return -1; // failure |
| 7 | 1770 } |