^" ) )
//{
// l_message_item = 'The [' + a_name_field + '] field value must not contain the same number of ^<^ and ^>^ character sequences! ';
// l_message_return = l_message_return + l_message_item;
//}
//if( f_string_count( a_value_enter, "^(^" ) != f_string_count( a_value_enter, "^)^" ) )
//{
// l_message_item = 'The [' + a_name_field + '] field value must not contain the same number of ^(^ and ^)^ character sequences! ';
// l_message_return = l_message_return + l_message_item;
//}
//if( f_string_count( a_value_enter, "^{^" ) != f_string_count( a_value_enter, "^}^" ) )
//{
// l_message_item = 'The [' + a_name_field + '] field value must not contain the same number of ^{^ and ^}^ character sequences! ';
// l_message_return = l_message_return + l_message_item;
//}
return l_message_return;
}
function f_action_warn_field( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field should not be entered? ';
return '';
}
function f_action_edit_sentence( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
return l_message_return;
}
function f_action_edit_identifier( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
return l_message_return;
}
function f_action_warn_identifier( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field should not be entered? ';
return '';
}
function f_action_edit_keyword( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
return l_message_return;
}
function f_action_warn_keyword( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field should not be entered? ';
return '';
}
function f_action_edit_phrase( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
return l_message_return;
}
function f_action_warn_phrase( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field should not be entered? ';
return '';
}
function f_action_edit_tag( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
return l_message_return;
}
function f_action_warn_tag( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field should not be entered? ';
return '';
}
function f_action_edit_ssn( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
if( f_integer_unequal( f_string_length( l_array_item[l_position_item - 1] ), 11 ) || f_string_different( f_string_piece( l_array_item[l_position_item - 1], 4, 4 ), "-" ) || f_string_different( f_string_piece( l_array_item[l_position_item - 1], 7, 7 ), "-" ) || !f_string_is_digits_only( f_string_piece( l_array_item[l_position_item - 1], 1, 3 ) ) || !f_string_is_digits_only( f_string_piece( l_array_item[l_position_item - 1], 5, 6 ) ) || !f_string_is_digits_only( f_string_piece( l_array_item[l_position_item - 1], 8, 11 ) ) )
{
l_message_return = l_message_return + "The [ssn] field [" + f_string_left( l_array_item[l_position_item - 1], 11 ) + "] value must be in ssn ###-##-#### format. ";
break;
}
}
return l_message_return;
}
function f_action_edit_text( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
return l_message_return;
}
function f_action_warn_text( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field should not be entered? ';
return '';
}
function f_action_edit_url( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
if( !f_string_begin( l_array_item[l_position_item - 1], "https://" ) && !f_string_begin( l_array_item[l_position_item - 1], "https://" ) )
{
l_message_item = 'The [' + a_name_field + '] field value must start with the "https://" or "https://" protocol! ';
l_message_return = l_message_return + l_message_item;
break;
}
}
return l_message_return;
}
function f_action_warn_url( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field should not be entered? ';
return '';
}
function f_action_edit_zip( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
return l_message_return;
}
function f_action_warn_zip( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field should not be entered? ';
return '';
}
function f_action_edit_file( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
return l_message_return;
}
function f_action_warn_file( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field should not be entered? ';
return '';
}
function f_action_edit_string( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
return l_message_return;
}
function f_action_warn_string( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field should not be entered? ';
return '';
}
function f_action_edit_name( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
return l_message_return;
}
function f_action_warn_name( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field should not be entered? ';
if( f_string_different( a_value_enter, f_phrase_capitalize( a_value_enter ) ) ) return 'Are you sure the [' + a_name_field + '] field should not be title case capitalized? You can ignore this warning for abbreviations and irregular capitalized words like McDonald or DuPont.';
return '';
}
function f_action_edit_alias( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_message_item = "";
let l_message_return = "";
l_message_item = f_action_edit_field( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item + " ";
}
if( f_string_different( f_string_lowercase( a_value_enter ), a_value_enter ) )
{
l_message_item = 'The [' + a_name_field + '] field value must be spelled in lowercase! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item + " ";
}
}
if( !f_string_is_letters_lowercase_or_space_only( a_value_enter ) )
{
l_message_item = 'The [' + a_name_field + '] field value must be spelled only with lowercase characters and spaces! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item + " ";
}
}
if( f_string_contain( f_string_lowercase( a_value_enter ), "critical thinker" ) )
{
l_message_item = 'The [' + a_name_field + '] field value must not have a value with the [critical thinker] character sequence! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item + " ";
}
}
return l_message_return;
}
function f_action_warn_alias( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field should not be entered? ';
return '';
}
function f_action_edit_number( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
if( !f_string_is_digits_only( l_array_item[l_position_item - 1] ) )
{
l_message_item = 'The [' + a_name_field + '] field value must be digits only with no spaces nor letters nor symbols! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
}
return l_message_return;
}
function f_action_warn_number( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field should not be entered? ';
return '';
}
function f_action_edit_date( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
if( !f_date_edit( l_array_item[l_position_item - 1] ) )
{
l_message_item = 'The [' + a_name_field + '] field value must be a date value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
}
return l_message_return;
}
function f_action_edit_datetime( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
if( !f_datetime_edit( l_array_item[l_position_item - 1] ) )
{
l_message_item = 'The [' + a_name_field + '] field value must be a datetime value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
}
return l_message_return;
}
function f_action_edit_time( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
if( !f_time_edit( l_array_item[l_position_item - 1] ) )
{
l_message_item = 'The [' + a_name_field + '] field value must be a time value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
}
return l_message_return;
}
function f_action_edit_year( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
if( !f_integer_edit( l_array_item[l_position_item - 1], 0, 9999 ) || ( f_string_length( l_array_item[l_position_item - 1] ) != 4 ) )
{
l_message_item = 'The [' + a_name_field + '] field value must be a year value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
}
return l_message_return;
}
function f_action_edit_duration( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
if( f_string_count( l_array_item[l_position_item - 1], ":" ) != 1 )
{
l_message_item = 'The [' + a_name_field + '] field value must be a duration value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
}
return l_message_return;
}
function f_action_edit_decimal( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_decimal_minimum = f_string_decimal( f_dictionary_read( a_dictionary_field, "minimum" ) );
if( f_string_same( f_dictionary_read( a_dictionary_field, "minimum" ), "" ) ) l_decimal_minimum = -999999999999.99;
let l_decimal_maximum = f_string_decimal( f_dictionary_read( a_dictionary_field, "maximum" ) );
if( f_string_same( f_dictionary_read( a_dictionary_field, "maximum" ), "" ) ) l_decimal_maximum = +999999999999.99;
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
if( !f_decimal_edit( l_array_item[l_position_item - 1], l_decimal_minimum, l_decimal_maximum ) )
{
l_message_item = 'The [' + a_name_field + '] field value must be a decimal value between [' + l_decimal_minimum + '] and [' + l_decimal_maximum + '] value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
}
return l_message_return;
}
function f_action_edit_integer( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_integer_minimum = f_string_integer( f_dictionary_read( a_dictionary_field, "minimum" ) );
if( f_string_same( f_dictionary_read( a_dictionary_field, "minimum" ), "" ) ) l_integer_minimum = -999999999999;
let l_integer_maximum = f_string_integer( f_dictionary_read( a_dictionary_field, "maximum" ) );
if( f_string_same( f_dictionary_read( a_dictionary_field, "maximum" ), "" ) ) l_integer_maximum = +999999999999;
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
if( !f_integer_edit( l_array_item[l_position_item - 1], l_integer_minimum, l_integer_maximum ) )
{
l_message_item = 'The [' + a_name_field + '] field value must be an integer between [' + l_integer_minimum + '] and [' + l_integer_maximum + '] value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
}
return l_message_return;
}
function f_action_edit_code( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( f_string_same( a_value_enter, "_all" ) ) return '';
if( f_string_same( a_value_enter, "_none" ) ) return '';
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
let l_list_code = f_dictionary_read( a_dictionary_field, "values" );
if( f_string_same( l_list_code, "" ) ) l_list_code = a_dictionary_field;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
if( !f_item_list( l_array_item[l_position_item - 1], l_list_code ) )
{
l_message_item = 'The [' + a_name_field + '] field [' + l_array_item[l_position_item - 1] + '] value is an invalid code! The codes [' + f_string_replace( l_list_code, '^,^', '] [' ) + '] are valid. ';
l_message_return = l_message_return + l_message_item;
}
}
return l_message_return;
}
function f_action_warn_code( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
return '';
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field should not be entered? ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
if( f_item_list( l_array_item[l_position_item - 1], a_dictionary_field ) )
{
l_message_item = 'Are you sure the [' + a_name_field + '] field (' + l_array_item[l_position_item - 1] + ') value should be specified? ';
l_message_return = l_message_return + l_message_item;
}
}
return l_message_return;
}
function f_action_edit_criteria( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
if( f_string_same( a_value_enter, "_all" ) ) return '';
if( f_string_same( a_value_enter, "_none" ) ) return '';
if( !f_string_contain( a_value_enter, "^=^" ) && !f_string_contain( a_value_enter, "^<^" ) && !f_string_contain( a_value_enter, "^>^" ) && !f_string_contain( a_value_enter, "^<=^" ) && !f_string_contain( a_value_enter, "^>=^" ) ) return 'The [' + a_name_field + '] field value must contain at least one "^=^" "^<^" "^>^" "^<=^" "^>=^" comparison! ';
return '';
}
function f_action_edit_noun( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
if( f_string_begin( l_array_item[l_position_item - 1], "cork/" ) ) continue;
if( f_item_list( l_array_item[l_position_item - 1], "person^,^person/individual^,^person/organization^,^place^,^place/physical^,^place/virtual^,^thing^,^thing/tangible^,^thing/intangible" ) ) continue;
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
if( !f_string_is_letters_lowercase_or_fslash_only( l_array_item[l_position_item - 1] ) )
{
l_message_item = 'The [' + a_name_field + '] field value must only contain lowercase letter characters and the forward slash character! ';
l_message_return = l_message_return + l_message_item;
}
if( f_string_end( l_array_item[l_position_item - 1], "/" ) )
{
l_message_item = 'The [' + a_name_field + '] field value must not end with a forward slash character! ';
l_message_return = l_message_return + l_message_item;
}
if( !f_string_begin_list( l_array_item[l_position_item - 1], "person/individual/^,^person/organization/^,^place/physical/^,^place/virtual/^,^thing/tangible/^,^thing/intangible/", g['_separator_comma'] ) )
{
l_message_item = 'The [' + a_name_field + '] field value must start with (person/individual/) (person/organization/) (place/physical/) (place/virtual/) (thing/tangible/) (thing/intangible/) value! ';
l_message_return = l_message_return + l_message_item;
}
}
return l_message_return;
}
function f_action_warn_noun( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field should not be entered? ';
return '';
}
function f_action_edit_hand( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) && a_boolean_mandatory ) return 'The [' + a_name_field + '] field value must be entered! ';
if( !f_string_contain( a_value_enter, " " ) ) return 'The [' + a_name_field + '] field value must be at least 2 words! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
if( f_string_same( l_array_item[l_position_item - 1], "slide the ornaments" ) )
{
l_message_item = 'The [' + a_name_field + '] field value must not be an example value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
if( f_string_same( l_array_item[l_position_item - 1], "crazy cat" ) )
{
l_message_item = 'The [' + a_name_field + '] field value must not be an example value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
if( f_string_same( l_array_item[l_position_item - 1], "feline antic" ) )
{
l_message_item = 'The [' + a_name_field + '] field value must not be an example value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
if( f_string_same( l_array_item[l_position_item - 1], "hand" ) )
{
l_message_item = 'The [' + a_name_field + '] field value must not be an example value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
if( f_string_same( l_array_item[l_position_item - 1], "shake" ) )
{
l_message_item = 'The [' + a_name_field + '] field value must not be an example value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
if( f_string_same( l_array_item[l_position_item - 1], "password" ) )
{
l_message_item = 'The [' + a_name_field + '] field value must not be an example value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
if( !f_string_is_letters_lowercase_or_space_only( l_array_item[l_position_item - 1] ) )
{
l_message_item = 'The [' + a_name_field + '] field value must be lowercase letters only with no digits or symbols! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
}
return l_message_return;
}
function f_action_edit_shake( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) && a_boolean_mandatory ) return 'The [' + a_name_field + '] field value must be entered! ';
if( f_integer_unequal( f_string_count( a_value_enter, " " ), 1 ) ) return 'The [' + a_name_field + '] field value must be exactly 2 words! ';
let l_array_item = f_string_split( a_value_enter, g['_separator_comma'] );
let l_position_item = 0;
let l_count_item = l_array_item.length;
let l_message_item = "";
let l_message_return = "";
let l_adjective_word = "";
let l_noun_word = "";
let l_list_invalid = "[nonletter]^,^[apostrophe]^,^[capital]^,^[plural]^,^[pronoun]^,^[preposition]^,^[conjunction]^,^[determiner]^,^a^,^ain't^,^aren't^,^also^,^and^,^are^,^as^,^at^,^be^,^but^,^can^,^can't^,^cannot^,^could^,^couldn't^,^do^,^don't^,^does^,^doesn't^,^down^,^for^,^he^,^how^,^i^,^if^,^in^,^is^,^isn't^,^it^,^it's^,^its^,^me^,^mine^,^my^,^not^,^of^,^off^,^on^,^or^,^our^,^ours^,^out^,^over^,^see^,^shall^,^she^,^should^,^shouldn't^,^so^,^the^,^their^,^theirs^,^them^,^then^,^there^,^therefore^,^these^,^they^,^to^,^too^,^under^,^up^,^us^,^was^,^we^,^were^,^what^,^when^,^where^,^who^,^why^,^will^,^won't^,^would^,^you^,^your^,^yours";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_adjective_word = f_string_bisect( l_array_item[l_position_item - 1], 1, " ", "forward" );
l_noun_word = f_string_bisect( l_array_item[l_position_item - 1], 2, " ", "forward" );
l_message_item = f_action_edit_field( l_array_item[l_position_item - 1], a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
if( f_string_same( l_array_item[l_position_item - 1], "slide the ornaments" ) )
{
l_message_item = 'The [' + a_name_field + '] field value must not be an example value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
if( f_string_same( l_array_item[l_position_item - 1], "crazy cat" ) )
{
l_message_item = 'The [' + a_name_field + '] field value must not be an example value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
if( f_string_same( l_array_item[l_position_item - 1], "feline antic" ) )
{
l_message_item = 'The [' + a_name_field + '] field value must not be an example value! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
if( !f_string_is_letters_lowercase_or_space_only( l_array_item[l_position_item - 1] ) )
{
l_message_item = 'The [' + a_name_field + '] field value must be lowercase letters only with no digits or symbols! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
if( f_integer_unequal( f_string_count( l_array_item[l_position_item - 1], " " ), 1 ) )
{
l_message_item = 'The [' + a_name_field + '] field value must be two and only two words! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
if( f_item_list( l_adjective_word, l_list_invalid ) )
{
l_message_item = 'The [' + a_name_field + '] field value must be an adjective word followed by a singular common noun word! The words ' + f_string_replace( l_list_invalid, g['_separator_comma'], ", " ) + ' are invalid since they are not adjectives nor singular common nouns. ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
if( f_item_list( l_noun_word, l_list_invalid ) )
{
l_message_item = 'The [' + a_name_field + '] field value must be an adjective word followed by a singular common noun word! The words ' + f_string_replace( l_list_invalid, g['_separator_comma'], ", " ) + ' are invalid since they are not adjectives nor singular common nouns. ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
if( f_string_same( l_adjective_word, l_noun_word ) )
{
l_message_item = 'The [' + a_name_field + '] field value must be two different words! ';
if( f_string_different( l_message_item, "" ) )
{
l_message_return = l_message_return + l_message_item;
break;
}
}
}
return l_message_return;
}
function f_action_warn_shake( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field value should not be entered? ';
return '';
}
function f_action_edit_email( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
let l_message_item = "";
let l_message_return = "";
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'The [' + a_name_field + '] field value must be entered! ';
l_message_item = f_action_edit_field( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) ) l_message_return = l_message_return + l_message_item;
let l_html_return = "";
if( f_string_contain( a_value_enter, " " ) || f_string_contain( a_value_enter, "{" ) || f_string_contain( a_value_enter, "}" ) || f_string_contain( a_value_enter, "\\" ) || f_string_contain( a_value_enter, "/" ) || f_string_contain( a_value_enter, "?" ) || f_string_contain( a_value_enter, "!" ) || f_string_contain( a_value_enter, "," ) || f_string_contain( a_value_enter, ";" ) || f_string_contain( a_value_enter, ":" ) || f_string_contain( a_value_enter, "'" ) || f_string_contain( a_value_enter, "\"" ) || f_string_contain( a_value_enter, "=" ) || f_string_contain( a_value_enter, "(" ) || f_string_contain( a_value_enter, ")" ) || f_string_contain( a_value_enter, "*" ) || f_string_contain( a_value_enter, "&" ) || f_string_contain( a_value_enter, "^" ) || f_string_contain( a_value_enter, "%" ) || f_string_contain( a_value_enter, "$" ) || f_string_contain( a_value_enter, "#" ) || f_string_contain( a_value_enter, "`" ) || f_string_contain( a_value_enter, "~" ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field value must not contain invalid characters like spaces, commas, quotes, and so on! ';
return l_html_return;
}
if( f_string_count( a_value_enter, "@" ) != 1 )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field value must contain one and only one at character! ';
return l_html_return;
}
let l_value_mailbox = f_string_bisect( a_value_enter, 1, "@", "forward" );
let l_value_domain = f_string_bisect( a_value_enter, 2, "@", "forward" );
if( f_string_same( l_value_mailbox, "" ) )
{
l_html_return = l_html_return + " The [' + a_name_field + '] field value must contain the mailbox name before the at character!";
return l_html_return;
}
if( f_string_end( l_value_mailbox, "." ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field mailbox name must not end with the period character! ';
}
if( f_string_contain( l_value_mailbox, "[" ) || f_string_contain( l_value_mailbox, "]" ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field mailbox name must not contain bracket characters! ';
return l_html_return;
}
if( f_string_same( l_value_domain, "" ) )
{
l_html_return = l_html_return + " The [' + a_name_field + '] field value must contain the domain name after the at character!";
return l_html_return;
}
if( f_string_begin( l_value_domain, "." ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must not begin with the period character! ';
return l_html_return;
}
if( f_string_begin( l_value_domain, "-" ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must not begin with the hyphen character! ';
}
if( f_string_end( l_value_domain, "-" ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must not end with the hyphen character! ';
}
if( f_string_end( l_value_domain, "." ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must not end with the period character! ';
}
if( f_string_contain( l_value_domain, "[" ) || f_string_contain( l_value_domain, "]" ) )
{
if( !f_string_begin( l_value_domain, "[" ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must contain one and only one left beginning bracket! ';
}
if( !f_string_end( l_value_domain, "]" ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must contain one and only one right ending bracket! ';
}
if( f_string_contain( l_value_domain, "[]" ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must an IP address literal between the brackets! ';
}
if( f_string_contain( l_value_domain, ":" ) || f_string_begin( l_value_domain, "IP" ) )
{
if( !f_string_begin( l_value_domain, "IPv6:" ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must contain a valid IP6 address literal in the characters between the left and right brackets! ';
}
else if( f_string_count( l_value_domain, ":" ) != 6 )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must contain a valid IP6 address literal in the characters between the left and right brackets! ';
}
else if( f_string_contain( l_value_domain, "::" ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must contain a valid IP6 address literal in the characters between the left and right brackets! ';
return l_html_return;
}
let l_array_part = f_string_split( f_string_replace( f_string_replace( f_string_replace( l_value_domain, "[", "" ), "]", "" ), "IPv6:", "" ), ":" );
let l_position_part = 0;
let l_count_part = l_array_part.length;
for( l_position_part = 1; l_position_part <= l_count_part; l_position_part++ )
{
if( !f_hexadecimal_edit( l_array_part[l_position_part - 1], "0000", "ffff" ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must contain a valid valid IP6 address literal in the characters between the left and right brackets! ';
break;
}
}
}
else
{
if( f_string_count( l_value_domain, "." ) != 3 )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must contain a valid IP4 address literal in the characters between the left and right brackets! ';
}
else if( f_string_contain( l_value_domain, ".." ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must contain a valid IP4 address literal in the characters between the left and right brackets! ';
}
let l_array_part = f_string_split( f_string_replace( f_string_replace( l_value_domain, "[", "" ), "]", "" ), "." );
let l_position_part = 0;
let l_count_part = l_array_part.length;
for( l_position_part = 1; l_position_part <= l_count_part; l_position_part++ )
{
if( !f_integer_edit( l_array_part[l_position_part - 1], 0, 255 ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must contain a valid valid IP4 address literal in the characters between the left and right brackets! ';
break;
}
}
}
return l_html_return;
}
if( !f_string_contain( l_value_domain, "." ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must contain a period character! ';
return l_html_return;
}
if( f_string_contain( l_value_domain, ".." ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must not contain two consectutive period characters! ';
return l_html_return;
}
let l_array_part = f_string_split( l_value_domain, "." );
let l_count_part = l_array_part.length;
let l_position_part = 0;
let l_loops_integer = 0;
let l_loop_integer = 0;
for( l_position_part = 1; l_position_part <= l_count_part; l_position_part++ )
{
l_loops_integer = l_array_part[l_position_part - 1].length;
for( l_loop_integer = 1; l_loop_integer <= l_loops_integer; l_loop_integer++ )
{
if( ( l_array_part[l_position_part - 1].charCodeAt( l_loop_integer - 1 ) == 45 ) && ( l_loop_integer == 1 ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must contain a valid domain host name in the characters! ';
l_position_part = l_count_part + 1;
break;
}
else if( ( l_array_part[l_position_part - 1].charCodeAt( l_loop_integer - 1 ) == 45 ) && ( l_loop_integer == l_loops_integer ) )
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must contain a valid domain host name in the characters! ';
l_position_part = l_count_part + 1;
break;
}
else if( l_array_part[l_position_part - 1].charCodeAt( l_loop_integer - 1 ) == 45 )
{
}
else if( ( l_array_part[l_position_part - 1].charCodeAt( l_loop_integer - 1 ) >= 48 ) && ( l_array_part[l_position_part - 1].charCodeAt( l_loop_integer - 1 ) <= 57 ) )
{
}
else if( ( l_array_part[l_position_part - 1].charCodeAt( l_loop_integer - 1 ) >= 97 ) && ( l_array_part[l_position_part - 1].charCodeAt( l_loop_integer - 1 ) <= 122 ) )
{
}
else
{
l_html_return = l_html_return + 'The [' + a_name_field + '] field domain name must contain a valid domain host name in the characters! ';
l_position_part = l_count_part + 1;
break;
}
}
}
return l_html_return;
}
function f_action_warn_email( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field value should not be entered? ';
let l_html_return = "";
let l_list_domain = "aero^,^biz^,^ca^,^cat^,^com^,^coop^,^edu^,^gov^,^info^,^int^,^jobs^,^mil^,^mobi^,^museum^,^name^,^net^,^org^,^pro^,^travel^,^us";
let l_hit_position = a_value_enter.indexOf( "@" );
let l_value_mailbox = a_value_enter.substring( 0, l_hit_position );
let l_value_value = a_value_enter.substring( l_hit_position + 1 );
l_hit_position = l_value_value.lastIndexOf( "." );
let l_value_mailserver = l_value_value.substring( 0, l_hit_position );
let l_value_domain = l_value_value.substring( l_hit_position + 1 );
l_list_domain = "com^,^net^,^org";
if( !f_item_list( l_value_domain, l_list_domain ) )
{
l_html_return = l_html_return + 'Are you sure that The [' + a_name_field + '] field value should end with a domain that is not ' + f_string_replace( l_list_domain, g['_separator_comma'], ", " ) + '? ';
}
return l_html_return;
}
function f_action_parse_address( a_dictionary_address )
{
let l_dictionary_address = f_string_assign( a_dictionary_address );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "primary^:^_value", "" );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "predirectional^:^_value", "" );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "street^:^_value", "" );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "suffix^:^_value", "" );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "postdirectional^:^_value", "" );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "unit^:^_value", "" );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "secondary^:^_value", "" );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "city^:^_value", "" );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "state^:^_value", "" );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "zip^:^_value", "" );
let l_string_address = f_string_uppercase( f_string_squeeze( f_string_replace( f_string_replace( f_dictionary_read( a_dictionary_address, "address^:^_value" ), "\r", " " ), "\n", " " ) ) );
if( f_string_same( l_string_address, "" ) ) return l_dictionary_address;
let l_strings_part = f_string_split( l_string_address, " " );
let l_count_part = l_strings_part.length;
let l_count_delta = 0;
let l_position_at = 1;
let l_name_field = "primary";
let l_string_value = "";
let l_list_code = "";
let l_list_decode = "";
if( l_count_part == 1 )
{
l_dictionary_address = f_dictionary_write( l_dictionary_address, "primary^:^_value", l_strings_part[l_position_at - 1 + 0] );
return l_dictionary_address;
}
if( l_count_part == 2 )
{
l_dictionary_address = f_dictionary_write( l_dictionary_address, "primary^:^_value", l_strings_part[l_position_at - 1 + 0] );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "street^:^_value", l_strings_part[l_position_at - 1 + 1] );
return l_dictionary_address;
}
if( l_count_part == 3 )
{
l_dictionary_address = f_dictionary_write( l_dictionary_address, "primary^:^_value", l_strings_part[l_position_at - 1 + 0] );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "street^:^_value", l_strings_part[l_position_at - 1 + 1] );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "city^:^_value", l_strings_part[l_position_at - 1 + 2] );
return l_dictionary_address;
}
if( l_count_part == 4 )
{
l_dictionary_address = f_dictionary_write( l_dictionary_address, "primary^:^_value", l_strings_part[l_position_at - 1 + 0] );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "street^:^_value", l_strings_part[l_position_at - 1 + 1] );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "city^:^_value", l_strings_part[l_position_at - 1 + 2] );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "state^:^_value", l_strings_part[l_position_at - 1 + 3] );
return l_dictionary_address;
}
if( l_count_part == 5 )
{
l_dictionary_address = f_dictionary_write( l_dictionary_address, "primary^:^_value", l_strings_part[l_position_at - 1 + 0] );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "street^:^_value", l_strings_part[l_position_at - 1 + 1] );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "city^:^_value", l_strings_part[l_position_at - 1 + 2] );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "state^:^_value", l_strings_part[l_position_at - 1 + 3] );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "zip^:^_value", l_strings_part[l_position_at - 1 + 4] );
return l_dictionary_address;
}
if( f_string_same( l_name_field, "primary" ) )
{
if( f_integer_equal( f_string_count( l_strings_part[l_position_at - 1 + 1], "/" ), 1 ) && f_string_is_digits_only( f_string_replace( l_strings_part[l_position_at - 1 + 1], "/", "" ) ) )
{
l_dictionary_address = f_dictionary_write( l_dictionary_address, "primary^:^_value", l_strings_part[l_position_at - 1 + 0] + " " + l_strings_part[l_position_at - 1 + 1] );
l_position_at = l_position_at + 2;
l_name_field = "predirectional";
}
}
if( f_string_same( l_name_field, "primary" ) )
{
l_dictionary_address = f_dictionary_write( l_dictionary_address, "primary^:^_value", l_strings_part[l_position_at - 1 + 0] );
l_position_at = l_position_at + 1;
l_name_field = "predirectional";
}
if( f_string_same( l_name_field, "predirectional" ) )
{
l_list_code = "N^,^S^,^E^,^W^,^NE^,^NW^,^SE^,^SW";
l_list_decode = "NORTH^,^SOUTH^,^EAST^,^WEST^,^NORTHEAST^,^NORTHWEST^,^SOUTHEAST^,^SOUTHWEST";
l_string_value = f_string_decode( l_strings_part[l_position_at - 1 + 0], l_list_decode, l_list_code, g['_separator_comma'] );
if( f_item_list( l_string_value, l_list_code ) )
{
l_dictionary_address = f_dictionary_write( l_dictionary_address, "predirectional^:^_value", l_string_value );
l_position_at = l_position_at + 1;
l_name_field = "street";
}
}
if( f_string_same( l_name_field, "predirectional" ) )
{
l_name_field = "street";
}
let l_name_street = l_strings_part[l_position_at - 1 + 0];
while( l_position_at < l_count_part )
{
l_position_at = l_position_at + 1;
l_list_code = "ALY^,^ANX^,^ARC^,^AVE^,^BYU^,^BCH^,^BND^,^BLF^,^BLFS^,^BTM^,^BLVD^,^BR^,^BRG^,^BRK^,^BRKS^,^BG^,^BGS^,^BYP^,^CP^,^CYN^,^CPE^,^CSWY^,^CTR^,^CTRS^,^CIR^,^CIRS^,^CLF^,^CLFS^,^CLB^,^CMN^,^CMNS^,^COR^,^CORS^,^CRSE^,^CT^,^CTS^,^CV^,^CVS^,^CRK^,^CRES^,^CRST^,^XING^,^XRD^,^XRDS^,^CURV^,^DL^,^DM^,^DV^,^DR^,^DRS^,^EST^,^ESTS^,^EXPY^,^EXT^,^EXTS^,^FALL^,^FLS^,^FRY^,^FLD^,^FLDS^,^FLT^,^FLTS^,^FRD^,^FRDS^,^FRST^,^FRG^,^FRGS^,^FRK^,^FRKS^,^FT^,^FWY^,^GDN^,^GDNS^,^GTWY^,^GLN^,^GLNS^,^GRN^,^GRNS^,^GRV^,^GRVS^,^HBR^,^HBRS^,^HVN^,^HTS^,^HWY^,^HL^,^HLS^,^HOLW^,^INLT^,^IS^,^ISS^,^ISLE^,^JCT^,^JCTS^,^KY^,^KYS^,^KNL^,^KNLS^,^LK^,^LKS^,^LAND^,^LNDG^,^LN^,^LGT^,^LGTS^,^LF^,^LCK^,^LCKS^,^LDG^,^LOOP^,^MALL^,^MNR^,^MNRS^,^MDW^,^MDWS^,^MEWS^,^ML^,^MLS^,^MSN^,^MTWY^,^MT^,^MTN^,^MTNS^,^NCK^,^ORCH^,^OVAL^,^OPAS^,^PARK^,^PARK^,^PKWY^,^PKWY^,^PASS^,^PSGE^,^PATH^,^PIKE^,^PNE^,^PNES^,^PL^,^PLN^,^PLNS^,^PLZ^,^PT^,^PTS^,^PRT^,^PRTS^,^PR^,^RADL^,^RAMP^,^RNCH^,^RPD^,^RPDS^,^RST^,^RDG^,^RDGS^,^RIV^,^RD^,^RDS^,^RTE^,^ROW^,^RUE^,^RUN^,^SHL^,^SHLS^,^SHR^,^SHRS^,^SKWY^,^SPG^,^SPGS^,^SPUR^,^SPUR^,^SQ^,^SQS^,^STA^,^STRA^,^STRM^,^ST^,^STS^,^SMT^,^TER^,^TRWY^,^TRCE^,^TRAK^,^TRFY^,^TRL^,^TRLR^,^TUNL^,^TPKE^,^UPAS^,^UN^,^UNS^,^VLY^,^VLYS^,^VIA^,^VW^,^VWS^,^VLG^,^VLGS^,^VL^,^VIS^,^WALK^,^WALK^,^WALL^,^WAY^,^WAYS^,^WL^,^WLS";
l_list_decode = "ALLEY^,^ANEX^,^ARCADE^,^AVENUE^,^BAYOU^,^BEACH^,^BEND^,^BLUFF^,^BLUFFS^,^BOTTOM^,^BOULEVARD^,^BRANCH^,^BRIDGE^,^BROOK^,^BROOKS^,^BURG^,^BURGS^,^BYPASS^,^CAMP^,^CANYON^,^CAPE^,^CAUSEWAY^,^CENTER^,^CENTERS^,^CIRCLE^,^CIRCLES^,^CLIFF^,^CLIFFS^,^CLUB^,^COMMON^,^COMMONS^,^CORNER^,^CORNERS^,^COURSE^,^COURT^,^COURTS^,^COVE^,^COVES^,^CREEK^,^CRESCENT^,^CREST^,^CROSSING^,^CROSSROAD^,^CROSSROADS^,^CURVE^,^DALE^,^DAM^,^DIVIDE^,^DRIVE^,^DRIVES^,^ESTATE^,^ESTATES^,^EXPRESSWAY^,^EXTENSION^,^EXTENSIONS^,^FALL^,^FALLS^,^FERRY^,^FIELD^,^FIELDS^,^FLAT^,^FLATS^,^FORD^,^FORDS^,^FOREST^,^FORGE^,^FORGES^,^FORK^,^FORKS^,^FORT^,^FREEWAY^,^GARDEN^,^GARDENS^,^GATEWAY^,^GLEN^,^GLENS^,^GREEN^,^GREENS^,^GROVE^,^GROVES^,^HARBOR^,^HARBORS^,^HAVEN^,^HEIGHTS^,^HIGHWAY^,^HILL^,^HILLS^,^HOLLOW^,^INLET^,^ISLAND^,^ISLANDS^,^ISLE^,^JUNCTION^,^JUNCTIONS^,^KEY^,^KEYS^,^KNOLL^,^KNOLLS^,^LAKE^,^LAKES^,^LAND^,^LANDING^,^LANE^,^LIGHT^,^LIGHTS^,^LOAF^,^LOCK^,^LOCKS^,^LODGE^,^LOOP^,^MALL^,^MANOR^,^MANORS^,^MEADOW^,^MEADOWS^,^MEWS^,^MILL^,^MILLS^,^MISSION^,^MOTORWAY^,^MOUNT^,^MOUNTAIN^,^MOUNTAINS^,^NECK^,^ORCHARD^,^OVAL^,^OVERPASS^,^PARK^,^PARKS^,^PARKWAY^,^PARKWAYS^,^PASS^,^PASSAGE^,^PATH^,^PIKE^,^PINE^,^PINES^,^PLACE^,^PLAIN^,^PLAINS^,^PLAZA^,^POINT^,^POINTS^,^PORT^,^PORTS^,^PRAIRIE^,^RADIAL^,^RAMP^,^RANCH^,^RAPID^,^RAPIDS^,^REST^,^RIDGE^,^RIDGES^,^RIVER^,^ROAD^,^ROADS^,^ROUTE^,^ROW^,^RUE^,^RUN^,^SHOAL^,^SHOALS^,^SHORE^,^SHORES^,^SKYWAY^,^SPRING^,^SPRINGS^,^SPUR^,^SPURS^,^SQUARE^,^SQUARES^,^STATION^,^STRAVENUE^,^STREAM^,^STREET^,^STREETS^,^SUMMIT^,^TERRACE^,^THROUGHWAY^,^TRACE^,^TRACK^,^TRAFFICWAY^,^TRAIL^,^TRAILER^,^TUNNEL^,^TURNPIKE^,^UNDERPASS^,^UNION^,^UNIONS^,^VALLEY^,^VALLEYS^,^VIADUCT^,^VIEW^,^VIEWS^,^VILLAGE^,^VILLAGES^,^VILLE^,^VISTA^,^WALK^,^WALKS^,^WALL^,^WAY^,^WAYS^,^WELL^,^WELLS";
l_string_value = f_string_decode( l_strings_part[l_position_at - 1 + 0], l_list_decode, l_list_code, g['_separator_comma'] );
//console.log("SUFFIX=" + l_strings_part[l_position_at - 1 + 0] + "=" + l_string_value );
if( f_item_list( l_string_value, l_list_code ) )
{
l_dictionary_address = f_dictionary_write( l_dictionary_address, "suffix^:^_value", l_string_value );
l_position_at = l_position_at + 1;
l_name_field = "postdirectional";
break;
}
l_name_street = l_name_street + " " + l_strings_part[l_position_at - 1 + 0];
}
l_dictionary_address = f_dictionary_write( l_dictionary_address, "street^:^_value", l_name_street );
if( l_position_at > l_count_part )
{
return l_dictionary_address;
}
if( f_string_same( l_name_field, "postdirectional" ) )
{
l_list_code = "N^,^S^,^E^,^W^,^NE^,^NW^,^SE^,^SW";
l_list_decode = "NORTH^,^SOUTH^,^EAST^,^WEST^,^NORTHEAST^,^NORTHWEST^,^SOUTHEAST^,^SOUTHWEST";
l_string_value = f_string_decode( l_strings_part[l_position_at - 1 + 0], l_list_decode, l_list_code, g['_separator_comma'] );
if( f_item_list( l_string_value, l_list_code ) )
{
l_dictionary_address = f_dictionary_write( l_dictionary_address, "postdirectional^:^_value", l_string_value );
l_position_at = l_position_at + 1;
l_name_field = "unit";
}
}
if( f_string_same( l_name_field, "postdirectional" ) )
{
l_name_field = "unit";
}
if( f_string_same( l_name_field, "unit" ) )
{
l_list_code = "BSMT^,^FRNT^,^LBBY^,^LOWR^,^OFC^,^PH^,^REAR^,^SIDE^,^UPPR";
l_list_decode = "BASEMENT^,^FRONT^,^LOBBY^,^LOWER^,^OFFICE^,^PENTHOUSE^,^REAR^,^SIDE^,^UPPER";
l_string_value = f_string_decode( l_strings_part[l_position_at - 1 + 0], l_list_decode, l_list_code, g['_separator_comma'] );
if( f_item_list( l_string_value, l_list_code ) )
{
l_dictionary_address = f_dictionary_write( l_dictionary_address, "unit^:^_value", l_string_value );
l_position_at = l_position_at + 1;
l_name_field = "secondary";
if( f_item_list( f_string_left( l_strings_part[l_position_at - 1 + 0], 1 ), "1^,^2^,^3^,^4^,^5^,^6^,^7^,^8^,^9^,^0" ) )
{
l_dictionary_address = f_dictionary_write( l_dictionary_address, "secondary^:^_value", l_strings_part[l_position_at - 1 + 0] );
l_position_at = l_position_at + 1;
}
l_name_field = "city";
}
}
if( f_string_same( l_name_field, "unit" ) && f_string_begin( l_strings_part[l_position_at - 1 + 0], "#" ) )
{
l_dictionary_address = f_dictionary_write( l_dictionary_address, "unit^:^_value", "#" );
l_dictionary_address = f_dictionary_write( l_dictionary_address, "secondary^:^_value", f_string_piece( l_strings_part[l_position_at - 1 + 0], 2, l_strings_part[l_position_at - 1 + 0].length ) );
l_position_at = l_position_at + 1;
l_name_field = "city";
}
if( f_string_same( l_name_field, "unit" ) )
{
l_list_code = "#^,^APT^,^BSMT^,^BLDG^,^DEPT^,^FL^,^FRNT^,^HNGR^,^KEY^,^LBBY^,^LOT^,^LOWR^,^OFC^,^PH^,^PIER^,^REAR^,^RM^,^SIDE^,^SLIP^,^SPC^,^STOP^,^STE^,^TRLR^,^UNIT^,^UPPR";
l_list_decode = "#^,^APARTMENT^,^BASEMENT^,^BUILDING^,^DEPARTMENT^,^FLOOR^,^FRONT^,^HANGER^,^KEY^,^LOBBY^,^LOT^,^LOWER^,^OFFICE^,^PENTHOUSE^,^PIER^,^REAR^,^ROOM^,^SIDE^,^SLIP^,^SPACE^,^STOP^,^SUITE^,^TRAILER^,^UNIT^,^UPPER";
l_string_value = f_string_decode( l_strings_part[l_position_at - 1 + 0], l_list_decode, l_list_code, g['_separator_comma'] );
if( f_item_list( l_string_value, l_list_code ) )
{
l_dictionary_address = f_dictionary_write( l_dictionary_address, "unit^:^_value", l_string_value );
l_position_at = l_position_at + 1;
l_name_field = "secondary";
}
}
if( f_string_same( l_name_field, "secondary" ) )
{
l_dictionary_address = f_dictionary_write( l_dictionary_address, "secondary^:^_value", l_strings_part[l_position_at - 1 + 0] );
l_position_at = l_position_at + 1;
l_name_field = "city";
}
let l_name_city = l_strings_part[l_position_at - 1 + 0];
while( l_position_at < l_count_part )
{
l_position_at = l_position_at + 1;
l_list_code = "AL^,^AK^,^AZ^,^AR^,^CA^,^CO^,^CT^,^DE^,^DC^,^FL^,^GA^,^GU^,^HI^,^ID^,^IL^,^IN^,^IA^,^KS^,^KY^,^LA^,^ME^,^MD^,^MA^,^MI^,^MN^,^MS^,^MO^,^MT^,^NE^,^NV^,^NH^,^NJ^,^NM^,^NY^,^NC^,^ND^,^OH^,^OK^,^OR^,^PA^,^PR^,^RI^,^SC^,^SD^,^TN^,^TX^,^UT^,^VT^,^VI^,^VA^,^WA^,^WV^,^WI^,^WY";
l_list_decode = "ALABAMA^,^ALASKA^,^ARIZONA^,^ARKANSAS^,^CALIFORNIA^,^COLORADO^,^CONNECTICUT^,^DELAWARE^,^DISTRICT OF COLUMBIA^,^FLORIDA^,^GEORGIA^,^GUAM^,^HAWAII^,^IDAHO^,^ILLINOIS^,^INDIANA^,^IOWA^,^KANSAS^,^KENTUCKY^,^LOUISIANA^,^MAINE^,^MARYLAND^,^MASSACHUSETTS^,^MICHIGAN^,^MINNESOTA^,^MISSISSIPPI^,^MISSOURI^,^MONTANA^,^NEBRASKA^,^NEVADA^,^NEW HAMPSHIRE^,^NEW JERSEY^,^NEW MEXICO^,^NEW YORK^,^NORTH CAROLINA^,^NORTH DAKOTA^,^OHIO^,^OKLAHOMA^,^OREGON^,^PENNSYLVANIA^,^PUERTO RICO^,^RHODE ISLAND^,^SOUTH CAROLINA^,^SOUTH DAKOTA^,^TENNESSEE^,^TEXAS^,^UTAH^,^VERMONT^,^VIRGIN ISLANDS^,^VIRGINIA^,^WASHINGTON^,^WEST VIRGINIA^,^WISCONSIN^,^WYOMING";
l_string_value = f_string_decode( l_strings_part[l_position_at - 1 + 0], l_list_decode, l_list_code, g['_separator_comma'] );
if( f_item_list( l_string_value, l_list_code ) ) break;
l_name_city = l_name_city + " " + l_strings_part[l_position_at - 1 + 0];
}
l_dictionary_address = f_dictionary_write( l_dictionary_address, "city^:^_value", l_name_city );
if( l_position_at > l_count_part )
{
return l_dictionary_address;
}
l_dictionary_address = f_dictionary_write( l_dictionary_address, "state^:^_value", l_string_value );
l_position_at = l_position_at + 1;
l_name_field = "zip";
if( l_position_at > l_count_part )
{
return l_dictionary_address;
}
l_dictionary_address = f_dictionary_write( l_dictionary_address, "zip^:^_value", l_strings_part[l_position_at - 1 + 0] );
return l_dictionary_address;
}
function f_action_edit_address( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
let l_message_item = "";
let l_message_return = "";
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
l_message_item = f_action_edit_field( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) ) l_message_return = l_message_return + l_message_item;
return l_message_return;
}
function f_action_warn_address( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field value should not be entered? ';
return '';
}
function f_action_edit_phone( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
let l_message_item = "";
let l_message_return = "";
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
l_message_item = f_action_edit_field( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field );
if( f_string_different( l_message_item, "" ) ) l_message_return = l_message_return + l_message_item;
return l_message_return;
}
function f_action_warn_phone( a_value_enter, a_name_field, a_boolean_mandatory, a_dictionary_field )
{
a_dictionary_field = f_string_transform( a_dictionary_field, "standard to text" );
if( !a_boolean_mandatory && f_string_same( a_value_enter, "" ) ) return '';
if( f_string_same( a_value_enter, "" ) ) return 'Are you sure the [' + a_name_field + '] field value should not be entered? ';
if( !f_string_begin( a_value_enter, "1-" ) ) return 'Are you sure the [' + a_name_field + '] field should not start with (1-) value? ';
return '';
}
function f_array_join( a_array_value, a_value_join )
{
return a_array_value.join( a_value_join);
}
function f_date_edit( a_date_value )
{
if( a_date_value.length == 8 ) a_date_value = f_string_piece( a_date_value, 1, 4 ) + "-" + f_string_piece( a_date_value, 5, 6 ) + "-" + f_string_piece( a_date_value, 7, 8 );
if( a_date_value.length != 10 ) return false;
if( f_string_count( a_date_value, "-" ) != 2 ) return false;
if( !f_integer_edit( f_string_replace( a_date_value, "-", "" ), 0, 9999999999 ) ) return false;
let l_format_string = "yyyy-mm-dd";
let l_boolean_leap = false;
let l_end_integer = 0;
let l_year_integer = parseInt( f_string_piece( a_date_value, 1, 4 ), 10 );
let l_month_integer = parseInt( f_string_piece( a_date_value, 6, 7 ), 10 );
let l_day_integer = parseInt( f_string_piece( a_date_value, 9, 10 ), 10 );
if( ( l_year_integer % 100 == 0 ) && ( l_year_integer % 400 == 0 ) )
{
l_boolean_leap = true;
}
else if( ( l_year_integer % 100 == 0 ) && ( l_year_integer % 400 != 0 ) )
{
l_boolean_leap = false;
}
else if( l_year_integer % 4 == 0 )
{
l_boolean_leap = true;
}
else
{
l_boolean_leap = false;
}
if( l_year_integer < 1 )
{
return false;
}
if( l_month_integer > 12 )
{
return false;
}
if( l_month_integer == 1 || l_month_integer == 3 || l_month_integer == 5 || l_month_integer == 7 || l_month_integer == 8 || l_month_integer == 10 || l_month_integer == 12 )
{
l_end_integer = 31;
}
else if( l_month_integer == 4 || l_month_integer == 6 || l_month_integer == 9 || l_month_integer == 11 )
{
l_end_integer = 30;
}
else if( l_boolean_leap )
{
l_end_integer = 29;
}
else
{
l_end_integer = 28;
}
if( l_day_integer > l_end_integer )
{
return false;
}
return true;
}
function f_time_edit( a_time_value )
{
if( a_time_value.length == 6 ) a_time_value = f_string_piece( a_time_value, 1, 2 ) + ":" + f_string_piece( a_time_value, 3, 4 ) + ":" + f_string_piece( a_time_value, 5, 6 );
if( a_time_value.length != 8 ) return false;
if( f_string_count( a_time_value, ":" ) != 2 ) return false;
let l_format_string = "hh:mm:ss";
let l_hour_integer = parseInt( f_string_piece( a_time_value, 1, 2 ), 10 );
let l_minute_integer = parseInt( f_string_piece( a_time_value, 4, 5 ), 10 );
let l_second_integer = parseInt( f_string_piece( a_time_value, 7, 8 ), 10 );
if( l_hour_integer < 0 ) return false;
if( l_hour_integer > 23 ) return false;
if( l_minute_integer < 0 ) return false;
if( l_minute_integer > 59 ) return false;
if( l_second_integer < 0 ) return false;
if( l_second_integer > 59 ) return false;
return true;
}
function f_datetime_edit( a_datetime_value )
{
if( a_datetime_value.length != 14 ) return false;
if( !f_string_is_digits_only( a_datetime_value ) ) return false;
let l_format_string = "yyyymmddhhmmss";
let l_string_date = f_string_piece( a_datetime_value, 1, 4 ) + "-" + f_string_piece( a_datetime_value, 5, 6 ) + "-" + f_string_piece( a_datetime_value, 7, 8 );
let l_string_time = f_string_piece( a_datetime_value, 9, 10 ) + ":" + f_string_piece( a_datetime_value, 11, 12 ) + ":" + f_string_piece( a_datetime_value, 13, 14 );
if( !f_date_edit( l_string_date ) ) return false;
if( !f_time_edit( l_string_time ) ) return false;
return true;
}
function f_datetime_format( a_datetime_object )
{
return f_string_piece( a_datetime_object, 1, 4 ) + "-" + f_string_piece( a_datetime_object, 5, 6 ) + "-" + f_string_piece( a_datetime_object, 7, 8 ) + " " + f_string_piece( a_datetime_object, 9, 10 ) + ":" + f_string_piece( a_datetime_object, 11, 12 ) + ":" + f_string_piece( a_datetime_object, 13, 14 );
}
function f_date_now( )
{
let l_reference_date = new Date( );
let l_year_string = l_reference_date.getUTCFullYear( );
let l_month_string = f_integer_string( l_reference_date.getUTCMonth( ) - 0 + 1 );
if( l_month_string.length == 1 ) l_month_string = "0" + l_month_string
let l_day_string = f_integer_string( l_reference_date.getUTCDate( ) - 0 + 0 );
if( l_day_string.length == 1 ) l_day_string = "0" + l_day_string
return "" + l_year_string + "" + l_month_string + "" + l_day_string;
}
function f_date_format( a_date_value )
{
return f_string_piece( a_date_value, 1, 4 ) + "-" + f_string_piece( a_date_value, 5, 6 ) + "-" + f_string_piece( a_date_value, 7, 8 );
}
function f_datetime_now( )
{
let l_reference_date = new Date( );
let l_year_string = l_reference_date.getUTCFullYear( );
let l_month_string = f_integer_string( l_reference_date.getUTCMonth( ) - 0 + 1 );
if( l_month_string.length == 1 ) l_month_string = "0" + l_month_string
let l_day_string = f_integer_string( l_reference_date.getUTCDate( ) - 0 + 0 );
if( l_day_string.length == 1 ) l_day_string = "0" + l_day_string
let l_hour_string = f_integer_string( l_reference_date.getUTCHours( ) - 0 + 0 );
if( l_hour_string.length == 1 ) l_hour_string = "0" + l_hour_string
let l_minute_string = f_integer_string( l_reference_date.getUTCMinutes( ) - 0 + 0 );
if( l_minute_string.length == 1 ) l_minute_string = "0" + l_minute_string
let l_second_string = f_integer_string( l_reference_date.getUTCSeconds( ) - 0 + 0 );
if( l_second_string.length == 1 ) l_second_string = "0" + l_second_string
return "" + l_year_string + "" + l_month_string + "" + l_day_string + "" + l_hour_string + "" + l_minute_string + "" + l_second_string;
}
function f_decimal_add( l_left_decimal, l_right_decimal )
{
l_left_decimal = f_string_decimal( l_left_decimal );
l_right_decimal = f_string_decimal( l_right_decimal );
return ( l_left_decimal + l_right_decimal );
}
function f_decimal_edit( l_decimal_string, l_min_decimal, l_max_decimal )
{
l_decimal_string = f_decimal_unformat( f_string_assign( l_decimal_string ) );
l_min_decimal = l_min_decimal - 0.00;
l_max_decimal = l_max_decimal - 0.00;
let l_sign_multiplier = 1.00;
if( f_string_same( l_decimal_string, "" ) || f_string_same( l_decimal_string, "undefined" ) || f_string_same( l_decimal_string, "null" ) )
{
return false;
}
if( f_string_begin( l_decimal_string, "-" ) )
{
l_sign_multiplier = -1.00;
l_decimal_string = f_string_piece( l_decimal_string, 2, f_string_length( l_decimal_string ) );
}
else if( f_string_begin( l_decimal_string, "+" ) )
{
l_decimal_string = f_string_piece( l_decimal_string, 2, f_string_length( l_decimal_string ) );
}
if( f_string_begin( l_decimal_string, "." ) )
{
l_decimal_string = "0" + l_decimal_string;
}
if( !f_string_contain( l_decimal_string, "." ) )
{
l_decimal_string = l_decimal_string + ".00";
}
let l_integer_part = f_string_bisect( l_decimal_string, 1, ".", "forward" );
let l_decimal_part = f_string_bisect( l_decimal_string, 2, ".", "forward" );
if( !f_integer_edit( l_integer_part, -999999999999, +999999999999 ) )
{
return false;
}
if( !f_integer_edit( l_decimal_part, -999999999999, +999999999999 ) )
{
return false;
}
let l_decimal_value = f_string_decimal( l_integer_part + "." + l_decimal_part ) * l_sign_multiplier;
if( l_decimal_value < l_min_decimal )
{
return false;
}
if( l_decimal_value > l_max_decimal )
{
return false;
}
return true;
}
function f_decimal_currency( a_data_decimal, a_name_currency )
{
l_data_decimal = f_string_decimal( a_data_decimal );
l_name_currency = f_string_assign( a_name_currency );
let l_decimal_exchange = f_string_decimal( f_string_assign( g['_rate_currency_' + l_name_currency + ''] ) );
let l_value_symbol = f_string_assign( g['_name_currency_' + l_name_currency + ''] );
if( f_string_same( l_name_currency, "USD" ) || f_string_same( l_name_currency, "" ) || f_string_same( l_value_symbol, "" ) || f_decimal_equal( l_decimal_exchange, 0.0 ) )
{
return "$" + f_decimal_format( l_data_decimal, "-90.00" ) + " USD";
}
return l_value_symbol + f_decimal_format( l_data_decimal / l_decimal_exchange, "-90.00" ) + " " + l_name_currency;
}
function f_decimal_equal( l_left_decimal, l_right_decimal )
{
l_left_decimal = f_string_decimal( l_left_decimal );
l_right_decimal = f_string_decimal( l_right_decimal );
return ( l_left_decimal == l_right_decimal );
}
function f_decimal_format( a_decimal_decimal, a_format_string )
{
a_decimal_decimal = f_string_decimal( a_decimal_decimal );
let l_value_string = "" + a_decimal_decimal;
if( l_value_string == "" )
{
return "0.00";
}
if( !f_string_contain( l_value_string, "." ) )
{
return f_integer_format( f_string_integer( l_value_string ), 0 ) + ".00";
}
let l_datetime_integer = l_value_string.indexOf( "." );
let l_integer_string = l_value_string.substring( 0, l_datetime_integer );
let l_integer_integer = parseInt( l_integer_string, 10 );
let l_decimal_string = l_value_string.substring( l_datetime_integer + 1 );
if( l_decimal_string.length == 1 )
{
return l_integer_string + "." + l_decimal_string + "0";
}
let l_one_string = l_decimal_string.substring( 0, 1 );
let l_one_integer = parseInt( l_one_string, 10 );
let l_two_string = l_decimal_string.substring( 1, 2 );
let l_two_integer = parseInt( l_two_string, 10 );
let l_round_string = "0";
if( l_decimal_string.length > 2 )
{
l_round_string = l_decimal_string.substring( 2, 3 );
}
if( parseInt( l_round_string, 10 ) > 4 )
{
l_two_integer = l_two_integer + 1;
if( l_two_integer == 10 )
{
l_two_integer = 0;
l_one_integer = l_one_integer + 1;
if( l_one_integer == 10 )
{
l_one_integer = 0;
l_integer_integer = l_integer_integer + 1;
}
}
}
return f_integer_format( l_integer_integer, 0 ) + "." + l_one_integer + l_two_integer;
}
function f_decimal_integer( a_decimal_decimal )
{
a_decimal_decimal = f_string_decimal( a_decimal_decimal );
return f_string_integer( f_string_bisect( f_decimal_string( a_decimal_decimal ), 1, ".", "forward" ) );
}
function f_decimal_least( l_left_decimal, l_right_decimal )
{
l_left_decimal = f_string_decimal( l_left_decimal );
l_right_decimal = f_string_decimal( l_right_decimal );
return ( l_left_decimal >= l_right_decimal );
}
function f_decimal_less( l_left_decimal, l_right_decimal )
{
l_left_decimal = f_string_decimal( l_left_decimal );
l_right_decimal = f_string_decimal( l_right_decimal );
return ( l_left_decimal < l_right_decimal );
}
function f_decimal_more( l_left_decimal, l_right_decimal )
{
l_left_decimal = f_string_decimal( l_left_decimal );
l_right_decimal = f_string_decimal( l_right_decimal );
return ( l_left_decimal > l_right_decimal );
}
function f_decimal_most( l_left_decimal, l_right_decimal )
{
l_left_decimal = f_string_decimal( l_left_decimal );
l_right_decimal = f_string_decimal( l_right_decimal );
return ( l_left_decimal <= l_right_decimal );
}
function f_decimal_multiply( l_left_decimal, l_right_decimal )
{
l_left_decimal = f_string_decimal( l_left_decimal );
l_right_decimal = f_string_decimal( l_right_decimal );
return ( l_left_decimal * l_right_decimal );
}
function f_decimal_string( l_data_decimal )
{
return "" + l_data_decimal;
}
function f_decimal_unequal( l_left_decimal, l_right_decimal )
{
l_left_decimal = f_string_decimal( l_left_decimal );
l_right_decimal = f_string_decimal( l_right_decimal );
return ( l_left_decimal != l_right_decimal );
}
function f_decimal_unformat( a_decimal_string, a_format_string )
{
return f_string_replace( f_string_replace( a_decimal_string, ",", "" ), " ", "" );
}
function f_field_depend( a_dictionary_noun, a_dictionary_record, a_value_default, a_list_depend, a_field_name, a_key_name )
{
if( f_string_same( a_dictionary_record, "" ) ) return a_value_default;
if( f_string_same( a_dictionary_noun, "" ) ) return a_value_default;
if( f_string_same( a_list_depend, "" ) ) return a_value_default;
if( f_string_same( a_field_name, "" ) ) return a_value_default;
let l_array_field = f_string_split( a_list_depend, g['_separator_comma'] );
let l_count_field = l_array_field.length;
let l_position_field = 0;
let l_value_key = "";
let l_value_value = "";
let l_variable_temp = "";
while( f_string_same( l_value_value, "" ) && f_integer_more( l_count_field, 0 ) )
{
l_value_key = "";
for( l_position_field = 1; l_position_field <= l_count_field; l_position_field++ )
{
l_variable_temp = "" + l_array_field[l_position_field - 1] + "^:^_value";
l_value_key = l_value_key + f_dictionary_read( a_dictionary_record, l_variable_temp );
}
l_value_value = f_dictionary_read( a_dictionary_noun, "definitions^:^_value^:^" + a_field_name + "^:^" + a_key_name + "_" + l_value_key );
l_count_field = l_count_field - 1;
}
if( f_string_same( l_value_value, "" ) ) return a_value_default;
return l_value_value;
}
function f_dictionary_depend( a_dictionary_record, a_value_default, a_list_depend, a_dictionary_depend, a_field_name, a_dictionary_class )
{
let p = window.parent.p;
if( f_string_same( a_dictionary_record, "" ) ) return a_value_default;
if( f_string_same( a_list_depend, "" ) ) return a_value_default;
if( f_string_same( a_dictionary_depend, "" ) ) return a_value_default;
if( f_string_same( a_field_name, "" ) ) return a_value_default;
let l_array_key = new Array( );
let l_array_field = f_string_split( a_list_depend, g['_separator_comma'] );
let l_count_field = l_array_field.length;
let l_position_field = 0;
let l_value_key = "";
let l_value_value = "";
let l_variable_temp = "";
for( l_position_field = 1; l_position_field <= l_count_field; l_position_field++ )
{
l_variable_temp = "" + l_array_field[l_position_field - 1] + "^:^_value";
l_value_key = l_value_key + f_dictionary_read( a_dictionary_record, l_variable_temp );
l_array_key[l_position_field - 1] = "" + l_value_key;
}
for( l_position_field = l_count_field; l_position_field >= 1; l_position_field-- )
{
l_value_value = f_dictionary_read( a_dictionary_depend, a_field_name + "^:^" + l_array_key[l_position_field - 1] );
if( f_string_different( l_value_value, "" ) ) break;
}
if( f_string_same( l_value_value, "" ) ) l_value_value = a_value_default;
return l_value_value;
}
function f_dictionary_erase( a_data_dictionary, a_key_string )
{
if( f_string_same( a_data_dictionary, "" ) || f_string_same( a_key_string, "" ) ) return '';
if( !f_string_begin( a_data_dictionary, " " ) ) a_data_dictionary = " " + a_data_dictionary;
if( !f_string_end( a_data_dictionary, " " ) ) a_data_dictionary = a_data_dictionary + " ";
let a_value_string = f_dictionary_read( a_data_dictionary, a_key_string );
let l_position_for = 1;
let l_position_start = 0;
let l_position_stop = 0;
let l_last_integer = 0;
let l_integer_left = 0;
let l_integer_right = 0;
let l_value_value = "";
let l_open_string = " ^" + f_string_bisect( a_key_string, 1, "^:^", "forward" ) + "^" + "[" + "^";
let l_close_string = "^" + "]" + "^" + f_string_bisect( a_key_string, 1, "^:^", "forward" ) + "^ ";
while( f_integer_most( l_position_for, f_string_length( a_data_dictionary ) ) )
{
l_position_start = f_string_position( a_data_dictionary, l_open_string, "forward", l_position_for, f_string_length( a_data_dictionary ) );
if( f_integer_equal( l_position_start, 0 ) )
{
break;
}
l_integer_left = l_integer_left + f_string_count( a_data_dictionary, "^[^", l_last_integer + 1, l_position_start - 1 );
l_integer_right = l_integer_right + f_string_count( a_data_dictionary, "^]^", l_last_integer + 1, l_position_start - 1 );
l_last_integer = l_position_start - 1;
if( f_integer_unequal( l_integer_left, l_integer_right ) )
{
l_position_for = l_position_start + f_string_length( l_open_string );
continue;
}
break;
}
if( f_integer_equal( l_position_start, 0 ) )
{
return a_data_dictionary;
}
l_position_for = l_position_start + f_string_length( l_open_string );
while( f_integer_most( l_position_for, f_string_length( a_data_dictionary ) ) )
{
l_position_stop = f_string_position( a_data_dictionary, l_close_string, "forward", l_position_for, f_string_length( a_data_dictionary ) );
if( f_integer_equal( l_position_stop, 0 ) )
{
break;
}
l_integer_left = l_integer_left + f_string_count( a_data_dictionary, "^[^", l_last_integer + 1, l_position_stop + f_string_length( l_close_string ) - 1 - 1 );
l_integer_right = l_integer_right + f_string_count( a_data_dictionary, "^]^", l_last_integer + 1, l_position_stop + f_string_length( l_close_string ) - 1 - 1 );
l_last_integer = l_position_stop + f_string_length( l_close_string ) - 1 - 1;
if( f_integer_unequal( l_integer_left, l_integer_right ) )
{
l_position_for = l_position_stop + f_string_length( l_close_string );
continue;
}
break;
}
if( f_integer_equal( l_position_stop, 0 ) )
{
return a_data_dictionary;
}
let l_pre_string = f_string_piece( a_data_dictionary, 1, l_position_start );
let l_post_string = f_string_piece( a_data_dictionary, l_position_stop + l_close_string.length - 1, a_data_dictionary.length );
if( f_string_contain( a_key_string, "^:^" ) )
{
l_value_value = f_string_piece( a_data_dictionary, l_position_start + f_string_length( l_open_string ), l_position_stop - 1 );
l_value_value = f_dictionary_erase( l_value_value, f_string_bisect( a_key_string, 2, "^:^", "forward" ) );
return l_pre_string + "^" + f_string_bisect( a_key_string, 1, "^:^", "forward" ) + "^[^" + l_value_value + "^]^" + f_string_bisect( a_key_string, 1, "^:^", "forward" ) + "^" + l_post_string;
}
return l_pre_string + l_post_string;
}
function f_dictionary_exist( a_data_dictionary, a_key_string )
{
if( f_string_same( a_data_dictionary, "" ) || f_string_same( a_key_string, "" ) )
{
return false;
}
if( f_string_different( f_dictionary_read( a_data_dictionary, a_key_string ), "" ) )
{
return true;
}
let l_place_position = 1;
let l_start_position = 0;
let l_stop_position = 0;
let l_left_count = 0;
let l_right_count = 0;
let l_open_string = " ^" + f_string_bisect( a_key_string, 1, "^:^", "forward" ) + "^" + "[" + "^";
let l_close_string = "^" + "]" + "^" + f_string_bisect( a_key_string, 1, "^:^", "forward" ) + "^ ";
let l_value_value = "";
while( f_integer_most( l_place_position, f_string_length( a_data_dictionary ) ) )
{
l_start_position = f_string_position( a_data_dictionary, l_open_string, "forward", l_place_position, f_string_length( a_data_dictionary ) );
if( f_integer_equal( l_start_position, 0 ) )
{
break;
}
l_place_position = l_start_position + f_string_length( l_open_string );
l_left_count = f_string_count( a_data_dictionary, "^[^", 1, l_start_position - 1 );
l_right_count = f_string_count( a_data_dictionary, "^]^", 1, l_start_position - 1 );
if( f_integer_equal( l_left_count, l_right_count ) ) break;
continue;
}
if( f_integer_equal( l_start_position, 0 ) )
{
return false;
}
while( f_integer_most( l_place_position, f_string_length( a_data_dictionary ) ) )
{
l_stop_position = f_string_position( a_data_dictionary, l_close_string, "forward", l_place_position, f_string_length( a_data_dictionary ) );
if( f_integer_equal( l_stop_position, 0 ) )
{
break;
}
l_place_position = l_stop_position + f_string_length( l_close_string );
l_left_count = f_string_count( a_data_dictionary, "^[^", l_start_position, l_stop_position + f_string_length( l_close_string ) );
l_right_count = f_string_count( a_data_dictionary, "^]^", l_start_position, l_stop_position + f_string_length( l_close_string ) );
if( f_integer_equal( l_left_count, l_right_count ) ) break;
continue;
}
if( f_integer_equal( l_stop_position, 0 ) )
{
return false;
}
if( f_string_contain( a_key_string, "^:^" ) )
{
l_value_value = f_string_piece( a_data_dictionary, l_start_position + f_string_length( l_open_string ), l_stop_position - 1 );
return f_dictionary_exist( l_value_value, f_string_bisect( a_key_string, 2, "^:^", "forward" ) );
}
return true;
}
function f_dictionary_read( a_data_dictionary, a_string_key )
{
if( f_string_same( a_data_dictionary, "" ) || f_string_same( a_string_key, "" ) ) return '';
if( !f_string_begin( a_data_dictionary, " " ) ) a_data_dictionary = " " + a_data_dictionary;
if( !f_string_end( a_data_dictionary, " " ) ) a_data_dictionary = a_data_dictionary + " ";
let l_date_start = Date.now( );
let l_position_for = 1;
let l_position_start = 0;
let l_position_stop = 0;
let l_last_integer = 0;
let l_integer_left = 0;
let l_integer_right = 0;
let l_value_value = "";
let l_open_string = " ^" + f_string_bisect( a_string_key, 1, "^:^", "forward" ) + "^" + "[" + "^";
let l_close_string = "^" + "]" + "^" + f_string_bisect( a_string_key, 1, "^:^", "forward" ) + "^ ";
while( f_integer_most( l_position_for, f_string_length( a_data_dictionary ) ) )
{
l_position_start = f_string_position( a_data_dictionary, l_open_string, "forward", l_position_for, f_string_length( a_data_dictionary ) );
if( f_integer_equal( l_position_start, 0 ) ) break;
l_integer_left = l_integer_left + f_string_count( a_data_dictionary, "^[^", l_last_integer + 1, l_position_start - 1 );
l_integer_right = l_integer_right + f_string_count( a_data_dictionary, "^]^", l_last_integer + 1, l_position_start - 1 );
l_last_integer = l_position_start - 1;
if( f_integer_unequal( l_integer_left, l_integer_right ) )
{
l_position_for = l_position_start + f_string_length( l_open_string );
continue;
}
break;
}
if( f_integer_equal( l_position_start, 0 ) ) return '';
l_position_for = l_position_start + f_string_length( l_open_string );
while( f_integer_most( l_position_for, f_string_length( a_data_dictionary ) ) )
{
l_position_stop = f_string_position( a_data_dictionary, l_close_string, "forward", l_position_for, f_string_length( a_data_dictionary ) );
if( f_integer_equal( l_position_stop, 0 ) ) break;
l_integer_left = l_integer_left + f_string_count( a_data_dictionary, "^[^", l_last_integer + 1, l_position_stop + f_string_length( l_close_string ) - 1 - 1 );
l_integer_right = l_integer_right + f_string_count( a_data_dictionary, "^]^", l_last_integer + 1, l_position_stop + f_string_length( l_close_string ) - 1 - 1 );
l_last_integer = l_position_stop + f_string_length( l_close_string ) - 1 - 1;
if( f_integer_unequal( l_integer_left, l_integer_right ) )
{
l_position_for = l_position_stop + f_string_length( l_close_string );
continue;
}
break;
}
if( f_integer_equal( l_position_stop, 0 ) ) return '';
l_value_value = f_string_piece( a_data_dictionary, l_position_start + f_string_length( l_open_string ), l_position_stop - 1 );
if( f_string_contain( a_string_key, "^:^" ) ) l_value_value = f_dictionary_read( l_value_value, f_string_bisect( a_string_key, 2, "^:^", "forward" ) );
let l_integer_elapsed = f_decimal_integer( ( Date.now( ) - l_date_start ) / 1000.00 );
if( l_integer_elapsed > 0 ) console.log("SLOW DICTIONARY READ=" + f_integer_string( l_integer_elapsed ) + "=" + a_string_key );
return l_value_value;
}
function f_dictionary_write( a_data_dictionary, a_string_key, a_value_string )
{
//if( f_string_contain( a_string_key, "customer" ) ) console.log( "key=" + a_string_key + "=key" );
//if( f_string_count( a_value_string, "^[^" ) != f_string_count( a_value_string, "^]^") )
//{
// console.log( "bracket_mismatch=" + a_value_string );
// return a_data_dictionary;
//}
//let l_count_item = f_string_count( a_value_string, "^[^" ) - f_string_count( a_value_string, "^]^" );
//if( l_count_item > 0 ) a_value_string = a_value_string + f_string_fill( "^]^", l_count_item * 1 );
//if( l_count_item < 0 ) a_value_string = f_string_fill( "^[^", l_count_item * -1 ) + a_value_string;
if( f_string_same( a_string_key, "" ) ) return a_data_dictionary;
if( !f_string_begin( a_data_dictionary, " " ) ) a_data_dictionary = " " + a_data_dictionary;
if( !f_string_end( a_data_dictionary, " " ) ) a_data_dictionary = a_data_dictionary + " ";
//if( !f_string_contain( a_value_string, "^[^" ) && !f_string_contain( a_value_string, "^]^" ) ) c['key=' + a_string_key + ''] = f_string_assign( a_value_string );
let l_value_value = "";
let l_session_boolean = false;
let l_date_start = Date.now( );
let l_position_for = 1;
let l_position_start = 0;
let l_position_stop = 0;
let l_last_integer = 0;
let l_integer_left = 0;
let l_integer_right = 0;
let l_open_string = " ^" + f_string_bisect( a_string_key, 1, "^:^", "forward" ) + "^" + "[" + "^";
let l_close_string = "^" + "]" + "^" + f_string_bisect( a_string_key, 1, "^:^", "forward" ) + "^ ";
//if( f_string_contain( a_string_key, "customer" ) ) console.log( "data=" + a_data_dictionary + "=data" );
while( f_integer_most( l_position_for, f_string_length( a_data_dictionary ) ) )
{
l_position_start = f_string_position( a_data_dictionary, l_open_string, "forward", l_position_for, f_string_length( a_data_dictionary ) );
if( f_integer_equal( l_position_start, 0 ) )
{
break;
}
l_integer_left = l_integer_left + f_string_count( a_data_dictionary, "^[^", l_last_integer + 1, l_position_start - 1 );
l_integer_right = l_integer_right + f_string_count( a_data_dictionary, "^]^", l_last_integer + 1, l_position_start - 1 );
l_last_integer = l_position_start - 1;
if( f_integer_unequal( l_integer_left, l_integer_right ) )
{
l_position_for = l_position_start + f_string_length( l_open_string );
continue;
}
break;
}
//if( f_string_contain( a_string_key, "customer" ) ) console.log( "start=" + l_position_start );
if( f_integer_equal( l_position_start, 0 ) )
{
if( f_string_contain( a_string_key, "^:^" ) )
{
l_value_value = a_data_dictionary + "^" + f_string_bisect( a_string_key, 1, "^:^", "forward" ) + "^[^" + f_dictionary_write( "", f_string_bisect( a_string_key, 2, "^:^", "forward" ), a_value_string ) + "^]^" + f_string_bisect( a_string_key, 1, "^:^", "forward" ) + "^ ";
return l_value_value;
}
l_value_value = a_data_dictionary + "^" + a_string_key + "^[^" + a_value_string + "^]^" + a_string_key + "^ ";
return l_value_value;
}
l_position_for = l_position_start + f_string_length( l_open_string );
while( f_integer_most( l_position_for, f_string_length( a_data_dictionary ) ) )
{
l_position_stop = f_string_position( a_data_dictionary, l_close_string, "forward", l_position_for, f_string_length( a_data_dictionary ) );
if( f_integer_equal( l_position_stop, 0 ) )
{
break;
}
l_integer_left = l_integer_left + f_string_count( a_data_dictionary, "^[^", l_last_integer + 1, l_position_stop + f_string_length( l_close_string ) - 1 - 1 );
l_integer_right = l_integer_right + f_string_count( a_data_dictionary, "^]^", l_last_integer + 1, l_position_stop + f_string_length( l_close_string ) - 1 - 1 );
l_last_integer = l_position_stop + f_string_length( l_close_string ) - 1 - 1;
if( f_integer_unequal( l_integer_left, l_integer_right ) )
{
l_position_for = l_position_stop + f_string_length( l_close_string );
continue;
}
break;
}
//if( f_string_contain( a_string_key, "customer" ) ) console.log( "stop=" + l_position_stop );
if( f_integer_equal( l_position_stop, 0 ) )
{
if( f_string_contain( a_string_key, "^:^" ) )
{
l_value_value = a_data_dictionary + "^" + f_string_bisect( a_string_key, 1, "^:^", "forward" ) + "^[^" + f_dictionary_write( "", f_string_bisect( a_string_key, 2, "^:^", "forward" ), a_value_string ) + "^]^" + f_string_bisect( a_string_key, 1, "^:^", "forward" ) + "^ ";
return l_value_value;
}
l_value_value = a_data_dictionary + " ^" + a_string_key + "^[^" + a_value_string + "^]^" + a_string_key + "^ ";
return l_value_value;
}
let l_pre_string = f_string_piece( a_data_dictionary, 1, l_position_start );
let l_post_string = f_string_piece( a_data_dictionary, l_position_stop + l_close_string.length - 1, a_data_dictionary.length );
if( f_string_contain( a_string_key, "^:^" ) )
{
l_value_value = f_string_piece( a_data_dictionary, l_position_start + f_string_length( l_open_string ), l_position_stop - 1 );
l_value_value = f_dictionary_write( l_value_value, f_string_bisect( a_string_key, 2, "^:^", "forward" ), a_value_string );
l_value_value = l_pre_string + "^" + f_string_bisect( a_string_key, 1, "^:^", "forward" ) + "^[^" + l_value_value + "^]^" + f_string_bisect( a_string_key, 1, "^:^", "forward" ) + "^" + l_post_string;
let l_integer_elapsed = f_decimal_integer( ( Date.now( ) - l_date_start ) / 1000.00 );
if( l_integer_elapsed > 0 ) console.log("complex_time=" + f_integer_string( l_integer_elapsed ) + "=" + a_string_key );
return l_value_value;
}
l_value_value = l_pre_string + "^" + a_string_key + "^[^" + a_value_string + "^]^" + a_string_key + "^" + l_post_string;
let l_integer_elapsed = f_decimal_integer( ( Date.now( ) - l_date_start ) / 1000.00 );
if( l_integer_elapsed > 0 ) console.log("simple_time=" + f_integer_string( l_integer_elapsed ) + "=" + a_string_key );
return l_value_value;
}
function f_document_height( a_document_object )
{
return Math.max( a_document_object.body.scrollHeight, a_document_object.documentElement.scrollHeight, a_document_object.body.offsetHeight, a_document_object.documentElement.offsetHeight, a_document_object.body.clientHeight, a_document_object.documentElement.clientHeight );
}
function f_document_width( a_document_object )
{
return Math.max( a_document_object.body.scrollWidth, a_document_object.documentElement.scrollWidth, a_document_object.body.offsetWidth, a_document_object.documentElement.offsetWidth, a_document_object.body.clientWidth, a_document_object.documentElement.clientWidth );
}
function f_element_active( )
{
try
{
return window.document.activeElement.id;
}
catch( l_exception_catch )
{
}
return '';
}
function f_element_height( a_element_string )
{
let l_document_element = window.document.getElementById( a_element_string );
let l_value_value = window.document.defaultView.getComputedStyle( l_document_element, "" ).getPropertyValue( "height" );
l_value_value = f_string_bisect( l_value_value, 1, "px" );
let l_integer_height = parseInt( l_value_value, 10 );
return l_integer_height;
}
function f_element_horizontal( a_reference_element )
{
let l_horizontal_integer = 0;
while( a_reference_element )
{
l_horizontal_integer = l_horizontal_integer - 0 + a_reference_element.offsetleft;
a_reference_element = a_reference_element.offsetParent;
}
return l_horizontal_integer;
}
function f_element_object( a_name_object )
{
return window.document.getElementById( a_name_object );
}
function f_element_scroll( a_reference_element )
{
if( typeof a_reference_element == 'string' )
{
a_reference_element = f_element_object( a_reference_element );
}
if( a_reference_element == null )
{
window.scrollTo( 0, 0 );
return;
}
let l_X_integer = 0;
let l_Y_integer = 0;
while( a_reference_element != null )
{
l_X_integer = l_X_integer + a_reference_element.offsetleft;
l_Y_integer = l_Y_integer + a_reference_element.offsetTop;
a_reference_element = a_reference_element.offsetParent;
}
window.scrollTo( l_X_integer, l_Y_integer );
try
{
a_reference_element.focus( );
}
catch( l_exception_catch )
{
}
}
function f_element_vertical( a_reference_element )
{
let l_vertical_integer = 0;
while( a_reference_element )
{
l_vertical_integer = l_vertical_integer - 0 + a_reference_element.offsetTop;
a_reference_element = a_reference_element.offsetParent;
}
return l_vertical_integer;
}
function f_element_width( a_element_string )
{
let l_document_element = window.document.getElementById( a_element_string );
let l_value_value = window.document.defaultView.getComputedStyle( l_document_element, "" ).getPropertyValue( "width" );
l_value_value = f_string_bisect( l_value_value, 1, "px" );
let l_width_integer = parseInt( l_value_value, 10 );
return l_width_integer;
}
function f_element_tall( a_id_element )
{
let a_reference_element = f_element_object( a_id_element );
return Math.max( a_reference_element.scrollHeight, a_reference_element.offsetHeight, a_reference_element.clientHeight );
}
function f_element_wide( a_id_element )
{
let a_reference_element = f_element_object( a_id_element );
return Math.max( a_reference_element.scrollWidth, a_reference_element.offsetWidth, a_reference_element.clientWidth );
}
function f_frame_convert_position_to_point( a_position_frame, a_count_fps )
{
try
{
let l_count_frames = a_position_frame % a_count_fps;
let l_count_total = f_decimal_convert_to_integer( a_position_frame / a_count_fps );
let l_count_hours = f_decimal_convert_to_integer( l_count_total / 60 / 60 );
l_count_total = l_count_total - ( l_count_hours * 60 * 60 );
let l_count_minutes = f_decimal_convert_to_integer( l_count_total / 60 ); ;
let l_count_seconds = l_count_total - ( l_count_minutes * 60 );
return "" + l_count_hours + "h " + l_count_minutes + "m " + l_count_seconds + "s " + l_count_frames + "f";
}
catch( l_exception_catch )
{
}
return "0h 0m 0s 0f";
}
function f_frame_convert_point_to_position( a_point_frame, a_count_fps )
{
try
{
let l_count_hours = f_string_long( f_string_bisect( a_point_frame, 1, "h ", "forward" ) ) * 60 * 60;
let l_count_minutes = f_string_long( f_string_bisect( f_string_bisect( a_point_frame, 2, "h ", "forward" ), 1, "m", "forward" ) ) * 60;
let l_count_seconds = f_string_long( f_string_bisect( f_string_bisect( a_point_frame, 2, "m ", "forward" ), 1, "s", "forward" ) ) * 1;
let l_count_frames = f_string_long( f_string_bisect( f_string_bisect( a_point_frame, 2, "s ", "forward" ), 1, "f", "forward" ) ) * 1;
return ( ( l_count_hours + l_count_minutes + l_count_seconds ) * a_count_fps ) + l_count_frames;
}
catch( l_exception_catch )
{
}
return 0;
}
function f_integer_add( l_integer_left, l_integer_right )
{
l_integer_left = f_string_integer( l_integer_left );
l_integer_right = f_string_integer( l_integer_right );
return ( l_integer_left + l_integer_right );
}
function f_integer_decimal( a_integer_integer )
{
a_integer_integer = f_string_integer( a_integer_integer );
return f_string_decimal( f_integer_string( a_integer_integer ) + ".00" );
}
function f_integer_edit( a_integer_string, a_min_integer, a_max_integer )
{
if( f_string_integer( a_integer_string ) < a_min_integer )
{
return false;
}
if( f_string_integer( a_integer_string ) > a_max_integer )
{
return false;
}
a_integer_string = f_integer_unformat( f_string_assign( a_integer_string ) );
a_min_integer = a_min_integer - 0;
a_max_integer = a_max_integer - 0;
let l_loop_integer = 0;
if( f_string_same( a_integer_string, "" ) || f_string_same( a_integer_string, "undefined" ) || f_string_same( a_integer_string, "null" ) )
{
return false;
}
if( f_string_begin( a_integer_string, "-" ) )
{
a_integer_string = f_string_piece( a_integer_string, 2, f_string_length( a_integer_string ) );
}
else if( f_string_begin( a_integer_string, "+" ) )
{
a_integer_string = f_string_piece( a_integer_string, 2, f_string_length( a_integer_string ) );
}
for( l_loop_integer = 1; l_loop_integer <= a_integer_string.length; l_loop_integer++ )
{
if( a_integer_string.charCodeAt( l_loop_integer - 1 ) < 48 )
{
return false;
}
if( a_integer_string.charCodeAt( l_loop_integer - 1 ) > 57 )
{
return false;
}
}
return true;
}
function f_integer_equal( l_integer_left, l_integer_right )
{
l_integer_left = f_string_integer( l_integer_left );
l_integer_right = f_string_integer( l_integer_right );
return ( l_integer_left == l_integer_right );
}
function f_integer_scale( a_integer_integer, a_string_unit )
{
a_integer_integer = f_string_integer( a_integer_integer );
let l_string_integer = f_integer_format( a_integer_integer, 0 );
let l_count_comma = f_string_count( l_string_integer, "," );
if( f_integer_equal( l_count_comma, 0 ) ) return l_string_integer + ' ' + a_string_unit;
if( f_integer_equal( l_count_comma, 1 ) ) return f_string_bisect( l_string_integer, 1, ",", "forward" ) + ' kilo' + a_string_unit;
if( f_integer_equal( l_count_comma, 2 ) ) return f_string_bisect( l_string_integer, 1, ",", "forward" ) + ' mega' + a_string_unit;
if( f_integer_equal( l_count_comma, 3 ) ) return f_string_bisect( l_string_integer, 1, ",", "forward" ) + ' giga' + a_string_unit;
if( f_integer_equal( l_count_comma, 4 ) ) return f_string_bisect( l_string_integer, 1, ",", "forward" ) + ' tera' + a_string_unit;
if( f_integer_equal( l_count_comma, 5 ) ) return f_string_bisect( l_string_integer, 1, ",", "forward" ) + ' peta' + a_string_unit;
if( f_integer_equal( l_count_comma, 6 ) ) return f_string_bisect( l_string_integer, 1, ",", "forward" ) + ' eax' + a_string_unit;
if( f_integer_equal( l_count_comma, 7 ) ) return f_string_bisect( l_string_integer, 1, ",", "forward" ) + ' zetta' + a_string_unit;
if( f_integer_equal( l_count_comma, 8 ) ) return f_string_bisect( l_string_integer, 1, ",", "forward" ) + ' yotta' + a_string_unit;
return + ' ' + a_string_unit;
}
function f_integer_format( a_object_integer, a_places_integer )
{
a_object_integer = f_string_integer( a_object_integer );
a_places_integer = f_string_integer( a_places_integer );
if( a_places_integer == 0 )
{
let l_format_string = "";
let l_digit_string = "";
let l_digits_string = f_integer_string( a_object_integer );
let l_position_part = 0;
let l_digit_integer = 0;
let l_digits_integer = f_string_length( l_digits_string );
for( l_digit_integer = l_digits_integer; l_digit_integer >= 1; l_digit_integer-- )
{
l_position_part = l_position_part + 1;
l_digit_string = f_string_piece( l_digits_string, l_digit_integer, l_digit_integer );
if( l_position_part == 4 )
{
l_format_string = l_digit_string + "," + l_format_string;
l_position_part = 1;
}
else
{
l_format_string = l_digit_string + l_format_string;
}
}
return l_format_string;
}
l_value_value = "" + a_object_integer;
let l_delta_integer = a_places_integer - l_value_value.length;
if( l_delta_integer == 0 )
{
return l_value_value;
}
if( l_delta_integer > 0 )
{
let l_return_string = "" + l_value_value;
l_return_string = "" + f_string_fill( "0", l_delta_integer ) + l_return_string;
return l_return_string;
}
return f_string_fill( "9", l_delta_integer );
}
function f_integer_least( l_integer_left, l_integer_right )
{
l_integer_left = f_string_integer( l_integer_left );
l_integer_right = f_string_integer( l_integer_right );
return ( l_integer_left >= l_integer_right );
}
function f_integer_less( l_integer_left, l_integer_right )
{
l_integer_left = f_string_integer( l_integer_left );
l_integer_right = f_string_integer( l_integer_right );
return ( l_integer_left < l_integer_right );
}
function f_integer_mod( l_integer_left, l_integer_right )
{
l_integer_left = f_string_integer( l_integer_left );
l_integer_right = f_string_integer( l_integer_right );
return ( l_integer_left % l_integer_right );
}
function f_integer_more( l_integer_left, l_integer_right )
{
l_integer_left = f_string_integer( l_integer_left );
l_integer_right = f_string_integer( l_integer_right );
return ( l_integer_left > l_integer_right );
}
function f_integer_most( l_integer_left, l_integer_right )
{
l_integer_left = f_string_integer( l_integer_left );
l_integer_right = f_string_integer( l_integer_right );
return ( l_integer_left <= l_integer_right );
}
function f_integer_random( a_limit_integer )
{
return Math.floor( Math.random( ) * a_limit_integer ) + 1;
}
function f_integer_string( a_data_integer )
{
return "" + a_data_integer;
}
function f_integer_unequal( l_integer_left, l_integer_right )
{
l_integer_left = f_string_integer( l_integer_left );
l_integer_right = f_string_integer( l_integer_right );
return ( l_integer_left != l_integer_right );
}
function f_integer_unformat( a_integer_string, a_format_string )
{
return f_string_replace( f_string_replace( a_integer_string, ",", "" ), " ", "" );
}
function f_item_list( a_item_string, a_list_data, l_Delimiter_string )
{
return f_list_item( a_list_data, a_item_string, l_Delimiter_string );
}
function f_item_list( a_item_string, a_list_data, l_Delimiter_string )
{
return f_list_item( a_list_data, a_item_string, l_Delimiter_string );
}
function f_list_all( a_data_list, a_alllist, a_string_delimiter )
{
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
if( f_string_same( a_data_list, "" ) || f_string_same( a_alllist, "" ) ) return false;
let l_array_item = f_string_split( a_alllist, a_string_delimiter );
let l_count_item = l_array_item.length;
let l_position_item = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
if( !f_list_item( a_data_list, l_array_item[l_position_item - 1] ) ) return false
}
return true;
}
function f_list_any( a_data_list, a_any_list, a_string_delimiter )
{
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
if( f_string_same( a_data_list, "" ) || f_string_same( a_any_list, "" ) ) return false;
let l_array_item = f_string_split( a_any_list, a_string_delimiter );
let l_count_item = l_array_item.length;
let l_position_item = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
if( f_list_item( a_data_list, l_array_item[l_position_item - 1] ) ) return true;
}
return false;
}
function f_list_append( a_data_list, a_item_string, a_string_delimiter )
{
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
if( f_string_same( a_item_string, "" ) ) return a_data_list;
if( f_string_same( a_data_list, "" ) ) return a_item_string;
return a_data_list + a_string_delimiter + a_item_string;
}
function f_list_begin( a_data_list, a_begin_string, a_string_delimiter )
{
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
if( f_string_same( a_data_list, "" ) ) return false;
if( f_string_same( a_begin_string, "" ) ) return false;
let l_array_item = f_string_split( a_data_list, a_string_delimiter );
let l_count_item = l_array_item.length;
let l_position_item = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
if( f_string_begin( l_array_item[l_position_item - 1], a_begin_string ) ) return true;
}
return false;
}
function f_list_delete( a_data_list, a_item_string, a_string_delimiter )
{
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
a_item_string = f_string_assign( a_item_string );
if( f_string_same( a_data_list, a_item_string ) ) return '';
if( f_string_same( a_item_string, "" ) ) return a_data_list;
if( f_string_same( a_data_list, "" ) ) return a_data_list;
let l_return_string = a_string_delimiter + a_data_list + a_string_delimiter;
let l_array_item = f_string_split( a_item_string, a_string_delimiter );
let l_count_item = l_array_item.length;
let l_position_item = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
if( f_string_contain( l_return_string, a_string_delimiter + l_array_item[l_position_item - 1] + a_string_delimiter ) )
{
l_return_string = f_string_replace( l_return_string, a_string_delimiter + l_array_item[l_position_item - 1] + a_string_delimiter, a_string_delimiter );
}
if( f_string_same( l_return_string, a_string_delimiter + a_string_delimiter ) )
{
return '';
}
}
return f_string_piece( l_return_string, 1 + a_string_delimiter.length, l_return_string.length - a_string_delimiter.length );
}
function f_list_end( a_data_list, a_end_string, a_string_delimiter )
{
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
if( f_string_same( a_data_list, "" ) ) return false;
if( f_string_same( a_end_string, "" ) ) return false;
let l_array_item = f_string_split( a_data_list, a_string_delimiter );
let l_count_item = l_array_item.length;
let l_position_item = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
if( !f_string_end( l_array_item[l_position_item - 1], a_end_string ) ) return false;
}
return true;
}
function f_list_item( a_list_data, a_item_string, a_string_delimiter )
{
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
if( f_string_same( "" + a_list_data + "", "" ) || f_string_same( a_list_data, "" ) || f_string_same( "" + a_item_string + "", "" ) || f_string_same( a_item_string, "" ) ) return false;
if( f_string_same( a_list_data, a_item_string ) ) return true;
if( f_string_begin( a_list_data, a_item_string + a_string_delimiter ) ) return true;
if( f_string_end( a_list_data, a_string_delimiter + a_item_string ) ) return true;
if( f_integer_unequal( f_string_position( a_list_data, a_string_delimiter + a_item_string + a_string_delimiter, "forward", 1, f_string_length( a_list_data ) ), 0 ) ) return true;
return false;
}
function f_list_insert( a_data_list, a_insert_string, a_string_delimiter )
{
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
if( f_string_same( a_insert_string, "" ) ) return a_data_list;
if( f_string_same( a_data_list, "" ) ) return a_insert_string;
let l_return_string = a_data_list;
let l_insert_strings = f_string_split( a_insert_string, a_string_delimiter );
let l_loops_integer = l_insert_strings.length;
let l_loop_integer = 0;
for( l_loop_integer = 1; l_loop_integer <= l_loops_integer; l_loop_integer++ )
{
l_return_string = f_list_inserting( l_return_string, l_insert_strings[l_loop_integer - 1], a_string_delimiter );
}
return l_return_string;
}
function f_list_inserting( a_data_list, a_inserting_string, a_string_delimiter )
{
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
if( f_string_same( a_inserting_string, "" ) ) return a_data_list;
if( f_string_same( a_data_list, "" ) ) return a_inserting_string;
if( f_list_item( a_data_list, a_inserting_string ) ) return a_data_list;
return a_data_list + a_string_delimiter + a_inserting_string;
}
function f_cascade_blurb( a_cascade_data )
{
if( !f_string_contain( a_cascade_data, "" ) ) return "";
let p = window.parent.p;
let l_array_cascade = f_string_split( a_cascade_data, "" );
let l_position_cascade = 0;
let l_count_cascade = l_array_cascade.length;
let l_string_cascade = "";
for( l_position_cascade = 1; l_position_cascade < l_count_cascade; l_position_cascade++ )
{
l_string_cascade = f_string_bisect( l_array_cascade[l_position_cascade - 1], 2, ">", "forward" );
if( l_string_cascade.length > 100 ) l_array_cascade[l_position_cascade - 1] = f_string_bisect( l_array_cascade[l_position_cascade - 1], 1, ">", "forward" ) + ">" + f_string_left( l_string_cascade, 80 ) + " ... " + f_string_right( l_string_cascade, 20 );
}
return f_array_join( l_array_cascade, "" );
}
function f_cascade_integer( a_integer_value )
{
let l_position_item = 0;
let l_return_list = "";
for( l_position_item = 1; l_position_item <= a_integer_value; l_position_item++ )
{
l_return_list = l_return_list + '' + l_position_item + '';
continue;
}
return l_return_list;
}
function f_list_cascade( a_value_list, a_label_list, a_string_delimiter )
{
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
let l_value_list = f_string_assign( a_value_list );
if( f_string_same( l_value_list, "" ) ) return "";
let l_label_list = f_string_assign( a_label_list );
if( f_string_same( l_label_list, "" ) ) l_label_list = f_string_assign( l_value_list );
let l_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( l_string_delimiter, "" ) ) l_string_delimiter = g['_separator_comma'];
let l_array_value = f_string_split( l_value_list, l_string_delimiter );
let l_array_label = f_string_split( l_label_list, l_string_delimiter );
let l_count_item = l_array_value.length;
let l_position_item = 0;
let l_return_list = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
if( l_position_item <= l_array_label.length )
{
l_return_list = l_return_list + '' + l_array_label[l_position_item - 1] + '';
}
else
{
l_return_list = l_return_list + '' + l_array_value[l_position_item - 1] + '';
}
}
return l_return_list;
}
function f_list_prefix( a_data_list, a_prefix_string, a_string_delimiter )
{
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
let l_return_list = "";
let l_array_item = f_string_split( a_data_list, a_string_delimiter );
let l_count_item = l_array_item.length;
let l_position_item = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_return_list = f_list_append( l_return_list, a_prefix_string + l_array_item[l_position_item - 1] );
continue;
}
return l_return_list;
}
function f_list_prepend( a_data_list, a_item_string, a_string_delimiter )
{
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
if( f_string_same( a_data_list, "" ) ) return a_item_string;
return a_item_string + a_string_delimiter + a_data_list;
}
function f_list_sort( a_data_list, a_string_delimiter )
{
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
if( f_string_same( f_string_assign( a_data_list ), "" ) || f_string_same( f_string_assign( a_data_list ), "undefined" ) || f_string_same( f_string_assign( a_data_list ), "null" ) ) return '';
return f_string_split( a_data_list, a_string_delimiter ).sort( f_string_chompare ).join( a_string_delimiter );
}
function f_list_suffix( a_data_list, a_suffix_string, a_string_delimiter )
{
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
let l_return_list = "";
let l_array_item = f_string_split( a_data_list, a_string_delimiter );
let l_count_item = l_array_item.length;
let l_position_item = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_return_list = f_list_append( l_return_list, l_array_item[l_position_item - 1] + a_suffix_string );
continue;
}
return l_return_list;
}
function f_list_unique( a_data_list, a_string_delimiter )
{
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
let l_object_item = new Object();
let l_array_item = f_string_split( a_data_list, a_string_delimiter );
let l_count_item = l_array_item.length;
let l_position_item = 0;
let l_return_list = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
if( f_string_same( f_string_assign( l_object_item['' + l_array_item[l_position_item - 1] + ''] ), l_array_item[l_position_item - 1] ) ) continue;
l_object_item['' + l_array_item[l_position_item - 1] + ''] = l_array_item[l_position_item - 1];
l_return_list = f_list_append( l_return_list, l_array_item[l_position_item - 1], a_string_delimiter );
continue;
}
return l_return_list;
}
function f_datetime_current( )
{
let l_reference_date = new Date( );
let l_year_string = l_reference_date.getUTCFullYear( );
let l_month_string = f_integer_string( l_reference_date.getUTCMonth( ) - 0 + 1 );
if( l_month_string.length == 1 ) l_month_string = "0" + l_month_string
let l_day_string = f_integer_string( l_reference_date.getUTCDate( ) - 0 + 0 );
if( l_day_string.length == 1 ) l_day_string = "0" + l_day_string
let l_hour_string = f_integer_string( l_reference_date.getUTCHours( ) - 0 + 0 );
if( l_hour_string.length == 1 ) l_hour_string = "0" + l_hour_string
let l_minute_string = f_integer_string( l_reference_date.getUTCMinutes( ) - 0 + 0 );
if( l_minute_string.length == 1 ) l_minute_string = "0" + l_minute_string
let l_second_string = f_integer_string( l_reference_date.getUTCSeconds( ) - 0 + 0 );
if( l_second_string.length == 1 ) l_second_string = "0" + l_second_string
return "" + l_year_string + "" + l_month_string + "" + l_day_string + "" + l_hour_string + "" + l_minute_string + "" + l_second_string;
}
function f_datetime_edit( a_datetime_string )
{
if( a_datetime_string.length != 14 ) return false;
if( !f_string_is_digits_only( a_datetime_string ) ) return false;
if( !f_date_edit( a_datetime_string.substring( 0, 8 ) ) ) return false;
if( !f_time_edit( a_datetime_string.substring( 8, 14 ) ) ) return false;
return true;
}
function f_datetime_add( a_datetime_string, a_unit_string, a_add_integer )
{
if( !f_datetime_edit( a_datetime_string ) ) return a_datetime_string;
let l_boolean_leap = false;
let l_boolean_loop = true;
let l_integer_year = 0;
let l_integer_month = 0;
let l_integer_day = 0;
let l_hour_integer = 0;
let l_minute_integer = 0;
let l_second_integer = 0;
let l_carry_integer = 0;
let l_position_end = 0;
let l_year_string = "";
let l_month_string = "";
let l_day_string = "";
let l_hour_string = "";
let l_minute_string = "";
let l_second_string = "";
l_integer_year = f_string_integer( a_datetime_string.substring( 0, 4 ) );
l_integer_month = f_string_integer( a_datetime_string.substring( 4, 6 ) );
l_integer_day = f_string_integer( a_datetime_string.substring( 6, 8 ) );
l_hour_integer = f_string_integer( a_datetime_string.substring( 8, 10 ) );
l_minute_integer = f_string_integer( a_datetime_string.substring( 10, 12 ) );
l_second_integer = f_string_integer( a_datetime_string.substring( 12, 14 ) );
if( a_unit_string.startsWith( "second" ) )
{
l_second_integer = l_second_integer + a_add_integer;
}
else if( a_unit_string.startsWith( "minute" ) )
{
l_minute_integer = l_minute_integer + a_add_integer;
}
else if( a_unit_string.startsWith( "hour" ) )
{
l_hour_integer = l_hour_integer + a_add_integer;
}
else if( a_unit_string.startsWith( "day" ) )
{
l_integer_day = l_integer_day + a_add_integer;
}
else if( a_unit_string.startsWith( "month" ) )
{
l_integer_month = l_integer_month + a_add_integer;
}
else if( a_unit_string.startsWith( "year" ) )
{
l_integer_year = l_integer_year + a_add_integer;
}
else
{
return a_datetime_string;
}
l_second_integer = l_second_integer + l_carry_integer;
l_carry_integer = 0;
while( l_second_integer > 59 )
{
l_second_integer = l_second_integer - 60;
l_carry_integer = l_carry_integer + 1;
}
l_minute_integer = l_minute_integer + l_carry_integer;
l_carry_integer = 0;
while( l_minute_integer > 59 )
{
l_minute_integer = l_minute_integer - 60;
l_carry_integer = l_carry_integer + 1;
}
l_hour_integer = l_hour_integer + l_carry_integer;
l_carry_integer = 0;
while( l_hour_integer > 23 )
{
l_hour_integer = l_hour_integer - 24;
l_carry_integer = l_carry_integer + 1;
}
l_integer_day = l_integer_day + l_carry_integer;
l_carry_integer = 0;
while( l_boolean_loop )
{
if( ( l_integer_year % 100 == 0 ) && ( l_integer_year % 400 == 0 ) )
{
l_boolean_leap = true;
}
else if( l_integer_year % 4 == 0 )
{
l_boolean_leap = true;
}
else
{
l_boolean_leap = false;
}
if( l_integer_month == 1 || l_integer_month == 3 || l_integer_month == 5 || l_integer_month == 7 || l_integer_month == 8 || l_integer_month == 10 || l_integer_month == 12 )
{
l_position_end = 31;
}
else if( l_integer_month == 4 || l_integer_month == 6 || l_integer_month == 9 || l_integer_month == 11 )
{
l_position_end = 30;
}
else if( l_boolean_leap )
{
l_position_end = 29;
}
else
{
l_position_end = 28;
}
if( l_integer_day <= l_position_end )
{
break;
}
l_integer_day = l_integer_day - l_position_end;
l_integer_month = l_integer_month + 1;
if( l_integer_month > 12 )
{
l_integer_month = 1;
l_integer_year = l_integer_year + 1;
}
}
if( !a_unit_string.startsWith( "day" ) )
{
l_integer_month = l_integer_month + l_carry_integer;
l_carry_integer = 0;
if( l_integer_month > 12 )
{
l_carry_integer = Math.floor( l_integer_month / 12 );
l_integer_month = l_integer_month % 12;
}
}
if( !a_unit_string.startsWith( "day" ) )
{
l_integer_year = l_integer_year + l_carry_integer;
l_carry_integer = 0;
if( l_integer_year > 9999 )
{
l_integer_year = 9999;
}
}
l_year_string = "" + l_integer_year;
if( l_year_string.length < 4 )
{
l_year_string = f_string_fill( "0", 4 - l_year_string.length ) + l_integer_year;
}
l_month_string = "" + l_integer_month;
if( l_month_string.length < 2 )
{
l_month_string = f_string_fill( "0", 2 - l_month_string.length ) + l_integer_month;
}
l_day_string = "" + l_integer_day;
if( l_day_string.length < 2 )
{
l_day_string = f_string_fill( "0", 2 - l_day_string.length ) + l_integer_day;
}
l_hour_string = "" + l_hour_integer;
if( l_hour_string.length < 2 )
{
l_hour_string = f_string_fill( "0", 2 - l_hour_string.length ) + l_hour_integer;
}
l_minute_string = "" + l_minute_integer;
if( l_minute_string.length < 2 )
{
l_minute_string = f_string_fill( "0", 2 - l_minute_string.length ) + l_minute_integer;
}
l_second_string = "" + l_second_integer;
if( l_second_string.length < 2 )
{
l_second_string = f_string_fill( "0", 2 - l_second_string.length ) + l_second_integer;
}
return l_year_string + l_month_string + l_day_string + l_hour_string + l_minute_string + l_second_string;
}
function f_phrase_capitalize( a_phrase_string )
{
if( a_phrase_string == "" ) return ""
let l_boolean_capitalize = false;
let l_character_position = 0;
let l_character_count = a_phrase_string.length;
let l_character_value = f_string_piece( a_phrase_string, 1, 1 );
let l_value_return = f_string_uppercase( l_character_value );
if( f_item_list( l_character_value, ' ^,^"^,^.^,^?^,^!^,^=^,^(^,^)^,^[^,^]^,^{^,^}^,^/^,^\\^,^+^,^|' ) ) l_boolean_capitalize = true;
for( l_character_position = 2; l_character_position <= l_character_count; l_character_position++ )
{
l_character_value = f_string_piece( a_phrase_string, l_character_position, l_character_position );
if( f_item_list( l_character_value, ' ^,^"^,^.^,^?^,^!^,^=^,^(^,^)^,^[^,^]^,^{^,^}^,^/^,^\\^,^+^,^|' ) )
{
l_value_return = l_value_return + l_character_value;
l_boolean_capitalize = true;
}
else if( l_boolean_capitalize )
{
l_value_return = l_value_return + f_string_uppercase( l_character_value );
l_boolean_capitalize = false;
}
else
{
l_value_return = l_value_return + f_string_lowercase( l_character_value );
}
}
l_value_return = f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( " " + l_value_return + " ", " Dvd ", " DVD " ), " Cd ", " CD " ), " Id ", " ID " ), " Ip ", " IP " ), " Dupont ", " DuPont " ), " ibm ", " IBM " ), " Mca", "McA" ), " Mcb", "McB" ), " Mcc", "McC" ), " Mcd", "McD" ), " O'd", "O'D" );
return f_string_piece( l_value_return, 2, l_value_return.length - 1 );
}
function f_picture_size( a_number_picture, a_name )
{
f_element_object( '_image_' + a_number_picture + '_' ).src = f_string_replace( f_string_replace( f_element_object( '_image_' + a_number_picture + '_' ).src, '/front.jpg', '/' + a_name + '.jpg' ), '/back.jpg', '/' + a_name + '.jpg' );
return;
}
function f_sentence_parse( a_string_string )
{
return f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( a_string_string, ". ", ". ^,^" ), "? ", "? ^,^" ), "! ", "! ^,^" ), ".} ", ".} ^,^" ), "?} ", "?} ^,^" ), "!} ", "!} ^,^" );
}
function f_sentence_parsex( a_string_string )
{
let l_count_length = 0;
let l_position_for = 0;
let l_position_break = 0;
let l_string_character = "";
let l_string_value = "";
let l_string_return = "";
l_position_for = 1;
l_count_length = f_string_length( a_string_string );
while( l_position_for <= l_count_length )
{
l_string_value = f_string_piece( a_string_string, l_position_for + 2, l_position_for + 2 );
if( l_string_value == "\"" )
{
}
else if( ( l_string_value >= "A" ) && ( l_string_value <= "Z" ) )
{
}
else
{
l_position_for = l_position_for + 2;
continue;
}
l_string_value = f_string_piece( a_string_string, l_position_for, l_position_for + 2 - 1 );
if( f_string_different( l_string_value, ". " ) && f_string_different( l_string_value, "? " ) && f_string_different( l_string_value, "! " ) )
{
l_position_for = l_position_for + 1;
continue;
}
if( l_position_break > 0 ) l_string_return = l_string_return + g['_separator_comma'];
l_string_return = l_string_return + f_string_piece( a_string_string, l_position_break + 1, l_position_for + 1 );
l_position_break = l_position_for + 1;
l_position_for = l_position_for + 2;
}
if( l_position_break > 0 ) l_string_return = l_string_return + g['_separator_comma'];
l_string_return = l_string_return + f_string_piece( a_string_string, l_position_break + 1, l_position_for + 1 );
return l_string_return;
}
function f_string_after( a_string_value, a_after_string )
{
return ( a_string_value > a_after_string );
}
function f_string_assign( a_string_value )
{
let l_string_value = "" + a_string_value + "";
if( f_string_same( l_string_value, "undefined" ) ) l_string_value = "";
if( f_string_same( l_string_value, "null" ) ) l_string_value = "";
if( f_string_same( l_string_value, "_null_" ) ) l_string_value = "";
return l_string_value;
}
function f_string_back( a_string_value, a_separator_string )
{
if( !f_string_contain( a_string_value, a_separator_string ) )
{
return a_string_value;
}
return f_string_bisect( a_string_value, 2, a_separator_string, "backward" );
}
function f_string_front( a_string_value, a_separator_string )
{
if( !f_string_contain( a_string_value, a_separator_string ) )
{
return a_string_value;
}
return f_string_bisect( a_string_value, 1, a_separator_string, "forward" );
}
function f_string_before( a_string_value, a_string_before )
{
return ( a_string_value < a_string_before );
}
function f_string_begin( a_string_value, a_begin_string )
{
if( f_string_same( a_begin_string, "" ) ) return false;
if( f_string_same( f_string_left( a_string_value, f_string_length( a_begin_string ) ) , a_begin_string ) ) return true;
return false;
}
function f_string_begin_list( a_string_value, a_data_list, a_string_delimiter )
{
if( f_string_same( a_string_value, "" ) ) return false;
if( f_string_same( a_data_list, "" ) ) return false;
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
let l_array_item = f_string_split( a_data_list, a_string_delimiter );
let l_count_item = l_array_item.length;
let l_position_item = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
if( f_string_begin( a_string_value, l_array_item[l_position_item - 1] ) ) return true;
}
return false;
}
function f_string_bisect( a_string_value, a_part_position, a_separator_string, a_direction_code )
{
a_part_position = a_part_position - 0;
let l_separator_position = 0;
let l_1_string = "";
let l_2_string = "";
if( f_string_begin( a_direction_code, "backward" ) )
{
l_separator_position = f_string_position( a_string_value, a_separator_string, "backward", f_string_length( a_string_value ), 1 );
if( f_integer_equal( l_separator_position, 0 ) )
{
if( f_integer_equal( a_part_position, 2 ) )
{
l_2_string = a_string_value;
}
}
else
{
if( f_integer_equal( a_part_position, 1 ) )
{
l_1_string = f_string_piece( a_string_value, 1, l_separator_position - 1 );
}
else if( f_integer_equal( a_part_position, 2 ) )
{
l_2_string = f_string_piece( a_string_value, l_separator_position + f_string_length( a_separator_string ), f_string_length( a_string_value ) );
}
}
}
else
{
l_separator_position = f_string_position( a_string_value, a_separator_string, "forward", 1, f_string_length( a_string_value ) );
if( f_integer_equal( l_separator_position, 0 ) )
{
if( f_integer_equal( a_part_position, 1 ) )
{
l_1_string = a_string_value;
}
}
else
{
if( f_integer_equal( a_part_position, 1 ) )
{
l_1_string = f_string_piece( a_string_value, 1, l_separator_position - 1 );
}
else if( f_integer_equal( a_part_position, 2 ) )
{
l_2_string = f_string_piece( a_string_value, l_separator_position + f_string_length( a_separator_string ), f_string_length( a_string_value ) );
}
}
}
if( f_integer_equal( a_part_position, 1 ) )
{
return l_1_string;
}
if( f_integer_equal( a_part_position, 2 ) )
{
return l_2_string;
}
return '';
}
function f_string_boolean( a_string_value )
{
if( f_string_begin( f_string_lowercase( a_string_value ), "t" ) ) return true;
if( f_string_begin( f_string_lowercase( a_string_value ), "y" ) ) return true;
return false;
}
function f_string_capitalize( a_object_string )
{
if( f_string_same( a_object_string, "" ) )
{
return "";
}
else if( f_string_begin( a_object_string, "c" ) )
{
if( a_object_string == "cd" ) return "CD";
}
else if( f_string_begin( a_object_string, "d" ) )
{
if( a_object_string == "dvd" ) return "DVD";
}
else if( f_string_begin( a_object_string, "u" ) )
{
if( a_object_string == "url" ) return "URL";
}
let l_length_integer = f_string_length( a_object_string );
let l_position_for = 1;
let l_character_string = "";
let l_last_string = "";
let l_return_string = "";
while( l_position_for <= l_length_integer )
{
l_character_string = f_string_piece( a_object_string, l_position_for, l_position_for );
if( l_position_for < 2 )
{
l_last_string = " ";
}
else
{
l_last_string = f_string_piece( a_object_string, l_position_for - 1, l_position_for - 1 );
}
if( f_string_same( l_last_string, " " ) || f_string_same( l_last_string, "=" ) || f_string_same( l_last_string, "^" ) )
{
l_return_string = l_return_string + f_string_uppercase( l_character_string );
}
else
{
l_return_string = l_return_string + l_character_string;
}
l_position_for = l_position_for + 1;
}
return l_return_string;
}
function f_string_change( a_string_value, a_start_integer, a_stop_integer, a_change_string )
{
return f_string_piece( a_string_value, 1, a_start_integer - 1 ) + a_change_string + f_string_piece( a_string_value, a_stop_integer + 1, f_string_length( a_string_value ) );
}
function f_string_chompare( a_string_left, a_string_right )
{
if( a_string_right == a_string_left ) return 0;
if( ( a_string_left.length == 0 ) && ( a_string_right.length == 0 ) ) return 0;
if( ( a_string_right.length == 0 ) && ( a_string_left.length != 0 ) ) return -1;
if( ( a_string_left.length == 0 ) && ( a_string_right.length != 0 ) ) return 1;
if( ( a_string_right.length > a_string_left.length ) && f_string_begin( a_string_right, a_string_left ) ) return -1;
if( ( a_string_left.length > a_string_right.length ) && f_string_begin( a_string_left, a_string_right ) ) return 1;
let l_array_left = f_string_split( f_string_key( a_string_left ), " " );
let l_array_right = f_string_split( f_string_key( a_string_right ), " " );
let l_position_part = 0;
let l_count_part = l_array_left.length;
if( l_array_right.length > l_array_left.length ) l_count_part = l_array_right.length;
let l_position_digit = 0;
let l_count_digit = 0;
let l_boolean_left = false;
let l_boolean_right = false;
let l_integer_left = 0;
let l_integer_right = 0;
for( l_position_part = 1; l_position_part <= l_count_part; l_position_part++ )
{
if( l_position_part > l_array_right.length ) return -1;
if( l_position_part > l_array_left.length ) return 1;
l_boolean_left = f_string_is_digits_only( l_array_left[l_position_part - 1] );
l_boolean_right = f_string_is_digits_only( l_array_right[l_position_part - 1] );
if( l_boolean_left && l_boolean_right )
{
l_array_left[l_position_part - 1] = f_string_noleadingzeros( l_array_left[l_position_part - 1] );
l_array_right[l_position_part - 1] = f_string_noleadingzeros( l_array_right[l_position_part - 1] );
if( l_array_right[l_position_part - 1] == l_array_left[l_position_part - 1] ) continue;
if( ( l_array_left[l_position_part - 1].length == 0 ) && ( l_array_right[l_position_part - 1].length == 0 ) ) continue;
if( ( l_array_right[l_position_part - 1].length == 0 ) && ( l_array_left[l_position_part - 1].length != 0 ) ) return -1;
if( ( l_array_left[l_position_part - 1].length == 0 ) && ( l_array_right[l_position_part - 1].length != 0 ) ) return 1;
if( l_array_right[l_position_part - 1].length > l_array_left[l_position_part - 1].length ) return -1;
if( l_array_left[l_position_part - 1].length > l_array_right[l_position_part - 1].length ) return 1;
l_count_digit = l_array_left[l_position_part - 1].length;
for( l_position_digit = 1; l_position_digit <= l_count_digit; l_position_digit++ )
{
l_integer_left = f_string_integer( f_string_piece( l_array_left[l_position_part - 1], l_position_digit, l_position_digit ) );
l_integer_right = f_string_integer( f_string_piece( l_array_right[l_position_part - 1], l_position_digit, l_position_digit ) );
if( l_integer_right > l_integer_left ) return -1;
if( l_integer_left > l_integer_right ) return 1;
}
continue;
}
if( l_array_right[l_position_part - 1] > l_array_left[l_position_part - 1] ) return -1;
if( l_array_left[l_position_part - 1] > l_array_right[l_position_part - 1] ) return 1;
continue;
}
return 0;
}
function f_string_key( a_string_string )
{
let l_boolean_number = false;
let l_count_character = 0;
let l_position_character = 1;
let l_string_character = "";
let l_string_number = "";
let l_string_return = "";
a_string_string = f_string_lowercase( f_string_squeeze( a_string_string ) );
l_count_character = a_string_string.length;
for( l_position_character = 1; l_position_character <= l_count_character; l_position_character++ )
{
l_string_character = f_string_piece( a_string_string, l_position_character, l_position_character );
if( f_string_is_digits_only( l_string_character ) )
{
if( l_boolean_number )
{
l_string_number = l_string_number + l_string_character;
}
else
{
l_boolean_number = true;
l_string_number = l_string_character;
if( f_string_different( l_string_return, "" ) ) l_string_return = l_string_return + " ";
}
}
else
{
if( l_boolean_number )
{
l_boolean_number = false;
l_string_return = l_string_return + l_string_number + " " + l_string_character;
l_string_number = "";
}
else
{
l_string_return = l_string_return + l_string_character;
}
}
continue;
}
if( f_string_different( l_string_number, "" ) )
{
l_string_return = l_string_return + l_string_number;
}
return f_string_squeeze( l_string_return );
}
function f_string_chompare_old( a_left_string, a_right_string )
{
if( ( a_left_string == '' ) && ( a_right_string == '' ) ) return 0;
if( a_left_string == '' ) return -1;
if( a_right_string == '' ) return 1;
let l_left_strings = f_string_split( f_string_lowercase( a_left_string ), " " );
let l_right_strings = f_string_split( f_string_lowercase( a_right_string ), " " );
let l_boolean_left = false;
let l_boolean_right = false;
let l_boolean_word = false;
let l_boolean_was = false;
let l_boolean_now = false;
let l_character_integer = 0;
let l_position_item = 0;
let l_value_word = "";
let l_left_string = "";
let l_right_string = "";
let l_character_string = "";
let l_left_character = "";
let l_left_initial = "";
let l_left_head = "";
let l_left_tail = "";
let l_right_character = "";
let l_right_initial = "";
let l_right_head = "";
let l_right_tail = "";
for( l_position_item = 1; l_position_item <= l_left_strings.length; l_position_item++ )
{
l_left_initial = f_string_piece( l_left_strings[l_position_item - 1], 1, 1 );
l_boolean_was = f_string_contain( "^,^0^,^1^,^2^,^3^,^4^,^5^,^6^,^7^,^8^,^9^,^", g['_separator_comma'] + l_left_initial + g['_separator_comma'] );
l_value_word = l_left_initial;
l_boolean_word = false;
for( l_character_integer = 2; l_character_integer <= l_left_strings[l_position_item - 1].length; l_character_integer++ )
{
l_character_string = f_string_piece( l_left_strings[l_position_item - 1], l_character_integer, l_character_integer );
l_boolean_now = f_string_contain( "^,^0^,^1^,^2^,^3^,^4^,^5^,^6^,^7^,^8^,^9^,^", g['_separator_comma'] + l_character_string + g['_separator_comma'] );
if( ( l_boolean_was && !l_boolean_now ) || ( !l_boolean_was && l_boolean_now ) )
{
l_value_word = l_value_word + " ";
l_boolean_word = true;
}
l_value_word = l_value_word + l_character_string;
l_boolean_was = l_boolean_now;
}
if( l_boolean_word )
{
l_left_strings[l_position_item - 1] = "" + l_value_word + "";
l_boolean_left = true;
}
}
if( l_boolean_left )
{
l_left_string = f_array_join( l_left_strings, " " );
l_left_strings = f_string_split( l_left_string, " " );
}
for( l_position_item = 1; l_position_item <= l_right_strings.length; l_position_item++ )
{
l_right_initial = f_string_piece( l_right_strings[l_position_item - 1], 1, 1 );
l_boolean_was = f_string_contain( "^,^0^,^1^,^2^,^3^,^4^,^5^,^6^,^7^,^8^,^9^,^", g['_separator_comma'] + l_right_initial + g['_separator_comma'] );
l_value_word = l_right_initial;
l_boolean_word = false;
for( l_character_integer = 2; l_character_integer <= l_right_strings[l_position_item - 1].length; l_character_integer++ )
{
l_character_string = f_string_piece( l_right_strings[l_position_item - 1], l_character_integer, l_character_integer );
l_boolean_now = f_string_contain( "^,^0^,^1^,^2^,^3^,^4^,^5^,^6^,^7^,^8^,^9^,^", g['_separator_comma'] + l_character_string + g['_separator_comma'] );
if( ( l_boolean_was && !l_boolean_now ) || ( !l_boolean_was && l_boolean_now ) )
{
l_value_word = l_value_word + " ";
l_boolean_word = true;
}
l_value_word = l_value_word + l_character_string;
l_boolean_was = l_boolean_now;
}
if( l_boolean_word )
{
l_right_strings[l_position_item - 1] = "" + l_value_word + "";
l_boolean_right = true;
}
}
if( l_boolean_right )
{
l_right_string = f_array_join( l_right_strings, " " );
l_right_strings = f_string_split( l_right_string, " " );
}
let l_left_integer = 0;
let l_right_integer = 0;
let l_left_position = 0;
let l_left_count = 0;
let l_right_position = 0;
let l_right_count = 0;
let l_compare_integer = 0;
let l_count_item = l_left_strings.length;
if( l_right_strings.length > l_left_strings.length ) l_count_item = l_right_strings.length;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
if( l_position_item > l_left_strings.length ) return -1;
if( l_position_item > l_right_strings.length ) return 1;
if( f_string_same( l_left_strings[l_position_item - 1], l_right_strings[l_position_item - 1] ) ) continue;
l_boolean_left = f_integer_edit( l_left_strings[l_position_item - 1], -999999999999, +999999999999 );
l_boolean_right = f_integer_edit( l_right_strings[l_position_item - 1], -999999999999, +999999999999 );
if( l_boolean_left && l_boolean_right )
{
l_left_integer = f_string_integer( l_left_strings[l_position_item - 1] );
l_right_integer = f_string_integer( l_right_strings[l_position_item - 1] );
l_compare_integer = l_left_integer - l_right_integer;
if( l_compare_integer < 0 ) return -1;
if( l_compare_integer > 0 ) return 1;
continue;
}
l_compare_integer = l_left_strings[l_position_item - 1].localeCompare( l_right_strings[l_position_item - 1] );
if( l_compare_integer != 0 ) return l_compare_integer;
continue;
}
return 0;
}
function f_string_contain( a_string_value, a_contain_string )
{
let l_search_position = f_string_position( a_string_value, a_contain_string, "forward", 1, f_string_length( a_string_value ) );
if( f_integer_equal( l_search_position, 0 ) )
{
return false;
}
return true;
}
function f_string_count( a_string_value, a_count_string, a_start_integer, a_stop_integer )
{
if( f_string_same( a_string_value, "" ) || f_string_same( a_count_string, "" ) )
{
return 0;
}
let l_length_count = f_string_length( a_string_value );
let l_start_position = f_string_integer( f_string_assign( a_start_integer ) );
let l_stop_position = f_string_integer( f_string_assign( a_stop_integer ) );
if( ( l_start_position < 1 ) || ( l_start_position > l_length_count ) )
{
l_start_position = 1;
}
if( ( l_stop_position < 1 ) || ( l_stop_position > l_length_count ) )
{
l_stop_position = l_length_count;
}
if( l_start_position > l_stop_position )
{
return 0;
}
let l_string_count = 0;
let l_search_position = 0;
let l_place_position = l_start_position;
while( f_integer_most( l_place_position, l_stop_position ) )
{
l_search_position = f_string_position( a_string_value, a_count_string, "forward", l_place_position, l_stop_position );
if( f_integer_equal( l_search_position, 0 ) )
{
break;
}
l_string_count = l_string_count + 1;
l_place_position = l_search_position + f_string_length( a_count_string );
}
return l_string_count;
}
function f_string_crimp( a_string_value )
{
let l_string_value = a_string_value;
while( f_string_begin( l_string_value, "0" ) && f_integer_more( f_string_length( l_string_value ), 1 ) )
{
l_string_value = f_string_piece( l_string_value, 2, f_string_length( l_string_value ) );
}
return l_string_value;
}
function f_string_chomp( a_string_value )
{
if( f_string_begin( a_string_value, "_" ) ) return f_string_piece( a_string_value, 2 , f_string_length( a_string_value ) );
if( f_string_begin( a_string_value, "[" ) && f_string_end( a_string_value, "]" ) ) return f_string_piece( a_string_value, 2 , f_string_length( a_string_value ) - 1 );
if( f_string_end( a_string_value, "~" ) ) return f_string_piece( a_string_value, 1 , f_string_length( a_string_value ) - 1 );
return a_string_value;
}
function f_string_unstandard( a_string_value )
{
if( f_string_begin( a_string_value, "_" ) && f_string_end( a_string_value, "_" ) ) return f_string_piece( a_string_value, 2 , f_string_length( a_string_value ) - 1 );
if( f_string_begin( a_string_value, "[" ) && f_string_end( a_string_value, "]" ) ) return f_string_piece( a_string_value, 2 , f_string_length( a_string_value ) - 1 );
return a_string_value;
}
function f_string_decode( a_code_string, a_code_list, a_decode_list, a_separator_string )
{
let l_code_string = f_string_assign( a_code_string );
let l_code_list = f_string_assign( a_code_list );
let l_decode_list = f_string_assign( a_decode_list );
let l_separator_string = f_string_assign( a_separator_string );
if( f_string_same( l_code_string, "" ) || f_string_same( l_code_list, "" ) || f_string_same( l_decode_list, "" ) || f_string_same( l_separator_string, "" ) )
{
return l_code_string;
}
if( f_string_same( l_code_string, "undefined" ) || f_string_same( l_code_list, "undefined" ) || f_string_same( l_decode_list, "undefined" ) || f_string_same( l_separator_string, "undefined" ) )
{
return l_code_string;
}
if( f_string_same( l_code_string, "null" ) || f_string_same( l_code_list, "null" ) || f_string_same( l_decode_list, "null" ) || f_string_same( l_separator_string, "null" ) )
{
return l_code_string;
}
let l_decode_strings = f_string_split( l_decode_list, l_separator_string );
let l_array_code = f_string_split( l_code_list, l_separator_string );
let l_position_code = 0;
let l_count_code = l_array_code.length;
for( l_position_code = 1; l_position_code <= l_count_code; l_position_code++ )
{
if( f_integer_more( l_position_code, l_decode_strings.length ) ) break;
if( f_string_same( f_string_lowercase( f_string_squeeze( l_array_code[l_position_code - 1] ) ), f_string_lowercase( f_string_squeeze( l_code_string ) ) ) )
{
return l_decode_strings[l_position_code - 1];
}
}
return l_code_string;
}
function f_string_decimal( a_string_value )
{
let l_return_decimal = parseFloat( f_string_replace( f_string_replace( f_string_replace( "" + a_string_value, "$", "" ), ",", "" ), "%", "" ) );
if( Number.isNaN( l_return_decimal ) )
{
l_return_decimal = 0.00;
}
return l_return_decimal;
}
function f_string_despace( a_string_value )
{
return f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_trim( a_string_value ), "\r\n", "" ), "\r", "" ), "\n", "" ), "\t", "" ), " ", "" );
}
function f_string_different( a_string_value, l_is_string )
{
return !f_string_same( a_string_value, l_is_string );
}
function f_string_end( a_string_value, a_end_string )
{
if( f_string_same( a_end_string, "" ) ) return false;
if( f_string_same( f_string_right( a_string_value, f_string_length( a_end_string ) ) , a_end_string ) ) return true;
return false;
}
function f_string_end_list( a_string_value, a_data_list, a_string_delimiter )
{
if( f_string_same( a_string_value, "" ) ) return false;
if( f_string_same( a_data_list, "" ) ) return false;
a_string_delimiter = f_string_assign( a_string_delimiter );
if( f_string_same( a_string_delimiter, "" ) || f_string_same( a_string_delimiter, "undefined" ) || f_string_same( a_string_delimiter, "null" ) ) a_string_delimiter = g['_separator_comma'];
let l_array_item = f_string_split( a_data_list, a_string_delimiter );
let l_count_item = l_array_item.length;
let l_position_item = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
if( f_string_end( a_string_value, l_array_item[l_position_item - 1] ) ) return true;
}
return false;
}
function f_string_file( a_string_string )
{
let l_integer_character = 0;
let l_count_character = f_string_length( a_string_string );
let l_position_character = 0;
let l_string_return = "";
let l_string_character = "";
for( l_position_character = 1; l_position_character <= l_count_character; l_position_character++ )
{
l_integer_character = a_string_string.charCodeAt( l_position_character - 1 );
if( ( l_integer_character >= 48 ) && ( l_integer_character <= 57 ) )
{
l_string_character = f_string_piece( a_string_string, l_position_character, l_position_character );
}
else if( ( l_integer_character >= 65 ) && ( l_integer_character <= 90 ) )
{
l_string_character = f_string_piece( a_string_string, l_position_character, l_position_character );
}
else if( ( l_integer_character >= 97 ) && ( l_integer_character <= 122 ) )
{
l_string_character = f_string_piece( a_string_string, l_position_character, l_position_character );
}
else
{
l_string_character = "_" + f_string_uppercase( l_integer_character.toString( 16 ) ) + "_";
}
l_string_return = l_string_return + l_string_character + "/";
continue;
}
if( f_string_end( l_string_return, "/" ) ) l_string_return = f_string_piece( l_string_return, 1, f_string_length( l_string_return ) - 1 );
return l_string_return;
}
function f_string_unfile( a_string_string )
{
let l_array_item = f_string_split( a_string_string, "/" );
let l_count_item = l_array_item.length;
let l_position_item = 0;
let l_string_return = "";
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
if( f_integer_equal( f_string_length( l_array_item[l_position_item - 1] ), 4 ) && f_string_begin( l_array_item[l_position_item - 1], "_" ) && f_string_end( l_array_item[l_position_item - 1], "_" ) )
{
l_string_return = l_string_return + String.fromCharCode( parseInt( f_string_piece( l_array_item[l_position_item - 1], 2, 3 ), 16 ) );
}
else
{
l_string_return = l_string_return + l_array_item[l_position_item - 1];
}
}
return l_string_return;
}
function f_string_fill( a_fill_string, a_fill_count )
{
a_fill_count = a_fill_count - 0;
let l_fill_position = 0;
let l_value_value = "";
for( l_fill_position = 1; l_fill_position <= a_fill_count; l_fill_position++ )
{
l_value_value = l_value_value + a_fill_string;
}
return l_value_value;
}
function f_string_hyperlink( a_string_string )
{
let l_integer_character = 0;
let l_count_character = 0;
let l_position_character = 0;
let l_string_return = "";
let l_string_character = "";
a_string_string = f_string_lowercase( a_string_string );
l_count_character = f_string_length( a_string_string );
for( l_position_character = 1; l_position_character <= l_count_character; l_position_character++ )
{
l_integer_character = a_string_string.charCodeAt( l_position_character - 1 );
if( ( l_integer_character >= 48 ) && ( l_integer_character <= 57 ) )
{
l_string_character = f_string_piece( a_string_string, l_position_character, l_position_character );
}
else if( ( l_integer_character >= 65 ) && ( l_integer_character <= 90 ) )
{
l_string_character = f_string_piece( a_string_string, l_position_character, l_position_character );
}
else if( ( l_integer_character >= 97 ) && ( l_integer_character <= 122 ) )
{
l_string_character = f_string_piece( a_string_string, l_position_character, l_position_character );
}
else
{
l_string_character = "_";
}
l_string_return = l_string_return + l_string_character;
continue;
}
return l_string_return;
}
function f_string_integer( a_string_value )
{
let l_string_value = f_string_assign( a_string_value );
if( l_string_value.length == 0 ) return 0;
let l_integer_sign = 1;
if( l_string_value.charAt( 0 ) == "-" ) l_integer_sign = -1;
l_string_value = f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( l_string_value, "+", "" ), "-", "" ), "$", "" ), ",", "" ), "%", "" ), " ", "" );
let l_return_integer = parseInt( l_string_value, 10 );
if( Number.isNaN( l_return_integer ) ) l_return_integer = 0;
return l_return_integer * l_integer_sign;
}
function f_string_is_digits_only( a_string_value )
{
if( f_string_same( a_string_value, "" ) ) return false;
let l_position_item = 0;
let l_count_item = a_string_value.length;
let l_integer_character = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_integer_character = a_string_value.charCodeAt( l_position_item - 1 );
if( ( l_integer_character < 48 ) || ( l_integer_character > 57 ) ) return false;
}
return true;
}
function f_string_is_hexadecimal_lowercase_only( a_string_value )
{
if( f_string_same( a_string_value, "" ) ) return false;
let l_position_item = 0;
let l_count_item = a_string_value.length;
let l_integer_character = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_integer_character = a_string_value.charCodeAt( l_position_item - 1 );
if( l_integer_character < 48 )
{
return false;
}
else if( ( l_integer_character > 57 ) && ( l_integer_character < 97 ) )
{
return false;
}
else if( l_integer_character > 102 )
{
return false;
}
}
return true;
}
function f_string_is_letters_and_spaces_only( a_string_value )
{
if( f_string_same( a_string_value, "" ) ) return false;
let l_position_item = 0;
let l_count_item = a_string_value.length;
let l_integer_character = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_integer_character = a_string_value.charCodeAt( l_position_item - 1 );
if( ( l_integer_character == 32 ) ) continue;
if( ( l_integer_character < 65 ) ) return false;
if( ( l_integer_character <= 90 ) ) continue;
if( ( l_integer_character < 97 ) ) return false;
if( ( l_integer_character > 122 ) ) return false;
continue;
}
return true;
}
function f_string_is_letters_or_space_or_apostrophe_only( a_string_value )
{
let l_position_item = 0;
let l_count_item = a_string_value.length;
let l_integer_character = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_integer_character = a_string_value.charCodeAt( l_position_item - 1 );
if( ( l_integer_character == 32 ) ) continue;
if( ( l_integer_character == 39 ) ) continue;
if( ( l_integer_character >= 65 ) && ( l_integer_character <= 90 ) ) continue;
if( ( l_integer_character >= 97 ) && ( l_integer_character <= 122 ) ) continue;
return false;
}
return true;
}
function f_string_is_letters_or_space_or_apostrophe_or_digits_only( a_string_value )
{
let l_position_item = 0;
let l_count_item = a_string_value.length;
let l_integer_character = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_integer_character = a_string_value.charCodeAt( l_position_item - 1 );
if( ( l_integer_character == 32 ) ) continue;
if( ( l_integer_character == 39 ) ) continue;
if( ( l_integer_character >= 48 ) && ( l_integer_character <= 57 ) ) continue;
if( ( l_integer_character >= 65 ) && ( l_integer_character <= 90 ) ) continue;
if( ( l_integer_character >= 97 ) && ( l_integer_character <= 122 ) ) continue;
return false;
}
return true;
}
function f_string_is_letters_lowercase_only( a_string_value )
{
let l_position_item = 0;
let l_count_item = a_string_value.length;
let l_integer_character = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_integer_character = a_string_value.charCodeAt( l_position_item - 1 );
if( ( l_integer_character < 97 ) || ( l_integer_character > 122 ) ) return false;
}
return true;
}
function f_string_is_letters_lowercase_or_space_only( a_string_value )
{
let l_position_item = 0;
let l_count_item = a_string_value.length;
let l_integer_character = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_integer_character = a_string_value.charCodeAt( l_position_item - 1 );
if( ( l_integer_character == 32 ) ) continue;
if( ( l_integer_character < 97 ) || ( l_integer_character > 122 ) ) return false;
}
return true;
}
function f_string_is_letters_lowercase_or_fslash_only( a_string_value )
{
let l_position_item = 0;
let l_count_item = a_string_value.length;
let l_integer_character = 0;
for( l_position_item = 1; l_position_item <= l_count_item; l_position_item++ )
{
l_integer_character = a_string_value.charCodeAt( l_position_item - 1 );
if( ( l_integer_character == 47 ) ) continue;
if( ( l_integer_character == 95 ) ) continue;
if( ( l_integer_character < 97 ) || ( l_integer_character > 122 ) ) return false;
}
return true;
}
function f_string_left( a_string_value, a_size_count )
{
a_size_count = a_size_count - 0;
if( f_integer_most( a_size_count, 0 ) )
{
return '';
}
if( f_integer_less( f_string_length( a_string_value ), a_size_count ) )
{
return a_string_value;
}
return f_string_piece( a_string_value, 1, a_size_count );
}
function f_string_length( a_string_value )
{
return f_string_assign( a_string_value ).length;
}
function f_string_lowercase( a_string_value )
{
a_string_value = f_string_assign( a_string_value );
return a_string_value.toLowerCase( );
}
function f_string_piece( a_string_value, a_start_position, a_stop_position )
{
a_string_value = f_string_assign( a_string_value );
a_start_position = a_start_position - 0;
a_stop_position = a_stop_position - 0;
if( f_string_same( a_string_value, "" ) || f_string_same( a_string_value, "undefined" ) || f_string_same( a_string_value, "null" ) ) return '';
let l_length_count = f_string_length( a_string_value );
if( f_integer_less( a_start_position, 1 ) ) a_start_position = 1;
if( f_integer_more( a_stop_position, l_length_count ) ) a_stop_position = l_length_count;
if( f_integer_less( a_start_position, 1 ) || f_integer_more( a_start_position, a_stop_position ) || f_integer_more( a_start_position, l_length_count ) ) return '';
if( f_integer_less( a_stop_position, 1 ) || f_integer_less( a_stop_position, a_start_position ) || f_integer_more( a_stop_position, l_length_count ) ) return '';
return a_string_value.substring( a_start_position - 1, a_stop_position );
}
function f_string_position( a_string_value, a_position_string, a_direction_code, a_start_position, a_stop_position )
{
a_string_value = f_string_assign( a_string_value );
a_start_position = f_string_integer( f_string_assign( a_start_position ) );
a_stop_position = f_string_integer( f_string_assign( a_stop_position ) );
let l_return_position = 0;
if( f_integer_less( a_start_position, 1 ) || f_integer_less( a_stop_position, 1 ) )
{
return l_return_position;
}
if( f_string_same( a_direction_code, "backward" ) )
{
if( f_integer_less( a_start_position, a_stop_position ) )
{
return l_return_position;
}
l_return_position = a_string_value.lastIndexOf( a_position_string, a_start_position - 1 ) + 1;
if( f_integer_less( l_return_position, a_stop_position ) )
{
l_return_position = 0;
}
}
else
{
if( f_integer_more( a_start_position, a_stop_position ) )
{
return l_return_position;
}
l_return_position = a_string_value.indexOf( a_position_string, a_start_position - 1 ) + 1;
if( f_integer_more( l_return_position, a_stop_position ) )
{
l_return_position = 0;
}
}
return l_return_position;
}
function f_string_replace( a_string_value, a_search_string, a_replace_string )
{
return a_string_value.replace( new RegExp( a_search_string.replace( /([.*+?^${}()|\[\]\/\\])/g, "\\$1"), 'g'), a_replace_string );
}
function f_string_right( a_string_value, a_size_count )
{
a_size_count = a_size_count - 0;
if( f_integer_most( a_size_count, 0 ) )
{
return '';
}
if( f_integer_less( f_string_length( a_string_value ), a_size_count ) )
{
return a_string_value;
}
return f_string_piece( a_string_value, f_string_length( a_string_value ) - a_size_count + 1, f_string_length( a_string_value ) );
}
function f_string_same( a_string_value, a_is_string )
{
return ( a_string_value == a_is_string );
}
function f_string_split( a_string_value, a_split_string )
{
let l_split_string = f_string_assign( a_split_string );
if( f_string_same( l_split_string, "" ) ) l_split_string = g['_separator_comma'];
return a_string_value.split( l_split_string );
}
function f_string_space( a_string_value )
{
return f_string_squeeze( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_trim( a_string_value ), "\r\n", " " ), "\r", " " ), "\n", " " ), "\t", " " ) );
}
function f_string_squeeze( a_string_value )
{
let l_object_string = "";
let l_character_string = "";
let l_position_loop = 0;
let l_space_boolean = false;
for( l_position_loop = 1; l_position_loop <= f_string_length( a_string_value ); l_position_loop++ )
{
l_character_string = f_string_piece( a_string_value, l_position_loop, l_position_loop );
if( l_space_boolean )
{
if( f_string_different( l_character_string, " " ) )
{
l_object_string = l_object_string + l_character_string;
l_space_boolean = false;
}
}
else
{
if( f_string_same( l_character_string, " " ) )
{
l_space_boolean = true;
}
l_object_string = l_object_string + l_character_string;
}
}
return f_string_trim( l_object_string );
}
function f_string_transform( a_string_value, l_transform_string )
{
if( f_string_same( l_transform_string, "standard to html" ) )
{
return f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( a_string_value, "^pma^", "&" ), "^ssel^", "<" ), "^erom^", ">" ), "^etouq^", """ ), "^tsopa^", "'" ), "^tnecrep^", "%" ), "^sulp^", " +" ), "^rc^^fl^", "
" ), "^rallod^", "$" ), "^hsalsb^", "\" );
}
if( f_string_same( l_transform_string, "html to standard" ) )
{
return f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( a_string_value, "&", "^pma^" ), "<", "^ssel^" ), ">", "^erom^" ), """, "^etouq^" ), "'", "^tsopa^" ), "‑", "-" ), "\", "/" );
}
if( f_string_same( l_transform_string, "html to text" ) )
{
return f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( a_string_value, "", "" ), "
", "\r\n" ), " & ", " & " ), "&", "&" ), "<", "<" ), ">", ">" ), """, '"' ), " ", " " ), "'", "'" ), "‑", "-" ), "\", "/" ), " | ", g['_separator_comma'] );
}
if( f_string_same( l_transform_string, "standard to text" ) )
{
return f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( a_string_value, "^etouq^", '"' ), "^hsalsb^", "\\" ), "^rallod^", "$" ), "^tsopa^", "'" ), "^fl^", "\n" ), "^rc^", "\r" ), "^sulp^", "+" ), "^tnecrep^", "%" ), "^etouq^", '"' ), "^erom^", ">" ), "^ssel^", "<" ), "^pma^", "&" );
}
if( f_string_same( l_transform_string, "text to standard" ) )
{
return f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( a_string_value, "&", "^pma^" ), "<", "^ssel^" ), ">", "^erom^" ), '"', "^etouq^" ), "%", "^tnecrep^" ), "+", "^sulp^" ), "\r", "^rc^" ), "\n", "^fl^" ), "'", "^tsopa^" ), "$", "^rallod^" ), "\\", "^hsalsb^" ), '"', "^etouq^" );
}
if( f_string_same( l_transform_string, "text to html" ) )
{
return f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( a_string_value, "", "⌶drow⌶" ), " ", "⌶ecapsbn⌶" ), "&Nobreak;", "⌶kaerbon⌶" ), "
", "⌶elur⌶" ), "", "⌶naps⌶" ), "", "⌶naps/⌶" ), "", "⌶vid⌶" ), "
", "⌶vid/⌶" ), "\t", "⌶bat⌶" ), "", "⌶hpargarap⌶" ), "
", "⌶kaerb⌶" ), "
", "⌶kaerb⌶" ), "
", "⌶kaerb⌶" ), "
", "⌶kaerb⌶" ), "
", "⌶llaraelckaerb⌶" ), "
", "⌶llaraelckaerb⌶" ), "", "⌶dlob⌶" ), "", "⌶dlob/⌶" ), "", "⌶cilati⌶" ), "", "⌶cilati/⌶" ), "", "⌶enilrednu⌶" ), "", "⌶enilrednu/⌶" ), "<", "⌶ssel⌶" ), ">", "⌶erom⌶" ), " & ", " & " ), "^etouq^", """ ), "\"", """ ), "\\", "\\" ), "/", "/" ), "^|^", "^|^" ), "|", "|" ), "^+^", "^+^" ), "+", "+" ), "^=^", "^=^" ), "=", "=" ), "^~^", "^~^" ), "~", "~" ), "^_^", "^_^" ), "_", "_" ), "^@^", "^@^" ), "@", "@" ), "^;^", "^;^" ), ";", ";" ), g['_separator_comma'], "^,^" ), ",", "," ), "^:^", "^:^" ), ":", ":" ), "\r\n", "
" ), "\r", "
" ), "\n", "
" ), "⌶drow⌶", "" ), "⌶elur⌶", "
" ), "⌶ecapsbn⌶", " " ), "⌶kaerbon⌶", "&Nobreak;" ), "⌶naps⌶", "" ), "⌶naps/⌶", "" ), "⌶vid⌶", "" ), "⌶vid/⌶", "
" ), "⌶bat⌶", " " ), "⌶hpargarap⌶", "" ), "⌶kaerb⌶", "
" ), "⌶kaerb⌶", "
" ), "⌶llaraelckaerb⌶", "
" ), "⌶dlob⌶", "" ), "⌶dlob/⌶", "" ), "⌶cilati⌶", "" ), "⌶cilati/⌶", "" ), "⌶enilrednu⌶", "" ), "⌶enilrednu/⌶", "" ), "^*^_break_^*^", "
" ), g['_separator_break'], "
" ), "^:^", "^:^" ), "^|^", "^|^" ), "^+^", "^+^" ), "⌶ssel⌶", "<" ), "⌶erom⌶", ">" );
}
return a_string_value;
}
function f_string_trim( a_string_value )
{
let l_object_string = a_string_value;
let l_character_string = "";
if( f_string_different( l_object_string, "" ) )
{
while( true )
{
l_character_string = f_string_piece( l_object_string, 1, 1 );
if( f_string_different( l_character_string, ' ' ) && f_string_different( l_character_string, '\r' ) && f_string_different( l_character_string, '\n' ) && f_string_different( l_character_string, '\t' ) )
{
break;
}
l_object_string = f_string_piece( l_object_string, 2, f_string_length( l_object_string ) );
}
while( true )
{
l_character_string = f_string_piece( l_object_string, f_string_length( l_object_string ), f_string_length( l_object_string ) );
if( f_string_different( l_character_string, ' ' ) && f_string_different( l_character_string, '\r' ) && f_string_different( l_character_string, '\n' ) && f_string_different( l_character_string, '\t' ) )
{
break;
}
l_object_string = f_string_piece( l_object_string, 1, f_string_length( l_object_string ) - 1 );
}
}
return l_object_string;
}
function f_string_uppercase( a_string_value )
{
a_string_value = f_string_assign( a_string_value );
return a_string_value.toUpperCase( );
}
function f_string_translate( a_string_value, a_name_context, a_language_from, a_language_to )
{
if( f_string_same( a_language_from, a_language_to ) ) return a_string_value;
if( f_string_same( a_string_value, "" ) ) return a_string_value;
let l_value_value = "";
if( f_string_same( l_value_value, "" ) ) l_value_value = f_dictionary_read( f_string_assign( w['_dictionary_window'] ), "_interface^:^_translation^:^" + a_language_from + "^:^" + a_language_to + "^:^" + a_string_value + "=" + a_name_context );
if( f_string_same( l_value_value, "" ) ) l_value_value = f_dictionary_read( f_string_assign( w['_dictionary_window'] ), "_interface^:^_translation^:^" + a_language_from + "^:^" + a_language_to + "^:^" + a_string_value );
if( f_string_same( l_value_value, "" ) ) l_value_value = f_dictionary_read( window.document.getElementById( "_translation" ).value, a_string_value + "=" + a_name_context );
if( f_string_same( l_value_value, "" ) ) l_value_value = f_dictionary_read( window.document.getElementById( "_translation" ).value, a_string_value );
if( f_string_same( l_value_value, "" ) ) l_value_value = a_string_value;
return l_value_value;
}
function f_html_translate( a_string_value )
{
a_string_value = f_string_replace( a_string_value, "", "
" );
let l_array_part = f_string_split( a_string_value, "
" );
let l_count_part = l_array_part.length;
let l_position_part = 0;
for( l_position_part = 1; l_position_part <= l_count_part; l_position_part++ )
{
if( f_string_contain( l_array_part[l_position_part - 1], " id=\"" ) ) continue;
l_array_part[l_position_part - 1] = f_string_translate( f_string_trim( l_array_part[l_position_part - 1] ) );
}
return f_string_replace( f_array_join( l_array_part, "
" ), "
", "" );
}
function f_window_height( )
{
if( f_string_contain( window.navigator.userAgent, "MSIE" ) )
{
return f_string_integer( window.document.documentelement.offsetHeight );
}
return f_string_integer( window.innerHeight );
}
function f_window_heightpreferred( )
{
if( f_integer_more( f_window_height( ), 2000 ) ) return 1450;
if( f_integer_more( f_window_height( ), 1900 ) ) return 1350;
if( f_integer_more( f_window_height( ), 1800 ) ) return 1250;
if( f_integer_more( f_window_height( ), 1700 ) ) return 1150;
if( f_integer_more( f_window_height( ), 1600 ) ) return 1050;
if( f_integer_more( f_window_height( ), 1500 ) ) return 950;
if( f_integer_more( f_window_height( ), 1400 ) ) return 850;
if( f_integer_more( f_window_height( ), 1300 ) ) return 750;
if( f_integer_more( f_window_height( ), 1200 ) ) return 650;
if( f_integer_more( f_window_height( ), 1100 ) ) return 550;
if( f_integer_more( f_window_height( ), 1000 ) ) return 450;
if( f_integer_more( f_window_height( ), 900 ) ) return 350;
return 300;
}
function f_window_width( )
{
if( f_string_contain( window.navigator.userAgent, "MSIE" ) )
{
return f_string_integer( window.document.documentelement.offsetWidth );
}
return f_string_integer( window.innerWidth );
}
function f_window_widthpreferred( )
{
if( f_integer_more( f_window_width( ), 2000 ) ) return 1950;
if( f_integer_more( f_window_width( ), 1900 ) ) return 1850;
if( f_integer_more( f_window_width( ), 1800 ) ) return 1750;
if( f_integer_more( f_window_width( ), 1700 ) ) return 1650;
if( f_integer_more( f_window_width( ), 1600 ) ) return 1550;
if( f_integer_more( f_window_width( ), 1500 ) ) return 1450;
if( f_integer_more( f_window_width( ), 1400 ) ) return 1350;
if( f_integer_more( f_window_width( ), 1300 ) ) return 1250;
if( f_integer_more( f_window_width( ), 1200 ) ) return 1150;
if( f_integer_more( f_window_width( ), 1100 ) ) return 1050;
if( f_integer_more( f_window_width( ), 1000 ) ) return 950;
if( f_integer_more( f_window_width( ), 900 ) ) return 850;
if( f_integer_more( f_window_width( ), 800 ) ) return 750;
if( f_integer_more( f_window_width( ), 700 ) ) return 650;
if( f_integer_more( f_window_width( ), 600 ) ) return 550;
if( f_integer_more( f_window_width( ), 500 ) ) return 450;
return 300;
}
function f_word_capitalize( a_word_string )
{
if( a_word_string == "" )
{
return '';
}
return f_string_uppercase( f_string_left( a_word_string, 1 ) ) + f_string_piece( a_word_string, 2, a_word_string.length );
}
function f_account_login( )
{
if( f_string_different( f_dictionary_read( w['_dictionary_window'], "example" ), "" ) )
{
window.setTimeout( 'f_window_pop( );', 50 );
return "true";
}
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "" );
g['_boolean_logged'] = "false";
let l_dictionary_push = "";
l_dictionary_push = f_dictionary_write( l_dictionary_push, "_image", "https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/word/noun/password" );
l_dictionary_push = f_dictionary_write( l_dictionary_push, "_done", f_dictionary_read( w['_dictionary_window'], "_name" ) );
f_window_push( 'thing/intangible/abstraction/technological/computer/system/account/login', l_dictionary_push );
return;
}
function f_account_logout( )
{
if( f_string_different( f_dictionary_read( w['_dictionary_window'], "example" ), "" ) )
{
window.setTimeout( 'f_window_pop( );', 50 );
return "true";
}
window.location.href = "https://unirealm.com/?_system_" + g['_number_system'] + "_system_";
return;
}
function f_window_scroll( )
{
if( !g['_boolean_scroll'] ) return;
if( f_string_different( g['_name_scroll'], "automatic" ) ) return;
g['_position_scroll'] = g['_position_scroll'] + f_window_height( );
if( g['_position_scroll'] < 1 ) g['_position_scroll'] = 0;
if( g['_position_scroll'] > f_element_object( "_div_window" ).scrollHeight ) g['_position_scroll'] = 0;
window.scrollTo( 0, g['_position_scroll'] );
window.setTimeout( "f_window_scroll( )", g['_second_scroll'] * 1000 );
return;
}
function f_scroll_speed( )
{
let l_number_speed = window.prompt( "enter speed delay in seconds:", "" + g['_second_scroll'] + "" );
if( l_number_speed == null )
{
g['_second_scroll'] = 10;
g['_name_scroll'] = "manual";
g['_boolean_scroll'] = false;
g['_position_scroll'] = 0;
f_window_render( );
return;
}
if( l_number_speed < 1 ) l_number_speed = 1;
g['_second_scroll'] = l_number_speed;
g['_name_scroll'] = "automatic";
g['_boolean_scroll'] = true;
g['_position_scroll'] = 0;
window.setTimeout( "window.scrollTo( 0, 0 );", 10 );
window.setTimeout( "f_window_scroll( );", g['_second_scroll'] * 1000 );
return;
}
function f_session_go( )
{
window.location.href = "https://unirealm.com/?_system_" + f_string_hyperlink( g['_name_system'] ) + "_system_language_" + f_string_hyperlink( g['_name_language'] ) + "_language_country_" + f_string_hyperlink( g['_name_country'] ) + "_country_currency_" + f_string_hyperlink( g['_name_currency'] ) + "_currency_measurement_" + f_string_hyperlink( g['_name_measurement'] ) + "_measurement_color_" + f_string_hyperlink( g['_name_color'] ) + "_color_font_" + f_string_hyperlink( g['_name_font'] ) + "_font_size_" + f_string_hyperlink( g['_name_size'] ) + "_size_design_" + f_string_hyperlink( g['_name_design'] ) + "_design_input_" + f_string_hyperlink( g['_name_input'] ) + "_input_output_" + f_string_hyperlink( g['_name_output'] ) + "_output_background_" + f_string_hyperlink( g['_name_background'] ) + "_background_bandwidth_" + f_string_hyperlink( g['_name_bandwidth'] ) + "_bandwidth_cache_" + f_string_hyperlink( g['_name_cache'] ) + "_cache_draft_" + f_string_hyperlink( g['_name_draft'] ) + "_draft_timeout_" + f_string_hyperlink( g['_name_timeout'] ) + "_timeout_version_" + f_string_hyperlink( g['_name_version'] ) + "_version_email_" + f_string_hyperlink( g['_name_email'] ) + "_email_";
return;
}
function f_help_go( )
{
f_window_push( "thing/intangible/abstraction/technological/computer/system/help", " ^_image^[^https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/word/verb/help^]^_image^ " );
return;
}
function f_home_go( )
{
f_window_return( "thing/intangible/abstraction/technological/computer/system/home" );
return;
}
function f_clean_go( )
{
g_dictionary_cache = "";
g_dictionary_remember = "";
j = new Object( );
g['_count_script'] = 0;
g['_html_message'] = "Your page cache was cleaned.
";
f_window_push( "thing/intangible/abstraction/technological/computer/system/message", " ^_image^[^https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/word/noun/message^]^_image^ " );
return;
}
function f_scroll_go( a_code_go, a_name_field )
{
console.log( "f_scroll_go=" + a_code_go + " field=" + a_name_field + " mode=" + w['_field_' + a_name_field + '_mode'] );
let l_count_id = 0;
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "_field_" + a_name_field );
if( f_item_list( a_code_go, "field" ) && f_string_same( a_name_field, "_submit" ) )
{
f_window_hide( );
window.setTimeout( "f_window_render( );", 50 );
return;
}
if( f_item_list( a_code_go, "selected^,^unselected^,^keyboard^,^cascade^,^keyboard^,^language^,^size^,^color^,^font^,^background^,^country^,^currency^,^timeout^,^measurement^,^input^,^output^,^draft" ) )
{
w['_field_' + a_name_field + '_mode'] = a_code_go;
f_window_render( );
return;
}
if( f_string_same( a_code_go, "flip" ) )
{
if( f_string_same( w['_field_' + a_name_field + '_mode'], "selected" ) )
{
w['_field_' + a_name_field + '_mode'] = "unselected";
}
else
{
w['_field_' + a_name_field + '_mode'] = "selected";
}
f_window_render( );
return;
}
if( f_string_same( a_code_go, "read" ) )
{
w['_field_' + a_name_field + '_mode'] = "unselected";
g_dictionary_argument = f_string_assign( w['_dictionary_window'] );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, "_focus", "" );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, "_image", "https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/word/verb/view" );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, "_action", "output" );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, "_variable", a_name_field );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, "_title", "Read " + f_string_capitalize( f_string_chomp( a_name_field ) ) );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, "_value", f_dictionary_read( w['_dictionary_window'], w['_field_' + a_name_field + '_variable'] ) );
f_window_hide( );
window.setTimeout( "f_window_push( 'thing/intangible/abstraction/technological/computer/system/value', g_dictionary_argument );", 50 );
return;
}
if( f_string_same( a_code_go, "write" ) )
{
w['_field_' + a_name_field + '_mode'] = "unselected";
g_dictionary_argument = f_string_assign( w['_dictionary_window'] );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, "_focus", "" );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, "_image", "https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/word/verb/insert" );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, "_action", "input" );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, "_variable", a_name_field );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, "_title", "Write " + f_string_capitalize( f_string_chomp( a_name_field ) ) );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, "_value", f_dictionary_read( w['_dictionary_window'], w['_field_' + a_name_field + '_variable'] ) );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, "_placeholder", f_string_assign( w['_field_' + a_name_field + '_placeholder'] ) );
f_window_hide( );
window.setTimeout( "f_window_push( 'thing/intangible/abstraction/technological/computer/system/field', g_dictionary_argument );", 50 );
return;
}
if( f_string_same( a_code_go, "accept" ) && f_string_same( w['_field_' + a_name_field + '_mode'], "keyboard" ) )
{
let l_string_old = f_dictionary_read( w['_dictionary_window'], w['_field_' + a_name_field + '_variable'] );
l_string_new = f_element_object( '_input_' + a_name_field + '' ).value;
if( f_string_different( l_string_new, l_string_old ) )
{
w['_field_' + a_name_field + '_count'] = f_string_integer( w['_field_' + a_name_field + '_count'] ) + 1;
w['_field_' + a_name_field + '_position'] = w['_field_' + a_name_field + '_count'];
w['_field_' + a_name_field + '_' + ( w['_field_' + a_name_field + '_position'] ) + ''] = l_string_new;
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], w['_field_' + a_name_field + '_variable'], l_string_new );
}
if( f_string_same( w['_field_' + a_name_field + '_go'], "_render" ) )
{
w['_field_' + a_name_field + '_mode'] = "_render";
window.setTimeout( "f_window_render( '" + a_name_field + "' );", 0 );
return "true";
}
if( f_string_different( f_string_assign( w['_field_' + a_name_field + '_go'] ), "" ) )
{
w['_field_' + a_name_field + '_mode'] = "unselected";
a = " ^_function^[^_go^]^_function^ ^_go^[^" + w['_field_' + a_name_field + '_go'] + "^]^_go^ ^_field^[^" + a_name_field + "^]^_field^ ^old^[^" + l_string_old + "^]^old^ ";
window.setTimeout( "f_window_function( a );", 0 );
return "true";
}
w['_field_' + a_name_field + '_mode'] = "unselected";
f_window_render( );
return;
}
if( f_string_same( a_code_go, "accept" ) && f_string_same( w['_field_' + a_name_field + '_mode'], "cascade" ) )
{
let l_string_old = f_dictionary_read( w['_dictionary_window'], w['_field_' + a_name_field + '_variable'] );
let l_string_new = f_dictionary_read( w['_dictionary_window'], w['_field_' + a_name_field + '_variable'] + "_pending" );
if( f_string_different( l_string_new, l_string_old ) )
{
w['_field_' + a_name_field + '_count'] = f_string_integer( w['_field_' + a_name_field + '_count'] ) + 1;
w['_field_' + a_name_field + '_position'] = w['_field_' + a_name_field + '_count'];
w['_field_' + a_name_field + '_' + ( w['_field_' + a_name_field + '_position'] ) + ''] = l_string_new;
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], w['_field_' + a_name_field + '_variable'], l_string_new );
}
if( f_string_same( w['_field_' + a_name_field + '_go'], "_render" ) )
{
w['_field_' + a_name_field + '_mode'] = "_render";
window.setTimeout( "f_window_render( '" + a_name_field + "' );", 0 );
return "true";
}
if( f_string_different( f_string_assign( w['_field_' + a_name_field + '_go'] ), "" ) )
{
w['_field_' + a_name_field + '_mode'] = "unselected";
a = " ^_function^[^_go^]^_function^ ^_go^[^" + w['_field_' + a_name_field + '_go'] + "^]^_go^ ^_field^[^" + a_name_field + "^]^_field^ ^old^[^" + l_string_old + "^]^old^ ";
window.setTimeout( "f_window_function( a );", 0 );
return "true";
}
w['_field_' + a_name_field + '_mode'] = "unselected";
f_window_render( );
return;
}
if( f_string_same( a_code_go, "reject" ) && f_string_same( w['_field_' + a_name_field + '_mode'], "keyboard" ) )
{
w['_field_' + a_name_field + '_mode'] = "unselected";
f_window_render( );
return;
}
if( f_string_same( a_code_go, "reject" ) && f_string_same( w['_field_' + a_name_field + '_mode'], "cascade" ) )
{
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], w['_field_' + a_name_field + '_variable'] + "_pending", "" );
w['_field_' + a_name_field + '_mode'] = "unselected";
window.setTimeout( "f_window_render( )", 100 );
return;
}
if( f_string_same( a_code_go, "explain" ) )
{
w['_field_' + a_name_field + '_mode'] = "unselected";
g_dictionary_argument = f_string_replace( "" + f_string_chomp( a_name_field ) + ":
" + f_string_transform( w['_field_' + a_name_field + '_placeholder'], "text to html" ) + "
. purpose:
" + f_string_transform( w['_field_' + a_name_field + '_purpose'], "text to html" ) + "
. example:
" + f_string_transform( w['_field_' + a_name_field + '_example'], "text to html" ) + "
. " + f_string_transform( w['_field_' + a_name_field + '_note'], "text to html" ) + "", "[quote]", "\"" );
f_window_hide( );
window.setTimeout( "f_message_go( g_dictionary_argument );", 100 );
console.log( "f_field_paste = end explain = " + f_dictionary_read( w['_dictionary_window'], "_name" ) + " = " + a_dictionary_parameter );
return;
}
if( f_string_same( a_code_go, "reset" ) )
{
w['_field_' + a_name_field + '_list'] = f_string_assign( w['_field_' + a_name_field + '_reset'] );
w['_field_' + a_name_field + '_mode'] = "selected";
f_window_render( );
return;
}
if( f_item_list( w['_field_' + a_name_field + '_mode'], "unselected" ) )
{
f_window_render( );
return;
}
if( f_string_same( a_code_go, "reset" ) )
{
w['_field_' + a_name_field + '_page'] = 1;
w['_field_' + a_name_field + '_key'] = f_dictionary_write( w['_field_' + a_name_field + '_key'], "position", "1" );
w['_field_' + a_name_field + '_list'] = f_string_assign( w['_field_' + a_name_field + '_reset'] );
w['_field_' + a_name_field + '_list'] = "";
w['_field_' + a_name_field + '_mode'] = "selected";
}
else if( f_string_same( a_code_go, "first" ) )
{
w['_field_' + a_name_field + '_page'] = 1;
}
else if( f_string_same( a_code_go, "last" ) )
{
w['_field_' + a_name_field + '_page'] = w['_field_' + a_name_field + '_pages'];
}
else if( f_string_same( a_code_go, "next" ) )
{
w['_field_' + a_name_field + '_page'] = w['_field_' + a_name_field + '_page'] + 1;
}
else if( f_string_same( a_code_go, "prior" ) )
{
w['_field_' + a_name_field + '_page'] = w['_field_' + a_name_field + '_page'] - 1;
}
else if( f_string_same( a_code_go, "forward" ) )
{
w['_field_' + a_name_field + '_page'] = f_string_integer( f_string_bisect( f_decimal_string( ( ( w['_field_' + a_name_field + '_pages'] - w['_field_' + a_name_field + '_page'] ) / 2.00 ) + w['_field_' + a_name_field + '_page'] + 0.999999999 ), 1, ".", "forward" ) );
}
else if( f_string_same( a_code_go, "backward" ) )
{
w['_field_' + a_name_field + '_page'] = f_string_integer( f_string_bisect( f_decimal_string( ( w['_field_' + a_name_field + '_page'] / 2.00 ) + 0.999999999 ), 1, ".", "forward" ) );
}
else if( f_string_begin( a_code_go, "-" ) )
{
w['_field_' + a_name_field + '_page'] = w['_field_' + a_name_field + '_page'] + f_string_integer( a_code_go );
w['_field_' + a_name_field + '_direction'] = "negative";
}
else if( f_string_begin( a_code_go, "+" ) )
{
w['_field_' + a_name_field + '_page'] = w['_field_' + a_name_field + '_page'] + f_string_integer( a_code_go );
w['_field_' + a_name_field + '_direction'] = "positive";
}
else if( f_string_same( f_string_assign( w['_field_' + a_name_field + '_direction'] ), "negative" ) )
{
w['_field_' + a_name_field + '_page'] = w['_field_' + a_name_field + '_page'] + ( f_string_integer( a_code_go ) * -1 );
}
else
{
w['_field_' + a_name_field + '_page'] = w['_field_' + a_name_field + '_page'] + f_string_integer( a_code_go );
}
if( w['_field_' + a_name_field + '_page'] < 1 ) w['_field_' + a_name_field + '_page'] = 1;
if( w['_field_' + a_name_field + '_page'] > w['_field_' + a_name_field + '_pages'] ) w['_field_' + a_name_field + '_page'] = w['_field_' + a_name_field + '_pages'];
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "_field_" + a_name_field );
f_window_render( );
return;
}
function f_content_go( a_name_window )
{
console.log("content go attempt = " + a_name_window );
f_window_push( 'thing/intangible/abstraction/technological/computer/system/content', ' ^_image^[^https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/word/noun/content^]^_image^ ' );
console.log("content go done = " + a_name_window );
return;
}
function f_window_popped( a_dictionary_parameter )
{
console.log("f_window_popped begin = " + f_dictionary_read( w['_dictionary_window'], "_name" ) + " = " + a_dictionary_parameter );
let l_value_pass = f_dictionary_read( a_dictionary_parameter, "_pass" );
let l_name_action = f_dictionary_read( a_dictionary_parameter, "_action" );
let l_name_field = f_dictionary_read( a_dictionary_parameter, "_field" );
if( f_string_same( l_name_action, "resume" ) || f_string_same( l_name_action, "warning" ) )
{
window.setTimeout( "f_window_function( ' ^_function^[^_resume^]^_function^ ' );", 0 );
console.log("f_window_popped resume = " + f_dictionary_read( w['_dictionary_window'], "_name" ) + " = " + a_dictionary_parameter );
return "true";
}
if( f_string_same( l_name_action, "upload" ) )
{
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], w['_field_' + l_name_field + '_variable'], l_value_pass );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "_field_" + l_name_field );
window.setTimeout( "f_window_render( );", 0 );
console.log("f_window_popped upload = " + f_dictionary_read( w['_dictionary_window'], "_name" ) + " = " + a_dictionary_parameter );
return "true";
}
if( f_string_same( l_name_action, "input" ) )
{
if( f_string_same( f_dictionary_read( w['_dictionary_window'], '_definition^:^definitions^:^_value^:^' + l_name_field + '^:^squeeze' ), "true" ) ) l_value_pass = f_string_squeeze( l_value_pass );
if( f_string_same( f_dictionary_read( w['_dictionary_window'], '_definition^:^definitions^:^_value^:^' + l_name_field + '^:^lowercase' ), "true" ) ) l_value_pass = f_string_lowercase( l_value_pass );
if( f_string_same( f_dictionary_read( w['_dictionary_window'], '_definition^:^definitions^:^_value^:^' + l_name_field + '^:^uppercase' ), "true" ) ) l_value_pass = f_string_uppercase( l_value_pass );
if( f_string_same( f_dictionary_read( w['_dictionary_window'], '_definition^:^definitions^:^_value^:^' + l_name_field + '^:^capitalize' ), "true" ) ) l_value_pass = f_string_capitalize( l_value_pass );
if( f_string_same( f_dictionary_read( w['_dictionary_window'], '_definition^:^definitions^:^_value^:^' + l_name_field + '^:^identifier' ), "true" ) ) l_value_pass = f_string_replace( f_string_lowercase( l_value_pass ), " ", "_" );
//if( f_string_same( f_dictionary_read( w['_dictionary_window'], '_definition^:^definitions^:^_value^:^' + l_name_field + '^:^abbreviate' ), "true" ) ) l_value_pass = f_string_abbreviate( l_value_pass );
//if( f_string_same( f_dictionary_read( w['_dictionary_window'], '_definition^:^definitions^:^_value^:^' + l_name_field + '^:^unabbreviate' ), "true" ) ) l_value_pass = f_string_unabbreviate( l_value_pass );
if( f_string_same( f_dictionary_read( w['_dictionary_window'], '_definition^:^definitions^:^_value^:^' + l_name_field + '^:^integer' ), "true" ) ) l_value_pass = f_integer_string( f_string_integer( l_value_pass ) );
if( f_string_same( f_dictionary_read( w['_dictionary_window'], '_definition^:^definitions^:^_value^:^' + l_name_field + '^:^decimal' ), "true" ) ) l_value_pass = f_decimal_string( f_string_decimal( l_value_pass ) );
if( f_string_same( f_dictionary_read( w['_dictionary_window'], '_definition^:^definitions^:^_value^:^' + l_name_field + '^:^despace' ), "true" ) ) l_value_pass = f_string_despace( l_value_pass );
if( f_string_same( f_dictionary_read( w['_dictionary_window'], '_definition^:^definitions^:^_value^:^' + l_name_field + '^:^sort' ), "true" ) ) l_value_pass = f_list_sort( l_value_pass, g['_separator_comma'] );
if( f_string_same( f_dictionary_read( w['_dictionary_window'], '_definition^:^definitions^:^_value^:^' + l_name_field + '^:^unique' ), "true" ) ) l_value_pass = f_list_unique( l_value_pass, g['_separator_comma'] );
let l_name_old = f_dictionary_read( w['_dictionary_window'], w['_field_' + l_name_field + '_variable'] );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], w['_field_' + l_name_field + '_variable'], l_value_pass );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "_field_" + l_name_field );
if( f_string_different( l_name_old, l_value_pass ) )
{
w['_field_' + l_name_field + '_count'] = f_string_integer( w['_field_' + l_name_field + '_count'] ) + 1;
w['_field_' + l_name_field + '_position'] = w['_field_' + l_name_field + '_count'];
w['_field_' + l_name_field + '_' + ( w['_field_' + l_name_field + '_position'] ) + ''] = l_value_pass;
}
if( f_string_different( f_string_assign( w['_field_' + l_name_field + '_go'] ), "" ) )
{
w['_field_' + l_name_field + '_mode'] = "unselected";
a = " ^_function^[^_go^]^_function^ ^_go^[^" + w['_field_' + l_name_field + '_go'] + "^]^_go^ ^_field^[^" + l_name_field + "^]^_field^ ^_value^[^" + l_value_pass + "^]^_value^ ^_old^[^" + l_name_old + "^]^_old^ ";
window.setTimeout( "f_window_function( a );", 0 );
console.log("f_window_popped go = " + f_dictionary_read( w['_dictionary_window'], "_name" ) + " = " + a_dictionary_parameter );
return "true";
}
window.setTimeout( "f_window_render( );", 0 );
console.log("f_window_popped render = " + f_dictionary_read( w['_dictionary_window'], "_name" ) + " = " + a_dictionary_parameter );
return "true";
}
console.log("f_window_popped end = " + f_dictionary_read( w['_dictionary_window'], "_name" ) + " = " + a_dictionary_parameter );
return "";
}
function f_window_go( a_dictionary_parameter )
{
console.log("f_window_go = " + f_dictionary_read( w['_dictionary_window'], "_name" ) + " = " + a_dictionary_parameter );
let l_code_go = f_dictionary_read( a_dictionary_parameter, "_go" );
let l_name_field = f_dictionary_read( a_dictionary_parameter, "_field" );
let l_name_value = f_dictionary_read( a_dictionary_parameter, "_value" );
try
{
f_element_object( f_dictionary_read( a_dictionary_parameter, "_element" ) ).style.visibility = '';
}
catch( l_exception_catch )
{
}
if( f_string_same( l_name_field, '_submit' ) )
{
try
{
w['_field_' + l_name_field + '_mode'] = "unselected";
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "_submit_" + l_name_value );
f_element_object( '_submit_' + l_name_value + '' ).click( );
return "true";
}
catch( l_catch_ignore )
{
}
f_window_render( );
return "true";
}
if( f_string_same( l_code_go, '' ) || f_string_same( l_code_go, '_render' ) )
{
f_window_render( );
return 'true';
}
if( f_string_same( l_code_go, '_enter' ) )
{
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "_field_" + l_name_field );
if( f_string_same( l_name_value, 'cascade_box' ) )
{
w['_field_' + l_name_field + '_mode'] = "selected";
f_window_render( );
return 'true';
}
else if( f_string_same( l_name_value, 'keyboard_box' ) )
{
w['_field_' + l_name_field + '_mode'] = "keyboard";
f_window_render( );
return 'true';
}
else if( f_string_same( l_name_value, 'field_window' ) )
{
w['_field_' + l_name_field + '_mode'] = "unselected";
f_scroll_go( "write", l_name_field )
return 'true';
}
w['_field_' + l_name_field + '_mode'] = "unselected";
f_window_render( );
return 'true';
}
if( f_string_same( l_code_go, '_selected' ) )
{
w['_field_' + l_name_field + '_mode'] = "selected";
f_window_render( );
return 'true';
}
if( f_string_same( l_code_go, '_unselected' ) )
{
w['_field_' + l_name_field + '_mode'] = "unselected";
f_window_render( );
return 'true';
}
if( f_string_same( l_code_go, "_language" ) )
{
g['_name_language'] = l_name_value;
f_window_show( );
window.location.href = "https://unirealm.com/?_system_" + f_string_hyperlink( g['_name_system'] ) + "_system_language_" + f_string_hyperlink( g['_name_language'] ) + "_language_country_" + f_string_hyperlink( g['_name_country'] ) + "_country_currency_" + f_string_hyperlink( g['_name_currency'] ) + "_currency_measurement_" + f_string_hyperlink( g['_name_measurement'] ) + "_measurement_color_" + f_string_hyperlink( g['_name_color'] ) + "_color_font_" + f_string_hyperlink( g['_name_font'] ) + "_font_size_" + f_string_hyperlink( g['_name_size'] ) + "_size_design_" + f_string_hyperlink( g['_name_design'] ) + "_design_input_" + f_string_hyperlink( g['_name_input'] ) + "_input_output_" + f_string_hyperlink( g['_name_output'] ) + "_output_background_" + f_string_hyperlink( g['_name_background'] ) + "_background_bandwidth_" + f_string_hyperlink( g['_name_bandwidth'] ) + "_bandwidth_cache_" + f_string_hyperlink( g['_name_cache'] ) + "_cache_draft_" + f_string_hyperlink( g['_name_draft'] ) + "_draft_timeout_" + f_string_hyperlink( g['_name_timeout'] ) + "_timeout_version_" + f_string_hyperlink( g['_name_version'] ) + "_version_email_" + f_string_hyperlink( g['_name_email'] ) + "_email_";
return "true";
}
if( f_item_list( l_code_go, "_size^,^_color^,^_font^,^_country^,^_currency^,^_measurement^,^_input^,^_output^,^_timeout^,^_draft^,^_background" ) )
{
g['_name' + l_code_go + ''] = l_name_value;
f_window_show( );
window.location.href = "https://unirealm.com/?_system_" + f_string_hyperlink( g['_name_system'] ) + "_system_language_" + f_string_hyperlink( g['_name_language'] ) + "_language_country_" + f_string_hyperlink( g['_name_country'] ) + "_country_currency_" + f_string_hyperlink( g['_name_currency'] ) + "_currency_measurement_" + f_string_hyperlink( g['_name_measurement'] ) + "_measurement_color_" + f_string_hyperlink( g['_name_color'] ) + "_color_font_" + f_string_hyperlink( g['_name_font'] ) + "_font_size_" + f_string_hyperlink( g['_name_size'] ) + "_size_design_" + f_string_hyperlink( g['_name_design'] ) + "_design_input_" + f_string_hyperlink( g['_name_input'] ) + "_input_output_" + f_string_hyperlink( g['_name_output'] ) + "_output_background_" + f_string_hyperlink( g['_name_background'] ) + "_background_bandwidth_" + f_string_hyperlink( g['_name_bandwidth'] ) + "_bandwidth_cache_" + f_string_hyperlink( g['_name_cache'] ) + "_cache_draft_" + f_string_hyperlink( g['_name_draft'] ) + "_draft_timeout_" + f_string_hyperlink( g['_name_timeout'] ) + "_timeout_version_" + f_string_hyperlink( g['_name_version'] ) + "_version_email_" + f_string_hyperlink( g['_name_email'] ) + "_email_";
return "true";
}
if( f_string_same( l_code_go, "push_window" ) )
{
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "_submit_" + f_dictionary_read( a_dictionary_parameter, "_value" ) );
f_window_push( "thing/intangible/abstraction/technological/computer/system/" + f_dictionary_read( a_dictionary_parameter, "_value" ), " ^_image^[^" + f_dictionary_read( a_dictionary_parameter, "_image" ) + "^]^_image^ " );
return "true";
}
return f_window_function( a_dictionary_parameter );
}
function f_preview_go( a_code_go, a_name_field )
{
f_window_render( );
return;
}
function f_verb_go( a_code_go )
{
console.log( "verb=" + a_code_go );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_verb", a_code_go );
f_window_render( );
return;
}
function f_role_go( a_code_go )
{
f_window_pop( );
f_window_push( "thing/intangible/abstraction/technological/computer/system/" + a_code_go, " ^_image^[^https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/word/noun/" + a_code_go + "^]^_image^ " );
return;
}
function f_new_go( a_name_new )
{
let l_dictionary_push = f_string_assign( w['_dictionary_window'] );
l_dictionary_push = f_dictionary_write( l_dictionary_push, "_image", "https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/word/verb/write" );
l_dictionary_push = f_dictionary_write( l_dictionary_push, "_verb", "_insert" );
l_dictionary_push = f_dictionary_write( l_dictionary_push, "_tense", "present" );
l_dictionary_push = f_dictionary_write( l_dictionary_push, "_date", "today" );
l_dictionary_push = f_dictionary_write( l_dictionary_push, "_time", "now" );
l_dictionary_push = f_dictionary_write( l_dictionary_push, "_new", f_dictionary_read( w['_dictionary_window'], "_definition^:^defaults^:^_value" ) );
f_window_push( f_dictionary_read( w['_dictionary_window'], "_noun" ) + "/write", l_dictionary_push );
return "true";
}
function f__submit__go( a_name__submit_ )
{
f_window_function( " ^_function^[^_go^]^_function^ ^_go^[^" + a_name__submit_ + "^]^_go^ ^_field^[^_submit_^]^_field^ " );
return;
}
function f_sort_go( a_name_sort )
{
console.log("f_sort_go");
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "search^:^sort", a_name_sort );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "search^:^page", "1" );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_catalog", f_catalog_name( f_dictionary_read( w['_dictionary_window'], "search" ) ) );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "box_1" );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_new^:^" + "page^:^_value", f_dictionary_read( w['_dictionary_window'], "search^:^page" ) );
w['name__search_'] = f_dictionary_read( w['_dictionary_window'], "search" );
w['name__catalog_'] = f_dictionary_read( w['_dictionary_window'], "catalog" );
w['dictionary_catalog'] = "";
f_window_render( );
return "";
}
function f_page_go( a_number_page )
{
console.log("f_page_go");
let l_current_page = f_string_integer( f_dictionary_read( w['_dictionary_window'], "search^:^page" ) );
let l_current_pages = f_string_integer( f_dictionary_read( w['_dictionary_window'], "search^:^pages" ) );
let l_number_page = l_current_page;
console.log("page=" + l_current_page + "=" + l_current_pages );
if( l_current_pages < 1 )
{
f_window_render( );
return;
}
if( f_string_same( a_number_page, "[next]" ) ) a_number_page = f_integer_string( l_current_page + 1 );
if( f_string_same( a_number_page, "[prior]" ) ) a_number_page = f_integer_string( l_current_page - 1 );
if( f_string_same( a_number_page, "[forward]" ) ) a_number_page = f_string_bisect( f_decimal_string( ( ( l_current_pages - l_current_page ) / 2.00 ) + f_dictionary_read( w['name__search_'], "page" ) + 0.999999999 ), 1, ".", "forward" );
if( f_string_same( a_number_page, "[backward]" ) ) a_number_page = f_string_bisect( f_decimal_string( ( l_current_page / 2.00 ) + 0.999999999 ), 1, ".", "forward" );
if( f_string_same( a_number_page, "[last]" ) ) a_number_page = f_integer_string( l_current_pages );
if( f_string_same( a_number_page, "[first]" ) ) a_number_page = "1";
if( f_string_begin( a_number_page, "-" ) ) a_number_page = f_integer_string( l_current_page + f_string_integer( a_number_page ) );
if( f_string_begin( a_number_page, "+" ) ) a_number_page = f_integer_string( l_current_page + f_string_integer( a_number_page ) );
if( f_integer_less( a_number_page, 1 ) ) a_number_page = "1";
if( f_integer_more( a_number_page, l_current_pages ) ) a_number_page = f_string_assign( l_current_pages );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "search^:^page", a_number_page );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_catalog", f_catalog_name( f_dictionary_read( w['_dictionary_window'], "search" ) ) );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "box_1" );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_new^:^" + "page^:^_value", f_dictionary_read( w['_dictionary_window'], "search^:^page" ) );
w['dictionary_catalog'] = "";
w['name__catalog_'] = f_dictionary_read( w['_dictionary_window'], "catalog" );
f_window_render( );
return;
}
function f_include_go( a_name_include )
{
console.log( "" );
console.log( "include_go=" + a_name_include );
if( f_string_same( a_name_include, "[input]" ) )
{
a_name_include = f_string_squeeze( f_element_object( "_input_include" ).value );
if( f_string_end( a_name_include, "~" ) ) a_name_include = f_string_bisect( a_name_include, 1, "~", "backward" );
}
if( f_string_same( w['code_include'], "[append]" ) ) a_name_include = f_string_bisect( f_string_bisect( f_dictionary_read( w['_dictionary_window'], "catalog" ), 2, "^?^_include_=", "forward" ), 1, "^:^", "forward" ) + "^;^" + a_name_include;
if( f_string_different( a_name_include, "" ) && !f_string_contain( a_name_include, "^" ) && !f_string_contain( a_name_include, "=" ) ) a_name_include = "name^~^" + f_string_replace( a_name_include, " ", "^|^" );
if( f_string_different( a_name_include, "" ) && !f_string_contain( a_name_include, "^" ) && f_string_contain( a_name_include, "=" ) ) a_name_include = f_string_replace( a_name_include, "=", "^==^" );
if( f_string_same( a_name_include, "" ) ) a_name_include = "_all";
a_name_include = f_include_neat( a_name_include );
let l_value_pre = f_string_bisect( f_dictionary_read( w['_dictionary_window'], "catalog" ), 1, "^?^_include_=", "forward" );
let l_value_post = f_string_bisect( f_string_bisect( f_dictionary_read( w['_dictionary_window'], "catalog" ), 2, "^?^_include_=", "forward" ), 2, "^:^", "forward" );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_catalog", l_value_pre + "^?^_include_=" + a_name_include + "^:^" + l_value_post );
w['dictionary_catalog'] = "";
try
{
f_element_object( '_select_include' ).value = "";
f_element_object( '_select_include' ).style.visibility = "";
f_element_object( '_input_include' ).value = a_name_include;
}
catch( l_catch_ignore )
{
}
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "" );
f_window_render( );
return "";
}
function f_exclude_go( a_name_exclude )
{
console.log( "" );
console.log( "exclude_go=" + a_name_exclude );
if( f_string_same( a_name_exclude, "[input]" ) )
{
a_name_exclude = f_string_squeeze( f_element_object( "_input_exclude" ).value );
if( f_string_end( a_name_exclude, "~" ) ) a_name_exclude = f_string_bisect( a_name_exclude, 1, "~", "backward" );
}
if( f_string_same( w['code_exclude'], "[append]" ) ) a_name_exclude = f_string_bisect( f_dictionary_read( w['_dictionary_window'], "catalog" ), 2, "^?^_exclude_=", "forward" ) + "^;^" + a_name_exclude;
if( f_string_different( a_name_exclude, "" ) && !f_string_contain( a_name_exclude, "^" ) && !f_string_contain( a_name_exclude, "=" ) ) a_name_exclude = "name^~^" + f_string_replace( a_name_exclude, " ", "^|^" );
if( f_string_different( a_name_exclude, "" ) && !f_string_contain( a_name_exclude, "^" ) && f_string_contain( a_name_exclude, "=" ) ) a_name_exclude = f_string_replace( a_name_exclude, "=", "^==^" );
if( f_string_same( a_name_exclude, "" ) ) a_name_exclude = "_none";
a_name_exclude = f_exclude_neat( a_name_exclude );
let l_value_pre = f_string_bisect( f_dictionary_read( w['_dictionary_window'], "catalog" ), 1, "^?^_exclude_=", "forward" );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_catalog", l_value_pre + "^?^_exclude_=" + a_name_exclude );
w['dictionary_catalog'] = "";
try
{
f_element_object( '_select_exclude' ).value = "";
f_element_object( '_select_exclude' ).style.visibility = "";
f_element_object( '_input_exclude' ).value = a_name_exclude;
}
catch( l_catch_ignore )
{
}
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "" );
f_window_render( );
return "";
}
function f_cover_go( a_name_cover )
{
w['_field_cover_sticky'] = a_name_cover;
w['_field_cover_mode'] = "unselected";
f_window_render( );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "" );
return;
}
function f_size_go( a_name_size )
{
w['_field_size_sticky'] = a_name_size;
w['_field_size_mode'] = "unselected";
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "" );
f_window_render( );
return;
}
function f_picture_go( a_name_picture )
{
w['_field_picture_sticky'] = a_name_picture;
w['_field_picture_mode'] = "unselected";
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "" );
f_window_render( );
return;
}
function f_empty_go( )
{
g['_dictionary_cart'] = f_dictionary_write( g['_dictionary_cart'], "quantity", "0" );
g['_dictionary_cart'] = f_dictionary_write( g['_dictionary_cart'], "bill", "0.00" );
g['_dictionary_cart'] = f_dictionary_write( g['_dictionary_cart'], "change", "0.00" );
g['_dictionary_cart'] = f_dictionary_write( g['_dictionary_cart'], "list", "" );
g['_dictionary_cart'] = f_dictionary_write( g['_dictionary_cart'], "item", "" );
g['_dictionary_cart'] = f_dictionary_write( g['_dictionary_cart'], "text", "" );
g['_dictionary_cart'] = f_dictionary_write( g['_dictionary_cart'], "html", "" );
g['_dictionary_cart'] = f_dictionary_write( g['_dictionary_cart'], "xml", "" );
g['_html_message'] = "";
f_window_render( );
return;
}
function f_keypad_press( a_name_element, a_value_press )
{
f_element_object( a_name_element ).style.visibility = "hidden";
setTimeout( "f_keypad_press_do( '" + a_name_element + "', '" + a_value_press + "' )", 100 );
return;
}
function f_keypad_press_do( a_name_element, a_value_press )
{
a_value_press = f_string_transform( f_string_replace( a_value_press, "^rc^^fl^", "\n" ), "standard to text" );
f_element_object( a_name_element ).style.visibility = "";
let l_value_value = f_string_replace( f_element_object( '_input_field' ).value, "⌶", "" );
let l_position_caret = f_string_integer( w['position_caret'] );
let l_code_return = "";
if( f_string_same( a_value_press, "[ascii]" ) )
{
f_element_object( a_name_element ).value = "";
let l_string_value = f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_string_replace( f_element_object( '_select_paste_1' ).value + f_element_object( '_select_paste_2' ).value + f_element_object( '_select_paste_3' ).value + f_element_object( '_select_paste_4' ).value, "A", "" ), "B", "" ), "C", "" ), "D", "" ), "E", "" ), "F", "" );
if( f_string_same( l_string_value, "" ) ) l_string_value = "32";
l_integer_value = f_string_integer( l_string_value );
if( l_integer_value < 0 ) l_integer_value = 0;
if( l_integer_value > 127 ) l_integer_value = 127;
a_value_press = String.fromCharCode( l_integer_value );
}
if( f_string_same( a_value_press, "[unicode]" ) )
{
f_element_object( a_name_element ).value = "";
let l_string_value = f_element_object( 'select_paste_1' ).value + f_element_object( 'select_paste_2' ).value + f_element_object( 'select_paste_3' ).value + f_element_object( 'select_paste_4' ).value;
if( f_string_same( l_string_value, "" ) ) l_string_value = "0020";
if( l_string_value.length < 4 ) l_string_value = f_string_fill( "0", 4 - l_string_value.length ) + l_string_value;
a_value_press = String.fromCharCode( parseInt( l_string_value, 16 ) );
}
if( f_string_same( a_value_press, "[scroll]" ) )
{
f_element_scroll( f_element_object( '_div_banner' ) );
return;
}
if( f_string_same( a_value_press, "[scroll]" ) )
{
window.scrollTo( 0, 0 );
return;
}
if( f_string_same( a_value_press, "[left]" ) )
{
l_position_caret = l_position_caret - 1;
if( l_position_caret < 1 ) l_position_caret = 1;
w['position_caret'] = l_position_caret;
f_keypad_beam( );
return;
}
if( f_string_same( a_value_press, "[right]" ) )
{
l_position_caret = l_position_caret + 1;
if( l_position_caret > ( l_value_value.length + 1 ) ) l_position_caret = ( l_value_value.length + 1 );
w['position_caret'] = l_position_caret;
f_keypad_beam( );
return;
}
if( f_string_same( a_value_press, "[up]" ) )
{
let l_current_at = l_position_caret;
if( f_integer_equal( l_current_at, 1 ) )
{
return;
}
let l_prior_end = f_string_position( l_value_value, "\n", "backward", ( l_current_at - 1 ), 1 );
if( f_integer_equal( l_prior_end, 0 ) )
{
return;
}
let l_prior_begin = f_string_position( l_value_value, "\n", "backward", ( l_prior_end - 1 ), 1 ) + 1;
let l_prior_length = l_prior_end - l_prior_begin + 1;
let l_current_begin = l_prior_end + 1;
let l_current_long = l_current_at - l_current_begin;
if( f_integer_more( l_current_long, l_prior_length ) )
{
l_position_caret = l_prior_begin + l_prior_length;
}
else
{
l_position_caret = l_prior_begin + l_current_long;
}
w['position_caret'] = l_position_caret;
f_keypad_beam( );
return;
}
if( f_string_same( a_value_press, "[down]" ) )
{
let l_current_at = l_position_caret;
if( f_integer_equal( l_current_at, ( l_value_value.length + 1 ) ) )
{
return;
}
let l_current_end = f_string_position( l_value_value, "\n", "forward", l_current_at, l_value_value.length );
if( f_integer_equal( l_current_end, 0 ) )
{
return;
}
if( f_integer_equal( l_current_end, l_value_value.length ) )
{
return;
}
let l_current_begin = f_string_position( l_value_value, "\n", "backward", ( l_current_end - 1 ), 1 ) + 1;
let l_current_long = l_current_at - l_current_begin + 1;
let l_next_begin = l_current_end + 1;
let l_next_end = f_string_position( l_value_value, "\n", "forward", l_next_begin, l_value_value.length );
let l_next_length = l_next_end - l_next_begin + 1;
if( f_integer_more( l_current_long, l_next_length ) )
{
l_position_caret = l_next_begin + l_next_length - 1;
}
else
{
l_position_caret = l_next_begin + l_current_long - 1;
}
w['position_caret'] = l_position_caret;
f_keypad_beam( );
return;
}
if( f_string_same( a_value_press, "[home]" ) )
{
let l_prior_end = f_string_position( l_value_value, "\n", "backward", ( l_position_caret - 1 ), 1 );
if( f_integer_equal( l_prior_end, 0 ) )
{
l_position_caret = 1;
}
else
{
l_position_caret = l_prior_end + 1;
}
w['position_caret'] = l_position_caret;
f_keypad_beam( );
return;
}
if( f_string_same( a_value_press, "[end]" ) )
{
let l_current_end = f_string_position( l_value_value, "\n", "forward", l_position_caret, l_value_value.length );
if( f_integer_equal( l_current_end, 0 ) )
{
l_position_caret = l_value_value.length + 1;
}
else
{
l_position_caret = l_current_end;
}
w['position_caret'] = l_position_caret;
f_keypad_beam( );
return;
}
if( f_string_same( a_value_press, "[head]" ) )
{
l_position_caret = 1;
w['position_caret'] = l_position_caret;
f_keypad_beam( );
return;
}
if( f_string_same( a_value_press, "[tail]" ) )
{
l_position_caret = l_value_value.length + 1;
w['position_caret'] = l_position_caret;
f_keypad_beam( );
return;
}
if( l_position_caret < 1 ) l_position_caret = 1;
if( l_position_caret > ( l_value_value.length + 1 ) ) l_position_caret = ( l_value_value.length + 1 );
if( f_string_same( a_value_press, "[delete]" ) && ( l_position_caret <= 1 ) )
{
l_value_value = f_string_piece( l_value_value, 2, l_value_value.length );
}
else if( f_string_same( a_value_press, "[delete]" ) && ( l_position_caret > l_value_value.length ) )
{
}
else if( f_string_same( a_value_press, "[delete]" ) )
{
l_value_value = f_string_piece( l_value_value, 1, l_position_caret - 1 ) + f_string_piece( l_value_value, l_position_caret + 1, l_value_value.length );
}
else if( f_string_same( a_value_press, "[insert]" ) )
{
}
else if( f_string_same( a_value_press, "[backspace]" ) && ( l_position_caret <= 1 ) )
{
}
else if( f_string_same( a_value_press, "[backspace]" ) && ( l_position_caret > l_value_value.length ) )
{
l_value_value = f_string_piece( l_value_value, 1, l_value_value.length - 1 );
l_position_caret = l_position_caret - 1;
}
else if( f_string_same( a_value_press, "[backspace]" ) )
{
l_value_value = f_string_piece( l_value_value, 1, l_position_caret - 1 ) + f_string_piece( l_value_value, l_position_caret + 1, l_value_value.length );
l_position_caret = l_position_caret - 1;
}
else if( ( l_position_caret == 1 ) )
{
l_value_value = a_value_press + l_value_value;
l_position_caret = l_position_caret + 1;
}
else if( ( l_position_caret == ( l_value_value.length + 1 ) ) )
{
l_value_value = l_value_value + a_value_press;
l_position_caret = l_position_caret + 1;
}
else
{
l_value_value = f_string_piece( l_value_value, 1, l_position_caret - 1 ) + a_value_press + f_string_piece( l_value_value, l_position_caret, l_value_value.length );
l_position_caret = l_position_caret + 1;
}
f_element_object( '_input_field' ).value = l_value_value;
w['position_caret'] = l_position_caret;
f_keypad_beam( );
return;
}
function f_field_focus( a_name_element, a_name_variable )
{
let l_name_field = f_string_bisect( a_name_element, 2, "_", "forward" );
let l_variable_field = f_string_assign( a_name_variable );
if( f_string_same( l_variable_field, "" ) ) l_variable_field = l_name_field + "^:^_value";
//console.log("focus=" + f_dictionary_read( w['_dictionary_window'], w['_field_' + l_name_field + '_variable'] ) );
try
{
f_element_object( a_name_element ).value = f_string_replace( f_dictionary_read( w['_dictionary_window'], w['_field_' + l_name_field + '_variable'] ), g['_separator_break'], "\n" );
}
catch( l_catch_field )
{
}
return;
}
function f_field_blur( a_name_element, a_name_variable, a_name_flipper )
{
let l_name_field = f_string_bisect( a_name_element, 2, "_", "forward" );
let l_variable_field = f_string_assign( a_name_variable );
if( f_string_same( l_variable_field, "" ) ) l_variable_field = l_name_field + "^:^_value";
let l_name_flipper = f_string_assign( a_name_flipper );
if( f_string_same( l_name_flipper, "" ) ) l_name_flipper = f_dictionary_read( w['_dictionary_window'], "_definition^:^definitions^:^_value^:^" + l_name_field + "^:^flipper" );
let l_value_old = f_dictionary_read( w['_dictionary_window'], w['_field_' + l_name_field + '_variable'] );
let l_value_field = "";
try
{
l_value_field = f_string_replace( f_element_object( a_name_element ).value, "\n", g['_separator_break'] );
}
catch( l_catch_field )
{
}
if( f_string_same( f_dictionary_read( w['_dictionary_window'], "_definition^:^definitions^:^_value^:^" + l_name_field + "^:^lowercase" ), "true" ) ) l_value_field = f_string_lowercase( l_value_field );
if( f_string_same( f_dictionary_read( w['_dictionary_window'], "_definition^:^definitions^:^_value^:^" + l_name_field + "^:^uppercase" ), "true" ) ) l_value_field = f_string_uppercase( l_value_field );
if( f_string_same( f_dictionary_read( w['_dictionary_window'], "_definition^:^definitions^:^_value^:^" + l_name_field + "^:^capitalize" ), "true" ) ) l_value_field = f_string_capitalize( l_value_field );
if( f_string_same( f_dictionary_read( w['_dictionary_window'], "_definition^:^definitions^:^_value^:^" + l_name_field + "^:^trim" ), "true" ) ) l_value_field = f_string_trim( l_value_field );
if( f_string_same( f_dictionary_read( w['_dictionary_window'], "_definition^:^definitions^:^_value^:^" + l_name_field + "^:^squeeze" ), "true" ) ) l_value_field = f_string_squeeze( l_value_field );
if( f_string_same( f_dictionary_read( w['_dictionary_window'], "_definition^:^definitions^:^_value^:^" + l_name_field + "^:^despace" ), "true" ) ) l_value_field = f_string_despace( l_value_field );
if( f_string_different( l_value_field, l_value_old ) )
{
w['_field_' + l_name_field + '_count'] = f_string_integer( w['_field_' + l_name_field + '_count'] ) + 1;
w['_field_' + l_name_field + '_position'] = w['_field_' + l_name_field + '_count'];
w['_field_' + l_name_field + '_' + ( w['_field_' + l_name_field + '_position'] ) + ''] = l_value_field;
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], w['_field_' + l_name_field + '_variable'], l_value_field );
if( f_string_different( l_name_flipper, "" ) )
{
w['_boolean_changed'] = "true";
f_window_render( );
}
}
return;
}
function f_keypad_focus( )
{
f_element_object( "_input_field" ).value = f_dictionary_read( w['_dictionary_window'], "_new^:^" + "input^:^_value" );
let l_element_handle = f_element_object( "_input_field" );
let l_position_caret = f_string_integer( w['position_caret'] );
l_element_handle.value = f_string_replace( l_element_handle.value, "⌶", "" );
l_element_handle.setSelectionRange( l_position_caret, l_position_caret );
return;
}
function f_keypad_blur( )
{
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_new^:^" + "input^:^_value", f_element_object( "_input_field" ).value );
let l_element_handle = f_element_object( "_input_field" );
let l_position_caret = l_element_handle.selectionStart - 0 + 1;
w['position_caret'] = l_position_caret;
f_keypad_beam( );
return;
}
function f_keypad_beam( )
{
let l_element_handle = f_element_object( "_input_field" );
let l_position_caret = w['position_caret'];
l_element_handle.value = f_string_replace( l_element_handle.value, "⌶", "" );
if( l_position_caret <= 1 )
{
l_element_handle.value = "⌶" + l_element_handle.value;
}
else if( l_position_caret > l_element_handle.value.length )
{
l_element_handle.value = l_element_handle.value + "⌶";
}
else
{
l_element_handle.value = f_string_piece( l_element_handle.value, 1, l_position_caret - 1 ) + "⌶" + f_string_piece( l_element_handle.value, l_position_caret, l_element_handle.value.length );
}
return;
}
function f_action_logout( )
{
let l_name_window = f_dictionary_read( w['_dictionary_window'], "_name" );
let l_count_send = 1;
let g_dictionary_argument = " ^_count^[^1^]^_count^ ";
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, l_count_send, g['_dictionary_send'] );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, l_count_send + "^:^action", "logout" );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, l_count_send + "^:^_window", l_name_window );
g_dictionary_argument = f_dictionary_write( g_dictionary_argument, l_count_send + "^:^_silent", "false" );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_callback", "_logout" );
f_window_send( g_dictionary_argument );
return;
}
function f_unicode_go( a_name_field )
{
g['_html_message'] = "Sorry this feature is still under construction!
";
f_window_push( "thing/intangible/abstraction/technological/computer/system/message", " ^_image^[^https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/word/noun/message^]^_image^ " );
return;
}
function f_feature_go( a_name_feature )
{
g['_html_message'] = "Sorry this is feature is scheduled for a future release!
Please use the \"" + a_name_feature + "\" feature instead.
";
f_window_push( "thing/intangible/abstraction/technological/computer/system/message", " ^_image^[^https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/word/noun/message^]^_image^ " );
return;
}
function f_message_go( a_html_message, a_integer_height, a_name_title )
{
let l_integer_height = f_string_integer( f_string_assign( a_integer_height ) );
if( ( l_integer_height >= 100 ) && ( l_integer_height <= 10000 ) ) g['_height_message'] = l_integer_height;
g['_title_message'] = f_string_assign( a_name_title );
g['_html_message'] = f_string_assign( a_html_message );
f_window_push( "thing/intangible/abstraction/technological/computer/system/message", " ^_image^[^https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/word/noun/message^]^_image^ " );
return;
}
function f_warning_go( a_html_warning, a_integer_height )
{
let l_integer_height = f_string_integer( f_string_assign( a_integer_height ) );
if( ( l_integer_height >= 100 ) && ( l_integer_height <= 10000 ) ) g['_height_message'] = l_integer_height;
g['_html_warning'] = f_string_assign( a_html_warning );
f_window_push( "thing/intangible/abstraction/technological/computer/system/warning", " ^_image^[^https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/word/noun/warning^]^_image^ " );
return;
}
function f_upload_go( a_dictionary_parameter )
{
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_focus", "select_" + f_dictionary_read( a_dictionary_parameter, "_field" ) );
let l_dictionary_push = f_string_assign( w['_dictionary_window'] );
l_dictionary_push = f_dictionary_write( l_dictionary_push, "focus", "" );
l_dictionary_push = f_dictionary_write( l_dictionary_push, "background", "https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/word/verb/upload" );
l_dictionary_push = f_dictionary_write( l_dictionary_push, "_done", f_dictionary_read( w['_dictionary_window'], "_name" ) );
l_dictionary_push = f_dictionary_write( l_dictionary_push, "_action", "upload" );
l_dictionary_push = f_dictionary_write( l_dictionary_push, "field", f_dictionary_read( a_dictionary_parameter, "_field" ) );
l_dictionary_push = f_dictionary_write( l_dictionary_push, "preview", f_dictionary_read( a_dictionary_parameter, "preview" ) );
l_dictionary_push = f_dictionary_write( l_dictionary_push, "object", f_integer_string( f_string_integer( f_dictionary_read( w['_dictionary_window'], "_new^:^" + "_number_^:^_value" ) ) ) );
f_window_push( "thing/intangible/abstraction/technological/computer/system/upload", l_dictionary_push );
return;
}
function f_upload_send( )
{
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_callback", "_upload" );
let l_form_upload = new FormData( );
l_form_upload.method = 'post';
l_form_upload.enctype = 'multipart/form-data';
l_form_upload.append( 'input_dictionary', ' ^_count^[^1^]^_count^ ^1^[^ ^server^[^' + g['_name_server'] + '^]^server^ ^client^[^' + g['_ip4_client'] + '^]^client^ ^system^[^' + g['_number_system'] + '^]^system^ ^website^[^' + g['_name_website'] + '^]^website^ ^session^[^' + g['_number_session'] + '^]^session^ ^language^[^' + g['_name_language'] + '^]^language^ ^currency^[^' + g['_name_currency'] + '^]^currency^ ^window^[^' + f_dictionary_read( w['_dictionary_window'], 'window' ) + '^]^window^ ^noun^[^' + f_dictionary_read( w['_dictionary_window'], "_noun" ) + '^]^noun^ ^adjective^[^' + f_dictionary_read( w['_dictionary_window'], "adjective" ) + '^]^adjective^ ^_field^[^' + f_dictionary_read( w['_dictionary_window'], "field" ) + '^]^_field^ ^preview^[^' + f_dictionary_read( w['_dictionary_window'], "preview" ) + '^]^preview^ ^]^1^ ' );
l_form_upload.append( 'input_file', w['file_upload'] );
x = new XMLHttpRequest( );
x.open( 'POST', 'https://unirealm.com/ajax/', true );
x.onload = function( e ) { f_window_hide( ); window.setTimeout( "f_window_receive( );", 50 ); };
x.onerror = function( e ) { console.log( 'Ajax Error=' + x.statusText ); };
x.upload.addEventListener( 'progress', event => { let l_integer_progress = f_decimal_integer( event.loaded / event.total * 100.00 ); f_element_object( '_div_progress' ).innerHTML = f_dictionary_read( w['_dictionary_window'], "field" ) + ' field upload is ' + l_integer_progress + '% done'; } );
x.send( l_form_upload );
return;
}
function f_tense_go( a_name_tense )
{
console.log( "" );
console.log( "tense_go=" + a_name_tense );
if( f_string_same( a_name_tense, "[input]" ) )
{
a_name_tense = f_string_lowercase( f_string_squeeze( f_element_object( "_input_tense" ).value ) );
if( f_string_end( a_name_tense, "~" ) ) a_name_tense = f_string_bisect( a_name_tense, 1, "~", "backward" );
}
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "tense", a_name_tense );
f_element_object( '_image_tense' ).setAttribute( 'src', 'https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/word/adjective/' + f_string_front( a_name_tense, '/' ) + '/_landscape' + g['_name_size'] + '_.jpg' );
f_element_object( '_input_tense' ).value = a_name_tense;
f_element_object( '_select_tense' ).value = "";
f_element_object( '_select_tense' ).style.visibility = "";
return;
}
function f_connection_go( a_name_connection )
{
console.log( "" );
console.log( "connection go = " + a_name_connection );
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "connection", a_name_connection );
let l_url_icon = "https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/phrase/" + f_string_replace( f_dictionary_read( w['_dictionary_window'], "connection" ), " ", "_" ) + "/_landscape" + g['_name_size'] + ".jpg";
f_element_object( '_image_connection' ).setAttribute( 'src', l_url_icon );
f_element_object( '_select_connection' ).value = "";
f_element_object( '_select_connection' ).style.visibility = "";
try
{
f_element_object( '_input_connection' ).value = a_name_connection;
}
catch( l_catch_ignore )
{
f_element_object( '_blurb_connection' ).innerHTML = f_string_transform( a_name_connection, "text to html" );
}
return;
}
function f_object_length( a_object_object )
{
let l_count_character = 0;
for( var l_position_value in a_object_object )
{
l_count_character = l_count_character + a_object_object[l_position_value].length;
}
return l_count_character;
}
function f_object_serialize( a_object_object )
{
let l_array_field = Object.keys( a_object_object );
let l_count_field = l_array_field.length;
let l_position_field = 0;
let l_string_return = "";
let l_string_line = "";
for( l_position_field = 1; l_position_field <= l_count_field; l_position_field++ )
{
if( !a_object_object.hasOwnProperty( l_array_field[l_position_field - 1] ) ) continue;
l_string_line = f_string_assign( a_object_object['' + l_array_field[l_position_field - 1] + ''] );
l_string_line = f_string_replace( l_string_line, '\r\n', '^**^-^**^' );
l_string_line = f_string_replace( l_string_line, '"', '^**^_^**^' );
l_string_line = f_string_replace( l_string_line, '\\', '\\\\' );
l_string_return = l_string_return + "c['" + l_array_field[l_position_field - 1] + "'] = f_string_replace( f_string_replace( \"" + l_string_line + "\", '^**^-^**^', '\\r\\n' ), '^**^_^**^', '\"' );\r\n";
}
return f_string_replace( l_string_return, "\\'", "\\\\'" );
}
function f_element_absolute( element )
{
let bound = element.getBoundingClientRect( );
let width = bound.width;
let height = bound.height;
let left = 0;
let top = 0;
do
{
bound = element.getBoundingClientRect( );
left += bound.left;
top += bound.top;
element = element.offsetParent;
if (element !== null)
{
bound = element.getBoundingClientRect( );
left -= bound.left - window.scrollX;
top -= bound.top - window.scrollY;
}
} while( element );
return " ^left^[^" + left + "^]^left^ ^top^[^" + top + "^]^top^ ^width^[^" + width + "^]^width^ ^height^[^" + height + "^]^height^ ";
}
function f_string_noleadingzeros( a_string_string )
{
let l_string_value = f_string_assign( a_string_string );
while( l_string_value.length > 1 )
{
if( f_string_left( l_string_value, 1 ) != "0" ) break;
l_string_value = f_string_piece( l_string_value, 2, l_string_value.length );
}
return l_string_value;
}
function f_hello_next( )
{
try
{
g['_position_hello'] = g['_position_hello'] + 1;
if( g['_position_hello'] < 1 ) g['_position_hello'] = 1;
if( g['_position_hello'] > g['_count_hello'] ) g['_position_hello'] = 1;
}
catch( l_exception_catch )
{
g['_position_hello'] = 1;
}
return "";
}
function f_touch_start( event )
{
event.stopPropagation( );
g['_touch__x'] = event.touches[0].clientX;
g['_touch__y'] = event.touches[0].clientY;
return true;
}
function f_touch_end( event, element )
{
event.stopPropagation( );
if( Math.abs( event.changedTouches[0].clientX - g['_touch__x'] ) > 50.00 ) return true;
if( Math.abs( event.changedTouches[0].clientY - g['_touch__y'] ) > 50.00 ) return true;
element.click( );
return true;
}
function f_condition_evaluate( a_condition_value, a_record_value )
{
if( f_string_same( a_condition_value, "true" ) ) return true;
if( f_string_same( a_condition_value, "_all" ) ) return true;
if( f_string_same( a_condition_value, "false" ) ) return false;
if( f_string_same( a_condition_value, "_none" ) ) return false;
if( f_string_same( a_condition_value, "_scribe_" ) ) return f_string_same( f_dictionary_read( g['_record_account'], "_name^:^_value" ), f_dictionary_read( a_record_value, "_scribe_^?^value" ) );
return false;
}
function f_noun_lookup( a_name_noun )
{
a_name_noun = f_string_lowercase( f_string_squeeze( a_name_noun ) );
if( f_item_list( a_name_noun, "person^,^place^,^thing" ) ) return a_name_noun;
let l_begin_position = 0;
let l_end_position = f_string_position( w['hold_nouns'], g['_separator_comma'] + a_name_noun + g['_separator_comma'], "forward", 1, f_string_length( w['hold_nouns'] ) );
if( l_end_position > 0 )
{
l_begin_position = f_string_position( w['hold_nouns'], "\n", "backward", l_end_position, 1 );
if( l_begin_position > 0 )
{
a_name_noun = f_string_bisect( f_string_piece( w['hold_nouns'], l_begin_position + 1, l_end_position ), 1, "=", "forward" ) + "/" + a_name_noun;
w['_dictionary_window'] = f_dictionary_write( w['_dictionary_window'], "_new^:^" + "noun^:^_value", a_name_noun );
f_element_object( "_input_noun" ).value = a_name_noun;
}
}
if( f_string_same( f_dictionary_read( w['_dictionary_window'], "_new^:^" + "_display_^:^_value" ), "hierarchy" ) )
{
f_window_function( " ^_function^[^prepare^]^_function^ " );
f_element_object( '_pane_hierarchy' ).innerHTML = w['html_noun'];
}
return a_name_noun;
}
function f_calculation_evaluate( )
{
// to do: port from server side code
return "false";
}
function f_browser_id( )
{
return f_string_lowercase( f_string_bisect( f_string_bisect( g['_ip4_client'], 1, ".", "backward" ), 1, ".", "backward" ) + "~" + window.navigator.userAgent + "~" + window.navigator.platform + "~" + window.navigator.language + "~" + window.navigator.hardwareConcurrency + "~" + window.navigator.cookieEnabled + "~" + window.navigator.maxTouchPoints + "~" + window.navigator.pdfViewerEnabled + "~" + window.navigator.webdriver + "~" + window.navigator.cookieEnabled + "~" + window.devicePixelRatio + "~" + window.window.width + "~" + window.window.height + "~" + window.window.availHeight + "~" + window.window.availWidth + "~" + window.window.colorDepth + "~" + window.window.pixelDepth + "~" + new Date( ).getTimezoneOffset( ) );
}
function f_interface_load( )
{
g['_id_browser'] = f_browser_id( );
g['_position_impression'] = f_integer_random( g['_count_impression'] );
g['_position_trivia'] = f_integer_random( g['_count_trivia'] );
g['_position_hello'] = f_integer_random( g['_count_hello'] );
f_window_style( );
f_window_size( );
f_window_push( "thing/intangible/abstraction/technological/computer/system/home", " ^_image^[^https://unirealm.com/_/thing/intangible/abstraction/linguistical/language/english_american/word/noun/operator^]^_image^ " );
return;
}