split extra-tools

src/extra-tools/66-gnwenv.c

-/* 
- * 66-gnwenv.c
- * 
- * Copyright (c) 2018-2019 Eric Vidal <eric@obarun.org>
- * 
- * All rights reserved.
- * 
- * This file is part of Obarun. It is subject to the license terms in
- * the LICENSE file found in the top-level directory of this
- * distribution.
- * This file may not be copied, modified, propagated, or distributed
- * except according to the terms contained in the LICENSE file./
- */
- 
-#include <string.h>
-#include <sys/types.h>
-#include <fcntl.h>
-#include <unistd.h>
-#include <errno.h>
-#include <sys/wait.h>
-
-#include <oblibs/string.h>
-
-#include <skalibs/types.h>
-#include <skalibs/buffer.h>
-#include <skalibs/sgetopt.h>
-#include <skalibs/strerr2.h>
-#include <skalibs/env.h>
-#include <skalibs/djbunix.h>
-
-#define MAX_ENV 4095
-static char const *pattern = 0 ;
-static unsigned int EXACT = 0 ;
-
-#define USAGE "66-gnwenv [ -h ] [ -x ] [ -m mode ] process dir file"
-#define dieusage() strerr_dieusage(100, USAGE)
-
-static inline void info_help (void)
-{
-  static char const *help =
-"66-gnwenv <options> process dir file\n"
-"\n"
-"options :\n"
-"	-h: print this help\n" 
-"	-m: create dir with given mode\n"
-"	-x: match exactly with the process name\n"
-;
-
- if (buffer_putsflush(buffer_1, help) < 0)
-    strerr_diefu1sys(111, "write to stdout") ;
-}
-
-static void string_env(char *tmp,char const *s,size_t len)
-{
-	ssize_t r = 0 , pos = 0 ;
-	
-	while ((pos < len) && (r != -1))
-	{
-		r = get_len_until(s+pos,'\n') ;
-		memcpy(tmp+pos,s+pos,r) ;
-		tmp[pos+r] = 0 ;
-		pos += ++r ;/**+1 to skip the \n character*/
-	}
-}
-
-int main (int argc, char const *const *argv, char const *const *envp)
-{
-	int r = 0 , pf, rm = 0, m = 0, fd[2], did = 0 ;
-	ssize_t slen = 0 ; 
-	
-	unsigned int mode = S_IRWXU | S_IRGRP | S_IXGRP | S_IROTH | S_IXOTH ;
-	
-	char const *dir = 0 , *file = 0 ;
-	char const *newargv[6+1] ;
-	char const *newread[6+1] ;
-	char md[UINT32_FMT] ;
-	char buf[MAX_ENV+1] ;
-	char tmp[MAX_ENV+1] ;
-	
-	PROG = "66-gnwenv" ;
-	{
-		subgetopt_t l = SUBGETOPT_ZERO ;
-		for (;;)
-		{
-			int opt = subgetopt_r(argc, argv, "hxm:", &l) ;
-			if (opt == -1) break ;
-			switch (opt)
-			{
-				case 'h' : info_help() ; return 0 ;
-				case 'x' : EXACT = 1 ; break ;
-				case 'm' : if (!uint0_oscan(l.arg, &mode)) dieusage() ; did = 1 ; break ;
-				default : dieusage() ;
-			}
-		}
-		argc -= l.ind ; argv += l.ind ;
-	}
-	if (argc < 3) dieusage() ;
-	pattern = argv[0] ;
-	dir = argv[1] ;
-	if (dir[0] != '/') strerr_dief2x(111,dir," must be an absolute path") ;
-	file = argv[2] ;
-	
-	newread[rm++] = "66-getenv" ;
-	if (EXACT)
-		newread[rm++] = "-x" ;
-	newread[rm++] = pattern ;
-	newread[rm++] = dir ;
-	newread[rm++] = file ;
-	newread[rm++] = 0 ;
-	
-	if (pipe(fd) < 0) strerr_diefu1sys(111,"pipe") ;
-	pf = fork() ;
-	if (pf < 0) strerr_diefu1sys(111,"fork") ;
-	if (!pf)
-	{
-		dup2(fd[1],1) ;
-		pathexec(newread) ;
-	}
-	else
-	{	
-		wait(NULL) ;
-		slen = read(fd[0],buf,MAX_ENV) ;
-		if (!slen) return 0 ;
-		buf[slen] = 0 ;
-	}
- 	r = get_nbline(buf,slen) ;
- 	
- 	string_env(tmp,buf,slen) ;
-	
-	md[uint32_fmt(md,mode)] = 0 ;
-
-	newargv[m++] = "66-writenv" ;
-	if (did)
-	{
-		newargv[m++] = "-m" ;
-		newargv[m++] = md ;
-	}
-	newargv[m++] = dir ;
-	newargv[m++] = file ;
-	newargv[m++] = 0 ;
-		
-	char const *v[r + 1] ;
-	if (!env_make (v, r ,tmp, slen)) strerr_diefu1sys(111,"make environment") ;
-	v[r] = 0 ;
-	
-	xpathexec_fromenv (newargv, v, r) ;
-}
-
-
-

