base library

Author: bilam

jlibrary/system/main/regex.ijs

@@ -180,6 +180,7 @@ NB. pcre2 library is in bin or tools/regex
 select. UNAME
 case. 'Win' do. t=. 'jpcre2.dll'
 case. 'Darwin' do. t=. 'libjpcre2.dylib'
+case. 'Android' do. pcre2dll=: 'libjpcre2.so' return.
 case. do. t=. 'libjpcre2.so'
 end.
 

jlibrary/system/main/stdlib.ijs

@@ -44,6 +44,8 @@ if. notdef 'UNAME' do.
 end.
 if. notdef 'LIBFILE' do.
   LIBFILE=: BINPATH,'/',IFUNIX{::'j.dll';(UNAME-:'Darwin'){::'libj.so';'libj.dylib'
+else.
+  LIBFILE=: jpathsep LIBFILE
 end.
 if. notdef 'FHS' do.
   FHS=: IFUNIX>'/'e.LIBFILE

test/g100i.ijs

@@ -108,6 +108,8 @@ assert. , 1 2 3 4 ([: *./@, 1e_6 > [: | [: -/ 0 2 {::"0 _ f)"0 1/ x =: > { 1 2 3
 )
 
 NB. failover for infinities
+NB. display for debug
+techo (+/!.0) _ 0 _
 _ = (+/!.0) _ 0 _
 _ 15 -: (+/!.0)"1 ] 2 3 $  _ 0 _ 4 5 6
 _ = 5 _ +/@:*"1!.0 ] _ 3

test/g300.ijs

@@ -151,6 +151,8 @@ NB. 6!:6 arch   NB. Restore AVX
 1
 )
 
+NB. display for debug
+techo 0     +/ .* _
 0 -: 0     +/ .* _
 0 -: 0     +/ .*~_
 0 -: 0     +/ .* __

test/gdll.ijs

@@ -1,8 +1,8 @@
 prolog './gdll.ijs'
 NB. DLL call ------------------------------------------------------------
 
-load'dll'
-
+techo 'LIBFILE:',LIBFILE
+techo 'LIBTSDLL:',LIBTSDLL
 lib=: LIBTSDLL
 
 dcd=: 4 : '(lib,x) cd y'

test/gdll_df.ijs

@@ -8,8 +8,8 @@ NB. tests were roughly moved here from original gdll
 NB. there are tests here that could and should be moved back to gdll
 NB. e.g. test with dec of d *d *d would work on raspberry
 
-load'dll'
-
+techo 'LIBFILE:',LIBFILE
+techo 'LIBTSDLL:',LIBTSDLL
 lib=: LIBTSDLL
 
 dcd=: 4 : '(lib,x) cd y'