@ironm00n/pyret-lang 0.0.4 → 0.0.6

package/Makefile

@@ -13,7 +13,7 @@ PHASEA           = build/phaseA
 PHASEB           = build/phaseB
 PHASEC           = build/phaseC
 BUNDLED_DEPS     = build/bundled-node-deps.js
-SHELL := /usr/bin/env bash
+SHELL := bash
 
 # CUSTOMIZE THESE IF NECESSARY
 PARSERS         := $(patsubst src/js/base/%-grammar.bnf,src/js/%-parser.js,$(wildcard src/$(JSBASE)/*-grammar.bnf))

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@ironm00n/pyret-lang",
-  "version": "0.0.4",
+  "version": "0.0.6",
   "description": "The Pyret programming language",
   "main": "build/phase0/main-wrapper.js",
   "directories": {

package/src/arr/compiler/libs.arr

@@ -1,5 +1,6 @@
 import base as _
 import essentials2020 as _
+import starter2024 as _
 
 import arrays as _
 import ast as _
@@ -53,3 +54,5 @@ import image-typed as _
 import color as _
 import csv as _
 import charts as _
+
+

package/src/arr/trove/charts-util.arr

@@ -0,0 +1,71 @@
+provide:
+  data StackType,
+  data PointShape,
+  data TrendlineType,
+  data AxisType
+end
+
+data StackType:
+  | absolute
+  | relative
+  | percent
+  | grouped
+end
+
+
+
+fun check-positive-degree(v :: Number) -> Boolean block: 
+  when v < 0: 
+    raise("degree: degree must be non-negative")
+  end
+  true
+end
+
+data TrendlineType:
+  | no-trendline
+  | tl-linear
+  | tl-exponential
+  | tl-polynomial(degree :: NumInteger%(check-positive-degree))
+end
+
+fun check-positive-sides(v :: Number) -> Boolean block: 
+  when v < 0: 
+    raise("regular-polygon-shape: number of sides must be non-negative")
+  end
+  true
+end
+
+fun check-valid-dent(v :: Number) -> Boolean block: 
+  when (v < 0) or (v > 1): 
+    raise("regular-polygon-shape: dent must be between 0 and 1")
+  end
+  true
+end
+
+data PointShape: 
+  | circle-shape
+  | regular-polygon-shape(sides :: NumInteger%(check-positive-sides), dent :: Number%(check-valid-dent))
+end
+
+
+fun check-non-neg-base(n :: Number) -> Boolean block:
+  when n <= 0:
+    raise("Axis scale: exponential and logarithmic scales must have positive base")
+  end
+  true
+end
+
+
+fun check-non-neg-power(n :: Number) -> Boolean block:
+  when n <= 0:
+    raise("Axis scale: power must be positive")
+  end
+  true
+end
+
+data AxisType:
+  | at-linear
+  | at-power(pow :: Number%(check-non-neg-power))
+  | at-log(base :: Number%(check-non-neg-base))
+  | at-symlog(constant :: Number%(check-non-neg-base))
+end