/**
* @param s
* @param fn
*/
private boolean parseFile(InputStream s, String fn, String outFolder) throws Exception {
boolean retVal = true;
try {
Date Today = new Date();
String cfn;
String packagePrefix =
Context.getAdministrationService().getGlobalProperty("logic.default.packageName");
if (StringUtils.isEmpty(packagePrefix)) {
packagePrefix = "org.openmrs.logic.rule";
}
MLMObject ardObj = new MLMObject(Context.getLocale(), null);
// Create a scanner that reads from the input stream passed to us
ArdenBaseLexer lexer = new ArdenBaseLexer(s);
// Create a parser that reads from the scanner
ArdenBaseParser parser = new ArdenBaseParser(lexer);
// start parsing at the compilation unit rule
parser.startRule();
BaseAST t = (BaseAST) parser.getAST();
if (log.isDebugEnabled()) {
log.debug(t.toStringTree()); // prints maintenance
}
ArdenBaseTreeParser treeParser = new ArdenBaseTreeParser();
String maintenance = treeParser.maintenance(t, ardObj);
cfn = ardObj.getClassName();
String packageFolderName = packagePrefix.replace('.', File.separatorChar);
File packageFolder = new File(outFolder, packageFolderName);
if (!packageFolder.exists()) {
packageFolder.mkdirs();
}
// make sure that the file is stored in the correct folder based on the package
OutputStream os = new FileOutputStream(new File(packageFolder, cfn + ".java"));
Writer w = new OutputStreamWriter(os);
log.info("Writing to file - " + cfn + ".java");
w.write(
"/********************************************************************"
+ "\n Translated from - "
+ fn
+ " on "
+ Today.toString()
+ "\n\n");
w.write(maintenance);
t = (BaseAST) t.getNextSibling(); // Move to library
if (log.isDebugEnabled()) {
log.debug(t.toStringTree()); // prints library
}
String library = treeParser.library(t, ardObj);
w.write(library);
w.write("\n********************************************************************/\n");
w.write("package " + packagePrefix + ";\n\n");
w.write("import java.util.ArrayList;\n");
w.write("import java.util.HashMap;\n");
w.write("import java.util.List;\n");
w.write("import java.util.Map;\n");
w.write("import java.util.Set;\n");
w.write("import java.util.Collection;\n");
w.write("import java.util.Collections;\n");
w.write("import org.apache.commons.logging.Log;\n");
w.write("import org.apache.commons.logging.LogFactory;\n");
w.write("import org.openmrs.Patient;\n");
w.write("import org.openmrs.api.PatientService;\n");
w.write("import org.openmrs.api.context.Context;\n");
w.write("import org.openmrs.arden.MlmRule;\n");
w.write("import org.openmrs.logic.LogicContext;\n");
w.write("import org.openmrs.logic.impl.LogicCriteriaImpl;\n");
w.write("import org.openmrs.logic.LogicException;\n");
w.write("import org.openmrs.logic.Rule;\n");
w.write("import org.openmrs.logic.result.Result;\n");
w.write("import org.openmrs.logic.result.Result.Datatype;\n");
w.write("import org.openmrs.logic.rule.RuleParameterInfo;\n");
w.write("import org.openmrs.logic.rule.provider.RuleProvider;\n");
w.write("import org.openmrs.logic.Duration;\n");
w.write("import java.util.StringTokenizer;\n\n");
w.write("import org.openmrs.api.ConceptService;\n");
w.write("import java.text.SimpleDateFormat;\n");
w.write("import org.openmrs.Concept;\n");
w.write("import org.openmrs.ConceptName;\n");
String classname = ardObj.getClassName();
w.write("public class " + classname + " implements MlmRule{\n\n"); // Start of class
w.write("\tprivate Log log = LogFactory.getLog(this.getClass());\n");
w.flush();
/**
* ************************************************************************************
* Implement the other interface methods
*/
String str = "";
w.write(
"\t/*** @see org.openmrs.logic.rule.Rule#getDuration()*/\n\t"
+ "public int getDuration() {\n\t\treturn 60*30; // 30 minutes\n\t}\n\n");
w.write(
"\t/*** @see org.openmrs.logic.rule.Rule#getDatatype(String)*/\n\t"
+ "public Datatype getDatatype(String token) {\n\t"
+ "\treturn Datatype.TEXT;\n\t}\n\n");
w.write(
"\t/*** @see org.openmrs.logic.rule.Rule#getParameterList()*/\n\t"
+ "public Set<RuleParameterInfo> getParameterList() {\n\t\treturn null;\n\t}\n\n");
w.write(
"\t/*** @see org.openmrs.logic.rule.Rule#getDependencies()*/\n\t"
+ "public String[] getDependencies() {\n\t\treturn new String[] { };\n\t}\n\n");
w.write(
"\t/*** @see org.openmrs.logic.rule.Rule#getTTL()*/\n\t"
+ "public int getTTL() {\n\t\treturn 0; //60 * 30; // 30 minutes\n\t}\n\n");
w.write(
"\t/*** @see org.openmrs.logic.rule.Rule#getDatatype(String)*/\n\t"
+ "public Datatype getDefaultDatatype() {\n\t\treturn Datatype.CODED;\n\t}\n\n");
str = ardObj.getAuthor();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getAuthor()*/\n"
+ "\tpublic String getAuthor(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
str = ardObj.getCitations();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getCitations()*/\n"
+ "\tpublic String getCitations(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
str = ardObj.getDate();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getDate()*/\n"
+ "\tpublic String getDate(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
str = ardObj.getExplanation();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getExplanation()*/\n"
+ "\tpublic String getExplanation(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
str = ardObj.getInstitution();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getInstitution()*/\n"
+ "\tpublic String getInstitution(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
str = ardObj.getKeywords();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getKeywords()*/\n"
+ "\tpublic String getKeywords(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
str = ardObj.getLinks();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getLinks()*/\n"
+ "\tpublic String getLinks(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
str = ardObj.getPurpose();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getPurpose()*/\n"
+ "\tpublic String getPurpose(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
str = ardObj.getSpecialist();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getSpecialist()*/\n"
+ "\tpublic String getSpecialist(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
str = ardObj.getTitle();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getTitle()*/\n"
+ "\tpublic String getTitle(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
double d = ardObj.getVersion();
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getVersion()*/\n"
+ "\tpublic Double getVersion(){\n"
+ "\t\treturn "
+ d
+ ";\n"
+ "\t}\n\n");
str = ardObj.getType();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getType()*/\n"
+ "\tpublic String getType(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
/** *********************************************************************************** */
t = (BaseAST) t.getNextSibling(); // Move to Knowledge
log.debug(t.toStringTree()); // prints knowledge
/**
* ************************************************Write Knowledge dependent
* section*********************************************
*/
Integer p = ardObj.getPriority();
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getPriority()*/\n"
+ "\tpublic Integer getPriority(){\n"
+ "\t\treturn "
+ p
+ ";\n"
+ "\t}\n\n");
str = ardObj.getData();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getData()*/\n"
+ "\tpublic String getData(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
str = ardObj.getLogic();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getLogic()*/\n"
+ "\tpublic String getLogic(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
str = ardObj.getAction();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getAction()*/\n"
+ "\tpublic String getAction(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
Integer ageMin = ardObj.getAgeMin();
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getAgeMin()*/\n"
+ "\tpublic Integer getAgeMin(){\n"
+ "\t\treturn "
+ ageMin
+ ";\n"
+ "\t}\n\n");
str = ardObj.getAgeMinUnits();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getAgeMinUnits()*/\n"
+ "\tpublic String getAgeMinUnits(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
Integer ageMax = ardObj.getAgeMax();
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getAgeMax()*/\n"
+ "\tpublic Integer getAgeMax(){\n"
+ "\t\treturn "
+ ageMax
+ ";\n"
+ "\t}\n\n");
str = ardObj.getAgeMaxUnits();
if (str != null && str.length() == 0) {
str = null;
}
if (str != null) {
str = "\"" + str + "\"";
}
w.write(
"\t/*** @see org.openmrs.arden.MlmRule#getAgeMaxUnits()*/\n"
+ "\tpublic String getAgeMaxUnits(){\n"
+ "\t\treturn "
+ str
+ ";\n"
+ "\t}\n\n");
w.write("\tprivate static boolean containsIgnoreCase(Result key,List<Result> lst){\n");
w.write("\t\tif(key == null){\n");
w.write("\t\t\treturn false;\n");
w.write("\t\t}\n");
w.write("\t\tString keyString = \"\";\n");
w.write("\t\tif(key.getDatatype() == Result.Datatype.CODED) {\n");
w.write("\t\t\tConcept keyConcept = key.toConcept();\n");
w.write("\t\t\tif(keyConcept != null) {\n");
w.write(
"\t\t\t\tkeyString = ((ConceptName) keyConcept.getNames().toArray()[0]).getName();\n");
w.write("\t\t\t}\n");
w.write("\t\t} else {\n");
w.write("\t\t\tkeyString = key.toString();\n");
w.write("\t\t}\n");
w.write("\t\tfor(Result element:lst){\n");
w.write("\t\t\tConcept concept = element.toConcept();\n");
w.write("\t\t\tif(concept == null){\n");
w.write("\t\t\t\tcontinue;\n");
w.write("\t\t\t}\n");
w.write("\t\t\tCollection<ConceptName> cns = concept.getNames();\n");
w.write("\t\t\tfor(ConceptName cn:cns) {\n");
w.write("\t\t\t\tString elementString = cn.getName();\n");
w.write("\t\t\t\tif(keyString.equalsIgnoreCase(elementString)){\n");
w.write("\t\t\t\t\treturn true;\n");
w.write("\t\t\t\t}\n");
w.write("\t\t}\n");
w.write("\t\t}\n");
w.write("\t\treturn false;\n");
w.write("\t}\n");
w.write("\tprivate static String toProperCase(String str){\n\n");
w.write("\t\tif(str == null || str.length()<1){\n");
w.write("\t\t\treturn str;\n");
w.write("\t\t}\n\n");
w.write("\t\tStringBuffer resultString = new StringBuffer();\n");
w.write("\t\tString delimiter = \" \";\n");
w.write("\t\tStringTokenizer tokenizer = new StringTokenizer(str,delimiter,true);\n");
w.write("\t\tString currToken = null;\n\n");
w.write("\t\twhile(tokenizer.hasMoreTokens()){\n");
w.write("\t\t\tcurrToken = tokenizer.nextToken();\n");
w.write("\t\t\tif(!currToken.equals(delimiter)){\n");
w.write("\t\t\t\tif(currToken.length()>0){\n");
w.write("\t\t\t\t\tcurrToken = currToken.substring(0, 1).toUpperCase()\n");
w.write("\t\t\t\t\t+ currToken.substring(1).toLowerCase();\n");
w.write("\t\t\t\t}\n");
w.write("\t\t\t}\n");
w.write("\t\t\tresultString.append(currToken);\n");
w.write("\t\t}\n");
w.write("\t\treturn resultString.toString();\n");
w.write("\t}\n");
/**
* *************************************************************************************
* *********************************************
*/
// Move back to knowledge tree to actually start converting data
// logic action
t = (BaseAST) parser.getAST();
t = (BaseAST) t.getNextSibling().getNextSibling(); // Move to
// Knowledge
log.debug(t.toStringTree()); // prints knowledge
/** *********************************************************************************** */
ardObj.PrintEvaluateList("data"); // To Debug
retVal = ardObj.WriteEvaluate(w, classname);
if (retVal) {
ardObj.WriteAction(w);
w.append("}"); // end class
w.flush();
w.close();
} else { // delete the compiled file so far
w.flush();
w.close();
boolean success = (new File("src/api/org/openmrs/logic/rule/" + cfn + ".java")).delete();
if (!success) {
System.out.println("Incomplete compiled file " + cfn + ".java cannot be deleted!");
}
}
} catch (Exception e) {
log.error(e);
} finally {
s.close();
}
return retVal;
}
/**
* preprocesses a pde file and writes out a java file
*
* @return the class name of the exported Java
*/
private String write(final String program, final PrintWriter stream)
throws SketchException, RecognitionException, TokenStreamException {
// Match on the uncommented version, otherwise code inside comments used
// http://code.google.com/p/processing/issues/detail?id=1404
String uncomment = scrubComments(program);
PdeRecognizer parser = createParser(program);
if (PUBLIC_CLASS.matcher(uncomment).find()) {
try {
final PrintStream saved = System.err;
try {
// throw away stderr for this tentative parse
System.setErr(new PrintStream(new ByteArrayOutputStream()));
parser.javaProgram();
} finally {
System.setErr(saved);
}
setMode(Mode.JAVA);
} catch (Exception e) {
// I can't figure out any other way of resetting the parser.
parser = createParser(program);
parser.pdeProgram();
}
} else if (FUNCTION_DECL.matcher(uncomment).find()) {
setMode(Mode.ACTIVE);
parser.activeProgram();
} else {
parser.pdeProgram();
}
// set up the AST for traversal by PdeEmitter
//
ASTFactory factory = new ASTFactory();
AST parserAST = parser.getAST();
AST rootNode = factory.create(ROOT_ID, "AST ROOT");
rootNode.setFirstChild(parserAST);
makeSimpleMethodsPublic(rootNode);
// unclear if this actually works, but it's worth a shot
//
// ((CommonAST)parserAST).setVerboseStringConversion(
// true, parser.getTokenNames());
// (made to use the static version because of jikes 1.22 warning)
BaseAST.setVerboseStringConversion(true, parser.getTokenNames());
final String className;
if (mode == Mode.JAVA) {
// if this is an advanced program, the classname is already defined.
className = getFirstClassName(parserAST);
} else {
className = this.name;
}
// if 'null' was passed in for the name, but this isn't
// a 'java' mode class, then there's a problem, so punt.
//
if (className == null) return null;
// debug
if (false) {
final StringWriter buf = new StringWriter();
final PrintWriter bufout = new PrintWriter(buf);
writeDeclaration(bufout, className);
new PdeEmitter(this, bufout).print(rootNode);
writeFooter(bufout, className);
debugAST(rootNode, true);
System.err.println(buf.toString());
}
writeDeclaration(stream, className);
new PdeEmitter(this, stream).print(rootNode);
writeFooter(stream, className);
// if desired, serialize the parse tree to an XML file. can
// be viewed usefully with Mozilla or IE
if (Preferences.getBoolean("preproc.output_parse_tree")) {
writeParseTree("parseTree.xml", parserAST);
}
return className;
}