mirror of
https://github.com/kanaka/mal.git
synced 2024-09-22 02:58:15 +03:00
4769962955
- Workarounds for Octave 4.0.0:
- no containers.Map yet so use new Dict
structure when running under Octave.
- weird error when +FOO/ directory and FOO.m file both exist so
rename types.m to type_utils.m
- no getReport so implement custom stack printer
- workaround weird issue that happens when a class initializer is
called with the first argument of the same class as per
Env(outer, ...). The class is not properly initialized. So for
now, wrap the outer in a cell as Env({outer}, ...)
- missing MException object types so when in Octave, use a global
variable to store the error object.
- missing native2unicode so just use 0xff character for keyword
prefix.
- workaround some function calling/passing differences. For
example, the "@" anonymous function symbol does not seem to work
for conveying an existing function but only for defininign a new
one. E.g. this works:
@(a,b) a+b
but this doesn't
@my_adder_fn.
so just do this:
@(a,b) my_adder_fn(a,b)
- Add Dockerfile with Octave
- Active Travis for matlab implementation using Octave
98 lines
2.3 KiB
Matlab
98 lines
2.3 KiB
Matlab
function step3_env(varargin), main(varargin), end
|
|
|
|
% read
|
|
function ret = READ(str)
|
|
ret = reader.read_str(str);
|
|
end
|
|
|
|
% eval
|
|
function ret = eval_ast(ast, env)
|
|
switch class(ast)
|
|
case 'types.Symbol'
|
|
ret = env.get(ast);
|
|
case 'types.List'
|
|
ret = types.List();
|
|
for i=1:length(ast)
|
|
ret.append(EVAL(ast.get(i), env));
|
|
end
|
|
case 'types.Vector'
|
|
ret = types.Vector();
|
|
for i=1:length(ast)
|
|
ret.append(EVAL(ast.get(i), env));
|
|
end
|
|
case 'types.HashMap'
|
|
ret = types.HashMap();
|
|
ks = ast.keys();
|
|
for i=1:length(ks)
|
|
k = ks{i};
|
|
ret.set(EVAL(k, env), EVAL(ast.get(k), env));
|
|
end
|
|
otherwise
|
|
ret = ast;
|
|
end
|
|
end
|
|
|
|
function ret = EVAL(ast, env)
|
|
%fprintf('EVAL: %s\n', printer.pr_str(ast, true));
|
|
if ~type_utils.list_Q(ast)
|
|
ret = eval_ast(ast, env);
|
|
return;
|
|
end
|
|
|
|
% apply
|
|
if isa(ast.get(1),'types.Symbol')
|
|
a1sym = ast.get(1).name;
|
|
else
|
|
a1sym = '_@$fn$@_';
|
|
end
|
|
switch (a1sym)
|
|
case 'def!'
|
|
ret = env.set(ast.get(2), EVAL(ast.get(3), env));
|
|
case 'let*'
|
|
let_env = Env({env});
|
|
for i=1:2:length(ast.get(2))
|
|
let_env.set(ast.get(2).get(i), EVAL(ast.get(2).get(i+1), let_env));
|
|
end
|
|
ret = EVAL(ast.get(3), let_env);
|
|
otherwise
|
|
el = eval_ast(ast, env);
|
|
f = el.get(1);
|
|
args = el.data(2:end);
|
|
ret = f(args{:});
|
|
end
|
|
end
|
|
|
|
% print
|
|
function ret = PRINT(ast)
|
|
ret = printer.pr_str(ast, true);
|
|
end
|
|
|
|
% REPL
|
|
function ret = rep(str, env)
|
|
ret = PRINT(EVAL(READ(str), env));
|
|
end
|
|
|
|
function main(args)
|
|
repl_env = Env();
|
|
repl_env.set(types.Symbol('+'), @(a,b) a+b);
|
|
repl_env.set(types.Symbol('-'), @(a,b) a-b);
|
|
repl_env.set(types.Symbol('*'), @(a,b) a*b);
|
|
repl_env.set(types.Symbol('/'), @(a,b) floor(a/b));
|
|
|
|
%cleanObj = onCleanup(@() disp('*** here1 ***'));
|
|
while (true)
|
|
try
|
|
line = input('user> ', 's');
|
|
catch err
|
|
return
|
|
end
|
|
if strcmp(strtrim(line),''), continue, end
|
|
try
|
|
fprintf('%s\n', rep(line, repl_env));
|
|
catch err
|
|
fprintf('Error: %s\n', err.message);
|
|
type_utils.print_stack(err);
|
|
end
|
|
end
|
|
end
|