public Varargs invoke(Varargs args) { LuaString src = args.checkstring( 1 ); LuaString pat = args.checkstring( 2 ); return new GMatchAux(args, src, pat); } }
public Varargs invoke(Varargs args) { LuaString src = args.checkstring( 1 ); LuaString pat = args.checkstring( 2 ); return new GMatchAux(args, src, pat); } }
private SafeString readCommand(Varargs args) { return toSafeString(args.checkstring(1)); }
private SafeString[] readArguments(Varargs args) { List<SafeString> params = new ArrayList<>(); if (args.narg() > 1) { for (int i = 1; i < args.narg(); i++) { params.add(toSafeString(args.checkstring(i + 1))); } } return params.stream().toArray(SafeString[]::new); }
private static Varargs iowrite(File f, Varargs args) throws IOException { for ( int i=1, n=args.narg(); i<=n; i++ ) f.write( args.checkstring(i) ); return f; }
private static Varargs iowrite(File f, Varargs args) throws IOException { for ( int i=1, n=args.narg(); i<=n; i++ ) f.write( args.checkstring(i) ); return f; }
public Varargs loadlib( Varargs args ) { args.checkstring(1); return varargsOf(NIL, valueOf("dynamic libraries not enabled"), valueOf("absent")); } }
public Varargs loadlib( Varargs args ) { args.checkstring(1); return varargsOf(NIL, valueOf("dynamic libraries not enabled"), valueOf("absent")); } }
public Varargs invoke(Varargs args) { LuaString name = args.checkstring(1); LuaValue val = package_.get(_PRELOAD).get(name); return val.isnil()? valueOf("\n\tno field package.preload['"+name+"']"): val; } }
public Varargs invoke(Varargs args) { LuaString name = args.checkstring(1); LuaValue val = package_.get(_PRELOAD).get(name); return val.isnil()? valueOf("\n\tno field package.preload['"+name+"']"): val; } }
public Varargs invoke(Varargs args) { final LuaString s = args.checkstring( 1 ); final int l = s.length(); int start = posrelat( args.checkint( 2 ), l ); int end = posrelat( args.optint( 3, -1 ), l ); if ( start < 1 ) start = 1; if ( end > l ) end = l; if ( start <= end ) { return s.substring( start-1 , end ); } else { return EMPTYSTRING; } } }
public Varargs invoke(Varargs args) { final LuaString s = args.checkstring( 1 ); final int l = s.length(); int start = posrelat( args.checkint( 2 ), l ); int end = posrelat( args.optint( 3, -1 ), l ); if ( start < 1 ) start = 1; if ( end > l ) end = l; if ( start <= end ) { return s.substring( start-1 , end ); } else { return EMPTYSTRING; } } }
public Varargs invoke(Varargs args) { LuaString s = args.checkstring( 1 ); int n = args.checkint( 2 ); final byte[] bytes = new byte[ s.length() * n ]; int len = s.length(); for ( int offset = 0; offset < bytes.length; offset += len ) { s.copyInto( 0, bytes, offset, len ); } return LuaString.valueUsing( bytes ); } }
public Varargs invoke(Varargs args) { LuaString s = args.checkstring( 1 ); int n = args.checkint( 2 ); final byte[] bytes = new byte[ s.length() * n ]; int len = s.length(); for ( int offset = 0; offset < bytes.length; offset += len ) { s.copyInto( 0, bytes, offset, len ); } return LuaString.valueUsing( bytes ); } }
/** * string.rep (s, n) * * Returns a string that is the concatenation of n copies of the string s. */ static Varargs rep( Varargs args ) { LuaString s = args.checkstring( 1 ); int n = args.checkint( 2 ); final byte[] bytes = new byte[ s.length() * n ]; int len = s.length(); for ( int offset = 0; offset < bytes.length; offset += len ) { s.copyInto( 0, bytes, offset, len ); } return LuaString.valueOf( bytes ); }
public Varargs invoke(Varargs args) { LuaString s = args.checkstring(1); int l = s.m_length; int posi = posrelat( args.optint(2,1), l ); int pose = posrelat( args.optint(3,posi), l ); int n,i; if (posi <= 0) posi = 1; if (pose > l) pose = l; if (posi > pose) return NONE; /* empty interval; return no values */ n = (int)(pose - posi + 1); if (posi + n <= pose) /* overflow? */ error("string slice too long"); LuaValue[] v = new LuaValue[n]; for (i=0; i<n; i++) v[i] = valueOf(s.luaByte(posi+i-1)); return varargsOf(v); } }
public Varargs invoke(Varargs args) { LuaString s = args.checkstring(1); int l = s.m_length; int posi = posrelat( args.optint(2,1), l ); int pose = posrelat( args.optint(3,posi), l ); int n,i; if (posi <= 0) posi = 1; if (pose > l) pose = l; if (posi > pose) return NONE; /* empty interval; return no values */ n = (int)(pose - posi + 1); if (posi + n <= pose) /* overflow? */ error("string slice too long"); LuaValue[] v = new LuaValue[n]; for (i=0; i<n; i++) v[i] = valueOf(s.luaByte(posi+i-1)); return varargsOf(v); } }
/** * string.sub (s, i [, j]) * * Returns the substring of s that starts at i and continues until j; * i and j may be negative. If j is absent, then it is assumed to be equal to -1 * (which is the same as the string length). In particular, the call * string.sub(s,1,j) * returns a prefix of s with length j, and * string.sub(s, -i) * returns a suffix of s with length i. */ static Varargs sub( Varargs args ) { final LuaString s = args.checkstring( 1 ); final int l = s.length(); int start = posrelat( args.checkint( 2 ), l ); int end = posrelat( args.optint( 3, -1 ), l ); if ( start < 1 ) start = 1; if ( end > l ) end = l; if ( start <= end ) { return s.substring( start-1 , end ); } else { return EMPTYSTRING; } }
public Varargs invoke(Varargs args) { LuaString name = args.checkstring(1); InputStream is = null; // get package path LuaValue path = package_.get(_PATH); if ( ! path.isstring() ) return valueOf("package.path is not a string"); // get the searchpath function. Varargs v = package_.get(_SEARCHPATH).invoke(varargsOf(name, path)); // Did we get a result? if (!v.isstring(1)) return v.arg(2).tostring(); LuaString filename = v.arg1().strvalue(); // Try to load the file. v = globals.loadfile(filename.tojstring()); if ( v.arg1().isfunction() ) return LuaValue.varargsOf(v.arg1(), filename); // report error return varargsOf(NIL, valueOf("'"+filename+"': "+v.arg(2).tojstring())); } }
public Varargs invoke(Varargs args) { LuaString name = args.checkstring(1); InputStream is = null; // get package path LuaValue path = package_.get(_PATH); if ( ! path.isstring() ) return valueOf("package.path is not a string"); // get the searchpath function. Varargs v = package_.get(_SEARCHPATH).invoke(varargsOf(name, path)); // Did we get a result? if (!v.isstring(1)) return v.arg(2).tostring(); LuaString filename = v.arg1().strvalue(); // Try to load the file. v = globals.loadfile(filename.tojstring()); if ( v.arg1().isfunction() ) return LuaValue.varargsOf(v.arg1(), filename); // report error return varargsOf(NIL, valueOf("'"+filename+"': "+v.arg(2).tojstring())); } }