/*
* See LICENSE file in distribution for copyright and licensing information.
*/
package ioke.lang;
import java.util.Arrays;
import java.util.ArrayList;
import java.util.List;
import java.util.HashMap;
import java.util.LinkedHashMap;
import java.util.Map;
import java.util.HashSet;
import ioke.lang.exceptions.ControlFlow;
import ioke.lang.util.StringUtils;
/**
*
* @author <a href="mailto:ola.bini@gmail.com">Ola Bini</a>
*/
public class InternalBehavior {
public static void init(IokeObject obj) throws ControlFlow {
final Runtime runtime = obj.runtime;
obj.setKind("DefaultBehavior Internal");
obj.registerMethod(runtime.newNativeMethod("takes zero or more arguments, calls asText on non-text arguments, and then concatenates them and returns the result.", new NativeMethod("internal:concatenateText") {
private final DefaultArgumentsDefinition ARGUMENTS = DefaultArgumentsDefinition
.builder()
.withRest("textSegments")
.getArguments();
@Override
public DefaultArgumentsDefinition getArguments() {
return ARGUMENTS;
}
@Override
public Object activate(IokeObject method, IokeObject context, IokeObject message, Object on) throws ControlFlow {
List<Object> args = new ArrayList<Object>();
getArguments().getEvaluatedArguments(context, message, on, args, new HashMap<String, Object>());
StringBuilder sb = new StringBuilder();
for(Object o : args) {
if(o instanceof IokeObject) {
if(IokeObject.data(o) instanceof Text) {
sb.append(Text.getText(o));
} else {
sb.append(Text.getText(Interpreter.send(context.runtime.asText, context, o)));
}
} else {
sb.append(o);
}
}
return context.runtime.newText(sb.toString());
}
}));
obj.registerMethod(runtime.newNativeMethod("takes one or more arguments. it expects the last argument to be a text of flags, while the rest of the arguments are either texts or regexps or nil. if text, it will be inserted verbatim into the result regexp. if regexp it will be inserted into a group that make sure the flags of the regexp is preserved. if nil, nothing will be inserted.", new NativeMethod("internal:compositeRegexp") {
private final DefaultArgumentsDefinition ARGUMENTS = DefaultArgumentsDefinition
.builder()
.withRest("regexpSegments")
.getArguments();
@Override
public DefaultArgumentsDefinition getArguments() {
return ARGUMENTS;
}
private void addRegexp(Object o, StringBuilder sb) throws ControlFlow {
String f = Regexp.getFlags(o);
String nflags = "";
if(f.indexOf("i") == -1) {
nflags += "i";
}
if(f.indexOf("x") == -1) {
nflags += "x";
}
if(f.indexOf("m") == -1) {
nflags += "m";
}
if(f.indexOf("u") == -1) {
nflags += "u";
}
if(f.indexOf("s") == -1) {
nflags += "s";
}
if(nflags.length() > 0) {
nflags = "-" + nflags;
}
sb.append("(?").append(f).append(nflags).append(":").append(Regexp.getPattern(o)).append(")");
}
private void addText(Object o, StringBuilder sb) throws ControlFlow {
sb.append(Text.getText(o));
}
public void addObject(Object o, StringBuilder sb, IokeObject context) throws ControlFlow {
if(o != null) {
if(o instanceof String) {
sb.append(o);
} else if(IokeObject.data(o) instanceof Text) {
addText(o, sb);
} else if(IokeObject.data(o) instanceof Regexp) {
addRegexp(o, sb);
} else {
addText(Interpreter.send(context.runtime.asText, context, o), sb);
}
}
}
@Override
public Object activate(IokeObject method, IokeObject context, IokeObject message, Object on) throws ControlFlow {
List<Object> args = new ArrayList<Object>();
getArguments().getEvaluatedArguments(context, message, on, args, new HashMap<String, Object>());
StringBuilder sb = new StringBuilder();
if((IokeObject.data(on) instanceof Text) || (IokeObject.data(on) instanceof Regexp)) {
addObject(on, sb, context);
}
int size = args.size();
for(Object o : args.subList(0, size-1)) {
addObject(o, sb, context);
}
Object f = args.get(size-1);
String flags = null;
if(f instanceof String) {
flags = (String)f;
} else if(IokeObject.data(f) instanceof Text) {
flags = Text.getText(f);
} else if(IokeObject.data(f) instanceof Regexp) {
sb.append(Regexp.getPattern(f));
flags = Regexp.getFlags(f);
}
return context.runtime.newRegexp(sb.toString(), flags, context, message);
}
}));
obj.registerMethod(runtime.newNativeMethod("expects one 'strange' argument. creates a new instance of Text with the given Java String backing it.", new NativeMethod("internal:createText") {
private final DefaultArgumentsDefinition ARGUMENTS = DefaultArgumentsDefinition
.builder()
.withRequiredPositionalUnevaluated("text")
.getArguments();
@Override
public DefaultArgumentsDefinition getArguments() {
return ARGUMENTS;
}
@Override
public Object activate(IokeObject method, IokeObject context, IokeObject message, Object on) throws ControlFlow {
getArguments().checkArgumentCount(context, message, on);
Object o = Message.getArg1(message);
boolean cache = true;
if(o instanceof IokeObject) {
cache = false;
o = Interpreter.getEvaluatedArgument(o, context);
}
if(o instanceof String) {
String s = (String)o;
Object value = runtime.newText(new StringUtils().replaceEscapes(s));
if(cache) {
Message.cacheValue(message, value);
}
return value;
} else {
return IokeObject.convertToText(o, message, context, true);
}
}
}));
obj.registerMethod(runtime.newNativeMethod("expects two 'strange' arguments. creates a new mimic of Regexp with the given Java String backing it.", new NativeMethod("internal:createRegexp") {
private final DefaultArgumentsDefinition ARGUMENTS = DefaultArgumentsDefinition
.builder()
.withRequiredPositionalUnevaluated("regexp")
.withRequiredPositionalUnevaluated("flags")
.getArguments();
@Override
public DefaultArgumentsDefinition getArguments() {
return ARGUMENTS;
}
@Override
public Object activate(IokeObject method, IokeObject context, IokeObject message, Object on) throws ControlFlow {
getArguments().checkArgumentCount(context, message, on);
Object o = Message.getArg1(message);
Object o2 = Message.getArg2(message);
if(o instanceof IokeObject) {
o = Interpreter.getEvaluatedArgument(o, context);
}
if(o2 instanceof IokeObject) {
o2 = Interpreter.getEvaluatedArgument(o2, context);
}
if(o instanceof String) {
String s = (String)o;
return runtime.newRegexp(new StringUtils().replaceRegexpEscapes(s), (String)o2, context, message);
} else {
return IokeObject.convertToRegexp(o, message, context);
}
}
}));
obj.registerMethod(runtime.newNativeMethod("expects one 'strange' argument. creates a new instance of Number that represents the number found in the strange argument.", new NativeMethod("internal:createNumber") {
private final DefaultArgumentsDefinition ARGUMENTS = DefaultArgumentsDefinition
.builder()
.withRequiredPositionalUnevaluated("number")
.getArguments();
@Override
public DefaultArgumentsDefinition getArguments() {
return ARGUMENTS;
}
@Override
public Object activate(IokeObject method, IokeObject context, IokeObject message, Object on) throws ControlFlow {
getArguments().checkArgumentCount(context, message, on);
Object o = Message.getArg1(message);
boolean cache = true;
if(o instanceof IokeObject) {
cache = false;
o = Interpreter.getEvaluatedArgument(o, context);
}
Object value = null;
if(o instanceof String) {
value = runtime.newNumber((String)o);
} else if(o instanceof Integer) {
value = runtime.newNumber((Integer)o);
}
if(cache) {
Message.cacheValue(message, value);
}
return value;
}
}));
obj.registerMethod(runtime.newNativeMethod("expects one 'strange' argument. creates a new instance of Decimal that represents the number found in the strange argument.", new NativeMethod("internal:createDecimal") {
private final DefaultArgumentsDefinition ARGUMENTS = DefaultArgumentsDefinition
.builder()
.withRequiredPositionalUnevaluated("decimal")
.getArguments();
@Override
public DefaultArgumentsDefinition getArguments() {
return ARGUMENTS;
}
@Override
public Object activate(IokeObject method, IokeObject context, IokeObject message, Object on) throws ControlFlow {
getArguments().checkArgumentCount(context, message, on);
Object o = Message.getArg1(message);
boolean cache = true;
if(o instanceof IokeObject) {
cache = false;
o = Interpreter.getEvaluatedArgument(o, context);
}
Object value = runtime.newDecimal((String)o);
if(cache) {
Message.cacheValue(message, value);
}
return value;
}
}));
}
}