Rev 4491 | Rev 4547 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4491 | Rev 4492 | ||
---|---|---|---|
1 | /* |
1 | /* |
2 | * Copyright (c) 2008 Jiri Svoboda |
2 | * Copyright (c) 2008 Jiri Svoboda |
3 | * All rights reserved. |
3 | * All rights reserved. |
4 | * |
4 | * |
5 | * Redistribution and use in source and binary forms, with or without |
5 | * Redistribution and use in source and binary forms, with or without |
6 | * modification, are permitted provided that the following conditions |
6 | * modification, are permitted provided that the following conditions |
7 | * are met: |
7 | * are met: |
8 | * |
8 | * |
9 | * - Redistributions of source code must retain the above copyright |
9 | * - Redistributions of source code must retain the above copyright |
10 | * notice, this list of conditions and the following disclaimer. |
10 | * notice, this list of conditions and the following disclaimer. |
11 | * - Redistributions in binary form must reproduce the above copyright |
11 | * - Redistributions in binary form must reproduce the above copyright |
12 | * notice, this list of conditions and the following disclaimer in the |
12 | * notice, this list of conditions and the following disclaimer in the |
13 | * documentation and/or other materials provided with the distribution. |
13 | * documentation and/or other materials provided with the distribution. |
14 | * - The name of the author may not be used to endorse or promote products |
14 | * - The name of the author may not be used to endorse or promote products |
15 | * derived from this software without specific prior written permission. |
15 | * derived from this software without specific prior written permission. |
16 | * |
16 | * |
17 | * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR |
17 | * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR |
18 | * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES |
18 | * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES |
19 | * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. |
19 | * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. |
20 | * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, |
20 | * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, |
21 | * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT |
21 | * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT |
22 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
22 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
23 | * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
23 | * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
24 | * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
24 | * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
25 | * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
25 | * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
26 | * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
26 | * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
27 | */ |
27 | */ |
28 | 28 | ||
29 | /** @addtogroup loader |
29 | /** @addtogroup loader |
30 | * @brief Loads and runs programs from VFS. |
30 | * @brief Loads and runs programs from VFS. |
31 | * @{ |
31 | * @{ |
32 | */ |
32 | */ |
33 | /** |
33 | /** |
34 | * @file |
34 | * @file |
35 | * @brief Loads and runs programs from VFS. |
35 | * @brief Loads and runs programs from VFS. |
36 | * |
36 | * |
37 | * The program loader is a special init binary. Its image is used |
37 | * The program loader is a special init binary. Its image is used |
38 | * to create a new task upon a @c task_spawn syscall. The syscall |
38 | * to create a new task upon a @c task_spawn syscall. The syscall |
39 | * returns the id of a phone connected to the newly created task. |
39 | * returns the id of a phone connected to the newly created task. |
40 | * |
40 | * |
41 | * The caller uses this phone to send the pathname and various other |
41 | * The caller uses this phone to send the pathname and various other |
42 | * information to the loader. This is normally done by the C library |
42 | * information to the loader. This is normally done by the C library |
43 | * and completely hidden from applications. |
43 | * and completely hidden from applications. |
44 | */ |
44 | */ |
45 | 45 | ||
46 | #include <stdio.h> |
46 | #include <stdio.h> |
47 | #include <stdlib.h> |
47 | #include <stdlib.h> |
48 | #include <unistd.h> |
48 | #include <unistd.h> |
49 | #include <bool.h> |
49 | #include <bool.h> |
50 | #include <fcntl.h> |
50 | #include <fcntl.h> |
51 | #include <sys/types.h> |
51 | #include <sys/types.h> |
52 | #include <ipc/ipc.h> |
52 | #include <ipc/ipc.h> |
53 | #include <ipc/services.h> |
53 | #include <ipc/services.h> |
54 | #include <ipc/loader.h> |
54 | #include <ipc/loader.h> |
55 | #include <loader/pcb.h> |
55 | #include <loader/pcb.h> |
56 | #include <errno.h> |
56 | #include <errno.h> |
57 | #include <async.h> |
57 | #include <async.h> |
58 | #include <string.h> |
58 | #include <string.h> |
59 | #include <as.h> |
59 | #include <as.h> |
60 | 60 | ||
61 | #include <elf.h> |
61 | #include <elf.h> |
62 | #include <elf_load.h> |
62 | #include <elf_load.h> |
63 | 63 | ||
64 | #define DPRINTF(...) |
64 | #define DPRINTF(...) |
65 | 65 | ||
66 | /** Pathname of the file that will be loaded */ |
66 | /** Pathname of the file that will be loaded */ |
67 | static char *pathname = NULL; |
67 | static char *pathname = NULL; |
68 | 68 | ||
69 | /** The Program control block */ |
69 | /** The Program control block */ |
70 | static pcb_t pcb; |
70 | static pcb_t pcb; |
71 | 71 | ||
72 | /** Number of arguments */ |
72 | /** Number of arguments */ |
73 | static int argc = 0; |
73 | static int argc = 0; |
74 | /** Argument vector */ |
74 | /** Argument vector */ |
75 | static char **argv = NULL; |
75 | static char **argv = NULL; |
76 | /** Buffer holding all arguments */ |
76 | /** Buffer holding all arguments */ |
77 | static char *arg_buf = NULL; |
77 | static char *arg_buf = NULL; |
78 | 78 | ||
79 | /** Number of preset files */ |
79 | /** Number of preset files */ |
80 | static int filc = 0; |
80 | static int filc = 0; |
81 | /** Preset files vector */ |
81 | /** Preset files vector */ |
82 | static char **filv = NULL; |
82 | static char **filv = NULL; |
83 | /** Buffer holding all preset files */ |
83 | /** Buffer holding all preset files */ |
84 | static inode_t *fil_buf = NULL; |
84 | static fdi_node_t *fil_buf = NULL; |
85 | 85 | ||
86 | static elf_info_t prog_info; |
86 | static elf_info_t prog_info; |
87 | static elf_info_t interp_info; |
87 | static elf_info_t interp_info; |
88 | 88 | ||
89 | static bool is_dyn_linked; |
89 | static bool is_dyn_linked; |
90 | 90 | ||
91 | /** Used to limit number of connections to one. */ |
91 | /** Used to limit number of connections to one. */ |
92 | static bool connected; |
92 | static bool connected; |
93 | 93 | ||
94 | static void ldr_get_taskid(ipc_callid_t rid, ipc_call_t *request) |
94 | static void ldr_get_taskid(ipc_callid_t rid, ipc_call_t *request) |
95 | { |
95 | { |
96 | ipc_callid_t callid; |
96 | ipc_callid_t callid; |
97 | task_id_t task_id; |
97 | task_id_t task_id; |
98 | size_t len; |
98 | size_t len; |
99 | 99 | ||
100 | task_id = task_get_id(); |
100 | task_id = task_get_id(); |
101 | 101 | ||
102 | if (!ipc_data_read_receive(&callid, &len)) { |
102 | if (!ipc_data_read_receive(&callid, &len)) { |
103 | ipc_answer_0(callid, EINVAL); |
103 | ipc_answer_0(callid, EINVAL); |
104 | ipc_answer_0(rid, EINVAL); |
104 | ipc_answer_0(rid, EINVAL); |
105 | return; |
105 | return; |
106 | } |
106 | } |
107 | 107 | ||
108 | if (len > sizeof(task_id)) |
108 | if (len > sizeof(task_id)) |
109 | len = sizeof(task_id); |
109 | len = sizeof(task_id); |
110 | 110 | ||
111 | ipc_data_read_finalize(callid, &task_id, len); |
111 | ipc_data_read_finalize(callid, &task_id, len); |
112 | ipc_answer_0(rid, EOK); |
112 | ipc_answer_0(rid, EOK); |
113 | } |
113 | } |
114 | 114 | ||
115 | 115 | ||
116 | /** Receive a call setting pathname of the program to execute. |
116 | /** Receive a call setting pathname of the program to execute. |
117 | * |
117 | * |
118 | * @param rid |
118 | * @param rid |
119 | * @param request |
119 | * @param request |
120 | */ |
120 | */ |
121 | static void ldr_set_pathname(ipc_callid_t rid, ipc_call_t *request) |
121 | static void ldr_set_pathname(ipc_callid_t rid, ipc_call_t *request) |
122 | { |
122 | { |
123 | ipc_callid_t callid; |
123 | ipc_callid_t callid; |
124 | size_t len; |
124 | size_t len; |
125 | char *name_buf; |
125 | char *name_buf; |
126 | 126 | ||
127 | if (!ipc_data_write_receive(&callid, &len)) { |
127 | if (!ipc_data_write_receive(&callid, &len)) { |
128 | ipc_answer_0(callid, EINVAL); |
128 | ipc_answer_0(callid, EINVAL); |
129 | ipc_answer_0(rid, EINVAL); |
129 | ipc_answer_0(rid, EINVAL); |
130 | return; |
130 | return; |
131 | } |
131 | } |
132 | 132 | ||
133 | name_buf = malloc(len + 1); |
133 | name_buf = malloc(len + 1); |
134 | if (!name_buf) { |
134 | if (!name_buf) { |
135 | ipc_answer_0(callid, ENOMEM); |
135 | ipc_answer_0(callid, ENOMEM); |
136 | ipc_answer_0(rid, ENOMEM); |
136 | ipc_answer_0(rid, ENOMEM); |
137 | return; |
137 | return; |
138 | } |
138 | } |
139 | 139 | ||
140 | ipc_data_write_finalize(callid, name_buf, len); |
140 | ipc_data_write_finalize(callid, name_buf, len); |
141 | ipc_answer_0(rid, EOK); |
141 | ipc_answer_0(rid, EOK); |
142 | 142 | ||
143 | if (pathname != NULL) { |
143 | if (pathname != NULL) { |
144 | free(pathname); |
144 | free(pathname); |
145 | pathname = NULL; |
145 | pathname = NULL; |
146 | } |
146 | } |
147 | 147 | ||
148 | name_buf[len] = '\0'; |
148 | name_buf[len] = '\0'; |
149 | pathname = name_buf; |
149 | pathname = name_buf; |
150 | } |
150 | } |
151 | 151 | ||
152 | /** Receive a call setting arguments of the program to execute. |
152 | /** Receive a call setting arguments of the program to execute. |
153 | * |
153 | * |
154 | * @param rid |
154 | * @param rid |
155 | * @param request |
155 | * @param request |
156 | */ |
156 | */ |
157 | static void ldr_set_args(ipc_callid_t rid, ipc_call_t *request) |
157 | static void ldr_set_args(ipc_callid_t rid, ipc_call_t *request) |
158 | { |
158 | { |
159 | ipc_callid_t callid; |
159 | ipc_callid_t callid; |
160 | size_t buf_size, arg_size; |
160 | size_t buf_size, arg_size; |
161 | char *p; |
161 | char *p; |
162 | int n; |
162 | int n; |
163 | 163 | ||
164 | if (!ipc_data_write_receive(&callid, &buf_size)) { |
164 | if (!ipc_data_write_receive(&callid, &buf_size)) { |
165 | ipc_answer_0(callid, EINVAL); |
165 | ipc_answer_0(callid, EINVAL); |
166 | ipc_answer_0(rid, EINVAL); |
166 | ipc_answer_0(rid, EINVAL); |
167 | return; |
167 | return; |
168 | } |
168 | } |
169 | 169 | ||
170 | if (arg_buf != NULL) { |
170 | if (arg_buf != NULL) { |
171 | free(arg_buf); |
171 | free(arg_buf); |
172 | arg_buf = NULL; |
172 | arg_buf = NULL; |
173 | } |
173 | } |
174 | 174 | ||
175 | if (argv != NULL) { |
175 | if (argv != NULL) { |
176 | free(argv); |
176 | free(argv); |
177 | argv = NULL; |
177 | argv = NULL; |
178 | } |
178 | } |
179 | 179 | ||
180 | arg_buf = malloc(buf_size + 1); |
180 | arg_buf = malloc(buf_size + 1); |
181 | if (!arg_buf) { |
181 | if (!arg_buf) { |
182 | ipc_answer_0(callid, ENOMEM); |
182 | ipc_answer_0(callid, ENOMEM); |
183 | ipc_answer_0(rid, ENOMEM); |
183 | ipc_answer_0(rid, ENOMEM); |
184 | return; |
184 | return; |
185 | } |
185 | } |
186 | 186 | ||
187 | ipc_data_write_finalize(callid, arg_buf, buf_size); |
187 | ipc_data_write_finalize(callid, arg_buf, buf_size); |
188 | 188 | ||
189 | arg_buf[buf_size] = '\0'; |
189 | arg_buf[buf_size] = '\0'; |
190 | 190 | ||
191 | /* |
191 | /* |
192 | * Count number of arguments |
192 | * Count number of arguments |
193 | */ |
193 | */ |
194 | p = arg_buf; |
194 | p = arg_buf; |
195 | n = 0; |
195 | n = 0; |
196 | while (p < arg_buf + buf_size) { |
196 | while (p < arg_buf + buf_size) { |
197 | arg_size = str_size(p); |
197 | arg_size = str_size(p); |
198 | p = p + arg_size + 1; |
198 | p = p + arg_size + 1; |
199 | ++n; |
199 | ++n; |
200 | } |
200 | } |
201 | 201 | ||
202 | /* Allocate argv */ |
202 | /* Allocate argv */ |
203 | argv = malloc((n + 1) * sizeof(char *)); |
203 | argv = malloc((n + 1) * sizeof(char *)); |
204 | 204 | ||
205 | if (argv == NULL) { |
205 | if (argv == NULL) { |
206 | free(arg_buf); |
206 | free(arg_buf); |
207 | ipc_answer_0(rid, ENOMEM); |
207 | ipc_answer_0(rid, ENOMEM); |
208 | return; |
208 | return; |
209 | } |
209 | } |
210 | 210 | ||
211 | /* |
211 | /* |
212 | * Fill argv with argument pointers |
212 | * Fill argv with argument pointers |
213 | */ |
213 | */ |
214 | p = arg_buf; |
214 | p = arg_buf; |
215 | n = 0; |
215 | n = 0; |
216 | while (p < arg_buf + buf_size) { |
216 | while (p < arg_buf + buf_size) { |
217 | argv[n] = p; |
217 | argv[n] = p; |
218 | 218 | ||
219 | arg_size = str_size(p); |
219 | arg_size = str_size(p); |
220 | p = p + arg_size + 1; |
220 | p = p + arg_size + 1; |
221 | ++n; |
221 | ++n; |
222 | } |
222 | } |
223 | 223 | ||
224 | argc = n; |
224 | argc = n; |
225 | argv[n] = NULL; |
225 | argv[n] = NULL; |
226 | 226 | ||
227 | ipc_answer_0(rid, EOK); |
227 | ipc_answer_0(rid, EOK); |
228 | } |
228 | } |
229 | 229 | ||
230 | /** Receive a call setting preset files of the program to execute. |
230 | /** Receive a call setting preset files of the program to execute. |
231 | * |
231 | * |
232 | * @param rid |
232 | * @param rid |
233 | * @param request |
233 | * @param request |
234 | */ |
234 | */ |
235 | static void ldr_set_files(ipc_callid_t rid, ipc_call_t *request) |
235 | static void ldr_set_files(ipc_callid_t rid, ipc_call_t *request) |
236 | { |
236 | { |
237 | ipc_callid_t callid; |
237 | ipc_callid_t callid; |
238 | size_t buf_size; |
238 | size_t buf_size; |
239 | if (!ipc_data_write_receive(&callid, &buf_size)) { |
239 | if (!ipc_data_write_receive(&callid, &buf_size)) { |
240 | ipc_answer_0(callid, EINVAL); |
240 | ipc_answer_0(callid, EINVAL); |
241 | ipc_answer_0(rid, EINVAL); |
241 | ipc_answer_0(rid, EINVAL); |
242 | return; |
242 | return; |
243 | } |
243 | } |
244 | 244 | ||
245 | if ((buf_size % sizeof(inode_t)) != 0) { |
245 | if ((buf_size % sizeof(fdi_node_t)) != 0) { |
246 | ipc_answer_0(callid, EINVAL); |
246 | ipc_answer_0(callid, EINVAL); |
247 | ipc_answer_0(rid, EINVAL); |
247 | ipc_answer_0(rid, EINVAL); |
248 | return; |
248 | return; |
249 | } |
249 | } |
250 | 250 | ||
251 | if (fil_buf != NULL) { |
251 | if (fil_buf != NULL) { |
252 | free(fil_buf); |
252 | free(fil_buf); |
253 | fil_buf = NULL; |
253 | fil_buf = NULL; |
254 | } |
254 | } |
255 | 255 | ||
256 | if (filv != NULL) { |
256 | if (filv != NULL) { |
257 | free(filv); |
257 | free(filv); |
258 | filv = NULL; |
258 | filv = NULL; |
259 | } |
259 | } |
260 | 260 | ||
261 | fil_buf = malloc(buf_size); |
261 | fil_buf = malloc(buf_size); |
262 | if (!fil_buf) { |
262 | if (!fil_buf) { |
263 | ipc_answer_0(callid, ENOMEM); |
263 | ipc_answer_0(callid, ENOMEM); |
264 | ipc_answer_0(rid, ENOMEM); |
264 | ipc_answer_0(rid, ENOMEM); |
265 | return; |
265 | return; |
266 | } |
266 | } |
267 | 267 | ||
268 | ipc_data_write_finalize(callid, fil_buf, buf_size); |
268 | ipc_data_write_finalize(callid, fil_buf, buf_size); |
269 | 269 | ||
270 | int count = buf_size / sizeof(inode_t); |
270 | int count = buf_size / sizeof(fdi_node_t); |
271 | 271 | ||
272 | /* Allocate filvv */ |
272 | /* Allocate filvv */ |
273 | filv = malloc((count + 1) * sizeof(inode_t *)); |
273 | filv = malloc((count + 1) * sizeof(fdi_node_t *)); |
274 | 274 | ||
275 | if (filv == NULL) { |
275 | if (filv == NULL) { |
276 | free(fil_buf); |
276 | free(fil_buf); |
277 | ipc_answer_0(rid, ENOMEM); |
277 | ipc_answer_0(rid, ENOMEM); |
278 | return; |
278 | return; |
279 | } |
279 | } |
280 | 280 | ||
281 | /* |
281 | /* |
282 | * Fill filv with argument pointers |
282 | * Fill filv with argument pointers |
283 | */ |
283 | */ |
284 | int i; |
284 | int i; |
285 | for (i = 0; i < count; i++) |
285 | for (i = 0; i < count; i++) |
286 | filv[i] = &fil_buf[i]; |
286 | filv[i] = &fil_buf[i]; |
287 | 287 | ||
288 | filc = count; |
288 | filc = count; |
289 | filv[count] = NULL; |
289 | filv[count] = NULL; |
290 | 290 | ||
291 | ipc_answer_0(rid, EOK); |
291 | ipc_answer_0(rid, EOK); |
292 | } |
292 | } |
293 | 293 | ||
294 | /** Load the previously selected program. |
294 | /** Load the previously selected program. |
295 | * |
295 | * |
296 | * @param rid |
296 | * @param rid |
297 | * @param request |
297 | * @param request |
298 | * @return 0 on success, !0 on error. |
298 | * @return 0 on success, !0 on error. |
299 | */ |
299 | */ |
300 | static int ldr_load(ipc_callid_t rid, ipc_call_t *request) |
300 | static int ldr_load(ipc_callid_t rid, ipc_call_t *request) |
301 | { |
301 | { |
302 | int rc; |
302 | int rc; |
303 | 303 | ||
304 | rc = elf_load_file(pathname, 0, &prog_info); |
304 | rc = elf_load_file(pathname, 0, &prog_info); |
305 | if (rc != EE_OK) { |
305 | if (rc != EE_OK) { |
306 | DPRINTF("Failed to load executable '%s'.\n", pathname); |
306 | DPRINTF("Failed to load executable '%s'.\n", pathname); |
307 | ipc_answer_0(rid, EINVAL); |
307 | ipc_answer_0(rid, EINVAL); |
308 | return 1; |
308 | return 1; |
309 | } |
309 | } |
310 | 310 | ||
311 | elf_create_pcb(&prog_info, &pcb); |
311 | elf_create_pcb(&prog_info, &pcb); |
312 | 312 | ||
313 | pcb.argc = argc; |
313 | pcb.argc = argc; |
314 | pcb.argv = argv; |
314 | pcb.argv = argv; |
315 | 315 | ||
316 | pcb.filc = filc; |
316 | pcb.filc = filc; |
317 | pcb.filv = filv; |
317 | pcb.filv = filv; |
318 | 318 | ||
319 | if (prog_info.interp == NULL) { |
319 | if (prog_info.interp == NULL) { |
320 | /* Statically linked program */ |
320 | /* Statically linked program */ |
321 | is_dyn_linked = false; |
321 | is_dyn_linked = false; |
322 | ipc_answer_0(rid, EOK); |
322 | ipc_answer_0(rid, EOK); |
323 | return 0; |
323 | return 0; |
324 | } |
324 | } |
325 | 325 | ||
326 | rc = elf_load_file(prog_info.interp, 0, &interp_info); |
326 | rc = elf_load_file(prog_info.interp, 0, &interp_info); |
327 | if (rc != EE_OK) { |
327 | if (rc != EE_OK) { |
328 | DPRINTF("Failed to load interpreter '%s.'\n", |
328 | DPRINTF("Failed to load interpreter '%s.'\n", |
329 | prog_info.interp); |
329 | prog_info.interp); |
330 | ipc_answer_0(rid, EINVAL); |
330 | ipc_answer_0(rid, EINVAL); |
331 | return 1; |
331 | return 1; |
332 | } |
332 | } |
333 | 333 | ||
334 | is_dyn_linked = true; |
334 | is_dyn_linked = true; |
335 | ipc_answer_0(rid, EOK); |
335 | ipc_answer_0(rid, EOK); |
336 | 336 | ||
337 | return 0; |
337 | return 0; |
338 | } |
338 | } |
339 | 339 | ||
340 | 340 | ||
341 | /** Run the previously loaded program. |
341 | /** Run the previously loaded program. |
342 | * |
342 | * |
343 | * @param rid |
343 | * @param rid |
344 | * @param request |
344 | * @param request |
345 | * @return 0 on success, !0 on error. |
345 | * @return 0 on success, !0 on error. |
346 | */ |
346 | */ |
347 | static void ldr_run(ipc_callid_t rid, ipc_call_t *request) |
347 | static void ldr_run(ipc_callid_t rid, ipc_call_t *request) |
348 | { |
348 | { |
349 | const char *cp; |
349 | const char *cp; |
350 | 350 | ||
351 | /* Set the task name. */ |
351 | /* Set the task name. */ |
352 | cp = str_rchr(pathname, '/'); |
352 | cp = str_rchr(pathname, '/'); |
353 | cp = (cp == NULL) ? pathname : (cp + 1); |
353 | cp = (cp == NULL) ? pathname : (cp + 1); |
354 | task_set_name(cp); |
354 | task_set_name(cp); |
355 | 355 | ||
356 | if (is_dyn_linked == true) { |
356 | if (is_dyn_linked == true) { |
357 | /* Dynamically linked program */ |
357 | /* Dynamically linked program */ |
358 | DPRINTF("Run ELF interpreter.\n"); |
358 | DPRINTF("Run ELF interpreter.\n"); |
359 | DPRINTF("Entry point: 0x%lx\n", interp_info.entry); |
359 | DPRINTF("Entry point: 0x%lx\n", interp_info.entry); |
360 | 360 | ||
361 | ipc_answer_0(rid, EOK); |
361 | ipc_answer_0(rid, EOK); |
362 | elf_run(&interp_info, &pcb); |
362 | elf_run(&interp_info, &pcb); |
363 | } else { |
363 | } else { |
364 | /* Statically linked program */ |
364 | /* Statically linked program */ |
365 | ipc_answer_0(rid, EOK); |
365 | ipc_answer_0(rid, EOK); |
366 | elf_run(&prog_info, &pcb); |
366 | elf_run(&prog_info, &pcb); |
367 | } |
367 | } |
368 | 368 | ||
369 | /* Not reached */ |
369 | /* Not reached */ |
370 | } |
370 | } |
371 | 371 | ||
372 | /** Handle loader connection. |
372 | /** Handle loader connection. |
373 | * |
373 | * |
374 | * Receive and carry out commands (of which the last one should be |
374 | * Receive and carry out commands (of which the last one should be |
375 | * to execute the loaded program). |
375 | * to execute the loaded program). |
376 | */ |
376 | */ |
377 | static void ldr_connection(ipc_callid_t iid, ipc_call_t *icall) |
377 | static void ldr_connection(ipc_callid_t iid, ipc_call_t *icall) |
378 | { |
378 | { |
379 | ipc_callid_t callid; |
379 | ipc_callid_t callid; |
380 | ipc_call_t call; |
380 | ipc_call_t call; |
381 | int retval; |
381 | int retval; |
382 | 382 | ||
383 | /* Already have a connection? */ |
383 | /* Already have a connection? */ |
384 | if (connected) { |
384 | if (connected) { |
385 | ipc_answer_0(iid, ELIMIT); |
385 | ipc_answer_0(iid, ELIMIT); |
386 | return; |
386 | return; |
387 | } |
387 | } |
388 | 388 | ||
389 | connected = true; |
389 | connected = true; |
390 | 390 | ||
391 | /* Accept the connection */ |
391 | /* Accept the connection */ |
392 | ipc_answer_0(iid, EOK); |
392 | ipc_answer_0(iid, EOK); |
393 | 393 | ||
394 | /* Ignore parameters, the connection is already open */ |
394 | /* Ignore parameters, the connection is already open */ |
395 | (void) iid; |
395 | (void) iid; |
396 | (void) icall; |
396 | (void) icall; |
397 | 397 | ||
398 | while (1) { |
398 | while (1) { |
399 | callid = async_get_call(&call); |
399 | callid = async_get_call(&call); |
400 | 400 | ||
401 | switch (IPC_GET_METHOD(call)) { |
401 | switch (IPC_GET_METHOD(call)) { |
402 | case IPC_M_PHONE_HUNGUP: |
402 | case IPC_M_PHONE_HUNGUP: |
403 | exit(0); |
403 | exit(0); |
404 | case LOADER_GET_TASKID: |
404 | case LOADER_GET_TASKID: |
405 | ldr_get_taskid(callid, &call); |
405 | ldr_get_taskid(callid, &call); |
406 | continue; |
406 | continue; |
407 | case LOADER_SET_PATHNAME: |
407 | case LOADER_SET_PATHNAME: |
408 | ldr_set_pathname(callid, &call); |
408 | ldr_set_pathname(callid, &call); |
409 | continue; |
409 | continue; |
410 | case LOADER_SET_ARGS: |
410 | case LOADER_SET_ARGS: |
411 | ldr_set_args(callid, &call); |
411 | ldr_set_args(callid, &call); |
412 | continue; |
412 | continue; |
413 | case LOADER_SET_FILES: |
413 | case LOADER_SET_FILES: |
414 | ldr_set_files(callid, &call); |
414 | ldr_set_files(callid, &call); |
415 | continue; |
415 | continue; |
416 | case LOADER_LOAD: |
416 | case LOADER_LOAD: |
417 | ldr_load(callid, &call); |
417 | ldr_load(callid, &call); |
418 | continue; |
418 | continue; |
419 | case LOADER_RUN: |
419 | case LOADER_RUN: |
420 | ldr_run(callid, &call); |
420 | ldr_run(callid, &call); |
421 | /* Not reached */ |
421 | /* Not reached */ |
422 | default: |
422 | default: |
423 | retval = ENOENT; |
423 | retval = ENOENT; |
424 | break; |
424 | break; |
425 | } |
425 | } |
426 | if ((callid & IPC_CALLID_NOTIFICATION) == 0 && |
426 | if ((callid & IPC_CALLID_NOTIFICATION) == 0 && |
427 | IPC_GET_METHOD(call) != IPC_M_PHONE_HUNGUP) { |
427 | IPC_GET_METHOD(call) != IPC_M_PHONE_HUNGUP) { |
428 | DPRINTF("Responding EINVAL to method %d.\n", |
428 | DPRINTF("Responding EINVAL to method %d.\n", |
429 | IPC_GET_METHOD(call)); |
429 | IPC_GET_METHOD(call)); |
430 | ipc_answer_0(callid, EINVAL); |
430 | ipc_answer_0(callid, EINVAL); |
431 | } |
431 | } |
432 | } |
432 | } |
433 | } |
433 | } |
434 | 434 | ||
435 | /** Program loader main function. |
435 | /** Program loader main function. |
436 | */ |
436 | */ |
437 | int main(int argc, char *argv[]) |
437 | int main(int argc, char *argv[]) |
438 | { |
438 | { |
439 | ipcarg_t phonead; |
439 | ipcarg_t phonead; |
440 | 440 | ||
441 | connected = false; |
441 | connected = false; |
442 | 442 | ||
443 | /* Set a handler of incomming connections. */ |
443 | /* Set a handler of incomming connections. */ |
444 | async_set_client_connection(ldr_connection); |
444 | async_set_client_connection(ldr_connection); |
445 | 445 | ||
446 | /* Register at naming service. */ |
446 | /* Register at naming service. */ |
447 | if (ipc_connect_to_me(PHONE_NS, SERVICE_LOAD, 0, 0, &phonead) != 0) |
447 | if (ipc_connect_to_me(PHONE_NS, SERVICE_LOAD, 0, 0, &phonead) != 0) |
448 | return -1; |
448 | return -1; |
449 | 449 | ||
450 | async_manager(); |
450 | async_manager(); |
451 | 451 | ||
452 | /* Never reached */ |
452 | /* Never reached */ |
453 | return 0; |
453 | return 0; |
454 | } |
454 | } |
455 | 455 | ||
456 | /** @} |
456 | /** @} |
457 | */ |
457 | */ |
458 | 458 |