add jinstall script for linux

Author: cdburke

config/version.txt

@@ -1 +1 @@
-9.7.6
+9.7.7

pacman/init.ijs

@@ -14,6 +14,7 @@ ISGUI=: 0
 INITDONE=: 0
 HASFILEACCESS=: 0
 HASADDONSDIR=: 0
+JINSTALL=: 0
 ONLINE=: 0
 PKGDATA=: 0 7$a:
 SECTION=: ,<'All'

pacman/je_update.ijs

@@ -74,7 +74,7 @@ je_get=: 3 : 0
 'jvno plat bits name'=. y
 arg=. (je_dlpath''),plat,'/',bits,'/',name
 ferase'~temp/',name
-echo 'get: ', arg
+if. -. JINSTALL do. echo 'get: ', arg end.
 httpget arg
 fread '~temp/',name
 )

pacman/jinstall.ijs

@@ -0,0 +1,57 @@
+NB. jinstall
+
+NB. =========================================================
+NB. jinstall v initial J install
+NB. called by system installation script
+NB.
+NB.  ide is none/slim/full  - Qt IDE selection
+NB.  addons is none/all     - Addons selection
+NB.
+NB. does:
+NB.  JE update
+NB.  Jqt install selected
+NB.  Addons install selected
+NB.  desktop shortcuts (if ~/Desktop folder)
+
+NB. =========================================================
+jinstall=: 3 : 0
+
+JINSTALL=: 1
+
+'j ide addons'=. 3 {. ;: y
+
+ifide=. -. ide -: 'none'
+ifaddons=. -. addons -: 'none'
+
+echo 'Installing ', 1 pick revinfo_j_''
+
+'update' jpkg ''
+echo 'Updating J engine...'
+je_update''
+
+if. 2~:ftype jpath'~/Desktop' do.
+  echo 'No Desktop folder, so shortcuts not installed'
+else.
+  echo 'Installing shortcuts...'
+  shortcut'jbreak'
+  shortcut'jc'
+  shortcut'jhs'
+  if. ifide do. shortcut'jqt' end.
+end.
+
+if. ifide do.
+  echo 'Installing Jqt IDE...'
+  'install' jpkg 'base library ide/qt'
+  getqtbin ide
+end.
+
+if. addons -: 'all' do.
+  echo 'Installing Addons...'
+  'install' jpkg addons
+end.
+
+echo 'Installation complete'
+
+exit 0
+
+)

pacman/new.ijs

@@ -27,7 +27,7 @@ echo LF,'ALL DONE!',LF,'exit this J session and start new session with double cl
 i.0 0
 )
 
-NB. shortcut 'jc' or 'jhs' or 'jqt' - create desktop launch icon
+NB. shortcut 'jbreak' or 'jc' or 'jhs' or 'jqt' - create desktop launch icon
 shortcut=: 3 : 0
 if. ((<UNAME)e.'OpenBSD';'FreeBSD') do. uname=. 'Linux' else. uname=. UNAME end.
 try. ".uname,' y' catchd. echo 'create ',y,' launch icon failed' end.
@@ -129,6 +129,8 @@ Linuxx y
 
 Linuxx=: 3 : 0
 select. y
+case.'jbreak' do.
+  linux'jbreak' ;'jbrk';'jyellow.png';LIB
 case.'jc' do.
   linux'jc' ;'jconsole';'jgray.png';LIB
 case. 'jhs' do.

pacman/pacman.jproj

@@ -10,6 +10,7 @@ depend.ijs
 gitrepo.ijs
 httpget.ijs
 install.ijs
+jinstall.ijs
 new.ijs
 manifest.ijs
 show.ijs

pacman/stdlib.ijs

@@ -6,6 +6,7 @@ JQTVERSION=: '2.5.12'
 NB. =========================================================
 NB. do_install v install from jal
 NB. y is one of:
+NB.- 'system ..' - called by system install script
 NB.- 'qtide'     - install/upgrade the Qt IDE
 NB.- 'full'      - install the full Qt IDE
 NB.- 'slim'      - install the slim Qt IDE
@@ -14,6 +15,7 @@ NB.- 'gmp'       - install libgmp binary
 NB.-  other      - install those packages, i.e. 'install' jpkg other
 NB.- gitrepo:name/repo
 do_install=: 3 : 0
+if. 'system' -: 6 {. y do. jinstall y return. end.
 if. -. checkaccess_jpacman_ '' do. return. end.
 if. y -: 'gmp' do. do_getgmpbin '' return. end.
 if. ':' e. y do. install_gitrepo y return. end.