Fy++ code examples

Delegate

void melody (void (int) how)
{
	how (1200);	// Play the specified frequency
	how (420);	// .. and again
	how (600);
	how (800);
}
void initialize ()	// Entry point
{
		// Set up initial sound delay
	int	delay = 200;
		// Create a delegate playing sound
		// using 'delay' variable from
		// parent's procedure
	void (int) how = delegate (int freq)
			{beep (freq, delay)};
	melody (how);	// Play t
}

Immediate array

int[] manage_array ()
{
	int	a, b, c; // Declare int variables
	any[]	L = {0, 30, 0};	// Create an array
			// with variable type

	// Add some immediate values
	L += {10, 1024, 2801, {20000, 0, 0, 0}};
		// Add some variable values
	L += {a, b, c, 0};
		// ... and again
	L += {'XXXXXX', L, 0.3232, a, b, {a,c}, 0};
	// return an array intialized by three values
	return {0, 100, -1};
}

Option

void copy_file (string file, string path)
{
// Create a progress control to reflect changes
	Progress progress;
	option MaxFileSize = 10000; // Set a temporary option

	option OnFileExists = delegate(string fname)
		{error '"The file $fname already exists'"};
	option OnJobProgress = delegate (int done)
		{progress.done = done};
// Copy file. This function indirectly uses three
// global variables that we have just set up.
	progress.total = filesize(file);
	copyfile (file, path);
// At exit all variables refered in option statement
// should be restored, it doesn't metter how this
// function terminates, either by exit or by throw.
}