chiark / gitweb /
boot/efi: do not assign variable twice
[elogind.git] / src / boot / efi / boot.c
1 /*-*- Mode: C; c-basic-offset: 8; indent-tabs-mode: nil -*-*/
2
3 /*
4  * This program is free software; you can redistribute it and/or modify it
5  * under the terms of the GNU Lesser General Public License as published by
6  * the Free Software Foundation; either version 2.1 of the License, or
7  * (at your option) any later version.
8  *
9  * This program is distributed in the hope that it will be useful, but
10  * WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12  * Lesser General Public License for more details.
13  *
14  * Copyright (C) 2012-2015 Kay Sievers <kay@vrfy.org>
15  * Copyright (C) 2012-2015 Harald Hoyer <harald@redhat.com>
16  */
17
18 #include <efi.h>
19 #include <efilib.h>
20
21 #include "util.h"
22 #include "console.h"
23 #include "graphics.h"
24 #include "pefile.h"
25 #include "linux.h"
26
27 #ifndef EFI_OS_INDICATIONS_BOOT_TO_FW_UI
28 #define EFI_OS_INDICATIONS_BOOT_TO_FW_UI 0x0000000000000001ULL
29 #endif
30
31 /* magic string to find in the binary image */
32 static const char __attribute__((used)) magic[] = "#### LoaderInfo: systemd-boot " VERSION " ####";
33
34 static const EFI_GUID global_guid = EFI_GLOBAL_VARIABLE;
35
36 enum loader_type {
37         LOADER_UNDEFINED,
38         LOADER_EFI,
39         LOADER_LINUX
40 };
41
42 typedef struct {
43         CHAR16 *file;
44         CHAR16 *title_show;
45         CHAR16 *title;
46         CHAR16 *version;
47         CHAR16 *machine_id;
48         EFI_HANDLE *device;
49         enum loader_type type;
50         CHAR16 *loader;
51         CHAR16 *options;
52         CHAR16 key;
53         EFI_STATUS (*call)(VOID);
54         BOOLEAN no_autoselect;
55         BOOLEAN non_unique;
56 } ConfigEntry;
57
58 typedef struct {
59         ConfigEntry **entries;
60         UINTN entry_count;
61         INTN idx_default;
62         INTN idx_default_efivar;
63         UINTN timeout_sec;
64         UINTN timeout_sec_config;
65         INTN timeout_sec_efivar;
66         CHAR16 *entry_default_pattern;
67         CHAR16 *entry_oneshot;
68         CHAR16 *options_edit;
69 } Config;
70
71 static VOID cursor_left(UINTN *cursor, UINTN *first)
72 {
73         if ((*cursor) > 0)
74                 (*cursor)--;
75         else if ((*first) > 0)
76                 (*first)--;
77 }
78
79 static VOID cursor_right(UINTN *cursor, UINTN *first, UINTN x_max, UINTN len)
80 {
81         if ((*cursor)+1 < x_max)
82                 (*cursor)++;
83         else if ((*first) + (*cursor) < len)
84                 (*first)++;
85 }
86
87 static BOOLEAN line_edit(CHAR16 *line_in, CHAR16 **line_out, UINTN x_max, UINTN y_pos) {
88         CHAR16 *line;
89         UINTN size;
90         UINTN len;
91         UINTN first;
92         CHAR16 *print;
93         UINTN cursor;
94         UINTN clear;
95         BOOLEAN exit;
96         BOOLEAN enter;
97
98         if (!line_in)
99                 line_in = L"";
100         size = StrLen(line_in) + 1024;
101         line = AllocatePool(size * sizeof(CHAR16));
102         StrCpy(line, line_in);
103         len = StrLen(line);
104         print = AllocatePool((x_max+1) * sizeof(CHAR16));
105
106         uefi_call_wrapper(ST->ConOut->EnableCursor, 2, ST->ConOut, TRUE);
107
108         first = 0;
109         cursor = 0;
110         clear = 0;
111         enter = FALSE;
112         exit = FALSE;
113         while (!exit) {
114                 EFI_STATUS err;
115                 UINT64 key;
116                 UINTN i;
117
118                 i = len - first;
119                 if (i >= x_max-1)
120                         i = x_max-1;
121                 CopyMem(print, line + first, i * sizeof(CHAR16));
122                 while (clear > 0 && i < x_max-1) {
123                         clear--;
124                         print[i++] = ' ';
125                 }
126                 print[i] = '\0';
127
128                 uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, 0, y_pos);
129                 uefi_call_wrapper(ST->ConOut->OutputString, 2, ST->ConOut, print);
130                 uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, cursor, y_pos);
131
132                 err = console_key_read(&key, TRUE);
133                 if (EFI_ERROR(err))
134                         continue;
135
136                 switch (key) {
137                 case KEYPRESS(0, SCAN_ESC, 0):
138                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, 'c'):
139                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, 'g'):
140                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, CHAR_CTRL('c')):
141                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, CHAR_CTRL('g')):
142                         exit = TRUE;
143                         break;
144
145                 case KEYPRESS(0, SCAN_HOME, 0):
146                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, 'a'):
147                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, CHAR_CTRL('a')):
148                         /* beginning-of-line */
149                         cursor = 0;
150                         first = 0;
151                         continue;
152
153                 case KEYPRESS(0, SCAN_END, 0):
154                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, 'e'):
155                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, CHAR_CTRL('e')):
156                         /* end-of-line */
157                         cursor = len - first;
158                         if (cursor+1 >= x_max) {
159                                 cursor = x_max-1;
160                                 first = len - (x_max-1);
161                         }
162                         continue;
163
164                 case KEYPRESS(0, SCAN_DOWN, 0):
165                 case KEYPRESS(EFI_ALT_PRESSED, 0, 'f'):
166                 case KEYPRESS(EFI_CONTROL_PRESSED, SCAN_RIGHT, 0):
167                         /* forward-word */
168                         while (line[first + cursor] && line[first + cursor] == ' ')
169                                 cursor_right(&cursor, &first, x_max, len);
170                         while (line[first + cursor] && line[first + cursor] != ' ')
171                                 cursor_right(&cursor, &first, x_max, len);
172                         uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, cursor, y_pos);
173                         continue;
174
175                 case KEYPRESS(0, SCAN_UP, 0):
176                 case KEYPRESS(EFI_ALT_PRESSED, 0, 'b'):
177                 case KEYPRESS(EFI_CONTROL_PRESSED, SCAN_LEFT, 0):
178                         /* backward-word */
179                         if ((first + cursor) > 0 && line[first + cursor-1] == ' ') {
180                                 cursor_left(&cursor, &first);
181                                 while ((first + cursor) > 0 && line[first + cursor] == ' ')
182                                         cursor_left(&cursor, &first);
183                         }
184                         while ((first + cursor) > 0 && line[first + cursor-1] != ' ')
185                                 cursor_left(&cursor, &first);
186                         uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, cursor, y_pos);
187                         continue;
188
189                 case KEYPRESS(0, SCAN_RIGHT, 0):
190                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, 'f'):
191                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, CHAR_CTRL('f')):
192                         /* forward-char */
193                         if (first + cursor == len)
194                                 continue;
195                         cursor_right(&cursor, &first, x_max, len);
196                         uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, cursor, y_pos);
197                         continue;
198
199                 case KEYPRESS(0, SCAN_LEFT, 0):
200                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, 'b'):
201                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, CHAR_CTRL('b')):
202                         /* backward-char */
203                         cursor_left(&cursor, &first);
204                         uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, cursor, y_pos);
205                         continue;
206
207                 case KEYPRESS(EFI_ALT_PRESSED, 0, 'd'):
208                         /* kill-word */
209                         clear = 0;
210                         for (i = first + cursor; i < len && line[i] == ' '; i++)
211                                 clear++;
212                         for (; i < len && line[i] != ' '; i++)
213                                 clear++;
214
215                         for (i = first + cursor; i + clear < len; i++)
216                                 line[i] = line[i + clear];
217                         len -= clear;
218                         line[len] = '\0';
219                         continue;
220
221                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, 'w'):
222                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, CHAR_CTRL('w')):
223                 case KEYPRESS(EFI_ALT_PRESSED, 0, CHAR_BACKSPACE):
224                         /* backward-kill-word */
225                         clear = 0;
226                         if ((first + cursor) > 0 && line[first + cursor-1] == ' ') {
227                                 cursor_left(&cursor, &first);
228                                 clear++;
229                                 while ((first + cursor) > 0 && line[first + cursor] == ' ') {
230                                         cursor_left(&cursor, &first);
231                                         clear++;
232                                 }
233                         }
234                         while ((first + cursor) > 0 && line[first + cursor-1] != ' ') {
235                                 cursor_left(&cursor, &first);
236                                 clear++;
237                         }
238                         uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, cursor, y_pos);
239
240                         for (i = first + cursor; i + clear < len; i++)
241                                 line[i] = line[i + clear];
242                         len -= clear;
243                         line[len] = '\0';
244                         continue;
245
246                 case KEYPRESS(0, SCAN_DELETE, 0):
247                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, 'd'):
248                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, CHAR_CTRL('d')):
249                         if (len == 0)
250                                 continue;
251                         if (first + cursor == len)
252                                 continue;
253                         for (i = first + cursor; i < len; i++)
254                                 line[i] = line[i+1];
255                         clear = 1;
256                         len--;
257                         continue;
258
259                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, 'k'):
260                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, CHAR_CTRL('k')):
261                         /* kill-line */
262                         line[first + cursor] = '\0';
263                         clear = len - (first + cursor);
264                         len = first + cursor;
265                         continue;
266
267                 case KEYPRESS(0, 0, CHAR_LINEFEED):
268                 case KEYPRESS(0, 0, CHAR_CARRIAGE_RETURN):
269                         if (StrCmp(line, line_in) != 0) {
270                                 *line_out = line;
271                                 line = NULL;
272                         }
273                         enter = TRUE;
274                         exit = TRUE;
275                         break;
276
277                 case KEYPRESS(0, 0, CHAR_BACKSPACE):
278                         if (len == 0)
279                                 continue;
280                         if (first == 0 && cursor == 0)
281                                 continue;
282                         for (i = first + cursor-1; i < len; i++)
283                                 line[i] = line[i+1];
284                         clear = 1;
285                         len--;
286                         if (cursor > 0)
287                                 cursor--;
288                         if (cursor > 0 || first == 0)
289                                 continue;
290                         /* show full line if it fits */
291                         if (len < x_max) {
292                                 cursor = first;
293                                 first = 0;
294                                 continue;
295                         }
296                         /* jump left to see what we delete */
297                         if (first > 10) {
298                                 first -= 10;
299                                 cursor = 10;
300                         } else {
301                                 cursor = first;
302                                 first = 0;
303                         }
304                         continue;
305
306                 case KEYPRESS(0, 0, ' ') ... KEYPRESS(0, 0, '~'):
307                 case KEYPRESS(0, 0, 0x80) ... KEYPRESS(0, 0, 0xffff):
308                         if (len+1 == size)
309                                 continue;
310                         for (i = len; i > first + cursor; i--)
311                                 line[i] = line[i-1];
312                         line[first + cursor] = KEYCHAR(key);
313                         len++;
314                         line[len] = '\0';
315                         if (cursor+1 < x_max)
316                                 cursor++;
317                         else if (first + cursor < len)
318                                 first++;
319                         continue;
320                 }
321         }
322
323         uefi_call_wrapper(ST->ConOut->EnableCursor, 2, ST->ConOut, FALSE);
324         FreePool(print);
325         FreePool(line);
326         return enter;
327 }
328
329 static UINTN entry_lookup_key(Config *config, UINTN start, CHAR16 key) {
330         UINTN i;
331
332         if (key == 0)
333                 return -1;
334
335         /* select entry by number key */
336         if (key >= '1' && key <= '9') {
337                 i = key - '0';
338                 if (i > config->entry_count)
339                         i = config->entry_count;
340                 return i-1;
341         }
342
343         /* find matching key in config entries */
344         for (i = start; i < config->entry_count; i++)
345                 if (config->entries[i]->key == key)
346                         return i;
347
348         for (i = 0; i < start; i++)
349                 if (config->entries[i]->key == key)
350                         return i;
351
352         return -1;
353 }
354
355 static VOID print_status(Config *config, CHAR16 *loaded_image_path) {
356         UINT64 key;
357         UINTN i;
358         CHAR16 *s;
359         CHAR8 *b;
360         UINTN x;
361         UINTN y;
362         UINTN size;
363
364         uefi_call_wrapper(ST->ConOut->SetAttribute, 2, ST->ConOut, EFI_LIGHTGRAY|EFI_BACKGROUND_BLACK);
365         uefi_call_wrapper(ST->ConOut->ClearScreen, 1, ST->ConOut);
366
367         Print(L"systemd-boot version:   " VERSION "\n");
368         Print(L"architecture:           " EFI_MACHINE_TYPE_NAME "\n");
369         Print(L"loaded image:           %s\n", loaded_image_path);
370         Print(L"UEFI specification:     %d.%02d\n", ST->Hdr.Revision >> 16, ST->Hdr.Revision & 0xffff);
371         Print(L"firmware vendor:        %s\n", ST->FirmwareVendor);
372         Print(L"firmware version:       %d.%02d\n", ST->FirmwareRevision >> 16, ST->FirmwareRevision & 0xffff);
373
374         if (uefi_call_wrapper(ST->ConOut->QueryMode, 4, ST->ConOut, ST->ConOut->Mode->Mode, &x, &y) == EFI_SUCCESS)
375                 Print(L"console size:           %d x %d\n", x, y);
376
377         if (efivar_get_raw(&global_guid, L"SecureBoot", &b, &size) == EFI_SUCCESS) {
378                 Print(L"SecureBoot:             %s\n", *b > 0 ? L"enabled" : L"disabled");
379                 FreePool(b);
380         }
381
382         if (efivar_get_raw(&global_guid, L"SetupMode", &b, &size) == EFI_SUCCESS) {
383                 Print(L"SetupMode:              %s\n", *b > 0 ? L"setup" : L"user");
384                 FreePool(b);
385         }
386
387         if (efivar_get_raw(&global_guid, L"OsIndicationsSupported", &b, &size) == EFI_SUCCESS) {
388                 Print(L"OsIndicationsSupported: %d\n", (UINT64)*b);
389                 FreePool(b);
390         }
391         Print(L"\n");
392
393         Print(L"timeout:                %d\n", config->timeout_sec);
394         if (config->timeout_sec_efivar >= 0)
395                 Print(L"timeout (EFI var):      %d\n", config->timeout_sec_efivar);
396         Print(L"timeout (config):       %d\n", config->timeout_sec_config);
397         if (config->entry_default_pattern)
398                 Print(L"default pattern:        '%s'\n", config->entry_default_pattern);
399         Print(L"\n");
400
401         Print(L"config entry count:     %d\n", config->entry_count);
402         Print(L"entry selected idx:     %d\n", config->idx_default);
403         if (config->idx_default_efivar >= 0)
404                 Print(L"entry EFI var idx:      %d\n", config->idx_default_efivar);
405         Print(L"\n");
406
407         if (efivar_get_int(L"LoaderConfigTimeout", &i) == EFI_SUCCESS)
408                 Print(L"LoaderConfigTimeout:    %d\n", i);
409         if (config->entry_oneshot)
410                 Print(L"LoaderEntryOneShot:     %s\n", config->entry_oneshot);
411         if (efivar_get(L"LoaderDevicePartUUID", &s) == EFI_SUCCESS) {
412                 Print(L"LoaderDevicePartUUID:   %s\n", s);
413                 FreePool(s);
414         }
415         if (efivar_get(L"LoaderEntryDefault", &s) == EFI_SUCCESS) {
416                 Print(L"LoaderEntryDefault:     %s\n", s);
417                 FreePool(s);
418         }
419
420         Print(L"\n--- press key ---\n\n");
421         console_key_read(&key, TRUE);
422
423         for (i = 0; i < config->entry_count; i++) {
424                 ConfigEntry *entry;
425
426                 if (key == KEYPRESS(0, SCAN_ESC, 0) || key == KEYPRESS(0, 0, 'q'))
427                         break;
428
429                 entry = config->entries[i];
430                 Print(L"config entry:           %d/%d\n", i+1, config->entry_count);
431                 if (entry->file)
432                         Print(L"file                    '%s'\n", entry->file);
433                 Print(L"title show              '%s'\n", entry->title_show);
434                 if (entry->title)
435                         Print(L"title                   '%s'\n", entry->title);
436                 if (entry->version)
437                         Print(L"version                 '%s'\n", entry->version);
438                 if (entry->machine_id)
439                         Print(L"machine-id              '%s'\n", entry->machine_id);
440                 if (entry->device) {
441                         EFI_DEVICE_PATH *device_path;
442                         CHAR16 *str;
443
444                         device_path = DevicePathFromHandle(entry->device);
445                         if (device_path) {
446                                 str = DevicePathToStr(device_path);
447                                 Print(L"device handle           '%s'\n", str);
448                                 FreePool(str);
449                         }
450                 }
451                 if (entry->loader)
452                         Print(L"loader                  '%s'\n", entry->loader);
453                 if (entry->options)
454                         Print(L"options                 '%s'\n", entry->options);
455                 Print(L"auto-select             %s\n", entry->no_autoselect ? L"no" : L"yes");
456                 if (entry->call)
457                         Print(L"internal call           yes\n");
458
459                 Print(L"\n--- press key ---\n\n");
460                 console_key_read(&key, TRUE);
461         }
462
463         uefi_call_wrapper(ST->ConOut->ClearScreen, 1, ST->ConOut);
464 }
465
466 static BOOLEAN menu_run(Config *config, ConfigEntry **chosen_entry, CHAR16 *loaded_image_path) {
467         EFI_STATUS err;
468         UINTN visible_max;
469         UINTN idx_highlight;
470         UINTN idx_highlight_prev;
471         UINTN idx_first;
472         UINTN idx_last;
473         BOOLEAN refresh;
474         BOOLEAN highlight;
475         UINTN i;
476         UINTN line_width;
477         CHAR16 **lines;
478         UINTN x_start;
479         UINTN y_start;
480         UINTN x_max;
481         UINTN y_max;
482         CHAR16 *status;
483         CHAR16 *clearline;
484         INTN timeout_remain;
485         INT16 idx;
486         BOOLEAN exit = FALSE;
487         BOOLEAN run = TRUE;
488         BOOLEAN wait = FALSE;
489
490         graphics_mode(FALSE);
491         uefi_call_wrapper(ST->ConIn->Reset, 2, ST->ConIn, FALSE);
492         uefi_call_wrapper(ST->ConOut->EnableCursor, 2, ST->ConOut, FALSE);
493         uefi_call_wrapper(ST->ConOut->SetAttribute, 2, ST->ConOut, EFI_LIGHTGRAY|EFI_BACKGROUND_BLACK);
494
495         /* draw a single character to make ClearScreen work on some firmware */
496         uefi_call_wrapper(ST->ConOut->OutputString, 2, ST->ConOut, L" ");
497         uefi_call_wrapper(ST->ConOut->ClearScreen, 1, ST->ConOut);
498
499         err = uefi_call_wrapper(ST->ConOut->QueryMode, 4, ST->ConOut, ST->ConOut->Mode->Mode, &x_max, &y_max);
500         if (EFI_ERROR(err)) {
501                 x_max = 80;
502                 y_max = 25;
503         }
504
505         /* we check 10 times per second for a keystroke */
506         if (config->timeout_sec > 0)
507                 timeout_remain = config->timeout_sec * 10;
508         else
509                 timeout_remain = -1;
510
511         idx_highlight = config->idx_default;
512         idx_highlight_prev = 0;
513
514         visible_max = y_max - 2;
515
516         if ((UINTN)config->idx_default >= visible_max)
517                 idx_first = config->idx_default-1;
518         else
519                 idx_first = 0;
520
521         idx_last = idx_first + visible_max-1;
522
523         refresh = TRUE;
524         highlight = FALSE;
525
526         /* length of the longest entry */
527         line_width = 5;
528         for (i = 0; i < config->entry_count; i++) {
529                 UINTN entry_len;
530
531                 entry_len = StrLen(config->entries[i]->title_show);
532                 if (line_width < entry_len)
533                         line_width = entry_len;
534         }
535         if (line_width > x_max-6)
536                 line_width = x_max-6;
537
538         /* offsets to center the entries on the screen */
539         x_start = (x_max - (line_width)) / 2;
540         if (config->entry_count < visible_max)
541                 y_start = ((visible_max - config->entry_count) / 2) + 1;
542         else
543                 y_start = 0;
544
545         /* menu entries title lines */
546         lines = AllocatePool(sizeof(CHAR16 *) * config->entry_count);
547         for (i = 0; i < config->entry_count; i++) {
548                 UINTN j, k;
549
550                 lines[i] = AllocatePool(((x_max+1) * sizeof(CHAR16)));
551                 for (j = 0; j < x_start; j++)
552                         lines[i][j] = ' ';
553
554                 for (k = 0; config->entries[i]->title_show[k] != '\0' && j < x_max; j++, k++)
555                         lines[i][j] = config->entries[i]->title_show[k];
556
557                 for (; j < x_max; j++)
558                         lines[i][j] = ' ';
559                 lines[i][x_max] = '\0';
560         }
561
562         status = NULL;
563         clearline = AllocatePool((x_max+1) * sizeof(CHAR16));
564         for (i = 0; i < x_max; i++)
565                 clearline[i] = ' ';
566         clearline[i] = 0;
567
568         while (!exit) {
569                 UINT64 key;
570
571                 if (refresh) {
572                         for (i = 0; i < config->entry_count; i++) {
573                                 if (i < idx_first || i > idx_last)
574                                         continue;
575                                 uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, 0, y_start + i - idx_first);
576                                 if (i == idx_highlight)
577                                         uefi_call_wrapper(ST->ConOut->SetAttribute, 2, ST->ConOut,
578                                                           EFI_BLACK|EFI_BACKGROUND_LIGHTGRAY);
579                                 else
580                                         uefi_call_wrapper(ST->ConOut->SetAttribute, 2, ST->ConOut,
581                                                           EFI_LIGHTGRAY|EFI_BACKGROUND_BLACK);
582                                 uefi_call_wrapper(ST->ConOut->OutputString, 2, ST->ConOut, lines[i]);
583                                 if ((INTN)i == config->idx_default_efivar) {
584                                         uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, x_start-3, y_start + i - idx_first);
585                                         uefi_call_wrapper(ST->ConOut->OutputString, 2, ST->ConOut, L"=>");
586                                 }
587                         }
588                         refresh = FALSE;
589                 } else if (highlight) {
590                         uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, 0, y_start + idx_highlight_prev - idx_first);
591                         uefi_call_wrapper(ST->ConOut->SetAttribute, 2, ST->ConOut, EFI_LIGHTGRAY|EFI_BACKGROUND_BLACK);
592                         uefi_call_wrapper(ST->ConOut->OutputString, 2, ST->ConOut, lines[idx_highlight_prev]);
593                         if ((INTN)idx_highlight_prev == config->idx_default_efivar) {
594                                 uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, x_start-3, y_start + idx_highlight_prev - idx_first);
595                                 uefi_call_wrapper(ST->ConOut->OutputString, 2, ST->ConOut, L"=>");
596                         }
597
598                         uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, 0, y_start + idx_highlight - idx_first);
599                         uefi_call_wrapper(ST->ConOut->SetAttribute, 2, ST->ConOut, EFI_BLACK|EFI_BACKGROUND_LIGHTGRAY);
600                         uefi_call_wrapper(ST->ConOut->OutputString, 2, ST->ConOut, lines[idx_highlight]);
601                         if ((INTN)idx_highlight == config->idx_default_efivar) {
602                                 uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, x_start-3, y_start + idx_highlight - idx_first);
603                                 uefi_call_wrapper(ST->ConOut->OutputString, 2, ST->ConOut, L"=>");
604                         }
605                         highlight = FALSE;
606                 }
607
608                 if (timeout_remain > 0) {
609                         FreePool(status);
610                         status = PoolPrint(L"Boot in %d sec.", (timeout_remain + 5) / 10);
611                 }
612
613                 /* print status at last line of screen */
614                 if (status) {
615                         UINTN len;
616                         UINTN x;
617
618                         /* center line */
619                         len = StrLen(status);
620                         if (len < x_max)
621                                 x = (x_max - len) / 2;
622                         else
623                                 x = 0;
624                         uefi_call_wrapper(ST->ConOut->SetAttribute, 2, ST->ConOut, EFI_LIGHTGRAY|EFI_BACKGROUND_BLACK);
625                         uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, 0, y_max-1);
626                         uefi_call_wrapper(ST->ConOut->OutputString, 2, ST->ConOut, clearline + (x_max - x));
627                         uefi_call_wrapper(ST->ConOut->OutputString, 2, ST->ConOut, status);
628                         uefi_call_wrapper(ST->ConOut->OutputString, 2, ST->ConOut, clearline+1 + x + len);
629                 }
630
631                 err = console_key_read(&key, wait);
632                 if (EFI_ERROR(err)) {
633                         /* timeout reached */
634                         if (timeout_remain == 0) {
635                                 exit = TRUE;
636                                 break;
637                         }
638
639                         /* sleep and update status */
640                         if (timeout_remain > 0) {
641                                 uefi_call_wrapper(BS->Stall, 1, 100 * 1000);
642                                 timeout_remain--;
643                                 continue;
644                         }
645
646                         /* timeout disabled, wait for next key */
647                         wait = TRUE;
648                         continue;
649                 }
650
651                 timeout_remain = -1;
652
653                 /* clear status after keystroke */
654                 if (status) {
655                         FreePool(status);
656                         status = NULL;
657                         uefi_call_wrapper(ST->ConOut->SetAttribute, 2, ST->ConOut, EFI_LIGHTGRAY|EFI_BACKGROUND_BLACK);
658                         uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, 0, y_max-1);
659                         uefi_call_wrapper(ST->ConOut->OutputString, 2, ST->ConOut, clearline+1);
660                 }
661
662                 idx_highlight_prev = idx_highlight;
663
664                 switch (key) {
665                 case KEYPRESS(0, SCAN_UP, 0):
666                 case KEYPRESS(0, 0, 'k'):
667                         if (idx_highlight > 0)
668                                 idx_highlight--;
669                         break;
670
671                 case KEYPRESS(0, SCAN_DOWN, 0):
672                 case KEYPRESS(0, 0, 'j'):
673                         if (idx_highlight < config->entry_count-1)
674                                 idx_highlight++;
675                         break;
676
677                 case KEYPRESS(0, SCAN_HOME, 0):
678                 case KEYPRESS(EFI_ALT_PRESSED, 0, '<'):
679                         if (idx_highlight > 0) {
680                                 refresh = TRUE;
681                                 idx_highlight = 0;
682                         }
683                         break;
684
685                 case KEYPRESS(0, SCAN_END, 0):
686                 case KEYPRESS(EFI_ALT_PRESSED, 0, '>'):
687                         if (idx_highlight < config->entry_count-1) {
688                                 refresh = TRUE;
689                                 idx_highlight = config->entry_count-1;
690                         }
691                         break;
692
693                 case KEYPRESS(0, SCAN_PAGE_UP, 0):
694                         if (idx_highlight > visible_max)
695                                 idx_highlight -= visible_max;
696                         else
697                                 idx_highlight = 0;
698                         break;
699
700                 case KEYPRESS(0, SCAN_PAGE_DOWN, 0):
701                         idx_highlight += visible_max;
702                         if (idx_highlight > config->entry_count-1)
703                                 idx_highlight = config->entry_count-1;
704                         break;
705
706                 case KEYPRESS(0, 0, CHAR_LINEFEED):
707                 case KEYPRESS(0, 0, CHAR_CARRIAGE_RETURN):
708                         exit = TRUE;
709                         break;
710
711                 case KEYPRESS(0, SCAN_F1, 0):
712                 case KEYPRESS(0, 0, 'h'):
713                 case KEYPRESS(0, 0, '?'):
714                         status = StrDuplicate(L"(d)efault, (t/T)timeout, (e)dit, (v)ersion (Q)uit (P)rint (h)elp");
715                         break;
716
717                 case KEYPRESS(0, 0, 'Q'):
718                         exit = TRUE;
719                         run = FALSE;
720                         break;
721
722                 case KEYPRESS(0, 0, 'd'):
723                         if (config->idx_default_efivar != (INTN)idx_highlight) {
724                                 /* store the selected entry in a persistent EFI variable */
725                                 efivar_set(L"LoaderEntryDefault", config->entries[idx_highlight]->file, TRUE);
726                                 config->idx_default_efivar = idx_highlight;
727                                 status = StrDuplicate(L"Default boot entry selected.");
728                         } else {
729                                 /* clear the default entry EFI variable */
730                                 efivar_set(L"LoaderEntryDefault", NULL, TRUE);
731                                 config->idx_default_efivar = -1;
732                                 status = StrDuplicate(L"Default boot entry cleared.");
733                         }
734                         refresh = TRUE;
735                         break;
736
737                 case KEYPRESS(0, 0, '-'):
738                 case KEYPRESS(0, 0, 'T'):
739                         if (config->timeout_sec_efivar > 0) {
740                                 config->timeout_sec_efivar--;
741                                 efivar_set_int(L"LoaderConfigTimeout", config->timeout_sec_efivar, TRUE);
742                                 if (config->timeout_sec_efivar > 0)
743                                         status = PoolPrint(L"Menu timeout set to %d sec.", config->timeout_sec_efivar);
744                                 else
745                                         status = StrDuplicate(L"Menu disabled. Hold down key at bootup to show menu.");
746                         } else if (config->timeout_sec_efivar <= 0){
747                                 config->timeout_sec_efivar = -1;
748                                 efivar_set(L"LoaderConfigTimeout", NULL, TRUE);
749                                 if (config->timeout_sec_config > 0)
750                                         status = PoolPrint(L"Menu timeout of %d sec is defined by configuration file.",
751                                                            config->timeout_sec_config);
752                                 else
753                                         status = StrDuplicate(L"Menu disabled. Hold down key at bootup to show menu.");
754                         }
755                         break;
756
757                 case KEYPRESS(0, 0, '+'):
758                 case KEYPRESS(0, 0, 't'):
759                         if (config->timeout_sec_efivar == -1 && config->timeout_sec_config == 0)
760                                 config->timeout_sec_efivar++;
761                         config->timeout_sec_efivar++;
762                         efivar_set_int(L"LoaderConfigTimeout", config->timeout_sec_efivar, TRUE);
763                         if (config->timeout_sec_efivar > 0)
764                                 status = PoolPrint(L"Menu timeout set to %d sec.",
765                                                    config->timeout_sec_efivar);
766                         else
767                                 status = StrDuplicate(L"Menu disabled. Hold down key at bootup to show menu.");
768                         break;
769
770                 case KEYPRESS(0, 0, 'e'):
771                         /* only the options of configured entries can be edited */
772                         if (config->entries[idx_highlight]->type == LOADER_UNDEFINED)
773                                 break;
774                         uefi_call_wrapper(ST->ConOut->SetAttribute, 2, ST->ConOut, EFI_LIGHTGRAY|EFI_BACKGROUND_BLACK);
775                         uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, 0, y_max-1);
776                         uefi_call_wrapper(ST->ConOut->OutputString, 2, ST->ConOut, clearline+1);
777                         if (line_edit(config->entries[idx_highlight]->options, &config->options_edit, x_max-1, y_max-1))
778                                 exit = TRUE;
779                         uefi_call_wrapper(ST->ConOut->SetCursorPosition, 3, ST->ConOut, 0, y_max-1);
780                         uefi_call_wrapper(ST->ConOut->OutputString, 2, ST->ConOut, clearline+1);
781                         break;
782
783                 case KEYPRESS(0, 0, 'v'):
784                         status = PoolPrint(L"systemd-boot " VERSION " (" EFI_MACHINE_TYPE_NAME "), UEFI Specification %d.%02d, Vendor %s %d.%02d",
785                                            ST->Hdr.Revision >> 16, ST->Hdr.Revision & 0xffff,
786                                            ST->FirmwareVendor, ST->FirmwareRevision >> 16, ST->FirmwareRevision & 0xffff);
787                         break;
788
789                 case KEYPRESS(0, 0, 'P'):
790                         print_status(config, loaded_image_path);
791                         refresh = TRUE;
792                         break;
793
794                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, 'l'):
795                 case KEYPRESS(EFI_CONTROL_PRESSED, 0, CHAR_CTRL('l')):
796                         refresh = TRUE;
797                         break;
798
799                 default:
800                         /* jump with a hotkey directly to a matching entry */
801                         idx = entry_lookup_key(config, idx_highlight+1, KEYCHAR(key));
802                         if (idx < 0)
803                                 break;
804                         idx_highlight = idx;
805                         refresh = TRUE;
806                 }
807
808                 if (idx_highlight > idx_last) {
809                         idx_last = idx_highlight;
810                         idx_first = 1 + idx_highlight - visible_max;
811                         refresh = TRUE;
812                 } else if (idx_highlight < idx_first) {
813                         idx_first = idx_highlight;
814                         idx_last = idx_highlight + visible_max-1;
815                         refresh = TRUE;
816                 }
817
818                 if (!refresh && idx_highlight != idx_highlight_prev)
819                         highlight = TRUE;
820         }
821
822         *chosen_entry = config->entries[idx_highlight];
823
824         for (i = 0; i < config->entry_count; i++)
825                 FreePool(lines[i]);
826         FreePool(lines);
827         FreePool(clearline);
828
829         uefi_call_wrapper(ST->ConOut->SetAttribute, 2, ST->ConOut, EFI_WHITE|EFI_BACKGROUND_BLACK);
830         uefi_call_wrapper(ST->ConOut->ClearScreen, 1, ST->ConOut);
831         return run;
832 }
833
834 static VOID config_add_entry(Config *config, ConfigEntry *entry) {
835         if ((config->entry_count & 15) == 0) {
836                 UINTN i;
837
838                 i = config->entry_count + 16;
839                 if (config->entry_count == 0)
840                         config->entries = AllocatePool(sizeof(VOID *) * i);
841                 else
842                         config->entries = ReallocatePool(config->entries,
843                                                          sizeof(VOID *) * config->entry_count, sizeof(VOID *) * i);
844         }
845         config->entries[config->entry_count++] = entry;
846 }
847
848 static VOID config_entry_free(ConfigEntry *entry) {
849         FreePool(entry->title_show);
850         FreePool(entry->title);
851         FreePool(entry->machine_id);
852         FreePool(entry->loader);
853         FreePool(entry->options);
854 }
855
856 static BOOLEAN is_digit(CHAR16 c)
857 {
858         return (c >= '0') && (c <= '9');
859 }
860
861 static UINTN c_order(CHAR16 c)
862 {
863         if (c == '\0')
864                 return 0;
865         if (is_digit(c))
866                 return 0;
867         else if ((c >= 'a') && (c <= 'z'))
868                 return c;
869         else
870                 return c + 0x10000;
871 }
872
873 static INTN str_verscmp(CHAR16 *s1, CHAR16 *s2)
874 {
875         CHAR16 *os1 = s1;
876         CHAR16 *os2 = s2;
877
878         while (*s1 || *s2) {
879                 INTN first;
880
881                 while ((*s1 && !is_digit(*s1)) || (*s2 && !is_digit(*s2))) {
882                         INTN order;
883
884                         order = c_order(*s1) - c_order(*s2);
885                         if (order)
886                                 return order;
887                         s1++;
888                         s2++;
889                 }
890
891                 while (*s1 == '0')
892                         s1++;
893                 while (*s2 == '0')
894                         s2++;
895
896                 first = 0;
897                 while (is_digit(*s1) && is_digit(*s2)) {
898                         if (first == 0)
899                                 first = *s1 - *s2;
900                         s1++;
901                         s2++;
902                 }
903
904                 if (is_digit(*s1))
905                         return 1;
906                 if (is_digit(*s2))
907                         return -1;
908
909                 if (first)
910                         return first;
911         }
912
913         return StrCmp(os1, os2);
914 }
915
916 static CHAR8 *line_get_key_value(CHAR8 *content, CHAR8 *sep, UINTN *pos, CHAR8 **key_ret, CHAR8 **value_ret) {
917         CHAR8 *line;
918         UINTN linelen;
919         CHAR8 *value;
920
921 skip:
922         line = content + *pos;
923         if (*line == '\0')
924                 return NULL;
925
926         linelen = 0;
927         while (line[linelen] && !strchra((CHAR8 *)"\n\r", line[linelen]))
928                linelen++;
929
930         /* move pos to next line */
931         *pos += linelen;
932         if (content[*pos])
933                 (*pos)++;
934
935         /* empty line */
936         if (linelen == 0)
937                 goto skip;
938
939         /* terminate line */
940         line[linelen] = '\0';
941
942         /* remove leading whitespace */
943         while (strchra((CHAR8 *)" \t", *line)) {
944                 line++;
945                 linelen--;
946         }
947
948         /* remove trailing whitespace */
949         while (linelen > 0 && strchra(sep, line[linelen-1]))
950                 linelen--;
951         line[linelen] = '\0';
952
953         if (*line == '#')
954                 goto skip;
955
956         /* split key/value */
957         value = line;
958         while (*value && !strchra(sep, *value))
959                 value++;
960         if (*value == '\0')
961                 goto skip;
962         *value = '\0';
963         value++;
964         while (*value && strchra(sep, *value))
965                 value++;
966
967         /* unquote */
968         if (value[0] == '\"' && line[linelen-1] == '\"') {
969                 value++;
970                 line[linelen-1] = '\0';
971         }
972
973         *key_ret = line;
974         *value_ret = value;
975         return line;
976 }
977
978 static VOID config_defaults_load_from_file(Config *config, CHAR8 *content) {
979         CHAR8 *line;
980         UINTN pos = 0;
981         CHAR8 *key, *value;
982
983         line = content;
984         while ((line = line_get_key_value(content, (CHAR8 *)" \t", &pos, &key, &value))) {
985                 if (strcmpa((CHAR8 *)"timeout", key) == 0) {
986                         CHAR16 *s;
987
988                         s = stra_to_str(value);
989                         config->timeout_sec_config = Atoi(s);
990                         config->timeout_sec = config->timeout_sec_config;
991                         FreePool(s);
992                         continue;
993                 }
994
995                 if (strcmpa((CHAR8 *)"default", key) == 0) {
996                         FreePool(config->entry_default_pattern);
997                         config->entry_default_pattern = stra_to_str(value);
998                         StrLwr(config->entry_default_pattern);
999                         continue;
1000                 }
1001         }
1002 }
1003
1004 static VOID config_entry_add_from_file(Config *config, EFI_HANDLE *device, CHAR16 *file, CHAR8 *content, CHAR16 *loaded_image_path) {
1005         ConfigEntry *entry;
1006         CHAR8 *line;
1007         UINTN pos = 0;
1008         CHAR8 *key, *value;
1009         UINTN len;
1010         CHAR16 *initrd = NULL;
1011
1012         entry = AllocateZeroPool(sizeof(ConfigEntry));
1013
1014         line = content;
1015         while ((line = line_get_key_value(content, (CHAR8 *)" \t", &pos, &key, &value))) {
1016                 if (strcmpa((CHAR8 *)"title", key) == 0) {
1017                         FreePool(entry->title);
1018                         entry->title = stra_to_str(value);
1019                         continue;
1020                 }
1021
1022                 if (strcmpa((CHAR8 *)"version", key) == 0) {
1023                         FreePool(entry->version);
1024                         entry->version = stra_to_str(value);
1025                         continue;
1026                 }
1027
1028                 if (strcmpa((CHAR8 *)"machine-id", key) == 0) {
1029                         FreePool(entry->machine_id);
1030                         entry->machine_id = stra_to_str(value);
1031                         continue;
1032                 }
1033
1034                 if (strcmpa((CHAR8 *)"linux", key) == 0) {
1035                         FreePool(entry->loader);
1036                         entry->type = LOADER_LINUX;
1037                         entry->loader = stra_to_path(value);
1038                         entry->key = 'l';
1039                         continue;
1040                 }
1041
1042                 if (strcmpa((CHAR8 *)"efi", key) == 0) {
1043                         entry->type = LOADER_EFI;
1044                         FreePool(entry->loader);
1045                         entry->loader = stra_to_path(value);
1046
1047                         /* do not add an entry for ourselves */
1048                         if (StriCmp(entry->loader, loaded_image_path) == 0) {
1049                                 entry->type = LOADER_UNDEFINED;
1050                                 break;
1051                         }
1052                         continue;
1053                 }
1054
1055                 if (strcmpa((CHAR8 *)"architecture", key) == 0) {
1056                         /* do not add an entry for an EFI image of architecture not matching with that of the image */
1057                         if (strcmpa((CHAR8 *)EFI_MACHINE_TYPE_NAME, value) != 0) {
1058                                 entry->type = LOADER_UNDEFINED;
1059                                 break;
1060                         }
1061                         continue;
1062                 }
1063
1064                 if (strcmpa((CHAR8 *)"initrd", key) == 0) {
1065                         CHAR16 *new;
1066
1067                         new = stra_to_path(value);
1068                         if (initrd) {
1069                                 CHAR16 *s;
1070
1071                                 s = PoolPrint(L"%s initrd=%s", initrd, new);
1072                                 FreePool(initrd);
1073                                 initrd = s;
1074                         } else
1075                                 initrd = PoolPrint(L"initrd=%s", new);
1076                         FreePool(new);
1077                         continue;
1078                 }
1079
1080                 if (strcmpa((CHAR8 *)"options", key) == 0) {
1081                         CHAR16 *new;
1082
1083                         new = stra_to_str(value);
1084                         if (entry->options) {
1085                                 CHAR16 *s;
1086
1087                                 s = PoolPrint(L"%s %s", entry->options, new);
1088                                 FreePool(entry->options);
1089                                 entry->options = s;
1090                         } else {
1091                                 entry->options = new;
1092                                 new = NULL;
1093                         }
1094                         FreePool(new);
1095                         continue;
1096                 }
1097         }
1098
1099         if (entry->type == LOADER_UNDEFINED) {
1100                 config_entry_free(entry);
1101                 FreePool(initrd);
1102                 FreePool(entry);
1103                 return;
1104         }
1105
1106         /* add initrd= to options */
1107         if (entry->type == LOADER_LINUX && initrd) {
1108                 if (entry->options) {
1109                         CHAR16 *s;
1110
1111                         s = PoolPrint(L"%s %s", initrd, entry->options);
1112                         FreePool(entry->options);
1113                         entry->options = s;
1114                 } else {
1115                         entry->options = initrd;
1116                         initrd = NULL;
1117                 }
1118         }
1119         FreePool(initrd);
1120
1121         entry->device = device;
1122         entry->file = StrDuplicate(file);
1123         len = StrLen(entry->file);
1124         /* remove ".conf" */
1125         if (len > 5)
1126                 entry->file[len - 5] = '\0';
1127         StrLwr(entry->file);
1128
1129         config_add_entry(config, entry);
1130 }
1131
1132 static VOID config_load(Config *config, EFI_HANDLE *device, EFI_FILE *root_dir, CHAR16 *loaded_image_path) {
1133         EFI_FILE_HANDLE entries_dir;
1134         EFI_STATUS err;
1135         CHAR8 *content = NULL;
1136         UINTN sec;
1137         UINTN len;
1138         UINTN i;
1139
1140         len = file_read(root_dir, L"\\loader\\loader.conf", 0, 0, &content);
1141         if (len > 0)
1142                 config_defaults_load_from_file(config, content);
1143         FreePool(content);
1144
1145         err = efivar_get_int(L"LoaderConfigTimeout", &sec);
1146         if (!EFI_ERROR(err)) {
1147                 config->timeout_sec_efivar = sec;
1148                 config->timeout_sec = sec;
1149         } else
1150                 config->timeout_sec_efivar = -1;
1151
1152         err = uefi_call_wrapper(root_dir->Open, 5, root_dir, &entries_dir, L"\\loader\\entries", EFI_FILE_MODE_READ, 0ULL);
1153         if (!EFI_ERROR(err)) {
1154                 for (;;) {
1155                         CHAR16 buf[256];
1156                         UINTN bufsize;
1157                         EFI_FILE_INFO *f;
1158                         CHAR8 *content = NULL;
1159                         UINTN len;
1160
1161                         bufsize = sizeof(buf);
1162                         err = uefi_call_wrapper(entries_dir->Read, 3, entries_dir, &bufsize, buf);
1163                         if (bufsize == 0 || EFI_ERROR(err))
1164                                 break;
1165
1166                         f = (EFI_FILE_INFO *) buf;
1167                         if (f->FileName[0] == '.')
1168                                 continue;
1169                         if (f->Attribute & EFI_FILE_DIRECTORY)
1170                                 continue;
1171
1172                         len = StrLen(f->FileName);
1173                         if (len < 6)
1174                                 continue;
1175                         if (StriCmp(f->FileName + len - 5, L".conf") != 0)
1176                                 continue;
1177                         if (StrnCmp(f->FileName, L"auto-", 5) == 0)
1178                                 continue;
1179
1180                         len = file_read(entries_dir, f->FileName, 0, 0, &content);
1181                         if (len > 0)
1182                                 config_entry_add_from_file(config, device, f->FileName, content, loaded_image_path);
1183                         FreePool(content);
1184                 }
1185                 uefi_call_wrapper(entries_dir->Close, 1, entries_dir);
1186         }
1187
1188         /* sort entries after version number */
1189         for (i = 1; i < config->entry_count; i++) {
1190                 BOOLEAN more;
1191                 UINTN k;
1192
1193                 more = FALSE;
1194                 for (k = 0; k < config->entry_count - i; k++) {
1195                         ConfigEntry *entry;
1196
1197                         if (str_verscmp(config->entries[k]->file, config->entries[k+1]->file) <= 0)
1198                                 continue;
1199                         entry = config->entries[k];
1200                         config->entries[k] = config->entries[k+1];
1201                         config->entries[k+1] = entry;
1202                         more = TRUE;
1203                 }
1204                 if (!more)
1205                         break;
1206         }
1207 }
1208
1209 static VOID config_default_entry_select(Config *config) {
1210         CHAR16 *var;
1211         EFI_STATUS err;
1212         UINTN i;
1213
1214         /*
1215          * The EFI variable to specify a boot entry for the next, and only the
1216          * next reboot. The variable is always cleared directly after it is read.
1217          */
1218         err = efivar_get(L"LoaderEntryOneShot", &var);
1219         if (!EFI_ERROR(err)) {
1220                 BOOLEAN found = FALSE;
1221
1222                 for (i = 0; i < config->entry_count; i++) {
1223                         if (StrCmp(config->entries[i]->file, var) == 0) {
1224                                 config->idx_default = i;
1225                                 found = TRUE;
1226                                 break;
1227                         }
1228                 }
1229
1230                 config->entry_oneshot = StrDuplicate(var);
1231                 efivar_set(L"LoaderEntryOneShot", NULL, TRUE);
1232                 FreePool(var);
1233                 if (found)
1234                         return;
1235         }
1236
1237         /*
1238          * The EFI variable to select the default boot entry overrides the
1239          * configured pattern. The variable can be set and cleared by pressing
1240          * the 'd' key in the loader selection menu, the entry is marked with
1241          * an '*'.
1242          */
1243         err = efivar_get(L"LoaderEntryDefault", &var);
1244         if (!EFI_ERROR(err)) {
1245                 BOOLEAN found = FALSE;
1246
1247                 for (i = 0; i < config->entry_count; i++) {
1248                         if (StrCmp(config->entries[i]->file, var) == 0) {
1249                                 config->idx_default = i;
1250                                 config->idx_default_efivar = i;
1251                                 found = TRUE;
1252                                 break;
1253                         }
1254                 }
1255                 FreePool(var);
1256                 if (found)
1257                         return;
1258         }
1259         config->idx_default_efivar = -1;
1260
1261         if (config->entry_count == 0)
1262                 return;
1263
1264         /*
1265          * Match the pattern from the end of the list to the start, find last
1266          * entry (largest number) matching the given pattern.
1267          */
1268         if (config->entry_default_pattern) {
1269                 i = config->entry_count;
1270                 while (i--) {
1271                         if (config->entries[i]->no_autoselect)
1272                                 continue;
1273                         if (MetaiMatch(config->entries[i]->file, config->entry_default_pattern)) {
1274                                 config->idx_default = i;
1275                                 return;
1276                         }
1277                 }
1278         }
1279
1280         /* select the last suitable entry */
1281         i = config->entry_count;
1282         while (i--) {
1283                 if (config->entries[i]->no_autoselect)
1284                         continue;
1285                 config->idx_default = i;
1286                 return;
1287         }
1288
1289         /* no entry found */
1290         config->idx_default = -1;
1291 }
1292
1293 /* generate a unique title, avoiding non-distinguishable menu entries */
1294 static VOID config_title_generate(Config *config) {
1295         UINTN i, k;
1296         BOOLEAN unique;
1297
1298         /* set title */
1299         for (i = 0; i < config->entry_count; i++) {
1300                 CHAR16 *title;
1301
1302                 FreePool(config->entries[i]->title_show);
1303                 title = config->entries[i]->title;
1304                 if (!title)
1305                         title = config->entries[i]->file;
1306                 config->entries[i]->title_show = StrDuplicate(title);
1307         }
1308
1309         unique = TRUE;
1310         for (i = 0; i < config->entry_count; i++) {
1311                 for (k = 0; k < config->entry_count; k++) {
1312                         if (i == k)
1313                                 continue;
1314                         if (StrCmp(config->entries[i]->title_show, config->entries[k]->title_show) != 0)
1315                                 continue;
1316
1317                         unique = FALSE;
1318                         config->entries[i]->non_unique = TRUE;
1319                         config->entries[k]->non_unique = TRUE;
1320                 }
1321         }
1322         if (unique)
1323                 return;
1324
1325         /* add version to non-unique titles */
1326         for (i = 0; i < config->entry_count; i++) {
1327                 CHAR16 *s;
1328
1329                 if (!config->entries[i]->non_unique)
1330                         continue;
1331                 if (!config->entries[i]->version)
1332                         continue;
1333
1334                 s = PoolPrint(L"%s (%s)", config->entries[i]->title_show, config->entries[i]->version);
1335                 FreePool(config->entries[i]->title_show);
1336                 config->entries[i]->title_show = s;
1337                 config->entries[i]->non_unique = FALSE;
1338         }
1339
1340         unique = TRUE;
1341         for (i = 0; i < config->entry_count; i++) {
1342                 for (k = 0; k < config->entry_count; k++) {
1343                         if (i == k)
1344                                 continue;
1345                         if (StrCmp(config->entries[i]->title_show, config->entries[k]->title_show) != 0)
1346                                 continue;
1347
1348                         unique = FALSE;
1349                         config->entries[i]->non_unique = TRUE;
1350                         config->entries[k]->non_unique = TRUE;
1351                 }
1352         }
1353         if (unique)
1354                 return;
1355
1356         /* add machine-id to non-unique titles */
1357         for (i = 0; i < config->entry_count; i++) {
1358                 CHAR16 *s;
1359                 CHAR16 *m;
1360
1361                 if (!config->entries[i]->non_unique)
1362                         continue;
1363                 if (!config->entries[i]->machine_id)
1364                         continue;
1365
1366                 m = StrDuplicate(config->entries[i]->machine_id);
1367                 m[8] = '\0';
1368                 s = PoolPrint(L"%s (%s)", config->entries[i]->title_show, m);
1369                 FreePool(config->entries[i]->title_show);
1370                 config->entries[i]->title_show = s;
1371                 config->entries[i]->non_unique = FALSE;
1372                 FreePool(m);
1373         }
1374
1375         unique = TRUE;
1376         for (i = 0; i < config->entry_count; i++) {
1377                 for (k = 0; k < config->entry_count; k++) {
1378                         if (i == k)
1379                                 continue;
1380                         if (StrCmp(config->entries[i]->title_show, config->entries[k]->title_show) != 0)
1381                                 continue;
1382
1383                         unique = FALSE;
1384                         config->entries[i]->non_unique = TRUE;
1385                         config->entries[k]->non_unique = TRUE;
1386                 }
1387         }
1388         if (unique)
1389                 return;
1390
1391         /* add file name to non-unique titles */
1392         for (i = 0; i < config->entry_count; i++) {
1393                 CHAR16 *s;
1394
1395                 if (!config->entries[i]->non_unique)
1396                         continue;
1397                 s = PoolPrint(L"%s (%s)", config->entries[i]->title_show, config->entries[i]->file);
1398                 FreePool(config->entries[i]->title_show);
1399                 config->entries[i]->title_show = s;
1400                 config->entries[i]->non_unique = FALSE;
1401         }
1402 }
1403
1404 static BOOLEAN config_entry_add_call(Config *config, CHAR16 *title, EFI_STATUS (*call)(VOID)) {
1405         ConfigEntry *entry;
1406
1407         entry = AllocateZeroPool(sizeof(ConfigEntry));
1408         entry->title = StrDuplicate(title);
1409         entry->call = call;
1410         entry->no_autoselect = TRUE;
1411         config_add_entry(config, entry);
1412         return TRUE;
1413 }
1414
1415 static ConfigEntry *config_entry_add_loader(Config *config, EFI_HANDLE *device,
1416                                             enum loader_type type,CHAR16 *file, CHAR16 key, CHAR16 *title, CHAR16 *loader) {
1417         ConfigEntry *entry;
1418
1419         entry = AllocateZeroPool(sizeof(ConfigEntry));
1420         entry->type = type;
1421         entry->title = StrDuplicate(title);
1422         entry->device = device;
1423         entry->loader = StrDuplicate(loader);
1424         entry->file = StrDuplicate(file);
1425         StrLwr(entry->file);
1426         entry->key = key;
1427         config_add_entry(config, entry);
1428
1429         return entry;
1430 }
1431
1432 static BOOLEAN config_entry_add_loader_auto(Config *config, EFI_HANDLE *device, EFI_FILE *root_dir, CHAR16 *loaded_image_path,
1433                                          CHAR16 *file, CHAR16 key, CHAR16 *title, CHAR16 *loader) {
1434         EFI_FILE_HANDLE handle;
1435         ConfigEntry *entry;
1436         EFI_STATUS err;
1437
1438         /* do not add an entry for ourselves */
1439         if (loaded_image_path && StriCmp(loader, loaded_image_path) == 0)
1440                 return FALSE;
1441
1442         /* check existence */
1443         err = uefi_call_wrapper(root_dir->Open, 5, root_dir, &handle, loader, EFI_FILE_MODE_READ, 0ULL);
1444         if (EFI_ERROR(err))
1445                 return FALSE;
1446         uefi_call_wrapper(handle->Close, 1, handle);
1447
1448         entry = config_entry_add_loader(config, device, LOADER_UNDEFINED, file, key, title, loader);
1449         if (!entry)
1450                 return FALSE;
1451
1452         /* do not boot right away into auto-detected entries */
1453         entry->no_autoselect = TRUE;
1454
1455         return TRUE;
1456 }
1457
1458 static VOID config_entry_add_osx(Config *config) {
1459         EFI_STATUS err;
1460         UINTN handle_count = 0;
1461         EFI_HANDLE *handles = NULL;
1462
1463         err = LibLocateHandle(ByProtocol, &FileSystemProtocol, NULL, &handle_count, &handles);
1464         if (!EFI_ERROR(err)) {
1465                 UINTN i;
1466
1467                 for (i = 0; i < handle_count; i++) {
1468                         EFI_FILE *root;
1469                         BOOLEAN found;
1470
1471                         root = LibOpenRoot(handles[i]);
1472                         if (!root)
1473                                 continue;
1474                         found = config_entry_add_loader_auto(config, handles[i], root, NULL, L"auto-osx", 'a', L"OS X",
1475                                                              L"\\System\\Library\\CoreServices\\boot.efi");
1476                         uefi_call_wrapper(root->Close, 1, root);
1477                         if (found)
1478                                 break;
1479                 }
1480
1481                 FreePool(handles);
1482         }
1483 }
1484
1485 static VOID config_entry_add_linux( Config *config, EFI_LOADED_IMAGE *loaded_image, EFI_FILE *root_dir) {
1486         EFI_FILE_HANDLE linux_dir;
1487         EFI_STATUS err;
1488
1489         err = uefi_call_wrapper(root_dir->Open, 5, root_dir, &linux_dir, L"\\EFI\\Linux", EFI_FILE_MODE_READ, 0ULL);
1490         if (!EFI_ERROR(err)) {
1491                 for (;;) {
1492                         CHAR16 buf[256];
1493                         UINTN bufsize;
1494                         EFI_FILE_INFO *f;
1495                         CHAR8 *sections[] = {
1496                                 (UINT8 *)".osrel",
1497                                 NULL
1498                         };
1499                         UINTN offs[ELEMENTSOF(sections)-1] = {};
1500                         UINTN szs[ELEMENTSOF(sections)-1] = {};
1501                         UINTN addrs[ELEMENTSOF(sections)-1] = {};
1502                         CHAR8 *content = NULL;
1503                         UINTN len;
1504                         CHAR8 *line;
1505                         UINTN pos = 0;
1506                         CHAR8 *key, *value;
1507                         CHAR16 *os_name = NULL;
1508                         CHAR16 *os_id = NULL;
1509                         CHAR16 *os_version = NULL;
1510
1511                         bufsize = sizeof(buf);
1512                         err = uefi_call_wrapper(linux_dir->Read, 3, linux_dir, &bufsize, buf);
1513                         if (bufsize == 0 || EFI_ERROR(err))
1514                                 break;
1515
1516                         f = (EFI_FILE_INFO *) buf;
1517                         if (f->FileName[0] == '.')
1518                                 continue;
1519                         if (f->Attribute & EFI_FILE_DIRECTORY)
1520                                 continue;
1521                         len = StrLen(f->FileName);
1522                         if (len < 5)
1523                                 continue;
1524                         if (StriCmp(f->FileName + len - 4, L".efi") != 0)
1525                                 continue;
1526
1527                         /* look for an .osrel section in the .efi binary */
1528                         err = pefile_locate_sections(linux_dir, f->FileName, sections, addrs, offs, szs);
1529                         if (EFI_ERROR(err))
1530                                 continue;
1531
1532                         len = file_read(linux_dir, f->FileName, offs[0], szs[0], &content);
1533                         if (len <= 0)
1534                                 continue;
1535
1536                         /* read properties from the embedded os-release file */
1537                         line = content;
1538                         while ((line = line_get_key_value(content, (CHAR8 *)"=", &pos, &key, &value))) {
1539                                 if (strcmpa((CHAR8 *)"PRETTY_NAME", key) == 0) {
1540                                         os_name = stra_to_str(value);
1541                                         continue;
1542                                 }
1543
1544                                 if (strcmpa((CHAR8 *)"ID", key) == 0) {
1545                                         os_id = stra_to_str(value);
1546                                         continue;
1547                                 }
1548
1549                                 if (strcmpa((CHAR8 *)"VERSION_ID", key) == 0) {
1550                                         os_version = stra_to_str(value);
1551                                         continue;
1552                                 }
1553                         }
1554
1555                         if (os_name && os_id && os_version) {
1556                                 CHAR16 *conf;
1557                                 CHAR16 *path;
1558
1559                                 conf = PoolPrint(L"%s-%s", os_id, os_version);
1560                                 path = PoolPrint(L"\\EFI\\Linux\\%s", f->FileName);
1561                                 config_entry_add_loader(config, loaded_image->DeviceHandle, LOADER_LINUX, conf, 'l', os_name, path);
1562                                 FreePool(conf);
1563                                 FreePool(path);
1564                                 FreePool(os_name);
1565                                 FreePool(os_id);
1566                                 FreePool(os_version);
1567                         }
1568
1569                         FreePool(content);
1570                 }
1571                 uefi_call_wrapper(linux_dir->Close, 1, linux_dir);
1572         }
1573 }
1574
1575 static EFI_STATUS image_start(EFI_HANDLE parent_image, const Config *config, const ConfigEntry *entry) {
1576         EFI_HANDLE image;
1577         EFI_DEVICE_PATH *path;
1578         CHAR16 *options;
1579         EFI_STATUS err;
1580
1581         path = FileDevicePath(entry->device, entry->loader);
1582         if (!path) {
1583                 Print(L"Error getting device path.");
1584                 uefi_call_wrapper(BS->Stall, 1, 3 * 1000 * 1000);
1585                 return EFI_INVALID_PARAMETER;
1586         }
1587
1588         err = uefi_call_wrapper(BS->LoadImage, 6, FALSE, parent_image, path, NULL, 0, &image);
1589         if (EFI_ERROR(err)) {
1590                 Print(L"Error loading %s: %r", entry->loader, err);
1591                 uefi_call_wrapper(BS->Stall, 1, 3 * 1000 * 1000);
1592                 goto out;
1593         }
1594
1595         if (config->options_edit)
1596                 options = config->options_edit;
1597         else if (entry->options)
1598                 options = entry->options;
1599         else
1600                 options = NULL;
1601         if (options) {
1602                 EFI_LOADED_IMAGE *loaded_image;
1603
1604                 err = uefi_call_wrapper(BS->OpenProtocol, 6, image, &LoadedImageProtocol, (VOID **)&loaded_image,
1605                                         parent_image, NULL, EFI_OPEN_PROTOCOL_GET_PROTOCOL);
1606                 if (EFI_ERROR(err)) {
1607                         Print(L"Error getting LoadedImageProtocol handle: %r", err);
1608                         uefi_call_wrapper(BS->Stall, 1, 3 * 1000 * 1000);
1609                         goto out_unload;
1610                 }
1611                 loaded_image->LoadOptions = options;
1612                 loaded_image->LoadOptionsSize = (StrLen(loaded_image->LoadOptions)+1) * sizeof(CHAR16);
1613         }
1614
1615         efivar_set_time_usec(L"LoaderTimeExecUSec", 0);
1616         err = uefi_call_wrapper(BS->StartImage, 3, image, NULL, NULL);
1617 out_unload:
1618         uefi_call_wrapper(BS->UnloadImage, 1, image);
1619 out:
1620         FreePool(path);
1621         return err;
1622 }
1623
1624 static EFI_STATUS reboot_into_firmware(VOID) {
1625         CHAR8 *b;
1626         UINTN size;
1627         UINT64 osind;
1628         EFI_STATUS err;
1629
1630         osind = EFI_OS_INDICATIONS_BOOT_TO_FW_UI;
1631
1632         err = efivar_get_raw(&global_guid, L"OsIndications", &b, &size);
1633         if (!EFI_ERROR(err))
1634                 osind |= (UINT64)*b;
1635         FreePool(b);
1636
1637         err = efivar_set_raw(&global_guid, L"OsIndications", (CHAR8 *)&osind, sizeof(UINT64), TRUE);
1638         if (EFI_ERROR(err))
1639                 return err;
1640
1641         err = uefi_call_wrapper(RT->ResetSystem, 4, EfiResetCold, EFI_SUCCESS, 0, NULL);
1642         Print(L"Error calling ResetSystem: %r", err);
1643         uefi_call_wrapper(BS->Stall, 1, 3 * 1000 * 1000);
1644         return err;
1645 }
1646
1647 static VOID config_free(Config *config) {
1648         UINTN i;
1649
1650         for (i = 0; i < config->entry_count; i++)
1651                 config_entry_free(config->entries[i]);
1652         FreePool(config->entries);
1653         FreePool(config->entry_default_pattern);
1654         FreePool(config->options_edit);
1655         FreePool(config->entry_oneshot);
1656 }
1657
1658 EFI_STATUS efi_main(EFI_HANDLE image, EFI_SYSTEM_TABLE *sys_table) {
1659         CHAR16 *s;
1660         CHAR8 *b;
1661         UINTN size;
1662         EFI_LOADED_IMAGE *loaded_image;
1663         EFI_FILE *root_dir;
1664         CHAR16 *loaded_image_path;
1665         EFI_DEVICE_PATH *device_path;
1666         EFI_STATUS err;
1667         Config config;
1668         UINT64 init_usec;
1669         BOOLEAN menu = FALSE;
1670
1671         InitializeLib(image, sys_table);
1672         init_usec = time_usec();
1673         efivar_set_time_usec(L"LoaderTimeInitUSec", init_usec);
1674         efivar_set(L"LoaderInfo", L"systemd-boot " VERSION, FALSE);
1675         s = PoolPrint(L"%s %d.%02d", ST->FirmwareVendor, ST->FirmwareRevision >> 16, ST->FirmwareRevision & 0xffff);
1676         efivar_set(L"LoaderFirmwareInfo", s, FALSE);
1677         FreePool(s);
1678         s = PoolPrint(L"UEFI %d.%02d", ST->Hdr.Revision >> 16, ST->Hdr.Revision & 0xffff);
1679         efivar_set(L"LoaderFirmwareType", s, FALSE);
1680         FreePool(s);
1681
1682         err = uefi_call_wrapper(BS->OpenProtocol, 6, image, &LoadedImageProtocol, (VOID **)&loaded_image,
1683                                 image, NULL, EFI_OPEN_PROTOCOL_GET_PROTOCOL);
1684         if (EFI_ERROR(err)) {
1685                 Print(L"Error getting a LoadedImageProtocol handle: %r ", err);
1686                 uefi_call_wrapper(BS->Stall, 1, 3 * 1000 * 1000);
1687                 return err;
1688         }
1689
1690         /* export the device path this image is started from */
1691         device_path = DevicePathFromHandle(loaded_image->DeviceHandle);
1692         if (device_path) {
1693                 EFI_DEVICE_PATH *path, *paths;
1694
1695                 paths = UnpackDevicePath(device_path);
1696                 for (path = paths; !IsDevicePathEnd(path); path = NextDevicePathNode(path)) {
1697                         HARDDRIVE_DEVICE_PATH *drive;
1698                         CHAR16 uuid[37];
1699
1700                         if (DevicePathType(path) != MEDIA_DEVICE_PATH)
1701                                 continue;
1702                         if (DevicePathSubType(path) != MEDIA_HARDDRIVE_DP)
1703                                 continue;
1704                         drive = (HARDDRIVE_DEVICE_PATH *)path;
1705                         if (drive->SignatureType != SIGNATURE_TYPE_GUID)
1706                                 continue;
1707
1708                         GuidToString(uuid, (EFI_GUID *)&drive->Signature);
1709                         efivar_set(L"LoaderDevicePartUUID", uuid, FALSE);
1710                         break;
1711                 }
1712                 FreePool(paths);
1713         }
1714
1715         root_dir = LibOpenRoot(loaded_image->DeviceHandle);
1716         if (!root_dir) {
1717                 Print(L"Unable to open root directory: %r ", err);
1718                 uefi_call_wrapper(BS->Stall, 1, 3 * 1000 * 1000);
1719                 return EFI_LOAD_ERROR;
1720         }
1721
1722
1723         /* the filesystem path to this image, to prevent adding ourselves to the menu */
1724         loaded_image_path = DevicePathToStr(loaded_image->FilePath);
1725         efivar_set(L"LoaderImageIdentifier", loaded_image_path, FALSE);
1726
1727         /* scan "\loader\entries\*.conf" files */
1728         ZeroMem(&config, sizeof(Config));
1729         config_load(&config, loaded_image->DeviceHandle, root_dir, loaded_image_path);
1730
1731         /* if we find some well-known loaders, add them to the end of the list */
1732         config_entry_add_linux(&config, loaded_image, root_dir);
1733         config_entry_add_loader_auto(&config, loaded_image->DeviceHandle, root_dir, loaded_image_path,
1734                                      L"auto-windows", 'w', L"Windows Boot Manager", L"\\EFI\\Microsoft\\Boot\\bootmgfw.efi");
1735         config_entry_add_loader_auto(&config, loaded_image->DeviceHandle, root_dir, loaded_image_path,
1736                                      L"auto-efi-shell", 's', L"EFI Shell", L"\\shell" EFI_MACHINE_TYPE_NAME ".efi");
1737         config_entry_add_loader_auto(&config, loaded_image->DeviceHandle, root_dir, loaded_image_path,
1738                                      L"auto-efi-default", '\0', L"EFI Default Loader", L"\\EFI\\Boot\\boot" EFI_MACHINE_TYPE_NAME ".efi");
1739         config_entry_add_osx(&config);
1740
1741         if (efivar_get_raw(&global_guid, L"OsIndicationsSupported", &b, &size) == EFI_SUCCESS) {
1742                 UINT64 osind = (UINT64)*b;
1743
1744                 if (osind & EFI_OS_INDICATIONS_BOOT_TO_FW_UI)
1745                         config_entry_add_call(&config, L"Reboot Into Firmware Interface", reboot_into_firmware);
1746                 FreePool(b);
1747         }
1748
1749         if (config.entry_count == 0) {
1750                 Print(L"No loader found. Configuration files in \\loader\\entries\\*.conf are needed.");
1751                 uefi_call_wrapper(BS->Stall, 1, 3 * 1000 * 1000);
1752                 goto out;
1753         }
1754
1755         config_title_generate(&config);
1756
1757         /* select entry by configured pattern or EFI LoaderDefaultEntry= variable*/
1758         config_default_entry_select(&config);
1759
1760         /* if no configured entry to select from was found, enable the menu */
1761         if (config.idx_default == -1) {
1762                 config.idx_default = 0;
1763                 if (config.timeout_sec == 0)
1764                         config.timeout_sec = 10;
1765         }
1766
1767         /* select entry or show menu when key is pressed or timeout is set */
1768         if (config.timeout_sec == 0) {
1769                 UINT64 key;
1770
1771                 err = console_key_read(&key, FALSE);
1772                 if (!EFI_ERROR(err)) {
1773                         INT16 idx;
1774
1775                         /* find matching key in config entries */
1776                         idx = entry_lookup_key(&config, config.idx_default, KEYCHAR(key));
1777                         if (idx >= 0)
1778                                 config.idx_default = idx;
1779                         else
1780                                 menu = TRUE;
1781                 }
1782         } else
1783                 menu = TRUE;
1784
1785         for (;;) {
1786                 ConfigEntry *entry;
1787
1788                 entry = config.entries[config.idx_default];
1789                 if (menu) {
1790                         efivar_set_time_usec(L"LoaderTimeMenuUSec", 0);
1791                         uefi_call_wrapper(BS->SetWatchdogTimer, 4, 0, 0x10000, 0, NULL);
1792                         if (!menu_run(&config, &entry, loaded_image_path))
1793                                 break;
1794
1795                         /* run special entry like "reboot" */
1796                         if (entry->call) {
1797                                 entry->call();
1798                                 continue;
1799                         }
1800                 }
1801
1802                 /* export the selected boot entry to the system */
1803                 efivar_set(L"LoaderEntrySelected", entry->file, FALSE);
1804
1805                 uefi_call_wrapper(BS->SetWatchdogTimer, 4, 5 * 60, 0x10000, 0, NULL);
1806                 err = image_start(image, &config, entry);
1807                 if (EFI_ERROR(err)) {
1808                         graphics_mode(FALSE);
1809                         Print(L"\nFailed to execute %s (%s): %r\n", entry->title, entry->loader, err);
1810                         uefi_call_wrapper(BS->Stall, 1, 3 * 1000 * 1000);
1811                         goto out;
1812                 }
1813
1814                 menu = TRUE;
1815                 config.timeout_sec = 0;
1816         }
1817         err = EFI_SUCCESS;
1818 out:
1819         FreePool(loaded_image_path);
1820         config_free(&config);
1821         uefi_call_wrapper(root_dir->Close, 1, root_dir);
1822         uefi_call_wrapper(BS->CloseProtocol, 4, image, &LoadedImageProtocol, image, NULL);
1823         return err;
1824 }