/**
   * @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;
  }
示例#2
0
  /**
   * 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;
  }