llmii / jsys

System level utilities/functions for Janet.

Janet System Utilities Functions - jsys

Purpose

Provide exported definitions of system level functions for multiple operating systems.

Where sensible provide a unified interface to facilitate ease of use, but allow for direct usage of system level functions for when a user's needs lay outside the bounds of predetermination.

Installation

With jpm you can now install this with:

jpm install https://github.com/llmII/jsys

and import the module. Nothing's been tested so though it loads, and shows documentation for each export, expect that things may not work as specified!

NOTE: Nothing has been tested at this time.

If there are issues, file a Issue here or a Ticket here.

Want another system specific function? File a Ticket/Issue and/or submit a pull request or email the author a patch. Author may consider implementing a system specific function on behalf of the submitter of a ticket under a few conditions.

One condition to make note of is the flock family of functions. Those won't be implemented for *nix systems due to the greater capability of fnctl.

To sum the conditions up:

1. No additional function that serves the same purpose as an already existing function except to replace the former wherein the function provides greater capability except where doing so enhances portability to certain systems.

jsys's Issues

Use of uninitialized variable

src/csys.c:748:23: note: initialize the variable 'name' to silence this warning
    int id; char *name;
                      ^
                       = NULL
src/csys.c:814:42: warning: variable 'name' is uninitialized when used here [-Wuninitialized]
    switch(sys_name_opt(argc, argv, &id, name)) {

The sys_name_opt function seems quite broken, I guess you meant char **

jpm build failure on linux -- unknown type name 'uid_t'

On a Linux box jpm build doesn't complete successfully here for jsys 43729d5.

Seems like an appropriately placed #include <sys/types.h> might be enough for Linux.

Log of build is at the end.

Janet: janet-lang/janet@ba3107c
jpm: janet-lang/jpm@cd6a30f

$ jpm build
/home/user/.local/lib/janet/jpm/shutil.janet:68:25: compile warning (normal): file/popen is deprecated
compiling src/csys.c to build/src___csys.o...
generating meta file build/csys.meta.janet...
compiling src/csys.c to build/src___csys.static.o...
src/csys.c: In function ‘cfun_chown’:
src/csys.c:195:5: error: unknown type name ‘uid_t’; did you mean ‘pid_t’?
  195 |     uid_t uid = janet_getinteger(argv, 0);
      |     ^~~~~
      |     pid_t
src/csys.c:196:5: error: unknown type name ‘gid_t’; did you mean ‘pid_t’?
  196 |     gid_t gid = janet_getinteger(argv, 1);
      |     ^~~~~
      |     pid_t
src/csys.c:201:22: warning: implicit declaration of function ‘fchown’; did you mean ‘chown’? [-Wimplicit-function-declaration]
  201 |             if (0 != fchown(fd, uid, gid)) {
      |                      ^~~~~~
      |                      chown
src/csys.c: In function ‘cfun_chown’:
src/csys.c:195:5: error: unknown type name ‘uid_t’; did you mean ‘pid_t’?
  195 |     uid_t uid = janet_getinteger(argv, 0);
      |     ^~~~~
      |     pid_t
src/csys.c: In function ‘cfun_chroot’:
src/csys.c:227:14: warning: implicit declaration of function ‘chroot’ [-Wimplicit-function-declaration]
  227 |     if (0 != chroot(where)) {
      |              ^~~~~~
src/csys.c:196:5: error: unknown type name ‘gid_t’; did you mean ‘pid_t’?
  196 |     gid_t gid = janet_getinteger(argv, 1);
      |     ^~~~~
      |     pid_t
src/csys.c:201:22: warning: implicit declaration of function ‘fchown’; did you mean ‘chown’? [-Wimplicit-function-declaration]
  201 |             if (0 != fchown(fd, uid, gid)) {
      |                      ^~~~~~
      |                      chown
src/csys.c: In function ‘u_dup2’:
src/csys.c:342:15: warning: implicit declaration of function ‘dup3’; did you mean ‘dup2’? [-Wimplicit-function-declaration]
  342 |     if (-1 == dup3(fd, fd2, U_SYSFLAGS & flags))
      |               ^~~~
      |               dup2
src/csys.c: In function ‘cfun_chroot’:
src/csys.c:227:14: warning: implicit declaration of function ‘chroot’ [-Wimplicit-function-declaration]
  227 |     if (0 != chroot(where)) {
      |              ^~~~~~
src/csys.c: In function ‘cfun_setegid’:
src/csys.c:413:5: error: unknown type name ‘gid_t’; did you mean ‘pid_t’?
  413 |     gid_t gid = janet_getinteger(argv, 0);
      |     ^~~~~
      |     pid_t
src/csys.c:415:14: warning: implicit declaration of function ‘setegid’; did you mean ‘setgid’? [-Wimplicit-function-declaration]
  415 |     if (0 != setegid(gid)) {
      |              ^~~~~~~
      |              setgid
src/csys.c: In function ‘u_dup2’:
src/csys.c:342:15: warning: implicit declaration of function ‘dup3’; did you mean ‘dup2’? [-Wimplicit-function-declaration]
  342 |     if (-1 == dup3(fd, fd2, U_SYSFLAGS & flags))
      |               ^~~~
      |               dup2
src/csys.c: In function ‘cfun_seteuid’:
src/csys.c:429:5: error: unknown type name ‘uid_t’; did you mean ‘pid_t’?
  429 |     uid_t uid = janet_getinteger(argv, 0);
      |     ^~~~~
      |     pid_t
src/csys.c:431:14: warning: implicit declaration of function ‘seteuid’; did you mean ‘setuid’? [-Wimplicit-function-declaration]
  431 |     if (0 != seteuid(uid)) {
      |              ^~~~~~~
      |              setuid
src/csys.c: In function ‘cfun_setegid’:
src/csys.c:413:5: error: unknown type name ‘gid_t’; did you mean ‘pid_t’?
  413 |     gid_t gid = janet_getinteger(argv, 0);
      |     ^~~~~
      |     pid_t
src/csys.c: In function ‘cfun_setgid’:
src/csys.c:445:5: error: unknown type name ‘gid_t’; did you mean ‘pid_t’?
  445 |     gid_t gid = janet_getinteger(argv, 0);
      |     ^~~~~
      |     pid_t
src/csys.c:415:14: warning: implicit declaration of function ‘setegid’; did you mean ‘setgid’? [-Wimplicit-function-declaration]
  415 |     if (0 != setegid(gid)) {
      |              ^~~~~~~
      |              setgid
src/csys.c: In function ‘cfun_setuid’:
src/csys.c:461:5: error: unknown type name ‘uid_t’; did you mean ‘pid_t’?
  461 |     uid_t uid = janet_getinteger(argv, 0);
      |     ^~~~~
      |     pid_t
src/csys.c: In function ‘cfun_seteuid’:
src/csys.c:429:5: error: unknown type name ‘uid_t’; did you mean ‘pid_t’?
  429 |     uid_t uid = janet_getinteger(argv, 0);
      |     ^~~~~
      |     pid_t
src/csys.c:431:14: warning: implicit declaration of function ‘seteuid’; did you mean ‘setuid’? [-Wimplicit-function-declaration]
  431 |     if (0 != seteuid(uid)) {
      |              ^~~~~~~
      |              setuid
src/csys.c: In function ‘cfun_setgid’:
src/csys.c:445:5: error: unknown type name ‘gid_t’; did you mean ‘pid_t’?
  445 |     gid_t gid = janet_getinteger(argv, 0);
      |     ^~~~~
      |     pid_t
src/csys.c: At top level:
src/csys.c: In function ‘cfun_setuid’:
src/csys.c:461:5: error: unknown type name ‘uid_t’; did you mean ‘pid_t’?
  461 |     uid_t uid = janet_getinteger(argv, 0);
      |     ^~~~~
      |     pid_t
src/csys.c:567:5: error: unknown type name ‘uid_t’; did you mean ‘pid_t’?
  567 |     uid_t uid, struct passwd *pwd, char *buf, size_t bufsiz,
      |     ^~~~~
      |     pid_t
src/csys.c: In function ‘u_getpwnam_r’:
src/csys.c:588:12: warning: implicit declaration of function ‘getpwnam_r’; did you mean ‘u_getpwnam_r’? [-Wimplicit-function-declaration]
  588 |     return getpwnam_r(nam, pwd, buf, bufsiz, res);
      |            ^~~~~~~~~~
      |            u_getpwnam_r
src/csys.c: At top level:
src/csys.c:593:5: error: unknown type name ‘uid_t’; did you mean ‘pid_t’?
  593 |     uid_t uid, struct passwd **ent, char *buf, size_t len) {
      |     ^~~~~
      |     pid_t
src/csys.c: At top level:
src/csys.c:567:5: error: unknown type name ‘uid_t’; did you mean ‘pid_t’?
  567 |     uid_t uid, struct passwd *pwd, char *buf, size_t bufsiz,
      |     ^~~~~
      |     pid_t
src/csys.c:633:5: error: unknown type name ‘gid_t’; did you mean ‘pid_t’?
  633 |     gid_t gid, struct group *grp, char *buf, size_t bufsiz,
      |     ^~~~~
      |     pid_t
src/csys.c: In function ‘u_getpwnam_r’:
src/csys.c:588:12: warning: implicit declaration of function ‘getpwnam_r’; did you mean ‘u_getpwnam_r’? [-Wimplicit-function-declaration]
  588 |     return getpwnam_r(nam, pwd, buf, bufsiz, res);
      |            ^~~~~~~~~~
      |            u_getpwnam_r
src/csys.c: In function ‘u_getgrnam_r’:
src/csys.c:654:16: warning: implicit declaration of function ‘getgrnam_r’; did you mean ‘u_getgrnam_r’? [-Wimplicit-function-declaration]
  654 |         return getgrnam_r(nam, grp, buf, bufsiz, res);
      |                ^~~~~~~~~~
      |                u_getgrnam_r
src/csys.c: At top level:
src/csys.c:593:5: error: unknown type name ‘uid_t’; did you mean ‘pid_t’?
  593 |     uid_t uid, struct passwd **ent, char *buf, size_t len) {
      |     ^~~~~
      |     pid_t
src/csys.c: At top level:
src/csys.c:659:5: error: unknown type name ‘gid_t’; did you mean ‘pid_t’?
  659 |     gid_t gid, struct group **ent, char *buf, size_t len) {
      |     ^~~~~
      |     pid_t
src/csys.c:633:5: error: unknown type name ‘gid_t’; did you mean ‘pid_t’?
  633 |     gid_t gid, struct group *grp, char *buf, size_t bufsiz,
      |     ^~~~~
      |     pid_t
src/csys.c: In function ‘u_getgrnam_r’:
src/csys.c:654:16: warning: implicit declaration of function ‘getgrnam_r’; did you mean ‘u_getgrnam_r’? [-Wimplicit-function-declaration]
  654 |         return getgrnam_r(nam, grp, buf, bufsiz, res);
      |                ^~~~~~~~~~
      |                u_getgrnam_r
src/csys.c: At top level:
src/csys.c:659:5: error: unknown type name ‘gid_t’; did you mean ‘pid_t’?
  659 |     gid_t gid, struct group **ent, char *buf, size_t len) {
      |     ^~~~~
      |     pid_t
src/csys.c: In function ‘cfun_getpwnam’:
src/csys.c:730:21: warning: implicit declaration of function ‘sys_getpwuid’; did you mean ‘sys_getpwnam’? [-Wimplicit-function-declaration]
  730 |             if(0 != sys_getpwuid(janet_getinteger(argv, 0), &ent, buf, 128)) {
      |                     ^~~~~~~~~~~~
      |                     sys_getpwnam
src/csys.c: In function ‘cfun_getpwnam’:
src/csys.c:730:21: warning: implicit declaration of function ‘sys_getpwuid’; did you mean ‘sys_getpwnam’? [-Wimplicit-function-declaration]
  730 |             if(0 != sys_getpwuid(janet_getinteger(argv, 0), &ent, buf, 128)) {
      |                     ^~~~~~~~~~~~
      |                     sys_getpwnam
src/csys.c: In function ‘cfun_getgrnam’:
src/csys.c: In function ‘cfun_getgrnam’:
src/csys.c:793:21: warning: implicit declaration of function ‘sys_getgrid’; did you mean ‘sys_getgrnam’? [-Wimplicit-function-declaration]
  793 |             if(0 != sys_getgrid(janet_getinteger(argv, 0), &ent, buf, 128)) {
      |                     ^~~~~~~~~~~
      |                     sys_getgrnam
src/csys.c:793:21: warning: implicit declaration of function ‘sys_getgrid’; did you mean ‘sys_getgrnam’? [-Wimplicit-function-declaration]
  793 |             if(0 != sys_getgrid(janet_getinteger(argv, 0), &ent, buf, 128)) {
      |                     ^~~~~~~~~~~
      |                     sys_getgrnam
src/csys.c: In function ‘file_to_fd’:
src/csys.c:846:16: warning: implicit declaration of function ‘fileno’ [-Wimplicit-function-declaration]
  846 |         return fileno(janet_unwrapfile(argv[idx], NULL));
      |                ^~~~~~
src/csys.c: In function ‘file_to_fd’:
src/csys.c:846:16: warning: implicit declaration of function ‘fileno’ [-Wimplicit-function-declaration]
  846 |         return fileno(janet_unwrapfile(argv[idx], NULL));
      |                ^~~~~~
error: command failed with non-zero exit code 1
  in os/execute [src/core/os.c] on line 1031
  in shell [/home/user/.local/lib/janet/jpm/shutil.janet] (tailcall) on line 110, column 5
  in  [/home/user/.local/lib/janet/jpm/rules.janet] on line 18, column 20
  in executor [/home/user/.local/lib/janet/jpm/rules.janet] on line 25, column 8
  in worker [/home/user/.local/lib/janet/jpm/dagbuild.janet] on line 65, column 23
  in  [/home/user/.local/lib/janet/jpm/dagbuild.janet] on line 21, column 43
  in pmap [/home/user/.local/lib/janet/jpm/dagbuild.janet] on line 26, column 7
  in pdag [/home/user/.local/lib/janet/jpm/dagbuild.janet] (tailcall) on line 71, column 3
  in _thunk [/home/user/.local/bin/jpm] (tailcall) on line -1, column -1
  in cli-main [boot.janet] on line 3644, column 17