545 }

   546 

   547 /// main.parse_args

   548 /// Function to parse command argument string. Returns table of strings.

   549 /// It can parse barewords (with escapes), double-quoted strings (with escapes) and single-quoted strings (without escapes).

   550 /// If args string ends with escape symbol, it is preserved.

   551 /// Arguments are separated only by whitespace, so, consequential quoted strings or barewords are one argument.

   552 /// Note: As for now, it does not preserve leading quote symbol for non-closed quoted strings. You should not rely on this behaviour.

   553 /// Examples:

   554 /// * ab\ cd\'e\\f\"

   555 /// * "ab cd'e\\f\""

   556 /// * 'ab cd'\''e\f'

   557 /// * ab" cd'"'e\f'

   558 /// A: string

   559 /// R: table

   560 static int lua_main_parse_args (lua_State *L)

   561 {

   562 	const char  *args = luaL_checkstring (L, 1);

   563 	const char  *p    = args;

   564 	luaL_Buffer  buf;

   565 

   566 	lua_newtable (L);

   567 	luaL_buffinit (L, &buf);

   568 	while (*p) {

   569 		if (*p == ' ') {

   570 			++p;

   571 			continue;

   572 		}

   573 		if (*p == '"') { // soft quote

   574 			const char *start = ++p;

   575 			while (*p) {

   576 				if (*p == '\\') { // escape symbol

   577 					luaL_addlstring (&buf, start, p - start);

   578 					start = ++p;

   579 					if (*p) // skip symbol

   580 						++p;

   581 					else // add last \ in line

   582 						luaL_addchar (&buf, '\\');

   583 				} else if (*p == '"') // quotation end

   584 					break;

   585 				else

   586 					++p;

   587 			}

   588 			luaL_addlstring (&buf, start, p - start);

   589 			if (*p)

   590 				++p;

   591 		} else if (*p == '\'') { // no-escape quote

   592 			const char *start = ++p;

   593 			while (*p && *p != '\'')

   594 				p++;

   595 			luaL_addlstring (&buf, start, p - start);

   596 			if (*p)

   597 				++p;

   598 		} else { // bareword

   599 			const char *start = p;

   600 			while (*p) {

   601 				if (*p == '\\') {

   602 					luaL_addlstring (&buf, start, p - start);

   603 					start = ++p;

   604 					if (*p) // skip symbol

   605 						++p;

   606 					else // add last \ in line

   607 						luaL_addchar (&buf, '\\');

   608 				} else if (*p == ' ' || *p == '\'' || *p == '"')

   609 					break;

   610 				else

   611 					++p;

   612 			}

   613 			luaL_addlstring (&buf, start, p - start);

   614 		}

   615 

   616 		if ((!*p) || *p == ' ') {

   617 			luaL_pushresult (&buf);

   618 			luaL_ref (L, -2);

   619 			luaL_buffinit (L, &buf);

   620 		}

   621 	}

   622 	return 1;

   975 	reg ( parse_args )