shithub: 9ferno

ref: caef73363f896a1405ce6b9b6435f91e47a9b188

View raw version
implement Sample;

include "sys.m";
	sys: Sys;

Person : adt
{
	age : int;
	next : cyclic ref Person;
	age1 : int;
	age2 : int;
};

Sample: module
{
	init: fn();
	fn1: fn();
	fn2: fn();
	fn3: fn();
};

init()
{
	sys = load Sys Sys->PATH;
	a := 1;
	b := 3;
	c : int;
	d : Person;

	d.age = 10;
	d.next = nil;
	d.age1 = 20;
	d.age2 = 30;
	c = a*b + b*b*b*b + a;
	fn3();
	#fn1();
	fn2();
}

fn1()
{
	d: Person;

	d.age=40;
	# d.next = nil;
	d.age1 = 50;
	d.age2 = 60;
}

fn2()
{
	s: string;

	s = "testing the string";
	sys->print("%s\n", s);
}

fn3()
{
	s: string;
	s1: string;

	s = "testing the string";
	s1 = "testing again";
}