src/extra-tools/66-which.c

-/* 
- * 66-which.c
- * 
- * Copyright (c) 2019 Dyne.org Foundation, Amsterdam
- * Copyright (c) 2019 Eric Vidal <eric@obarun.org>
- * 
- * Written by:
- *  - Danilo Spinella <danyspin97@protonmail.com>
- *  - Eric Vidal <eric@obarun.org>
- * 
- * All rights reserved.
- * 
- * This file is part of Obarun. It is subject to the license terms in
- * the LICENSE file found in the top-level directory of this
- * distribution.
- * This file may not be copied, modified, propagated, or distributed
- * except according to the terms contained in the LICENSE file./
- *
- * */
-
-#include <stdlib.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <fcntl.h>
-#include <unistd.h>
-#include <skalibs/genalloc.h>
-#include <skalibs/sgetopt.h>
-#include <skalibs/buffer.h>
-#include <skalibs/bytestr.h>
-#include <skalibs/strerr2.h>
-#include <skalibs/config.h>
-#include <oblibs/error2.h>
-#include <oblibs/string.h>
-
-#define USAGE "66-which [ -h ] [ -a | -q ] commands..."
-
-static inline void info_help (void)
-{
-  static char const *help =
-"66-which <options> commands...\n"
-"\n"
-"options :\n"
-"	-h: print this help\n" 
-"	-a: print all matching executable in PATH\n"
-"	-q: quiet, do not print anything to stdout\n"
-;
-	if (buffer_putsflush(buffer_1, help) < 0)
-		strerr_diefu1sys(111, "write to stdout") ;
-}
-
-int check_executable(char const* filepath) {
-	struct stat sb ;
-	return (stat(filepath, &sb) == 0 && sb.st_mode & S_IXUSR
-			&& !S_ISDIR(sb.st_mode)) ? 1 : 0 ;
-}
-int parse_path(genalloc* folders, char* path) {
-	char* rp = NULL ;
-	size_t i, len, s ;
-	int found ;
-	stralloc filepath = STRALLOC_ZERO ;
-	while (path) {
-		s = str_chr(path, ':') ;
-		if (!stralloc_copyb(&filepath, path, s)
-			|| !stralloc_0(&filepath))
-			strerr_diefu1sys(111, "append stralloc with PATH") ;
-		rp = realpath(filepath.s, NULL);
-		if (rp != NULL) {
-			char const** ss = genalloc_s(char const*, folders);
-			found = 0;
-			len = genalloc_len(char const*, folders);
-			for ( i = 0 ; i < len ; i++) {
-				if (obstr_equal(ss[i], rp)) {
-					found = 1 ;
-					break ;
-				}
-			}
-			if (!found) {
-				if (!genalloc_append(char const*, folders, &rp))
-					strerr_diefu1sys(111, "append genalloc") ;
-			} else {
-				free(rp);
-			}
-		}
-		if (s == strlen(path)) break ;
-		path += s + 1;
-	}
-	stralloc_free(&filepath) ;
-	return genalloc_len(char const*, folders) ;
-}
-
-int handle_string(char const* name, char const* env_path, genalloc_ref paths,
-				  int quiet, int printall) {
-	size_t len = genalloc_len(char const*, paths) ;
-	int found = 0 ;
-
-	stralloc filepath = STRALLOC_ZERO ;
-	char const** ss = genalloc_s(char const*, paths) ;
-
-	for (size_t i = 0 ; i < len ; i++) {
-		if (!stralloc_copys(&filepath, ss[i])
-			|| !stralloc_cats(&filepath, "/")
-			|| !stralloc_cats(&filepath, name)
-			|| !stralloc_0(&filepath))
-				retstralloc(111, "filepath");
-
-		if (check_executable(filepath.s)) {
-			if (!quiet && (buffer_puts(buffer_1small, filepath.s) < 0
-				|| buffer_put(buffer_1small, "\n", 1) < 0
-				|| !buffer_flush(buffer_1small)))
-				strerr_diefu1sys(111, "write to stdout") ;
-			found = 1;
-			if (!printall) break ;
-		}
-	}
-
-	if (found == 0 && !quiet)
-		strerr_warnw5x("no ",name," in (",env_path,")") ;
-
-	stralloc_free(&filepath);
-	return found == 1 ? 0 : 111;
-}
-
-int handle_path(char const* path, int quiet) {
-	char* rp = realpath(path, NULL) ;
-	if (rp != NULL && check_executable(rp)) {
-		if (!quiet && (buffer_puts(buffer_1small, rp) < 0
-			|| buffer_put(buffer_1small, "\n", 1) < 0
-			|| !buffer_flush(buffer_1small)))
-			strerr_diefu1sys(111, "write to stdout") ;
-		return 0 ;
-	}
-
-	size_t len = strlen(path) ;
-	char base[len+1] ;
-	char dir[len+1] ;
-	if (!basename(base, path))
-		strerr_diefu1sys(111, "get basename") ;
-	if (!dirname(dir, path))
-		strerr_diefu1sys(111, "get dirname") ;
-
-	if (!quiet) strerr_warnw5x("no ",base," in (",dir,")") ;
-
-	return 111 ;
-}
-
-int main (int argc, char const *const *argv)
-{
-	int printall = 0 ;
-	int quiet = 0 ;
-	char* path = 0 ;
-	int ret = 0;
-	genalloc paths = GENALLOC_ZERO ; // char const *
-	PROG = "66-which" ;
-	{
-		subgetopt_t l = SUBGETOPT_ZERO ;
-		for (;;)
-		{
-			int opt = subgetopt_r(argc, argv, "haq", &l) ;
-			if (opt == -1) break ;
-			switch (opt)
-			{
-				case 'h': info_help() ; return 0 ;
-				case 'a': printall = 1 ; break ;
-				case 'q': quiet = 1 ; break ;
-				default : strerr_dieusage(110, USAGE) ;
-			}
-		}
-		argc -= l.ind ; argv += l.ind ;
-	}
-
-	if (printall && quiet) strerr_dieusage(110, USAGE) ;
-
-	path = getenv("PATH") ;
-	if (!path) path = SKALIBS_DEFAULTPATH ;
-
-	if (argc < 0) strerr_dieusage(110, USAGE) ;
-	if (!parse_path(&paths, path))
-		strerr_diefu1sys(111, "PATH is empty or contains non valid values") ;
-
-	for ( ; *argv ; argv++) {
-		if ((*argv)[0] == '/'
-			|| (*argv)[0] == '~' || ((*argv)[0] == '~' && (*argv)[1] == '/')
-			|| (*argv)[0] == '.' || ((*argv)[0] == '.' && (*argv)[1] == '/')
-			|| ((*argv)[0] == '.' || ((*argv)[1] == '.' && (*argv)[2] == '/')))
-			ret = handle_path(*argv, quiet);
-		else
-			ret = handle_string(*argv, path, &paths, quiet, printall);
-	}
-
-	genalloc_free(char const *, &paths) ;
-	return ret ;
-}

