1 /* $NetBSD: srt1.c,v 1.6 2009/03/14 14:45:52 dsl Exp $ */ 2 3 /* 4 * Copyright (c) 2001 Ben Harris. 5 * Copyright (c) 1996 6 * Matthias Drochner. All rights reserved. 7 * 8 * Redistribution and use in source and binary forms, with or without 9 * modification, are permitted provided that the following conditions 10 * are met: 11 * 1. Redistributions of source code must retain the above copyright 12 * notice, this list of conditions and the following disclaimer. 13 * 2. Redistributions in binary form must reproduce the above copyright 14 * notice, this list of conditions and the following disclaimer in the 15 * documentation and/or other materials provided with the distribution. 16 * 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 19 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 20 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 21 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 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 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 26 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 27 */ 28 29 /* Command-line parsing from i386 doscommain.c */ 30 31 #include <lib/libkern/libkern.h> 32 #include <lib/libsa/stand.h> 33 #include <riscoscalls.h> 34 #include <srt0.h> 35 36 37 /* limit of the memory given to us by RISC OS's WIMPslot; inited by srt0.S */ 38 /* init it also to a reasonable value also so it doesnt get into the BSS ! */ 39 void *HIMEM = (void *) 0x12000; 40 41 42 static int whitespace(char); 43 44 static int whitespace(char c) { 45 if ((c == '\0') || (c == ' ') || (c == '\t') 46 || (c == '\r') || (c == '\n')) 47 return (1); 48 return (0); 49 } 50 51 52 enum state {skipping, doing_arg, doing_long_arg}; 53 54 55 /* build argv/argc, start real main() */ 56 void __start(void); 57 int splitargs(char *, int, char**); 58 extern int main(int, char**); 59 60 extern char edata[], end[]; 61 62 63 void 64 __start(void) 65 { 66 int argc; 67 char *ro_args, *args, **argv; 68 69 /* Clear BSS */ 70 memset(edata, 0, end - edata); 71 72 /* Define heap. */ 73 setheap(end, (void *)(HIMEM - 0x1000)); 74 75 ro_args = os_get_env(NULL, NULL); 76 77 args = alloc(strlen(ro_args)+10); /* some spare extra */ 78 strcpy(args, ro_args); 79 80 argc = splitargs(args, 0, NULL); 81 argv = alloc(argc * sizeof(*argv)); 82 if (argv == NULL) 83 panic("alloc of argv failed"); 84 argc = splitargs(args, 1, argv); 85 86 /* start real main() */ 87 os_exit(NULL, main(argc, argv)); 88 } 89 90 int 91 splitargs(char *args, int really, char **argv) 92 { 93 int argc, i; 94 enum state s; 95 96 argc = 0; 97 s = skipping; 98 99 for (i = 0; args[i]; i++){ 100 101 if (whitespace(args[i])) { 102 if (s == doing_arg) { 103 /* end of argument word */ 104 if (really) 105 args[i] = '\0'; 106 s = skipping; 107 } 108 continue; 109 } 110 111 if (args[i] == '"') { 112 /* start or end long arg 113 * (end only if next char is whitespace) 114 * XXX but '" ' cannot be in argument 115 */ 116 switch (s) { 117 case skipping: 118 /* next char begins new argument word */ 119 if (really) 120 argv[argc] = &args[i + 1]; 121 argc++; 122 s = doing_long_arg; 123 break; 124 case doing_long_arg: 125 if (whitespace(args[i + 1])) { 126 if (really) 127 args[i] = '\0'; 128 s = skipping; 129 } 130 break; 131 case doing_arg: 132 /* ignore in the middle of arguments */ 133 default: 134 break; 135 } 136 continue; 137 } 138 139 /* all other characters */ 140 if (s == skipping) { 141 /* begin new argument word */ 142 if (really) 143 argv[argc] = &args[i]; 144 argc++; 145 s = doing_arg; 146 } 147 } 148 return argc; 149 } 150 151 void _rtt(void) 152 { 153 154 os_exit(NULL, 0); 155 } 156