/[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 2888 by schoenebeck, Sun Apr 24 18:16:10 2016 UTC revision 3557 by schoenebeck, Sun Aug 18 00:06:04 2019 UTC
# Line 1  Line 1 
1  /*  /*
2   * Copyright (c) 2014 Christian Schoenebeck and Andreas Persson   * Copyright (c) 2014 - 2019 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  int IntLiteral::evalInt() {  String IntArrayExpr::evalCastToStr() {
38        String s = "{";
39        for (vmint i = 0; i < arraySize(); ++i) {
40            vmint val = evalIntElement(i);
41            if (i) s += ",";
42            s += ToString(val);
43        }
44        s += "}";
45        return s;
46    }
47    
48    vmint IntLiteral::evalInt() {
49      return value;      return value;
50  }  }
51    
52  void IntLiteral::dump(int level) {  void IntLiteral::dump(int level) {
53      printIndents(level);      printIndents(level);
54      printf("IntLiteral %d\n", value);      printf("IntLiteral %lld\n", value);
55  }  }
56    
57  void StringLiteral::dump(int level) {  void StringLiteral::dump(int level) {
# Line 49  void StringLiteral::dump(int level) { Line 59  void StringLiteral::dump(int level) {
59      printf("StringLiteral: '%s'\n", value.c_str());      printf("StringLiteral: '%s'\n", value.c_str());
60  }  }
61    
62  int Add::evalInt() {  vmint Add::evalInt() {
63      IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);      IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);
64      IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);;      IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);;
65      return (pLHS && pRHS) ? pLHS->evalInt() + pRHS->evalInt() : 0;      return (pLHS && pRHS) ? pLHS->evalInt() + pRHS->evalInt() : 0;
# Line 66  void Add::dump(int level) { Line 76  void Add::dump(int level) {
76      printf(")\n");      printf(")\n");
77  }  }
78    
79  int Sub::evalInt() {  vmint Sub::evalInt() {
80      IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);      IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);
81      IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);;      IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);;
82      return (pLHS && pRHS) ? pLHS->evalInt() - pRHS->evalInt() : 0;      return (pLHS && pRHS) ? pLHS->evalInt() - pRHS->evalInt() : 0;
# Line 83  void Sub::dump(int level) { Line 93  void Sub::dump(int level) {
93      printf(")\n");      printf(")\n");
94  }  }
95    
96  int Mul::evalInt() {  vmint Mul::evalInt() {
97      IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);      IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);
98      IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);;      IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);;
99      return (pLHS && pRHS) ? pLHS->evalInt() * pRHS->evalInt() : 0;      return (pLHS && pRHS) ? pLHS->evalInt() * pRHS->evalInt() : 0;
# Line 100  void Mul::dump(int level) { Line 110  void Mul::dump(int level) {
110      printf(")\n");      printf(")\n");
111  }  }
112    
113  int Div::evalInt() {  vmint 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        vmint l = pLHS->evalInt();
118        vmint 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 117  void Div::dump(int level) { Line 131  void Div::dump(int level) {
131      printf(")\n");      printf(")\n");
132  }  }
133    
134  int Mod::evalInt() {  vmint Mod::evalInt() {
135      IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);      IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);
136      IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);;      IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);;
137      return (pLHS && pRHS) ? pLHS->evalInt() % pRHS->evalInt() : 0;      return (pLHS && pRHS) ? pLHS->evalInt() % pRHS->evalInt() : 0;
# Line 145  void Args::dump(int level) { Line 159  void Args::dump(int level) {
159  }  }
160    
161  bool Args::isPolyphonic() const {  bool Args::isPolyphonic() const {
162      for (int i = 0; i < args.size(); ++i)      for (vmint i = 0; i < args.size(); ++i)
163          if (args[i]->isPolyphonic())          if (args[i]->isPolyphonic())
164              return true;              return true;
165      return false;      return false;
# Line 173  void EventHandlers::dump(int level) { Line 187  void EventHandlers::dump(int level) {
187  }  }
188    
189  EventHandler* EventHandlers::eventHandlerByName(const String& name) const {  EventHandler* EventHandlers::eventHandlerByName(const String& name) const {
190      for (int i = 0; i < args.size(); ++i)      for (vmint i = 0; i < args.size(); ++i)
191          if (args.at(i)->eventHandlerName() == name)          if (args.at(i)->eventHandlerName() == name)
192              return const_cast<EventHandler*>(&*args.at(i));              return const_cast<EventHandler*>(&*args.at(i));
193      return NULL;      return NULL;
# Line 185  EventHandler* EventHandlers::eventHandle Line 199  EventHandler* EventHandlers::eventHandle
199  }  }
200    
201  bool EventHandlers::isPolyphonic() const {  bool EventHandlers::isPolyphonic() const {
202      for (int i = 0; i < args.size(); ++i)      for (vmint i = 0; i < args.size(); ++i)
203          if (args[i]->isPolyphonic())          if (args[i]->isPolyphonic())
204              return true;              return true;
205      return false;      return false;
# Line 237  Statement* Statements::statement(uint i) Line 251  Statement* Statements::statement(uint i)
251  }  }
252    
253  bool Statements::isPolyphonic() const {  bool Statements::isPolyphonic() const {
254      for (int i = 0; i < args.size(); ++i)      for (vmint i = 0; i < args.size(); ++i)
255          if (args[i]->isPolyphonic())          if (args[i]->isPolyphonic())
256              return true;              return true;
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    vmint 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 270  StmtFlags_t FunctionCall::exec() { Line 315  StmtFlags_t FunctionCall::exec() {
315      return result->resultFlags();      return result->resultFlags();
316  }  }
317    
318  int FunctionCall::evalInt() {  vmint FunctionCall::evalInt() {
319      VMFnResult* result = execVMFn();      VMFnResult* result = execVMFn();
320      if (!result) return 0;      if (!result) return 0;
321      VMIntExpr* intExpr = dynamic_cast<VMIntExpr*>(result->resultValue());      VMIntExpr* intExpr = dynamic_cast<VMIntExpr*>(result->resultValue());
# 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 305  IntVariable::IntVariable(ParserContext* Line 357  IntVariable::IntVariable(ParserContext*
357      assert(ctx);      assert(ctx);
358  }  }
359    
360  inline static int postfixInc(int& object, int incBy) {  inline static vmint postfixInc(vmint& object, vmint incBy) {
361      const int i = object;      const vmint i = object;
362      object += incBy;      object += incBy;
363      return i;      return i;
364  }  }
365    
366  IntVariable::IntVariable(ParserContext* ctx, bool polyphonic, bool bConst, int size)  IntVariable::IntVariable(ParserContext* ctx, bool polyphonic, bool bConst, vmint size)
367      : Variable(ctx, !ctx ? 0 : polyphonic ? postfixInc(ctx->polyphonicIntVarCount, size) : postfixInc(ctx->globalIntVarCount, size), bConst),      : Variable(ctx, !ctx ? 0 : polyphonic ? postfixInc(ctx->polyphonicIntVarCount, size) : postfixInc(ctx->globalIntVarCount, size), bConst),
368        polyphonic(polyphonic)        polyphonic(polyphonic)
369  {  {
# 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() {  vmint IntVariable::evalInt() {
388      //printf("IntVariable::eval pos=%d\n", memPos);      //printf("IntVariable::eval pos=%d\n", memPos);
389      if (polyphonic) {      if (polyphonic) {
390          //printf("evalInt() poly memPos=%d execCtx=0x%lx\n", memPos, (uint64_t)context->execContext);          //printf("evalInt() poly memPos=%d execCtx=0x%lx\n", memPos, (uint64_t)context->execContext);
# 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    
402  //ConstIntVariable::ConstIntVariable(ParserContext* ctx, int value)  //ConstIntVariable::ConstIntVariable(ParserContext* ctx, int value)
403  ConstIntVariable::ConstIntVariable(int value)  ConstIntVariable::ConstIntVariable(vmint value)
404      : IntVariable(NULL,false,true), value(value)      : IntVariable(NULL,false,true), value(value)
405  {  {
406  }  }
# Line 362  void ConstIntVariable::assign(Expression Line 416  void ConstIntVariable::assign(Expression
416  */  */
417  }  }
418    
419  int ConstIntVariable::evalInt() {  vmint ConstIntVariable::evalInt() {
420      return value;      return value;
421  }  }
422    
423  void ConstIntVariable::dump(int level) {  void ConstIntVariable::dump(int level) {
424      printIndents(level);      printIndents(level);
425      printf("ConstIntVariable val=%d\n", value);      printf("ConstIntVariable val=%lld\n", value);
426  }  }
427    
428  BuiltInIntVariable::BuiltInIntVariable(const String& name, VMIntRelPtr* ptr)  BuiltInIntVariable::BuiltInIntVariable(const String& name, VMIntPtr* ptr)
429      : IntVariable(NULL,false,false), name(name), ptr(ptr)      : IntVariable(NULL,false,false), name(name), ptr(ptr)
430  {  {
431  }  }
# Line 382  void BuiltInIntVariable::assign(Expressi Line 436  void BuiltInIntVariable::assign(Expressi
436      ptr->assign(valueExpr->evalInt());      ptr->assign(valueExpr->evalInt());
437  }  }
438    
439  int BuiltInIntVariable::evalInt() {  vmint BuiltInIntVariable::evalInt() {
440      return ptr->evalInt();      return ptr->evalInt();
441  }  }
442    
# Line 401  void PolyphonicIntVariable::dump(int lev Line 455  void PolyphonicIntVariable::dump(int lev
455      printf("PolyphonicIntVariable\n");      printf("PolyphonicIntVariable\n");
456  }  }
457    
458  IntArrayVariable::IntArrayVariable(ParserContext* ctx, int size)  IntArrayVariable::IntArrayVariable(ParserContext* ctx, vmint size)
459      : Variable(ctx, 0, false)      : Variable(ctx, 0, false)
460  {  {
461      values.resize(size);      values.resize(size);
462      memset(&values[0], 0, size * sizeof(int));      memset(&values[0], 0, size * sizeof(vmint));
463  }  }
464    
465  IntArrayVariable::IntArrayVariable(ParserContext* ctx, int size, ArgsRef values)  IntArrayVariable::IntArrayVariable(ParserContext* ctx, vmint 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 (vmint i = 0; i < values->argsCount(); ++i) {
470          VMIntExpr* expr = dynamic_cast<VMIntExpr*>(values->arg(i));          VMIntExpr* expr = dynamic_cast<VMIntExpr*>(values->arg(i));
471          if (expr) this->values[i] = expr->evalInt();          if (expr) this->values[i] = expr->evalInt();
472      }      }
# Line 423  IntArrayVariable::IntArrayVariable(Parse Line 477  IntArrayVariable::IntArrayVariable(Parse
477  {  {
478  }  }
479    
480  int IntArrayVariable::evalIntElement(uint i) {  vmint IntArrayVariable::evalIntElement(vmuint i) {
481      if (i >= values.size()) return 0;      if (i >= values.size()) return 0;
482      return values[i];      return values[i];
483  }  }
484    
485  void IntArrayVariable::assignIntElement(uint i, int value) {  void IntArrayVariable::assignIntElement(vmuint i, vmint value) {
486      if (i >= values.size()) return;      if (i >= values.size()) return;
487      values[i] = value;      values[i] = value;
488  }  }
# Line 436  void IntArrayVariable::assignIntElement( Line 490  void IntArrayVariable::assignIntElement(
490  void IntArrayVariable::dump(int level) {  void IntArrayVariable::dump(int level) {
491      printIndents(level);      printIndents(level);
492      printf("IntArray(");      printf("IntArray(");
493      for (int i = 0; i < values.size(); ++i) {      for (vmint i = 0; i < values.size(); ++i) {
494          if (i % 12 == 0) {          if (i % 12 == 0) {
495              printf("\n");              printf("\n");
496              printIndents(level+1);              printIndents(level+1);
497          }          }
498          printf("%d, ", values[i]);          printf("%lld, ", values[i]);
499      }      }
500      printIndents(level);      printIndents(level);
501      printf(")\n");      printf(")\n");
# Line 452  BuiltInIntArrayVariable::BuiltInIntArray Line 506  BuiltInIntArrayVariable::BuiltInIntArray
506  {  {
507  }  }
508    
509  int BuiltInIntArrayVariable::evalIntElement(uint i) {  vmint BuiltInIntArrayVariable::evalIntElement(vmuint i) {
510      return i >= array->size ? 0 : array->data[i];      return i >= array->size ? 0 : array->data[i];
511  }  }
512    
513  void BuiltInIntArrayVariable::assignIntElement(uint i, int value) {  void BuiltInIntArrayVariable::assignIntElement(vmuint i, vmint value) {
514      if (i >= array->size) return;      if (i >= array->size) return;
515      array->data[i] = value;      array->data[i] = value;
516  }  }
# 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 474  IntArrayElement::IntArrayElement(IntArra Line 528  IntArrayElement::IntArrayElement(IntArra
528  void IntArrayElement::assign(Expression* expr) {  void IntArrayElement::assign(Expression* expr) {
529      IntExpr* valueExpr = dynamic_cast<IntExpr*>(expr);      IntExpr* valueExpr = dynamic_cast<IntExpr*>(expr);
530      if (!valueExpr) return;      if (!valueExpr) return;
531      int value = valueExpr->evalInt();      vmint value = valueExpr->evalInt();
532    
533      if (!index) return;      if (!index) return;
534      int idx = index->evalInt();      vmint idx = index->evalInt();
535      if (idx < 0 || idx >= array->arraySize()) return;      if (idx < 0 || idx >= array->arraySize()) return;
536    
537      array->assignIntElement(idx, value);      array->assignIntElement(idx, value);
538  }  }
539    
540  int IntArrayElement::evalInt() {  vmint IntArrayElement::evalInt() {
541      if (!index) return 0;      if (!index) return 0;
542      int idx = index->evalInt();      vmint idx = index->evalInt();
543      if (idx < 0 || idx >= array->arraySize()) return 0;      if (idx < 0 || idx >= array->arraySize()) return 0;
544    
545      return array->evalIntElement(idx);      return array->evalIntElement(idx);
# Line 518  String StringVariable::evalStr() { Line 572  String StringVariable::evalStr() {
572    
573  void StringVariable::dump(int level) {  void StringVariable::dump(int level) {
574      printIndents(level);      printIndents(level);
575      printf("StringVariable memPos=%d\n", memPos);      printf("StringVariable memPos=%lld\n", memPos);
576  }  }
577    
578  ConstStringVariable::ConstStringVariable(ParserContext* ctx, String _value)  ConstStringVariable::ConstStringVariable(ParserContext* ctx, String _value)
# Line 551  void If::dump(int level) { Line 605  void If::dump(int level) {
605          printf("if [INVALID]\n");          printf("if [INVALID]\n");
606  }  }
607    
608  int If::evalBranch() {  vmint If::evalBranch() {
609      if (condition->evalInt()) return 0;      if (condition->evalInt()) return 0;
610      if (elseStatements) return 1;      if (elseStatements) return 1;
611      return -1;      return -1;
612  }  }
613    
614  Statements* If::branch(uint i) const {  Statements* If::branch(vmuint i) const {
615      if (i == 0) return (Statements*) &*ifStatements;      if (i == 0) return (Statements*) &*ifStatements;
616      if (i == 1) return (elseStatements) ? (Statements*) &*elseStatements : NULL;      if (i == 1) return (elseStatements) ? (Statements*) &*elseStatements : NULL;
617      return NULL;      return NULL;
# Line 573  void SelectCase::dump(int level) { Line 627  void SelectCase::dump(int level) {
627      printIndents(level);      printIndents(level);
628      if (select)      if (select)
629          if (select->isConstExpr())          if (select->isConstExpr())
630              printf("Case select %d\n", select->evalInt());              printf("Case select %lld\n", select->evalInt());
631          else          else
632              printf("Case select [runtime expr]\n");              printf("Case select [runtime expr]\n");
633      else      else
634          printf("Case select NULL\n");          printf("Case select NULL\n");
635      for (int i = 0; i < branches.size(); ++i) {      for (vmint i = 0; i < branches.size(); ++i) {
636          printIndents(level+1);          printIndents(level+1);
637          CaseBranch& branch = branches[i];          CaseBranch& branch = branches[i];
638          if (branch.from && branch.to)          if (branch.from && branch.to)
639              if (branch.from->isConstExpr() && branch.to->isConstExpr())              if (branch.from->isConstExpr() && branch.to->isConstExpr())
640                  printf("case %d to %d\n", branch.from->evalInt(), branch.to->evalInt());                  printf("case %lld to %lld\n", branch.from->evalInt(), branch.to->evalInt());
641              else if (branch.from->isConstExpr() && !branch.to->isConstExpr())              else if (branch.from->isConstExpr() && !branch.to->isConstExpr())
642                  printf("case %d to [runtime expr]\n", branch.from->evalInt());                  printf("case %lld to [runtime expr]\n", branch.from->evalInt());
643              else if (!branch.from->isConstExpr() && branch.to->isConstExpr())              else if (!branch.from->isConstExpr() && branch.to->isConstExpr())
644                  printf("case [runtime expr] to %d\n", branch.to->evalInt());                  printf("case [runtime expr] to %lld\n", branch.to->evalInt());
645              else              else
646                  printf("case [runtime expr] to [runtime expr]\n");                  printf("case [runtime expr] to [runtime expr]\n");
647          else if (branch.from)          else if (branch.from)
648              if (branch.from->isConstExpr())              if (branch.from->isConstExpr())
649                  printf("case %d\n", branch.from->evalInt());                  printf("case %lld\n", branch.from->evalInt());
650              else              else
651                  printf("case [runtime expr]\n");                  printf("case [runtime expr]\n");
652          else          else
# Line 600  void SelectCase::dump(int level) { Line 654  void SelectCase::dump(int level) {
654      }      }
655  }  }
656    
657  int SelectCase::evalBranch() {  vmint SelectCase::evalBranch() {
658      int value = select->evalInt();      vmint value = select->evalInt();
659      for (int i = 0; i < branches.size(); ++i) {      for (vmint i = 0; i < branches.size(); ++i) {
660          if (branches.at(i).from && branches.at(i).to) { // i.e. "case 4 to 7" ...          if (branches.at(i).from && branches.at(i).to) { // i.e. "case 4 to 7" ...
661              if (branches.at(i).from->evalInt() <= value &&              if (branches.at(i).from->evalInt() <= value &&
662                  branches.at(i).to->evalInt() >= value) return i;                  branches.at(i).to->evalInt() >= value) return i;
# Line 613  int SelectCase::evalBranch() { Line 667  int SelectCase::evalBranch() {
667      return -1;      return -1;
668  }  }
669    
670  Statements* SelectCase::branch(uint i) const {  Statements* SelectCase::branch(vmuint i) const {
671      if (i < branches.size())      if (i < branches.size())
672          return const_cast<Statements*>( &*branches[i].statements );          return const_cast<Statements*>( &*branches[i].statements );
673      return NULL;      return NULL;
# Line 621  Statements* SelectCase::branch(uint i) c Line 675  Statements* SelectCase::branch(uint i) c
675    
676  bool SelectCase::isPolyphonic() const {  bool SelectCase::isPolyphonic() const {
677      if (select->isPolyphonic()) return true;      if (select->isPolyphonic()) return true;
678      for (int i = 0; i < branches.size(); ++i)      for (vmint i = 0; i < branches.size(); ++i)
679          if (branches[i].statements->isPolyphonic())          if (branches[i].statements->isPolyphonic())
680              return true;              return true;
681      return false;      return false;
# Line 650  void While::dump(int level) { Line 704  void While::dump(int level) {
704      printIndents(level);      printIndents(level);
705      if (m_condition)      if (m_condition)
706          if (m_condition->isConstExpr())          if (m_condition->isConstExpr())
707              printf("while (%d) {\n", m_condition->evalInt());              printf("while (%lld) {\n", m_condition->evalInt());
708          else          else
709              printf("while ([runtime expr]) {\n");              printf("while ([runtime expr]) {\n");
710      else      else
# 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 693  bool ConcatString::isConstExpr() const { Line 768  bool ConcatString::isConstExpr() const {
768      return lhs->isConstExpr() && rhs->isConstExpr();      return lhs->isConstExpr() && rhs->isConstExpr();
769  }  }
770    
771  int Relation::evalInt() {  vmint Relation::evalInt() {
772      switch (type) {      switch (type) {
773          case LESS_THAN:          case LESS_THAN:
774              return lhs->evalInt() < rhs->evalInt();              return lhs->evalInt() < rhs->evalInt();
# Line 751  bool Relation::isConstExpr() const { Line 826  bool Relation::isConstExpr() const {
826      return lhs->isConstExpr() && rhs->isConstExpr();      return lhs->isConstExpr() && rhs->isConstExpr();
827  }  }
828    
829  int Or::evalInt() {  vmint Or::evalInt() {
830      IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);      IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);
831      if (pLHS->evalInt()) return 1;      if (pLHS->evalInt()) return 1;
832      IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);;      IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);;
# Line 769  void Or::dump(int level) { Line 844  void Or::dump(int level) {
844      printf(")\n");      printf(")\n");
845  }  }
846    
847  int And::evalInt() {  vmint BitwiseOr::evalInt() {
848        IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);
849        IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);
850        return pLHS->evalInt() | pRHS->evalInt();
851    }
852    
853    void BitwiseOr::dump(int level) {
854        printIndents(level);
855        printf("BitwiseOr(\n");
856        lhs->dump(level+1);
857        printIndents(level);
858        printf(",\n");
859        rhs->dump(level+1);
860        printIndents(level);
861        printf(")\n");
862    }
863    
864    vmint And::evalInt() {
865      IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);      IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);
866      if (!pLHS->evalInt()) return 0;      if (!pLHS->evalInt()) return 0;
867      IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);      IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);
# Line 787  void And::dump(int level) { Line 879  void And::dump(int level) {
879      printf(")\n");      printf(")\n");
880  }  }
881    
882    vmint BitwiseAnd::evalInt() {
883        IntExpr* pLHS = dynamic_cast<IntExpr*>(&*lhs);
884        IntExpr* pRHS = dynamic_cast<IntExpr*>(&*rhs);
885        return pLHS->evalInt() & pRHS->evalInt();
886    }
887    
888    void BitwiseAnd::dump(int level) {
889        printIndents(level);
890        printf("BitwiseAnd(\n");
891        lhs->dump(level+1);
892        printIndents(level);
893        printf(",\n");
894        rhs->dump(level+1);
895        printIndents(level);
896        printf(")\n");
897    }
898    
899  void Not::dump(int level) {  void Not::dump(int level) {
900      printIndents(level);      printIndents(level);
901      printf("Not(\n");      printf("Not(\n");
# Line 795  void Not::dump(int level) { Line 904  void Not::dump(int level) {
904      printf(")\n");      printf(")\n");
905  }  }
906    
907    void BitwiseNot::dump(int level) {
908        printIndents(level);
909        printf("BitwiseNot(\n");
910        expr->dump(level+1);
911        printIndents(level);
912        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 828  ParserContext::~ParserContext() { Line 952  ParserContext::~ParserContext() {
952      }      }
953  }  }
954    
955  void ParserContext::addErr(int line, int column, const char* txt) {  void ParserContext::addErr(int firstLine, int lastLine, int firstColumn, int lastColumn, const char* txt) {
956      ParserIssue e;      ParserIssue e;
957      e.type = PARSER_ERROR;      e.type = PARSER_ERROR;
958      e.txt = txt;      e.txt = txt;
959      e.line = line;      e.firstLine = firstLine;
960      e.column = column;      e.lastLine = lastLine;
961        e.firstColumn = firstColumn;
962        e.lastColumn = lastColumn;
963      vErrors.push_back(e);      vErrors.push_back(e);
964      vIssues.push_back(e);      vIssues.push_back(e);
965  }  }
966    
967  void ParserContext::addWrn(int line, int column, const char* txt) {  void ParserContext::addWrn(int firstLine, int lastLine, int firstColumn, int lastColumn, const char* txt) {
968      ParserIssue w;      ParserIssue w;
969      w.type = PARSER_WARNING;      w.type = PARSER_WARNING;
970      w.txt = txt;      w.txt = txt;
971      w.line = line;      w.firstLine = firstLine;
972      w.column = column;      w.lastLine = lastLine;
973        w.firstColumn = firstColumn;
974        w.lastColumn = lastColumn;
975      vWarnings.push_back(w);      vWarnings.push_back(w);
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 879  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 889  VMEventHandler* ParserContext::eventHand Line 1030  VMEventHandler* ParserContext::eventHand
1030      return handlers->eventHandlerByName(name);      return handlers->eventHandlerByName(name);
1031  }  }
1032    
1033  void ParserContext::registerBuiltInConstIntVariables(const std::map<String,int>& vars) {  void ParserContext::registerBuiltInConstIntVariables(const std::map<String,vmint>& vars) {
1034      for (std::map<String,int>::const_iterator it = vars.begin();      for (std::map<String,vmint>::const_iterator it = vars.begin();
1035           it != vars.end(); ++it)           it != vars.end(); ++it)
1036      {      {
1037          ConstIntVariableRef ref = new ConstIntVariable(it->second);          ConstIntVariableRef ref = new ConstIntVariable(it->second);
# Line 898  void ParserContext::registerBuiltInConst Line 1039  void ParserContext::registerBuiltInConst
1039      }      }
1040  }  }
1041    
1042  void ParserContext::registerBuiltInIntVariables(const std::map<String,VMIntRelPtr*>& vars) {  void ParserContext::registerBuiltInIntVariables(const std::map<String,VMIntPtr*>& vars) {
1043      for (std::map<String,VMIntRelPtr*>::const_iterator it = vars.begin();      for (std::map<String,VMIntPtr*>::const_iterator it = vars.begin();
1044           it != vars.end(); ++it)           it != vars.end(); ++it)
1045      {      {
1046          BuiltInIntVariableRef ref = new BuiltInIntVariable(it->first, it->second);          BuiltInIntVariableRef ref = new BuiltInIntVariable(it->first, it->second);
# Line 916  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    ExecContext::ExecContext() :
1070        status(VM_EXEC_NOT_RUNNING), flags(STMT_SUCCESS), stackFrame(-1),
1071        suspendMicroseconds(0), instructionsCount(0)
1072    {
1073        exitRes.value = NULL;
1074    }
1075    
1076    void ExecContext::forkTo(VMExecContext* ectx) const {
1077        ExecContext* child = dynamic_cast<ExecContext*>(ectx);
1078    
1079        child->polyphonicIntMemory.copyFlatFrom(polyphonicIntMemory);
1080        child->status = VM_EXEC_SUSPENDED;
1081        child->flags = STMT_SUCCESS;
1082        child->stack.copyFlatFrom(stack);
1083        child->stackFrame = stackFrame;
1084        child->suspendMicroseconds = 0;
1085        child->instructionsCount = 0;
1086    }
1087    
1088  } // namespace LinuxSampler  } // namespace LinuxSampler
Legend:
Removed from v.2888  
changed lines
  Added in v.3557
  ViewVC Help
Powered by ViewVC