Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
add information on fields
package metaobjectTest
@doc{*
addFieldInfo takes two parameters. The first is an identifier id.
The second can be either 'counter' or 'names'. If it is 'counter',
the metaobject creates a field
let Int id = number of fields in the prototype;
and a method
func counter_id -> Int = number of methods in the prototype;
If the second parameter is 'names', the metaobject creates a field
let Array<String> id = [ / * field names * / ];
This object tests the 'run until fixed point' feature of the Cyan MOP.
This is because a metaobject may add fields and methods and therefore
triggers changes in other metaobjects. The metaobject methods are
called until they stop changing their outputs.
*}
@addFieldInfo(first, counter)
@addFieldInfo(second, names)
@addFieldInfo(third, counter)
@addFieldInfo(fourth, names)
object AddFieldInfo
func aaa -> Int = 0;
func bbb: Int n { }
func ccc: Int n ddd: String s -> String = s ++ n;
var Int eee = 0;
var String fff = "fff";
func run {
printexpr first;
Out println: "calling counter_first = " ++ counter_first;
printexpr second;
printexpr third;
Out println: "calling counter_third = " ++ counter_third;
printexpr fourth;
}
end
/*
// this is the code added to prototype AddFieldInfo by the
// four metaobjects
let Int first = 6;
func counter_first -> Int = 7;
let Array<String> second = [ "eee", "fff", "first", "second", "third", "fourth" ];
let Int third = 6;
func counter_third -> Int = 7;
let Array<String> fourth = [ "eee", "fff", "first", "second", "third", "fourth" ];
*/
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.