├── .gitignore ├── LICENSE ├── README.md ├── build.sbt ├── project ├── build.properties └── plugins.sbt └── src ├── main └── scala │ └── com │ └── manyangled │ └── gnuplot4s │ ├── Dumb.scala │ ├── GPScript.scala │ ├── Plot.scala │ ├── RawTerm.scala │ ├── Session.scala │ └── package.scala └── site └── index.html /.gitignore: -------------------------------------------------------------------------------- 1 | *.class 2 | *.log 3 | 4 | # sbt specific 5 | .cache 6 | .history 7 | .lib/ 8 | dist/* 9 | target/ 10 | lib_managed/ 11 | src_managed/ 12 | project/boot/ 13 | project/plugins/project/ 14 | 15 | # Scala-IDE specific 16 | .scala_dependencies 17 | .worksheet 18 | -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | Apache License 2 | Version 2.0, January 2004 3 | http://www.apache.org/licenses/ 4 | 5 | TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION 6 | 7 | 1. Definitions. 8 | 9 | "License" shall mean the terms and conditions for use, reproduction, 10 | and distribution as defined by Sections 1 through 9 of this document. 11 | 12 | "Licensor" shall mean the copyright owner or entity authorized by 13 | the copyright owner that is granting the License. 14 | 15 | "Legal Entity" shall mean the union of the acting entity and all 16 | other entities that control, are controlled by, or are under common 17 | control with that entity. For the purposes of this definition, 18 | "control" means (i) the power, direct or indirect, to cause the 19 | direction or management of such entity, whether by contract or 20 | otherwise, or (ii) ownership of fifty percent (50%) or more of the 21 | outstanding shares, or (iii) beneficial ownership of such entity. 22 | 23 | "You" (or "Your") shall mean an individual or Legal Entity 24 | exercising permissions granted by this License. 25 | 26 | "Source" form shall mean the preferred form for making modifications, 27 | including but not limited to software source code, documentation 28 | source, and configuration files. 29 | 30 | "Object" form shall mean any form resulting from mechanical 31 | transformation or translation of a Source form, including but 32 | not limited to compiled object code, generated documentation, 33 | and conversions to other media types. 34 | 35 | "Work" shall mean the work of authorship, whether in Source or 36 | Object form, made available under the License, as indicated by a 37 | copyright notice that is included in or attached to the work 38 | (an example is provided in the Appendix below). 39 | 40 | "Derivative Works" shall mean any work, whether in Source or Object 41 | form, that is based on (or derived from) the Work and for which the 42 | editorial revisions, annotations, elaborations, or other modifications 43 | represent, as a whole, an original work of authorship. For the purposes 44 | of this License, Derivative Works shall not include works that remain 45 | separable from, or merely link (or bind by name) to the interfaces of, 46 | the Work and Derivative Works thereof. 47 | 48 | "Contribution" shall mean any work of authorship, including 49 | the original version of the Work and any modifications or additions 50 | to that Work or Derivative Works thereof, that is intentionally 51 | submitted to Licensor for inclusion in the Work by the copyright owner 52 | or by an individual or Legal Entity authorized to submit on behalf of 53 | the copyright owner. For the purposes of this definition, "submitted" 54 | means any form of electronic, verbal, or written communication sent 55 | to the Licensor or its representatives, including but not limited to 56 | communication on electronic mailing lists, source code control systems, 57 | and issue tracking systems that are managed by, or on behalf of, the 58 | Licensor for the purpose of discussing and improving the Work, but 59 | excluding communication that is conspicuously marked or otherwise 60 | designated in writing by the copyright owner as "Not a Contribution." 61 | 62 | "Contributor" shall mean Licensor and any individual or Legal Entity 63 | on behalf of whom a Contribution has been received by Licensor and 64 | subsequently incorporated within the Work. 65 | 66 | 2. Grant of Copyright License. Subject to the terms and conditions of 67 | this License, each Contributor hereby grants to You a perpetual, 68 | worldwide, non-exclusive, no-charge, royalty-free, irrevocable 69 | copyright license to reproduce, prepare Derivative Works of, 70 | publicly display, publicly perform, sublicense, and distribute the 71 | Work and such Derivative Works in Source or Object form. 72 | 73 | 3. Grant of Patent License. Subject to the terms and conditions of 74 | this License, each Contributor hereby grants to You a perpetual, 75 | worldwide, non-exclusive, no-charge, royalty-free, irrevocable 76 | (except as stated in this section) patent license to make, have made, 77 | use, offer to sell, sell, import, and otherwise transfer the Work, 78 | where such license applies only to those patent claims licensable 79 | by such Contributor that are necessarily infringed by their 80 | Contribution(s) alone or by combination of their Contribution(s) 81 | with the Work to which such Contribution(s) was submitted. If You 82 | institute patent litigation against any entity (including a 83 | cross-claim or counterclaim in a lawsuit) alleging that the Work 84 | or a Contribution incorporated within the Work constitutes direct 85 | or contributory patent infringement, then any patent licenses 86 | granted to You under this License for that Work shall terminate 87 | as of the date such litigation is filed. 88 | 89 | 4. Redistribution. You may reproduce and distribute copies of the 90 | Work or Derivative Works thereof in any medium, with or without 91 | modifications, and in Source or Object form, provided that You 92 | meet the following conditions: 93 | 94 | (a) You must give any other recipients of the Work or 95 | Derivative Works a copy of this License; and 96 | 97 | (b) You must cause any modified files to carry prominent notices 98 | stating that You changed the files; and 99 | 100 | (c) You must retain, in the Source form of any Derivative Works 101 | that You distribute, all copyright, patent, trademark, and 102 | attribution notices from the Source form of the Work, 103 | excluding those notices that do not pertain to any part of 104 | the Derivative Works; and 105 | 106 | (d) If the Work includes a "NOTICE" text file as part of its 107 | distribution, then any Derivative Works that You distribute must 108 | include a readable copy of the attribution notices contained 109 | within such NOTICE file, excluding those notices that do not 110 | pertain to any part of the Derivative Works, in at least one 111 | of the following places: within a NOTICE text file distributed 112 | as part of the Derivative Works; within the Source form or 113 | documentation, if provided along with the Derivative Works; or, 114 | within a display generated by the Derivative Works, if and 115 | wherever such third-party notices normally appear. The contents 116 | of the NOTICE file are for informational purposes only and 117 | do not modify the License. You may add Your own attribution 118 | notices within Derivative Works that You distribute, alongside 119 | or as an addendum to the NOTICE text from the Work, provided 120 | that such additional attribution notices cannot be construed 121 | as modifying the License. 122 | 123 | You may add Your own copyright statement to Your modifications and 124 | may provide additional or different license terms and conditions 125 | for use, reproduction, or distribution of Your modifications, or 126 | for any such Derivative Works as a whole, provided Your use, 127 | reproduction, and distribution of the Work otherwise complies with 128 | the conditions stated in this License. 129 | 130 | 5. Submission of Contributions. Unless You explicitly state otherwise, 131 | any Contribution intentionally submitted for inclusion in the Work 132 | by You to the Licensor shall be under the terms and conditions of 133 | this License, without any additional terms or conditions. 134 | Notwithstanding the above, nothing herein shall supersede or modify 135 | the terms of any separate license agreement you may have executed 136 | with Licensor regarding such Contributions. 137 | 138 | 6. Trademarks. This License does not grant permission to use the trade 139 | names, trademarks, service marks, or product names of the Licensor, 140 | except as required for reasonable and customary use in describing the 141 | origin of the Work and reproducing the content of the NOTICE file. 142 | 143 | 7. Disclaimer of Warranty. Unless required by applicable law or 144 | agreed to in writing, Licensor provides the Work (and each 145 | Contributor provides its Contributions) on an "AS IS" BASIS, 146 | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or 147 | implied, including, without limitation, any warranties or conditions 148 | of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A 149 | PARTICULAR PURPOSE. You are solely responsible for determining the 150 | appropriateness of using or redistributing the Work and assume any 151 | risks associated with Your exercise of permissions under this License. 152 | 153 | 8. Limitation of Liability. In no event and under no legal theory, 154 | whether in tort (including negligence), contract, or otherwise, 155 | unless required by applicable law (such as deliberate and grossly 156 | negligent acts) or agreed to in writing, shall any Contributor be 157 | liable to You for damages, including any direct, indirect, special, 158 | incidental, or consequential damages of any character arising as a 159 | result of this License or out of the use or inability to use the 160 | Work (including but not limited to damages for loss of goodwill, 161 | work stoppage, computer failure or malfunction, or any and all 162 | other commercial damages or losses), even if such Contributor 163 | has been advised of the possibility of such damages. 164 | 165 | 9. Accepting Warranty or Additional Liability. While redistributing 166 | the Work or Derivative Works thereof, You may choose to offer, 167 | and charge a fee for, acceptance of support, warranty, indemnity, 168 | or other liability obligations and/or rights consistent with this 169 | License. However, in accepting such obligations, You may act only 170 | on Your own behalf and on Your sole responsibility, not on behalf 171 | of any other Contributor, and only if You agree to indemnify, 172 | defend, and hold each Contributor harmless for any liability 173 | incurred by, or claims asserted against, such Contributor by reason 174 | of your accepting any such warranty or additional liability. 175 | 176 | END OF TERMS AND CONDITIONS 177 | 178 | APPENDIX: How to apply the Apache License to your work. 179 | 180 | To apply the Apache License to your work, attach the following 181 | boilerplate notice, with the fields enclosed by brackets "{}" 182 | replaced with your own identifying information. (Don't include 183 | the brackets!) The text should be enclosed in the appropriate 184 | comment syntax for the file format. We also recommend that a 185 | file or class name and description of purpose be included on the 186 | same "printed page" as the copyright notice for easier 187 | identification within third-party archives. 188 | 189 | Copyright {yyyy} {name of copyright owner} 190 | 191 | Licensed under the Apache License, Version 2.0 (the "License"); 192 | you may not use this file except in compliance with the License. 193 | You may obtain a copy of the License at 194 | 195 | http://www.apache.org/licenses/LICENSE-2.0 196 | 197 | Unless required by applicable law or agreed to in writing, software 198 | distributed under the License is distributed on an "AS IS" BASIS, 199 | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 200 | See the License for the specific language governing permissions and 201 | limitations under the License. 202 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # gnuplot4s 2 | A well typed scala interface to gnuplot 3 | 4 | ### Docs 5 | API documentation is [here](https://erikerlandson.github.io/gnuplot4s/latest/api/) 6 | 7 | ### How to use in your project 8 | 9 | As of 0.2.0, `gnuplot4s` is published via Sonatype, and so default resolvers will normally be sufficient. 10 | The `gnuplot4s` library is built for Scala 2.12 and 2.13. 11 | 12 | ```scala 13 | libraryDependencies += "com.manyangled" %% "gnuplot4s" % "0.2.0" 14 | ``` 15 | 16 | The API for `gnuplot4s` `0.2.0` is identical to `0.1.0`, with the exception that the `cats-free` dependency has been upgraded to `2.6.1`, 17 | and it is no longer compiled for Scala 2.11. 18 | 19 | ### Examples 20 | 21 | ```scala 22 | scala> import com.manyangled.gnuplot4s._ 23 | import com.manyangled.gnuplot4s._ 24 | 25 | scala> val data = Array((0,0), (1,1), (2,2)) 26 | data: Array[(Int, Int)] = Array((0,0), (1,1), (2,2)) 27 | 28 | scala> val gnuplot = Session().block("data", data).plot(Plot().block("data").style(PlotStyle.Points)).term(Dumb()) 29 | gnuplot: com.manyangled.gnuplot4s.Session = Session(Map(data -> BlockRows()),Dumb(None,None),Console,Options(None,None,None),Vector(Plot((0,1),Points,data)),/usr/bin/gnuplot) 30 | 31 | scala> gnuplot.render 32 | 33 | scala> 34 | 35 | 36 | 2 +-+--------------+-----------------+----------------+--------------+-A 37 | + + + + + 38 | | $data using 0:1 A | 39 | | | 40 | | | 41 | 1.5 +-+ +-+ 42 | | | 43 | | | 44 | | | 45 | 1 +-+ A +-+ 46 | | | 47 | | | 48 | | | 49 | | | 50 | 0.5 +-+ +-+ 51 | | | 52 | | | 53 | | | 54 | + + + + + 55 | 0 A-+--------------+-----------------+----------------+--------------+-+ 56 | 0 0.5 1 1.5 2 57 | 58 | scala> val gnuplot = Session().block("data", data).plot(Plot().block("data").style(PlotStyle.LinesPoints)).term(Dumb()) 59 | gnuplot: com.manyangled.gnuplot4s.Session = Session(Map(data -> BlockRows()),Dumb(None,None),Console,Options(None,None,None),Vector(Plot((0,1),LinesPoints,data)),/usr/bin/gnuplot) 60 | 61 | scala> gnuplot.render 62 | 63 | scala> 64 | 65 | 66 | 2 +-+--------------+-----------------+----------------+--------------+*A 67 | + + + + **** + 68 | | $data using 0:1****A*** | 69 | | **** | 70 | | **** | 71 | 1.5 +-+ *** +-+ 72 | | **** | 73 | | **** | 74 | | **** | 75 | 1 +-+ *A* +-+ 76 | | **** | 77 | | *** | 78 | | **** | 79 | | *** | 80 | 0.5 +-+ **** +-+ 81 | | *** | 82 | | **** | 83 | | *** | 84 | + **** + + + + 85 | 0 A*+--------------+-----------------+----------------+--------------+-+ 86 | 0 0.5 1 1.5 2 87 | 88 | ``` 89 | -------------------------------------------------------------------------------- /build.sbt: -------------------------------------------------------------------------------- 1 | // xsbt clean unidoc previewSite 2 | // xsbt clean unidoc ghpagesPushSite 3 | name := "gnuplot4s" 4 | 5 | organization := "com.manyangled" 6 | 7 | version := "0.2.1-SNAP" 8 | 9 | scalaVersion := "2.13.6" 10 | 11 | crossScalaVersions := Seq("2.12.14", "2.13.6") 12 | 13 | pomIncludeRepository := { _ => false } 14 | 15 | publishMavenStyle := true 16 | 17 | publishTo := { 18 | val nexus = "https://oss.sonatype.org/" 19 | if (isSnapshot.value) 20 | Some("snapshots" at nexus + "content/repositories/snapshots") 21 | else 22 | Some("releases" at nexus + "service/local/staging/deploy/maven2") 23 | } 24 | 25 | licenses += ("Apache-2.0", url("http://opensource.org/licenses/Apache-2.0")) 26 | 27 | homepage := Some(url("https://github.com/erikerlandson/gnuplot4s/")) 28 | 29 | scmInfo := Some( 30 | ScmInfo( 31 | url("https://github.com/erikerlandson/gnuplot4s.git"), 32 | "scm:git@github.com:erikerlandson/gnuplot4s.git" 33 | ) 34 | ) 35 | 36 | developers := List( 37 | Developer( 38 | id = "erikerlandson", 39 | name = "Erik Erlandson", 40 | email = "eje@redhat.com", 41 | url = url("https://erikerlandson.github.io/") 42 | ) 43 | ) 44 | 45 | libraryDependencies ++= Seq( 46 | "org.typelevel" %% "cats-free" % "2.6.1" 47 | ) 48 | 49 | scalacOptions ++= Seq("-unchecked", "-deprecation", "-feature") 50 | 51 | scalacOptions in (Compile, doc) ++= Seq("-doc-root-content", baseDirectory.value+"/root-doc.txt") 52 | 53 | enablePlugins(ScalaUnidocPlugin, GhpagesPlugin) 54 | 55 | siteSubdirName in ScalaUnidoc := "latest/api" 56 | 57 | addMappingsToSiteDir(mappings in (ScalaUnidoc, packageDoc), siteSubdirName in ScalaUnidoc) 58 | 59 | git.remoteRepo := "git@github.com:erikerlandson/gnuplot4s.git" 60 | -------------------------------------------------------------------------------- /project/build.properties: -------------------------------------------------------------------------------- 1 | sbt.version=1.3.12 2 | -------------------------------------------------------------------------------- /project/plugins.sbt: -------------------------------------------------------------------------------- 1 | resolvers += "jgit-repo" at "https://download.eclipse.org/jgit/maven" 2 | 3 | addSbtPlugin("com.typesafe.sbt" % "sbt-ghpages" % "0.6.3") 4 | 5 | addSbtPlugin("com.eed3si9n" % "sbt-unidoc" % "0.4.3") 6 | 7 | addSbtPlugin("io.crashbox" % "sbt-gpg" % "0.2.1") 8 | 9 | addSbtPlugin("org.xerial.sbt" % "sbt-sonatype" % "3.9.2") 10 | -------------------------------------------------------------------------------- /src/main/scala/com/manyangled/gnuplot4s/Dumb.scala: -------------------------------------------------------------------------------- 1 | package com.manyangled.gnuplot4s 2 | 3 | case class Dumb(siz: Option[(Int, Int)], asp: Option[(Int, Int)]) extends TermInterface { 4 | require(siz.fold(true) { s => s._1 > 0 && s._2 > 0 }) 5 | require(asp.fold(true) { a => a._1 > 0 && a._2 > 0 }) 6 | def size(w: Int, h: Int) = this.copy(siz = Some((w, h))) 7 | def size(s: Int) = this.copy(siz = Some((s, s))) 8 | def aspect(h: Int, v: Int) = this.copy(asp = Some((h, v))) 9 | def aspect(h: Int) = this.copy(asp = Some((h, 1))) 10 | def sessionClause = () => { 11 | Iterator("set terminal dumb") ++ 12 | (siz.map { s => Iterator(s" size ${s._1},${s._2}") }.getOrElse(Iterator.empty)) ++ 13 | (asp.map { a => Iterator(s" aspect ${a._1},${a._2}") }.getOrElse(Iterator.empty)) ++ 14 | Iterator("\n") 15 | } 16 | } 17 | 18 | object Dumb { 19 | def apply(): Dumb = build 20 | def build = Dumb(None, None) 21 | } 22 | -------------------------------------------------------------------------------- /src/main/scala/com/manyangled/gnuplot4s/GPScript.scala: -------------------------------------------------------------------------------- 1 | package com.manyangled.gnuplot4s 2 | 3 | import cats.free.Free 4 | import cats.Functor 5 | 6 | sealed trait GPScript[+Next] 7 | 8 | case class BlockRows(rows: () => Iterator[String]) 9 | 10 | object GPScript { 11 | case class End() extends GPScript[Nothing] 12 | case class Str[Next](str: String, next: Next) extends GPScript[Next] 13 | case class Opt[A, Next](opt: Option[A], onValue: A => String, onNone: () => Option[String], next: Next) extends GPScript[Next] 14 | case class Data[Next](blks: Map[String, BlockRows], next: Next) extends GPScript[Next] 15 | case class Clause[Next](lines: () => Iterator[String], next: Next) extends GPScript[Next] 16 | case class Sub[NextS, Next](sub: Free[GPScript, NextS], next: Next) extends GPScript[Next] 17 | 18 | implicit val optionRunFunctor: Functor[GPScript] = new Functor[GPScript] { 19 | def map[A, B](a: GPScript[A])(f: A => B): GPScript[B] = a match { 20 | case Str(str, next) => Str(str, f(next)) 21 | case Opt(opt, onv, ond, next) => Opt(opt, onv, ond, f(next)) 22 | case Data(blks, next) => Data(blks, f(next)) 23 | case Clause(lines, next) => Clause(lines, f(next)) 24 | case Sub(sub, next) => Sub(sub, f(next)) 25 | case End() => End() 26 | } 27 | } 28 | 29 | def end(): Free[GPScript, Unit] = Free.liftF[GPScript, Unit](End()) 30 | 31 | def str(s: => String): Free[GPScript, Unit] = Free.liftF[GPScript, Unit](Str(s, ())) 32 | 33 | def opt[A](o: Option[A])(onv: A => String, ond: => Option[String] = { None }): Free[GPScript, Unit] = 34 | Free.liftF[GPScript, Unit](Opt(o, onv, () => ond, ())) 35 | 36 | def data(blks: Map[String, BlockRows]): Free[GPScript, Unit] = 37 | Free.liftF[GPScript, Unit](Data(blks, ())) 38 | 39 | def clause(lines: () => Iterator[String]): Free[GPScript, Unit] = 40 | Free.liftF[GPScript, Unit](Clause(lines, ())) 41 | 42 | def sub[N](sub: Free[GPScript, N]): Free[GPScript, Unit] = 43 | Free.liftF[GPScript, Unit](Sub(sub, ())) 44 | 45 | def run[Next, U](prog: Free[GPScript, Next], f: String => U = print(_)): Unit = 46 | prog.fold({ _: Next => () }, { 47 | case Str(str, next) => { 48 | f(str) 49 | run(next, f) 50 | } 51 | case Opt(opt, onv, ond, next) => { 52 | opt.fold(ond().foreach(f)){ v => f(onv(v)); () } 53 | run(next, f) 54 | } 55 | case Data(blks, next) => { 56 | blks.foreach { case (n, br) => 57 | f(s"$$$n << EOD\n") 58 | br.rows().foreach(f) 59 | f("EOD\n") 60 | } 61 | run(next, f) 62 | } 63 | case Clause(lines, next) => { 64 | lines().foreach(f) 65 | run(next, f) 66 | } 67 | case Sub(sub, next) => { 68 | run(sub, f) 69 | run(next, f) 70 | } 71 | case End() => { 72 | () 73 | } 74 | }) 75 | } 76 | -------------------------------------------------------------------------------- /src/main/scala/com/manyangled/gnuplot4s/Plot.scala: -------------------------------------------------------------------------------- 1 | package com.manyangled.gnuplot4s 2 | 3 | sealed trait PlotStyle 4 | 5 | object PlotStyle { 6 | case object Lines extends PlotStyle 7 | case object Points extends PlotStyle 8 | case object LinesPoints extends PlotStyle 9 | def str(ps: PlotStyle) = ps match { 10 | case Lines => "lines" 11 | case Points => "points" 12 | case LinesPoints => "linespoints" 13 | } 14 | } 15 | 16 | case class Plot(usin: (Int, Int), styl: PlotStyle, blk: String) extends PlotInterface { 17 | require(usin._1 >= 0 && usin._2 >= 1) 18 | def using(xc: Int, yc: Int) = this.copy(usin = (xc, yc)) 19 | def using(yc: Int) = this.copy(usin = (0, yc)) 20 | def style(ps: PlotStyle) = this.copy(styl = ps) 21 | def block(b: String) = this.copy(blk = b) 22 | def plotClause = () => { 23 | List( 24 | s" $$$blk", 25 | s" using ${usin._1}:${usin._2}", 26 | s" with ${PlotStyle.str(styl)}" 27 | ).toIterator 28 | } 29 | } 30 | 31 | object Plot { 32 | def apply(): Plot = build 33 | def build = Plot((0, 1), PlotStyle.LinesPoints, "data") 34 | 35 | def plotClause(plots: Seq[PlotInterface]): () => Iterator[String] = { 36 | if (plots.length < 1) { 37 | () => { Iterator.empty } 38 | } else { 39 | () => { 40 | val z = Iterator("plot") ++ ((plots.head.plotClause)()) 41 | val r = plots.tail.map(_.plotClause).foldLeft(z) { case (t, c) => 42 | t ++ Iterator(", ") ++ (c()) 43 | } 44 | r ++ Iterator("\n") 45 | } 46 | } 47 | } 48 | } 49 | -------------------------------------------------------------------------------- /src/main/scala/com/manyangled/gnuplot4s/RawTerm.scala: -------------------------------------------------------------------------------- 1 | package com.manyangled.gnuplot4s 2 | 3 | case class RawTerm(termClause: Option[String]) extends TermInterface { 4 | def clause(cl: String) = this.copy(termClause = Some(cl)) 5 | def sessionClause = () => { 6 | termClause.map { cl => Iterator(cl + "\n") }.getOrElse(Iterator.empty) 7 | } 8 | } 9 | 10 | object RawTerm { 11 | def apply(cl: String): RawTerm = RawTerm(Some(cl)) 12 | def apply(): RawTerm = build 13 | def build = RawTerm(None) 14 | } 15 | -------------------------------------------------------------------------------- /src/main/scala/com/manyangled/gnuplot4s/Session.scala: -------------------------------------------------------------------------------- 1 | package com.manyangled.gnuplot4s 2 | 3 | case class Session( 4 | blks: Map[String, BlockRows], 5 | trm: TermInterface, 6 | out: Session.Output, 7 | opt: Session.Options, 8 | plots: Vector[PlotInterface], 9 | gpcmd: String 10 | ) { 11 | def gnuplot(cmd: String) = this.copy(gpcmd = cmd) 12 | def term(t2: TermInterface) = this.copy(trm = t2) 13 | def output(o: Session.Output) = this.copy(out = o) 14 | def plot() = this.copy(plots = Vector.empty[PlotInterface]) 15 | def plot(p: PlotInterface) = this.copy(plots = this.plots :+ p) 16 | def title(title: String) = this.copy(opt = opt.copy(title = Some(title))) 17 | def xLabel(xLabel: String) = this.copy(opt = opt.copy(xLabel = Some(xLabel))) 18 | def yLabel(yLabel: String) = this.copy(opt = opt.copy(yLabel = Some(yLabel))) 19 | def block() = this.copy(blks = Map.empty[String, BlockRows]) 20 | def block[R](name: String, data: Seq[R])(implicit toStrSeq: ToStringSeq[R]) = { 21 | val br = BlockRows(() => { data.toIterator.map { r => toStrSeq(r).mkString(" ") + "\n" } }) 22 | this.copy(blks = this.blks + (name -> br)) 23 | } 24 | } 25 | 26 | object Session { 27 | case class Options( 28 | title: Option[String], 29 | xLabel: Option[String], 30 | yLabel: Option[String] 31 | ) 32 | object Options { 33 | def build = Options(None, None, None) 34 | } 35 | 36 | trait Output 37 | object Output { 38 | case object Console extends Output 39 | case object Collect extends Output 40 | case class File(fname: String) extends Output 41 | case class Pipe(cmd: String) extends Output 42 | } 43 | 44 | def apply(): Session = build 45 | def build = Session( 46 | Map.empty[String, BlockRows], 47 | Dumb.build, 48 | Output.Console, 49 | Options.build, 50 | Vector.empty[PlotInterface], 51 | "/usr/bin/gnuplot" 52 | ) 53 | } 54 | -------------------------------------------------------------------------------- /src/main/scala/com/manyangled/gnuplot4s/package.scala: -------------------------------------------------------------------------------- 1 | package com.manyangled 2 | 3 | package object gnuplot4s { 4 | import cats.free.Free 5 | 6 | trait TermInterface { 7 | def sessionClause: () => Iterator[String] 8 | } 9 | 10 | trait PlotInterface { 11 | def plotClause: () => Iterator[String] 12 | } 13 | 14 | trait ToString[T] { 15 | def apply(t: T): String 16 | } 17 | 18 | object ToString { 19 | implicit def implicitProductToString[P <: Product]: ToString[P] = new ToString[P] { 20 | def apply(p: P) = s""""${p}"""" 21 | } 22 | 23 | implicit val implicitStringToStr: ToString[String] = new ToString[String] { 24 | def apply(s: String) = s""""${s}"""" 25 | } 26 | 27 | implicit def implicitNumericToStr[N](implicit n: Numeric[N]): ToString[N] = new ToString[N] { 28 | def apply(n: N) = n.toString 29 | } 30 | } 31 | 32 | trait ToStringSeq[T] { 33 | def apply(t: T): Seq[String] 34 | } 35 | 36 | implicit val implicitToStrSeqString: ToStringSeq[String] = new ToStringSeq[String] { 37 | def apply(s: String) = Vector(s""""${s}"""") 38 | } 39 | 40 | implicit def implicitToStrNumeric[N](implicit num: Numeric[N]): ToStringSeq[N] = new ToStringSeq[N] { 41 | def apply(n: N) = Vector(n.toString) 42 | } 43 | 44 | implicit def implicitToStrTuple2[T1, T2](implicit ts1: ToString[T1], ts2: ToString[T2]): 45 | ToStringSeq[(T1, T2)] = new ToStringSeq[(T1, T2)] { 46 | def apply (t: (T1, T2)) = Vector(ts1(t._1), ts2(t._2)) 47 | } 48 | 49 | implicit class EnrichedSession(session: Session) { 50 | import scala.sys.process._ 51 | 52 | def render: Unit = { 53 | val prog = this.program 54 | val io = new ProcessIO({ in: java.io.OutputStream => 55 | GPScript.run(prog, { s => { 56 | in.write(s.getBytes()) 57 | } }) 58 | in.close() 59 | }, 60 | { out: java.io.InputStream => 61 | val isr = new java.io.InputStreamReader(out) 62 | val bufReader = new java.io.BufferedReader(isr) 63 | var line = bufReader.readLine() 64 | while (line != null) { 65 | println(line) 66 | line = bufReader.readLine() 67 | } 68 | bufReader.close() 69 | out.close() 70 | }, 71 | { err => () }) 72 | val cmd = List(session.gpcmd) 73 | cmd.run(io) 74 | } 75 | 76 | def print: Unit = GPScript.run(this.program) 77 | 78 | def program: Free[GPScript, Unit] = { 79 | for { 80 | _ <- GPScript.data(session.blks); 81 | _ <- GPScript.clause(session.trm.sessionClause); 82 | _ <- GPScript.opt(session.opt.title) { t => s"""set title "${t}"\n""" }; 83 | _ <- GPScript.opt(session.opt.xLabel) { t => s"""set xlabel "${t}"\n""" }; 84 | _ <- GPScript.opt(session.opt.yLabel) { t => s"""set ylabel "${t}"\n""" }; 85 | _ <- GPScript.clause(Plot.plotClause(session.plots)); 86 | _ <- GPScript.end() 87 | } yield () 88 | } 89 | } 90 | } 91 | -------------------------------------------------------------------------------- /src/site/index.html: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | Project Documentation 6 | 16 | 17 | 18 | Go to the project documentation 19 | 20 | 21 | 22 | --------------------------------------------------------------------------------