diff options
| author |  Calvin Rose <calsrose@gmail.com> | 2021-07-15 20:49:41 -0500 |
|---|---|---|
| committer | Calvin Rose <calsrose@gmail.com> | 2021-07-15 20:49:41 -0500 |
| commit | 230b73466373a30e37a35030244ca2b9a11c6a5b (patch) | |
| tree | 597b32319c9a2a8392f78c682ba4d4cd95750f51 /tools | |
| parent | Merge pull request #713 from yumaikas/fix-process-terminate-windows (diff) | |
Delete jpm and related testing from this repository.
JPM and related functionality has been moved to it's own repository
and will be versioned separately from Janet. The distribution process
could later be modified to bundle a version of jpm with Janet but this
is perhaps not needed.
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/jpm.bat | 4 | ||||
| -rw-r--r-- | tools/msi/janet.wxs | 6 | ||||
| -rw-r--r-- | tools/patch-jpm.janet | 33 |
3 files changed, 0 insertions, 43 deletions
diff --git a/tools/jpm.bat b/tools/jpm.bat deleted file mode 100644 index 075b0220..00000000 --- a/tools/jpm.bat +++ /dev/null @@ -1,4 +0,0 @@ -@echo off -@rem Wrapper around jpm - -janet "%~dp0\jpm.janet" %* diff --git a/tools/msi/janet.wxs b/tools/msi/janet.wxs index 80a0b7e4..bbf62066 100644 --- a/tools/msi/janet.wxs +++ b/tools/msi/janet.wxs @@ -115,12 +115,6 @@ </File> <RemoveFolder Id="RemoveBinDir" On="uninstall" /> </Component> - <Component Directory="BinDir"> - <File Source="jpm" Name="jpm.janet"/> - </Component> - <Component Directory="BinDir"> - <File Source="tools\jpm.bat"/> - </Component> <Component Directory="CDir"> <File Source="dist\janet.h"/> diff --git a/tools/patch-jpm.janet b/tools/patch-jpm.janet deleted file mode 100644 index b0f812f3..00000000 --- a/tools/patch-jpm.janet +++ /dev/null @@ -1,33 +0,0 @@ -# Patch jpm to have the correct paths for the current install. -# usage: janet patch-jpm.janet output --libdir=/usr/local/lib/x64-linux/ --binpath - -(def- argpeg - (peg/compile - '(* "--" '(to "=") "=" '(any 1)))) - -(def- args (tuple/slice (dyn :args) 3)) -(def- len (length args)) -(var i :private 0) - -(def install-paths @{}) - -# Get flags -(each a args - (if-let [m (peg/match argpeg a)] - (let [[key value] m] - (put install-paths (keyword key) value)))) - -(def- replace-peg - (peg/compile - ~(% (* '(to "###START###") - (constant ,(string/format "# Inserted by tools/patch-jpm.janet\n(defn- install-paths [] %j)" install-paths)) - (thru "###END###") - '(any 1))))) - -(def source (slurp ((dyn :args) 1))) -(def newsource (0 (peg/match replace-peg source))) - -(spit ((dyn :args) 2) newsource) - -(unless (= :windows (os/which)) - (os/shell (string `chmod +x "` ((dyn :args) 2) `"`))) |