Automatic generation produced by ISE Eiffel
note description: "[ Interpreter for line based Eiffel like interpreter language. Depends on a generated Erl-G reflection library. ]" author: "Andreas Leitner" revised_by: "Alexander Kogtenkov" date: "$Date: 2020-05-19 06:46:56 -0800 (Tue, 19 May 2020) $" revision: "$Revision: 104271 $" class interface ITP_INTERPRETER create execute -- Execute interpreter. -- Command line for current: interpreter <port> <melt feature id> <log file> -- <port> is the port number used in socket IPC -- <melt feature id> is the feature body ID whose byte-code is to be injected -- <log file> is the file to store logs. feature -- Access argument (i: INTEGER_32): IMMUTABLE_STRING_32 -- i-th argument of command that started system execution -- (the command name if i = 0). -- (from ARGUMENTS_32) require -- from ARGUMENTS_32 index_large_enough: i >= 0 index_small_enough: i <= argument_count ensure -- from ARGUMENTS_32 instance_free: class argument_not_void: Result /= Void argument_array: ARRAY [IMMUTABLE_STRING_32] -- Array containing command name (position 0) and arguments. -- A new instance at each query. -- (from ARGUMENTS_32) ensure -- from ARGUMENTS_32 instance_free: class argument_array_not_void: Result /= Void argument_array_compare_objects: Result.object_comparison Arguments: ARGUMENTS_32 -- Arguments that were used to start current execution. -- (from EXECUTION_ENVIRONMENT) ensure -- from EXECUTION_ENVIRONMENT instance_free: class available_cpu_count: NATURAL_32 -- Number of available CPUs. -- (from EXECUTION_ENVIRONMENT) ensure -- from EXECUTION_ENVIRONMENT instance_free: class Check_instruction: INTEGER_32 = 7 -- Exception code for violated check -- (from EXCEP_CONST) Class_invariant: INTEGER_32 = 6 -- Exception code for violated class invariant -- (from EXCEP_CONST) Com_exception: INTEGER_32 = 28 -- Exception code for a COM error. -- (from EXCEP_CONST) Command_line: IMMUTABLE_STRING_32 -- Full command line: `command_name` followed by arguments. -- (from ARGUMENTS_32) ensure -- from ARGUMENTS_32 instance_free: class Result.count >= Command_name.count Command_name: IMMUTABLE_STRING_32 -- Name of command that started system execution. -- (from ARGUMENTS_32) ensure -- from ARGUMENTS_32 instance_free: class definition: Result.same_string (argument (0)) Create_on_deferred: INTEGER_32 = 17 -- Create on deferred -- (from EXCEP_CONST) current_working_path: PATH -- Directory of current execution. -- (from EXECUTION_ENVIRONMENT) ensure -- from EXECUTION_ENVIRONMENT instance_free: class result_not_void: Result /= Void Default_shell: STRING_32 -- Default shell -- (from EXECUTION_ENVIRONMENT) ensure -- from EXECUTION_ENVIRONMENT instance_free: class Developer_exception: INTEGER_32 = 24 -- Exception code for developer exception -- (from EXCEP_CONST) Dollar_applied_to_melted_feature: INTEGER_32 = 26 -- $ applied to melted feature -- (from EXCEP_CONST) Eiffel_runtime_fatal_error: INTEGER_32 = 25 -- Eiffel run-time fatal error -- (from EXCEP_CONST) Eiffel_runtime_panic: INTEGER_32 = 13 -- Eiffel run-time panic -- (from EXCEP_CONST) Exception_in_signal_handler: INTEGER_32 = 20 -- Exception in signal handler -- (from EXCEP_CONST) Exception_manager: EXCEPTION_MANAGER -- Exception manager -- (from EXCEPTION_MANAGER_FACTORY) ensure -- from EXCEPTION_MANAGER_FACTORY instance_free: class exception_manager_not_void: Result /= Void External_exception: INTEGER_32 = 18 -- Exception code for operating system error -- which does not set the errno variable -- (Unix-specific) -- (from EXCEP_CONST) Floating_point_exception: INTEGER_32 = 5 -- Exception code for floating point exception -- (from EXCEP_CONST) generating_type: TYPE [detachable ITP_INTERPRETER] -- Type of current object -- (type of which it is a direct instance) -- (from ANY) ensure -- from ANY generating_type_not_void: Result /= Void generator: STRING_8 -- Name of current object's generating class -- (base class of the type of which it is a direct instance) -- (from ANY) ensure -- from ANY generator_not_void: Result /= Void generator_not_empty: not Result.is_empty Home_directory_path: detachable PATH -- Directory name corresponding to the home directory. -- (from EXECUTION_ENVIRONMENT) require -- from EXECUTION_ENVIRONMENT home_directory_supported: Operating_environment.home_directory_supported ensure -- from EXECUTION_ENVIRONMENT instance_free: class Incorrect_inspect_value: INTEGER_32 = 9 -- Exception code for inspect value which is not one -- of the inspect constants, if there is no Else_part -- (from EXCEP_CONST) Io_exception: INTEGER_32 = 21 -- Exception code for I/O error -- (from EXCEP_CONST) item (s: READABLE_STRING_GENERAL): detachable STRING_32 -- Value of s if it is an environment variable and has been set; -- void otherwise. -- (from EXECUTION_ENVIRONMENT) require -- from EXECUTION_ENVIRONMENT s_exists: s /= Void not_has_null_character: not s.has ('%U'.to_character_32) ensure -- from EXECUTION_ENVIRONMENT instance_free: class Loop_invariant: INTEGER_32 = 11 -- Exception code for violated loop invariant -- (from EXCEP_CONST) Loop_variant: INTEGER_32 = 10 -- Exception code for non-decreased loop variant -- (from EXCEP_CONST) No_more_memory: INTEGER_32 = 2 -- Exception code for failed memory allocation -- (from EXCEP_CONST) None_type_name: STRING_8 = "NONE" -- Name for {NONE} type -- (from ERL_CONSTANTS) Number_of_codes: INTEGER_32 = 31 -- How many codes are there to represent exceptions? -- (from EXCEP_CONST) Old_exception: INTEGER_32 = 30 -- Old exception code. -- (from EXCEP_CONST) Operating_system_exception: INTEGER_32 = 22 -- Exception code for operating system error -- which sets the errno variable -- (Unix-specific) -- (from EXCEP_CONST) Out_of_memory: INTEGER_32 = 15 -- Out of memory (cannot be ignored) -- (from EXCEP_CONST) Postcondition: INTEGER_32 = 4 -- Exception code for violated postcondition -- (from EXCEP_CONST) Precondition: INTEGER_32 = 3 -- Exception code for violated precondition -- (from EXCEP_CONST) Rescue_exception: INTEGER_32 = 14 -- Exception code for exception in rescue clause -- (from EXCEP_CONST) Resumption_failed: INTEGER_32 = 16 -- Resumption failed (retry did not succeed) -- (from EXCEP_CONST) Retrieve_exception: INTEGER_32 = 23 -- Exception code for retrieval error -- may be raised by `retrieved` in IO_MEDIUM. -- (from EXCEP_CONST) Root_directory_name: STRING_8 -- Directory name corresponding to the root directory. -- (from EXECUTION_ENVIRONMENT) require -- from EXECUTION_ENVIRONMENT root_directory_supported: Operating_environment.root_directory_supported ensure -- from EXECUTION_ENVIRONMENT instance_free: class result_not_void: Result /= Void Routine_failure: INTEGER_32 = 8 -- Exception code for failed routine -- (from EXCEP_CONST) Runtime_check_exception: INTEGER_32 = 29 -- Exception code for runtime check being violated. -- (from EXCEP_CONST) Runtime_io_exception: INTEGER_32 = 27 -- Exception code for I/O error raised by runtime functions -- such as store/retrieve, file access... -- (from EXCEP_CONST) Serialization_exception: INTEGER_32 = 31 -- Serialization exception code. -- (from EXCEP_CONST) Signal_exception: INTEGER_32 = 12 -- Exception code for operating system signal -- (from EXCEP_CONST) starting_environment: HASH_TABLE [STRING_32, STRING_32] -- Table of environment variables when current process starts, -- indexed by variable name -- (from EXECUTION_ENVIRONMENT) ensure -- from EXECUTION_ENVIRONMENT instance_free: class result_attached: Result /= Void Temporary_directory_path: detachable PATH -- Temporary directory name. -- On Windows: %SystemDrive%\Users\%USERNAME%\AppData\Local\Temp (%USERPROFILE%\AppData\Local\Temp). -- On Unix: /tmp and /var/tmp. -- On VMS: /sys$scratch -- Otherwise Void -- (from EXECUTION_ENVIRONMENT) note eis: "name=temporary path", "src=https://en.wikipedia.org/wiki/Temporary_folder", "protocol=Uri" ensure -- from EXECUTION_ENVIRONMENT instance_free: class User_directory_path: detachable PATH -- Directory name corresponding to the user directory -- On Windows: C:\Users\manus\Documents -- On Unix & Mac: $HOME -- Otherwise Void -- (from EXECUTION_ENVIRONMENT) ensure -- from EXECUTION_ENVIRONMENT instance_free: class valid_code (c: INTEGER_32): BOOLEAN -- Is c a valid code to represent some kind of exceptions? -- (from EXCEP_CONST) Void_assigned_to_expanded: INTEGER_32 = 19 -- Exception code for assignment of void value -- to expanded entity -- (from EXCEP_CONST) Void_call_target: INTEGER_32 = 1 -- Exception code for feature applied to void reference -- (from EXCEP_CONST) feature -- Measurement argument_count: INTEGER_32 -- Number of arguments given to command that started -- system execution (command name does not count). -- (from ARGUMENTS_32) ensure -- from ARGUMENTS_32 instance_free: class argument_count_positive: Result >= 0 feature -- Comparison frozen deep_equal (a: detachable ANY; b: like arg #1): BOOLEAN -- Are a and b either both void -- or attached to isomorphic object structures? -- (from ANY) ensure -- from ANY instance_free: class shallow_implies_deep: standard_equal (a, b) implies Result both_or_none_void: (a = Void) implies (Result = (b = Void)) same_type: (Result and (a /= Void)) implies (b /= Void and then a.same_type (b)) symmetric: Result implies deep_equal (b, a) frozen equal (a: detachable ANY; b: like arg #1): BOOLEAN -- Are a and b either both void or attached -- to objects considered equal? -- (from ANY) ensure -- from ANY instance_free: class definition: Result = (a = Void and b = Void) or else ((a /= Void and b /= Void) and then a.is_equal (b)) frozen is_deep_equal alias "≡≡≡" (other: ITP_INTERPRETER): BOOLEAN -- Are Current and other attached to isomorphic object structures? -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY shallow_implies_deep: standard_is_equal (other) implies Result same_type: Result implies same_type (other) symmetric: Result implies other.is_deep_equal (Current) is_equal (other: ITP_INTERPRETER): BOOLEAN -- Is other attached to an object considered -- equal to current object? -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY symmetric: Result implies other ~ Current consistent: standard_is_equal (other) implies Result frozen standard_equal (a: detachable ANY; b: like arg #1): BOOLEAN -- Are a and b either both void or attached to -- field-by-field identical objects of the same type? -- Always uses default object comparison criterion. -- (from ANY) ensure -- from ANY instance_free: class definition: Result = (a = Void and b = Void) or else ((a /= Void and b /= Void) and then a.standard_is_equal (b)) frozen standard_is_equal alias "≜" (other: ITP_INTERPRETER): BOOLEAN -- Is other attached to an object of the same type -- as current object, and field-by-field identical to it? -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY same_type: Result implies same_type (other) symmetric: Result implies other.standard_is_equal (Current) feature -- Status report assertion_violation: BOOLEAN -- Is last exception originally due to a violated -- assertion or non-decreasing variant? -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class class_name: detachable STRING_8 -- Name of the class that includes the recipient -- of original form of last exception -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class coalesced_character_option_value (o: CHARACTER_32): detachable IMMUTABLE_STRING_32 -- The value, if any, specified for character option o on -- the command line. -- Defined as follows (where 'X' is the current 'option_sign' and -- 'xx' is an arbitrary, possibly empty sequence of characters): -- val if command line includes an argument of the form Xxxoval -- (this may be an empty string if argument is just Xxxo). -- Void otherwise. -- (from ARGUMENTS_32) require -- from ARGUMENTS_32 o_non_null: o /= '%U'.to_character_32 ensure -- from ARGUMENTS_32 instance_free: class coalesced_word_option_value (opt: READABLE_STRING_GENERAL): detachable IMMUTABLE_STRING_32 -- The value, if any, specified for word option opt on the -- command line. -- Defined as follows (where X is the current `option_sign`): -- val if command line includes an argument of the form Xoptval -- (this may be an empty string if argument is just Xopt). -- Void otherwise. -- (from ARGUMENTS_32) require -- from ARGUMENTS_32 opt_non_void: opt /= Void opt_meaningful: not opt.is_empty ensure -- from ARGUMENTS_32 instance_free: class conforms_to (other: ANY): BOOLEAN -- Does type of current object conform to type -- of other (as per Eiffel: The Language, chapter 13)? -- (from ANY) require -- from ANY other_not_void: other /= Void developer_exception_name: detachable STRING_8 -- Name of last developer-raised exception -- (from EXCEPTIONS) require -- from EXCEPTIONS applicable: is_developer_exception ensure -- from EXCEPTIONS instance_free: class exception: INTEGER_32 -- Code of last exception that occurred -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class exception_trace: detachable STRING_8 -- String representation of the exception trace -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class has_error: BOOLEAN -- Has an error occurred while parsing? index_of_beginning_with_word_option (opt: READABLE_STRING_GENERAL): INTEGER_32 -- Does command line specify argument beginning with word -- option opt and, if so, at what position? -- If one of the arguments in list of space-separated arguments -- is Xoptxx, where X is the current `option_sign`, 'xx' -- is arbitrary, possibly empty sequence of characters, -- then index of this argument in list; -- else 0. -- (from ARGUMENTS_32) require -- from ARGUMENTS_32 opt_non_void: opt /= Void opt_meaningful: not opt.is_empty ensure -- from ARGUMENTS_32 instance_free: class index_of_character_option (o: CHARACTER_32): INTEGER_32 -- Does command line specify character option o and, if so, -- at what position? -- If one of the space-separated arguments is of the form Xxxoyy, -- where X is the current `option_sign`, xx and yy -- are arbitrary, possibly empty sequences of characters, -- then index of this argument in list of arguments; -- else 0. -- (from ARGUMENTS_32) require -- from ARGUMENTS_32 o_non_null: o /= '%U'.to_character_32 ensure -- from ARGUMENTS_32 instance_free: class index_of_word_option (opt: READABLE_STRING_GENERAL): INTEGER_32 -- Does command line specify word option opt and, if so, -- at what position? -- If one of the arguments in list of space-separated arguments -- is Xopt, where X is the current `option_sign`, -- then index of this argument in list; -- else 0. -- (from ARGUMENTS_32) require -- from ARGUMENTS_32 opt_non_void: opt /= Void opt_meaningful: not opt.is_empty ensure -- from ARGUMENTS_32 instance_free: class is_developer_exception: BOOLEAN -- Is the last exception originally due to -- a developer exception? -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class is_developer_exception_of_name (name: detachable STRING_8): BOOLEAN -- Is the last exception originally due to a developer -- exception of name name? -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class is_last_protected_execution_successfull: BOOLEAN -- Was the last protected execution successfull? -- (i.e. did it not trigger an exception) is_request_type_valid (a_type: NATURAL_32): BOOLEAN -- Is a_type a valid request type? is_signal: BOOLEAN -- Is last exception originally due to an external -- event (operating system signal)? -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class is_system_exception: BOOLEAN -- Is last exception originally due to an -- external event (operating system error)? -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class meaning (except: INTEGER_32): detachable STRING_8 -- A message in English describing what except is -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class Option_sign: CELL [CHARACTER_32] -- The character used to signal options on the command line. -- This can be '%U' if no sign is necessary for the argument -- to be an option -- Default is '-' -- (from ARGUMENTS_32) ensure -- from ARGUMENTS_32 instance_free: class original_class_name: detachable STRING_8 -- Name of the class that includes the recipient -- of original form of last exception -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class original_exception: INTEGER_32 -- Original code of last exception that triggered -- current exception -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class original_recipient_name: detachable STRING_8 -- Name of the routine whose execution was -- interrupted by original form of last exception -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class original_tag_name: detachable STRING_8 -- Assertion tag for original form of last -- assertion violation. -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class recipient_name: detachable STRING_8 -- Name of the routine whose execution was -- interrupted by last exception -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class same_type (other: ANY): BOOLEAN -- Is type of current object identical to type of other? -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY definition: Result = (conforms_to (other) and other.conforms_to (Current)) separate_character_option_value (o: CHARACTER_32): detachable IMMUTABLE_STRING_32 -- The value, if any, specified after character option o on -- the command line. -- This is one of the following (where X is the current -- `option_sign`, xx and 'yy' are arbitrary, possibly empty -- sequences of characters): -- val if command line includes two consecutive arguments -- of the form Xxxoyy and val respectively. -- Empty string if command line includes argument Xxxoyy, which is -- either last argument or followed by argument starting with X. -- Void if there is no argument of the form Xxxoyy. -- (from ARGUMENTS_32) require -- from ARGUMENTS_32 o_non_null: o /= '%U'.to_character_32 ensure -- from ARGUMENTS_32 instance_free: class separate_word_option_value (opt: READABLE_STRING_GENERAL): detachable IMMUTABLE_STRING_32 -- The value, if any, specified after word option opt on the -- command line. -- This is one of the following (where X is the current `option_sign`): -- val if command line includes two consecutive arguments -- of the form Xopt and val respectively. -- Empty string if command line includes argument Xopt, which is -- either last argument or followed by argument starting with X. -- Void if no Xopt argument. -- (from ARGUMENTS_32) require -- from ARGUMENTS_32 opt_non_void: opt /= Void opt_meaningful: not opt.is_empty ensure -- from ARGUMENTS_32 instance_free: class should_quit: BOOLEAN -- Should main loop quit? tag_name: detachable STRING_8 -- Tag of last violated assertion clause -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class feature -- Status setting catch (code: INTEGER_32) -- Make sure that any exception of code code will be -- caught. This is the default. -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class change_working_path (path: PATH) -- Set the current directory to path -- (from EXECUTION_ENVIRONMENT) die (code: INTEGER_32) -- Terminate execution with exit status code, -- without triggering an exception. -- (from EXCEPTIONS) ensure -- from EXCEPTIONS False instance_free: class ignore (code: INTEGER_32) -- Make sure that any exception of code code will be -- ignored. This is not the default. -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class launch (s: READABLE_STRING_GENERAL) -- Pass to the operating system an asynchronous request to -- execute s interpreted as a Unicode string. -- If s is empty, use the default shell as command. -- (from EXECUTION_ENVIRONMENT) require -- from EXECUTION_ENVIRONMENT s_not_void: s /= Void ensure -- from EXECUTION_ENVIRONMENT instance_free: class message_on_failure -- Print an exception history table -- in case of failure. -- This is the default. -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class no_message_on_failure -- Do not print an exception history table -- in case of failure. -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class put (value, key: READABLE_STRING_GENERAL) -- Set the environment variable key to value treating both -- value and key as Unicode characters. -- (from EXECUTION_ENVIRONMENT) require -- from EXECUTION_ENVIRONMENT key_exists: key /= Void key_meaningful: not key.is_empty not_key_has_null_character: not key.has ('%U'.to_character_32) value_exists: value /= Void not_value_has_null_character: not value.has ('%U'.to_character_32) ensure -- from EXECUTION_ENVIRONMENT variable_set: return_code = 0 implies ((value.is_empty and then item (key) = Void) or else not value.is_empty and then attached item (key) as k and then k.same_string_general (value)) raise (name: detachable READABLE_STRING_GENERAL) -- Raise a developer exception of name name. -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class raise_retrieval_exception (name: detachable READABLE_STRING_GENERAL) -- Raise a retrieval exception of name name. -- (from EXCEPTIONS) ensure -- from EXCEPTIONS instance_free: class set_option_sign (c: CHARACTER_32) -- Make c the option sign. -- Use'%U' if no sign is necessary for the argument to -- be an option. -- (from ARGUMENTS_32) ensure -- from ARGUMENTS_32 instance_free: class sleep (nanoseconds: INTEGER_64) -- Suspend thread execution for interval specified in -- nanoseconds (1 nanosecond = 10^(-9) second). -- (from EXECUTION_ENVIRONMENT) require -- from EXECUTION_ENVIRONMENT non_negative_nanoseconds: nanoseconds >= 0 ensure -- from EXECUTION_ENVIRONMENT instance_free: class system (s: READABLE_STRING_GENERAL) -- Pass to the operating system a request to execute s interpreted as a Unicode string. -- If s is empty, use the default shell as command. -- (from EXECUTION_ENVIRONMENT) require -- from EXECUTION_ENVIRONMENT s_exists: s /= Void feature -- Duplication copy (other: ITP_INTERPRETER) -- Update current object using fields of object attached -- to other, so as to yield equal objects. -- (from ANY) require -- from ANY other_not_void: other /= Void type_identity: same_type (other) ensure -- from ANY is_equal: Current ~ other frozen deep_copy (other: ITP_INTERPRETER) -- Effect equivalent to that of: -- `copy` (other . `deep_twin`) -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY deep_equal: deep_equal (Current, other) frozen deep_twin: ITP_INTERPRETER -- New object structure recursively duplicated from Current. -- (from ANY) ensure -- from ANY deep_twin_not_void: Result /= Void deep_equal: deep_equal (Current, Result) frozen standard_copy (other: ITP_INTERPRETER) -- Copy every field of other onto corresponding field -- of current object. -- (from ANY) require -- from ANY other_not_void: other /= Void type_identity: same_type (other) ensure -- from ANY is_standard_equal: standard_is_equal (other) frozen standard_twin: ITP_INTERPRETER -- New object field-by-field identical to other. -- Always uses default copying semantics. -- (from ANY) ensure -- from ANY standard_twin_not_void: Result /= Void equal: standard_equal (Result, Current) frozen twin: ITP_INTERPRETER -- New object equal to Current -- `twin` calls `copy`; to change copying/twinning semantics, redefine `copy`. -- (from ANY) ensure -- from ANY twin_not_void: Result /= Void is_equal: Result ~ Current feature -- Basic operations frozen default: detachable ITP_INTERPRETER -- Default value of object's type -- (from ANY) frozen default_pointer: POINTER -- Default value of type POINTER -- (Avoid the need to write p.`default` for -- some p of type POINTER.) -- (from ANY) ensure -- from ANY instance_free: class default_rescue -- Process exception for routines with no Rescue clause. -- (Default: do nothing.) -- (from ANY) frozen do_nothing -- Execute a null action. -- (from ANY) ensure -- from ANY instance_free: class feature -- Access: Cursor new_cursor: ITERATION_CURSOR [IMMUTABLE_STRING_32] -- Fresh cursor associated with current structure -- (from ARGUMENTS_32) require -- from ITERABLE True ensure -- from ITERABLE result_attached: Result /= Void ensure then -- from ARGUMENTS_32 instance_free: class feature -- AutoTest socket reponse flags Internal_error_respones_flag: NATURAL_8 = 3 -- Flag to indicate that there is an internal error -- in the interpreter. -- (from ITP_SHARED_CONSTANTS) Invariant_violation_on_entry_response_flag: NATURAL_8 = 2 -- Flag to indicate that there is a class invariant -- violation on entry of testee feature -- (from ITP_SHARED_CONSTANTS) Normal_response_flag: NATURAL_8 = 1 -- Flag to indicate a normal response -- (from ITP_SHARED_CONSTANTS) feature -- AutoTest socket request flags Execute_request_flag: NATURAL_8 = 3 -- Flag for "execute" request -- (from ITP_SHARED_CONSTANTS) Quit_request_flag: NATURAL_8 = 2 -- Flag for "quit" request -- (from ITP_SHARED_CONSTANTS) Start_request_flag: NATURAL_8 = 1 -- Flag for "start" request -- (from ITP_SHARED_CONSTANTS) Type_request_flag: NATURAL_8 = 4 -- Flag for "type" request -- (from ITP_SHARED_CONSTANTS) feature -- Output Io: STD_FILES -- Handle to standard file setup -- (from ANY) ensure -- from ANY instance_free: class io_not_void: Result /= Void out: STRING_8 -- New string containing terse printable representation -- of current object -- (from ANY) ensure -- from ANY out_not_void: Result /= Void print (o: detachable ANY) -- Write terse external representation of o -- on standard output. -- (from ANY) ensure -- from ANY instance_free: class frozen tagged_out: STRING_8 -- New string containing terse printable representation -- of current object -- (from ANY) ensure -- from ANY tagged_out_not_void: Result /= Void feature -- Platform Operating_environment: OPERATING_ENVIRONMENT -- Objects available from the operating system -- (from ANY) ensure -- from ANY instance_free: class operating_environment_not_void: Result /= Void feature -- Serialization routines basic_store (an_object: ANY; a_writer: SED_READER_WRITER; a_optimized_for_retrieval: BOOLEAN) -- Serialization of an_object using a_writer. -- Object stored can only be retrieved by execution of same program executable. -- (from SED_STORABLE_FACILITIES) require -- from SED_STORABLE_FACILITIES an_object_not_void: an_object /= Void a_writer_not_void: a_writer /= Void a_writer_ready: a_writer.is_ready_for_writing retrieved (a_reader: SED_READER_WRITER; a_is_gc_enabled: BOOLEAN): detachable ANY -- Deserialization of object from a_reader. -- Garbage collection will be enabled if a_is_gc_enabled. -- (from SED_STORABLE_FACILITIES) require -- from SED_STORABLE_FACILITIES a_reader_not_void: a_reader /= Void a_reader_ready: a_reader.is_ready_for_reading retrieved_errors: detachable ARRAYED_LIST [SED_ERROR] -- Errors set from last call to `retrieved`. -- (from SED_STORABLE_FACILITIES) retrieved_from_medium (a_medium: IO_MEDIUM): detachable ANY -- Deserialization of object from a_reader. -- (from SED_STORABLE_FACILITIES) require -- from SED_STORABLE_FACILITIES a_medium_not_void: a_medium /= Void a_medium_open_for_reading: a_medium.is_open_read a_medium_support_storable: a_medium.support_storable session_store (an_object: ANY; a_writer: SED_READER_WRITER; a_optimized_for_retrieval: BOOLEAN) -- Serialization of an_object using a_writer. -- Object stored can only be retrieved during current program execution. -- (from SED_STORABLE_FACILITIES) require -- from SED_STORABLE_FACILITIES an_object_not_void: an_object /= Void a_writer_not_void: a_writer /= Void a_writer_ready: a_writer.is_ready_for_writing store (an_object: ANY; a_writer: SED_READER_WRITER) -- Serialization of an_object using a_writer. -- Object stored can only be retrieved by programs having the same set of types. -- (from SED_STORABLE_FACILITIES) require -- from SED_STORABLE_FACILITIES an_object_not_void: an_object /= Void a_writer_not_void: a_writer /= Void a_writer_ready: a_writer.is_ready_for_writing store_in_medium (an_object: ANY; a_medium: IO_MEDIUM) -- Serialization of an_object in a_medium -- Object stored can only be retrieved by programs having the same set of types. -- (from SED_STORABLE_FACILITIES) require -- from SED_STORABLE_FACILITIES an_object_not_void: an_object /= Void a_medium_not_void: a_medium /= Void a_medium_writable: a_medium.is_open_write a_medium_support_storable: a_medium.support_storable feature -- Status return_code: INTEGER_32 -- Status code set by last call to `system` or `put` -- (from EXECUTION_ENVIRONMENT) feature -- Storable type Eiffel_basic_store: NATURAL_32 = 2 -- (from SED_STORABLE_FACILITIES) Eiffel_independent_store: NATURAL_32 = 3 -- (from SED_STORABLE_FACILITIES) Eiffel_recoverable_store: NATURAL_32 = 4 -- Various type of storable mechanism. -- (from SED_STORABLE_FACILITIES) Eiffel_session_store: NATURAL_32 = 1 -- (from SED_STORABLE_FACILITIES) invariant log_file_open_write: log_file.is_open_write store_not_void: object_store /= Void output_buffer_attached: output_buffer /= Void error_buffer_attached: error_buffer /= Void socket_attached: socket /= Void -- from ANY reflexive_equality: standard_is_equal (Current) reflexive_conformance: conforms_to (Current) note copyright: "Copyright (c) 1984-2020, Eiffel Software and others" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" source: "[ Eiffel Software 5949 Hollister Ave., Goleta, CA 93117 USA Telephone 805-685-1006, Fax 805-685-6869 Website http://www.eiffel.com Customer support http://support.eiffel.com ]" end -- class ITP_INTERPRETER -- Generated by Eiffel Studio --
For more details: eiffel.org