Mercurial > repos > rhope
diff cbackend_c.rhope @ 96:5a08705f7610
Semi-broken cleanup of Array implementation
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 02 Aug 2010 05:12:19 -0400 |
parents | e73a93fb5de1 |
children | f4fc0a98088a |
line wrap: on
line diff
--- a/cbackend_c.rhope Mon Aug 02 01:55:56 2010 -0400 +++ b/cbackend_c.rhope Mon Aug 02 05:12:19 2010 -0400 @@ -236,7 +236,7 @@ { out <- "" }{ - [("Array","Worker")]Find[=[[ctype]Name >>,?]] + [("Array","Boxed Array","Worker")]Find[=[[ctype]Name >>,?]] { oend <- "\nMObject(" } { oend <- "\nObject(" } out <- [Fold[_Type Def C Type[?], "OBegin", [ctype]Fields >>]]Append[ [[oend]Append[Escape Rhope Name[[ctype]Name >>]]]Append[")"] ] @@ -258,7 +258,7 @@ Type Init@C Type[ctype,id,method reg,field reg:out] { - [("Array","Worker")]Find[=[[ctype]Name >>, ?]] + [("Array","Boxed Array", "Worker")]Find[=[[ctype]Name >>, ?]] { size <- "-1" } { [("Int64","Int32","Int16","Int8")]Find[=[[ctype]Name >>, ?]] @@ -308,7 +308,7 @@ C Type Registry[:out] { out <- [[[Build[C Type Registry()]]Lookup << [ - [[[[[[[[[[[[[[[[[[Dictionary[] + [[[[[[[[[[[[[[[[[[[Dictionary[] ]Set["UInt8", "TYPE_UINT8"] //1 ]Set["UInt16", "TYPE_UINT16"] //2 ]Set["UInt32", "TYPE_UINT32"] //3 @@ -323,10 +323,11 @@ ]Set["Real Number", "TYPE_FLOAT64"] //12 ]Set["Blueprint", "TYPE_BLUEPRINT"] //13 ]Set["Array", "TYPE_ARRAY"] //14 - ]Set["Worker", "TYPE_WORKER"] //15 - ]Set["Method Missing Exception", "TYPE_METHODMISSINGEXCEPTION"] //16 - ]Set["Field Missing Exception", "TYPE_FIELDMISSINGEXCEPTION"] //17 - ]Set["Wrong Type Exception", "TYPE_WRONGTYPEEXCEPTION"]] //18 + ]Set["Boxed Array", "TYPE_BOXEDARRAY"]//15 + ]Set["Worker", "TYPE_WORKER"] //16 + ]Set["Method Missing Exception", "TYPE_METHODMISSINGEXCEPTION"] //17 + ]Set["Field Missing Exception", "TYPE_FIELDMISSINGEXCEPTION"] //18 + ]Set["Wrong Type Exception", "TYPE_WRONGTYPEEXCEPTION"]] //19 ]Definitions << [Dictionary[]] ]Next ID <<[0] }