annotate src/os_amiga.c @ 7605:8fc60af6dbf5 v7.4.1102

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