Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

" ".repeat issues in traverse Explainop.scala #2

Open
bshambaugh opened this issue Mar 14, 2020 · 0 comments
Open

" ".repeat issues in traverse Explainop.scala #2

bshambaugh opened this issue Mar 14, 2020 · 0 comments

Comments

@bshambaugh
Copy link

" ".repeat creates problems in java 1.80_241, scala 2.11.2, sbt 1.3.7

/*
 * Copyright (c) 2019-2029 RReduX,Inc. [http://rredux.com]
 *
 * This file is part of mm-ADT.
 *
 *  mm-ADT is free software: you can redistribute it and/or modify it under
 *  the terms of the GNU Affero General Public License as published by the
 *  Free Software Foundation, either version 3 of the License, or (at your option)
 *  any later version.
 *
 *  mm-ADT is distributed in the hope that it will be useful, but WITHOUT ANY
 *  WARRANTY; without even the implied warranty of MERCHANTABILITY or
 *  FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public
 *  License for more details.
 *
 *  You should have received a copy of the GNU Affero General Public License
 *  along with mm-ADT. If not, see <https://www.gnu.org/licenses/>.
 *
 *  You can be released from the requirements of the license by purchasing a
 *  commercial license from RReduX,Inc. at [info@rredux.com].
 */

package org.mmadt.language.obj.op.traverser

import org.mmadt.language.Tokens
import org.mmadt.language.obj.`type`.{StrType, Type}
import org.mmadt.language.obj.op.TraverserInstruction
import org.mmadt.language.obj.value.StrValue
import org.mmadt.language.obj.{Inst, Obj, Str}
import org.mmadt.processor.Traverser
import org.mmadt.storage.StorageFactory._
import org.mmadt.storage.obj.value.VInst

import scala.collection.mutable

/**
 * @author Marko A. Rodriguez (http://markorodriguez.com)
 */
trait ExplainOp {
  this:Type[Obj] =>

  def explain():StrType = vstr(name = Tokens.str,value = ExplainOp.printableTable(asType(this)),q = qOne).start()
}

object ExplainOp {
  def apply():Inst[Obj,Str] = new ExplainInst

  class ExplainInst extends VInst[Obj,Str]((Tokens.explain,Nil))  {
    override def apply(trav:Traverser[Obj]):Traverser[Str] ={
      trav.split(trav.obj().asInstanceOf[Type[Obj]].explain())
    }
  }

  private type Row = (Int,Inst[Obj,Obj],Type[Obj],Type[Obj],mutable.LinkedHashMap[String,Obj])

  private def explain(atype:Type[Obj],state:mutable.LinkedHashMap[String,Obj],depth:Int = 0):List[Row] ={
    val report = atype.insts.foldLeft(List[Row]())((a,b) => {
      if (b._2.isInstanceOf[TraverserInstruction]) state += (b._2.arg0[StrValue]().value -> b._2.apply(Traverser.standard(b._1)).obj().asInstanceOf[Type[Obj]].range)
      val temp  = if (b._2.isInstanceOf[TraverserInstruction]) a else a :+ (depth,b._2,lastRange(b._1),b._2.apply(Traverser.standard(b._1)).obj().asInstanceOf[Type[Obj]].range,mutable.LinkedHashMap(state.toSeq:_*))
      val inner = b._2.args().foldLeft(List[Row]())((x,y) => x ++ (y match {
        case btype:Type[Obj] => explain(btype,mutable.LinkedHashMap(state.toSeq:_*),depth + 1)
        case _ => Nil
      }))
      temp ++ inner
    })
    report
  }

  private def lastRange(atype:Type[Obj]):Type[Obj] = if (atype.insts.isEmpty) atype else atype.linvert().range

  def printableTable(atype:Type[Obj]):String ={
    val report                = explain(atype,mutable.LinkedHashMap.empty[String,Obj])
    val c1                    = report.map(x => x._2.toString.length).max + 4
    val c2                    = report.map(x => x._3.toString.length).max + 4
    val c3                    = report.map(x => x._4.toString.length).max + 4
    val builder:StringBuilder = new StringBuilder()
    builder
     //  .append("instruction").append(" ".repeat(Math.abs(11 - c1)))
      // removed because it does not work
      //      .append("domain").append(" ".repeat(Math.abs(6 - c2)))
      // .append(" ".repeat(5))
      // .append("range").append(" ".repeat(Math.abs(6 - c3)))
      .append("state").append("\n")
     //  builder.append("-".repeat(builder.length)).append("\n")
    report.foldLeft(builder)((a,b) => a
      //  .append(" ".repeat(b._1))
     //  .append(b._2).append(" ".repeat(Math.abs(c1 - (b._2.toString.length))))
     // .append(b._3).append(" ".repeat(Math.abs(c2 - (b._3.toString.length) - (b._1))))
     // .append("=>").append(" ".repeat(3)).append(" ".repeat(b._1))
     // .append(b._4).append(" ".repeat(Math.abs(c3 - (b._4.toString.length) - (b._1))))
      .append(b._5.foldLeft("")((x,y) => x + (y._2 + "<" + y._1 + "> "))).append("\n"))
    "\n" + atype.toString + "\n\n" + builder.toString()
  }
}

@bshambaugh bshambaugh changed the title " ".repeat issues in taverserse Explainop.scala " ".repeat issues in traverse Explainop.scala Mar 14, 2020
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

1 participant