Add dependency (jumble), remove redef related macros/functions.

jumble provides better names and better implementations of what was previously
defined here to create aliases, so change to depending on jumble.

FossilOrigin-Name: 4462948c6eb367f091051bf8552e14897743a637dec1b51699ab331a07938a41

Author: llmII

project.janet

@@ -4,7 +4,8 @@
  :license "ISC"
  :url "https://github.com/llmII/jsys"
  :repo "git+https://github.com/llmII/jsys.git"
- :description "System level utilities/functions for Janet.")
+ :description "System level utilities/functions for Janet."
+ :dependencies ["https://github.com/llmII/jumble"])
 
 (declare-source
  :source ["sys.janet"])

sys.janet

@@ -1,60 +1,5 @@
 (import csys :as sys)
-
-# helpers ********************************************************************
-# Definition from:
-#   https://github.com/janet-lang/spork/blob/master/spork/path.janet
-# License: MIT
-# Copyright: 2019 Calvin Rose
-# Overall Copyright: 2020 Calvin Rose and contributors
-(defn- redef
-  "Redef a value, keeping all metadata."
-  [from to]
-  (setdyn (symbol to) (dyn (symbol from))))
-
-(defn- redef-clone
-  "Redef a value, keeping all metadata."
-  [from to]
-  (setdyn (symbol to) (table/clone (dyn (symbol from)))))
-
-(defn- redef-
-  "Redef a value, then set it private in it's metadata."
-  [from to]
-  (redef-clone from to)
-  (set ((dyn (symbol to)) :private) true))
-
-(defn- redef+
-  "Redef a value, then set it private in it's metadata."
-  [from to]
-  (redef-clone from to)
-  (set ((dyn (symbol to)) :private) false))
-
-(defmacro- redef-symbol
-  "Redef, minus the string conversions/usage."
-  [from to]
-  ~(redef+ ,(string from) ',to))
-
-(defn- redef-multi*
-  ``
-  Helper for redef-multi, does redefs over an indexed collection. Makes each
-  new symbol exported.
-  ``
-  [from to]
-  (redef+ from (get to 0))
-  (var idx (- (length to) 1))
-  (while (> idx 0)
-    (redef+ (string (get to 0)) (get to idx))
-    (-- idx)))
-
-(defmacro- redef-multi
-  "Redef each symbol after the first as the first."
-  [from & to]
-     (var i 0)
-     (let [len        (length to)
-           collecting @[]]
-       (while (< i len)
-         (array/push collecting (get to i))
-         (++ i))
-       ~(redef-multi* ,(string from) ',collecting)))
+(use jumble)
 
 # All the system specific functions exported from C
 (def- exports '(chown chroot dup2 fileno fork setegid seteuid setgid setuid
@@ -67,57 +12,57 @@
            _        'nix)]
   (each binding exports
     (do
-      (redef+ (string "sys/" os "/" binding) (string os "/" binding))
-      (redef- (string "sys/" os "/" binding) (string "_" binding)))))
+      (defclone+* (symbol "sys/" os "/" binding) (symbol os "/" binding))
+      (defclone-* (symbol "sys/" os "/" binding) (symbol "_" binding)))))
 
 # chown - change fs entry ownership ******************************************
 # TODO: support chown with username/groupname instead of just uid/gid, support
 #   optional uid/gid (use keyword args).
-(redef-multi _chown chown change-owner)
+(defaliases _chown chown change-owner :export true)
 
 # chroot - change what is considered / ***************************************
-(redef-multi _chroot chroot change-root)
+(defaliases _chroot chroot change-root :export true)
 
 # dup2 - reassign a fd's descriptor ******************************************
 # TODO: Easier file redirection supporting the :out and :in keywords for
 #   stdout and stdin; document flags; Make overall nicer/easier.
-(redef-multi _dup2 dup2 redirect-file)
+(defaliases _dup2 dup2 redirect-file :export true)
 
 # fork - split off into 2 processes ******************************************
 # TODO: may need a different idea on *BSD where kqueue is dead in child forks
-(redef-symbol _fork fork)
+(defaliases _fork fork :export true)
 
 # setegid - set effective operating group id *********************************
 # TODO: Allow for setting of the gid by group name
-(redef-multi _setegid setegid set-effective-group)
+(defaliases _setegid setegid set-effective-group :export true)
 
 # seteuid - set effective operating group id *********************************
 # TODO: Allow for setting of the uid by user name
-(redef-multi _seteuid seteuid set-effective-user)
+(defaliases _seteuid seteuid set-effective-user :export true)
 
 # setgid - set operating group id ********************************************
 # TODO: Allow for setting of the gid by group name
-(redef-multi _setgid setgid set-group)
+(defaliases _setgid setgid set-group :export true)
 
 # setuid - set operating user id *********************************************
 # TODO: Allow for setting of the uid by user name
-(redef-multi _setuid setuid set-user)
+(defaliases _setuid setuid set-user :export true)
 
 # setsid - create new session ************************************************
-(redef-multi _setsid setsid new-session)
+(defaliases _setsid setsid new-session :export true)
 
 # fcntl - file settings ******************************************************
 # TODO: provide a nicer way to use this, right now we're only supporting
 #   locks but when we support more would be nice to have a better interface
-(redef-multi _fcntl fcntl file-settings)
+(defaliases _fcntl fcntl file-settings :export true)
 
 # getpwnam - get user by name or id ******************************************
-(redef-multi _getpwnam getpwnam get-user-info)
+(defaliases _getpwnam getpwnam get-user-info :export true)
 
 # getgrnam - get group by name or id *****************************************
-(redef-multi _getgrnam getgrnam get-group-info)
+(defaliases _getgrnam getgrnam get-group-info :export true)
 
 # strftime - get a formatted time string *************************************
-(redef-multi _strftime strftime date-string)
+(defaliases _strftime strftime date-string :export true)
 
 # TODO: provide easier lockfile interface