@explorable-viz/fluid 0.0.23

package/dist/article/fluid/lib/prelude.fld

@@ -0,0 +1,246 @@
+-- "Num" throughout means (Int + Float).
+
+-- Bool -> Bool
+let and False y = False;
+    and True y = y;
+
+-- Bool -> Bool
+let or True y = True;
+    or False y = y;
+
+-- Bool -> Bool
+let not True = False;
+    not False = True;
+
+-- Int -> Int -> Ordering
+let compare x y =
+   if x > y
+   then GT
+   else if x < y
+      then LT
+      else EQ;
+
+-- Num -> Num
+let negate = (-) 0;
+
+-- Log of x in base y.
+-- Float -> Float -> Float
+let logBase x y = log y / log x;
+
+-- Float -> Float -> Float
+let ceilingToNearest n m =
+   ceiling (n / m) * m;
+
+-- (b -> c) -> (a -> b) -> a -> c
+-- Want infix <<<
+let compose f g x = f (g x);
+
+-- ((a, b) -> c) -> a -> b -> c
+let curry f x y = f (x, y);
+
+-- (a -> b -> c) -> (a, b) -> c
+let uncurry f (x, y) = f x y;
+
+-- a -> b -> a
+let const x _ = x;
+
+-- (a -> b) -> (a, c) -> (b, c)
+let first f (a, c) = (f a, c);
+
+-- (a, b) -> b
+let snd (_, y) = y;
+
+-- (a -> b) -> (c, a) -> (c, b)
+let second f (c, a) = (c, f a);
+
+-- (a -> b -> c) -> b -> a -> c
+let flip f x y = f y x;
+
+-- (a, b) -> a
+let fst (x, _) = x;
+
+-- a -> a
+let id x = x;
+
+-- (a -> b) -> (a -> c) -> a -> (b, c)
+-- Want infix &&&
+let prod f g x = (f x, g x);
+
+-- (a, b) -> (b, a)
+let swap (a, b) = (b, a);
+
+-- List a -> a
+let head [] = error "Can't take head of empty list";
+    head (x : _) = x;
+
+-- List a -> List a
+let tail [] = error "Can't take tail of empty list";
+    tail (_ : xs) = xs;
+
+-- Int -> List Int -> Bool
+let elem x [] = False;
+    elem x (x' : xs) = (x == x') `or` (elem x xs);
+
+-- (a -> Bool) -> List a -> List a
+let filter p [] = [];
+    filter p (x : xs) =
+      let ys = filter p xs in
+      if p x then x : ys else ys;
+
+-- (a -> b -> a) -> a -> List b -> a
+let foldl op z [] = z;
+    foldl op z (x : xs) = foldl op (op z x) xs;
+
+-- (a -> b -> a) -> List b -> a
+let foldl1 op (x : xs) = foldl op x xs;
+
+-- (a -> b -> b) -> b -> List a -> b
+let foldr op z [] = z;
+    foldr op z (x : xs) = op x (foldr op z xs);
+
+-- (a -> b -> b) -> List a -> b
+let foldr1 op [x] = x;
+    foldr1 op (x : y : xs) = op x (foldr1 op (y : xs));
+
+-- (a -> b -> a) -> a -> List b -> List a
+let scanl1 op z xs =
+   let go x continue acc =
+      let next = op acc x in
+      next : continue next in
+   foldr go (const []) xs z;
+
+-- (a -> b -> a) -> a -> List b -> List a
+let scanl op z xs =
+   z : scanl1 op z xs;
+
+-- (a -> b) -> List a -> List b
+let map f [] = [];
+    map f (x : xs) = f x : map f xs;
+
+-- (List a, List a) -> List a
+let append ([], ys) = ys;
+    append (x : xs, ys) = x : append (xs, ys);
+
+-- List a -> List -> List a
+-- Want infix ++
+let concat2 [] ys = ys;
+    concat2 (x : xs) ys = x : concat2 xs ys;
+
+-- List (List a) -> List a
+let concat = foldl concat2 [];
+
+-- (a -> List b) -> List a -> List b
+let concatMap f xs = concat (map f xs);
+
+-- List a -> a -> List a
+let intersperse [] _ = [];
+    intersperse [x] _ = [x];
+    intersperse (x : y : ys) sep = x : sep : intersperse (y : ys) sep;
+
+-- Int -> (a -> a) -> a -> List a
+let iterate n f z =
+   if n == 0 then [] else z : map f (iterate (n - 1) f z);
+
+-- List Int -> Int
+let sum = foldr (+) 0;
+
+-- List a -> a
+let last [x] = x;
+    last (x : y : ys) = last (y : ys);
+
+-- List a -> Int
+let length [] = 0;
+    length (_ : xs) = 1 + length xs;
+
+-- List a -> List a
+let reverse [] = [];
+    reverse (x : xs) = append (reverse xs, [x]);
+
+-- Int -> a -> List a
+let repeat = flip iterate id;
+
+-- Int -> List a -> List a
+let take n xs =
+    if n <= 0
+    then []
+    else match xs as {
+       [] -> [];
+       x : xs -> x : take (n - 1) xs
+    };
+
+-- Int -> List a -> List a
+let drop n xs =
+   if n <= 0
+   then xs
+   else match xs as {
+      [] -> [];
+      _ : xs -> drop (n - 1) xs
+   };
+
+-- Int -> List a -> List a
+let lastN n xs =
+   foldl (compose const (drop 1)) xs (drop n xs);
+
+-- Expects non-negative integer as first argument and non-empty list as second argument.
+-- Int -> List a -> a
+let nth n (x : xs) =
+   if n == 0 then x else nth (n - 1) xs;
+
+-- Matrix Int -> Int -> Int -> Int
+let nth2 i j xss =
+   nth (j - 1) (nth (i - 1) xss);
+
+-- Partial; requires k to be in the map.
+-- Int -> List (Int, b) -> b
+let lookup k [] = error "Key not found in map";
+    lookup k ((k', v) : kvs) =
+       if k == k' then v else lookup k kvs;
+
+-- Int -> Int -> Int
+let max n m =
+   if n > m then n else m;
+
+-- Int -> Int -> Int
+let min n m =
+   if n < m then n else m;
+
+-- List Int -> Int
+let maximum = foldr1 max;
+
+-- List Int -> Int
+let minimum = foldr1 min;
+
+-- List (a, b) -> (List a, List b)
+let unzip [] = ([], []);
+    unzip ((x, y) : zs) =
+      let (xs, ys) = unzip zs in
+      (x : xs, y : ys);
+
+-- (a -> b -> c) -> List a -> List b -> List c
+let zipWith op [] ys = [];
+    zipWith op (x : xs) [] = [];
+    zipWith op (x : xs) (y : ys) = op x y : zipWith op xs ys;
+
+-- List a -> List b -> List (a, b)
+let zip = zipWith (curry id);
+
+-- Int -> Int -> List Int
+let enumFromTo n m =
+    if n <= m then n : [n + 1 .. m] else [];
+
+let range (m1, n1) (m2, n2) =
+      [ (i1, i2) | i1 <- [m1 .. m2], i2 <- [n1 .. n2] ];
+
+-- Int -> Int -> Int
+let abs x y =
+   if x - y < 0 then negate (x - y) else (x - y);
+
+-- Eq a => [a] -> [a]
+let nub xs =
+    let nub' [] _ = [];
+        nub' (x : xs) ys = if x `elem` ys then nub' xs ys else x : nub' xs (x : ys) in
+    nub' xs [];
+
+-- Int -> Int -> [a] -> [a]
+let slice begin end xs =
+   take (end - begin) (drop begin xs);

package/dist/article/index.html

@@ -0,0 +1,44 @@
+<!DOCTYPE html>
+<html lang="en">
+<head>
+   <meta charset="UTF-8">
+   <meta name="viewport" content="width=device-width, initial-scale=1.0">
+   <meta http-equiv="X-UA-Compatible" content="ie=edge">
+   <title>Fluid: Data-Linked Visualisations</title>
+   <link href="/css/styles.css" rel="stylesheet" type="text/css">
+   <link href="/css/view-styles.css" rel="stylesheet" type="text/css">
+   <script src="https://use.fontawesome.com/1091715d00.js"></script>
+   <script>
+      // move to PureScript
+      function toggle(id) {
+         const elem = document.getElementById(id)
+         if (elem.style.visibility == 'hidden')
+            elem.style.visibility = 'visible'
+         else
+            elem.style.visibility = 'hidden'
+      }
+   </script>
+</head>
+<body class="standalone">
+<div class="grid-container double-size">
+   <div></div>
+   <div></div>
+   <div></div>
+   <div></div>
+   <div></div>
+   <div id="fig-input" class="flex-right-align data-pane"></div>
+   <div>
+      <div onclick="toggle('fig-input')"><span class="data-pane-button toggle-button">◀▶</span></div>
+   </div>
+   <div class="flex-left-align">
+      <div id="fig"></div>
+   </div>
+</div>
+
+<script src="app.js"></script>
+<script>
+   // move to PureScript
+   toggle('fig-input')
+</script>
+</body>
+</html>

package/fluid.js

@@ -0,0 +1,46 @@
+#!/usr/bin/env node
+const { program } = require('commander');
+const fs = require('node:fs');
+const webFS = require('fs').promises;
+const filenameRegex = /\w+\.yml/ //may need to expand character set
+const express = require('express');
+const serve = require('express-static');
+
+const app = express();
+const host = '127.0.0.1';
+const port = 8080;
+
+program.command('load')
+  .arguments('<file>')
+  .action(function(file)
+  {
+    if (file.match(filenameRegex) != null)
+    {
+      try
+      {
+        //read data stream if file is large
+        //const data = fs.readFileSync(__dirname + "/" + file, 'utf8');
+        const data = fs.readFileSync(process.cwd() + "/" + file, 'utf8'); //assuming file is located at command line's current directory
+        console.log(data);
+
+        app.use(serve(__dirname + '/dist/article'));
+
+        const server = app.listen(port, host, function()
+        {
+        console.log("Server running: " + __dirname + '/dist/article\n' +
+                    `Access on http://${host}:${port}`
+                   );
+        })
+      }
+      catch (err)
+      {
+        console.error(err);
+      }
+    }
+    else
+    {
+      console.error("Invalid input file: Must be a .yml file.")
+    }
+  });
+
+program.parse()

package/package.json

@@ -0,0 +1,80 @@
+{
+  "name": "@explorable-viz/fluid",
+  "version": "0.0.23",
+  "description": "Fluid is an experimental programming language which integrates a bidirectional dynamic analysis to connect outputs to data sources in a fine-grained way. Fluid is implemented in PureScript and runs in the browser.",
+  "main": "index.js",
+  "repository": {
+    "type": "git",
+    "url": "git+https://github.com/explorable-viz/fluid.git#release"
+  },
+  "keywords": [
+    "PureScript",
+    "JavaScript"
+  ],
+  "author": "explorable-viz",
+  "license": "MIT",
+  "bugs": {
+    "url": "https://github.com/explorable-viz/fluid/issues"
+  },
+  "homepage": "https://f.luid.org",
+  "files": ["dist/article/"],
+  "scripts": {
+    "tidy": "./script/tidy.sh",
+
+    "build-app": "./script/build.sh app App",
+    "serve-app": "./script/serve.sh app",
+
+    "build-artifact": "./script/build.sh artifact Artifact",
+    "serve-artifact": "./script/serve.sh artifact",
+
+    "build-standalone-all": "./script/build-standalone-all.sh",
+    "build-standalone": "./script/build-standalone.sh",
+
+    "build-bench": "./script/build.sh bench Test.Benchmark",
+    "bench": "./script/serve.sh bench",
+
+    "build": "./script/build.sh test Test.Test",
+    "test": "./script/test.sh",
+    "test-browser": "./script/test.sh --browsers=Chrome --singleRun=false",
+
+    "build-puppeteer": "./script/build.sh test-puppeteer Test.Puppeteer --platform=node",
+    "test-puppeteer": "./script/test-puppeteer.sh",
+
+    "build-article": "./script/build-article.sh",
+
+    "npm-publish": "./script/npm-publish.sh"
+  },
+  "dependencies": {
+    "@codemirror/commands": "6.2.2",
+    "@codemirror/state": "6.2.0",
+    "@codemirror/view": "6.9.3",
+    "benchmark": "^2.1.4",
+    "commander": "^12.1.0",
+    "d3": "^7.9.0",
+    "datetime": "^0.0.3",
+    "express": "^4.19.2",
+    "express-static": "^1.2.6",
+    "http-shutdown": "^1.2.2",
+    "node-process": "^1.0.1",
+    "purescript": "^0.15.10"
+  },
+  "devDependencies": {
+    "esbuild": "0.15.1",
+    "gh-pages": "^6.1.1",
+    "karma": "6.4.0",
+    "karma-chrome-launcher": "3.1.1",
+    "karma-mocha": "2.0.1",
+    "karma-mocha-reporter": "2.2.5",
+    "mocha": "10.0.0",
+    "puppeteer": "^23.1.0",
+    "purescript-language-server": "0.16.6",
+    "purescript-psa": "0.8.2",
+    "purs-backend-es": "1.1.0",
+    "purs-tidy": "^0.9.3",
+    "spago": "^0.21.0",
+    "typescript": "^5.5.3"
+  },
+  "bin": {
+    "fluid": "./fluid.js"
+  }
+}