From 91d0ace44b98db08081efa2e1d728b3739589ee1 Mon Sep 17 00:00:00 2001
From: Tobias Ulmer <tu@emlix.com>
Date: Mon, 15 May 2017 16:02:04 +0200
Subject: [PATCH] le2lib: remove do_parse_mode()

Signed-off-by: Tobias Ulmer <tu@emlix.com>
---
 generic/le2lib.c | 158 -----------------------------------------------
 1 file changed, 158 deletions(-)

diff --git a/generic/le2lib.c b/generic/le2lib.c
index 34ecbb3..1d6e3ae 100644
--- a/generic/le2lib.c
+++ b/generic/le2lib.c
@@ -632,163 +632,6 @@ do_rmdir(lua_State *lua)
 	return 1;
 }
 
-static unsigned calc_mode(unsigned, int, int, unsigned);
-enum { OWN_USER = 0x1, OWN_GROUP = 0x2, OWN_OTHER = 0x4 };
-
-static int
-do_parse_mode(lua_State *lua)
-{
-	const char *modestr = luaL_checkstring(lua, 1);
-	size_t pos, len = strlen(modestr);
-
-	/* Available states and start state */
-	enum { PARSE_OWNERS, PARSE_OP, PARSE_PERMS, PARSE_COMMA };
-	int state = PARSE_OWNERS;
-
-	/* Owners, operation and protection bits for a single state pass */
-	int owners = 0;
-	char op = 0;
-	mode_t protection = 0;
-
-	/* Result */
-	mode_t mode = 0;
-
-	/* Deal with octal numbers and exit early on success */
-	if (len && isdigit(modestr[0])) {
-		if (sscanf(modestr, "%o", &mode) != 1) {
-			lua_pushboolean(lua, 0);
-			lua_pushstring(lua, "parsing octal number failed");
-
-			return 2;
-		}
-
-		lua_pushinteger(lua, mode);
-		return 1;
-	}
-
-	/* Parse the form [ugoa][+|-|=][rwxX][,]...[\0] */
-	for (pos = 0; pos <= len; pos++) {
-		switch (state) {
-		case PARSE_OWNERS:
-			switch (modestr[pos]) {
-			case 'u': owners |= OWN_USER; break;
-			case 'g': owners |= OWN_GROUP; break;
-			case 'o': owners |= OWN_OTHER; break;
-			case 'a': owners |= (OWN_USER|OWN_GROUP|OWN_OTHER);
-				break;
-			case 0:
-				  lua_pushboolean(lua, 0);
-				  lua_pushstring(lua, "unexpected end of mode string");
-				  return 2;
-			default:
-				  state = PARSE_OP;
-				  pos--;
-				  break;
-			}
-
-			if (owners == 0)
-				owners |= (OWN_USER|OWN_GROUP|OWN_OTHER);
-
-			break;
-		case PARSE_OP:
-			switch (modestr[pos]) {
-			case '+':
-			case '-':
-			case '=':
-				op = modestr[pos];
-				state = PARSE_PERMS;
-				break;
-			case 0:
-				  lua_pushboolean(lua, 0);
-				  lua_pushstring(lua, "unexpected end of mode string");
-				  return 2;
-			default:
-				  lua_pushboolean(lua, 0);
-				  lua_pushstring(lua, "unknown operator");
-
-				  return 2;
-			}
-
-			break;
-		case PARSE_PERMS:
-			switch (modestr[pos]) {
-			case 'r': protection |= S_IRUSR; break;
-			case 'w': protection |= S_IWUSR; break;
-			case 'x':
-			case 'X':
-				  protection |= S_IXUSR; break;
-			/*case 's': break;
-			case 't': break;
-			case 'u': break;
-			case 'g': break;
-			case 'o': break;*/
-			case ',':
-				  state = PARSE_COMMA;
-				  pos--;
-				  break;
-			case 0:
-				  /* end of string, end of parse */
-				  break;
-			default:
-				  lua_pushboolean(lua, 0);
-				  lua_pushstring(lua, "unknown protection mode");
-
-				  return 2;
-			}
-
-			break;
-		case PARSE_COMMA:
-			/* Update mode and go back to start state */
-			mode = calc_mode(mode, owners, op, protection);
-			state = PARSE_OWNERS;
-			owners = op = protection = 0;
-
-			break;
-		}
-	}
-
-	mode = calc_mode(mode, owners, op, protection);
-
-	lua_pushinteger(lua, mode);
-
-	return 1;
-}
-
-static mode_t
-calc_mode(mode_t mode, int owners, int op, mode_t protection)
-{
-	int i, shift = 0;
-
-	/* Loop over all possible owners and calc shift */
-	for (i = OWN_USER; i <= OWN_OTHER ; i <<= 1) {
-		if (owners & i) {
-			switch (i) {
-			case OWN_USER: shift = 0; break;
-			case OWN_GROUP: shift = 3; break;
-			case OWN_OTHER: shift = 6; break;
-			}
-		} else {
-			continue;
-		}
-
-		switch (op) {
-		case '+':
-			mode |= (protection>>shift);
-			break;
-		case '-':
-			mode &= ~(protection>>shift);
-			break;
-		case '=':
-			/* reset protection, leaving suid/sguid alone */
-			mode = mode & ~0777;
-			mode |= (protection>>shift);
-			break;
-		}
-	}
-
-	return mode;
-}
-
 static int
 do_mkdir(lua_State *lua)
 {
@@ -985,7 +828,6 @@ static luaL_Reg lib[] = {
 	{ "mkdir", do_mkdir },
 	{ "mkdtemp", do_mkdtemp },
 	{ "mkstemp", do_mkstemp },
-	{ "parse_mode", do_parse_mode },
 	{ "poll", poll_fd },
 	{ "rename", do_rename },
 	{ "rmdir", do_rmdir },
-- 
2.39.5