oubiwann

Interlisp-D / Medley on Debian 3.1

About

The image that runs Interlisp-D and Medley on Linux seems to actually be a Workbench for Lexical Functional Grammar. I can only guess that this is a customisation of the Medley programming environment ...

Steps

1. Install or download VirtualBox

oubiwann

#!/usr/bin/env bash

VERSION=4.0.1
SCRIPT=`basename "$0"`
APPNAME="My App"
APPICONS="/System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/GenericApplicationIcon.icns"
OSX_VERSION=`sw_vers -productVersion`
PWD=`pwd`

function usage {

oubiwann

$ git clone https://github.com/oubiwann/linear-regression-tutorial.git
$ cd linear-regression-tutorial
$ make

oubiwann

$ git clone https://gist.github.com/8b4404e538e61c7996a5.git
$ cd 8b4404e538e61c7996a5
$ mkdir salamander && cd salamander
$ curl -L -O https://archive.org/download/SalamanderDrumkit/salamanderDrumkit.tar.bz2
$ curl -L -O https://github.com/johnsen/drumsandpercussion/blob/master/SalamanderKick/salamanderdrum-kick-r1.tar.gz
$ curl -L -O http://freepats.zenvoid.org/Piano/SalamanderGrandPianoV3_44.1khz16bit.tar.bz2
$ tar xvfz salamanderDrumkit.tar.bz2
$ tar xvfz salamanderdrum-kick-r1.tar.gz
$ mv Kick/kick* OH/
$ tar xvfz SalamanderGrandPianoV3_44.1khz16bit.tar.bz2

oubiwann

Locate the section for your github remote in the .git/config file. It looks like this:

[remote "origin"]
	fetch = +refs/heads/*:refs/remotes/origin/*
	url = git@github.com:joyent/node.git

Now add the line fetch = +refs/pull/*/head:refs/remotes/origin/pr/* to this section, e.g.:

oubiwann

;; -*- LFE -*-
;; macrology only, so can be included before module definition
;; 
;; These were created by Wojciech Kaczmarek and posted to the LFE mail list here:
;;    https://groups.google.com/d/msg/lisp-flavoured-erlang/MiTGdMjav_k/mSIPCwgFNT8J

;; macro-building bits

(defmacro body-list () '(= body _))
(defmacro args-list () '(= args _))

oubiwann

$ ./bin/lfe -pa ./ebin
Erlang R15B01 (erts-5.9.1) [source] [64-bit] [async-threads:0] [kernel-poll:false]

LFE Shell V5.9.1 (abort with ^G)
> (+ 1 2)
3
> 

oubiwann

;;; Global clock implementation of Life.
(defmodule life_sync_cell
           (export (start_link 1) (set_neighbours 2) (tick 1)
                   (init 1) (handle_cast 2))
           (using gen_server)
           (behaviour gen_server))
(include-file "deps/lfe_utils/include/using.lfe")

;;; Exported:

oubiwann

(defmodule lfe_riak
  (import (rename erlang ((list_to_binary 1) l2b))
          (rename riak_object ((get_value 1) get))
          (from lists (foreach 2) (map 2) (foldl 3))
          (rename dict
                  ((merge 3) make-merged-dict)
                  ((new 0) make-dict)
                  ((from_list 1) make-dict-from-list)
                  ((to_list 1) make-list-from-dict)))
  (export (hello 0)

oubiwann

(defmodule imp (export (bar 0)))

(eval-when-compile
  (defun import-function-1 (module function)
    ;(: io format '"~p~p~n" (list module function))
    (let ((mod-fun (list_to_atom
		    (: lists concat (list module '":" function)))))

     ; (: io format '"~p~n" (list mod-fun))