99 Bottles of Beer

Voting

Bookmarking

Language EGL

(Rational Enterprise Generation Language)

Date:	05/24/09
Author:	Alexandre Santos ( alexos )
URL:	http://www-949.ibm.com/software/rational/cafe/comm
Comments:	1
Info:	http://www-949.ibm.com/software/rational/cafe/community/egl
Score:	(2.86 in 7 votes)

package p99bottlesPack;

// 99 Bottles of Beer on the Wall **  EGL - Enterprise Generation Language 
// Copyright (C) 2009 Alexandre Santos <alexos@br.ibm.com>
// May be freely distributed    

program bottles type  BasicProgram
		
	function main()
		bott int = 99;
		line string; 
		while(bott > 2)
			line = "" +bott + " bottles of beer on the wall, "
			+ bott + " bottles of beer,\nTake one down and pass"
			+ " it around, ";
			bott = bott-1;
			line = line + bott + " bottles of beer on the wall.\n";
			writeStdOut(line);
		end
		writeStdOut("2 bottles of beer on the wall, 2 bottles of beer,");
		writeStdOut("Take one down and pass it around, 1 bottle of beer on the wall.\n");
		
		writeStdOut("1 bottle of beer on the wall, 1 bottle of beer,");
		writeStdOut("Take one down and pass it around, no more bottles of beer on the wall.\n");
		writeStdOut("No more bottles of beer on the wall, no more bottles of beer.");
		writeStdOut("Go to the store and buy some more, 99 bottles of beer on the wall.");
	end
end

Download Source | Write Comment

Alternative Versions

Comments

JohnZ said on 05/30/09 23:30:21

Awesome ! IBM/RATIONAL finally made a decent MDD tool. Based on eclipse I can generate (with trial version), java code and cobol.

Download Source | Write Comment

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!

one program in 1500 variations