src/extra-tools/66-writenv.c

-/* 
- * 66-writenv.c
- * 
- * Copyright (c) 2018-2019 Eric Vidal <eric@obarun.org>
- * 
- * All rights reserved.
- * 
- * This file is part of Obarun. It is subject to the license terms in
- * the LICENSE file found in the top-level directory of this
- * distribution.
- * This file may not be copied, modified, propagated, or distributed
- * except according to the terms contained in the LICENSE file./
- */
- 
-#include <string.h>
-#include <sys/stat.h>
-#include <unistd.h>//fsync,close
-#include <errno.h>
-
-#include <skalibs/types.h>
-#include <skalibs/bytestr.h>
-#include <skalibs/buffer.h>
-#include <skalibs/sgetopt.h>
-#include <skalibs/strerr2.h>
-#include <skalibs/djbunix.h>
-
-#define MAX_ENV 4095
-#define USAGE "66-writenv [ - h ] [ -m mode ] dir file"
-#define dieusage() strerr_dieusage(100, USAGE)
-
-static inline void info_help (void)
-{
-  static char const *help =
-"66-writenv <options> dir file\n"
-"\n"
-"options :\n"
-"	-h: print this help\n" 
-"	-m: create dir with given mode\n"
-;
-
- if (buffer_putsflush(buffer_1, help) < 0)
-    strerr_diefu1sys(111, "write to stdout") ;
-}
-
-int main (int argc, char const *const *argv, char const *const *envp)
-{
-	unsigned int mode = S_IRWXU | S_IRGRP | S_IXGRP | S_IROTH | S_IXOTH ;
-	size_t dirlen, filen ;
-	buffer b ;
-	int fd ;
-	char const *dir = 0 , *file = 0 ;
-	char buf[MAX_ENV+1] ;
-	PROG = "66-writenv" ;
-	{
-		subgetopt_t l = SUBGETOPT_ZERO ;
-		for (;;)
-		{
-			int opt = subgetopt_r(argc, argv, "hm:", &l) ;
-			if (opt == -1) break ;
-			switch (opt)
-			{
-				case 'h' : info_help() ; return 0 ;
-				case 'm' : if (!uint0_oscan(l.arg, &mode)) dieusage() ; break ;
-				default : dieusage() ;
-			}
-		}
-		argc -= l.ind ; argv += l.ind ;
-	}
-	if (argc < 2) dieusage() ;
-	dir = argv[0] ;
-	if (dir[0] != '/') strerr_dief2x(111,dir," must be an absolute path") ;
-	file = argv[1] ;
-	
-	if (mkdir(dir, mode) < 0)
-	{
-		struct stat st ;
-		if (errno != EEXIST) strerr_diefu2sys(111, "mkdir ", dir) ;
-		if (stat(dir, &st) < 0)
-			strerr_diefu2sys(111, "stat ", dir) ;
-		if (!S_ISDIR(st.st_mode))
-		{
-			errno = ENOTDIR ;
-			strerr_diefu2sys(111, "mkdir ", dir) ;
-		}
-	}
-	dirlen = strlen(dir) ;
-	filen = strlen(file) ;
-	char fn[dirlen + 1 + filen + 1] ;
-	memcpy(fn,dir,dirlen) ;
-	fn[dirlen] = '/' ;
-	memcpy(fn + dirlen + 1, file ,filen) ;
-	fn[dirlen + 1 + filen] = 0 ;
-	fd = open_trunc(fn) ;
-	if (fd < 0) strerr_diefu2sys(111,"open trunc: ",fn) ;
- 	buffer_init(&b,&buffer_write,fd,buf,MAX_ENV) ;
- 	for (; *envp ; envp++)
-	{
-		if ((buffer_put(&b, *envp,strlen(*envp)) < 0) ||
-		(buffer_put(&b, "\n",1) < 0)) { close(fd) ; strerr_diefu1sys(111,"write buffer") ; }
-	}
-	if(!buffer_flush(&b)){ close(fd) ; strerr_diefu1sys(111,"flush") ; }
-	if (fsync(fd) < 0){ close(fd) ; strerr_diefu1sys(111,"sync") ; }
-	close(fd) ;
-	return 0 ;
-}

