Issue #142: rename the runtime function ? to ??

Author: thewizardplusplus

docs/runtime.md

@@ -8,7 +8,7 @@
 	* `!(x: any): bool` — логическое отрицание;
 	* `&&(x: any, y: any): any` — конъюнкция; функция является ленивой — `y` вычисляется только при необходимости (то есть когда `x` истинен); возвращается вычисленное значение;
 	* `||(x: any, y: any): any` — дизъюнкция; функция является ленивой — `y` вычисляется только при необходимости (то есть когда `x` ложен); возвращается вычисленное значение;
-	* `?(value: any, default: any): any` — возвращает `value`, если оно не равно `nil`; в противном случае возвращается `default`;
+	* `??(value: any, default: any): any` — возвращает `value`, если оно не равно `nil`; в противном случае возвращается `default`;
 	* `if(condition: bool, true_value: any, false_value: any): any` — выбор: если `condition` истинно, возвращает `true_value`, иначе — `false_value`; функция является ленивой — вычисляется только возвращаемое значение;
 	* `+(x: num|list<any>|hash<any, any>, y: num|list<any>|hash<any, any>): num|list<any>|hash<any, any>` &mdash; возвращает результат комбинирования переданных аргументов:
 		* если оба аргумента имеют тип `num`, то функция возвращает результат их сложения;

examples/life-1d/__main__.micro

@@ -4,7 +4,7 @@ let make_field:1 load "make_field";
 let display_cell load "../common/display_cell";
 let run_life:2 load "run_life";
 
-let FIELD_LENGTH num ? env "FIELD_LENGTH" "80";
+let FIELD_LENGTH num ?? env "FIELD_LENGTH" "80";
 
 let field make_field FIELD_LENGTH;
 run_life field display_cell

examples/life-2d/__main__.micro

@@ -6,9 +6,9 @@ let make_points:2 load "make_points";
 let display_cell load "../common/display_cell";
 let run_life:3 load "run_life";
 
-let FIELD_WIDTH num ? env "FIELD_WIDTH" "10";
-let FIELD_HEIGHT num ? env "FIELD_HEIGHT" "5";
-let POINTS_NUMBER num ? env "POINTS_NUMBER" "25";
+let FIELD_WIDTH num ?? env "FIELD_WIDTH" "10";
+let FIELD_HEIGHT num ?? env "FIELD_HEIGHT" "5";
+let POINTS_NUMBER num ?? env "POINTS_NUMBER" "25";
 
 let rectangle Rectangle Point 0 0 Point -- FIELD_WIDTH -- FIELD_HEIGHT;
 let points make_points rectangle POINTS_NUMBER;

examples/life-2d/add_to_multiset.micro

@@ -1,4 +1,4 @@
 fn add_to_multiset(multiset item)
-	let number ? . item multiset 0;
+	let number ?? . item multiset 0;
 	# item ++ number multiset
 ;

examples/perceptron/__main__.micro

@@ -21,12 +21,12 @@ let FUNCTION
 	;
 ;
 
-let RECTANGLE_LEFT num ? env "RECTANGLE_LEFT" "-10";
-let RECTANGLE_TOP num ? env "RECTANGLE_TOP" "-5";
-let RECTANGLE_RIGHT num ? env "RECTANGLE_RIGHT" "10";
-let RECTANGLE_BOTTOM num ? env "RECTANGLE_BOTTOM" "5";
-let LEARNING_CONSTANT num ? env "LEARNING_CONSTANT" "0.01";
-let TRAINS_NUMBER num ? env "TRAINS_NUMBER" "100";
+let RECTANGLE_LEFT num ?? env "RECTANGLE_LEFT" "-10";
+let RECTANGLE_TOP num ?? env "RECTANGLE_TOP" "-5";
+let RECTANGLE_RIGHT num ?? env "RECTANGLE_RIGHT" "10";
+let RECTANGLE_BOTTOM num ?? env "RECTANGLE_BOTTOM" "5";
+let LEARNING_CONSTANT num ?? env "LEARNING_CONSTANT" "0.01";
+let TRAINS_NUMBER num ?? env "TRAINS_NUMBER" "100";
 
 let rectangle
 	Rectangle

