sys/arch/i386/stand/lib/menuutils.c

   1 /*      $NetBSD: menuutils.c,v 1.4 2014/04/06 19:11:26 jakllsch Exp $   */
   2
   3 /*
   4  * Copyright (c) 1996, 1997
   5  *      Matthias Drochner.  All rights reserved.
   6  * Copyright (c) 1996, 1997
   7  *      Perry E. Metzger.  All rights reserved.
   8  * Copyright (c) 1997
   9  *      Jason R. Thorpe.  All rights reserved
  10  *
  11  * Redistribution and use in source and binary forms, with or without
  12  * modification, are permitted provided that the following conditions
  13  * are met:
  14  * 1. Redistributions of source code must retain the above copyright
  15  *    notice, this list of conditions and the following disclaimer.
  16  * 2. Redistributions in binary form must reproduce the above copyright
  17  *    notice, this list of conditions and the following disclaimer in the
  18  *    documentation and/or other materials provided with the distribution.
  19  * 3. All advertising materials mentioning features or use of this software
  20  *    must display the following acknowledgements:
  21  *      This product includes software developed for the NetBSD Project
  22  *      by Matthias Drochner.
  23  *      This product includes software developed for the NetBSD Project
  24  *      by Perry E. Metzger.
  25  * 4. The names of the authors may not be used to endorse or promote products
  26  *    derived from this software without specific prior written permission.
  27  *
  28  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  29  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  30  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  31  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  32  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  33  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  34  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  35  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  36  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  37  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  38  */
  39
  40 #include <lib/libkern/libkern.h>
  41 #include <lib/libsa/stand.h>
  42
  43 #include "libi386.h"
  44
  45 void
  46 docommand(char *arg)
  47 {
  48         char *options;
  49         int i;
  50
  51         options = gettrailer(arg);
  52
  53         for (i = 0; commands[i].c_name != NULL; i++) {
  54                 if (strcmp(arg, commands[i].c_name) == 0) {
  55                         (*commands[i].c_fn)(options);
  56                         return;
  57                 }
  58         }
  59
  60         printf("unknown command\n");
  61         command_help(NULL);
  62 }
  63
  64 __dead void
  65 bootmenu(void)
  66 #if defined(__minix)
  67 {
  68         prompt(0);
  69         while(1); /* This should never return. */
  70 }
  71
  72 /* Derived from libsa gets(). */
  73 void
  74 editline(char *buf, size_t size, char *input)
  75 {
  76         int c, i, pos, len = 0;
  77
  78         /* If an initial input has been given, copy and print this first. */
  79         if (input != NULL) {
  80                 while (*input && len < size - 1)
  81                         putchar(buf[len++] = *input++);
  82         }
  83         pos = len;
  84
  85         for (;;) {
  86                 c = getchar_ex();
  87                 switch (c & 0177) {
  88                 case '\0':
  89                         switch (c) {
  90                         case 0x4b00: /* Left arrow: move cursor to left. */
  91                                 if (pos > 0) {
  92                                         putchar('\b');
  93                                         pos--;
  94                                 }
  95                                 break;
  96                         case 0x4d00: /* Right arrow: move cursor to right. */
  97                                 if (pos < len) putchar(buf[pos++]);
  98                                 break;
  99                         }
 100                         break;
 101                 case 'b' & 037: /* Ctrl+B: move cursor to left. */
 102                         if (pos > 0) {
 103                                 putchar('\b');
 104                                 pos--;
 105                         }
 106                         break;
 107                 case 'f' & 037: /* Ctrl+F: move cursor to right. */
 108                         if (pos < len) putchar(buf[pos++]);
 109                         break;
 110                 case 'a' & 037: /* Ctrl+A: move cursor to start of line. */
 111                         for ( ; pos > 0; pos--) putchar('\b');
 112                         break;
 113                 case 'e' & 037: /* Ctrl+E: move cursor to end of line. */
 114                         for ( ; pos < len; pos++) putchar(buf[pos]);
 115                         break;
 116                 case '\n': /* Enter: return line. */
 117                 case '\r':
 118                         for ( ; pos < len; pos++) putchar(buf[pos]);
 119                         buf[len] = '\0';
 120                         putchar('\n');
 121                         return;
 122 #if HASH_ERASE
 123                 case '#':
 124 #endif
 125                 case '\b': /* Backspace: erase character before cursor. */
 126                 case '\177':
 127                         if (pos > 0) {
 128                                 pos--;
 129                                 len--;
 130                                 putchar('\b');
 131                                 for (i = pos; i < len; i++)
 132                                         putchar(buf[i] = buf[i + 1]);
 133                                 putchar(' ');
 134                                 for (i = pos; i < len; i++) putchar('\b');
 135                                 putchar('\b');
 136                         }
 137                         break;
 138                 case 'r' & 037: /* Ctrl+R: reprint line. */
 139                         putchar('\n');
 140                         for (i = 0; i < len; i++) putchar(buf[i]);
 141                         for (i = len; i > pos; i--) putchar('\b');
 142                         break;
 143 #if AT_ERASE
 144                 case '@':
 145 #endif
 146                 case 'u' & 037: /* Ctrl+U: clear entire line. */
 147                 case 'w' & 037:
 148                         for ( ; pos > 0; pos--) putchar('\b');
 149                         for ( ; pos < len; pos++) putchar(' ');
 150                         for ( ; pos > 0; pos--) putchar('\b');
 151                         len = 0;
 152                         break;
 153                 case '\a': /* Ctrl+G: sound bell but do not store character. */
 154                         putchar(c);
 155                         break;
 156                 case '\t': /* Tab: convert to single space. */
 157                         c = ' ';
 158                         /*FALLTHROUGH*/
 159                 default: /* Insert character at cursor position. */
 160                         if (len < size - 1) {
 161                                 for (i = len; i > pos; i--)
 162                                         buf[i] = buf[i - 1];
 163                                 buf[pos] = c;
 164                                 pos++;
 165                                 len++;
 166                                 putchar(c);
 167                                 for (i = pos; i < len; i++) putchar(buf[i]);
 168                                 for (i = pos; i < len; i++) putchar('\b');
 169                         } else {
 170                                 putchar('\a');
 171                         }
 172                         break;
 173                 }
 174         }
 175         /*NOTREACHED*/
 176 }
 177
 178 void
 179 prompt(int allowreturn)
 180 #endif /* defined(__minix) */
 181 {
 182         char input[80];
 183
 184         for (;;) {
 185                 char *c = input;
 186
 187                 input[0] = '\0';
 188                 printf("> ");
 189 #if !defined(__minix)
 190                 gets(input);
 191 #else
 192                 editline(input, sizeof(input), NULL);
 193 #endif /* !defined(__minix) */
 194
 195                 /*
 196                  * Skip leading whitespace.
 197                  */
 198                 while (*c == ' ')
 199                         c++;
 200 #if defined(__minix)
 201                 if (allowreturn && !strcmp(c, "menu"))
 202                         break;
 203 #endif /* defined(__minix) */
 204                 if (*c)
 205                         docommand(c);
 206         }
 207 }