src/extra-tools/deps-exe/66-envfile

--lskarnet

src/extra-tools/deps-exe/66-getenv

--loblibs
--lskarnet
-

src/extra-tools/deps-exe/66-gnwenv

--loblibs
--lskarnet
-

src/extra-tools/deps-exe/66-which

--lskarnet
--loblibs

src/extra-tools/deps-exe/66-writenv

--lskarnet

src/extra-tools/deps-exe/execl-cmdline

--lexecline
--loblibs
--lskarnet

src/extra-tools/deps-exe/execl-envfile

-${LIB66}
-${LIBEXECLINE}
--loblibs
--lexecline
--lskarnet
-

src/extra-tools/deps-exe/execl-subuidgid

-${LIB66}
--loblibs
--lexecline
--lskarnet
-${LIBEXECLINE}

src/extra-tools/execl-cmdline.c

-/* 
- * execl-cmdline.c
- * 
- * Copyright (c) 2018-2019 Eric Vidal <eric@obarun.org>
- * 
- * All rights reserved.
- * 
- * This file is part of Obarun. It is subject to the license terms in
- * the LICENSE file found in the top-level directory of this
- * distribution.
- * This file may not be copied, modified, propagated, or distributed
- * except according to the terms contained in the LICENSE file./
- */
-
-#include <string.h>
-
-#include <oblibs/string.h>
-#include <oblibs/stralist.h>
-#include <oblibs/error2.h>
-
-#include <skalibs/stralloc.h>
-#include <skalibs/genalloc.h>
-#include <skalibs/env.h>
-#include <skalibs/djbunix.h>
-#include <skalibs/sgetopt.h>
-#include <skalibs/buffer.h>
-
-#include <execline/execline.h>
-
-#define USAGE "execl-cmdline [ -s ] { command... }"
-
-static inline void info_help (void)
-{
-  static char const *help =
-"execl-envfile <options> { command... }\n"
-"\n"
-"options :\n"
-"	-h: print this help\n" 
-"	-s: split command\n"
-;
-
- if (buffer_putsflush(buffer_1, help) < 0)
-    strerr_diefu1sys(111, "write to stdout") ;
-}
-
-int clean_val_doublequoted(genalloc *ga,char const *line)
-{
-	size_t slen = strlen(line) ;
-	size_t tl ;
-	char s[slen+1] ;
-	memcpy(s,line,slen) ;
-	s[slen] = 0 ;
-	int f = 0, r = 0 , prev = 0 ;
-	r = get_len_until(s,'"') ;
-	if (r < 0)
-	{
-		if (!clean_val(ga,s)) return 0 ;
-		return 1 ;
-	}
-	for (int i = 0 ; i < slen ; i++)
-	{
-		if (s[i] == '"')
-		{
-			if (f)
-			{
-				char t[slen+1] ;
-				tl = i-1 ;
-				memcpy(t,s+prev,tl-prev+1) ;
-				t[tl-prev+1] = 0 ;
-				if (!stra_add(ga,t)) return 0 ;
-				f = 0 ; prev = i+1 ;
-			}
-			else
-			{
-				if (i > 0)
-				{
-					char t[slen+1] ;
-					tl = i ;
-					if (prev == tl){ f++ ; continue ; }
-					memcpy(t,s+prev,tl-prev) ;
-					t[tl-prev] = 0 ;
-					if (!clean_val(ga,t)) return 0 ;
-					f++ ; prev = i+1 ;
-				}
-				else f++ ; 
-			}
-		}
-		else
-		if (i+1 == slen)
-		{
-			char t[slen+1] ;
-			tl = i - 1 ;
-			memcpy(t,s+prev,slen-prev) ;
-			t[slen-prev] = 0 ;
-			if (!clean_val(ga,t)) return 0 ;
-			break ;
-		}
-	}
-	if (f) strerr_dief2x(111,"odd number of double quote in: ",line) ;
-
-	return 1 ;
-}
-
-int main(int argc, char const **argv, char const *const *envp)
-{
-
-	int r, argc1, split ;
-
-	PROG = "execl-cmdline" ;
-	
-	stralloc tmodifs = STRALLOC_ZERO ;
-	stralloc modifs = STRALLOC_ZERO ;
-	genalloc ga = GENALLOC_ZERO ;
-	
-	r =  argc1 = split = 0 ;
-	
-	{
-		subgetopt_t l = SUBGETOPT_ZERO ;
-		for (;;)
-		{
-		  int opt = subgetopt_r(argc, argv, "hs", &l) ;
-		  if (opt == -1) break ;
-		  switch (opt)
-		  {
-			case 'h' : info_help() ; return 0 ;
-			case 's' : split = 1 ; break ;
-			default : exitusage(USAGE) ;
-		  }
-		}
-		argc -= l.ind ; argv += l.ind ;
-	}
-	if (!argc) exitusage(USAGE) ;
-	argc1 = el_semicolon(argv) ;
-	if (argc1 >= argc) strerr_dief1x(100, "unterminated block") ;
-	argv[argc1] = 0 ;
-	
-	char const **newargv = argv ;
-	for (int i = 0; i < argc1 ; i++, newargv++)
-	{	
-		if (!*newargv[0])
-			continue ;
-		
-		if (!stralloc_cats(&tmodifs,*newargv)) retstralloc(111,"tmodifs") ;
-		if (split)
-		{
-			if (!stralloc_cats(&tmodifs," ")) retstralloc(111,"tmodifs") ;
-		}
-		else if (!stralloc_0(&tmodifs)) retstralloc(111,"tmodifs_0") ;
-		r++;
-	}
-	
-	if (split)
-	{
-		if (!clean_val_doublequoted(&ga,tmodifs.s)) strerr_diefu2x(111,"clean val: ",tmodifs.s) ;
-		for (unsigned int i = 0 ; i < genalloc_len(stralist,&ga) ; i++)
-		{
-			stralloc_cats(&modifs,gaistr(&ga,i)) ;
-			stralloc_0(&modifs) ;
-		}
-		r = genalloc_len(stralist,&ga) ;
-		genalloc_deepfree(stralist,&ga,stra_free) ;
-	}
-	else if (!stralloc_copy(&modifs,&tmodifs)) retstralloc(111,"copy") ;
-	
-	stralloc_free(&tmodifs) ;
-	
-	char const *newarg[r + 1] ;
-    if (!env_make(newarg, r, modifs.s, modifs.len)) strerr_diefu1sys(111, "env_make") ;
-    newarg[r] = 0 ;
-
-	xpathexec_run(newarg[0],newarg,envp) ;
-}

