2015-02-08 10:13:41 +03:00
|
|
|
classdef types
|
|
|
|
properties (Constant = true)
|
|
|
|
nil = types.Nil();
|
|
|
|
end
|
2015-02-08 22:18:08 +03:00
|
|
|
|
|
|
|
methods(Static)
|
|
|
|
function ret = equal(a,b)
|
|
|
|
ret = false;
|
|
|
|
ota = class(a); otb = class(b);
|
2015-02-10 08:20:23 +03:00
|
|
|
if ~(strcmp(ota,otb) || ...
|
|
|
|
(types.sequential_Q(a) && types.sequential_Q(b)))
|
2015-02-08 22:18:08 +03:00
|
|
|
return;
|
|
|
|
end
|
|
|
|
switch (ota)
|
2015-02-10 08:20:23 +03:00
|
|
|
case {'types.List', 'types.Vector'}
|
2015-02-08 22:18:08 +03:00
|
|
|
if ~(length(a) == length(b))
|
2015-02-10 08:20:23 +03:00
|
|
|
return;
|
2015-02-08 22:18:08 +03:00
|
|
|
end
|
|
|
|
for i=1:length(a)
|
2015-02-10 08:20:23 +03:00
|
|
|
if ~(types.equal(a.get(i), b.get(i)))
|
|
|
|
return;
|
2015-02-08 22:18:08 +03:00
|
|
|
end
|
|
|
|
end
|
|
|
|
ret = true;
|
|
|
|
case 'char'
|
|
|
|
ret = strcmp(a,b);
|
|
|
|
otherwise
|
|
|
|
ret = a == b;
|
|
|
|
end
|
|
|
|
end
|
2015-02-10 08:20:23 +03:00
|
|
|
|
|
|
|
function ret = sequential_Q(obj)
|
|
|
|
ret = strcmp(class(obj), 'types.List') || ...
|
|
|
|
strcmp(class(obj), 'types.Vector');
|
|
|
|
end
|
|
|
|
|
|
|
|
function ret = list_Q(obj)
|
|
|
|
ret = strcmp(class(obj), 'types.List');
|
|
|
|
end
|
|
|
|
function ret = vector_Q(obj)
|
|
|
|
ret = strcmp(class(obj), 'types.Vector');
|
|
|
|
end
|
|
|
|
function ret = hash_map_Q(obj)
|
|
|
|
ret = strcmp(class(obj), 'types.HashMap');
|
|
|
|
end
|
|
|
|
|
|
|
|
function ret = keyword(str)
|
2015-02-10 10:51:28 +03:00
|
|
|
ret = sprintf('%s%s', native2unicode(hex2dec('029e'),'UTF-8'), ...
|
|
|
|
str(2:end));
|
2015-02-10 08:20:23 +03:00
|
|
|
end
|
|
|
|
function ret = keyword_Q(obj)
|
|
|
|
ret = length(obj) > 1 && ...
|
|
|
|
strcmp(obj(1), native2unicode(hex2dec('029e'),'UTF-8'));
|
|
|
|
end
|
2015-02-08 22:18:08 +03:00
|
|
|
end
|
2015-02-08 10:13:41 +03:00
|
|
|
end
|
|
|
|
|