コード例 #1
0
  /* (non-Javadoc)
   * @see parser.CBaseElement#DoCustomSemanticAnalysis(semantic.CBaseSemanticEntity, semantic.CBaseSemanticEntityFactory)
   */
  protected CBaseLanguageEntity DoCustomSemanticAnalysis(
      CBaseLanguageEntity parent, CBaseEntityFactory factory) {
    if (factory.m_ProgramCatalog.isMissingIncludeStructure()) {
      Transcoder.logError(
          "Some include structure are missing: ProcedureDivision code generation cannot be done");
      return null;
    }

    // Insert deferred children before procedure division
    ArrayList<DeferredItem> arrDeferredChildren = parent.getDeferredChildren();
    if (arrDeferredChildren != null) {
      for (int n = 0; n < arrDeferredChildren.size(); n++) {
        DeferredItem deferredItem = arrDeferredChildren.get(n);
        CLanguageElement el = deferredItem.getElement();
        CBaseLanguageEntity entity = deferredItem.getEntity();
        el.DoDeferredSemanticAnalysisForChildren(entity, factory);
        parent.AddChild(entity);
      }
    }
    CEntityProcedureDivision pro = factory.NewEntityProcedureDivision(getLine());
    parent.AddChild(pro);
    for (int i = 0; i < m_arrUsingRef.size(); i++) {
      CIdentifier id = m_arrUsingRef.get(i);
      CDataEntity e = id.GetDataReference(getLine(), factory);
      pro.AddCallParameter(e);
    }
    if (m_ProcedureDivisionBloc != null) {
      CEntityBloc e = (CEntityBloc) m_ProcedureDivisionBloc.DoSemanticAnalysis(pro, factory);
      pro.SetProcedureBloc(e);
    }

    return parent;
  }
コード例 #2
0
  protected CBaseLanguageEntity DoCustomSemanticAnalysis(
      CBaseLanguageEntity parent, CBaseEntityFactory factory) {
    CEntityCICSRead Read =
        factory.NewEntityCICSRead(getLine(), CEntityCICSRead.CEntityCICSReadMode.PREVIOUS);
    parent.AddChild(Read);
    CDataEntity filename = m_FileName.GetDataEntity(getLine(), factory);
    if (m_ReadType == CCobolKeywordList.FILE) {
      Read.ReadFile(filename);
    } else if (m_ReadType == CCobolKeywordList.DATASET) {
      Read.ReadDataSet(filename);
    } else {
      Transcoder.logError(getLine(), "Error in semantic analysis of EXEC CICS READPREV");
      return null;
    }

    if (m_DataInto != null) {
      CDataEntity edata = m_DataInto.GetDataReference(getLine(), factory);
      CDataEntity edatalen = null;
      if (m_DataLength != null) {
        edatalen = m_DataLength.GetDataEntity(getLine(), factory);
      }
      Read.SetDataInto(edata, edatalen);
    }
    if (m_KeyLength != null) {
      Read.SetKeyLength(m_KeyLength.GetDataEntity(getLine(), factory));
    }
    if (m_RecIDField != null) {
      CDataEntity edata = m_RecIDField.GetDataReference(getLine(), factory);
      Read.SetRecIDField(edata);
    }
    return Read;
  }
コード例 #3
0
ファイル: CWorkingValueEntry.java プロジェクト: charleso/naca
  /* (non-Javadoc)
   * @see parser.CBaseElement#DoCustomSemanticAnalysis(semantic.CBaseSemanticEntity, semantic.CBaseSemanticEntityFactory)
   */
  protected CBaseLanguageEntity DoCustomSemanticAnalysis(
      CBaseLanguageEntity parent, CBaseEntityFactory factory) {
    CEntityNamedCondition eCond = factory.NewEntityNamedCondition(getLine(), m_csIdentifier);
    parent.AddChild(eCond);

    for (int i = 0; i < m_arrValues.size(); i += 2) {
      CTerminal term1 = m_arrValues.get(i);
      CTerminal term2 = m_arrValues.get(i + 1);
      if (term1.GetValue().equals(term2.GetValue())) {
        CDataEntity eVal = term1.GetDataEntity(getLine(), factory);
        if (eVal == null && !term1.IsReference()) {
          String cs = term1.GetValue();
          if (cs.equals(CCobolConstantList.HIGH_VALUE.m_Name)
              || cs.equals(CCobolConstantList.HIGH_VALUES.m_Name)) {
            eVal = factory.NewEntityConstant(CEntityConstant.Value.HIGH_VALUE);
          } else {
            eVal = factory.NewEntityUnknownReference(getLine(), term1.toString());
          }
        }
        eCond.AddValue(eVal);
      } else {
        CDataEntity eVal1 = term1.GetDataEntity(getLine(), factory);
        CDataEntity eVal2 = term2.GetDataEntity(getLine(), factory);
        eCond.AddInterval(eVal1, eVal2);
      }
    }
    return eCond;
  }
コード例 #4
0
ファイル: CWhenBloc.java プロジェクト: charleso/naca
 /* (non-Javadoc)
  * @see parser.CBaseElement#DoCustomSemanticAnalysis(semantic.CBaseSemanticEntity, semantic.CBaseSemanticEntityFactory)
  */
 protected CBaseLanguageEntity DoCustomSemanticAnalysis(
     CBaseLanguageEntity parent, CBaseEntityFactory factory) {
   CEntityCase e = factory.NewEntityCase(getLine(), m_nEndLine);
   if (m_cond.IsConstant() || m_cond.GetConstantValue().equals("OTHER")) {
     e.SetCondition(null);
   } else {
     CBaseEntityCondition eCond = m_cond.AnalyseCondition(factory);
     e.SetCondition(eCond);
   }
   parent.AddChild(e);
   return e;
 }
コード例 #5
0
  @Override
  protected CBaseLanguageEntity DoCustomSemanticAnalysis(
      CBaseLanguageEntity parent, CBaseEntityFactory factory) {
    CEntityDataSection data = factory.NewEntityDataSection(getLine(), "DeclarationSection");

    for (CConstantTerminal c : m_arrParams) {
      // TODO do semantic analysis
    }
    for (CFPacInputFile f : m_arrInputFiles) {
      f.DoSemanticAnalysis(data, factory);
    }
    for (CFPacOutputFile f : m_arrOutputFiles) {
      f.DoSemanticAnalysis(data, factory);
    }
    for (CFPacUpdateFile f : m_arrUpdateFiles) {
      f.DoSemanticAnalysis(data, factory);
    }

    parent.AddChild(data);
    return data;
  }
コード例 #6
0
ファイル: CExecSQLCommit.java プロジェクト: rplandgraf/naca
 protected CBaseLanguageEntity DoCustomSemanticAnalysis(
     CBaseLanguageEntity parent, CBaseEntityFactory factory) {
   CEntitySQLCommit eRB = factory.NewEntitySQLCommit(getLine());
   parent.AddChild(eRB);
   return eRB;
 }