src/extra-tools/execl-envfile.c

-/* 
- * execl-envfile.c
- * 
- * Copyright (c) 2018-2019 Eric Vidal <eric@obarun.org>
- * 
- * All rights reserved.
- * 
- * This file is part of Obarun. It is subject to the license terms in
- * the LICENSE file found in the top-level directory of this
- * distribution.
- * This file may not be copied, modified, propagated, or distributed
- * except according to the terms contained in the LICENSE file./
- */
-#include <string.h>
-#include <stdlib.h>
-#include <sys/stat.h>
-#include <unistd.h>
-//#include <stdio.h>
-
-#include <oblibs/string.h>
-#include <oblibs/stralist.h>
-#include <oblibs/error2.h>
-#include <oblibs/types.h>
-#include <oblibs/directory.h>
-#include <oblibs/files.h>
-#include <oblibs/environ.h>
-#include <oblibs/sastr.h>
-
-#include <skalibs/bytestr.h>
-#include <skalibs/stralloc.h>
-#include <skalibs/env.h>
-#include <skalibs/djbunix.h>
-#include <skalibs/env.h>
-#include <skalibs/sgetopt.h>
-
-#include <execline/execline.h>
-
-#define USAGE "execl-envfile [ -h help ] [ -l ] src prog"
-
-static inline void info_help (void)
-{
-  static char const *help =
-"execl-envfile <options> src prog\n"
-"\n"
-"options :\n"
-"	-h: print this help\n" 
-"	-f: file to parse(deprecated)\n"
-"	-l: loose\n"
-;
-
- if (buffer_putsflush(buffer_1, help) < 0)
-    strerr_diefu1sys(111, "write to stdout") ;
-}
-
-void clean_n_unexport(stralloc *modifs, stralloc *dst, stralloc *src)
-{
-	if (!environ_clean_envfile(modifs,src)) strerr_diefu2sys(111,"prepare modified environment of: ",src->s) ;		
-	if (!sastr_split_string_in_nline(modifs)) strerr_diefu2sys(111,"build environment line of: ",src->s) ; ;
-	if (!stralloc_cats(dst,src->s)) exitstralloc("clean_n_unexport") ;
-}
-
-int main (int argc, char const *const *argv, char const *const *envp)
-{
-	int r = 0, unexport = 0, insist = 1, nfile = 0, nvar = 0 ;
-	size_t pos = 0, pathlen = 0 ;
-	char const *path = 0, *file = 0 ;
-	char tpath[MAXENV + 1], tfile[MAXENV+1] ;
-	stralloc src = STRALLOC_ZERO ;
-	stralloc modifs = STRALLOC_ZERO ;
-	stralloc dst = STRALLOC_ZERO ;
-	stralloc toparse = STRALLOC_ZERO ; 
-	stralloc key = STRALLOC_ZERO ; 
-	stralloc val = STRALLOC_ZERO ; 
-	
-	exlsn_t info = EXLSN_ZERO ;
-		
-	PROG = "execl-envfile" ;
-	{
-		subgetopt_t l = SUBGETOPT_ZERO ;
-
-		for (;;)
-		{
-			int opt = subgetopt_r(argc,argv, "hlf:", &l) ;
-			if (opt == -1) break ;
-			switch (opt)
-			{
-				case 'h' : 	info_help(); return 0 ;
-				case 'f' :  file = l.arg ;  break ;
-				case 'l' : 	insist = 0 ; break ;
-				default : exitusage(USAGE) ; 
-			}
-		}
-		argc -= l.ind ; argv += l.ind ;
-	}
-	if (argc < 2) exitusage(USAGE) ;
-	
-	path = *argv ;
-	argv++;
-	argc--;
-	
-	/** Mark -f as deprecated */	
-	if (file)
-	{
-		strerr_warnw1x("-f options is deprecated") ;
-		if (path[0] != '/') strerr_dief3x(111,"path of: ",path,": must be absolute") ;
-	}
-	else
-	{
-		r = scan_mode(path,S_IFREG) ;
-		if (!r && insist) strerr_diefu2sys(111,"find: ",path) ;
-		if (r < 0)
-		{
-			r = scan_mode(path,S_IFDIR) ;
-			if (!r && insist) strerr_diefu2sys(111,"find: ",path) ;
-			if (r < 0) strerr_dief2x(111,"invalid format of: ", path) ;
-			if (path[0] == '.')
-			{
-				if (!dir_beabsolute(tpath,path)) 
-					strerr_diefu2sys(111,"find absolute path of: ",path) ;
-			}
-			else if (path[0] != '/') strerr_dief3x(111,"path of: ",path,": must be absolute") ;
-			else
-			{
-				pathlen = strlen(path) ;
-				memcpy(tpath,path,pathlen);
-				tpath[pathlen] = 0 ;
-			}
-			path = tpath ;
-		}
-		else
-		{
-			if (!basename(tfile,path)) strerr_diefu2x(111,"get file name of: ",path) ;
-			file = tfile ;
-			if (!dirname(tpath,path)) strerr_diefu2x(111,"get parent path of: ",path) ;
-			path = tpath ;
-		}
-	}
-	
-	r = sastr_dir_get(&toparse,path,"",S_IFREG) ;
-	if (!r && insist) strerr_diefu2sys(111,"get file from: ",path) ;
-	else if ((!r && !insist) || !toparse.len)
-	{
-		xpathexec_run(argv[0],argv,envp) ;
-	}
-	if (file)
-	{
-		ssize_t	r = sastr_cmp(&toparse,file) ;
-		if (r < 0) 
-		{
-			if (insist) strerr_diefu2x(111,"find: ",file) ;
-			else
-			{
-				xpathexec_run(argv[0],argv,envp) ;
-			}
-		}
-		if (!file_readputsa(&src,path,file)) strerr_diefu4sys(111,"read file: ",path,"/",file) ;
-		clean_n_unexport(&modifs,&dst,&src) ;
-	}
-	else
-	{
-		for (;pos < toparse.len; pos += strlen(toparse.s + pos) + 1)
-		{
-			nfile++;
-			src.len = 0 ;
-			if (nfile > MAXFILE) strerr_dief2x(111,"to many file to parse in: ",path) ;
-			if (!file_readputsa(&src,path,toparse.s+pos)) strerr_diefu4sys(111,"read file: ",path,"/",toparse.s+pos) ;
-			clean_n_unexport(&modifs,&dst,&src) ;
-			nvar = environ_get_num_of_line(&src) ;
-			if (nvar == -1) strerr_diefu4sys(111,"get number of line of:",path,"/",toparse.s+pos) ;
-			if (nvar > MAXVAR) strerr_dief4x(111,"to many variables in file: ",path,"/",toparse.s+pos) ;
-		}
-	}
-	stralloc_free(&src) ;
-	
-	/** be able to freed the stralloc before existing */
-	char tmp[modifs.len+1] ;
-	memcpy(tmp,modifs.s,modifs.len) ;
-	tmp[modifs.len] = 0 ;
-	
-	size_t n = env_len(envp) + 1 + byte_count(modifs.s,modifs.len,'\0') ;
-	if (n > MAXENV) strerr_dief1x(111,"environment string too long") ;
-	char const *newenv[n + 1] ;
-	if (!env_merge (newenv, n ,envp,env_len(envp),tmp, modifs.len)) strerr_diefu1sys(111,"build environment") ;
-	
-	if (!sastr_split_string_in_nline(&dst)) strerr_diefu1x(111,"split line") ;
-	pos = 0 ;
-	while (pos < dst.len)
-	{		
-		unexport = 0 ;
-		key.len = val.len = 0 ;
-		if (!stralloc_copy(&key,&dst) ||
-		!stralloc_copy(&val,&dst)) retstralloc(111,"main") ;
-		
-		if (!environ_get_key_nclean(&key,&pos)) strerr_diefu2x(111,"get key from line: ",key.s) ;
-		pos-- ;// retrieve the '=' character
-		if (!environ_get_val(&val,&pos)) strerr_diefu2x(111,"get value from line: ",val.s) ;
-
-		char *uval = val.s ;
-		if (val.s[0] == VAR_UNEXPORT)
-		{
-			uval = val.s+1 ;
-			unexport = 1 ;
-		}
-		if(sastr_cmp(&info.vars,key.s) == -1)
-			if (!environ_substitute(key.s,uval,&info,newenv,unexport)) 
-				strerr_diefu4x(111,"substitute value of: ",key.s," by: ",uval) ;
-	}
-	stralloc_free(&key) ;
-	stralloc_free(&val) ;
-	stralloc_free(&dst) ;
-	stralloc_free(&modifs) ;
-	
-	if (!env_string (&modifs, argv, (unsigned int) argc)) strerr_diefu1x(111,"make environment string") ;
-	r = el_substitute (&dst, modifs.s, modifs.len, info.vars.s, info.values.s,
-		genalloc_s (elsubst_t const, &info.data),genalloc_len (elsubst_t const, &info.data)) ;
-	if (r < 0) strerr_diefu1sys(111,"el_substitute") ;
-	else if (!r) _exit(0) ;
-
-	stralloc_free(&modifs) ;
-
-	char const *v[r + 1] ;
-	if (!env_make (v, r ,dst.s, dst.len)) strerr_diefu1sys(111,"make environment") ;
-	v[r] = 0 ;
-	
-	pathexec_r (v, newenv, env_len(newenv),info.modifs.s,info.modifs.len) ;
-}

