Nested Types Example

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|583\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Variables

flying_cucco	Created : 23 April 2008 Edited : 23 April 2008 Language : Cobra Nested Types Example
How to make types-within-types in Cobra -- this took me a while to figure out. Hopefully self explanatory if you are familiar with how the types work, with lists and pointers. program type foo = record value : integer endtype type bar = record foolist : list of foo endtype var barlist : list of bar fooptr : ^foo barptr : ^bar x, y : integer begin //make some foobars for x=0 to 2 barptr := newitem(barlist) for y=0 to 4 fooptr := newitem(barptr.foolist) fooptr.value := (x*10 + y) next next //loop through them and Write to debug console //debug must be enabled! loop barptr through barlist loop fooptr through barptr.foolist debugmsg(fooptr.value) endloop endloop end --v

Comments
Wednesday, 23 April 2008, 13:30
flying_cucco	Of course, they needn't be different types, you can nest the same type program type foobar = record foolist : list of foobar value : integer endtype var barlist : list of foobar fooptr : ^foobar barptr : ^foobar x, y : integer begin //make some foobars for x=0 to 2 barptr := newitem(barlist) for y=0 to 4 fooptr := newitem(barptr.foolist) fooptr.value := (x*10 + y) next next //loop through them and Write to debug console //debug must be enabled! loop barptr through barlist loop fooptr through barptr.foolist debugmsg(fooptr.value) endloop endloop end --v
Wednesday, 23 April 2008, 16:34
codingmonkey	Very interesting. Does Cobra utilize OOP?
Monday, 12 May 2008, 13:44
HoboBen	Thanks cucco! I keep forgetting the exact syntax, and I must have checked back to this page like a million times by now. Bookmarked!

Comments