<> <> AlpineUser run CardTableImpl Cypress CypressSequences <<>> <> DB.Initialize[] DB.DeclareSegment[filePath: "[Luther.alpine]NewCypress>Test.segment", segment: $Test, lock: [intendWrite, wait]] DB.GetSegmentInfo[$Test] &trans _ DB.OpenTransaction[$Test] &foo _ DB.LookupDomain["Foo", $Test] &baz _ DB.LookupDomain["Baz", $Test] &fields _ CypressSequences.MakeFieldSpec[2] &fields.fields[0] _ [name: "f1", type: DBDefs.ropeType, lengthHint: 20] &fields.fields[1] _ [name: "f2", type: DBDefs.intType] &key _ CypressSequences.MakeIndex[1] &key.fields[0] _ 1 &r _ DB.DeclareRelation["R1", $Test, &fields, LIST[&key]] &vals _ CypressSequences.MakeValueSequence[2] CypressSequences.SetValueSequence[&vals, 0, DBDefs.Value[rope["Hello"]]] CypressSequences.SetValueSequence[&vals, 1, DBDefs.Value[integer[17]]] &rship _ DB.CreateRelship[&r, &vals] DB.GetF[&rship, 0] DB.GetF[&rship, 1] DB.SetF[&rship, 0, DBDefs.Value[rope["Blortz"]]]