Mercurial Hosting > luan
view core/src/luan/modules/IoLuan.java @ 537:5fed3de0aac7
add Luan.assert_double and add assert_* to Web_search query env
author | Franklin Schmidt <fschmidt@gmail.com> |
---|---|
date | Mon, 01 Jun 2015 00:42:00 -0600 |
parents | 2e79b47d02a2 |
children | f1601a4ce1aa |
line wrap: on
line source
package luan.modules; import java.io.InputStream; import java.io.OutputStream; import java.io.PrintStream; import java.io.Reader; import java.io.Writer; import java.io.StringReader; import java.io.BufferedReader; import java.io.BufferedWriter; import java.io.BufferedInputStream; import java.io.BufferedOutputStream; import java.io.File; import java.io.FileInputStream; import java.io.FileOutputStream; import java.io.InputStreamReader; import java.io.OutputStreamWriter; import java.io.ByteArrayInputStream; import java.io.DataInputStream; import java.io.DataOutputStream; import java.io.StringWriter; import java.io.IOException; import java.io.FileNotFoundException; import java.net.URL; import java.net.Socket; import java.net.ServerSocket; import java.net.MalformedURLException; import java.util.List; import java.util.ArrayList; import luan.Luan; import luan.LuanState; import luan.LuanTable; import luan.LuanFunction; import luan.LuanJavaFunction; import luan.LuanException; public final class IoLuan { private static void add(LuanTable t,String method,Class... parameterTypes) throws NoSuchMethodException { t.rawPut( method, new LuanJavaFunction(IoLuan.class.getMethod(method,parameterTypes),null) ); } public static String read_console_line(String prompt) throws IOException { if( prompt==null ) prompt = "> "; return System.console().readLine(prompt); } public interface LuanWriter { public void write(LuanState luan,Object... args) throws LuanException, IOException; public void close() throws IOException; } public static LuanTable textWriter(final PrintStream out) { LuanWriter luanWriter = new LuanWriter() { public void write(LuanState luan,Object... args) throws LuanException { for( Object obj : args ) { out.print( luan.toString(obj) ); } } public void close() { out.close(); } }; return writer(luanWriter); } public static LuanTable textWriter(final Writer out) { LuanWriter luanWriter = new LuanWriter() { public void write(LuanState luan,Object... args) throws LuanException, IOException { for( Object obj : args ) { out.write( luan.toString(obj) ); } } public void close() throws IOException { out.close(); } }; return writer(luanWriter); } private static LuanTable writer(LuanWriter luanWriter) { LuanTable writer = new LuanTable(); try { writer.rawPut( "write", new LuanJavaFunction( LuanWriter.class.getMethod( "write", LuanState.class, new Object[0].getClass() ), luanWriter ) ); writer.rawPut( "close", new LuanJavaFunction( LuanWriter.class.getMethod( "close" ), luanWriter ) ); } catch(NoSuchMethodException e) { throw new RuntimeException(e); } return writer; } public static LuanTable binaryWriter(final OutputStream out) { LuanTable writer = new LuanTable(); try { writer.rawPut( "write", new LuanJavaFunction( OutputStream.class.getMethod( "write", new byte[0].getClass() ), out ) ); writer.rawPut( "close", new LuanJavaFunction( OutputStream.class.getMethod( "close" ), out ) ); } catch(NoSuchMethodException e) { throw new RuntimeException(e); } return writer; } static LuanFunction lines(final BufferedReader in) { return new LuanFunction() { @Override public Object call(LuanState luan,Object[] args) throws LuanException { try { if( args.length > 0 ) { if( args.length > 1 || !"close".equals(args[0]) ) throw luan.exception( "the only argument allowed is 'close'" ); in.close(); return null; } String rtn = in.readLine(); if( rtn==null ) in.close(); return rtn; } catch(IOException e) { throw luan.exception(e); } } }; } static LuanFunction blocks(final InputStream in,final int blockSize) { return new LuanFunction() { final byte[] a = new byte[blockSize]; @Override public Object call(LuanState luan,Object[] args) throws LuanException { try { if( args.length > 0 ) { if( args.length > 1 || !"close".equals(args[0]) ) throw luan.exception( "the only argument allowed is 'close'" ); in.close(); return null; } if( in.read(a) == -1 ) { in.close(); return null; } return a; } catch(IOException e) { throw luan.exception(e); } } }; } public static abstract class LuanIn { abstract InputStream inputStream() throws IOException; public abstract String to_string(); public Reader reader() throws IOException { return new InputStreamReader(inputStream()); } public String read_text() throws IOException { Reader in = reader(); String s = Utils.readAll(in); in.close(); return s; } public byte[] read_binary() throws IOException { InputStream in = inputStream(); byte[] a = Utils.readAll(in); in.close(); return a; } public LuanFunction read_lines() throws IOException { return lines(new BufferedReader(reader())); } public LuanFunction read_blocks(Integer blockSize) throws IOException { int n = blockSize!=null ? blockSize : Utils.bufSize; return blocks(inputStream(),n); } public boolean exists() throws IOException { try { inputStream().close(); return true; } catch(FileNotFoundException e) { return false; } } public LuanTable table() { LuanTable tbl = new LuanTable(); try { tbl.rawPut( "to_string", new LuanJavaFunction( LuanIn.class.getMethod( "to_string" ), this ) ); tbl.rawPut( "read_text", new LuanJavaFunction( LuanIn.class.getMethod( "read_text" ), this ) ); tbl.rawPut( "read_binary", new LuanJavaFunction( LuanIn.class.getMethod( "read_binary" ), this ) ); tbl.rawPut( "read_lines", new LuanJavaFunction( LuanIn.class.getMethod( "read_lines" ), this ) ); tbl.rawPut( "read_blocks", new LuanJavaFunction( LuanIn.class.getMethod( "read_blocks", Integer.class ), this ) ); tbl.rawPut( "exists", new LuanJavaFunction( LuanIn.class.getMethod( "exists" ), this ) ); } catch(NoSuchMethodException e) { throw new RuntimeException(e); } return tbl; } } public static final LuanIn defaultStdin = new LuanIn() { @Override InputStream inputStream() { return System.in; } @Override public String to_string() { return "<stdin>"; } @Override public String read_text() throws IOException { return Utils.readAll(new InputStreamReader(System.in)); } @Override public byte[] read_binary() throws IOException { return Utils.readAll(System.in); } @Override public boolean exists() { return true; } }; public static abstract class LuanIO extends LuanIn { abstract OutputStream outputStream() throws IOException; public void write(LuanState luan,Object obj) throws LuanException, IOException { if( obj instanceof String ) { String s = (String)obj; Writer out = new OutputStreamWriter(outputStream()); out.write(s); out.close(); return; } if( obj instanceof byte[] ) { byte[] a = (byte[])obj; OutputStream out = outputStream(); Utils.copyAll(new ByteArrayInputStream(a),out); out.close(); return; } throw luan.exception( "bad argument #1 to 'write' (string or binary expected)" ); } public LuanTable text_writer() throws IOException { return textWriter(new BufferedWriter(new OutputStreamWriter(outputStream()))); } public LuanTable binary_writer() throws IOException { return binaryWriter(new BufferedOutputStream(outputStream())); } @Override public LuanTable table() { LuanTable tbl = super.table(); try { tbl.rawPut( "write", new LuanJavaFunction( LuanIO.class.getMethod( "write", LuanState.class, Object.class ), this ) ); tbl.rawPut( "text_writer", new LuanJavaFunction( LuanIO.class.getMethod( "text_writer" ), this ) ); tbl.rawPut( "binary_writer", new LuanJavaFunction( LuanIO.class.getMethod( "binary_writer" ), this ) ); } catch(NoSuchMethodException e) { throw new RuntimeException(e); } return tbl; } } public static final class LuanString extends LuanIO { private String s; private LuanString(String s) { this.s = s; } @Override InputStream inputStream() { throw new UnsupportedOperationException(); } @Override OutputStream outputStream() { throw new UnsupportedOperationException(); } @Override public String to_string() { return "<string>"; } @Override public Reader reader() { return new StringReader(s); } @Override public String read_text() { return s; } @Override public boolean exists() { return true; } @Override public LuanTable text_writer() throws IOException { LuanWriter luanWriter = new LuanWriter() { private final Writer out = new StringWriter(); public void write(LuanState luan,Object... args) throws LuanException, IOException { for( Object obj : args ) { out.write( luan.toString(obj) ); } } public void close() throws IOException { s = out.toString(); } }; return writer(luanWriter); } } public static final class LuanUrl extends LuanIn { private final URL url; private LuanUrl(URL url) { this.url = url; } @Override InputStream inputStream() throws IOException { return url.openStream(); } @Override public String to_string() { return url.toString(); } public String post(String postS) throws IOException { return new UrlCall(url).post(postS); } @Override public LuanTable table() { LuanTable tbl = super.table(); try { tbl.rawPut( "post", new LuanJavaFunction( LuanUrl.class.getMethod( "post", String.class ), this ) ); } catch(NoSuchMethodException e) { throw new RuntimeException(e); } return tbl; } } public static final class LuanFile extends LuanIO { private final File file; private LuanFile(LuanState luan,File file) throws LuanException { this(file); check(luan,"file:"+file.toString()); } private LuanFile(File file) { this.file = file; } @Override InputStream inputStream() throws IOException { return new FileInputStream(file); } @Override OutputStream outputStream() throws IOException { return new FileOutputStream(file); } @Override public String to_string() { return file.toString(); } public LuanTable child(LuanState luan,String name) throws LuanException { return new LuanFile(luan,new File(file,name)).table(); } public LuanTable children(LuanState luan) throws LuanException { File[] files = file.listFiles(); if( files==null ) return null; LuanTable list = new LuanTable(); for( File f : files ) { list.rawPut(list.rawLength()+1,new LuanFile(luan,f).table()); } return list; } public LuanTable parent(LuanState luan) throws LuanException, IOException { File parent = file.getParentFile(); if( parent==null ) parent = file.getCanonicalFile().getParentFile(); return new LuanFile(luan,parent).table(); } @Override public boolean exists() { return file.exists(); } public boolean rename_to(String dest) { return file.renameTo(new File(dest)); } public LuanTable canonical(LuanState luan) throws LuanException, IOException { return new LuanFile(luan,file.getCanonicalFile()).table(); } @Override public LuanTable table() { LuanTable tbl = super.table(); try { tbl.rawPut( "name", new LuanJavaFunction( File.class.getMethod( "getName" ), file ) ); tbl.rawPut( "is_directory", new LuanJavaFunction( File.class.getMethod( "isDirectory" ), file ) ); tbl.rawPut( "is_file", new LuanJavaFunction( File.class.getMethod( "isFile" ), file ) ); tbl.rawPut( "delete", new LuanJavaFunction( File.class.getMethod( "delete" ), file ) ); tbl.rawPut( "mkdir", new LuanJavaFunction( File.class.getMethod( "mkdir" ), file ) ); tbl.rawPut( "mkdirs", new LuanJavaFunction( File.class.getMethod( "mkdirs" ), file ) ); tbl.rawPut( "last_modified", new LuanJavaFunction( File.class.getMethod( "lastModified" ), file ) ); tbl.rawPut( "child", new LuanJavaFunction( LuanFile.class.getMethod( "child", LuanState.class, String.class ), this ) ); tbl.rawPut( "children", new LuanJavaFunction( LuanFile.class.getMethod( "children", LuanState.class ), this ) ); tbl.rawPut( "parent", new LuanJavaFunction( LuanFile.class.getMethod( "parent", LuanState.class ), this ) ); tbl.rawPut( "rename_to", new LuanJavaFunction( LuanFile.class.getMethod( "rename_to", String.class ), this ) ); tbl.rawPut( "canonical", new LuanJavaFunction( LuanFile.class.getMethod( "canonical", LuanState.class ), this ) ); } catch(NoSuchMethodException e) { throw new RuntimeException(e); } return tbl; } } public static LuanTable string(LuanState luan,String s) throws LuanException { Utils.checkNotNull(luan,s); return new LuanString(s).table(); } public static LuanTable file(LuanState luan,String name,Boolean addExtension) throws LuanException { if( addExtension != null && addExtension ) name += ".luan"; File file = new File(name); return new LuanFile(file).table(); } public static LuanTable classpath(LuanState luan,String name,Boolean addExtension) throws LuanException { if( name.contains("//") ) return null; if( addExtension != null && addExtension ) name += ".luan"; String path = name; check(luan,"classpath:"+path); URL url; if( !path.contains("#") ) { url = ClassLoader.getSystemResource(path); } else { String[] a = path.split("#"); url = ClassLoader.getSystemResource(a[0]); if( url==null ) { for( int i=1; i<a.length; i++ ) { url = ClassLoader.getSystemResource(a[0]+"/"+a[i]); if( url != null ) { try { url = new URL(url,"."); } catch(MalformedURLException e) { throw new RuntimeException(e); } break; } } } } if( url != null ) return new LuanUrl(url).table(); return null; } private static LuanTable url(String url,Boolean addExtension) throws IOException { if( addExtension != null && addExtension ) url += ".luan"; return new LuanUrl(new URL(url)).table(); } public static LuanTable http(String path,Boolean addExtension) throws IOException { return url("http:"+path,addExtension); } public static LuanTable https(String path,Boolean addExtension) throws IOException { return url("https:"+path,addExtension); } public static LuanTable luan(LuanState luan,String path,Boolean addExtension) throws LuanException { return classpath( luan, "luan/modules/" + path, addExtension ); } public static LuanTable stdin(LuanState luan) throws LuanException { LuanTable io = (LuanTable)PackageLuan.require(luan,"luan:Io"); return (LuanTable)io.get(luan,"stdin"); } public static LuanTable newSchemes() { LuanTable schemes = new LuanTable(); try { add( schemes, "string", LuanState.class, String.class ); add( schemes, "file", LuanState.class, String.class, Boolean.class ); add( schemes, "classpath", LuanState.class, String.class, Boolean.class ); add( schemes, "socket", LuanState.class, String.class ); add( schemes, "http", String.class, Boolean.class ); add( schemes, "https", String.class, Boolean.class ); add( schemes, "luan", LuanState.class, String.class, Boolean.class ); add( schemes, "stdin", LuanState.class ); } catch(NoSuchMethodException e) { throw new RuntimeException(e); } return schemes; } private static LuanTable schemes(LuanState luan) throws LuanException { LuanTable t = (LuanTable)PackageLuan.loaded(luan).rawGet("luan:Io"); if( t == null ) return newSchemes(); t = (LuanTable)t.get(luan,"schemes"); if( t == null ) return newSchemes(); return t; } public static LuanTable uri(LuanState luan,String name,Boolean addExtension) throws LuanException { int i = name.indexOf(':'); if( i == -1 ) throw luan.exception( "invalid Io.uri name '"+name+"', missing scheme" ); String scheme = name.substring(0,i); String location = name.substring(i+1); LuanTable schemes = schemes(luan); LuanFunction opener = (LuanFunction)schemes.get(luan,scheme); if( opener == null ) throw luan.exception( "invalid scheme '"+scheme+"' in '"+name+"'" ); return (LuanTable)Luan.first(luan.call(opener,"<open \""+name+"\">",new Object[]{location,addExtension})); } public static final class LuanSocket extends LuanIO { private final Socket socket; private LuanSocket(String host,int port) throws IOException { this(new Socket(host,port)); } private LuanSocket(Socket socket) throws IOException { this.socket = socket; } @Override InputStream inputStream() throws IOException { return socket.getInputStream(); } @Override OutputStream outputStream() throws IOException { return socket.getOutputStream(); } @Override public String to_string() { return socket.toString(); } public LuanTable pickle_client(LuanState luan) throws IOException { InputStream in = new BufferedInputStream(inputStream()); OutputStream out = new BufferedOutputStream(outputStream()); return new PickleClient(luan,in,out).table(); } public void run_pickle_server(LuanState luan) throws IOException, LuanException { InputStream in = new BufferedInputStream(inputStream()); OutputStream out = new BufferedOutputStream(outputStream()); new PickleServer(luan,in,out).run(); } @Override public LuanTable table() { LuanTable tbl = super.table(); try { tbl.rawPut( "pickle_client", new LuanJavaFunction( LuanSocket.class.getMethod( "pickle_client", LuanState.class ), this ) ); tbl.rawPut( "run_pickle_server", new LuanJavaFunction( LuanSocket.class.getMethod( "run_pickle_server", LuanState.class ), this ) ); } catch(NoSuchMethodException e) { throw new RuntimeException(e); } return tbl; } } public static LuanTable socket(LuanState luan,String name) throws LuanException, IOException { int i = name.indexOf(':'); if( i == -1 ) throw luan.exception( "invalid socket '"+name+"', format is: <host>:<port>" ); String host = name.substring(0,i); String portStr = name.substring(i+1); int port = Integer.parseInt(portStr); return new LuanSocket(host,port).table(); } public static LuanFunction socket_server(int port) throws IOException { final ServerSocket ss = new ServerSocket(port); return new LuanFunction() { @Override public Object call(LuanState luan,Object[] args) throws LuanException { try { if( args.length > 0 ) { if( args.length > 1 || !"close".equals(args[0]) ) throw luan.exception( "the only argument allowed is 'close'" ); ss.close(); return null; } return new LuanSocket(ss.accept()).table(); } catch(IOException e) { throw luan.exception(e); } } }; } // security public interface Security { public void check(LuanState luan,String name) throws LuanException; } private static String SECURITY_KEY = "Io.Security"; private static void check(LuanState luan,String name) throws LuanException { Security s = (Security)luan.registry().get(SECURITY_KEY); if( s!=null ) s.check(luan,name); } public static void setSecurity(LuanState luan,Security s) { luan.registry().put(SECURITY_KEY,s); } private void IoLuan() {} // never }