X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=docs%2Fbuild%2Fhtml%2F_sources%2Fdemo.txt;fp=docs%2Fbuild%2Fhtml%2F_sources%2Fdemo.txt;h=ea5b1ce340929e88ca784d8fe82f2f94891a8552;hb=3219d92f839710904f5b58e006106ca0e087d2e2;hp=0000000000000000000000000000000000000000;hpb=1b911da972574a0e18f194fc8bbc71872a8255ca;p=ring-lang-081%2Fring.git

diff --git a/docs/build/html/_sources/demo.txt b/docs/build/html/_sources/demo.txt
new file mode 100644
index 0000000..ea5b1ce
--- /dev/null
+++ b/docs/build/html/_sources/demo.txt
@@ -0,0 +1,200 @@
+.. index:: 
+	single: デモプログラム; はじめに
+
+==============
+デモプログラム
+==============
+
+デモプログラムを紹介します。
+
+* 対話型プログラミング言語シェル
+* メインメニュー
+
+.. index:: 
+	pair: 対話型プログラミング言語シェル; 対話型プログラミング言語シェル
+
+対話型プログラミング言語シェル
+==============================
+
+このプログラムでは対話型プログラミング環境を作成します。
+
+.. code-block:: ring
+
+	while true 
+		see nl + "code:> "
+		give cCode 
+		try
+			eval(cCode) 
+		catch
+			see cCatchError
+		done
+	end
+
+実行結果:
+
+.. code-block:: ring
+
+	code:> see "hello world"
+	hello world
+	code:> for x = 1 to 10 see x + nl next
+	1
+	2
+	3
+	4
+	5
+	6
+	7
+	8
+	9
+	10
+
+	code:> func test see "Hello from test" + nl
+
+	code:> test()
+	Hello from test
+
+	code:> bye
+
+.. index:: 
+	pair: デモプログラム; メインメニュー
+
+メインメニュー
+==============
+
+用例:
+
+.. code-block:: ring
+
+	# デモプログラム
+
+	while true
+
+		see "
+
+		Main Menu
+		===========
+		[1] Say Hello
+		[2] Sum two numbers
+		[3] Stars
+		[4] Fact
+		[5] Exit
+
+		" give nMenu see nl
+
+		# IF-BUT-ELSE-OK の代わりに Switch-ON-Other-OFF を使えます。
+
+		Switch nMenu
+		On 1 sayhello() 
+		On 2 Sum()
+		On 3 Stars()
+		On 4 
+			see "Enter Number : " give x
+			see "Output : " 
+
+			Try	
+				see Fact(number(x))
+			Catch
+				see "Error in parameters!" + nl
+			Done
+
+		On "5" return 
+		Other see "bad option" + nl
+		Off
+
+	end
+
+	func sayhello
+		see "Enter your name ? " give fname
+		see "Hello " + fname + nl
+
+	func sum
+		see "number 1 : " give num1 see "number 2 : " give num2
+		see "Sum : " see 0 + num1 + num2
+
+	func stars
+		for x = 1 to 10
+			see space(8)
+			for y = 1 to x see "*" next see nl
+		next
+
+	func fact x if x = 0 return 1 else return x * fact(x-1) ok
+
+	func space x y = "" for t=1 to x y += " " next return y
+
+実行結果:
+
+.. code-block:: ring
+
+
+	        Main Menu
+        	===========
+	        [1] Say Hello
+        	[2] Sum two numbers
+	        [3] Stars
+        	[4] Fact
+	        [5] Exit
+
+	        1
+
+	Enter your name ? Mahmoud Fayed
+	Hello Mahmoud Fayed
+
+
+	        Main Menu
+        	===========
+	        [1] Say Hello
+        	[2] Sum two numbers
+	        [3] Stars
+        	[4] Fact
+	        [5] Exit
+
+	        2
+
+	number 1 : 3
+	number 2 : 4
+	Sum : 7
+
+	        Main Menu
+        	===========
+	        [1] Say Hello
+        	[2] Sum two numbers
+	        [3] Stars
+        	[4] Fact
+	        [5] Exit
+
+	        3
+
+	        *
+        	**
+	        ***
+        	****
+	        *****
+        	******
+	        *******
+	        ********
+        	*********
+	        **********
+
+
+	        Main Menu
+        	===========
+	        [1] Say Hello
+	        [2] Sum two numbers
+        	[3] Stars
+	        [4] Fact
+	        [5] Exit
+
+	        4
+
+	Enter Number : 5
+	Output : 120
+
+	        Main Menu
+        	===========
+	        [1] Say Hello
+        	[2] Sum two numbers
+	        [3] Stars
+        	[4] Fact
+	        [5] Exit
+
+	        5