/[svn]/linuxsampler/trunk/src/scriptvm/tree.cpp
ViewVC logotype

Diff of /linuxsampler/trunk/src/scriptvm/tree.cpp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2935 by schoenebeck, Sun Jul 10 14:24:13 2016 UTC revision 3311 by schoenebeck, Sat Jul 15 16:24:59 2017 UTC
# Line 1  Line 1 
1  /*  /*
2   * Copyright (c) 2014 - 2016 Christian Schoenebeck and Andreas Persson   * Copyright (c) 2014 - 2017 Christian Schoenebeck and Andreas Persson
3   *   *
4   * http://www.linuxsampler.org   * http://www.linuxsampler.org
5   *   *
# Line 16  Line 16 
16  namespace LinuxSampler {  namespace LinuxSampler {
17            
18  bool isNoOperation(StatementRef statement) {  bool isNoOperation(StatementRef statement) {
19      NoOperation* noOp = dynamic_cast<NoOperation*>(&*statement);      return statement->statementType() == STMT_NOOP;
     return noOp;  
20  }  }
21            
22  Node::Node() {  Node::Node() {
# Line 35  String IntExpr::evalCastToStr() { Line 34  String IntExpr::evalCastToStr() {
34      return ToString(evalInt());      return ToString(evalInt());
35  }  }
36    
37    String IntArrayExpr::evalCastToStr() {
38        String s = "{";
39        for (int i = 0; i < arraySize(); ++i) {
40            int val = evalIntElement(i);
41            if (i) s += ",";
42            s += ToString(val);
43        }
44        s += "}";
45        return s;
46    }
47    
48  int IntLiteral::evalInt() {  int IntLiteral::evalInt() {
49      return value;      return value;
50  }  }
# Line 102  void Mul::dump(int level) { Line 112  void Mul::dump(int level) {
112    
113  int Div::evalInt() {  int Div::evalInt() {
114      IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);      IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);
115      IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);;      IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);
116      return (pLHS && pRHS) ? pRHS->evalInt() == 0 ? 0 : pLHS->evalInt() / pRHS->evalInt() : 0;      if (!pLHS || !pRHS) return 0;
117        int l = pLHS->evalInt();
118        int r = pRHS->evalInt();
119        if (r == 0) return 0;
120        return l / r;
121  }  }
122    
123  void Div::dump(int level) {  void Div::dump(int level) {
# Line 243  bool Statements::isPolyphonic() const { Line 257  bool Statements::isPolyphonic() const {
257      return false;      return false;
258  }  }
259    
260    DynamicVariableCall::DynamicVariableCall(const String& name, ParserContext* ctx, VMDynVar* v)
261        : Variable(ctx, 0, false), dynVar(v), varName(name)
262    {
263    }
264    
265    int DynamicVariableCall::evalInt() {
266        VMIntExpr* expr = dynamic_cast<VMIntExpr*>(dynVar);
267        if (!expr) return 0;
268        return expr->evalInt();
269    }
270    
271    String DynamicVariableCall::evalStr() {
272        VMStringExpr* expr = dynamic_cast<VMStringExpr*>(dynVar);
273        if (!expr) return "";
274        return expr->evalStr();
275    }
276    
277    String DynamicVariableCall::evalCastToStr() {
278        if (dynVar->exprType() == STRING_EXPR) {
279            return evalStr();
280        } else {
281            VMIntExpr* intExpr = dynamic_cast<VMIntExpr*>(dynVar);
282            return intExpr ? ToString(intExpr->evalInt()) : "";
283        }
284    }
285    
286    void DynamicVariableCall::dump(int level) {
287        printIndents(level);
288        printf("Dynamic Variable '%s'\n", varName.c_str());
289    }
290    
291  void FunctionCall::dump(int level) {  void FunctionCall::dump(int level) {
292      printIndents(level);      printIndents(level);
293      printf("FunctionCall '%s' args={\n", functionName.c_str());      printf("FunctionCall '%s' args={\n", functionName.c_str());
# Line 278  int FunctionCall::evalInt() { Line 323  int FunctionCall::evalInt() {
323      return intExpr->evalInt();      return intExpr->evalInt();
324  }  }
325    
326    VMIntArrayExpr* FunctionCall::asIntArray() const {
327        VMFnResult* result = const_cast<FunctionCall*>(this)->execVMFn();
328        if (!result) return 0;
329        VMIntArrayExpr* intArrExpr = dynamic_cast<VMIntArrayExpr*>(result->resultValue());
330        return intArrExpr;
331    }
332    
333  String FunctionCall::evalStr() {  String FunctionCall::evalStr() {
334      VMFnResult* result = execVMFn();      VMFnResult* result = execVMFn();
335      if (!result) return "";      if (!result) return "";
# Line 324  IntVariable::IntVariable(ParserContext* Line 376  IntVariable::IntVariable(ParserContext*
376    
377  void IntVariable::assign(Expression* expr) {  void IntVariable::assign(Expression* expr) {
378      IntExpr* intExpr = dynamic_cast<IntExpr*>(expr);      IntExpr* intExpr = dynamic_cast<IntExpr*>(expr);
379      if (intExpr)      if (intExpr) {
380          if (polyphonic)          if (polyphonic)
381              context->execContext->polyphonicIntMemory[memPos] = intExpr->evalInt();              context->execContext->polyphonicIntMemory[memPos] = intExpr->evalInt();
382          else          else
383              (*context->globalIntMemory)[memPos] = intExpr->evalInt();              (*context->globalIntMemory)[memPos] = intExpr->evalInt();
384        }
385  }  }
386    
387  int IntVariable::evalInt() {  int IntVariable::evalInt() {
# Line 342  int IntVariable::evalInt() { Line 395  int IntVariable::evalInt() {
395    
396  void IntVariable::dump(int level) {  void IntVariable::dump(int level) {
397      printIndents(level);      printIndents(level);
398        printf("IntVariable\n");
399      //printf("IntVariable memPos=%d\n", memPos);      //printf("IntVariable memPos=%d\n", memPos);
400  }  }
401    
# Line 408  IntArrayVariable::IntArrayVariable(Parse Line 462  IntArrayVariable::IntArrayVariable(Parse
462      memset(&values[0], 0, size * sizeof(int));      memset(&values[0], 0, size * sizeof(int));
463  }  }
464    
465  IntArrayVariable::IntArrayVariable(ParserContext* ctx, int size, ArgsRef values)  IntArrayVariable::IntArrayVariable(ParserContext* ctx, int size, ArgsRef values, bool _bConst)
466      : Variable(ctx, 0, false)      : Variable(ctx, 0, _bConst)
467  {  {
468      this->values.resize(size);      this->values.resize(size);
469      for (int i = 0; i < values->argsCount(); ++i) {      for (int i = 0; i < values->argsCount(); ++i) {
# Line 466  void BuiltInIntArrayVariable::dump(int l Line 520  void BuiltInIntArrayVariable::dump(int l
520      printf("Built-In Int Array Variable '%s'\n", name.c_str());      printf("Built-In Int Array Variable '%s'\n", name.c_str());
521  }  }
522    
523  IntArrayElement::IntArrayElement(IntArrayVariableRef array, IntExprRef arrayIndex)  IntArrayElement::IntArrayElement(IntArrayExprRef array, IntExprRef arrayIndex)
524      : IntVariable(NULL, false, false, 0), array(array), index(arrayIndex)      : IntVariable(NULL, false, false, 0), array(array), index(arrayIndex)
525  {      {    
526  }  }
# Line 669  bool While::evalLoopStartCondition() { Line 723  bool While::evalLoopStartCondition() {
723      return m_condition->evalInt();      return m_condition->evalInt();
724  }  }
725    
726    void SyncBlock::dump(int level) {
727        printIndents(level);
728        printf("sync {\n");
729        m_statements->dump(level+1);
730        printIndents(level);
731        printf("}\n");
732    }
733    
734    Statements* SyncBlock::statements() const {
735        return (m_statements) ? const_cast<Statements*>( &*m_statements ) : NULL;
736    }
737    
738  void Neg::dump(int level) {  void Neg::dump(int level) {
739      printIndents(level);      printIndents(level);
740      printf("Negative Expr\n");      printf("Negative Expr\n");
741  }  }
742    
743  String ConcatString::evalStr() {  String ConcatString::evalStr() {
744      return lhs->evalCastToStr() + rhs->evalCastToStr();      // temporaries required here to enforce the associative left (to right) order
745        // ( required for GCC and Visual Studio, see:
746        //   http://stackoverflow.com/questions/25842902/why-stdstring-concatenation-operator-works-like-right-associative-one
747        //   Personally I am not convinced that this is "not a bug" of the
748        //   compiler/STL implementation and the allegedly underlying "function call"
749        //   nature causing this is IMO no profound reason that the C++ language's
750        //   "+" operator's left associativity is ignored. -- Christian, 2016-07-14 )
751        String l = lhs->evalCastToStr();
752        String r = rhs->evalCastToStr();
753        return l + r;
754  }  }
755    
756  void ConcatString::dump(int level) {  void ConcatString::dump(int level) {
# Line 837  void BitwiseNot::dump(int level) { Line 912  void BitwiseNot::dump(int level) {
912      printf(")\n");      printf(")\n");
913  }  }
914    
915    StatementsRef ParserContext::userFunctionByName(const String& name) {
916        if (!userFnTable.count(name)) {
917            return StatementsRef();
918        }
919        return userFnTable.find(name)->second;
920    }
921    
922  VariableRef ParserContext::variableByName(const String& name) {  VariableRef ParserContext::variableByName(const String& name) {
923      if (!vartable.count(name)) {      if (!vartable.count(name)) {
924          return VariableRef();          return VariableRef();
# Line 894  void ParserContext::addWrn(int firstLine Line 976  void ParserContext::addWrn(int firstLine
976      vIssues.push_back(w);      vIssues.push_back(w);
977  }  }
978    
979    void ParserContext::addPreprocessorComment(int firstLine, int lastLine, int firstColumn, int lastColumn) {
980        CodeBlock block;
981        block.firstLine = firstLine;
982        block.lastLine = lastLine;
983        block.firstColumn = firstColumn;
984        block.lastColumn = lastColumn;
985        vPreprocessorComments.push_back(block);
986    }
987    
988  bool ParserContext::setPreprocessorCondition(const char* name) {  bool ParserContext::setPreprocessorCondition(const char* name) {
989      if (builtinPreprocessorConditions.count(name)) return false;      if (builtinPreprocessorConditions.count(name)) return false;
990      if (userPreprocessorConditions.count(name)) return false;      if (userPreprocessorConditions.count(name)) return false;
# Line 925  std::vector<ParserIssue> ParserContext:: Line 1016  std::vector<ParserIssue> ParserContext::
1016      return vWarnings;      return vWarnings;
1017  }  }
1018    
1019    std::vector<CodeBlock> ParserContext::preprocessorComments() const {
1020        return vPreprocessorComments;
1021    }
1022    
1023  VMEventHandler* ParserContext::eventHandler(uint index) {  VMEventHandler* ParserContext::eventHandler(uint index) {
1024      if (!handlers) return NULL;      if (!handlers) return NULL;
1025      return handlers->eventHandler(index);      return handlers->eventHandler(index);
# Line 962  void ParserContext::registerBuiltInIntAr Line 1057  void ParserContext::registerBuiltInIntAr
1057      }      }
1058  }  }
1059    
1060    void ParserContext::registerBuiltInDynVariables(const std::map<String,VMDynVar*>& vars) {
1061        for (std::map<String,VMDynVar*>::const_iterator it = vars.begin();
1062             it != vars.end(); ++it)
1063        {
1064            DynamicVariableCallRef ref = new DynamicVariableCall(it->first, this, it->second);
1065            vartable[it->first] = ref;
1066        }
1067    }
1068    
1069    void ExecContext::forkTo(VMExecContext* ectx) const {
1070        ExecContext* child = dynamic_cast<ExecContext*>(ectx);
1071    
1072        child->polyphonicIntMemory.copyFlatFrom(polyphonicIntMemory);
1073        child->status = VM_EXEC_SUSPENDED;
1074        child->flags = STMT_SUCCESS;
1075        child->stack.copyFlatFrom(stack);
1076        child->stackFrame = stackFrame;
1077        child->suspendMicroseconds = 0;
1078        child->instructionsCount = 0;
1079    }
1080    
1081  } // namespace LinuxSampler  } // namespace LinuxSampler
Legend:
Removed from v.2935  
changed lines
  Added in v.3311
  ViewVC Help
Powered by ViewVC