Rename Command object to Program.

Author: gabordemooij

examples/sockets.ctr

@@ -14,12 +14,12 @@
 ?>
 <button data-id="knop">Click me</button><?. Pen brk. 
 
-Command flush.
+Program flush.
 
 Application := Object new.
 Application on: 'run' do: {\
 	{\ ^True. } whileTrue: {\
-		var event := Command askQuestion.
+		var event := Program waitForInput.
 		listeners each: { key action |
 			(key = event) ifTrue: {\
 				action run.
@@ -29,6 +29,6 @@ Application on: 'run' do: {\
 }.
 
 listeners := Map new.
-listeners put: {\ Pen write: 'CLICKED!', brk. Command flush. } at: 'clicked knop'.
+listeners put: {\ Pen write: 'CLICKED!', brk. Program flush. } at: 'clicked knop'.
 
 Application run.

examples/storm.ctr

@@ -14,7 +14,7 @@ Request serverOption: 'minidle' is: 1, serverOption: 'maxidle' is: 2.
 
 Request host:'localhost' listen:4000 pid:'/var/run/storm.pid' callback: {\
 	Pen write: 'Content-type: text/html\n\n'.
-	var fname := Command env: 'DOCUMENT_URI'.
+	var fname := Program env: 'DOCUMENT_URI'.
 	var script := File new: '/var/www/htdocs'+fname.
 	script include.
 }.

tests/test0054.ctr

@@ -1,11 +1,11 @@
-(Command argCount) times: { i |
-	((Command argument: i) != '-r') ifTrue: {\
-		(((Command argument: i) indexOf: '.ast') > -1) ifTrue: {\
+(Program argCount) times: { i |
+	((Program argument: i) != '-r') ifTrue: {\
+		(((Program argument: i) indexOf: '.ast') > -1) ifTrue: {\
 			Pen write: 'Found argument file.'.
 		}.
-		(((Command argument: i) indexOf: '.ctr') > -1) ifTrue: {\
+		(((Program argument: i) indexOf: '.ctr') > -1) ifTrue: {\
 			Pen write: 'Found argument file.'.
 		}.
 	}.
 }.
-Pen write: (Command argument: 999).
+Pen write: (Program argument: 999).

tests/test0101.ctr

@@ -1,2 +1,2 @@
-Command env: 'TSTVAR' val: 'Hello World!'.
-Pen write: 'value = ' + (Command env: 'TSTVAR').
+Program env: 'TSTVAR' val: 'Hello World!'.
+Pen write: 'value = ' + (Program env: 'TSTVAR').

tests/test0110.ctr

@@ -1,4 +1,4 @@
 #Test exit statement
 Pen write: 'Test the exit message'.
-Command exit.
+Program exit.
 Pen write: 'Dont write this'.

tests/test0116.ctr

@@ -1,5 +1,5 @@
 #Command argument should segfault when out-of-bounds, issue#10
-wrong := Command argument: -10.
+wrong := Program argument: -10.
 (wrong = Nil) ifTrue: {\
 	Pen write: 'I can handle out-of-bound Command arguments.\n'.
 }, else: {\

tests/test0119.ctr

@@ -1,6 +1,6 @@
 #Test basic GET/POST support
-Command env: 'QUERY_STRING' val: 'search=table&restaurant=pizzaria&menu=spaghetti&menu=macaroni&course[main]=canneloni&course[dessert]=tiramisu'.
-Pen write: (Command env: 'QUERY_STRING'), brk.
+Program env: 'QUERY_STRING' val: 'search=table&restaurant=pizzaria&menu=spaghetti&menu=macaroni&course[main]=canneloni&course[dessert]=tiramisu'.
+Pen write: (Program env: 'QUERY_STRING'), brk.
 s := Request get: 'search'.
 Pen write: 'I was looking for a free '+s.
 Pen write: ' in a '+(Request get: 'restaurant')+', ', brk.

world.c

@@ -671,10 +671,10 @@ void ctr_initialize_world() {
 	ctr_internal_create_func(CtrStdCommand, ctr_build_string("argCount", 8), &ctr_command_num_of_args);
 	ctr_internal_create_func(CtrStdCommand, ctr_build_string("env:", 4), &ctr_command_get_env);
 	ctr_internal_create_func(CtrStdCommand, ctr_build_string("env:val:", 8), &ctr_command_set_env);
-	ctr_internal_create_func(CtrStdCommand, ctr_build_string("askQuestion", 11), &ctr_command_question);
+	ctr_internal_create_func(CtrStdCommand, ctr_build_string("waitForInput", 12), &ctr_command_question);
 	ctr_internal_create_func(CtrStdCommand, ctr_build_string("exit", 4), &ctr_command_exit);
 	ctr_internal_create_func(CtrStdCommand, ctr_build_string("flush", 5), &ctr_command_flush);
-	ctr_internal_object_add_property(CtrStdWorld, ctr_build_string("Command", 7), CtrStdCommand, 0);
+	ctr_internal_object_add_property(CtrStdWorld, ctr_build_string("Program", 7), CtrStdCommand, 0);
 	CtrStdCommand->link = CtrStdObject;
 
 	/* Clock */