aisamanra

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Control.Applicative ((<|>))
import qualified Data.SCargot as SCargot
import qualified Data.SCargot.Language.Basic as SCargot
import Data.SCargot.Repr.Basic
import Data.Text (Text)
import qualified Text.Parsec as Parsec

aisamanra

require 'csv'
require 'set'

module Tokile
  YELLOW = "\x1b[33m"
  GREEN = "\x1b[32m"
  CLEAR = "\x1b[39m"

  UP = "\033[F"

aisamanra

#[derive(Debug)]
enum Expr {
    Var { x: u32 },
    App { f: ExprRef, arg: ExprRef },
    Lam { body: ExprRef },
}

use Expr::*;

#[derive(Debug, Copy, Clone)]

aisamanra

CPPFLAGS = -std=c++1z -fmodules-ts

ALL: main

main: speech.o main.cc
	clang++ $(CPPFLAGS) -fprebuilt-module-path=. -o $@ $^

speech.o: speech.pcm
	clang++ $(CPPFLAGS) -o $@ -c $<

aisamanra

main: libsample.a
	gcc -lpthread -ldl main.c libsample.a -o main

libsample.a: sample.rs
	rustc --crate-type=staticlib sample.rs

clean:
	rm -f main libsample.a

aisamanra

#include <stdio.h>

typedef struct {
	int tag;
	union {
		int l;
		struct {
			char* fst;
			float snd;
		} r;

aisamanra

import Control.Monad (forM_)
import Data.Array
import Data.Ix
import System.Random (randomIO)

-- A 'Size' is just a pair of Ints
type Pair = (Int, Int)
-- An 'Image' is a packed, pair-indexed array
type Image a = Array Pair a

aisamanra

/* This is a naive implementation of Jonathan McCabe's elaboration of
 * Alan Turing's model of morphogenesis, as described here:
 * http://www.jonathanmccabe.com/Cyclic_Symmetric_Multi-Scale_Turing_Patterns.pdf
 */

extern crate rand;

use rand::Rng;
use std::env;
use std::io::Write;

aisamanra

There'd be a standard signature somewhere, which I will call Dist.DataFiles, and it'd look like this

module Dist.DataFiles(getDataFileName) where
  getDataFileName :: FilePath -> IO FilePath

This would have a handful of basic, built-in implementations, including the often-standard

aisamanra

module Main where

{-
Here is a real---if not particularly interesting---interaction with this server:

  [gdritter@armilla ~]$ ssh -p 9999 localhost incr
  ok.
  [gdritter@armilla ~]$ ssh -p 9999 localhost incr
  ok.
  [gdritter@armilla ~]$ ssh -p 9999 localhost double