Blame: impls/matlab/printer.m - kanaka/mal

kanaka / mal UNCLAIMED

mal - Make a Lisp

0 0 0 Assembly

matlab: step0 and step1 basics. 2015-02-07 20:32:06 -06:00			`% this is just being used as a namespace`
			`classdef printer`
			`methods (Static = true)`
			`function str = pr_str(obj, print_readably)`
			`switch class(obj)`
			`case 'types.Symbol'`
			`str = obj.name;`
			`case 'double'`
			`str = num2str(obj);`
			`case 'char'`
matlab: support Octave 4.0.0 - 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 2015-12-31 13:43:55 -06:00			`if type_utils.keyword_Q(obj)`
matlab: fix do/slice, strings. Self-hosting! Fix Makefile stats/stats-lisp. 2015-02-10 01:51:28 -06:00			`str = sprintf(':%s', obj(2:end));`
matlab: all step4 except optional. 2015-02-08 13:18:08 -06:00			`else`
matlab: add keyword, vector, hash-map support. Switch List to full object like vector and hash-map. 2015-02-09 23:20:23 -06:00			`if print_readably`
			`str = strrep(obj, '\', '\\');`
			`str = strrep(str, '"', '\"');`
			`str = strrep(str, char(10), '\n');`
matlab: fix do/slice, strings. Self-hosting! Fix Makefile stats/stats-lisp. 2015-02-10 01:51:28 -06:00			`str = sprintf('"%s"', str);`
matlab: add keyword, vector, hash-map support. Switch List to full object like vector and hash-map. 2015-02-09 23:20:23 -06:00			`else`
			`str = obj;`
			`end`
matlab: all step4 except optional. 2015-02-08 13:18:08 -06:00			`end`
matlab: add keyword, vector, hash-map support. Switch List to full object like vector and hash-map. 2015-02-09 23:20:23 -06:00			`case 'types.List'`
matlab: step0 and step1 basics. 2015-02-07 20:32:06 -06:00			`strs = cellfun(@(x) printer.pr_str(x, print_readably), ...`
matlab: add keyword, vector, hash-map support. Switch List to full object like vector and hash-map. 2015-02-09 23:20:23 -06:00			`obj.data, 'UniformOutput', false);`
matlab: fix do/slice, strings. Self-hosting! Fix Makefile stats/stats-lisp. 2015-02-10 01:51:28 -06:00			`str = sprintf('(%s)', strjoin(strs, ' '));`
matlab: add keyword, vector, hash-map support. Switch List to full object like vector and hash-map. 2015-02-09 23:20:23 -06:00			`case 'types.Vector'`
			`strs = cellfun(@(x) printer.pr_str(x, print_readably), ...`
			`obj.data, 'UniformOutput', false);`
matlab: fix do/slice, strings. Self-hosting! Fix Makefile stats/stats-lisp. 2015-02-10 01:51:28 -06:00			`str = sprintf('[%s]', strjoin(strs, ' '));`
matlab: add keyword, vector, hash-map support. Switch List to full object like vector and hash-map. 2015-02-09 23:20:23 -06:00			`case 'types.HashMap'`
			`strs = {};`
			`ks = obj.keys();`
			`for i=1:length(ks)`
			`k = ks{i};`
			`strs{end+1} = printer.pr_str(k, print_readably);`
			`strs{end+1} = printer.pr_str(obj.get(k), print_readably);`
			`end`
matlab: fix do/slice, strings. Self-hosting! Fix Makefile stats/stats-lisp. 2015-02-10 01:51:28 -06:00			`str = sprintf('{%s}', strjoin(strs, ' '));`
matlab: start of step4 2015-02-08 01:13:41 -06:00			`case 'types.Nil'`
			`str = 'nil';`
matlab: step0 and step1 basics. 2015-02-07 20:32:06 -06:00			`case 'logical'`
			`if eq(obj, true)`
			`str = 'true';`
			`else`
			`str = 'false';`
			`end`
matlab: add metadata and atom support. 2015-02-10 01:34:56 -06:00			`case 'types.Atom'`
			`str = sprintf('(atom %s)', printer.pr_str(obj.val,true));`
matlab: step0 and step1 basics. 2015-02-07 20:32:06 -06:00			`otherwise`
			`str = '#<unknown>';`
			`end`
			`end`
			`end`
			`end`