Mercurial > repos > rhope

comparison cbackend_c.rhope @ 147:f3686f60985d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sort of working port of framework. Transaction bug seems to be getting in the way. Going to work around, but want the old version in the repo so I can test later.
author Mike Pavone <pavone@retrodev.com>
date Mon, 22 Nov 2010 01:15:02 -0500
parents 7bbdc034e347
children b75ec364cecc
comparison
equal deleted inserted replaced
146:1f39e69446f9 147:f3686f60985d
1420 Const Construct C[value,type reg] 1420 Const Construct C[value,type reg]
1421 { out <- [text]Append[ [[[["\t_const_"]Append[Escape Rhope Name[name,[type reg]Escape Pattern >>]]]Append[" = "]]Append[~]]Append[";\n"] ] } 1421 { out <- [text]Append[ [[[["\t_const_"]Append[Escape Rhope Name[name,[type reg]Escape Pattern >>]]]Append[" = "]]Append[~]]Append[";\n"] ] }
1422 } 1422 }
1423 } 1423 }
1424 1424
1425 _Set List Els[text,el,index,type reg:out] 1425 _Set List Els C[text,el,index,type reg:out]
1426 { 1426 {
1427 out <- [[text]Append[ 1427 out <- [[text]Append[
1428 [["\tinout[1] = " 1428 [["\tinout[1] = "
1429 ]Append[Const Construct C[index,type reg]] 1429 ]Append[Const Construct C[index,type reg]]
1430 ]Append[ 1430 ]Append[
1439 valtype <- Blueprint Of[value] 1439 valtype <- Blueprint Of[value]
1440 [(String(),String Cat(),String Slice(),Worker Literal(),List(),List Leaf())]Find[=[valtype,?]] 1440 [(String(),String Cat(),String Slice(),Worker Literal(),List(),List Leaf())]Find[=[valtype,?]]
1441 { 1441 {
1442 If[[~]>[3]] 1442 If[[~]>[3]]
1443 { 1443 {
1444 out <- [Fold[_Set List Els[?, ?, ?, type reg], [text]Append["\trhope(FUNC_List, inout, 0, 1);\n"], value] 1444 out <- [Fold[_Set List Els C[?, ?, ?, type reg], [text]Append["\trhope(FUNC_List, inout, 0, 1);\n"], value]
1445 ]Append[[["\t_const_"]Append[Escape Rhope Name[name,[type reg]Escape Pattern >>]]]Append[" = inout[0];\n"]] 1445 ]Append[[["\t_const_"]Append[Escape Rhope Name[name,[type reg]Escape Pattern >>]]]Append[" = inout[0];\n"]]
1446 }{ 1446 }{
1447 Const Construct C[value,type reg] 1447 Const Construct C[value,type reg]
1448 { init <- [text]Append[ [[[["\t_const_"]Append[Escape Rhope Name[name,[type reg]Escape Pattern >>]]]Append[" = "]]Append[~]]Append[";\n"] ] } 1448 { init <- [text]Append[ [[[["\t_const_"]Append[Escape Rhope Name[name,[type reg]Escape Pattern >>]]]Append[" = "]]Append[~]]Append[";\n"] ] }
1449 1449