examples/sphere/__main__.micro

@@ -8,9 +8,9 @@ let calculate_intensity:4 load "calculate_intensity";
 let SHADES ".:!*oe&#%@";
 let LIGHT_DIRECTION VectorIIID 30 _30 _50;
 
-let SPHERE_RADIUS num ? env "SPHERE_RADIUS" "20";
-let SPECULAR_EXPONENT num ? env "SPECULAR_EXPONENT" "4";
-let AMBIENT_LIGHT num ? env "AMBIENT_LIGHT" "0.1";
+let SPHERE_RADIUS num ?? env "SPHERE_RADIUS" "20";
+let SPECULAR_EXPONENT num ?? env "SPECULAR_EXPONENT" "4";
+let AMBIENT_LIGHT num ?? env "AMBIENT_LIGHT" "0.1";
 
 let rectangle
 	Rectangle

examples/weasel-program/__main__.micro

@@ -10,11 +10,11 @@ let Generator:3 load "Generator";
 let FitnessStrategy:1 load "FitnessStrategy";
 let Evolver:3 load "Evolver";
 
-let ALLOWED_GENES ? env "ALLOWED_GENES" "ABCDEFGHIJKLMNOPQRSTUVWXYZ ";
-let TARGET ? env "TARGET" "METHINKS IT IS LIKE A WEASEL";
-let MUTATION_RATE num ? env "MUTATION_RATE" "0.05";
-let POPULATION_SIZE num ? env "POPULATION_SIZE" "50";
-let OUTPUT_RATE num ? env "OUTPUT_RATE" "10";
+let ALLOWED_GENES ?? env "ALLOWED_GENES" "ABCDEFGHIJKLMNOPQRSTUVWXYZ ";
+let TARGET ?? env "TARGET" "METHINKS IT IS LIKE A WEASEL";
+let MUTATION_RATE num ?? env "MUTATION_RATE" "0.05";
+let POPULATION_SIZE num ?? env "POPULATION_SIZE" "50";
+let OUTPUT_RATE num ?? env "OUTPUT_RATE" "10";
 
 let generation_strategy GenerationStrategy ALLOWED_GENES;
 let generator Generator size TARGET MUTATION_RATE generation_strategy;

micro/builtin_functions.py

@@ -133,7 +133,7 @@
         [1],
         handler=lambda hash_: list_utilities.reduce_list(list(hash_.keys())),
     ),
-    '?': function_type.make_type(
+    '??': function_type.make_type(
         [2],
         handler=lambda value, default: value if value is not None else default,
     ),

micro/data/std/cli/ansi.micro

@@ -17,6 +17,6 @@ let ANSI_CODES
 {};
 
 fn ansi(name text)
-	let code ? . name ANSI_CODES name;
+	let code ?? . name ANSI_CODES name;
 	+ "\x1b[" + code + "m" + text "\x1b[m"
 ;

micro/data/std/list/zip.micro

@@ -5,8 +5,8 @@ fn zip(list_i list_ii handler:2)
 		if && != [] list_i != [] list_ii
 			fn()
 				let result_item handler head list_i head list_ii;
-				let list_i ? tail list_i [];
-				let list_ii ? tail list_ii [];
+				let list_i ?? tail list_i [];
+				let list_ii ?? tail list_ii [];
 				>@fn() _zip list_i list_ii , result_item result;
 			;
 			fn() result;

micro/data/std/list/zip_longest.micro

@@ -5,8 +5,8 @@ fn zip_longest(list_i list_ii handler:2)
 		if || != [] list_i != [] list_ii
 			fn()
 				let result_item handler head list_i head list_ii;
-				let list_i ? tail list_i [];
-				let list_ii ? tail list_ii [];
+				let list_i ?? tail list_i [];
+				let list_ii ?? tail list_ii [];
 				>@fn() _zip_longest list_i list_ii , result_item result;
 			;
 			fn() result;