Андреев Кирилл Heimdell

🔨

Right tool for the right job

Heimdell / Parser.hs

Last active August 4, 2017 22:22

Parser for a Llama language + sample code


	module Parser (toplevel, parse, previewError) where

	import Control.Applicative
	import Control.Monad (guard)

	import Data.List (intercalate)

	import Text.Parsec.Error
	import Text.Parsec.Pos

Heimdell / Rogue.html

Last active July 20, 2017 18:04

	<body>
	<pre id="canvas">
	<font caption="inconsolata">
	Press 'space' to start.
	'WASD' to move.
	</font>
	</pre>
	<script type="text/javascript" src="./frp.js"></script>
	<script type="text/javascript" src="./game.js"></script>
	<script type="text/javascript" src="./logic.js"></script>

Heimdell / Rogue.elm

Created July 18, 2017 06:51

	import Dict exposing (Dict)

	import Graphics.Collage as Collage exposing (Form)
	import Graphics.Element as Element exposing (Element)

	import Keyboard
	import Signal
	import Time
	import String
	import Text

Heimdell / lam.js

Last active July 1, 2017 12:41

Lazy Abstract Machine


	/*
	This is a Lazy Abstract Machine (LAM).

	This code is meant to be glued before output of the compilator
	(or `let {Node, func, call, etc...} = require('runtime.js')`)
	- it depends on how will I implement a compiler.

	It allows representing lazy programs for the lazy language with:
	1) Push { elem: 1, to: Empty } - Algebraic datatypes

Heimdell / lrt-2.js

Created June 27, 2017 15:48


	var assert = require('assert')

	/*
	LAM - Lazy Abstract Machine.

	It evaluates the tree built from AST descendants lazily.
	No optimization is performed (and minded - it should be done in compile-phase).

	Call `run(ast)` to reduce it to Weak-Head Normal Form (go google it).

Heimdell / sexp.prolog

Created June 7, 2017 17:29


	load(File, SExp)
	:- read_file_to_string(File, Text, [])
	, string_chars(Text, Atoms)
	, phrase(entry(SExp), Atoms, [])
	, !
	.

	entry(Res) --> spaces, many(sexp, Res).

Heimdell / sexp.hs

Last active June 6, 2017 16:00


	data Iter = Iter
	{ pos, col, line :: Int
	}

	data SExp = Block [SExp] \| Atom String
	deriving Show

	parseSexp text =
	let

Heimdell / core-syntax.js

Last active May 1, 2017 15:02

Stack machine in js


	var { Parser: P } = require("./parser-combinators.js")

	var t = (s) => P.string(s).and_(spaces)

	var nameChar = P.oneOf("qwertyuiopasdfghjklzxcvbnm1234567890-=+~:<>.,?/\\*#$%^!@\|&{}[]")
	var nameChar1 = P.oneOf("qwertyuiopasdfghjklzxcvbnm-=+~:<>.,?/\\*#$%^!@\|&{}[]")

	var comment = P.string(";")._and(P.anyChar().butNot(P.string("\n")).many())._and(P.string("\n"))

Heimdell / tokens.js

Created April 25, 2017 10:46


	// set :: string -> (char -> bool)
	var set = (items) => {
	var arr = Array.prototype.slice.apply(items)
	var carrier = {}
	arr.forEach(x => { carrier[x] = true })
	return (x) => carrier[x]
	}

	var reserved = set("module object end => let in \\ open ---".split(" "))

Heimdell / parser.js

Last active April 23, 2017 18:14