src/extra-tools/execl-subuidgid.c

-/* 
- * execl-subuidgid.c
- * 
- * Copyright (c) 2018-2019 Eric Vidal <eric@obarun.org>
- * 
- * All rights reserved.
- * 
- * This file is part of Obarun. It is subject to the license terms in
- * the LICENSE file found in the top-level directory of this
- * distribution.
- * This file may not be copied, modified, propagated, or distributed
- * except according to the terms contained in the LICENSE file./
- */
-#include <string.h>
-#include <unistd.h>
-#include <sys/types.h>
-#include <stdio.h>
-#include <errno.h>
-#include <pwd.h>
-
-#include <oblibs/error2.h>
-#include <oblibs/environ.h>
-
-#include <skalibs/types.h>
-#include <skalibs/buffer.h>
-#include <skalibs/stralloc.h>
-#include <skalibs/strerr2.h>
-#include <skalibs/env.h>
-#include <skalibs/sgetopt.h>
-#include <skalibs/djbunix.h>
-
-#include <execline/execline.h>
-
-#define USAGE "execl-subuidgid [ -h ] [ -o owner ] prog..."
-
-static inline void info_help (void)
-{
-  static char const *help =
-"execl-subuidgid <options> prog\n"
-"\n"
-"options :\n"
-"	-h: print this help\n" 
-"	-o: owner to use\n"
-;
-
- if (buffer_putsflush(buffer_1, help) < 0)
-    strerr_diefu1sys(111, "write to stdout") ;
-}
-
-/** Implement again this function coming from
- * 66. This is avoid the dependency from it*/
-static int youruid(uid_t *passto,char const *owner)
-{
-	int e ;
-	e = errno ;
-	errno = 0 ;
-	struct passwd *st ;
-	if (!(st = getpwnam(owner)) || errno)
-	{
-		if (!errno) errno = EINVAL ;
-		return 0 ;
-	}
-	*passto = st->pw_uid ;
-	errno = e ;
-	return 1 ;
-}
-
-static int yourgid(gid_t *passto,uid_t owner)
-{
-	int e ;
-	e = errno ;
-	errno = 0 ;
-	struct passwd *st ;
-	if (!(st = getpwuid(owner)) || errno)
-	{
-		if (!errno) errno = EINVAL ;
-		return 0 ;
-	}
-	*passto = st->pw_gid ;
-	errno = e ;
-	return 1 ;
-}
-
-int main (int argc, char const **argv, char const *const *envp)
-{
-	uid_t uid ;
-	gid_t gid ;
-	int r ;
-	char const *owner = 0 ;
-	stralloc sa = STRALLOC_ZERO ;
-	stralloc dst = STRALLOC_ZERO ;
-	exlsn_t info = EXLSN_ZERO;
-	char cuid[UID_FMT], cgid[GID_FMT] ;
-	
-	PROG = "execl-subuidgid" ;
-	
-	{
-		subgetopt_t l = SUBGETOPT_ZERO ;
-		for (;;)
-		{
-		  int opt = subgetopt_r(argc, argv, "ho:", &l) ;
-		  if (opt == -1) break ;
-		  switch (opt)
-		  {
-			case 'h' : info_help(); return 0 ;
-			case 'o' : owner = l.arg ; break ;
-			default : exitusage(USAGE) ;
-		  }
-		}
-		argc -= l.ind ; argv += l.ind ;
-	}
-	if (owner)
-	{
-		if (!youruid(&uid,owner)) strerr_diefu2sys(111,"get uid of: ",owner) ;
-	}
-	else uid = getuid() ;
-		
-	if (!yourgid(&gid,uid)) strerr_diefu1sys(111,"get gid") ;
-	cuid[uid_fmt(cuid,uid)] = 0 ;
-	cgid[gid_fmt(cgid,gid)] = 0 ;
-	
-	if (!environ_add_key_val("UID",cuid,&info)) strerr_diefu1sys(111,"set UID") ;
-	if (!environ_add_key_val("GID",cgid,&info)) strerr_diefu1sys(111,"set GID") ;
-	
-	if (!env_string(&sa,argv,(unsigned int) argc)) strerr_diefu1sys(111,"environment string") ;
-	
-	r = el_substitute (&dst, sa.s, sa.len, info.vars.s, info.values.s,
-		genalloc_s (elsubst_t const, &info.data),genalloc_len (elsubst_t const, &info.data)) ;
-	if (r < 0) strerr_diefu1sys(111,"el_substitute") ;
-	else if (!r) _exit(0) ;
-	
-	stralloc_free(&sa) ;
-	
-	{
-        char const *v[r + 1];
-        if (!env_make (v, r, dst.s, dst.len)) strerr_diefu1sys (111, "env_make") ;
-        v[r] = 0 ;
-        pathexec_r (v, envp, env_len (envp), info.modifs.s, info.modifs.len) ;
-    }
-
-	return 0 ;	
-}