Platypus Smalltalk false private Smalltalk.* Refactory.SmaCC.* Platypus.* Platypus-PlatypusDictionarySchemaSchema.* Platypus Platypus PltPlatypusMetaSchemasSchemaInstance Platypus Platypus.PlatypusCoreSchemaInstance false none context Platypus-PlatypusMetaSchemasSchemaInstance Platypus Platypus.PltPlatypusMetaSchemasSchemaInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltPlatypusMetaSchemasSchemaInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltPlatypusMetaSchemasSchemaInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltPlatypusMetaSchemasSchemaInstance <ISO10303-11-EXPRESS> SCHEMA Platypus_expressions_schema; USE FROM Platypus_dictionary_schema; USE FROM Platypus_statements_schema; USE FROM Platypus_population_schema; ENTITY expression ABSTRACT SUPERTYPE SUBTYPE OF ( dictionary_instance ); END_ENTITY; ENTITY unary_expression ABSTRACT SUPERTYPE SUBTYPE OF ( expression ); END_ENTITY; ENTITY binary_expression ABSTRACT SUPERTYPE SUBTYPE OF ( expression ); parenthesis : OPTIONAL BOOLEAN; left_expr : expression; right_expr : expression; DERIVE op_string : STRING := ?; END_ENTITY; ENTITY logical_expression ABSTRACT SUPERTYPE SUBTYPE OF ( binary_expression ); END_ENTITY; ENTITY entity_instance_reference SUBTYPE OF ( expression ); persistent_label : STRING; ref : entity_instance; END_ENTITY; ENTITY instance_construction_expression SUBTYPE OF ( binary_expression ); END_ENTITY; ENTITY arithmetic_expression ABSTRACT SUPERTYPE SUBTYPE OF ( binary_expression ); END_ENTITY; ENTITY expo_expression SUBTYPE OF ( arithmetic_expression ); END_ENTITY; ENTITY mult_expression SUBTYPE OF ( arithmetic_expression ); DERIVE SELF\binary_expression.op_string : STRING := '*'; END_ENTITY; ENTITY div_expression SUBTYPE OF ( arithmetic_expression ); DERIVE SELF\binary_expression.op_string : STRING := '/'; END_ENTITY; ENTITY real_div_expression SUBTYPE OF ( arithmetic_expression ); END_ENTITY; ENTITY mod_expression SUBTYPE OF ( arithmetic_expression ); END_ENTITY; ENTITY plus_expression SUBTYPE OF ( arithmetic_expression ); DERIVE SELF\binary_expression.op_string : STRING := '+'; END_ENTITY; ENTITY minus_expression SUBTYPE OF ( arithmetic_expression ); DERIVE SELF\binary_expression.op_string : STRING := '-'; END_ENTITY; ENTITY and_expression SUBTYPE OF ( logical_expression ); DERIVE SELF\binary_expression.op_string : STRING := 'AND'; END_ENTITY; ENTITY or_expression SUBTYPE OF ( logical_expression ); DERIVE SELF\binary_expression.op_string : STRING := 'OR'; END_ENTITY; ENTITY xor_expression SUBTYPE OF ( logical_expression ); END_ENTITY; ENTITY comparison_expression ABSTRACT SUPERTYPE SUBTYPE OF ( logical_expression ); END_ENTITY; ENTITY less_than_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; ENTITY greater_than_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; ENTITY equal_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; ENTITY less_equal_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; ENTITY greater_equal_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; ENTITY not_equal_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; ENTITY inst_comparison_expression ABSTRACT SUPERTYPE SUBTYPE OF ( comparison_expression ); END_ENTITY; ENTITY inst_equal_expression SUBTYPE OF ( inst_comparison_expression ); END_ENTITY; ENTITY inst_not_equal_expression SUBTYPE OF ( inst_comparison_expression ); END_ENTITY; ENTITY in_expression SUBTYPE OF ( logical_expression ); END_ENTITY; ENTITY like_expression SUBTYPE OF ( logical_expression ); END_ENTITY; ENTITY cardinality_expression SUBTYPE OF ( logical_expression ); card1 : expression; card2 : expression; END_ENTITY; ENTITY simple_unary_expression ABSTRACT SUPERTYPE SUBTYPE OF ( unary_expression ); expr : expression; END_ENTITY; ENTITY not_expression SUBTYPE OF ( simple_unary_expression ); END_ENTITY; ENTITY positive_expression SUBTYPE OF ( simple_unary_expression ); END_ENTITY; ENTITY negative_expression SUBTYPE OF ( simple_unary_expression ); END_ENTITY; ENTITY typed_expression SUBTYPE OF ( simple_unary_expression ); domain : named_type_reference; END_ENTITY; ENTITY enumeration_value SUBTYPE OF ( qualifier ); domain : defined_type_reference; element : STRING; END_ENTITY; ENTITY entity_instances_set SUBTYPE OF ( unary_expression ); entity_ref : entity_definition_reference; END_ENTITY; ENTITY qualified_expression SUBTYPE OF ( unary_expression ); head : expression; qualifiers : LIST OF qualifier; END_ENTITY; ENTITY literal ABSTRACT SUPERTYPE SUBTYPE OF ( unary_expression ); END_ENTITY; ENTITY identifier SUBTYPE OF ( unary_expression ); name : STRING; ref : dictionary_instance; parameters : OPTIONAL LIST OF expression; END_ENTITY; ENTITY attribute_identifier SUBTYPE OF ( identifier ); selfInstance : generic_instance; END_ENTITY; ENTITY self_identifier SUBTYPE OF ( unary_expression ); END_ENTITY; ENTITY uniqueness_rule_attribute_identifier SUBTYPE OF ( identifier ); group_ref_name : OPTIONAL STRING; SELF\identifier.ref : attribute; END_ENTITY; ENTITY missing_value SUBTYPE OF ( unary_expression ); END_ENTITY; ENTITY redefined_attribute_value SUBTYPE OF ( missing_value ); END_ENTITY; ENTITY implicitly_declared_identifier SUBTYPE OF ( identifier ); END_ENTITY; ENTITY interval SUBTYPE OF ( unary_expression ); expr : and_expression; END_ENTITY; ENTITY aggr_unary_expression ABSTRACT SUPERTYPE SUBTYPE OF ( unary_expression ); END_ENTITY; ENTITY query_variable SUBTYPE OF ( dictionary_instance ); variable_id : STRING; SELF\entity_instance.owner : query_expression; END_ENTITY; ENTITY query_expression SUBTYPE OF ( aggr_unary_expression ); variable : query_variable; aggregate_source : expression; such_that : expression; END_ENTITY; ENTITY entity_instance_constructor SUBTYPE OF ( unary_expression ); decl : entity_definition_reference; parameters : LIST OF expression; END_ENTITY; ENTITY qualifier ABSTRACT SUPERTYPE SUBTYPE OF ( unary_expression ); END_ENTITY; ENTITY attribute_qualifier SUBTYPE OF ( qualifier ); attribute_name : STRING; END_ENTITY; ENTITY group_qualifier SUBTYPE OF ( qualifier ); group_name : STRING; END_ENTITY; ENTITY index_qualifier SUBTYPE OF ( qualifier ); END_ENTITY; ENTITY element_qualifier SUBTYPE OF ( index_qualifier ); index : expression; END_ENTITY; ENTITY range_qualifier SUBTYPE OF ( index_qualifier ); index1 : expression; index2 : expression; END_ENTITY; ENTITY numeric_literal ABSTRACT SUPERTYPE SUBTYPE OF ( literal ); END_ENTITY; ENTITY logical_literal ABSTRACT SUPERTYPE SUBTYPE OF ( literal ); END_ENTITY; ENTITY true_constant SUBTYPE OF ( logical_literal ); END_ENTITY; ENTITY false_constant SUBTYPE OF ( logical_literal ); END_ENTITY; ENTITY unknown_constant SUBTYPE OF ( logical_literal ); END_ENTITY; ENTITY integer_literal SUBTYPE OF ( numeric_literal ); val : INTEGER; END_ENTITY; ENTITY real_literal SUBTYPE OF ( numeric_literal ); val : REAL; END_ENTITY; ENTITY pi_constant SUBTYPE OF ( real_literal ); DERIVE SELF\real_literal.val : REAL := 3.14159; END_ENTITY; ENTITY e_constant SUBTYPE OF ( real_literal ); DERIVE SELF\real_literal.val : REAL := 2.71828; END_ENTITY; ENTITY string_literal SUBTYPE OF ( literal ); val : STRING; END_ENTITY; ENTITY binary_literal SUBTYPE OF ( literal ); val : BINARY; END_ENTITY; ENTITY native_expression SUBTYPE OF ( expression ); source : native_algorithm; END_ENTITY; ENTITY escaped_expression SUBTYPE OF ( expression ); expr : expression; END_ENTITY; END_SCHEMA; SCHEMA Platypus_statements_schema; USE FROM Platypus_dictionary_schema; USE FROM Platypus_expressions_schema; ENTITY assignable SUBTYPE OF ( dictionary_instance ); head : identifier; qualifiers : LIST OF qualifier; END_ENTITY; ENTITY statement ABSTRACT SUPERTYPE SUBTYPE OF ( dictionary_instance ); END_ENTITY; ENTITY null_statement SUBTYPE OF ( statement ); END_ENTITY; ENTITY native_statement SUBTYPE OF ( statement ); source : native_algorithm; END_ENTITY; ENTITY alias_statement_variable SUBTYPE OF ( dictionary_instance ); alias_ident : STRING; ref : assignable; SELF\entity_instance.owner : alias_statement; END_ENTITY; ENTITY alias_statement SUBTYPE OF ( statement ); variable : alias_statement_variable; statements : LIST OF statement; END_ENTITY; ENTITY assignment_statement SUBTYPE OF ( statement ); left : assignable; right_expr : expression; END_ENTITY; ENTITY case_statement SUBTYPE OF ( statement ); selector : expression; case_actions : LIST OF case_action; case_otherwise : OPTIONAL statement; END_ENTITY; ENTITY case_action SUBTYPE OF ( dictionary_instance ); labels : LIST OF expression; action : statement; END_ENTITY; ENTITY compound_statement SUBTYPE OF ( statement ); statements : LIST OF statement; END_ENTITY; ENTITY escape_statement SUBTYPE OF ( statement ); END_ENTITY; ENTITY if_statement SUBTYPE OF ( statement ); selector : expression; then_statements : LIST OF statement; else_statements : OPTIONAL LIST OF statement; END_ENTITY; ENTITY repeat_statement SUBTYPE OF ( statement ); incr_control : OPTIONAL increment_control; until_control : OPTIONAL expression; while_control : OPTIONAL expression; statements : LIST OF statement; END_ENTITY; ENTITY increment_control_variable SUBTYPE OF ( dictionary_instance ); variable_id : STRING; SELF\entity_instance.owner : increment_control; END_ENTITY; ENTITY increment_control SUBTYPE OF ( dictionary_instance ); variable : increment_control_variable; first : expression; last : expression; step : OPTIONAL expression; SELF\entity_instance.owner : repeat_statement; END_ENTITY; ENTITY return_statement SUBTYPE OF ( statement ); returned : OPTIONAL expression; END_ENTITY; ENTITY procedure_call_statement SUBTYPE OF ( statement ); call : identifier; END_ENTITY; ENTITY skip_statement SUBTYPE OF ( statement ); END_ENTITY; ENTITY output_statement SUBTYPE OF ( statement ); output : expression; END_ENTITY; ENTITY splitmark_statement SUBTYPE OF ( statement ); filename : expression; END_ENTITY; ENTITY end_splitmark_statement SUBTYPE OF ( statement ); END_ENTITY; ENTITY anonymous_variable SUBTYPE OF ( dictionary_instance ); domain : parameter_type; END_ENTITY; END_SCHEMA; SCHEMA Platypus_aggregate_data_schema; USE FROM Platypus_population_schema; USE FROM Platypus_dictionary_schema; USE FROM Platypus_expressions_schema; ENTITY aggregate_data ABSTRACT SUPERTYPE OF ( ONEOF ( aggregate_instance, aggregate_initializer ) ) SUBTYPE OF ( expression ); END_ENTITY; ENTITY aggregate_initializer SUBTYPE OF ( aggregate_data ); contents : LIST OF aggregate_initializer_element; END_ENTITY; ENTITY aggregate_initializer_element SUBTYPE OF ( dictionary_instance ); SELF\entity_instance.owner : aggregate_initializer; val : primitive; repetition : OPTIONAL expression; END_ENTITY; ENTITY aggregate_instance ABSTRACT SUPERTYPE OF ( ONEOF ( array_instance, variable_size_aggregation_instance ) ) SUBTYPE OF ( aggregate_data ); lower_bound : integer_literal; upper_bound : integer_literal; END_ENTITY; ENTITY array_instance SUBTYPE OF ( aggregate_instance ); contents : LIST OF primitive; END_ENTITY; ENTITY variable_size_aggregation_instance ABSTRACT SUPERTYPE OF ( ONEOF ( set_instance, bag_instance, list_instance ) ) SUBTYPE OF ( aggregate_instance ); END_ENTITY; ENTITY list_instance SUBTYPE OF ( variable_size_aggregation_instance ); contents : LIST OF primitive; END_ENTITY; ENTITY bag_instance SUBTYPE OF ( variable_size_aggregation_instance ); contents : BAG OF primitive; END_ENTITY; ENTITY set_instance SUBTYPE OF ( variable_size_aggregation_instance ); contents : SET OF primitive; END_ENTITY; END_SCHEMA; SCHEMA Platypus_population_schema; USE FROM Platypus_expressions_schema; USE FROM Platypus_environment_schema; USE FROM Platypus_dictionary_schema; ENTITY instance_scope SUBTYPE OF ( session_instance ); owned : LIST [ 1 : ? ] OF entity_instance; export_list : LIST [ 0 : ? ] OF entity_instance; END_ENTITY; ENTITY application_instance ABSTRACT SUPERTYPE SUBTYPE OF ( entity_instance ); owning_model : model_contents; persistent_label : STRING; END_ENTITY; ENTITY generic_instance ABSTRACT SUPERTYPE SUBTYPE OF ( application_instance ); instance_scope : OPTIONAL instance_scope; END_ENTITY; ENTITY internal_representation SUBTYPE OF ( generic_instance ); definition : entity_definition_reference; parameters : LIST OF primitive; END_ENTITY; ENTITY external_representation SUBTYPE OF ( generic_instance ); records : LIST OF simple_record; END_ENTITY; ENTITY group_representation ABSTRACT SUPERTYPE SUBTYPE OF ( generic_instance ); definition : entity_definition_reference; instRef : generic_instance; END_ENTITY; ENTITY external_group_representation SUBTYPE OF ( group_representation ); END_ENTITY; ENTITY internal_group_representation SUBTYPE OF ( group_representation ); END_ENTITY; ENTITY user_defined_application_instance SUBTYPE OF ( application_instance ); name : STRING; parameters : LIST OF primitive; END_ENTITY; ENTITY simple_record SUBTYPE OF ( entity_instance ); definition : entity_definition_reference; parameters : LIST OF primitive; SELF\entity_instance.owner : generic_instance; END_ENTITY; ENTITY header_instance ABSTRACT SUPERTYPE SUBTYPE OF ( entity_instance ); owning_model : model_contents; END_ENTITY; ENTITY user_defined_header_instance SUBTYPE OF ( header_instance ); name : STRING; parameters : LIST OF primitive; END_ENTITY; ENTITY file_description SUBTYPE OF ( header_instance ); description : LIST [ 1 : ? ] OF STRING ( 256 ); implementation_level : STRING ( 256 ); END_ENTITY; ENTITY file_name SUBTYPE OF ( header_instance ); name : STRING ( 256 ); time_stamp : STRING ( 256 ); author : LIST [ 1 : ? ] OF STRING ( 256 ); organization : LIST [ 1 : ? ] OF STRING ( 256 ); preprocessor_version : STRING ( 256 ); originating_system : STRING ( 256 ); authorisation : STRING ( 256 ); END_ENTITY; ENTITY file_schema SUBTYPE OF ( header_instance ); schema_identifiers : LIST [ 1 : ? ] OF schema_name; END_ENTITY; END_SCHEMA; SCHEMA Platypus_environment_schema; USE FROM Platypus_population_schema; USE FROM Platypus_dictionary_schema; ENTITY model_contents SUBTYPE OF ( session_instance ); SELF\entity_instance.owner : schema_instance; INVERSE instances : SET [ 0 : ? ] OF application_instance FOR owning_model; END_ENTITY; ENTITY schema_instance SUBTYPE OF ( session_instance ); name : STRING; associated_models : LIST [ 0 : ? ] OF model_contents; schemata : LIST [ 0 : ? ] OF schema_definition; DERIVE accepted : entity_instance := SELF.accept_schema_instance; END_ENTITY; END_SCHEMA; SCHEMA Platypus_dictionary_schema; USE FROM Platypus_expressions_schema; USE FROM Platypus_statements_schema; USE FROM Platypus_population_schema; USE FROM Platypus_environment_schema; USE FROM Platypus_aggregate_data_schema; TYPE constructed_type = SELECT ( enumeration_type, select_type ); END_TYPE; TYPE type_or_rule = SELECT ( named_type, global_rule ); END_TYPE; TYPE base_type = SELECT ( simple_type, aggregation_type, named_type_reference ); END_TYPE; TYPE underlying_type = SELECT ( simple_type, aggregation_type, named_type_reference, constructed_type ); END_TYPE; TYPE parameter_type = SELECT ( simple_type, aggregate_type, aggregate_initializer_domain, named_type_reference ); END_TYPE; TYPE declaration = SELECT ( named_type, global_rule, constant_definition, procedure_declaration ); END_TYPE; TYPE time_stamp = STRING ( 256 ); END_TYPE; TYPE primitive = expression; END_TYPE; TYPE schema_name = STRING; END_TYPE; TYPE context_owner = SELECT ( context_definition, schema_instance ); END_TYPE; TYPE inter_schema_link = ENUMERATION OF ( used, referenced ); END_TYPE; ENTITY entity_instance ABSTRACT SUPERTYPE; owner : OPTIONAL entity_instance; END_ENTITY; ENTITY sdai_instance ABSTRACT SUPERTYPE OF ( ONEOF ( dictionary_instance, session_instance ) ) SUBTYPE OF ( entity_instance ); END_ENTITY; ENTITY dictionary_instance ABSTRACT SUPERTYPE SUBTYPE OF ( sdai_instance ); DERIVE handled : dictionary_instance := SELF; END_ENTITY; ENTITY session_instance ABSTRACT SUPERTYPE SUBTYPE OF ( sdai_instance ); change_date : OPTIONAL time_stamp; validation_date : time_stamp; validation_result : LOGICAL; END_ENTITY; ENTITY domain_equivalent_item SUBTYPE OF ( dictionary_instance ); name : STRING; external_item_id : STRING; native_item : declaration; END_ENTITY; ENTITY context_definition ABSTRACT SUPERTYPE OF ( ONEOF ( schema_definition, statements_container ) ) SUBTYPE OF ( dictionary_instance ); name : STRING; constants : LIST OF constant_definition; types : LIST OF defined_type; entities : LIST OF entity_definition; algorithmes : LIST OF algorithm_declaration; SELF\entity_instance.owner : OPTIONAL context_owner; END_ENTITY; ENTITY statements_container ABSTRACT SUPERTYPE SUBTYPE OF ( context_definition ); locals : LIST OF local_variable; statements : LIST OF statement; END_ENTITY; ENTITY global_rule SUBTYPE OF ( statements_container ); for_entities : LIST [ 1 : ? ] OF entity_instances_set; where_rules : LIST [ 1 : ? ] OF where_rule; SELF\context_definition.owner : schema_definition; DERIVE accepted : entity_instance := SELF.accept_global_rule; END_ENTITY; ENTITY external_schema SUBTYPE OF ( dictionary_instance ); name : schema_name; SELF\entity_instance.owner : schema_definition; END_ENTITY; ENTITY include_schema SUBTYPE OF ( external_schema ); native_schema : schema_definition; explicitly_imported_items : LIST OF domain_equivalent_item; implicitly_imported_items : LIST OF domain_equivalent_item; END_ENTITY; ENTITY used_schema SUBTYPE OF ( include_schema ); END_ENTITY; ENTITY referenced_schema SUBTYPE OF ( include_schema ); END_ENTITY; ENTITY external_meta_schema SUBTYPE OF ( external_schema ); END_ENTITY; ENTITY algorithm_declaration ABSTRACT SUPERTYPE SUBTYPE OF ( statements_container ); formal_parameters : LIST OF parameter_definition; END_ENTITY; ENTITY native_code SUBTYPE OF ( dictionary_instance ); language_signature : STRING; code : STRING; END_ENTITY; ENTITY native_algorithm SUBTYPE OF ( dictionary_instance ); implementations : LIST OF native_code; END_ENTITY; ENTITY procedure_declaration SUBTYPE OF ( algorithm_declaration ); DERIVE accepted : entity_instance := SELF.accept_procedure_declaration; END_ENTITY; ENTITY function_declaration SUBTYPE OF ( algorithm_declaration ); return_type : parameter_type; DERIVE accepted : entity_instance := SELF.accept_function_declaration; END_ENTITY; ENTITY bound ABSTRACT SUPERTYPE OF ( ONEOF ( integer_bound, population_dependent_bound ) ) SUBTYPE OF ( dictionary_instance ); END_ENTITY; ENTITY integer_bound SUBTYPE OF ( bound ); bound_value : INTEGER; END_ENTITY; ENTITY population_dependent_bound SUBTYPE OF ( bound ); bound_value : expression; END_ENTITY; ENTITY enumeration_type SUBTYPE OF ( dictionary_instance ); elements : LIST [ 1 : ? ] OF UNIQUE STRING; SELF\entity_instance.owner : defined_type; DERIVE accepted : entity_instance := SELF.accept_enumeration_type; END_ENTITY; ENTITY named_type ABSTRACT SUPERTYPE OF ( ONEOF ( entity_definition, defined_type ) ) SUBTYPE OF ( dictionary_instance ); name : STRING; where_rules : LIST [ 0 : ? ] OF where_rule; SELF\entity_instance.owner : context_definition; END_ENTITY; ENTITY dictionary_instance_reference SUBTYPE OF ( dictionary_instance ); ref : dictionary_instance; name : STRING; DERIVE SELF\dictionary_instance.handled : dictionary_instance := SELF.ref; END_ENTITY; ENTITY named_type_reference SUBTYPE OF ( dictionary_instance_reference ); SELF\dictionary_instance_reference.ref : named_type; DERIVE accepted : entity_instance := SELF.accept_named_type_reference; END_ENTITY; ENTITY attribute_reference SUBTYPE OF ( dictionary_instance_reference ); SELF\dictionary_instance_reference.ref : attribute; entity_ref : entity_definition_reference; DERIVE SELF\named_type_reference.accepted : entity_instance := SELF.accept_attribute_reference; END_ENTITY; ENTITY entity_definition_reference SUBTYPE OF ( named_type_reference ); SELF\named_type_reference.ref : entity_definition; DERIVE SELF\named_type_reference.accepted : entity_instance := SELF.accept_entity_definition_reference; END_ENTITY; ENTITY defined_type_reference SUBTYPE OF ( named_type_reference ); SELF\named_type_reference.ref : defined_type; DERIVE SELF\named_type_reference.accepted : entity_instance := SELF.accept_defined_type_reference; END_ENTITY; ENTITY where_rule SUBTYPE OF ( dictionary_instance ); label : OPTIONAL STRING; SELF\entity_instance.owner : type_or_rule; where_value : expression; END_ENTITY; ENTITY select_type SUBTYPE OF ( dictionary_instance ); selections : LIST [ 1 : ? ] OF named_type_reference; SELF\entity_instance.owner : defined_type; DERIVE accepted : entity_instance := SELF.accept_select_type; END_ENTITY; ENTITY defined_type SUBTYPE OF ( named_type ); domain : underlying_type; DERIVE accepted : entity_instance := SELF.accept_defined_type; END_ENTITY; ENTITY entity_definition SUBTYPE OF ( named_type ); supertype_constraint : OPTIONAL supertype_constraint; supertypes : LIST OF UNIQUE entity_definition_reference; attributes : LIST OF UNIQUE attribute; uniqueness_rules : LIST OF UNIQUE uniqueness_rule; complex : BOOLEAN; instantiable : BOOLEAN; independent : BOOLEAN; DERIVE accepted : entity_instance := SELF.accept_entity_definition; END_ENTITY; ENTITY supertype_constraint SUBTYPE OF ( dictionary_instance ); constrained : entity_definition_reference; expr : OPTIONAL supertype_expression; END_ENTITY; ENTITY supertype_expression ABSTRACT SUPERTYPE OF ( ONEOF ( sub_entity_ref_expression, binary_supertype_expression, oneof_supertype_expression ) ) SUBTYPE OF ( dictionary_instance ); END_ENTITY; ENTITY sub_entity_ref_expression SUBTYPE OF ( supertype_expression ); entity_ref : entity_definition_reference; END_ENTITY; ENTITY binary_supertype_expression SUBTYPE OF ( supertype_expression ); parenthesis : OPTIONAL BOOLEAN; left_expr : supertype_expression; right_expr : supertype_expression; END_ENTITY; ENTITY andor_supertype SUBTYPE OF ( binary_supertype_expression ); END_ENTITY; ENTITY and_supertype SUBTYPE OF ( binary_supertype_expression ); END_ENTITY; ENTITY oneof_supertype_expression SUBTYPE OF ( supertype_expression ); expr_list : LIST OF supertype_expression; END_ENTITY; ENTITY uniqueness_rule SUBTYPE OF ( dictionary_instance ); label : OPTIONAL STRING; attributes : LIST [ 1 : ? ] OF UNIQUE uniqueness_rule_attribute_identifier; SELF\entity_instance.owner : entity_definition; END_ENTITY; ENTITY attribute ABSTRACT SUPERTYPE OF ( ONEOF ( derived_attribute, explicit_attribute, inverse_attribute ) ) SUBTYPE OF ( dictionary_instance ); name : STRING; SELF\entity_instance.owner : entity_definition; domain : base_type; redeclaring : OPTIONAL attribute_reference; END_ENTITY; ENTITY aggregate_initializer_domain SUBTYPE OF ( dictionary_instance ); types : LIST [ 1 : ? ] OF parameter_type; END_ENTITY; ENTITY aggregate_type ABSTRACT SUPERTYPE OF ( ONEOF ( aggregation_type, general_aggregate_type ) ) SUBTYPE OF ( dictionary_instance ); element_type : parameter_type; END_ENTITY; ENTITY general_aggregate_type SUBTYPE OF ( aggregate_type ); type_label : OPTIONAL STRING; END_ENTITY; ENTITY aggregation_type ABSTRACT SUPERTYPE OF ( ONEOF ( variable_size_aggregation_type, array_type ) ) SUBTYPE OF ( aggregate_type ); lower_bound : OPTIONAL bound; upper_bound : OPTIONAL bound; is_general_type : BOOLEAN; END_ENTITY; ENTITY array_type SUBTYPE OF ( aggregation_type ); unique_flag : BOOLEAN; optional_flag : BOOLEAN; SELF\aggregation_type.lower_bound : bound; SELF\aggregation_type.upper_bound : bound; DERIVE accepted : entity_instance := SELF.accept_array_type; END_ENTITY; ENTITY variable_size_aggregation_type ABSTRACT SUPERTYPE OF ( ONEOF ( set_type, bag_type, list_type ) ) SUBTYPE OF ( aggregation_type ); END_ENTITY; ENTITY list_type SUBTYPE OF ( variable_size_aggregation_type ); unique_flag : BOOLEAN; DERIVE accepted : entity_instance := SELF.accept_list_type; END_ENTITY; ENTITY bag_type SUBTYPE OF ( variable_size_aggregation_type ); DERIVE accepted : entity_instance := SELF.accept_bag_type; END_ENTITY; ENTITY set_type SUBTYPE OF ( variable_size_aggregation_type ); DERIVE accepted : entity_instance := SELF.accept_set_type; END_ENTITY; ENTITY simple_type ABSTRACT SUPERTYPE OF ( ONEOF ( string_type, binary_type, logical_type, number_type ) ) SUBTYPE OF ( dictionary_instance ); END_ENTITY; ENTITY string_type SUBTYPE OF ( simple_type ); width : OPTIONAL bound; fixed_width : BOOLEAN; DERIVE accepted : entity_instance := SELF.accept_string_type; END_ENTITY; ENTITY binary_type SUBTYPE OF ( simple_type ); width : OPTIONAL bound; fixed_width : BOOLEAN; DERIVE accepted : entity_instance := SELF.accept_binary_type; END_ENTITY; ENTITY number_type SUBTYPE OF ( simple_type ); DERIVE accepted : entity_instance := SELF.accept_number_type; END_ENTITY; ENTITY real_type SUBTYPE OF ( number_type ); precision : OPTIONAL bound; DERIVE SELF\number_type.accepted : entity_instance := SELF.accept_real_type; END_ENTITY; ENTITY integer_type SUBTYPE OF ( number_type ); precision : OPTIONAL bound; DERIVE SELF\number_type.accepted : entity_instance := SELF.accept_integer_type; END_ENTITY; ENTITY logical_type SUBTYPE OF ( simple_type ); DERIVE accepted : entity_instance := SELF.accept_logical_type; END_ENTITY; ENTITY boolean_type SUBTYPE OF ( logical_type ); DERIVE SELF\logical_type.accepted : entity_instance := SELF.accept_boolean_type; END_ENTITY; ENTITY constant_definition SUBTYPE OF ( dictionary_instance ); name : STRING; domain : base_type; initializer : expression; SELF\entity_instance.owner : context_definition; END_ENTITY; ENTITY local_variable SUBTYPE OF ( dictionary_instance ); SELF\entity_instance.owner : statements_container; name : STRING; domain : parameter_type; initializer : OPTIONAL expression; END_ENTITY; ENTITY parameter_definition SUBTYPE OF ( dictionary_instance ); SELF\entity_instance.owner : algorithm_declaration; name : STRING; by_copy : BOOLEAN; domain : parameter_type; END_ENTITY; ENTITY generic_type SUBTYPE OF ( dictionary_instance ); type_label : OPTIONAL STRING; DERIVE accepted : entity_instance := SELF.accept_generic_type; END_ENTITY; ENTITY remark ABSTRACT SUPERTYPE OF ( ONEOF ( tail_remark, embedded_remark ) ) SUBTYPE OF ( entity_instance ); text : STRING; END_ENTITY; ENTITY tail_remark SUBTYPE OF ( remark ); END_ENTITY; ENTITY embedded_remark SUBTYPE OF ( remark ); END_ENTITY; ENTITY remark_reference SUBTYPE OF ( dictionary_instance ); prefix : STRING; suffix : OPTIONAL STRING; inside : dictionary_instance_reference; referenced : dictionary_instance_reference; remark : remark; END_ENTITY; ENTITY meta_concept_definition SUBTYPE OF ( dictionary_instance ); definition : dictionary_instance; expression : STRING; END_ENTITY; ENTITY derived_attribute SUBTYPE OF ( attribute ); assign : expression; DERIVE accepted : entity_instance := SELF.accept_derived_attribute; END_ENTITY; ENTITY explicit_attribute SUBTYPE OF ( attribute ); optional_flag : BOOLEAN; DERIVE accepted : entity_instance := SELF.accept_explicit_attribute; END_ENTITY; ENTITY inverse_attribute SUBTYPE OF ( attribute ); inverted_attr : attribute_reference; min_cardinality : OPTIONAL bound; max_cardinality : OPTIONAL bound; duplicates : BOOLEAN; DERIVE SELF\attribute.domain : entity_definition_reference := inverted_attr.entity_ref; accepted : entity_instance := SELF.accept_inverse_attribute; END_ENTITY; ENTITY meta_mapping_rule SUBTYPE OF ( dictionary_instance ); condition : STRING; expression : STRING; END_ENTITY; ENTITY meta_mapping_definition SUBTYPE OF ( dictionary_instance ); definition : dictionary_instance; expression : STRING; END_ENTITY; ENTITY schema_definition SUBTYPE OF ( context_definition ); global_rules : LIST OF global_rule; interface : LIST OF external_schema; remark_references : LIST OF remark_reference; DERIVE accepted : entity_instance := SELF.accept_schema_definition; END_ENTITY; END_SCHEMA; </ISO10303-11-EXPRESS> Platypus.PltPlatypusMetaSchemasSchemaInstance platypus-generated-accessing namesBuilderClassName ^ #PlatypusNamesBuilder Platypus.PltPlatypusMetaSchemasSchemaInstance platypus-generated-accessing namesBuilder | namesBuilder | namesBuilder := self namesBuilderClass new. namesBuilder classPrefix: #Plt. namesBuilder systemCategoryPrefix: #Platypus. namesBuilder rootClassName: #PltEntityInstance. namesBuilder rootClassSystemCategory: #'Platypus-PlatypusDictionarySchemaSchema'. ^ namesBuilder Platypus.PltPlatypusMetaSchemasSchemaInstance platypus-generated-schemata-accessing schemaDefinition1 ^ #( #'Platypus_expressions_schema' #PltPlatypusExpressionsSchemaSchemaDefinition ) Platypus.PltPlatypusMetaSchemasSchemaInstance platypus-generated-schemata-accessing schemaDefinition2 ^ #( #'Platypus_statements_schema' #PltPlatypusStatementsSchemaSchemaDefinition ) Platypus.PltPlatypusMetaSchemasSchemaInstance platypus-generated-schemata-accessing schemaDefinition3 ^ #( #'Platypus_aggregate_data_schema' #PltPlatypusAggregateDataSchemaSchemaDefinition ) Platypus.PltPlatypusMetaSchemasSchemaInstance platypus-generated-schemata-accessing schemaDefinition4 ^ #( #'Platypus_population_schema' #PltPlatypusPopulationSchemaSchemaDefinition ) Platypus.PltPlatypusMetaSchemasSchemaInstance platypus-generated-schemata-accessing schemaDefinition5 ^ #( #'Platypus_environment_schema' #PltPlatypusEnvironmentSchemaSchemaDefinition ) Platypus.PltPlatypusMetaSchemasSchemaInstance platypus-generated-schemata-accessing schemaDefinition6 ^ #( #'Platypus_dictionary_schema' #PltPlatypusDictionarySchemaSchemaDefinition ) Platypus.PltPlatypusMetaSchemasSchemaInstance platypus-generated-schemata-accessing schemaDefinitionCount ^ 6 Platypus.PltPlatypusMetaSchemasSchemaInstance platypus-generated-context-accessing context ^context Platypus.PltPlatypusMetaSchemasSchemaInstance platypus-generated-context-accessing context: aContext context := aContext. super context: aContext PltPlatypusMetaSchemasRepository Platypus Platypus.PlatypusCoreRepository false none Platypus-PlatypusMetaSchemasSchemaInstance Platypus Platypus.PltPlatypusMetaSchemasRepository class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltPlatypusMetaSchemasRepository class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltPlatypusMetaSchemasRepository class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltPlatypusMetaSchemasSchemaInstance platypus-generated-accessing repositoryClassName ^ #PltPlatypusMetaSchemasRepository Platypus.PltPlatypusMetaSchemasRepository class platypus-generated-accessing generatedMetaDataSchemaInstanceName ^ #PltPlatypusMetaSchemasSchemaInstance Platypus.PltPlatypusMetaSchemasSchemaInstance platypus-generated-accessing externalSchemaInstanceClassNames ^ #() PlatypusAbstractVisitor Platypus Platypus.PlatypusCoreAbstractVisitor false none Platypus-PlatypusMetaSchemasSchemaInstance Platypus Platypus.PlatypusAbstractVisitor class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PlatypusAbstractVisitor class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PlatypusAbstractVisitor class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltPlatypusMetaSchemasSchemaInstance class platypus-generated-initializing initialize PlatypusPharoSmalltalk initialize. self reinitializeSingleton. self singleton buildIndexes. PltPlatypusExpressionsSchemaSchemaDefinition Platypus Platypus.PlatypusCoreSchema false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltPlatypusExpressionsSchemaSchemaDefinition class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltPlatypusExpressionsSchemaSchemaDefinition class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltPlatypusExpressionsSchemaSchemaDefinition class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltPlatypusExpressionsSchemaSchemaDefinition <ISO10303-11-EXPRESS> SCHEMA Platypus_expressions_schema; USE FROM Platypus_dictionary_schema; USE FROM Platypus_statements_schema; USE FROM Platypus_population_schema; ENTITY expression ABSTRACT SUPERTYPE SUBTYPE OF ( dictionary_instance ); END_ENTITY; ENTITY unary_expression ABSTRACT SUPERTYPE SUBTYPE OF ( expression ); END_ENTITY; ENTITY binary_expression ABSTRACT SUPERTYPE SUBTYPE OF ( expression ); parenthesis : OPTIONAL BOOLEAN; left_expr : expression; right_expr : expression; DERIVE op_string : STRING := ?; END_ENTITY; ENTITY logical_expression ABSTRACT SUPERTYPE SUBTYPE OF ( binary_expression ); END_ENTITY; ENTITY entity_instance_reference SUBTYPE OF ( expression ); persistent_label : STRING; ref : entity_instance; END_ENTITY; ENTITY instance_construction_expression SUBTYPE OF ( binary_expression ); END_ENTITY; ENTITY arithmetic_expression ABSTRACT SUPERTYPE SUBTYPE OF ( binary_expression ); END_ENTITY; ENTITY expo_expression SUBTYPE OF ( arithmetic_expression ); END_ENTITY; ENTITY mult_expression SUBTYPE OF ( arithmetic_expression ); DERIVE SELF\binary_expression.op_string : STRING := '*'; END_ENTITY; ENTITY div_expression SUBTYPE OF ( arithmetic_expression ); DERIVE SELF\binary_expression.op_string : STRING := '/'; END_ENTITY; ENTITY real_div_expression SUBTYPE OF ( arithmetic_expression ); END_ENTITY; ENTITY mod_expression SUBTYPE OF ( arithmetic_expression ); END_ENTITY; ENTITY plus_expression SUBTYPE OF ( arithmetic_expression ); DERIVE SELF\binary_expression.op_string : STRING := '+'; END_ENTITY; ENTITY minus_expression SUBTYPE OF ( arithmetic_expression ); DERIVE SELF\binary_expression.op_string : STRING := '-'; END_ENTITY; ENTITY and_expression SUBTYPE OF ( logical_expression ); DERIVE SELF\binary_expression.op_string : STRING := 'AND'; END_ENTITY; ENTITY or_expression SUBTYPE OF ( logical_expression ); DERIVE SELF\binary_expression.op_string : STRING := 'OR'; END_ENTITY; ENTITY xor_expression SUBTYPE OF ( logical_expression ); END_ENTITY; ENTITY comparison_expression ABSTRACT SUPERTYPE SUBTYPE OF ( logical_expression ); END_ENTITY; ENTITY less_than_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; ENTITY greater_than_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; ENTITY equal_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; ENTITY less_equal_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; ENTITY greater_equal_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; ENTITY not_equal_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; ENTITY inst_comparison_expression ABSTRACT SUPERTYPE SUBTYPE OF ( comparison_expression ); END_ENTITY; ENTITY inst_equal_expression SUBTYPE OF ( inst_comparison_expression ); END_ENTITY; ENTITY inst_not_equal_expression SUBTYPE OF ( inst_comparison_expression ); END_ENTITY; ENTITY in_expression SUBTYPE OF ( logical_expression ); END_ENTITY; ENTITY like_expression SUBTYPE OF ( logical_expression ); END_ENTITY; ENTITY cardinality_expression SUBTYPE OF ( logical_expression ); card1 : expression; card2 : expression; END_ENTITY; ENTITY simple_unary_expression ABSTRACT SUPERTYPE SUBTYPE OF ( unary_expression ); expr : expression; END_ENTITY; ENTITY not_expression SUBTYPE OF ( simple_unary_expression ); END_ENTITY; ENTITY positive_expression SUBTYPE OF ( simple_unary_expression ); END_ENTITY; ENTITY negative_expression SUBTYPE OF ( simple_unary_expression ); END_ENTITY; ENTITY typed_expression SUBTYPE OF ( simple_unary_expression ); domain : named_type_reference; END_ENTITY; ENTITY enumeration_value SUBTYPE OF ( qualifier ); domain : defined_type_reference; element : STRING; END_ENTITY; ENTITY entity_instances_set SUBTYPE OF ( unary_expression ); entity_ref : entity_definition_reference; END_ENTITY; ENTITY qualified_expression SUBTYPE OF ( unary_expression ); head : expression; qualifiers : LIST OF qualifier; END_ENTITY; ENTITY literal ABSTRACT SUPERTYPE SUBTYPE OF ( unary_expression ); END_ENTITY; ENTITY identifier SUBTYPE OF ( unary_expression ); name : STRING; ref : dictionary_instance; parameters : OPTIONAL LIST OF expression; END_ENTITY; ENTITY attribute_identifier SUBTYPE OF ( identifier ); selfInstance : generic_instance; END_ENTITY; ENTITY self_identifier SUBTYPE OF ( unary_expression ); END_ENTITY; ENTITY uniqueness_rule_attribute_identifier SUBTYPE OF ( identifier ); group_ref_name : OPTIONAL STRING; SELF\identifier.ref : attribute; END_ENTITY; ENTITY missing_value SUBTYPE OF ( unary_expression ); END_ENTITY; ENTITY redefined_attribute_value SUBTYPE OF ( missing_value ); END_ENTITY; ENTITY implicitly_declared_identifier SUBTYPE OF ( identifier ); END_ENTITY; ENTITY interval SUBTYPE OF ( unary_expression ); expr : and_expression; END_ENTITY; ENTITY aggr_unary_expression ABSTRACT SUPERTYPE SUBTYPE OF ( unary_expression ); END_ENTITY; ENTITY query_variable SUBTYPE OF ( dictionary_instance ); variable_id : STRING; SELF\entity_instance.owner : query_expression; END_ENTITY; ENTITY query_expression SUBTYPE OF ( aggr_unary_expression ); variable : query_variable; aggregate_source : expression; such_that : expression; END_ENTITY; ENTITY entity_instance_constructor SUBTYPE OF ( unary_expression ); decl : entity_definition_reference; parameters : LIST OF expression; END_ENTITY; ENTITY qualifier ABSTRACT SUPERTYPE SUBTYPE OF ( unary_expression ); END_ENTITY; ENTITY attribute_qualifier SUBTYPE OF ( qualifier ); attribute_name : STRING; END_ENTITY; ENTITY group_qualifier SUBTYPE OF ( qualifier ); group_name : STRING; END_ENTITY; ENTITY index_qualifier SUBTYPE OF ( qualifier ); END_ENTITY; ENTITY element_qualifier SUBTYPE OF ( index_qualifier ); index : expression; END_ENTITY; ENTITY range_qualifier SUBTYPE OF ( index_qualifier ); index1 : expression; index2 : expression; END_ENTITY; ENTITY numeric_literal ABSTRACT SUPERTYPE SUBTYPE OF ( literal ); END_ENTITY; ENTITY logical_literal ABSTRACT SUPERTYPE SUBTYPE OF ( literal ); END_ENTITY; ENTITY true_constant SUBTYPE OF ( logical_literal ); END_ENTITY; ENTITY false_constant SUBTYPE OF ( logical_literal ); END_ENTITY; ENTITY unknown_constant SUBTYPE OF ( logical_literal ); END_ENTITY; ENTITY integer_literal SUBTYPE OF ( numeric_literal ); val : INTEGER; END_ENTITY; ENTITY real_literal SUBTYPE OF ( numeric_literal ); val : REAL; END_ENTITY; ENTITY pi_constant SUBTYPE OF ( real_literal ); DERIVE SELF\real_literal.val : REAL := 3.14159; END_ENTITY; ENTITY e_constant SUBTYPE OF ( real_literal ); DERIVE SELF\real_literal.val : REAL := 2.71828; END_ENTITY; ENTITY string_literal SUBTYPE OF ( literal ); val : STRING; END_ENTITY; ENTITY binary_literal SUBTYPE OF ( literal ); val : BINARY; END_ENTITY; ENTITY native_expression SUBTYPE OF ( expression ); source : native_algorithm; END_ENTITY; ENTITY escaped_expression SUBTYPE OF ( expression ); expr : expression; END_ENTITY; END_SCHEMA; </ISO10303-11-EXPRESS> Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-meta-data-accessing schemaInstanceClassName ^ #PltPlatypusMetaSchemasSchemaInstance Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-context-accessing context ^ self schemaInstance context Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition1^ #( #'expression' #PltExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition2^ #( #'unary_expression' #PltUnaryExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition3^ #( #'binary_expression' #PltBinaryExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition4^ #( #'logical_expression' #PltLogicalExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition5^ #( #'entity_instance_reference' #PltEntityInstanceReference ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition6^ #( #'instance_construction_expression' #PltInstanceConstructionExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition7^ #( #'arithmetic_expression' #PltArithmeticExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition8^ #( #'expo_expression' #PltExpoExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition9^ #( #'mult_expression' #PltMultExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition10^ #( #'div_expression' #PltDivExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition11^ #( #'real_div_expression' #PltRealDivExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition12^ #( #'mod_expression' #PltModExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition13^ #( #'plus_expression' #PltPlusExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition14^ #( #'minus_expression' #PltMinusExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition15^ #( #'and_expression' #PltAndExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition16^ #( #'or_expression' #PltOrExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition17^ #( #'xor_expression' #PltXorExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition18^ #( #'comparison_expression' #PltComparisonExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition19^ #( #'less_than_expression' #PltLessThanExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition20^ #( #'greater_than_expression' #PltGreaterThanExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition21^ #( #'equal_expression' #PltEqualExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition22^ #( #'less_equal_expression' #PltLessEqualExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition23^ #( #'greater_equal_expression' #PltGreaterEqualExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition24^ #( #'not_equal_expression' #PltNotEqualExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition25^ #( #'inst_comparison_expression' #PltInstComparisonExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition26^ #( #'inst_equal_expression' #PltInstEqualExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition27^ #( #'inst_not_equal_expression' #PltInstNotEqualExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition28^ #( #'in_expression' #PltInExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition29^ #( #'like_expression' #PltLikeExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition30^ #( #'cardinality_expression' #PltCardinalityExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition31^ #( #'simple_unary_expression' #PltSimpleUnaryExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition32^ #( #'not_expression' #PltNotExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition33^ #( #'positive_expression' #PltPositiveExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition34^ #( #'negative_expression' #PltNegativeExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition35^ #( #'typed_expression' #PltTypedExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition36^ #( #'enumeration_value' #PltEnumerationValue ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition37^ #( #'entity_instances_set' #PltEntityInstancesSet ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition38^ #( #'qualified_expression' #PltQualifiedExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition39^ #( #'literal' #PltLiteral ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition40^ #( #'identifier' #PltIdentifier ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition41^ #( #'attribute_identifier' #PltAttributeIdentifier ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition42^ #( #'self_identifier' #PltSelfIdentifier ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition43^ #( #'uniqueness_rule_attribute_identifier' #PltUniquenessRuleAttributeIdentifier ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition44^ #( #'missing_value' #PltMissingValue ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition45^ #( #'redefined_attribute_value' #PltRedefinedAttributeValue ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition46^ #( #'implicitly_declared_identifier' #PltImplicitlyDeclaredIdentifier ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition47^ #( #'interval' #PltInterval ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition48^ #( #'aggr_unary_expression' #PltAggrUnaryExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition49^ #( #'query_variable' #PltQueryVariable ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition50^ #( #'query_expression' #PltQueryExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition51^ #( #'entity_instance_constructor' #PltEntityInstanceConstructor ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition52^ #( #'qualifier' #PltQualifier ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition53^ #( #'attribute_qualifier' #PltAttributeQualifier ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition54^ #( #'group_qualifier' #PltGroupQualifier ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition55^ #( #'index_qualifier' #PltIndexQualifier ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition56^ #( #'element_qualifier' #PltElementQualifier ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition57^ #( #'range_qualifier' #PltRangeQualifier ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition58^ #( #'numeric_literal' #PltNumericLiteral ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition59^ #( #'logical_literal' #PltLogicalLiteral ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition60^ #( #'true_constant' #PltTrueConstant ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition61^ #( #'false_constant' #PltFalseConstant ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition62^ #( #'unknown_constant' #PltUnknownConstant ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition63^ #( #'integer_literal' #PltIntegerLiteral ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition64^ #( #'real_literal' #PltRealLiteral ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition65^ #( #'pi_constant' #PltPiConstant ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition66^ #( #'e_constant' #PltEConstant ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition67^ #( #'string_literal' #PltStringLiteral ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition68^ #( #'binary_literal' #PltBinaryLiteral ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition69^ #( #'native_expression' #PltNativeExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinition70^ #( #'escaped_expression' #PltEscapedExpression ) Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-entities entityDefinitionCount ^ 70 Platypus.PltPlatypusExpressionsSchemaSchemaDefinition platypus-generated-functions functionDeclarationCount ^ 0 Platypus-PlatypusDictionarySchemaSchema Smalltalk false private Smalltalk.* Refactory.SmaCC.* Platypus.* Platypus-PlatypusDictionarySchemaSchema Platypus-PlatypusDictionarySchemaSchema PltEntityInstance Platypus-PlatypusDictionarySchemaSchema Object false none Platypus-PlatypusDictionarySchemaSchema Platypus-PlatypusDictionarySchemaSchema Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus-PlatypusDictionarySchemaSchema' Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-meta-data-accessing platypusMetaData ^ self schemaDefinition metaDataFor: self name asSymbol Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-meta-data-accessing platypusMetaData ^ self class platypusMetaData Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-context-accessing context ^ self schemaDefinition context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltEntityInstance Platypus Object false none owner Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltEntityInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltEntityInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltEntityInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltEntityInstance <ISO10303-11-EXPRESS> ENTITY entity_instance ABSTRACT SUPERTYPE; owner : OPTIONAL entity_instance; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltEntityInstance platypus-generated-initializing stepInitialize super stepInitialize. owner := nil. Platypus.PltEntityInstance platypus-generated-classifying isPltEntityInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltEntityInstance ^ false Platypus.PltEntityInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptEntityInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptEntityInstance: e "my subclasses have to redefine it" Platypus.PltEntityInstance platypus-generated-copying entityInstanceCopyTo:another another fastSetOwner: (self owner). Platypus.PltEntityInstance platypus-generated-copying pltLocalCopyTo: another self entityInstanceCopyTo:another Platypus.PltEntityInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self entityInstanceCopyTo: another. Platypus.PltEntityInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltEntityInstance platypus-generated-group-accessing entityInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setOwner:valuesloc removeFirst. ^ valuesloc Platypus.PltEntityInstance platypus-generated-group-accessing entityInstanceToValues:values values add: (self owner). ^ values Platypus.PltEntityInstance platypus-generated-group-accessing toValues:values ^ self entityInstanceToValues: (super toValues: values) Platypus.PltEntityInstance platypus-generated-group-accessing fromValues:values ^ self entityInstanceFromValues: (super fromValues: values) Platypus.PltEntityInstance platypus-generated-group-accessing localFromValues: values ^ self entityInstanceFromValues:values Platypus.PltEntityInstance platypus-generated-group-accessing localToValues: values ^ self entityInstanceToValues:values Platypus.PltEntityInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltEntityInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltEntityInstance platypus-generated-accessing owner ^owner Platypus.PltEntityInstance platypus-generated-set-accessing setOwner:aPltEntityInstance self owner:aPltEntityInstance Platypus.PltEntityInstance platypus-generated-accessing owner:aPltEntityInstance owner := aPltEntityInstance Platypus.PltEntityInstance platypus-generated-fast-set-accessing fastSetOwner:aPltEntityInstance owner := aPltEntityInstance Platypus.PltEntityInstance platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner PltSdaiInstance Platypus Platypus.PltEntityInstance false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltSdaiInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSdaiInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSdaiInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSdaiInstance <ISO10303-11-EXPRESS> ENTITY sdai_instance ABSTRACT SUPERTYPE OF ( ONEOF ( dictionary_instance, session_instance ) ) SUBTYPE OF ( entity_instance ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSdaiInstance platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltSdaiInstance platypus-generated-classifying isPltSdaiInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltSdaiInstance ^ false Platypus.PltSdaiInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSdaiInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptSdaiInstance: e "my subclasses have to redefine it" Platypus.PltSdaiInstance platypus-generated-copying sdaiInstanceCopyTo:another Platypus.PltSdaiInstance platypus-generated-copying pltLocalCopyTo: another self sdaiInstanceCopyTo:another Platypus.PltSdaiInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self sdaiInstanceCopyTo: another. Platypus.PltSdaiInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSdaiInstance platypus-generated-group-accessing sdaiInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltSdaiInstance platypus-generated-group-accessing sdaiInstanceToValues:values ^ values Platypus.PltSdaiInstance platypus-generated-group-accessing toValues:values ^ self sdaiInstanceToValues: (super toValues: values) Platypus.PltSdaiInstance platypus-generated-group-accessing fromValues:values ^ self sdaiInstanceFromValues: (super fromValues: values) Platypus.PltSdaiInstance platypus-generated-group-accessing localFromValues: values ^ self sdaiInstanceFromValues:values Platypus.PltSdaiInstance platypus-generated-group-accessing localToValues: values ^ self sdaiInstanceToValues:values Platypus.PltSdaiInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltSdaiInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton PltDictionaryInstance Platypus Platypus.PltSdaiInstance false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltDictionaryInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltDictionaryInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltDictionaryInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltDictionaryInstance <ISO10303-11-EXPRESS> ENTITY dictionary_instance ABSTRACT SUPERTYPE SUBTYPE OF ( sdai_instance ); DERIVE handled : dictionary_instance := SELF; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltDictionaryInstance platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltDictionaryInstance platypus-generated-classifying isPltDictionaryInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltDictionaryInstance ^ false Platypus.PltDictionaryInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptDictionaryInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptDictionaryInstance: e "my subclasses have to redefine it" Platypus.PltDictionaryInstance platypus-generated-copying dictionaryInstanceCopyTo:another Platypus.PltDictionaryInstance platypus-generated-copying pltLocalCopyTo: another self dictionaryInstanceCopyTo:another Platypus.PltDictionaryInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self dictionaryInstanceCopyTo: another. Platypus.PltDictionaryInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltDictionaryInstance platypus-generated-group-accessing dictionaryInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltDictionaryInstance platypus-generated-group-accessing dictionaryInstanceToValues:values ^ values Platypus.PltDictionaryInstance platypus-generated-group-accessing toValues:values ^ self dictionaryInstanceToValues: (super toValues: values) Platypus.PltDictionaryInstance platypus-generated-group-accessing fromValues:values ^ self dictionaryInstanceFromValues: (super fromValues: values) Platypus.PltDictionaryInstance platypus-generated-group-accessing localFromValues: values ^ self dictionaryInstanceFromValues:values Platypus.PltDictionaryInstance platypus-generated-group-accessing localToValues: values ^ self dictionaryInstanceToValues:values Platypus.PltDictionaryInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltDictionaryInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltDictionaryInstance platypus-generated-deriving handledUsingContext:aContext ^ self handledUsingContext: aContext receiver: self Platypus.PltDictionaryInstance platypus-generated-deriving handledUsingContext: aContext receiver: aReceiver ^aReceiver Platypus.PltDictionaryInstance platypus-generated-deriving handled ^ self handledUsingContext: self class context PltExpression Platypus Platypus.PltDictionaryInstance false none cachedDomain Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltExpression <ISO10303-11-EXPRESS> ENTITY expression ABSTRACT SUPERTYPE SUBTYPE OF ( dictionary_instance ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltExpression platypus-generated-classifying isPltExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltExpression ^ false Platypus.PltExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptExpression: e "my subclasses have to redefine it" Platypus.PltExpression platypus-generated-copying expressionCopyTo:another Platypus.PltExpression platypus-generated-copying pltLocalCopyTo: another self expressionCopyTo:another Platypus.PltExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self expressionCopyTo: another. Platypus.PltExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltExpression platypus-generated-group-accessing expressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltExpression platypus-generated-group-accessing expressionToValues:values ^ values Platypus.PltExpression platypus-generated-group-accessing toValues:values ^ self expressionToValues: (super toValues: values) Platypus.PltExpression platypus-generated-group-accessing fromValues:values ^ self expressionFromValues: (super fromValues: values) Platypus.PltExpression platypus-generated-group-accessing localFromValues: values ^ self expressionFromValues:values Platypus.PltExpression platypus-generated-group-accessing localToValues: values ^ self expressionToValues:values Platypus.PltExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltUnaryExpression Platypus Platypus.PltExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltUnaryExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltUnaryExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltUnaryExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltUnaryExpression <ISO10303-11-EXPRESS> ENTITY unary_expression ABSTRACT SUPERTYPE SUBTYPE OF ( expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltUnaryExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltUnaryExpression platypus-generated-classifying isPltUnaryExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltUnaryExpression ^ false Platypus.PltUnaryExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptUnaryExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptUnaryExpression: e "my subclasses have to redefine it" Platypus.PltUnaryExpression platypus-generated-copying unaryExpressionCopyTo:another Platypus.PltUnaryExpression platypus-generated-copying pltLocalCopyTo: another self unaryExpressionCopyTo:another Platypus.PltUnaryExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self unaryExpressionCopyTo: another. Platypus.PltUnaryExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltUnaryExpression platypus-generated-group-accessing unaryExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltUnaryExpression platypus-generated-group-accessing unaryExpressionToValues:values ^ values Platypus.PltUnaryExpression platypus-generated-group-accessing toValues:values ^ self unaryExpressionToValues: (super toValues: values) Platypus.PltUnaryExpression platypus-generated-group-accessing fromValues:values ^ self unaryExpressionFromValues: (super fromValues: values) Platypus.PltUnaryExpression platypus-generated-group-accessing localFromValues: values ^ self unaryExpressionFromValues:values Platypus.PltUnaryExpression platypus-generated-group-accessing localToValues: values ^ self unaryExpressionToValues:values Platypus.PltUnaryExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltUnaryExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltBinaryExpression Platypus Platypus.PltExpression false none rightExpr parenthesis leftExpr Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltBinaryExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltBinaryExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltBinaryExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltBinaryExpression <ISO10303-11-EXPRESS> ENTITY binary_expression ABSTRACT SUPERTYPE SUBTYPE OF ( expression ); parenthesis : OPTIONAL BOOLEAN; left_expr : expression; right_expr : expression; DERIVE op_string : STRING := ?; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltBinaryExpression platypus-generated-initializing stepInitialize super stepInitialize. parenthesis := nil. leftExpr := nil. rightExpr := nil. Platypus.PltBinaryExpression platypus-generated-classifying isPltBinaryExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltBinaryExpression ^ false Platypus.PltBinaryExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptBinaryExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptBinaryExpression: e "my subclasses have to redefine it" Platypus.PltBinaryExpression platypus-generated-copying binaryExpressionCopyTo:another another fastSetParenthesis: (self parenthesis). another fastSetLeftExpr: (self leftExpr). another fastSetRightExpr: (self rightExpr). Platypus.PltBinaryExpression platypus-generated-copying pltLocalCopyTo: another self binaryExpressionCopyTo:another Platypus.PltBinaryExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self binaryExpressionCopyTo: another. Platypus.PltBinaryExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltBinaryExpression platypus-generated-group-accessing binaryExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setParenthesis:valuesloc removeFirst. self setLeftExpr:valuesloc removeFirst. self setRightExpr:valuesloc removeFirst. ^ valuesloc Platypus.PltBinaryExpression platypus-generated-group-accessing binaryExpressionToValues:values values add: (self parenthesis). values add: (self leftExpr). values add: (self rightExpr). ^ values Platypus.PltBinaryExpression platypus-generated-group-accessing toValues:values ^ self binaryExpressionToValues: (super toValues: values) Platypus.PltBinaryExpression platypus-generated-group-accessing fromValues:values ^ self binaryExpressionFromValues: (super fromValues: values) Platypus.PltBinaryExpression platypus-generated-group-accessing localFromValues: values ^ self binaryExpressionFromValues:values Platypus.PltBinaryExpression platypus-generated-group-accessing localToValues: values ^ self binaryExpressionToValues:values Platypus.PltBinaryExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltBinaryExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltBinaryExpression platypus-generated-accessing parenthesis ^parenthesis Platypus.PltBinaryExpression platypus-generated-set-accessing setParenthesis:aBoolean self parenthesis:aBoolean Platypus.PltBinaryExpression platypus-generated-accessing parenthesis:aBoolean parenthesis := aBoolean Platypus.PltBinaryExpression platypus-generated-fast-set-accessing fastSetParenthesis:aBoolean parenthesis := aBoolean Platypus.PltBinaryExpression platypus-generated-with-context-accessing parenthesisUsingContext:aContext ^ self parenthesis Platypus.PltBinaryExpression platypus-generated-accessing leftExpr ^leftExpr Platypus.PltBinaryExpression platypus-generated-set-accessing setLeftExpr:aPltExpression self leftExpr:aPltExpression Platypus.PltBinaryExpression platypus-generated-accessing leftExpr:aPltExpression leftExpr := aPltExpression Platypus.PltBinaryExpression platypus-generated-fast-set-accessing fastSetLeftExpr:aPltExpression leftExpr := aPltExpression Platypus.PltBinaryExpression platypus-generated-with-context-accessing leftExprUsingContext:aContext ^ self leftExpr Platypus.PltBinaryExpression platypus-generated-accessing rightExpr ^rightExpr Platypus.PltBinaryExpression platypus-generated-set-accessing setRightExpr:aPltExpression self rightExpr:aPltExpression Platypus.PltBinaryExpression platypus-generated-accessing rightExpr:aPltExpression rightExpr := aPltExpression Platypus.PltBinaryExpression platypus-generated-fast-set-accessing fastSetRightExpr:aPltExpression rightExpr := aPltExpression Platypus.PltBinaryExpression platypus-generated-with-context-accessing rightExprUsingContext:aContext ^ self rightExpr Platypus.PltBinaryExpression platypus-generated-deriving opStringUsingContext:aContext ^ self opStringUsingContext: aContext receiver: self Platypus.PltBinaryExpression platypus-generated-deriving opStringUsingContext: aContext receiver: aReceiver ^nil Platypus.PltBinaryExpression platypus-generated-deriving opString ^ self opStringUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltLogicalExpression Platypus Platypus.PltBinaryExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltLogicalExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltLogicalExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltLogicalExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltLogicalExpression <ISO10303-11-EXPRESS> ENTITY logical_expression ABSTRACT SUPERTYPE SUBTYPE OF ( binary_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltLogicalExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltLogicalExpression platypus-generated-classifying isPltLogicalExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltLogicalExpression ^ false Platypus.PltLogicalExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptLogicalExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptLogicalExpression: e "my subclasses have to redefine it" Platypus.PltLogicalExpression platypus-generated-copying logicalExpressionCopyTo:another Platypus.PltLogicalExpression platypus-generated-copying pltLocalCopyTo: another self logicalExpressionCopyTo:another Platypus.PltLogicalExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self logicalExpressionCopyTo: another. Platypus.PltLogicalExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltLogicalExpression platypus-generated-group-accessing logicalExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltLogicalExpression platypus-generated-group-accessing logicalExpressionToValues:values ^ values Platypus.PltLogicalExpression platypus-generated-group-accessing toValues:values ^ self logicalExpressionToValues: (super toValues: values) Platypus.PltLogicalExpression platypus-generated-group-accessing fromValues:values ^ self logicalExpressionFromValues: (super fromValues: values) Platypus.PltLogicalExpression platypus-generated-group-accessing localFromValues: values ^ self logicalExpressionFromValues:values Platypus.PltLogicalExpression platypus-generated-group-accessing localToValues: values ^ self logicalExpressionToValues:values Platypus.PltLogicalExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltLogicalExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltEntityInstanceReference Platypus Platypus.PltExpression false none persistentLabel ref Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltEntityInstanceReference class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltEntityInstanceReference class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltEntityInstanceReference class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltEntityInstanceReference <ISO10303-11-EXPRESS> ENTITY entity_instance_reference SUBTYPE OF ( expression ); persistent_label : STRING; ref : entity_instance; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltEntityInstanceReference platypus-generated-initializing stepInitialize super stepInitialize. persistentLabel := ''. ref := nil. Platypus.PltEntityInstanceReference platypus-generated-classifying isPltEntityInstanceReference ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltEntityInstanceReference ^ false Platypus.PltEntityInstanceReference platypus-generated-visiting accept: aVisitor ^ aVisitor acceptEntityInstanceReference: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptEntityInstanceReference: e "my subclasses have to redefine it" Platypus.PltEntityInstanceReference platypus-generated-copying entityInstanceReferenceCopyTo:another another fastSetPersistentLabel: (self persistentLabel). another fastSetRef: (self ref). Platypus.PltEntityInstanceReference platypus-generated-copying pltLocalCopyTo: another self entityInstanceReferenceCopyTo:another Platypus.PltEntityInstanceReference platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self entityInstanceReferenceCopyTo: another. Platypus.PltEntityInstanceReference platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltEntityInstanceReference platypus-generated-group-accessing entityInstanceReferenceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setPersistentLabel:valuesloc removeFirst. self setRef:valuesloc removeFirst. ^ valuesloc Platypus.PltEntityInstanceReference platypus-generated-group-accessing entityInstanceReferenceToValues:values values add: (self persistentLabel). values add: (self ref). ^ values Platypus.PltEntityInstanceReference platypus-generated-group-accessing toValues:values ^ self entityInstanceReferenceToValues: (super toValues: values) Platypus.PltEntityInstanceReference platypus-generated-group-accessing fromValues:values ^ self entityInstanceReferenceFromValues: (super fromValues: values) Platypus.PltEntityInstanceReference platypus-generated-group-accessing localFromValues: values ^ self entityInstanceReferenceFromValues:values Platypus.PltEntityInstanceReference platypus-generated-group-accessing localToValues: values ^ self entityInstanceReferenceToValues:values Platypus.PltEntityInstanceReference class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltEntityInstanceReference class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltEntityInstanceReference platypus-generated-accessing persistentLabel ^persistentLabel Platypus.PltEntityInstanceReference platypus-generated-set-accessing setPersistentLabel:aString self persistentLabel:aString Platypus.PltEntityInstanceReference platypus-generated-accessing persistentLabel:aString persistentLabel := aString Platypus.PltEntityInstanceReference platypus-generated-fast-set-accessing fastSetPersistentLabel:aString persistentLabel := aString Platypus.PltEntityInstanceReference platypus-generated-with-context-accessing persistentLabelUsingContext:aContext ^ self persistentLabel Platypus.PltEntityInstanceReference platypus-generated-accessing ref ^ref Platypus.PltEntityInstanceReference platypus-generated-set-accessing setRef:aPltEntityInstance self ref:aPltEntityInstance Platypus.PltEntityInstanceReference platypus-generated-accessing ref:aPltEntityInstance ref := aPltEntityInstance Platypus.PltEntityInstanceReference platypus-generated-fast-set-accessing fastSetRef:aPltEntityInstance ref := aPltEntityInstance Platypus.PltEntityInstanceReference platypus-generated-with-context-accessing refUsingContext:aContext ^ self ref Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltInstanceConstructionExpression Platypus Platypus.PltBinaryExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltInstanceConstructionExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltInstanceConstructionExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltInstanceConstructionExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltInstanceConstructionExpression <ISO10303-11-EXPRESS> ENTITY instance_construction_expression SUBTYPE OF ( binary_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltInstanceConstructionExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltInstanceConstructionExpression platypus-generated-classifying isPltInstanceConstructionExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltInstanceConstructionExpression ^ false Platypus.PltInstanceConstructionExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptInstanceConstructionExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptInstanceConstructionExpression: e "my subclasses have to redefine it" Platypus.PltInstanceConstructionExpression platypus-generated-copying instanceConstructionExpressionCopyTo:another Platypus.PltInstanceConstructionExpression platypus-generated-copying pltLocalCopyTo: another self instanceConstructionExpressionCopyTo:another Platypus.PltInstanceConstructionExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self instanceConstructionExpressionCopyTo: another. Platypus.PltInstanceConstructionExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltInstanceConstructionExpression platypus-generated-group-accessing instanceConstructionExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltInstanceConstructionExpression platypus-generated-group-accessing instanceConstructionExpressionToValues:values ^ values Platypus.PltInstanceConstructionExpression platypus-generated-group-accessing toValues:values ^ self instanceConstructionExpressionToValues: (super toValues: values) Platypus.PltInstanceConstructionExpression platypus-generated-group-accessing fromValues:values ^ self instanceConstructionExpressionFromValues: (super fromValues: values) Platypus.PltInstanceConstructionExpression platypus-generated-group-accessing localFromValues: values ^ self instanceConstructionExpressionFromValues:values Platypus.PltInstanceConstructionExpression platypus-generated-group-accessing localToValues: values ^ self instanceConstructionExpressionToValues:values Platypus.PltInstanceConstructionExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltInstanceConstructionExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltArithmeticExpression Platypus Platypus.PltBinaryExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltArithmeticExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltArithmeticExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltArithmeticExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltArithmeticExpression <ISO10303-11-EXPRESS> ENTITY arithmetic_expression ABSTRACT SUPERTYPE SUBTYPE OF ( binary_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltArithmeticExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltArithmeticExpression platypus-generated-classifying isPltArithmeticExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltArithmeticExpression ^ false Platypus.PltArithmeticExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptArithmeticExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptArithmeticExpression: e "my subclasses have to redefine it" Platypus.PltArithmeticExpression platypus-generated-copying arithmeticExpressionCopyTo:another Platypus.PltArithmeticExpression platypus-generated-copying pltLocalCopyTo: another self arithmeticExpressionCopyTo:another Platypus.PltArithmeticExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self arithmeticExpressionCopyTo: another. Platypus.PltArithmeticExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltArithmeticExpression platypus-generated-group-accessing arithmeticExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltArithmeticExpression platypus-generated-group-accessing arithmeticExpressionToValues:values ^ values Platypus.PltArithmeticExpression platypus-generated-group-accessing toValues:values ^ self arithmeticExpressionToValues: (super toValues: values) Platypus.PltArithmeticExpression platypus-generated-group-accessing fromValues:values ^ self arithmeticExpressionFromValues: (super fromValues: values) Platypus.PltArithmeticExpression platypus-generated-group-accessing localFromValues: values ^ self arithmeticExpressionFromValues:values Platypus.PltArithmeticExpression platypus-generated-group-accessing localToValues: values ^ self arithmeticExpressionToValues:values Platypus.PltArithmeticExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltArithmeticExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltExpoExpression Platypus Platypus.PltArithmeticExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltExpoExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltExpoExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltExpoExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltExpoExpression <ISO10303-11-EXPRESS> ENTITY expo_expression SUBTYPE OF ( arithmetic_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltExpoExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltExpoExpression platypus-generated-classifying isPltExpoExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltExpoExpression ^ false Platypus.PltExpoExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptExpoExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptExpoExpression: e "my subclasses have to redefine it" Platypus.PltExpoExpression platypus-generated-copying expoExpressionCopyTo:another Platypus.PltExpoExpression platypus-generated-copying pltLocalCopyTo: another self expoExpressionCopyTo:another Platypus.PltExpoExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self expoExpressionCopyTo: another. Platypus.PltExpoExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltExpoExpression platypus-generated-group-accessing expoExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltExpoExpression platypus-generated-group-accessing expoExpressionToValues:values ^ values Platypus.PltExpoExpression platypus-generated-group-accessing toValues:values ^ self expoExpressionToValues: (super toValues: values) Platypus.PltExpoExpression platypus-generated-group-accessing fromValues:values ^ self expoExpressionFromValues: (super fromValues: values) Platypus.PltExpoExpression platypus-generated-group-accessing localFromValues: values ^ self expoExpressionFromValues:values Platypus.PltExpoExpression platypus-generated-group-accessing localToValues: values ^ self expoExpressionToValues:values Platypus.PltExpoExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltExpoExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltMultExpression Platypus Platypus.PltArithmeticExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltMultExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltMultExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltMultExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltMultExpression <ISO10303-11-EXPRESS> ENTITY mult_expression SUBTYPE OF ( arithmetic_expression ); DERIVE SELF\binary_expression.op_string : STRING := '*'; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltMultExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltMultExpression platypus-generated-classifying isPltMultExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltMultExpression ^ false Platypus.PltMultExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptMultExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptMultExpression: e "my subclasses have to redefine it" Platypus.PltMultExpression platypus-generated-copying multExpressionCopyTo:another Platypus.PltMultExpression platypus-generated-copying pltLocalCopyTo: another self multExpressionCopyTo:another Platypus.PltMultExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self multExpressionCopyTo: another. Platypus.PltMultExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltMultExpression platypus-generated-group-accessing multExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltMultExpression platypus-generated-group-accessing multExpressionToValues:values ^ values Platypus.PltMultExpression platypus-generated-group-accessing toValues:values ^ self multExpressionToValues: (super toValues: values) Platypus.PltMultExpression platypus-generated-group-accessing fromValues:values ^ self multExpressionFromValues: (super fromValues: values) Platypus.PltMultExpression platypus-generated-group-accessing localFromValues: values ^ self multExpressionFromValues:values Platypus.PltMultExpression platypus-generated-group-accessing localToValues: values ^ self multExpressionToValues:values Platypus.PltMultExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltMultExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltMultExpression platypus-generated-deriving opStringUsingContext:aContext ^ self opStringUsingContext: aContext receiver: self Platypus.PltMultExpression platypus-generated-deriving opStringUsingContext: aContext receiver: aReceiver ^'*' Platypus.PltMultExpression platypus-generated-deriving opString ^ self opStringUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltDivExpression Platypus Platypus.PltArithmeticExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltDivExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltDivExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltDivExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltDivExpression <ISO10303-11-EXPRESS> ENTITY div_expression SUBTYPE OF ( arithmetic_expression ); DERIVE SELF\binary_expression.op_string : STRING := '/'; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltDivExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltDivExpression platypus-generated-classifying isPltDivExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltDivExpression ^ false Platypus.PltDivExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptDivExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptDivExpression: e "my subclasses have to redefine it" Platypus.PltDivExpression platypus-generated-copying divExpressionCopyTo:another Platypus.PltDivExpression platypus-generated-copying pltLocalCopyTo: another self divExpressionCopyTo:another Platypus.PltDivExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self divExpressionCopyTo: another. Platypus.PltDivExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltDivExpression platypus-generated-group-accessing divExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltDivExpression platypus-generated-group-accessing divExpressionToValues:values ^ values Platypus.PltDivExpression platypus-generated-group-accessing toValues:values ^ self divExpressionToValues: (super toValues: values) Platypus.PltDivExpression platypus-generated-group-accessing fromValues:values ^ self divExpressionFromValues: (super fromValues: values) Platypus.PltDivExpression platypus-generated-group-accessing localFromValues: values ^ self divExpressionFromValues:values Platypus.PltDivExpression platypus-generated-group-accessing localToValues: values ^ self divExpressionToValues:values Platypus.PltDivExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltDivExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltDivExpression platypus-generated-deriving opStringUsingContext:aContext ^ self opStringUsingContext: aContext receiver: self Platypus.PltDivExpression platypus-generated-deriving opStringUsingContext: aContext receiver: aReceiver ^'/' Platypus.PltDivExpression platypus-generated-deriving opString ^ self opStringUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltRealDivExpression Platypus Platypus.PltArithmeticExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltRealDivExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltRealDivExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltRealDivExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltRealDivExpression <ISO10303-11-EXPRESS> ENTITY real_div_expression SUBTYPE OF ( arithmetic_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltRealDivExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltRealDivExpression platypus-generated-classifying isPltRealDivExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltRealDivExpression ^ false Platypus.PltRealDivExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptRealDivExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptRealDivExpression: e "my subclasses have to redefine it" Platypus.PltRealDivExpression platypus-generated-copying realDivExpressionCopyTo:another Platypus.PltRealDivExpression platypus-generated-copying pltLocalCopyTo: another self realDivExpressionCopyTo:another Platypus.PltRealDivExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self realDivExpressionCopyTo: another. Platypus.PltRealDivExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltRealDivExpression platypus-generated-group-accessing realDivExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltRealDivExpression platypus-generated-group-accessing realDivExpressionToValues:values ^ values Platypus.PltRealDivExpression platypus-generated-group-accessing toValues:values ^ self realDivExpressionToValues: (super toValues: values) Platypus.PltRealDivExpression platypus-generated-group-accessing fromValues:values ^ self realDivExpressionFromValues: (super fromValues: values) Platypus.PltRealDivExpression platypus-generated-group-accessing localFromValues: values ^ self realDivExpressionFromValues:values Platypus.PltRealDivExpression platypus-generated-group-accessing localToValues: values ^ self realDivExpressionToValues:values Platypus.PltRealDivExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltRealDivExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltModExpression Platypus Platypus.PltArithmeticExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltModExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltModExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltModExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltModExpression <ISO10303-11-EXPRESS> ENTITY mod_expression SUBTYPE OF ( arithmetic_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltModExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltModExpression platypus-generated-classifying isPltModExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltModExpression ^ false Platypus.PltModExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptModExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptModExpression: e "my subclasses have to redefine it" Platypus.PltModExpression platypus-generated-copying modExpressionCopyTo:another Platypus.PltModExpression platypus-generated-copying pltLocalCopyTo: another self modExpressionCopyTo:another Platypus.PltModExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self modExpressionCopyTo: another. Platypus.PltModExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltModExpression platypus-generated-group-accessing modExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltModExpression platypus-generated-group-accessing modExpressionToValues:values ^ values Platypus.PltModExpression platypus-generated-group-accessing toValues:values ^ self modExpressionToValues: (super toValues: values) Platypus.PltModExpression platypus-generated-group-accessing fromValues:values ^ self modExpressionFromValues: (super fromValues: values) Platypus.PltModExpression platypus-generated-group-accessing localFromValues: values ^ self modExpressionFromValues:values Platypus.PltModExpression platypus-generated-group-accessing localToValues: values ^ self modExpressionToValues:values Platypus.PltModExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltModExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltPlusExpression Platypus Platypus.PltArithmeticExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltPlusExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltPlusExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltPlusExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltPlusExpression <ISO10303-11-EXPRESS> ENTITY plus_expression SUBTYPE OF ( arithmetic_expression ); DERIVE SELF\binary_expression.op_string : STRING := '+'; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltPlusExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltPlusExpression platypus-generated-classifying isPltPlusExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltPlusExpression ^ false Platypus.PltPlusExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptPlusExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptPlusExpression: e "my subclasses have to redefine it" Platypus.PltPlusExpression platypus-generated-copying plusExpressionCopyTo:another Platypus.PltPlusExpression platypus-generated-copying pltLocalCopyTo: another self plusExpressionCopyTo:another Platypus.PltPlusExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self plusExpressionCopyTo: another. Platypus.PltPlusExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltPlusExpression platypus-generated-group-accessing plusExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltPlusExpression platypus-generated-group-accessing plusExpressionToValues:values ^ values Platypus.PltPlusExpression platypus-generated-group-accessing toValues:values ^ self plusExpressionToValues: (super toValues: values) Platypus.PltPlusExpression platypus-generated-group-accessing fromValues:values ^ self plusExpressionFromValues: (super fromValues: values) Platypus.PltPlusExpression platypus-generated-group-accessing localFromValues: values ^ self plusExpressionFromValues:values Platypus.PltPlusExpression platypus-generated-group-accessing localToValues: values ^ self plusExpressionToValues:values Platypus.PltPlusExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltPlusExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltPlusExpression platypus-generated-deriving opStringUsingContext:aContext ^ self opStringUsingContext: aContext receiver: self Platypus.PltPlusExpression platypus-generated-deriving opStringUsingContext: aContext receiver: aReceiver ^'+' Platypus.PltPlusExpression platypus-generated-deriving opString ^ self opStringUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltMinusExpression Platypus Platypus.PltArithmeticExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltMinusExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltMinusExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltMinusExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltMinusExpression <ISO10303-11-EXPRESS> ENTITY minus_expression SUBTYPE OF ( arithmetic_expression ); DERIVE SELF\binary_expression.op_string : STRING := '-'; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltMinusExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltMinusExpression platypus-generated-classifying isPltMinusExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltMinusExpression ^ false Platypus.PltMinusExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptMinusExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptMinusExpression: e "my subclasses have to redefine it" Platypus.PltMinusExpression platypus-generated-copying minusExpressionCopyTo:another Platypus.PltMinusExpression platypus-generated-copying pltLocalCopyTo: another self minusExpressionCopyTo:another Platypus.PltMinusExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self minusExpressionCopyTo: another. Platypus.PltMinusExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltMinusExpression platypus-generated-group-accessing minusExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltMinusExpression platypus-generated-group-accessing minusExpressionToValues:values ^ values Platypus.PltMinusExpression platypus-generated-group-accessing toValues:values ^ self minusExpressionToValues: (super toValues: values) Platypus.PltMinusExpression platypus-generated-group-accessing fromValues:values ^ self minusExpressionFromValues: (super fromValues: values) Platypus.PltMinusExpression platypus-generated-group-accessing localFromValues: values ^ self minusExpressionFromValues:values Platypus.PltMinusExpression platypus-generated-group-accessing localToValues: values ^ self minusExpressionToValues:values Platypus.PltMinusExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltMinusExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltMinusExpression platypus-generated-deriving opStringUsingContext:aContext ^ self opStringUsingContext: aContext receiver: self Platypus.PltMinusExpression platypus-generated-deriving opStringUsingContext: aContext receiver: aReceiver ^'-' Platypus.PltMinusExpression platypus-generated-deriving opString ^ self opStringUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAndExpression Platypus Platypus.PltLogicalExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltAndExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAndExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAndExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAndExpression <ISO10303-11-EXPRESS> ENTITY and_expression SUBTYPE OF ( logical_expression ); DERIVE SELF\binary_expression.op_string : STRING := 'AND'; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAndExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltAndExpression platypus-generated-classifying isPltAndExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltAndExpression ^ false Platypus.PltAndExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAndExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptAndExpression: e "my subclasses have to redefine it" Platypus.PltAndExpression platypus-generated-copying andExpressionCopyTo:another Platypus.PltAndExpression platypus-generated-copying pltLocalCopyTo: another self andExpressionCopyTo:another Platypus.PltAndExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self andExpressionCopyTo: another. Platypus.PltAndExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAndExpression platypus-generated-group-accessing andExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltAndExpression platypus-generated-group-accessing andExpressionToValues:values ^ values Platypus.PltAndExpression platypus-generated-group-accessing toValues:values ^ self andExpressionToValues: (super toValues: values) Platypus.PltAndExpression platypus-generated-group-accessing fromValues:values ^ self andExpressionFromValues: (super fromValues: values) Platypus.PltAndExpression platypus-generated-group-accessing localFromValues: values ^ self andExpressionFromValues:values Platypus.PltAndExpression platypus-generated-group-accessing localToValues: values ^ self andExpressionToValues:values Platypus.PltAndExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltAndExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAndExpression platypus-generated-deriving opStringUsingContext:aContext ^ self opStringUsingContext: aContext receiver: self Platypus.PltAndExpression platypus-generated-deriving opStringUsingContext: aContext receiver: aReceiver ^'AND' Platypus.PltAndExpression platypus-generated-deriving opString ^ self opStringUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltOrExpression Platypus Platypus.PltLogicalExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltOrExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltOrExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltOrExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltOrExpression <ISO10303-11-EXPRESS> ENTITY or_expression SUBTYPE OF ( logical_expression ); DERIVE SELF\binary_expression.op_string : STRING := 'OR'; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltOrExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltOrExpression platypus-generated-classifying isPltOrExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltOrExpression ^ false Platypus.PltOrExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptOrExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptOrExpression: e "my subclasses have to redefine it" Platypus.PltOrExpression platypus-generated-copying orExpressionCopyTo:another Platypus.PltOrExpression platypus-generated-copying pltLocalCopyTo: another self orExpressionCopyTo:another Platypus.PltOrExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self orExpressionCopyTo: another. Platypus.PltOrExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltOrExpression platypus-generated-group-accessing orExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltOrExpression platypus-generated-group-accessing orExpressionToValues:values ^ values Platypus.PltOrExpression platypus-generated-group-accessing toValues:values ^ self orExpressionToValues: (super toValues: values) Platypus.PltOrExpression platypus-generated-group-accessing fromValues:values ^ self orExpressionFromValues: (super fromValues: values) Platypus.PltOrExpression platypus-generated-group-accessing localFromValues: values ^ self orExpressionFromValues:values Platypus.PltOrExpression platypus-generated-group-accessing localToValues: values ^ self orExpressionToValues:values Platypus.PltOrExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltOrExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltOrExpression platypus-generated-deriving opStringUsingContext:aContext ^ self opStringUsingContext: aContext receiver: self Platypus.PltOrExpression platypus-generated-deriving opStringUsingContext: aContext receiver: aReceiver ^'OR' Platypus.PltOrExpression platypus-generated-deriving opString ^ self opStringUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltXorExpression Platypus Platypus.PltLogicalExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltXorExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltXorExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltXorExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltXorExpression <ISO10303-11-EXPRESS> ENTITY xor_expression SUBTYPE OF ( logical_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltXorExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltXorExpression platypus-generated-classifying isPltXorExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltXorExpression ^ false Platypus.PltXorExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptXorExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptXorExpression: e "my subclasses have to redefine it" Platypus.PltXorExpression platypus-generated-copying xorExpressionCopyTo:another Platypus.PltXorExpression platypus-generated-copying pltLocalCopyTo: another self xorExpressionCopyTo:another Platypus.PltXorExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self xorExpressionCopyTo: another. Platypus.PltXorExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltXorExpression platypus-generated-group-accessing xorExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltXorExpression platypus-generated-group-accessing xorExpressionToValues:values ^ values Platypus.PltXorExpression platypus-generated-group-accessing toValues:values ^ self xorExpressionToValues: (super toValues: values) Platypus.PltXorExpression platypus-generated-group-accessing fromValues:values ^ self xorExpressionFromValues: (super fromValues: values) Platypus.PltXorExpression platypus-generated-group-accessing localFromValues: values ^ self xorExpressionFromValues:values Platypus.PltXorExpression platypus-generated-group-accessing localToValues: values ^ self xorExpressionToValues:values Platypus.PltXorExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltXorExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltComparisonExpression Platypus Platypus.PltLogicalExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltComparisonExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltComparisonExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltComparisonExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltComparisonExpression <ISO10303-11-EXPRESS> ENTITY comparison_expression ABSTRACT SUPERTYPE SUBTYPE OF ( logical_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltComparisonExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltComparisonExpression platypus-generated-classifying isPltComparisonExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltComparisonExpression ^ false Platypus.PltComparisonExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptComparisonExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptComparisonExpression: e "my subclasses have to redefine it" Platypus.PltComparisonExpression platypus-generated-copying comparisonExpressionCopyTo:another Platypus.PltComparisonExpression platypus-generated-copying pltLocalCopyTo: another self comparisonExpressionCopyTo:another Platypus.PltComparisonExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self comparisonExpressionCopyTo: another. Platypus.PltComparisonExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltComparisonExpression platypus-generated-group-accessing comparisonExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltComparisonExpression platypus-generated-group-accessing comparisonExpressionToValues:values ^ values Platypus.PltComparisonExpression platypus-generated-group-accessing toValues:values ^ self comparisonExpressionToValues: (super toValues: values) Platypus.PltComparisonExpression platypus-generated-group-accessing fromValues:values ^ self comparisonExpressionFromValues: (super fromValues: values) Platypus.PltComparisonExpression platypus-generated-group-accessing localFromValues: values ^ self comparisonExpressionFromValues:values Platypus.PltComparisonExpression platypus-generated-group-accessing localToValues: values ^ self comparisonExpressionToValues:values Platypus.PltComparisonExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltComparisonExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltLessThanExpression Platypus Platypus.PltComparisonExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltLessThanExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltLessThanExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltLessThanExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltLessThanExpression <ISO10303-11-EXPRESS> ENTITY less_than_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltLessThanExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltLessThanExpression platypus-generated-classifying isPltLessThanExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltLessThanExpression ^ false Platypus.PltLessThanExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptLessThanExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptLessThanExpression: e "my subclasses have to redefine it" Platypus.PltLessThanExpression platypus-generated-copying lessThanExpressionCopyTo:another Platypus.PltLessThanExpression platypus-generated-copying pltLocalCopyTo: another self lessThanExpressionCopyTo:another Platypus.PltLessThanExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self lessThanExpressionCopyTo: another. Platypus.PltLessThanExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltLessThanExpression platypus-generated-group-accessing lessThanExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltLessThanExpression platypus-generated-group-accessing lessThanExpressionToValues:values ^ values Platypus.PltLessThanExpression platypus-generated-group-accessing toValues:values ^ self lessThanExpressionToValues: (super toValues: values) Platypus.PltLessThanExpression platypus-generated-group-accessing fromValues:values ^ self lessThanExpressionFromValues: (super fromValues: values) Platypus.PltLessThanExpression platypus-generated-group-accessing localFromValues: values ^ self lessThanExpressionFromValues:values Platypus.PltLessThanExpression platypus-generated-group-accessing localToValues: values ^ self lessThanExpressionToValues:values Platypus.PltLessThanExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltLessThanExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltGreaterThanExpression Platypus Platypus.PltComparisonExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltGreaterThanExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltGreaterThanExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltGreaterThanExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltGreaterThanExpression <ISO10303-11-EXPRESS> ENTITY greater_than_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltGreaterThanExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltGreaterThanExpression platypus-generated-classifying isPltGreaterThanExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltGreaterThanExpression ^ false Platypus.PltGreaterThanExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptGreaterThanExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptGreaterThanExpression: e "my subclasses have to redefine it" Platypus.PltGreaterThanExpression platypus-generated-copying greaterThanExpressionCopyTo:another Platypus.PltGreaterThanExpression platypus-generated-copying pltLocalCopyTo: another self greaterThanExpressionCopyTo:another Platypus.PltGreaterThanExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self greaterThanExpressionCopyTo: another. Platypus.PltGreaterThanExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltGreaterThanExpression platypus-generated-group-accessing greaterThanExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltGreaterThanExpression platypus-generated-group-accessing greaterThanExpressionToValues:values ^ values Platypus.PltGreaterThanExpression platypus-generated-group-accessing toValues:values ^ self greaterThanExpressionToValues: (super toValues: values) Platypus.PltGreaterThanExpression platypus-generated-group-accessing fromValues:values ^ self greaterThanExpressionFromValues: (super fromValues: values) Platypus.PltGreaterThanExpression platypus-generated-group-accessing localFromValues: values ^ self greaterThanExpressionFromValues:values Platypus.PltGreaterThanExpression platypus-generated-group-accessing localToValues: values ^ self greaterThanExpressionToValues:values Platypus.PltGreaterThanExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltGreaterThanExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltEqualExpression Platypus Platypus.PltComparisonExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltEqualExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltEqualExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltEqualExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltEqualExpression <ISO10303-11-EXPRESS> ENTITY equal_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltEqualExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltEqualExpression platypus-generated-classifying isPltEqualExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltEqualExpression ^ false Platypus.PltEqualExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptEqualExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptEqualExpression: e "my subclasses have to redefine it" Platypus.PltEqualExpression platypus-generated-copying equalExpressionCopyTo:another Platypus.PltEqualExpression platypus-generated-copying pltLocalCopyTo: another self equalExpressionCopyTo:another Platypus.PltEqualExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self equalExpressionCopyTo: another. Platypus.PltEqualExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltEqualExpression platypus-generated-group-accessing equalExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltEqualExpression platypus-generated-group-accessing equalExpressionToValues:values ^ values Platypus.PltEqualExpression platypus-generated-group-accessing toValues:values ^ self equalExpressionToValues: (super toValues: values) Platypus.PltEqualExpression platypus-generated-group-accessing fromValues:values ^ self equalExpressionFromValues: (super fromValues: values) Platypus.PltEqualExpression platypus-generated-group-accessing localFromValues: values ^ self equalExpressionFromValues:values Platypus.PltEqualExpression platypus-generated-group-accessing localToValues: values ^ self equalExpressionToValues:values Platypus.PltEqualExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltEqualExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltLessEqualExpression Platypus Platypus.PltComparisonExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltLessEqualExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltLessEqualExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltLessEqualExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltLessEqualExpression <ISO10303-11-EXPRESS> ENTITY less_equal_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltLessEqualExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltLessEqualExpression platypus-generated-classifying isPltLessEqualExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltLessEqualExpression ^ false Platypus.PltLessEqualExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptLessEqualExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptLessEqualExpression: e "my subclasses have to redefine it" Platypus.PltLessEqualExpression platypus-generated-copying lessEqualExpressionCopyTo:another Platypus.PltLessEqualExpression platypus-generated-copying pltLocalCopyTo: another self lessEqualExpressionCopyTo:another Platypus.PltLessEqualExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self lessEqualExpressionCopyTo: another. Platypus.PltLessEqualExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltLessEqualExpression platypus-generated-group-accessing lessEqualExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltLessEqualExpression platypus-generated-group-accessing lessEqualExpressionToValues:values ^ values Platypus.PltLessEqualExpression platypus-generated-group-accessing toValues:values ^ self lessEqualExpressionToValues: (super toValues: values) Platypus.PltLessEqualExpression platypus-generated-group-accessing fromValues:values ^ self lessEqualExpressionFromValues: (super fromValues: values) Platypus.PltLessEqualExpression platypus-generated-group-accessing localFromValues: values ^ self lessEqualExpressionFromValues:values Platypus.PltLessEqualExpression platypus-generated-group-accessing localToValues: values ^ self lessEqualExpressionToValues:values Platypus.PltLessEqualExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltLessEqualExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltGreaterEqualExpression Platypus Platypus.PltComparisonExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltGreaterEqualExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltGreaterEqualExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltGreaterEqualExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltGreaterEqualExpression <ISO10303-11-EXPRESS> ENTITY greater_equal_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltGreaterEqualExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltGreaterEqualExpression platypus-generated-classifying isPltGreaterEqualExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltGreaterEqualExpression ^ false Platypus.PltGreaterEqualExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptGreaterEqualExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptGreaterEqualExpression: e "my subclasses have to redefine it" Platypus.PltGreaterEqualExpression platypus-generated-copying greaterEqualExpressionCopyTo:another Platypus.PltGreaterEqualExpression platypus-generated-copying pltLocalCopyTo: another self greaterEqualExpressionCopyTo:another Platypus.PltGreaterEqualExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self greaterEqualExpressionCopyTo: another. Platypus.PltGreaterEqualExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltGreaterEqualExpression platypus-generated-group-accessing greaterEqualExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltGreaterEqualExpression platypus-generated-group-accessing greaterEqualExpressionToValues:values ^ values Platypus.PltGreaterEqualExpression platypus-generated-group-accessing toValues:values ^ self greaterEqualExpressionToValues: (super toValues: values) Platypus.PltGreaterEqualExpression platypus-generated-group-accessing fromValues:values ^ self greaterEqualExpressionFromValues: (super fromValues: values) Platypus.PltGreaterEqualExpression platypus-generated-group-accessing localFromValues: values ^ self greaterEqualExpressionFromValues:values Platypus.PltGreaterEqualExpression platypus-generated-group-accessing localToValues: values ^ self greaterEqualExpressionToValues:values Platypus.PltGreaterEqualExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltGreaterEqualExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltNotEqualExpression Platypus Platypus.PltComparisonExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltNotEqualExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltNotEqualExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltNotEqualExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltNotEqualExpression <ISO10303-11-EXPRESS> ENTITY not_equal_expression SUBTYPE OF ( comparison_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltNotEqualExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltNotEqualExpression platypus-generated-classifying isPltNotEqualExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltNotEqualExpression ^ false Platypus.PltNotEqualExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptNotEqualExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptNotEqualExpression: e "my subclasses have to redefine it" Platypus.PltNotEqualExpression platypus-generated-copying notEqualExpressionCopyTo:another Platypus.PltNotEqualExpression platypus-generated-copying pltLocalCopyTo: another self notEqualExpressionCopyTo:another Platypus.PltNotEqualExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self notEqualExpressionCopyTo: another. Platypus.PltNotEqualExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltNotEqualExpression platypus-generated-group-accessing notEqualExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltNotEqualExpression platypus-generated-group-accessing notEqualExpressionToValues:values ^ values Platypus.PltNotEqualExpression platypus-generated-group-accessing toValues:values ^ self notEqualExpressionToValues: (super toValues: values) Platypus.PltNotEqualExpression platypus-generated-group-accessing fromValues:values ^ self notEqualExpressionFromValues: (super fromValues: values) Platypus.PltNotEqualExpression platypus-generated-group-accessing localFromValues: values ^ self notEqualExpressionFromValues:values Platypus.PltNotEqualExpression platypus-generated-group-accessing localToValues: values ^ self notEqualExpressionToValues:values Platypus.PltNotEqualExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltNotEqualExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltInstComparisonExpression Platypus Platypus.PltComparisonExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltInstComparisonExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltInstComparisonExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltInstComparisonExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltInstComparisonExpression <ISO10303-11-EXPRESS> ENTITY inst_comparison_expression ABSTRACT SUPERTYPE SUBTYPE OF ( comparison_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltInstComparisonExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltInstComparisonExpression platypus-generated-classifying isPltInstComparisonExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltInstComparisonExpression ^ false Platypus.PltInstComparisonExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptInstComparisonExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptInstComparisonExpression: e "my subclasses have to redefine it" Platypus.PltInstComparisonExpression platypus-generated-copying instComparisonExpressionCopyTo:another Platypus.PltInstComparisonExpression platypus-generated-copying pltLocalCopyTo: another self instComparisonExpressionCopyTo:another Platypus.PltInstComparisonExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self instComparisonExpressionCopyTo: another. Platypus.PltInstComparisonExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltInstComparisonExpression platypus-generated-group-accessing instComparisonExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltInstComparisonExpression platypus-generated-group-accessing instComparisonExpressionToValues:values ^ values Platypus.PltInstComparisonExpression platypus-generated-group-accessing toValues:values ^ self instComparisonExpressionToValues: (super toValues: values) Platypus.PltInstComparisonExpression platypus-generated-group-accessing fromValues:values ^ self instComparisonExpressionFromValues: (super fromValues: values) Platypus.PltInstComparisonExpression platypus-generated-group-accessing localFromValues: values ^ self instComparisonExpressionFromValues:values Platypus.PltInstComparisonExpression platypus-generated-group-accessing localToValues: values ^ self instComparisonExpressionToValues:values Platypus.PltInstComparisonExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltInstComparisonExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltInstEqualExpression Platypus Platypus.PltInstComparisonExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltInstEqualExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltInstEqualExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltInstEqualExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltInstEqualExpression <ISO10303-11-EXPRESS> ENTITY inst_equal_expression SUBTYPE OF ( inst_comparison_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltInstEqualExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltInstEqualExpression platypus-generated-classifying isPltInstEqualExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltInstEqualExpression ^ false Platypus.PltInstEqualExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptInstEqualExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptInstEqualExpression: e "my subclasses have to redefine it" Platypus.PltInstEqualExpression platypus-generated-copying instEqualExpressionCopyTo:another Platypus.PltInstEqualExpression platypus-generated-copying pltLocalCopyTo: another self instEqualExpressionCopyTo:another Platypus.PltInstEqualExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self instEqualExpressionCopyTo: another. Platypus.PltInstEqualExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltInstEqualExpression platypus-generated-group-accessing instEqualExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltInstEqualExpression platypus-generated-group-accessing instEqualExpressionToValues:values ^ values Platypus.PltInstEqualExpression platypus-generated-group-accessing toValues:values ^ self instEqualExpressionToValues: (super toValues: values) Platypus.PltInstEqualExpression platypus-generated-group-accessing fromValues:values ^ self instEqualExpressionFromValues: (super fromValues: values) Platypus.PltInstEqualExpression platypus-generated-group-accessing localFromValues: values ^ self instEqualExpressionFromValues:values Platypus.PltInstEqualExpression platypus-generated-group-accessing localToValues: values ^ self instEqualExpressionToValues:values Platypus.PltInstEqualExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltInstEqualExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltInstNotEqualExpression Platypus Platypus.PltInstComparisonExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltInstNotEqualExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltInstNotEqualExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltInstNotEqualExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltInstNotEqualExpression <ISO10303-11-EXPRESS> ENTITY inst_not_equal_expression SUBTYPE OF ( inst_comparison_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltInstNotEqualExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltInstNotEqualExpression platypus-generated-classifying isPltInstNotEqualExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltInstNotEqualExpression ^ false Platypus.PltInstNotEqualExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptInstNotEqualExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptInstNotEqualExpression: e "my subclasses have to redefine it" Platypus.PltInstNotEqualExpression platypus-generated-copying instNotEqualExpressionCopyTo:another Platypus.PltInstNotEqualExpression platypus-generated-copying pltLocalCopyTo: another self instNotEqualExpressionCopyTo:another Platypus.PltInstNotEqualExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self instNotEqualExpressionCopyTo: another. Platypus.PltInstNotEqualExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltInstNotEqualExpression platypus-generated-group-accessing instNotEqualExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltInstNotEqualExpression platypus-generated-group-accessing instNotEqualExpressionToValues:values ^ values Platypus.PltInstNotEqualExpression platypus-generated-group-accessing toValues:values ^ self instNotEqualExpressionToValues: (super toValues: values) Platypus.PltInstNotEqualExpression platypus-generated-group-accessing fromValues:values ^ self instNotEqualExpressionFromValues: (super fromValues: values) Platypus.PltInstNotEqualExpression platypus-generated-group-accessing localFromValues: values ^ self instNotEqualExpressionFromValues:values Platypus.PltInstNotEqualExpression platypus-generated-group-accessing localToValues: values ^ self instNotEqualExpressionToValues:values Platypus.PltInstNotEqualExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltInstNotEqualExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltInExpression Platypus Platypus.PltLogicalExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltInExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltInExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltInExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltInExpression <ISO10303-11-EXPRESS> ENTITY in_expression SUBTYPE OF ( logical_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltInExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltInExpression platypus-generated-classifying isPltInExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltInExpression ^ false Platypus.PltInExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptInExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptInExpression: e "my subclasses have to redefine it" Platypus.PltInExpression platypus-generated-copying inExpressionCopyTo:another Platypus.PltInExpression platypus-generated-copying pltLocalCopyTo: another self inExpressionCopyTo:another Platypus.PltInExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self inExpressionCopyTo: another. Platypus.PltInExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltInExpression platypus-generated-group-accessing inExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltInExpression platypus-generated-group-accessing inExpressionToValues:values ^ values Platypus.PltInExpression platypus-generated-group-accessing toValues:values ^ self inExpressionToValues: (super toValues: values) Platypus.PltInExpression platypus-generated-group-accessing fromValues:values ^ self inExpressionFromValues: (super fromValues: values) Platypus.PltInExpression platypus-generated-group-accessing localFromValues: values ^ self inExpressionFromValues:values Platypus.PltInExpression platypus-generated-group-accessing localToValues: values ^ self inExpressionToValues:values Platypus.PltInExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltInExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltLikeExpression Platypus Platypus.PltLogicalExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltLikeExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltLikeExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltLikeExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltLikeExpression <ISO10303-11-EXPRESS> ENTITY like_expression SUBTYPE OF ( logical_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltLikeExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltLikeExpression platypus-generated-classifying isPltLikeExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltLikeExpression ^ false Platypus.PltLikeExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptLikeExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptLikeExpression: e "my subclasses have to redefine it" Platypus.PltLikeExpression platypus-generated-copying likeExpressionCopyTo:another Platypus.PltLikeExpression platypus-generated-copying pltLocalCopyTo: another self likeExpressionCopyTo:another Platypus.PltLikeExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self likeExpressionCopyTo: another. Platypus.PltLikeExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltLikeExpression platypus-generated-group-accessing likeExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltLikeExpression platypus-generated-group-accessing likeExpressionToValues:values ^ values Platypus.PltLikeExpression platypus-generated-group-accessing toValues:values ^ self likeExpressionToValues: (super toValues: values) Platypus.PltLikeExpression platypus-generated-group-accessing fromValues:values ^ self likeExpressionFromValues: (super fromValues: values) Platypus.PltLikeExpression platypus-generated-group-accessing localFromValues: values ^ self likeExpressionFromValues:values Platypus.PltLikeExpression platypus-generated-group-accessing localToValues: values ^ self likeExpressionToValues:values Platypus.PltLikeExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltLikeExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltCardinalityExpression Platypus Platypus.PltLogicalExpression false none card2 card1 Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltCardinalityExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltCardinalityExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltCardinalityExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltCardinalityExpression <ISO10303-11-EXPRESS> ENTITY cardinality_expression SUBTYPE OF ( logical_expression ); card1 : expression; card2 : expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltCardinalityExpression platypus-generated-initializing stepInitialize super stepInitialize. card1 := nil. card2 := nil. Platypus.PltCardinalityExpression platypus-generated-classifying isPltCardinalityExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltCardinalityExpression ^ false Platypus.PltCardinalityExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptCardinalityExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptCardinalityExpression: e "my subclasses have to redefine it" Platypus.PltCardinalityExpression platypus-generated-copying cardinalityExpressionCopyTo:another another fastSetCard1: (self card1). another fastSetCard2: (self card2). Platypus.PltCardinalityExpression platypus-generated-copying pltLocalCopyTo: another self cardinalityExpressionCopyTo:another Platypus.PltCardinalityExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self cardinalityExpressionCopyTo: another. Platypus.PltCardinalityExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltCardinalityExpression platypus-generated-group-accessing cardinalityExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setCard1:valuesloc removeFirst. self setCard2:valuesloc removeFirst. ^ valuesloc Platypus.PltCardinalityExpression platypus-generated-group-accessing cardinalityExpressionToValues:values values add: (self card1). values add: (self card2). ^ values Platypus.PltCardinalityExpression platypus-generated-group-accessing toValues:values ^ self cardinalityExpressionToValues: (super toValues: values) Platypus.PltCardinalityExpression platypus-generated-group-accessing fromValues:values ^ self cardinalityExpressionFromValues: (super fromValues: values) Platypus.PltCardinalityExpression platypus-generated-group-accessing localFromValues: values ^ self cardinalityExpressionFromValues:values Platypus.PltCardinalityExpression platypus-generated-group-accessing localToValues: values ^ self cardinalityExpressionToValues:values Platypus.PltCardinalityExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltCardinalityExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltCardinalityExpression platypus-generated-accessing card1 ^card1 Platypus.PltCardinalityExpression platypus-generated-set-accessing setCard1:aPltExpression self card1:aPltExpression Platypus.PltCardinalityExpression platypus-generated-accessing card1:aPltExpression card1 := aPltExpression Platypus.PltCardinalityExpression platypus-generated-fast-set-accessing fastSetCard1:aPltExpression card1 := aPltExpression Platypus.PltCardinalityExpression platypus-generated-with-context-accessing card1UsingContext:aContext ^ self card1 Platypus.PltCardinalityExpression platypus-generated-accessing card2 ^card2 Platypus.PltCardinalityExpression platypus-generated-set-accessing setCard2:aPltExpression self card2:aPltExpression Platypus.PltCardinalityExpression platypus-generated-accessing card2:aPltExpression card2 := aPltExpression Platypus.PltCardinalityExpression platypus-generated-fast-set-accessing fastSetCard2:aPltExpression card2 := aPltExpression Platypus.PltCardinalityExpression platypus-generated-with-context-accessing card2UsingContext:aContext ^ self card2 Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltSimpleUnaryExpression Platypus Platypus.PltUnaryExpression false none expr Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltSimpleUnaryExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSimpleUnaryExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSimpleUnaryExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSimpleUnaryExpression <ISO10303-11-EXPRESS> ENTITY simple_unary_expression ABSTRACT SUPERTYPE SUBTYPE OF ( unary_expression ); expr : expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSimpleUnaryExpression platypus-generated-initializing stepInitialize super stepInitialize. expr := nil. Platypus.PltSimpleUnaryExpression platypus-generated-classifying isPltSimpleUnaryExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltSimpleUnaryExpression ^ false Platypus.PltSimpleUnaryExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSimpleUnaryExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptSimpleUnaryExpression: e "my subclasses have to redefine it" Platypus.PltSimpleUnaryExpression platypus-generated-copying simpleUnaryExpressionCopyTo:another another fastSetExpr: (self expr). Platypus.PltSimpleUnaryExpression platypus-generated-copying pltLocalCopyTo: another self simpleUnaryExpressionCopyTo:another Platypus.PltSimpleUnaryExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self simpleUnaryExpressionCopyTo: another. Platypus.PltSimpleUnaryExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSimpleUnaryExpression platypus-generated-group-accessing simpleUnaryExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setExpr:valuesloc removeFirst. ^ valuesloc Platypus.PltSimpleUnaryExpression platypus-generated-group-accessing simpleUnaryExpressionToValues:values values add: (self expr). ^ values Platypus.PltSimpleUnaryExpression platypus-generated-group-accessing toValues:values ^ self simpleUnaryExpressionToValues: (super toValues: values) Platypus.PltSimpleUnaryExpression platypus-generated-group-accessing fromValues:values ^ self simpleUnaryExpressionFromValues: (super fromValues: values) Platypus.PltSimpleUnaryExpression platypus-generated-group-accessing localFromValues: values ^ self simpleUnaryExpressionFromValues:values Platypus.PltSimpleUnaryExpression platypus-generated-group-accessing localToValues: values ^ self simpleUnaryExpressionToValues:values Platypus.PltSimpleUnaryExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltSimpleUnaryExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltSimpleUnaryExpression platypus-generated-accessing expr ^expr Platypus.PltSimpleUnaryExpression platypus-generated-set-accessing setExpr:aPltExpression self expr:aPltExpression Platypus.PltSimpleUnaryExpression platypus-generated-accessing expr:aPltExpression expr := aPltExpression Platypus.PltSimpleUnaryExpression platypus-generated-fast-set-accessing fastSetExpr:aPltExpression expr := aPltExpression Platypus.PltSimpleUnaryExpression platypus-generated-with-context-accessing exprUsingContext:aContext ^ self expr Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltNotExpression Platypus Platypus.PltSimpleUnaryExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltNotExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltNotExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltNotExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltNotExpression <ISO10303-11-EXPRESS> ENTITY not_expression SUBTYPE OF ( simple_unary_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltNotExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltNotExpression platypus-generated-classifying isPltNotExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltNotExpression ^ false Platypus.PltNotExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptNotExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptNotExpression: e "my subclasses have to redefine it" Platypus.PltNotExpression platypus-generated-copying notExpressionCopyTo:another Platypus.PltNotExpression platypus-generated-copying pltLocalCopyTo: another self notExpressionCopyTo:another Platypus.PltNotExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self notExpressionCopyTo: another. Platypus.PltNotExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltNotExpression platypus-generated-group-accessing notExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltNotExpression platypus-generated-group-accessing notExpressionToValues:values ^ values Platypus.PltNotExpression platypus-generated-group-accessing toValues:values ^ self notExpressionToValues: (super toValues: values) Platypus.PltNotExpression platypus-generated-group-accessing fromValues:values ^ self notExpressionFromValues: (super fromValues: values) Platypus.PltNotExpression platypus-generated-group-accessing localFromValues: values ^ self notExpressionFromValues:values Platypus.PltNotExpression platypus-generated-group-accessing localToValues: values ^ self notExpressionToValues:values Platypus.PltNotExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltNotExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltPositiveExpression Platypus Platypus.PltSimpleUnaryExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltPositiveExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltPositiveExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltPositiveExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltPositiveExpression <ISO10303-11-EXPRESS> ENTITY positive_expression SUBTYPE OF ( simple_unary_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltPositiveExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltPositiveExpression platypus-generated-classifying isPltPositiveExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltPositiveExpression ^ false Platypus.PltPositiveExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptPositiveExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptPositiveExpression: e "my subclasses have to redefine it" Platypus.PltPositiveExpression platypus-generated-copying positiveExpressionCopyTo:another Platypus.PltPositiveExpression platypus-generated-copying pltLocalCopyTo: another self positiveExpressionCopyTo:another Platypus.PltPositiveExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self positiveExpressionCopyTo: another. Platypus.PltPositiveExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltPositiveExpression platypus-generated-group-accessing positiveExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltPositiveExpression platypus-generated-group-accessing positiveExpressionToValues:values ^ values Platypus.PltPositiveExpression platypus-generated-group-accessing toValues:values ^ self positiveExpressionToValues: (super toValues: values) Platypus.PltPositiveExpression platypus-generated-group-accessing fromValues:values ^ self positiveExpressionFromValues: (super fromValues: values) Platypus.PltPositiveExpression platypus-generated-group-accessing localFromValues: values ^ self positiveExpressionFromValues:values Platypus.PltPositiveExpression platypus-generated-group-accessing localToValues: values ^ self positiveExpressionToValues:values Platypus.PltPositiveExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltPositiveExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltNegativeExpression Platypus Platypus.PltSimpleUnaryExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltNegativeExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltNegativeExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltNegativeExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltNegativeExpression <ISO10303-11-EXPRESS> ENTITY negative_expression SUBTYPE OF ( simple_unary_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltNegativeExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltNegativeExpression platypus-generated-classifying isPltNegativeExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltNegativeExpression ^ false Platypus.PltNegativeExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptNegativeExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptNegativeExpression: e "my subclasses have to redefine it" Platypus.PltNegativeExpression platypus-generated-copying negativeExpressionCopyTo:another Platypus.PltNegativeExpression platypus-generated-copying pltLocalCopyTo: another self negativeExpressionCopyTo:another Platypus.PltNegativeExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self negativeExpressionCopyTo: another. Platypus.PltNegativeExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltNegativeExpression platypus-generated-group-accessing negativeExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltNegativeExpression platypus-generated-group-accessing negativeExpressionToValues:values ^ values Platypus.PltNegativeExpression platypus-generated-group-accessing toValues:values ^ self negativeExpressionToValues: (super toValues: values) Platypus.PltNegativeExpression platypus-generated-group-accessing fromValues:values ^ self negativeExpressionFromValues: (super fromValues: values) Platypus.PltNegativeExpression platypus-generated-group-accessing localFromValues: values ^ self negativeExpressionFromValues:values Platypus.PltNegativeExpression platypus-generated-group-accessing localToValues: values ^ self negativeExpressionToValues:values Platypus.PltNegativeExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltNegativeExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltTypedExpression Platypus Platypus.PltSimpleUnaryExpression false none domain Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltTypedExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltTypedExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltTypedExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltTypedExpression <ISO10303-11-EXPRESS> ENTITY typed_expression SUBTYPE OF ( simple_unary_expression ); domain : named_type_reference; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltTypedExpression platypus-generated-initializing stepInitialize super stepInitialize. domain := nil. Platypus.PltTypedExpression platypus-generated-classifying isPltTypedExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltTypedExpression ^ false Platypus.PltTypedExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptTypedExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptTypedExpression: e "my subclasses have to redefine it" Platypus.PltTypedExpression platypus-generated-copying typedExpressionCopyTo:another another fastSetDomain: (self domain). Platypus.PltTypedExpression platypus-generated-copying pltLocalCopyTo: another self typedExpressionCopyTo:another Platypus.PltTypedExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self typedExpressionCopyTo: another. Platypus.PltTypedExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltTypedExpression platypus-generated-group-accessing typedExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setDomain:valuesloc removeFirst. ^ valuesloc Platypus.PltTypedExpression platypus-generated-group-accessing typedExpressionToValues:values values add: (self domain). ^ values Platypus.PltTypedExpression platypus-generated-group-accessing toValues:values ^ self typedExpressionToValues: (super toValues: values) Platypus.PltTypedExpression platypus-generated-group-accessing fromValues:values ^ self typedExpressionFromValues: (super fromValues: values) Platypus.PltTypedExpression platypus-generated-group-accessing localFromValues: values ^ self typedExpressionFromValues:values Platypus.PltTypedExpression platypus-generated-group-accessing localToValues: values ^ self typedExpressionToValues:values Platypus.PltTypedExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltTypedExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltTypedExpression platypus-generated-accessing domain ^domain Platypus.PltTypedExpression platypus-generated-set-accessing setDomain:aPltNamedTypeReference self domain:aPltNamedTypeReference Platypus.PltTypedExpression platypus-generated-accessing domain:aPltNamedTypeReference domain := aPltNamedTypeReference Platypus.PltTypedExpression platypus-generated-fast-set-accessing fastSetDomain:aPltNamedTypeReference domain := aPltNamedTypeReference Platypus.PltTypedExpression platypus-generated-with-context-accessing domainUsingContext:aContext ^ self domain Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltQualifier Platypus Platypus.PltUnaryExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltQualifier class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltQualifier class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltQualifier class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltQualifier <ISO10303-11-EXPRESS> ENTITY qualifier ABSTRACT SUPERTYPE SUBTYPE OF ( unary_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltQualifier platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltQualifier platypus-generated-classifying isPltQualifier ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltQualifier ^ false Platypus.PltQualifier platypus-generated-visiting accept: aVisitor ^ aVisitor acceptQualifier: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptQualifier: e "my subclasses have to redefine it" Platypus.PltQualifier platypus-generated-copying qualifierCopyTo:another Platypus.PltQualifier platypus-generated-copying pltLocalCopyTo: another self qualifierCopyTo:another Platypus.PltQualifier platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self qualifierCopyTo: another. Platypus.PltQualifier platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltQualifier platypus-generated-group-accessing qualifierFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltQualifier platypus-generated-group-accessing qualifierToValues:values ^ values Platypus.PltQualifier platypus-generated-group-accessing toValues:values ^ self qualifierToValues: (super toValues: values) Platypus.PltQualifier platypus-generated-group-accessing fromValues:values ^ self qualifierFromValues: (super fromValues: values) Platypus.PltQualifier platypus-generated-group-accessing localFromValues: values ^ self qualifierFromValues:values Platypus.PltQualifier platypus-generated-group-accessing localToValues: values ^ self qualifierToValues:values Platypus.PltQualifier class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltQualifier class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton PltEnumerationValue Platypus Platypus.PltQualifier false none domain element Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltEnumerationValue class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltEnumerationValue class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltEnumerationValue class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltEnumerationValue <ISO10303-11-EXPRESS> ENTITY enumeration_value SUBTYPE OF ( qualifier ); domain : defined_type_reference; element : STRING; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltEnumerationValue platypus-generated-initializing stepInitialize super stepInitialize. domain := nil. element := ''. Platypus.PltEnumerationValue platypus-generated-classifying isPltEnumerationValue ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltEnumerationValue ^ false Platypus.PltEnumerationValue platypus-generated-visiting accept: aVisitor ^ aVisitor acceptEnumerationValue: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptEnumerationValue: e "my subclasses have to redefine it" Platypus.PltEnumerationValue platypus-generated-copying enumerationValueCopyTo:another another fastSetDomain: (self domain). another fastSetElement: (self element). Platypus.PltEnumerationValue platypus-generated-copying pltLocalCopyTo: another self enumerationValueCopyTo:another Platypus.PltEnumerationValue platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self enumerationValueCopyTo: another. Platypus.PltEnumerationValue platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltEnumerationValue platypus-generated-group-accessing enumerationValueFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setDomain:valuesloc removeFirst. self setElement:valuesloc removeFirst. ^ valuesloc Platypus.PltEnumerationValue platypus-generated-group-accessing enumerationValueToValues:values values add: (self domain). values add: (self element). ^ values Platypus.PltEnumerationValue platypus-generated-group-accessing toValues:values ^ self enumerationValueToValues: (super toValues: values) Platypus.PltEnumerationValue platypus-generated-group-accessing fromValues:values ^ self enumerationValueFromValues: (super fromValues: values) Platypus.PltEnumerationValue platypus-generated-group-accessing localFromValues: values ^ self enumerationValueFromValues:values Platypus.PltEnumerationValue platypus-generated-group-accessing localToValues: values ^ self enumerationValueToValues:values Platypus.PltEnumerationValue class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltEnumerationValue class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltEnumerationValue platypus-generated-accessing domain ^domain Platypus.PltEnumerationValue platypus-generated-set-accessing setDomain:aPltDefinedTypeReference self domain:aPltDefinedTypeReference Platypus.PltEnumerationValue platypus-generated-accessing domain:aPltDefinedTypeReference domain := aPltDefinedTypeReference Platypus.PltEnumerationValue platypus-generated-fast-set-accessing fastSetDomain:aPltDefinedTypeReference domain := aPltDefinedTypeReference Platypus.PltEnumerationValue platypus-generated-with-context-accessing domainUsingContext:aContext ^ self domain Platypus.PltEnumerationValue platypus-generated-accessing element ^element Platypus.PltEnumerationValue platypus-generated-set-accessing setElement:aString self element:aString Platypus.PltEnumerationValue platypus-generated-accessing element:aString element := aString Platypus.PltEnumerationValue platypus-generated-fast-set-accessing fastSetElement:aString element := aString Platypus.PltEnumerationValue platypus-generated-with-context-accessing elementUsingContext:aContext ^ self element Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltEntityInstancesSet Platypus Platypus.PltUnaryExpression false none entityRef Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltEntityInstancesSet class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltEntityInstancesSet class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltEntityInstancesSet class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltEntityInstancesSet <ISO10303-11-EXPRESS> ENTITY entity_instances_set SUBTYPE OF ( unary_expression ); entity_ref : entity_definition_reference; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltEntityInstancesSet platypus-generated-initializing stepInitialize super stepInitialize. entityRef := nil. Platypus.PltEntityInstancesSet platypus-generated-classifying isPltEntityInstancesSet ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltEntityInstancesSet ^ false Platypus.PltEntityInstancesSet platypus-generated-visiting accept: aVisitor ^ aVisitor acceptEntityInstancesSet: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptEntityInstancesSet: e "my subclasses have to redefine it" Platypus.PltEntityInstancesSet platypus-generated-copying entityInstancesSetCopyTo:another another fastSetEntityRef: (self entityRef). Platypus.PltEntityInstancesSet platypus-generated-copying pltLocalCopyTo: another self entityInstancesSetCopyTo:another Platypus.PltEntityInstancesSet platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self entityInstancesSetCopyTo: another. Platypus.PltEntityInstancesSet platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltEntityInstancesSet platypus-generated-group-accessing entityInstancesSetFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setEntityRef:valuesloc removeFirst. ^ valuesloc Platypus.PltEntityInstancesSet platypus-generated-group-accessing entityInstancesSetToValues:values values add: (self entityRef). ^ values Platypus.PltEntityInstancesSet platypus-generated-group-accessing toValues:values ^ self entityInstancesSetToValues: (super toValues: values) Platypus.PltEntityInstancesSet platypus-generated-group-accessing fromValues:values ^ self entityInstancesSetFromValues: (super fromValues: values) Platypus.PltEntityInstancesSet platypus-generated-group-accessing localFromValues: values ^ self entityInstancesSetFromValues:values Platypus.PltEntityInstancesSet platypus-generated-group-accessing localToValues: values ^ self entityInstancesSetToValues:values Platypus.PltEntityInstancesSet class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltEntityInstancesSet class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltEntityInstancesSet platypus-generated-accessing entityRef ^entityRef Platypus.PltEntityInstancesSet platypus-generated-set-accessing setEntityRef:aPltEntityDefinitionReference self entityRef:aPltEntityDefinitionReference Platypus.PltEntityInstancesSet platypus-generated-accessing entityRef:aPltEntityDefinitionReference entityRef := aPltEntityDefinitionReference Platypus.PltEntityInstancesSet platypus-generated-fast-set-accessing fastSetEntityRef:aPltEntityDefinitionReference entityRef := aPltEntityDefinitionReference Platypus.PltEntityInstancesSet platypus-generated-with-context-accessing entityRefUsingContext:aContext ^ self entityRef Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltQualifiedExpression Platypus Platypus.PltUnaryExpression false none qualifiers head Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltQualifiedExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltQualifiedExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltQualifiedExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltQualifiedExpression <ISO10303-11-EXPRESS> ENTITY qualified_expression SUBTYPE OF ( unary_expression ); head : expression; qualifiers : LIST OF qualifier; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltQualifiedExpression platypus-generated-initializing stepInitialize super stepInitialize. head := nil. qualifiers := OrderedCollection new. Platypus.PltQualifiedExpression platypus-generated-classifying isPltQualifiedExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltQualifiedExpression ^ false Platypus.PltQualifiedExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptQualifiedExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptQualifiedExpression: e "my subclasses have to redefine it" Platypus.PltQualifiedExpression platypus-generated-copying qualifiedExpressionCopyTo:another another fastSetHead: (self head). another fastSetQualifiers: (self qualifiers). Platypus.PltQualifiedExpression platypus-generated-copying pltLocalCopyTo: another self qualifiedExpressionCopyTo:another Platypus.PltQualifiedExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self qualifiedExpressionCopyTo: another. Platypus.PltQualifiedExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltQualifiedExpression platypus-generated-group-accessing qualifiedExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setHead:valuesloc removeFirst. self setQualifiers:valuesloc removeFirst. ^ valuesloc Platypus.PltQualifiedExpression platypus-generated-group-accessing qualifiedExpressionToValues:values values add: (self head). values add: (self qualifiers). ^ values Platypus.PltQualifiedExpression platypus-generated-group-accessing toValues:values ^ self qualifiedExpressionToValues: (super toValues: values) Platypus.PltQualifiedExpression platypus-generated-group-accessing fromValues:values ^ self qualifiedExpressionFromValues: (super fromValues: values) Platypus.PltQualifiedExpression platypus-generated-group-accessing localFromValues: values ^ self qualifiedExpressionFromValues:values Platypus.PltQualifiedExpression platypus-generated-group-accessing localToValues: values ^ self qualifiedExpressionToValues:values Platypus.PltQualifiedExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltQualifiedExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltQualifiedExpression platypus-generated-accessing head ^head Platypus.PltQualifiedExpression platypus-generated-set-accessing setHead:aPltExpression self head:aPltExpression Platypus.PltQualifiedExpression platypus-generated-accessing head:aPltExpression head := aPltExpression Platypus.PltQualifiedExpression platypus-generated-fast-set-accessing fastSetHead:aPltExpression head := aPltExpression Platypus.PltQualifiedExpression platypus-generated-with-context-accessing headUsingContext:aContext ^ self head Platypus.PltQualifiedExpression platypus-generated-accessing qualifiers ^qualifiers Platypus.PltQualifiedExpression platypus-generated-set-accessing setQualifiers:aListOfPltQualifier self qualifiers:aListOfPltQualifier Platypus.PltQualifiedExpression platypus-generated-accessing qualifiers:aListOfPltQualifier qualifiers := aListOfPltQualifier ifNil: [OrderedCollection new] ifNotNil: [aListOfPltQualifier as: OrderedCollection] Platypus.PltQualifiedExpression platypus-generated-fast-set-accessing fastSetQualifiers:aListOfPltQualifier qualifiers := aListOfPltQualifier Platypus.PltQualifiedExpression platypus-generated-with-context-accessing qualifiersUsingContext:aContext ^ self qualifiers Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltLiteral Platypus Platypus.PltUnaryExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltLiteral class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltLiteral class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltLiteral class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltLiteral <ISO10303-11-EXPRESS> ENTITY literal ABSTRACT SUPERTYPE SUBTYPE OF ( unary_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltLiteral platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltLiteral platypus-generated-classifying isPltLiteral ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltLiteral ^ false Platypus.PltLiteral platypus-generated-visiting accept: aVisitor ^ aVisitor acceptLiteral: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptLiteral: e "my subclasses have to redefine it" Platypus.PltLiteral platypus-generated-copying literalCopyTo:another Platypus.PltLiteral platypus-generated-copying pltLocalCopyTo: another self literalCopyTo:another Platypus.PltLiteral platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self literalCopyTo: another. Platypus.PltLiteral platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltLiteral platypus-generated-group-accessing literalFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltLiteral platypus-generated-group-accessing literalToValues:values ^ values Platypus.PltLiteral platypus-generated-group-accessing toValues:values ^ self literalToValues: (super toValues: values) Platypus.PltLiteral platypus-generated-group-accessing fromValues:values ^ self literalFromValues: (super fromValues: values) Platypus.PltLiteral platypus-generated-group-accessing localFromValues: values ^ self literalFromValues:values Platypus.PltLiteral platypus-generated-group-accessing localToValues: values ^ self literalToValues:values Platypus.PltLiteral class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltLiteral class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltIdentifier Platypus Platypus.PltUnaryExpression false none name contextsStack parameters ref Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltIdentifier class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltIdentifier class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltIdentifier class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltIdentifier <ISO10303-11-EXPRESS> ENTITY identifier SUBTYPE OF ( unary_expression ); name : STRING; ref : dictionary_instance; parameters : OPTIONAL LIST OF expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltIdentifier platypus-generated-initializing stepInitialize super stepInitialize. name := ''. ref := nil. parameters := nil. Platypus.PltIdentifier platypus-generated-classifying isPltIdentifier ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltIdentifier ^ false Platypus.PltIdentifier platypus-generated-visiting accept: aVisitor ^ aVisitor acceptIdentifier: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptIdentifier: e "my subclasses have to redefine it" Platypus.PltIdentifier platypus-generated-copying identifierCopyTo:another another fastSetName: (self name). another fastSetRef: (self ref). another fastSetParameters: (self parameters). Platypus.PltIdentifier platypus-generated-copying pltLocalCopyTo: another self identifierCopyTo:another Platypus.PltIdentifier platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self identifierCopyTo: another. Platypus.PltIdentifier platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltIdentifier platypus-generated-group-accessing identifierFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setName:valuesloc removeFirst. self setRef:valuesloc removeFirst. self setParameters:valuesloc removeFirst. ^ valuesloc Platypus.PltIdentifier platypus-generated-group-accessing identifierToValues:values values add: (self name). values add: (self ref). values add: (self parameters). ^ values Platypus.PltIdentifier platypus-generated-group-accessing toValues:values ^ self identifierToValues: (super toValues: values) Platypus.PltIdentifier platypus-generated-group-accessing fromValues:values ^ self identifierFromValues: (super fromValues: values) Platypus.PltIdentifier platypus-generated-group-accessing localFromValues: values ^ self identifierFromValues:values Platypus.PltIdentifier platypus-generated-group-accessing localToValues: values ^ self identifierToValues:values Platypus.PltIdentifier class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltIdentifier class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltIdentifier platypus-generated-accessing name ^name Platypus.PltIdentifier platypus-generated-set-accessing setName:aString self name:aString Platypus.PltIdentifier platypus-generated-accessing name:aString name := aString Platypus.PltIdentifier platypus-generated-fast-set-accessing fastSetName:aString name := aString Platypus.PltIdentifier platypus-generated-with-context-accessing nameUsingContext:aContext ^ self name Platypus.PltIdentifier platypus-generated-accessing ref ^ref Platypus.PltIdentifier platypus-generated-set-accessing setRef:aPltDictionaryInstance self ref:aPltDictionaryInstance Platypus.PltIdentifier platypus-generated-accessing ref:aPltDictionaryInstance ref := aPltDictionaryInstance Platypus.PltIdentifier platypus-generated-fast-set-accessing fastSetRef:aPltDictionaryInstance ref := aPltDictionaryInstance Platypus.PltIdentifier platypus-generated-with-context-accessing refUsingContext:aContext ^ self ref Platypus.PltIdentifier platypus-generated-accessing parameters ^parameters Platypus.PltIdentifier platypus-generated-set-accessing setParameters:aListOfPltExpression self parameters:aListOfPltExpression Platypus.PltIdentifier platypus-generated-accessing parameters:aListOfPltExpression parameters := aListOfPltExpression ifNil: [OrderedCollection new] ifNotNil: [aListOfPltExpression as: OrderedCollection] Platypus.PltIdentifier platypus-generated-fast-set-accessing fastSetParameters:aListOfPltExpression parameters := aListOfPltExpression Platypus.PltIdentifier platypus-generated-with-context-accessing parametersUsingContext:aContext ^ self parameters Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAttributeIdentifier Platypus Platypus.PltIdentifier false none selfInstance Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltAttributeIdentifier class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAttributeIdentifier class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAttributeIdentifier class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAttributeIdentifier <ISO10303-11-EXPRESS> ENTITY attribute_identifier SUBTYPE OF ( identifier ); selfInstance : generic_instance; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAttributeIdentifier platypus-generated-initializing stepInitialize super stepInitialize. selfInstance := nil. Platypus.PltAttributeIdentifier platypus-generated-classifying isPltAttributeIdentifier ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltAttributeIdentifier ^ false Platypus.PltAttributeIdentifier platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAttributeIdentifier: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptAttributeIdentifier: e "my subclasses have to redefine it" Platypus.PltAttributeIdentifier platypus-generated-copying attributeIdentifierCopyTo:another another fastSetSelfInstance: (self selfInstance). Platypus.PltAttributeIdentifier platypus-generated-copying pltLocalCopyTo: another self attributeIdentifierCopyTo:another Platypus.PltAttributeIdentifier platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self attributeIdentifierCopyTo: another. Platypus.PltAttributeIdentifier platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAttributeIdentifier platypus-generated-group-accessing attributeIdentifierFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setSelfInstance:valuesloc removeFirst. ^ valuesloc Platypus.PltAttributeIdentifier platypus-generated-group-accessing attributeIdentifierToValues:values values add: (self selfInstance). ^ values Platypus.PltAttributeIdentifier platypus-generated-group-accessing toValues:values ^ self attributeIdentifierToValues: (super toValues: values) Platypus.PltAttributeIdentifier platypus-generated-group-accessing fromValues:values ^ self attributeIdentifierFromValues: (super fromValues: values) Platypus.PltAttributeIdentifier platypus-generated-group-accessing localFromValues: values ^ self attributeIdentifierFromValues:values Platypus.PltAttributeIdentifier platypus-generated-group-accessing localToValues: values ^ self attributeIdentifierToValues:values Platypus.PltAttributeIdentifier class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltAttributeIdentifier class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAttributeIdentifier platypus-generated-accessing selfInstance ^selfInstance Platypus.PltAttributeIdentifier platypus-generated-set-accessing setSelfInstance:aPltGenericInstance self selfInstance:aPltGenericInstance Platypus.PltAttributeIdentifier platypus-generated-accessing selfInstance:aPltGenericInstance selfInstance := aPltGenericInstance Platypus.PltAttributeIdentifier platypus-generated-fast-set-accessing fastSetSelfInstance:aPltGenericInstance selfInstance := aPltGenericInstance Platypus.PltAttributeIdentifier platypus-generated-with-context-accessing selfInstanceUsingContext:aContext ^ self selfInstance Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltSelfIdentifier Platypus Platypus.PltUnaryExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltSelfIdentifier class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSelfIdentifier class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSelfIdentifier class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSelfIdentifier <ISO10303-11-EXPRESS> ENTITY self_identifier SUBTYPE OF ( unary_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSelfIdentifier platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltSelfIdentifier platypus-generated-classifying isPltSelfIdentifier ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltSelfIdentifier ^ false Platypus.PltSelfIdentifier platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSelfIdentifier: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptSelfIdentifier: e "my subclasses have to redefine it" Platypus.PltSelfIdentifier platypus-generated-copying selfIdentifierCopyTo:another Platypus.PltSelfIdentifier platypus-generated-copying pltLocalCopyTo: another self selfIdentifierCopyTo:another Platypus.PltSelfIdentifier platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self selfIdentifierCopyTo: another. Platypus.PltSelfIdentifier platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSelfIdentifier platypus-generated-group-accessing selfIdentifierFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltSelfIdentifier platypus-generated-group-accessing selfIdentifierToValues:values ^ values Platypus.PltSelfIdentifier platypus-generated-group-accessing toValues:values ^ self selfIdentifierToValues: (super toValues: values) Platypus.PltSelfIdentifier platypus-generated-group-accessing fromValues:values ^ self selfIdentifierFromValues: (super fromValues: values) Platypus.PltSelfIdentifier platypus-generated-group-accessing localFromValues: values ^ self selfIdentifierFromValues:values Platypus.PltSelfIdentifier platypus-generated-group-accessing localToValues: values ^ self selfIdentifierToValues:values Platypus.PltSelfIdentifier class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltSelfIdentifier class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltUniquenessRuleAttributeIdentifier Platypus Platypus.PltIdentifier false none groupRefName Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltUniquenessRuleAttributeIdentifier class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltUniquenessRuleAttributeIdentifier class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltUniquenessRuleAttributeIdentifier class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltUniquenessRuleAttributeIdentifier <ISO10303-11-EXPRESS> ENTITY uniqueness_rule_attribute_identifier SUBTYPE OF ( identifier ); group_ref_name : OPTIONAL STRING; SELF\identifier.ref : attribute; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-initializing stepInitialize super stepInitialize. groupRefName := nil. ref := nil. Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-classifying isPltUniquenessRuleAttributeIdentifier ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltUniquenessRuleAttributeIdentifier ^ false Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-visiting accept: aVisitor ^ aVisitor acceptUniquenessRuleAttributeIdentifier: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptUniquenessRuleAttributeIdentifier: e "my subclasses have to redefine it" Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-copying uniquenessRuleAttributeIdentifierCopyTo:another another fastSetGroupRefName: (self groupRefName). another fastSetRef: (self ref). Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-copying pltLocalCopyTo: another self uniquenessRuleAttributeIdentifierCopyTo:another Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self uniquenessRuleAttributeIdentifierCopyTo: another. Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-group-accessing uniquenessRuleAttributeIdentifierFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setGroupRefName:valuesloc removeFirst. self setRef:valuesloc removeFirst. ^ valuesloc Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-group-accessing uniquenessRuleAttributeIdentifierToValues:values values add: (self groupRefName). values add: (self ref). ^ values Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-group-accessing toValues:values ^ self uniquenessRuleAttributeIdentifierToValues: (super toValues: values) Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-group-accessing fromValues:values ^ self uniquenessRuleAttributeIdentifierFromValues: (super fromValues: values) Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-group-accessing localFromValues: values ^ self uniquenessRuleAttributeIdentifierFromValues:values Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-group-accessing localToValues: values ^ self uniquenessRuleAttributeIdentifierToValues:values Platypus.PltUniquenessRuleAttributeIdentifier class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltUniquenessRuleAttributeIdentifier class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-accessing groupRefName ^groupRefName Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-set-accessing setGroupRefName:aString self groupRefName:aString Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-accessing groupRefName:aString groupRefName := aString Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-fast-set-accessing fastSetGroupRefName:aString groupRefName := aString Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-with-context-accessing groupRefNameUsingContext:aContext ^ self groupRefName Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-accessing ref ^ref Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-set-accessing setRef:aPltAttribute self ref:aPltAttribute Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-accessing ref:aPltAttribute ref := aPltAttribute Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-fast-set-accessing fastSetRef:aPltAttribute ref := aPltAttribute Platypus.PltUniquenessRuleAttributeIdentifier platypus-generated-with-context-accessing refUsingContext:aContext ^ self ref Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltMissingValue Platypus Platypus.PltUnaryExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltMissingValue class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltMissingValue class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltMissingValue class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltMissingValue <ISO10303-11-EXPRESS> ENTITY missing_value SUBTYPE OF ( unary_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltMissingValue platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltMissingValue platypus-generated-classifying isPltMissingValue ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltMissingValue ^ false Platypus.PltMissingValue platypus-generated-visiting accept: aVisitor ^ aVisitor acceptMissingValue: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptMissingValue: e "my subclasses have to redefine it" Platypus.PltMissingValue platypus-generated-copying missingValueCopyTo:another Platypus.PltMissingValue platypus-generated-copying pltLocalCopyTo: another self missingValueCopyTo:another Platypus.PltMissingValue platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self missingValueCopyTo: another. Platypus.PltMissingValue platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltMissingValue platypus-generated-group-accessing missingValueFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltMissingValue platypus-generated-group-accessing missingValueToValues:values ^ values Platypus.PltMissingValue platypus-generated-group-accessing toValues:values ^ self missingValueToValues: (super toValues: values) Platypus.PltMissingValue platypus-generated-group-accessing fromValues:values ^ self missingValueFromValues: (super fromValues: values) Platypus.PltMissingValue platypus-generated-group-accessing localFromValues: values ^ self missingValueFromValues:values Platypus.PltMissingValue platypus-generated-group-accessing localToValues: values ^ self missingValueToValues:values Platypus.PltMissingValue class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltMissingValue class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltRedefinedAttributeValue Platypus Platypus.PltMissingValue false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltRedefinedAttributeValue class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltRedefinedAttributeValue class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltRedefinedAttributeValue class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltRedefinedAttributeValue <ISO10303-11-EXPRESS> ENTITY redefined_attribute_value SUBTYPE OF ( missing_value ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltRedefinedAttributeValue platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltRedefinedAttributeValue platypus-generated-classifying isPltRedefinedAttributeValue ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltRedefinedAttributeValue ^ false Platypus.PltRedefinedAttributeValue platypus-generated-visiting accept: aVisitor ^ aVisitor acceptRedefinedAttributeValue: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptRedefinedAttributeValue: e "my subclasses have to redefine it" Platypus.PltRedefinedAttributeValue platypus-generated-copying redefinedAttributeValueCopyTo:another Platypus.PltRedefinedAttributeValue platypus-generated-copying pltLocalCopyTo: another self redefinedAttributeValueCopyTo:another Platypus.PltRedefinedAttributeValue platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self redefinedAttributeValueCopyTo: another. Platypus.PltRedefinedAttributeValue platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltRedefinedAttributeValue platypus-generated-group-accessing redefinedAttributeValueFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltRedefinedAttributeValue platypus-generated-group-accessing redefinedAttributeValueToValues:values ^ values Platypus.PltRedefinedAttributeValue platypus-generated-group-accessing toValues:values ^ self redefinedAttributeValueToValues: (super toValues: values) Platypus.PltRedefinedAttributeValue platypus-generated-group-accessing fromValues:values ^ self redefinedAttributeValueFromValues: (super fromValues: values) Platypus.PltRedefinedAttributeValue platypus-generated-group-accessing localFromValues: values ^ self redefinedAttributeValueFromValues:values Platypus.PltRedefinedAttributeValue platypus-generated-group-accessing localToValues: values ^ self redefinedAttributeValueToValues:values Platypus.PltRedefinedAttributeValue class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltRedefinedAttributeValue class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltImplicitlyDeclaredIdentifier Platypus Platypus.PltIdentifier false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltImplicitlyDeclaredIdentifier class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltImplicitlyDeclaredIdentifier class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltImplicitlyDeclaredIdentifier class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltImplicitlyDeclaredIdentifier <ISO10303-11-EXPRESS> ENTITY implicitly_declared_identifier SUBTYPE OF ( identifier ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltImplicitlyDeclaredIdentifier platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltImplicitlyDeclaredIdentifier platypus-generated-classifying isPltImplicitlyDeclaredIdentifier ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltImplicitlyDeclaredIdentifier ^ false Platypus.PltImplicitlyDeclaredIdentifier platypus-generated-visiting accept: aVisitor ^ aVisitor acceptImplicitlyDeclaredIdentifier: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptImplicitlyDeclaredIdentifier: e "my subclasses have to redefine it" Platypus.PltImplicitlyDeclaredIdentifier platypus-generated-copying implicitlyDeclaredIdentifierCopyTo:another Platypus.PltImplicitlyDeclaredIdentifier platypus-generated-copying pltLocalCopyTo: another self implicitlyDeclaredIdentifierCopyTo:another Platypus.PltImplicitlyDeclaredIdentifier platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self implicitlyDeclaredIdentifierCopyTo: another. Platypus.PltImplicitlyDeclaredIdentifier platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltImplicitlyDeclaredIdentifier platypus-generated-group-accessing implicitlyDeclaredIdentifierFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltImplicitlyDeclaredIdentifier platypus-generated-group-accessing implicitlyDeclaredIdentifierToValues:values ^ values Platypus.PltImplicitlyDeclaredIdentifier platypus-generated-group-accessing toValues:values ^ self implicitlyDeclaredIdentifierToValues: (super toValues: values) Platypus.PltImplicitlyDeclaredIdentifier platypus-generated-group-accessing fromValues:values ^ self implicitlyDeclaredIdentifierFromValues: (super fromValues: values) Platypus.PltImplicitlyDeclaredIdentifier platypus-generated-group-accessing localFromValues: values ^ self implicitlyDeclaredIdentifierFromValues:values Platypus.PltImplicitlyDeclaredIdentifier platypus-generated-group-accessing localToValues: values ^ self implicitlyDeclaredIdentifierToValues:values Platypus.PltImplicitlyDeclaredIdentifier class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltImplicitlyDeclaredIdentifier class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltInterval Platypus Platypus.PltUnaryExpression false none expr Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltInterval class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltInterval class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltInterval class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltInterval <ISO10303-11-EXPRESS> ENTITY interval SUBTYPE OF ( unary_expression ); expr : and_expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltInterval platypus-generated-initializing stepInitialize super stepInitialize. expr := nil. Platypus.PltInterval platypus-generated-classifying isPltInterval ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltInterval ^ false Platypus.PltInterval platypus-generated-visiting accept: aVisitor ^ aVisitor acceptInterval: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptInterval: e "my subclasses have to redefine it" Platypus.PltInterval platypus-generated-copying intervalCopyTo:another another fastSetExpr: (self expr). Platypus.PltInterval platypus-generated-copying pltLocalCopyTo: another self intervalCopyTo:another Platypus.PltInterval platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self intervalCopyTo: another. Platypus.PltInterval platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltInterval platypus-generated-group-accessing intervalFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setExpr:valuesloc removeFirst. ^ valuesloc Platypus.PltInterval platypus-generated-group-accessing intervalToValues:values values add: (self expr). ^ values Platypus.PltInterval platypus-generated-group-accessing toValues:values ^ self intervalToValues: (super toValues: values) Platypus.PltInterval platypus-generated-group-accessing fromValues:values ^ self intervalFromValues: (super fromValues: values) Platypus.PltInterval platypus-generated-group-accessing localFromValues: values ^ self intervalFromValues:values Platypus.PltInterval platypus-generated-group-accessing localToValues: values ^ self intervalToValues:values Platypus.PltInterval class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltInterval class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltInterval platypus-generated-accessing expr ^expr Platypus.PltInterval platypus-generated-set-accessing setExpr:aPltAndExpression self expr:aPltAndExpression Platypus.PltInterval platypus-generated-accessing expr:aPltAndExpression expr := aPltAndExpression Platypus.PltInterval platypus-generated-fast-set-accessing fastSetExpr:aPltAndExpression expr := aPltAndExpression Platypus.PltInterval platypus-generated-with-context-accessing exprUsingContext:aContext ^ self expr Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAggrUnaryExpression Platypus Platypus.PltUnaryExpression false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltAggrUnaryExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAggrUnaryExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAggrUnaryExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAggrUnaryExpression <ISO10303-11-EXPRESS> ENTITY aggr_unary_expression ABSTRACT SUPERTYPE SUBTYPE OF ( unary_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAggrUnaryExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltAggrUnaryExpression platypus-generated-classifying isPltAggrUnaryExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltAggrUnaryExpression ^ false Platypus.PltAggrUnaryExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAggrUnaryExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptAggrUnaryExpression: e "my subclasses have to redefine it" Platypus.PltAggrUnaryExpression platypus-generated-copying aggrUnaryExpressionCopyTo:another Platypus.PltAggrUnaryExpression platypus-generated-copying pltLocalCopyTo: another self aggrUnaryExpressionCopyTo:another Platypus.PltAggrUnaryExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self aggrUnaryExpressionCopyTo: another. Platypus.PltAggrUnaryExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAggrUnaryExpression platypus-generated-group-accessing aggrUnaryExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltAggrUnaryExpression platypus-generated-group-accessing aggrUnaryExpressionToValues:values ^ values Platypus.PltAggrUnaryExpression platypus-generated-group-accessing toValues:values ^ self aggrUnaryExpressionToValues: (super toValues: values) Platypus.PltAggrUnaryExpression platypus-generated-group-accessing fromValues:values ^ self aggrUnaryExpressionFromValues: (super fromValues: values) Platypus.PltAggrUnaryExpression platypus-generated-group-accessing localFromValues: values ^ self aggrUnaryExpressionFromValues:values Platypus.PltAggrUnaryExpression platypus-generated-group-accessing localToValues: values ^ self aggrUnaryExpressionToValues:values Platypus.PltAggrUnaryExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltAggrUnaryExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltQueryVariable Platypus Platypus.PltDictionaryInstance false none variableId Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltQueryVariable class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltQueryVariable class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltQueryVariable class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltQueryVariable <ISO10303-11-EXPRESS> ENTITY query_variable SUBTYPE OF ( dictionary_instance ); variable_id : STRING; SELF\entity_instance.owner : query_expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltQueryVariable platypus-generated-initializing stepInitialize super stepInitialize. variableId := ''. owner := nil. Platypus.PltQueryVariable platypus-generated-classifying isPltQueryVariable ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltQueryVariable ^ false Platypus.PltQueryVariable platypus-generated-visiting accept: aVisitor ^ aVisitor acceptQueryVariable: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptQueryVariable: e "my subclasses have to redefine it" Platypus.PltQueryVariable platypus-generated-copying queryVariableCopyTo:another another fastSetVariableId: (self variableId). another fastSetOwner: (self owner). Platypus.PltQueryVariable platypus-generated-copying pltLocalCopyTo: another self queryVariableCopyTo:another Platypus.PltQueryVariable platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self queryVariableCopyTo: another. Platypus.PltQueryVariable platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltQueryVariable platypus-generated-group-accessing queryVariableFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setVariableId:valuesloc removeFirst. self setOwner:valuesloc removeFirst. ^ valuesloc Platypus.PltQueryVariable platypus-generated-group-accessing queryVariableToValues:values values add: (self variableId). values add: (self owner). ^ values Platypus.PltQueryVariable platypus-generated-group-accessing toValues:values ^ self queryVariableToValues: (super toValues: values) Platypus.PltQueryVariable platypus-generated-group-accessing fromValues:values ^ self queryVariableFromValues: (super fromValues: values) Platypus.PltQueryVariable platypus-generated-group-accessing localFromValues: values ^ self queryVariableFromValues:values Platypus.PltQueryVariable platypus-generated-group-accessing localToValues: values ^ self queryVariableToValues:values Platypus.PltQueryVariable class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltQueryVariable class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltQueryVariable platypus-generated-accessing variableId ^variableId Platypus.PltQueryVariable platypus-generated-set-accessing setVariableId:aString self variableId:aString Platypus.PltQueryVariable platypus-generated-accessing variableId:aString variableId := aString Platypus.PltQueryVariable platypus-generated-fast-set-accessing fastSetVariableId:aString variableId := aString Platypus.PltQueryVariable platypus-generated-with-context-accessing variableIdUsingContext:aContext ^ self variableId Platypus.PltQueryVariable platypus-generated-accessing owner ^owner Platypus.PltQueryVariable platypus-generated-set-accessing setOwner:aPltQueryExpression self owner:aPltQueryExpression Platypus.PltQueryVariable platypus-generated-accessing owner:aPltQueryExpression owner := aPltQueryExpression Platypus.PltQueryVariable platypus-generated-fast-set-accessing fastSetOwner:aPltQueryExpression owner := aPltQueryExpression Platypus.PltQueryVariable platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltQueryExpression Platypus Platypus.PltAggrUnaryExpression false none identifiersCache variable suchThat aggregateSource Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltQueryExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltQueryExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltQueryExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltQueryExpression <ISO10303-11-EXPRESS> ENTITY query_expression SUBTYPE OF ( aggr_unary_expression ); variable : query_variable; aggregate_source : expression; such_that : expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltQueryExpression platypus-generated-initializing stepInitialize super stepInitialize. variable := nil. aggregateSource := nil. suchThat := nil. Platypus.PltQueryExpression platypus-generated-classifying isPltQueryExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltQueryExpression ^ false Platypus.PltQueryExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptQueryExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptQueryExpression: e "my subclasses have to redefine it" Platypus.PltQueryExpression platypus-generated-copying queryExpressionCopyTo:another another fastSetVariable: (self variable). another fastSetAggregateSource: (self aggregateSource). another fastSetSuchThat: (self suchThat). Platypus.PltQueryExpression platypus-generated-copying pltLocalCopyTo: another self queryExpressionCopyTo:another Platypus.PltQueryExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self queryExpressionCopyTo: another. Platypus.PltQueryExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltQueryExpression platypus-generated-group-accessing queryExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setVariable:valuesloc removeFirst. self setAggregateSource:valuesloc removeFirst. self setSuchThat:valuesloc removeFirst. ^ valuesloc Platypus.PltQueryExpression platypus-generated-group-accessing queryExpressionToValues:values values add: (self variable). values add: (self aggregateSource). values add: (self suchThat). ^ values Platypus.PltQueryExpression platypus-generated-group-accessing toValues:values ^ self queryExpressionToValues: (super toValues: values) Platypus.PltQueryExpression platypus-generated-group-accessing fromValues:values ^ self queryExpressionFromValues: (super fromValues: values) Platypus.PltQueryExpression platypus-generated-group-accessing localFromValues: values ^ self queryExpressionFromValues:values Platypus.PltQueryExpression platypus-generated-group-accessing localToValues: values ^ self queryExpressionToValues:values Platypus.PltQueryExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltQueryExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltQueryExpression platypus-generated-accessing variable ^variable Platypus.PltQueryExpression platypus-generated-set-accessing setVariable:aPltQueryVariable self variable:aPltQueryVariable Platypus.PltQueryExpression platypus-generated-accessing variable:aPltQueryVariable variable := aPltQueryVariable Platypus.PltQueryExpression platypus-generated-fast-set-accessing fastSetVariable:aPltQueryVariable variable := aPltQueryVariable Platypus.PltQueryExpression platypus-generated-with-context-accessing variableUsingContext:aContext ^ self variable Platypus.PltQueryExpression platypus-generated-accessing aggregateSource ^aggregateSource Platypus.PltQueryExpression platypus-generated-set-accessing setAggregateSource:aPltExpression self aggregateSource:aPltExpression Platypus.PltQueryExpression platypus-generated-accessing aggregateSource:aPltExpression aggregateSource := aPltExpression Platypus.PltQueryExpression platypus-generated-fast-set-accessing fastSetAggregateSource:aPltExpression aggregateSource := aPltExpression Platypus.PltQueryExpression platypus-generated-with-context-accessing aggregateSourceUsingContext:aContext ^ self aggregateSource Platypus.PltQueryExpression platypus-generated-accessing suchThat ^suchThat Platypus.PltQueryExpression platypus-generated-set-accessing setSuchThat:aPltExpression self suchThat:aPltExpression Platypus.PltQueryExpression platypus-generated-accessing suchThat:aPltExpression suchThat := aPltExpression Platypus.PltQueryExpression platypus-generated-fast-set-accessing fastSetSuchThat:aPltExpression suchThat := aPltExpression Platypus.PltQueryExpression platypus-generated-with-context-accessing suchThatUsingContext:aContext ^ self suchThat Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltEntityInstanceConstructor Platypus Platypus.PltUnaryExpression false none decl parameters Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltEntityInstanceConstructor class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltEntityInstanceConstructor class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltEntityInstanceConstructor class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltEntityInstanceConstructor <ISO10303-11-EXPRESS> ENTITY entity_instance_constructor SUBTYPE OF ( unary_expression ); decl : entity_definition_reference; parameters : LIST OF expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltEntityInstanceConstructor platypus-generated-initializing stepInitialize super stepInitialize. decl := nil. parameters := OrderedCollection new. Platypus.PltEntityInstanceConstructor platypus-generated-classifying isPltEntityInstanceConstructor ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltEntityInstanceConstructor ^ false Platypus.PltEntityInstanceConstructor platypus-generated-visiting accept: aVisitor ^ aVisitor acceptEntityInstanceConstructor: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptEntityInstanceConstructor: e "my subclasses have to redefine it" Platypus.PltEntityInstanceConstructor platypus-generated-copying entityInstanceConstructorCopyTo:another another fastSetDecl: (self decl). another fastSetParameters: (self parameters). Platypus.PltEntityInstanceConstructor platypus-generated-copying pltLocalCopyTo: another self entityInstanceConstructorCopyTo:another Platypus.PltEntityInstanceConstructor platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self entityInstanceConstructorCopyTo: another. Platypus.PltEntityInstanceConstructor platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltEntityInstanceConstructor platypus-generated-group-accessing entityInstanceConstructorFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setDecl:valuesloc removeFirst. self setParameters:valuesloc removeFirst. ^ valuesloc Platypus.PltEntityInstanceConstructor platypus-generated-group-accessing entityInstanceConstructorToValues:values values add: (self decl). values add: (self parameters). ^ values Platypus.PltEntityInstanceConstructor platypus-generated-group-accessing toValues:values ^ self entityInstanceConstructorToValues: (super toValues: values) Platypus.PltEntityInstanceConstructor platypus-generated-group-accessing fromValues:values ^ self entityInstanceConstructorFromValues: (super fromValues: values) Platypus.PltEntityInstanceConstructor platypus-generated-group-accessing localFromValues: values ^ self entityInstanceConstructorFromValues:values Platypus.PltEntityInstanceConstructor platypus-generated-group-accessing localToValues: values ^ self entityInstanceConstructorToValues:values Platypus.PltEntityInstanceConstructor class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltEntityInstanceConstructor class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltEntityInstanceConstructor platypus-generated-accessing decl ^decl Platypus.PltEntityInstanceConstructor platypus-generated-set-accessing setDecl:aPltEntityDefinitionReference self decl:aPltEntityDefinitionReference Platypus.PltEntityInstanceConstructor platypus-generated-accessing decl:aPltEntityDefinitionReference decl := aPltEntityDefinitionReference Platypus.PltEntityInstanceConstructor platypus-generated-fast-set-accessing fastSetDecl:aPltEntityDefinitionReference decl := aPltEntityDefinitionReference Platypus.PltEntityInstanceConstructor platypus-generated-with-context-accessing declUsingContext:aContext ^ self decl Platypus.PltEntityInstanceConstructor platypus-generated-accessing parameters ^parameters Platypus.PltEntityInstanceConstructor platypus-generated-set-accessing setParameters:aListOfPltExpression self parameters:aListOfPltExpression Platypus.PltEntityInstanceConstructor platypus-generated-accessing parameters:aListOfPltExpression parameters := aListOfPltExpression ifNil: [OrderedCollection new] ifNotNil: [aListOfPltExpression as: OrderedCollection] Platypus.PltEntityInstanceConstructor platypus-generated-fast-set-accessing fastSetParameters:aListOfPltExpression parameters := aListOfPltExpression Platypus.PltEntityInstanceConstructor platypus-generated-with-context-accessing parametersUsingContext:aContext ^ self parameters Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAttributeQualifier Platypus Platypus.PltQualifier false none attributeName Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltAttributeQualifier class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAttributeQualifier class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAttributeQualifier class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAttributeQualifier <ISO10303-11-EXPRESS> ENTITY attribute_qualifier SUBTYPE OF ( qualifier ); attribute_name : STRING; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAttributeQualifier platypus-generated-initializing stepInitialize super stepInitialize. attributeName := ''. Platypus.PltAttributeQualifier platypus-generated-classifying isPltAttributeQualifier ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltAttributeQualifier ^ false Platypus.PltAttributeQualifier platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAttributeQualifier: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptAttributeQualifier: e "my subclasses have to redefine it" Platypus.PltAttributeQualifier platypus-generated-copying attributeQualifierCopyTo:another another fastSetAttributeName: (self attributeName). Platypus.PltAttributeQualifier platypus-generated-copying pltLocalCopyTo: another self attributeQualifierCopyTo:another Platypus.PltAttributeQualifier platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self attributeQualifierCopyTo: another. Platypus.PltAttributeQualifier platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAttributeQualifier platypus-generated-group-accessing attributeQualifierFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setAttributeName:valuesloc removeFirst. ^ valuesloc Platypus.PltAttributeQualifier platypus-generated-group-accessing attributeQualifierToValues:values values add: (self attributeName). ^ values Platypus.PltAttributeQualifier platypus-generated-group-accessing toValues:values ^ self attributeQualifierToValues: (super toValues: values) Platypus.PltAttributeQualifier platypus-generated-group-accessing fromValues:values ^ self attributeQualifierFromValues: (super fromValues: values) Platypus.PltAttributeQualifier platypus-generated-group-accessing localFromValues: values ^ self attributeQualifierFromValues:values Platypus.PltAttributeQualifier platypus-generated-group-accessing localToValues: values ^ self attributeQualifierToValues:values Platypus.PltAttributeQualifier class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltAttributeQualifier class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAttributeQualifier platypus-generated-accessing attributeName ^attributeName Platypus.PltAttributeQualifier platypus-generated-set-accessing setAttributeName:aString self attributeName:aString Platypus.PltAttributeQualifier platypus-generated-accessing attributeName:aString attributeName := aString Platypus.PltAttributeQualifier platypus-generated-fast-set-accessing fastSetAttributeName:aString attributeName := aString Platypus.PltAttributeQualifier platypus-generated-with-context-accessing attributeNameUsingContext:aContext ^ self attributeName Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltGroupQualifier Platypus Platypus.PltQualifier false none groupName Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltGroupQualifier class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltGroupQualifier class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltGroupQualifier class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltGroupQualifier <ISO10303-11-EXPRESS> ENTITY group_qualifier SUBTYPE OF ( qualifier ); group_name : STRING; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltGroupQualifier platypus-generated-initializing stepInitialize super stepInitialize. groupName := ''. Platypus.PltGroupQualifier platypus-generated-classifying isPltGroupQualifier ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltGroupQualifier ^ false Platypus.PltGroupQualifier platypus-generated-visiting accept: aVisitor ^ aVisitor acceptGroupQualifier: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptGroupQualifier: e "my subclasses have to redefine it" Platypus.PltGroupQualifier platypus-generated-copying groupQualifierCopyTo:another another fastSetGroupName: (self groupName). Platypus.PltGroupQualifier platypus-generated-copying pltLocalCopyTo: another self groupQualifierCopyTo:another Platypus.PltGroupQualifier platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self groupQualifierCopyTo: another. Platypus.PltGroupQualifier platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltGroupQualifier platypus-generated-group-accessing groupQualifierFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setGroupName:valuesloc removeFirst. ^ valuesloc Platypus.PltGroupQualifier platypus-generated-group-accessing groupQualifierToValues:values values add: (self groupName). ^ values Platypus.PltGroupQualifier platypus-generated-group-accessing toValues:values ^ self groupQualifierToValues: (super toValues: values) Platypus.PltGroupQualifier platypus-generated-group-accessing fromValues:values ^ self groupQualifierFromValues: (super fromValues: values) Platypus.PltGroupQualifier platypus-generated-group-accessing localFromValues: values ^ self groupQualifierFromValues:values Platypus.PltGroupQualifier platypus-generated-group-accessing localToValues: values ^ self groupQualifierToValues:values Platypus.PltGroupQualifier class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltGroupQualifier class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltGroupQualifier platypus-generated-accessing groupName ^groupName Platypus.PltGroupQualifier platypus-generated-set-accessing setGroupName:aString self groupName:aString Platypus.PltGroupQualifier platypus-generated-accessing groupName:aString groupName := aString Platypus.PltGroupQualifier platypus-generated-fast-set-accessing fastSetGroupName:aString groupName := aString Platypus.PltGroupQualifier platypus-generated-with-context-accessing groupNameUsingContext:aContext ^ self groupName Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltIndexQualifier Platypus Platypus.PltQualifier false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltIndexQualifier class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltIndexQualifier class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltIndexQualifier class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltIndexQualifier <ISO10303-11-EXPRESS> ENTITY index_qualifier SUBTYPE OF ( qualifier ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltIndexQualifier platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltIndexQualifier platypus-generated-classifying isPltIndexQualifier ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltIndexQualifier ^ false Platypus.PltIndexQualifier platypus-generated-visiting accept: aVisitor ^ aVisitor acceptIndexQualifier: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptIndexQualifier: e "my subclasses have to redefine it" Platypus.PltIndexQualifier platypus-generated-copying indexQualifierCopyTo:another Platypus.PltIndexQualifier platypus-generated-copying pltLocalCopyTo: another self indexQualifierCopyTo:another Platypus.PltIndexQualifier platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self indexQualifierCopyTo: another. Platypus.PltIndexQualifier platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltIndexQualifier platypus-generated-group-accessing indexQualifierFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltIndexQualifier platypus-generated-group-accessing indexQualifierToValues:values ^ values Platypus.PltIndexQualifier platypus-generated-group-accessing toValues:values ^ self indexQualifierToValues: (super toValues: values) Platypus.PltIndexQualifier platypus-generated-group-accessing fromValues:values ^ self indexQualifierFromValues: (super fromValues: values) Platypus.PltIndexQualifier platypus-generated-group-accessing localFromValues: values ^ self indexQualifierFromValues:values Platypus.PltIndexQualifier platypus-generated-group-accessing localToValues: values ^ self indexQualifierToValues:values Platypus.PltIndexQualifier class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltIndexQualifier class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltElementQualifier Platypus Platypus.PltIndexQualifier false none index Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltElementQualifier class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltElementQualifier class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltElementQualifier class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltElementQualifier <ISO10303-11-EXPRESS> ENTITY element_qualifier SUBTYPE OF ( index_qualifier ); index : expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltElementQualifier platypus-generated-initializing stepInitialize super stepInitialize. index := nil. Platypus.PltElementQualifier platypus-generated-classifying isPltElementQualifier ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltElementQualifier ^ false Platypus.PltElementQualifier platypus-generated-visiting accept: aVisitor ^ aVisitor acceptElementQualifier: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptElementQualifier: e "my subclasses have to redefine it" Platypus.PltElementQualifier platypus-generated-copying elementQualifierCopyTo:another another fastSetIndex: (self index). Platypus.PltElementQualifier platypus-generated-copying pltLocalCopyTo: another self elementQualifierCopyTo:another Platypus.PltElementQualifier platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self elementQualifierCopyTo: another. Platypus.PltElementQualifier platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltElementQualifier platypus-generated-group-accessing elementQualifierFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setIndex:valuesloc removeFirst. ^ valuesloc Platypus.PltElementQualifier platypus-generated-group-accessing elementQualifierToValues:values values add: (self index). ^ values Platypus.PltElementQualifier platypus-generated-group-accessing toValues:values ^ self elementQualifierToValues: (super toValues: values) Platypus.PltElementQualifier platypus-generated-group-accessing fromValues:values ^ self elementQualifierFromValues: (super fromValues: values) Platypus.PltElementQualifier platypus-generated-group-accessing localFromValues: values ^ self elementQualifierFromValues:values Platypus.PltElementQualifier platypus-generated-group-accessing localToValues: values ^ self elementQualifierToValues:values Platypus.PltElementQualifier class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltElementQualifier class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltElementQualifier platypus-generated-accessing index ^index Platypus.PltElementQualifier platypus-generated-set-accessing setIndex:aPltExpression self index:aPltExpression Platypus.PltElementQualifier platypus-generated-accessing index:aPltExpression index := aPltExpression Platypus.PltElementQualifier platypus-generated-fast-set-accessing fastSetIndex:aPltExpression index := aPltExpression Platypus.PltElementQualifier platypus-generated-with-context-accessing indexUsingContext:aContext ^ self index Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltRangeQualifier Platypus Platypus.PltIndexQualifier false none index1 index2 Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltRangeQualifier class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltRangeQualifier class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltRangeQualifier class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltRangeQualifier <ISO10303-11-EXPRESS> ENTITY range_qualifier SUBTYPE OF ( index_qualifier ); index1 : expression; index2 : expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltRangeQualifier platypus-generated-initializing stepInitialize super stepInitialize. index1 := nil. index2 := nil. Platypus.PltRangeQualifier platypus-generated-classifying isPltRangeQualifier ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltRangeQualifier ^ false Platypus.PltRangeQualifier platypus-generated-visiting accept: aVisitor ^ aVisitor acceptRangeQualifier: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptRangeQualifier: e "my subclasses have to redefine it" Platypus.PltRangeQualifier platypus-generated-copying rangeQualifierCopyTo:another another fastSetIndex1: (self index1). another fastSetIndex2: (self index2). Platypus.PltRangeQualifier platypus-generated-copying pltLocalCopyTo: another self rangeQualifierCopyTo:another Platypus.PltRangeQualifier platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self rangeQualifierCopyTo: another. Platypus.PltRangeQualifier platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltRangeQualifier platypus-generated-group-accessing rangeQualifierFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setIndex1:valuesloc removeFirst. self setIndex2:valuesloc removeFirst. ^ valuesloc Platypus.PltRangeQualifier platypus-generated-group-accessing rangeQualifierToValues:values values add: (self index1). values add: (self index2). ^ values Platypus.PltRangeQualifier platypus-generated-group-accessing toValues:values ^ self rangeQualifierToValues: (super toValues: values) Platypus.PltRangeQualifier platypus-generated-group-accessing fromValues:values ^ self rangeQualifierFromValues: (super fromValues: values) Platypus.PltRangeQualifier platypus-generated-group-accessing localFromValues: values ^ self rangeQualifierFromValues:values Platypus.PltRangeQualifier platypus-generated-group-accessing localToValues: values ^ self rangeQualifierToValues:values Platypus.PltRangeQualifier class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltRangeQualifier class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltRangeQualifier platypus-generated-accessing index1 ^index1 Platypus.PltRangeQualifier platypus-generated-set-accessing setIndex1:aPltExpression self index1:aPltExpression Platypus.PltRangeQualifier platypus-generated-accessing index1:aPltExpression index1 := aPltExpression Platypus.PltRangeQualifier platypus-generated-fast-set-accessing fastSetIndex1:aPltExpression index1 := aPltExpression Platypus.PltRangeQualifier platypus-generated-with-context-accessing index1UsingContext:aContext ^ self index1 Platypus.PltRangeQualifier platypus-generated-accessing index2 ^index2 Platypus.PltRangeQualifier platypus-generated-set-accessing setIndex2:aPltExpression self index2:aPltExpression Platypus.PltRangeQualifier platypus-generated-accessing index2:aPltExpression index2 := aPltExpression Platypus.PltRangeQualifier platypus-generated-fast-set-accessing fastSetIndex2:aPltExpression index2 := aPltExpression Platypus.PltRangeQualifier platypus-generated-with-context-accessing index2UsingContext:aContext ^ self index2 Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltNumericLiteral Platypus Platypus.PltLiteral false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltNumericLiteral class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltNumericLiteral class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltNumericLiteral class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltNumericLiteral <ISO10303-11-EXPRESS> ENTITY numeric_literal ABSTRACT SUPERTYPE SUBTYPE OF ( literal ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltNumericLiteral platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltNumericLiteral platypus-generated-classifying isPltNumericLiteral ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltNumericLiteral ^ false Platypus.PltNumericLiteral platypus-generated-visiting accept: aVisitor ^ aVisitor acceptNumericLiteral: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptNumericLiteral: e "my subclasses have to redefine it" Platypus.PltNumericLiteral platypus-generated-copying numericLiteralCopyTo:another Platypus.PltNumericLiteral platypus-generated-copying pltLocalCopyTo: another self numericLiteralCopyTo:another Platypus.PltNumericLiteral platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self numericLiteralCopyTo: another. Platypus.PltNumericLiteral platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltNumericLiteral platypus-generated-group-accessing numericLiteralFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltNumericLiteral platypus-generated-group-accessing numericLiteralToValues:values ^ values Platypus.PltNumericLiteral platypus-generated-group-accessing toValues:values ^ self numericLiteralToValues: (super toValues: values) Platypus.PltNumericLiteral platypus-generated-group-accessing fromValues:values ^ self numericLiteralFromValues: (super fromValues: values) Platypus.PltNumericLiteral platypus-generated-group-accessing localFromValues: values ^ self numericLiteralFromValues:values Platypus.PltNumericLiteral platypus-generated-group-accessing localToValues: values ^ self numericLiteralToValues:values Platypus.PltNumericLiteral class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltNumericLiteral class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltLogicalLiteral Platypus Platypus.PltLiteral false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltLogicalLiteral class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltLogicalLiteral class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltLogicalLiteral class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltLogicalLiteral <ISO10303-11-EXPRESS> ENTITY logical_literal ABSTRACT SUPERTYPE SUBTYPE OF ( literal ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltLogicalLiteral platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltLogicalLiteral platypus-generated-classifying isPltLogicalLiteral ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltLogicalLiteral ^ false Platypus.PltLogicalLiteral platypus-generated-visiting accept: aVisitor ^ aVisitor acceptLogicalLiteral: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptLogicalLiteral: e "my subclasses have to redefine it" Platypus.PltLogicalLiteral platypus-generated-copying logicalLiteralCopyTo:another Platypus.PltLogicalLiteral platypus-generated-copying pltLocalCopyTo: another self logicalLiteralCopyTo:another Platypus.PltLogicalLiteral platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self logicalLiteralCopyTo: another. Platypus.PltLogicalLiteral platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltLogicalLiteral platypus-generated-group-accessing logicalLiteralFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltLogicalLiteral platypus-generated-group-accessing logicalLiteralToValues:values ^ values Platypus.PltLogicalLiteral platypus-generated-group-accessing toValues:values ^ self logicalLiteralToValues: (super toValues: values) Platypus.PltLogicalLiteral platypus-generated-group-accessing fromValues:values ^ self logicalLiteralFromValues: (super fromValues: values) Platypus.PltLogicalLiteral platypus-generated-group-accessing localFromValues: values ^ self logicalLiteralFromValues:values Platypus.PltLogicalLiteral platypus-generated-group-accessing localToValues: values ^ self logicalLiteralToValues:values Platypus.PltLogicalLiteral class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltLogicalLiteral class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltTrueConstant Platypus Platypus.PltLogicalLiteral false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltTrueConstant class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltTrueConstant class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltTrueConstant class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltTrueConstant <ISO10303-11-EXPRESS> ENTITY true_constant SUBTYPE OF ( logical_literal ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltTrueConstant platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltTrueConstant platypus-generated-classifying isPltTrueConstant ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltTrueConstant ^ false Platypus.PltTrueConstant platypus-generated-visiting accept: aVisitor ^ aVisitor acceptTrueConstant: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptTrueConstant: e "my subclasses have to redefine it" Platypus.PltTrueConstant platypus-generated-copying trueConstantCopyTo:another Platypus.PltTrueConstant platypus-generated-copying pltLocalCopyTo: another self trueConstantCopyTo:another Platypus.PltTrueConstant platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self trueConstantCopyTo: another. Platypus.PltTrueConstant platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltTrueConstant platypus-generated-group-accessing trueConstantFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltTrueConstant platypus-generated-group-accessing trueConstantToValues:values ^ values Platypus.PltTrueConstant platypus-generated-group-accessing toValues:values ^ self trueConstantToValues: (super toValues: values) Platypus.PltTrueConstant platypus-generated-group-accessing fromValues:values ^ self trueConstantFromValues: (super fromValues: values) Platypus.PltTrueConstant platypus-generated-group-accessing localFromValues: values ^ self trueConstantFromValues:values Platypus.PltTrueConstant platypus-generated-group-accessing localToValues: values ^ self trueConstantToValues:values Platypus.PltTrueConstant class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltTrueConstant class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltFalseConstant Platypus Platypus.PltLogicalLiteral false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltFalseConstant class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltFalseConstant class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltFalseConstant class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltFalseConstant <ISO10303-11-EXPRESS> ENTITY false_constant SUBTYPE OF ( logical_literal ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltFalseConstant platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltFalseConstant platypus-generated-classifying isPltFalseConstant ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltFalseConstant ^ false Platypus.PltFalseConstant platypus-generated-visiting accept: aVisitor ^ aVisitor acceptFalseConstant: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptFalseConstant: e "my subclasses have to redefine it" Platypus.PltFalseConstant platypus-generated-copying falseConstantCopyTo:another Platypus.PltFalseConstant platypus-generated-copying pltLocalCopyTo: another self falseConstantCopyTo:another Platypus.PltFalseConstant platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self falseConstantCopyTo: another. Platypus.PltFalseConstant platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltFalseConstant platypus-generated-group-accessing falseConstantFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltFalseConstant platypus-generated-group-accessing falseConstantToValues:values ^ values Platypus.PltFalseConstant platypus-generated-group-accessing toValues:values ^ self falseConstantToValues: (super toValues: values) Platypus.PltFalseConstant platypus-generated-group-accessing fromValues:values ^ self falseConstantFromValues: (super fromValues: values) Platypus.PltFalseConstant platypus-generated-group-accessing localFromValues: values ^ self falseConstantFromValues:values Platypus.PltFalseConstant platypus-generated-group-accessing localToValues: values ^ self falseConstantToValues:values Platypus.PltFalseConstant class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltFalseConstant class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltUnknownConstant Platypus Platypus.PltLogicalLiteral false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltUnknownConstant class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltUnknownConstant class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltUnknownConstant class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltUnknownConstant <ISO10303-11-EXPRESS> ENTITY unknown_constant SUBTYPE OF ( logical_literal ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltUnknownConstant platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltUnknownConstant platypus-generated-classifying isPltUnknownConstant ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltUnknownConstant ^ false Platypus.PltUnknownConstant platypus-generated-visiting accept: aVisitor ^ aVisitor acceptUnknownConstant: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptUnknownConstant: e "my subclasses have to redefine it" Platypus.PltUnknownConstant platypus-generated-copying unknownConstantCopyTo:another Platypus.PltUnknownConstant platypus-generated-copying pltLocalCopyTo: another self unknownConstantCopyTo:another Platypus.PltUnknownConstant platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self unknownConstantCopyTo: another. Platypus.PltUnknownConstant platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltUnknownConstant platypus-generated-group-accessing unknownConstantFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltUnknownConstant platypus-generated-group-accessing unknownConstantToValues:values ^ values Platypus.PltUnknownConstant platypus-generated-group-accessing toValues:values ^ self unknownConstantToValues: (super toValues: values) Platypus.PltUnknownConstant platypus-generated-group-accessing fromValues:values ^ self unknownConstantFromValues: (super fromValues: values) Platypus.PltUnknownConstant platypus-generated-group-accessing localFromValues: values ^ self unknownConstantFromValues:values Platypus.PltUnknownConstant platypus-generated-group-accessing localToValues: values ^ self unknownConstantToValues:values Platypus.PltUnknownConstant class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltUnknownConstant class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltIntegerLiteral Platypus Platypus.PltNumericLiteral false none val Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltIntegerLiteral class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltIntegerLiteral class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltIntegerLiteral class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltIntegerLiteral <ISO10303-11-EXPRESS> ENTITY integer_literal SUBTYPE OF ( numeric_literal ); val : INTEGER; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltIntegerLiteral platypus-generated-initializing stepInitialize super stepInitialize. val := 0. Platypus.PltIntegerLiteral platypus-generated-classifying isPltIntegerLiteral ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltIntegerLiteral ^ false Platypus.PltIntegerLiteral platypus-generated-visiting accept: aVisitor ^ aVisitor acceptIntegerLiteral: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptIntegerLiteral: e "my subclasses have to redefine it" Platypus.PltIntegerLiteral platypus-generated-copying integerLiteralCopyTo:another another fastSetVal: (self val). Platypus.PltIntegerLiteral platypus-generated-copying pltLocalCopyTo: another self integerLiteralCopyTo:another Platypus.PltIntegerLiteral platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self integerLiteralCopyTo: another. Platypus.PltIntegerLiteral platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltIntegerLiteral platypus-generated-group-accessing integerLiteralFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setVal:valuesloc removeFirst. ^ valuesloc Platypus.PltIntegerLiteral platypus-generated-group-accessing integerLiteralToValues:values values add: (self val). ^ values Platypus.PltIntegerLiteral platypus-generated-group-accessing toValues:values ^ self integerLiteralToValues: (super toValues: values) Platypus.PltIntegerLiteral platypus-generated-group-accessing fromValues:values ^ self integerLiteralFromValues: (super fromValues: values) Platypus.PltIntegerLiteral platypus-generated-group-accessing localFromValues: values ^ self integerLiteralFromValues:values Platypus.PltIntegerLiteral platypus-generated-group-accessing localToValues: values ^ self integerLiteralToValues:values Platypus.PltIntegerLiteral class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltIntegerLiteral class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltIntegerLiteral platypus-generated-accessing val ^val Platypus.PltIntegerLiteral platypus-generated-set-accessing setVal:anInteger self val:anInteger Platypus.PltIntegerLiteral platypus-generated-accessing val:anInteger val := anInteger Platypus.PltIntegerLiteral platypus-generated-fast-set-accessing fastSetVal:anInteger val := anInteger Platypus.PltIntegerLiteral platypus-generated-with-context-accessing valUsingContext:aContext ^ self val Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltRealLiteral Platypus Platypus.PltNumericLiteral false none val Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltRealLiteral class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltRealLiteral class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltRealLiteral class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltRealLiteral <ISO10303-11-EXPRESS> ENTITY real_literal SUBTYPE OF ( numeric_literal ); val : REAL; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltRealLiteral platypus-generated-initializing stepInitialize super stepInitialize. val := 0.0. Platypus.PltRealLiteral platypus-generated-classifying isPltRealLiteral ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltRealLiteral ^ false Platypus.PltRealLiteral platypus-generated-visiting accept: aVisitor ^ aVisitor acceptRealLiteral: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptRealLiteral: e "my subclasses have to redefine it" Platypus.PltRealLiteral platypus-generated-copying realLiteralCopyTo:another another fastSetVal: (self val). Platypus.PltRealLiteral platypus-generated-copying pltLocalCopyTo: another self realLiteralCopyTo:another Platypus.PltRealLiteral platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self realLiteralCopyTo: another. Platypus.PltRealLiteral platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltRealLiteral platypus-generated-group-accessing realLiteralFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setVal:valuesloc removeFirst. ^ valuesloc Platypus.PltRealLiteral platypus-generated-group-accessing realLiteralToValues:values values add: (self val). ^ values Platypus.PltRealLiteral platypus-generated-group-accessing toValues:values ^ self realLiteralToValues: (super toValues: values) Platypus.PltRealLiteral platypus-generated-group-accessing fromValues:values ^ self realLiteralFromValues: (super fromValues: values) Platypus.PltRealLiteral platypus-generated-group-accessing localFromValues: values ^ self realLiteralFromValues:values Platypus.PltRealLiteral platypus-generated-group-accessing localToValues: values ^ self realLiteralToValues:values Platypus.PltRealLiteral class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltRealLiteral class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltRealLiteral platypus-generated-accessing val ^val Platypus.PltRealLiteral platypus-generated-set-accessing setVal:aReal self val:aReal Platypus.PltRealLiteral platypus-generated-accessing val:aReal val := aReal Platypus.PltRealLiteral platypus-generated-fast-set-accessing fastSetVal:aReal val := aReal Platypus.PltRealLiteral platypus-generated-with-context-accessing valUsingContext:aContext ^ self val Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltPiConstant Platypus Platypus.PltRealLiteral false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltPiConstant class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltPiConstant class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltPiConstant class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltPiConstant <ISO10303-11-EXPRESS> ENTITY pi_constant SUBTYPE OF ( real_literal ); DERIVE SELF\real_literal.val : REAL := 3.14159; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltPiConstant platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltPiConstant platypus-generated-classifying isPltPiConstant ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltPiConstant ^ false Platypus.PltPiConstant platypus-generated-visiting accept: aVisitor ^ aVisitor acceptPiConstant: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptPiConstant: e "my subclasses have to redefine it" Platypus.PltPiConstant platypus-generated-copying piConstantCopyTo:another Platypus.PltPiConstant platypus-generated-copying pltLocalCopyTo: another self piConstantCopyTo:another Platypus.PltPiConstant platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self piConstantCopyTo: another. Platypus.PltPiConstant platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltPiConstant platypus-generated-group-accessing piConstantFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltPiConstant platypus-generated-group-accessing piConstantToValues:values ^ values Platypus.PltPiConstant platypus-generated-group-accessing toValues:values ^ self piConstantToValues: (super toValues: values) Platypus.PltPiConstant platypus-generated-group-accessing fromValues:values ^ self piConstantFromValues: (super fromValues: values) Platypus.PltPiConstant platypus-generated-group-accessing localFromValues: values ^ self piConstantFromValues:values Platypus.PltPiConstant platypus-generated-group-accessing localToValues: values ^ self piConstantToValues:values Platypus.PltPiConstant class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltPiConstant class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltPiConstant platypus-generated-deriving valUsingContext:aContext ^ self valUsingContext: aContext receiver: self Platypus.PltPiConstant platypus-generated-deriving valUsingContext: aContext receiver: aReceiver ^3.14159 Platypus.PltPiConstant platypus-generated-deriving val ^ self valUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltEConstant Platypus Platypus.PltRealLiteral false none Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltEConstant class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltEConstant class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltEConstant class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltEConstant <ISO10303-11-EXPRESS> ENTITY e_constant SUBTYPE OF ( real_literal ); DERIVE SELF\real_literal.val : REAL := 2.71828; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltEConstant platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltEConstant platypus-generated-classifying isPltEConstant ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltEConstant ^ false Platypus.PltEConstant platypus-generated-visiting accept: aVisitor ^ aVisitor acceptEConstant: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptEConstant: e "my subclasses have to redefine it" Platypus.PltEConstant platypus-generated-copying eConstantCopyTo:another Platypus.PltEConstant platypus-generated-copying pltLocalCopyTo: another self eConstantCopyTo:another Platypus.PltEConstant platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self eConstantCopyTo: another. Platypus.PltEConstant platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltEConstant platypus-generated-group-accessing eConstantFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltEConstant platypus-generated-group-accessing eConstantToValues:values ^ values Platypus.PltEConstant platypus-generated-group-accessing toValues:values ^ self eConstantToValues: (super toValues: values) Platypus.PltEConstant platypus-generated-group-accessing fromValues:values ^ self eConstantFromValues: (super fromValues: values) Platypus.PltEConstant platypus-generated-group-accessing localFromValues: values ^ self eConstantFromValues:values Platypus.PltEConstant platypus-generated-group-accessing localToValues: values ^ self eConstantToValues:values Platypus.PltEConstant class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltEConstant class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltEConstant platypus-generated-deriving valUsingContext:aContext ^ self valUsingContext: aContext receiver: self Platypus.PltEConstant platypus-generated-deriving valUsingContext: aContext receiver: aReceiver ^2.71828 Platypus.PltEConstant platypus-generated-deriving val ^ self valUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltStringLiteral Platypus Platypus.PltLiteral false none val Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltStringLiteral class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltStringLiteral class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltStringLiteral class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltStringLiteral <ISO10303-11-EXPRESS> ENTITY string_literal SUBTYPE OF ( literal ); val : STRING; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltStringLiteral platypus-generated-initializing stepInitialize super stepInitialize. val := ''. Platypus.PltStringLiteral platypus-generated-classifying isPltStringLiteral ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltStringLiteral ^ false Platypus.PltStringLiteral platypus-generated-visiting accept: aVisitor ^ aVisitor acceptStringLiteral: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptStringLiteral: e "my subclasses have to redefine it" Platypus.PltStringLiteral platypus-generated-copying stringLiteralCopyTo:another another fastSetVal: (self val). Platypus.PltStringLiteral platypus-generated-copying pltLocalCopyTo: another self stringLiteralCopyTo:another Platypus.PltStringLiteral platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self stringLiteralCopyTo: another. Platypus.PltStringLiteral platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltStringLiteral platypus-generated-group-accessing stringLiteralFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setVal:valuesloc removeFirst. ^ valuesloc Platypus.PltStringLiteral platypus-generated-group-accessing stringLiteralToValues:values values add: (self val). ^ values Platypus.PltStringLiteral platypus-generated-group-accessing toValues:values ^ self stringLiteralToValues: (super toValues: values) Platypus.PltStringLiteral platypus-generated-group-accessing fromValues:values ^ self stringLiteralFromValues: (super fromValues: values) Platypus.PltStringLiteral platypus-generated-group-accessing localFromValues: values ^ self stringLiteralFromValues:values Platypus.PltStringLiteral platypus-generated-group-accessing localToValues: values ^ self stringLiteralToValues:values Platypus.PltStringLiteral class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltStringLiteral class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltStringLiteral platypus-generated-accessing val ^val Platypus.PltStringLiteral platypus-generated-set-accessing setVal:aString self val:aString Platypus.PltStringLiteral platypus-generated-accessing val:aString val := aString Platypus.PltStringLiteral platypus-generated-fast-set-accessing fastSetVal:aString val := aString Platypus.PltStringLiteral platypus-generated-with-context-accessing valUsingContext:aContext ^ self val Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltBinaryLiteral Platypus Platypus.PltLiteral false none val Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltBinaryLiteral class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltBinaryLiteral class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltBinaryLiteral class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltBinaryLiteral <ISO10303-11-EXPRESS> ENTITY binary_literal SUBTYPE OF ( literal ); val : BINARY; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltBinaryLiteral platypus-generated-initializing stepInitialize super stepInitialize. val := nil. Platypus.PltBinaryLiteral platypus-generated-classifying isPltBinaryLiteral ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltBinaryLiteral ^ false Platypus.PltBinaryLiteral platypus-generated-visiting accept: aVisitor ^ aVisitor acceptBinaryLiteral: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptBinaryLiteral: e "my subclasses have to redefine it" Platypus.PltBinaryLiteral platypus-generated-copying binaryLiteralCopyTo:another another fastSetVal: (self val). Platypus.PltBinaryLiteral platypus-generated-copying pltLocalCopyTo: another self binaryLiteralCopyTo:another Platypus.PltBinaryLiteral platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self binaryLiteralCopyTo: another. Platypus.PltBinaryLiteral platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltBinaryLiteral platypus-generated-group-accessing binaryLiteralFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setVal:valuesloc removeFirst. ^ valuesloc Platypus.PltBinaryLiteral platypus-generated-group-accessing binaryLiteralToValues:values values add: (self val). ^ values Platypus.PltBinaryLiteral platypus-generated-group-accessing toValues:values ^ self binaryLiteralToValues: (super toValues: values) Platypus.PltBinaryLiteral platypus-generated-group-accessing fromValues:values ^ self binaryLiteralFromValues: (super fromValues: values) Platypus.PltBinaryLiteral platypus-generated-group-accessing localFromValues: values ^ self binaryLiteralFromValues:values Platypus.PltBinaryLiteral platypus-generated-group-accessing localToValues: values ^ self binaryLiteralToValues:values Platypus.PltBinaryLiteral class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltBinaryLiteral class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltBinaryLiteral platypus-generated-accessing val ^val Platypus.PltBinaryLiteral platypus-generated-set-accessing setVal:aBinary self val:aBinary Platypus.PltBinaryLiteral platypus-generated-accessing val:aBinary val := aBinary Platypus.PltBinaryLiteral platypus-generated-fast-set-accessing fastSetVal:aBinary val := aBinary Platypus.PltBinaryLiteral platypus-generated-with-context-accessing valUsingContext:aContext ^ self val Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltNativeExpression Platypus Platypus.PltExpression false none source Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltNativeExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltNativeExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltNativeExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltNativeExpression <ISO10303-11-EXPRESS> ENTITY native_expression SUBTYPE OF ( expression ); source : native_algorithm; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltNativeExpression platypus-generated-initializing stepInitialize super stepInitialize. source := nil. Platypus.PltNativeExpression platypus-generated-classifying isPltNativeExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltNativeExpression ^ false Platypus.PltNativeExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptNativeExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptNativeExpression: e "my subclasses have to redefine it" Platypus.PltNativeExpression platypus-generated-copying nativeExpressionCopyTo:another another fastSetSource: (self source). Platypus.PltNativeExpression platypus-generated-copying pltLocalCopyTo: another self nativeExpressionCopyTo:another Platypus.PltNativeExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self nativeExpressionCopyTo: another. Platypus.PltNativeExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltNativeExpression platypus-generated-group-accessing nativeExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setSource:valuesloc removeFirst. ^ valuesloc Platypus.PltNativeExpression platypus-generated-group-accessing nativeExpressionToValues:values values add: (self source). ^ values Platypus.PltNativeExpression platypus-generated-group-accessing toValues:values ^ self nativeExpressionToValues: (super toValues: values) Platypus.PltNativeExpression platypus-generated-group-accessing fromValues:values ^ self nativeExpressionFromValues: (super fromValues: values) Platypus.PltNativeExpression platypus-generated-group-accessing localFromValues: values ^ self nativeExpressionFromValues:values Platypus.PltNativeExpression platypus-generated-group-accessing localToValues: values ^ self nativeExpressionToValues:values Platypus.PltNativeExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltNativeExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltNativeExpression platypus-generated-accessing source ^source Platypus.PltNativeExpression platypus-generated-set-accessing setSource:aPltNativeAlgorithm self source:aPltNativeAlgorithm Platypus.PltNativeExpression platypus-generated-accessing source:aPltNativeAlgorithm source := aPltNativeAlgorithm Platypus.PltNativeExpression platypus-generated-fast-set-accessing fastSetSource:aPltNativeAlgorithm source := aPltNativeAlgorithm Platypus.PltNativeExpression platypus-generated-with-context-accessing sourceUsingContext:aContext ^ self source Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltEscapedExpression Platypus Platypus.PltExpression false none expr Platypus-PlatypusExpressionsSchemaSchema Platypus Platypus.PltEscapedExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltEscapedExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltEscapedExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltEscapedExpression <ISO10303-11-EXPRESS> ENTITY escaped_expression SUBTYPE OF ( expression ); expr : expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltEscapedExpression platypus-generated-initializing stepInitialize super stepInitialize. expr := nil. Platypus.PltEscapedExpression platypus-generated-classifying isPltEscapedExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusExpressionsSchemaSchema-classifying isPltEscapedExpression ^ false Platypus.PltEscapedExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptEscapedExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusExpressionsSchema acceptEscapedExpression: e "my subclasses have to redefine it" Platypus.PltEscapedExpression platypus-generated-copying escapedExpressionCopyTo:another another fastSetExpr: (self expr). Platypus.PltEscapedExpression platypus-generated-copying pltLocalCopyTo: another self escapedExpressionCopyTo:another Platypus.PltEscapedExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self escapedExpressionCopyTo: another. Platypus.PltEscapedExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltEscapedExpression platypus-generated-group-accessing escapedExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setExpr:valuesloc removeFirst. ^ valuesloc Platypus.PltEscapedExpression platypus-generated-group-accessing escapedExpressionToValues:values values add: (self expr). ^ values Platypus.PltEscapedExpression platypus-generated-group-accessing toValues:values ^ self escapedExpressionToValues: (super toValues: values) Platypus.PltEscapedExpression platypus-generated-group-accessing fromValues:values ^ self escapedExpressionFromValues: (super fromValues: values) Platypus.PltEscapedExpression platypus-generated-group-accessing localFromValues: values ^ self escapedExpressionFromValues:values Platypus.PltEscapedExpression platypus-generated-group-accessing localToValues: values ^ self escapedExpressionToValues:values Platypus.PltEscapedExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusExpressionsSchemaSchemaDefinition singleton Platypus.PltEscapedExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltEscapedExpression platypus-generated-accessing expr ^expr Platypus.PltEscapedExpression platypus-generated-set-accessing setExpr:aPltExpression self expr:aPltExpression Platypus.PltEscapedExpression platypus-generated-accessing expr:aPltExpression expr := aPltExpression Platypus.PltEscapedExpression platypus-generated-fast-set-accessing fastSetExpr:aPltExpression expr := aPltExpression Platypus.PltEscapedExpression platypus-generated-with-context-accessing exprUsingContext:aContext ^ self expr PltPlatypusStatementsSchemaSchemaDefinition Platypus Platypus.PlatypusCoreSchema false none Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltPlatypusStatementsSchemaSchemaDefinition class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltPlatypusStatementsSchemaSchemaDefinition class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltPlatypusStatementsSchemaSchemaDefinition class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltPlatypusStatementsSchemaSchemaDefinition <ISO10303-11-EXPRESS> SCHEMA Platypus_statements_schema; USE FROM Platypus_dictionary_schema; USE FROM Platypus_expressions_schema; ENTITY assignable SUBTYPE OF ( dictionary_instance ); head : identifier; qualifiers : LIST OF qualifier; END_ENTITY; ENTITY statement ABSTRACT SUPERTYPE SUBTYPE OF ( dictionary_instance ); END_ENTITY; ENTITY null_statement SUBTYPE OF ( statement ); END_ENTITY; ENTITY native_statement SUBTYPE OF ( statement ); source : native_algorithm; END_ENTITY; ENTITY alias_statement_variable SUBTYPE OF ( dictionary_instance ); alias_ident : STRING; ref : assignable; SELF\entity_instance.owner : alias_statement; END_ENTITY; ENTITY alias_statement SUBTYPE OF ( statement ); variable : alias_statement_variable; statements : LIST OF statement; END_ENTITY; ENTITY assignment_statement SUBTYPE OF ( statement ); left : assignable; right_expr : expression; END_ENTITY; ENTITY case_statement SUBTYPE OF ( statement ); selector : expression; case_actions : LIST OF case_action; case_otherwise : OPTIONAL statement; END_ENTITY; ENTITY case_action SUBTYPE OF ( dictionary_instance ); labels : LIST OF expression; action : statement; END_ENTITY; ENTITY compound_statement SUBTYPE OF ( statement ); statements : LIST OF statement; END_ENTITY; ENTITY escape_statement SUBTYPE OF ( statement ); END_ENTITY; ENTITY if_statement SUBTYPE OF ( statement ); selector : expression; then_statements : LIST OF statement; else_statements : OPTIONAL LIST OF statement; END_ENTITY; ENTITY repeat_statement SUBTYPE OF ( statement ); incr_control : OPTIONAL increment_control; until_control : OPTIONAL expression; while_control : OPTIONAL expression; statements : LIST OF statement; END_ENTITY; ENTITY increment_control_variable SUBTYPE OF ( dictionary_instance ); variable_id : STRING; SELF\entity_instance.owner : increment_control; END_ENTITY; ENTITY increment_control SUBTYPE OF ( dictionary_instance ); variable : increment_control_variable; first : expression; last : expression; step : OPTIONAL expression; SELF\entity_instance.owner : repeat_statement; END_ENTITY; ENTITY return_statement SUBTYPE OF ( statement ); returned : OPTIONAL expression; END_ENTITY; ENTITY procedure_call_statement SUBTYPE OF ( statement ); call : identifier; END_ENTITY; ENTITY skip_statement SUBTYPE OF ( statement ); END_ENTITY; ENTITY output_statement SUBTYPE OF ( statement ); output : expression; END_ENTITY; ENTITY splitmark_statement SUBTYPE OF ( statement ); filename : expression; END_ENTITY; ENTITY end_splitmark_statement SUBTYPE OF ( statement ); END_ENTITY; ENTITY anonymous_variable SUBTYPE OF ( dictionary_instance ); domain : parameter_type; END_ENTITY; END_SCHEMA; </ISO10303-11-EXPRESS> Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-meta-data-accessing schemaInstanceClassName ^ #PltPlatypusMetaSchemasSchemaInstance Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-context-accessing context ^ self schemaInstance context Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition1^ #( #'assignable' #PltAssignable ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition2^ #( #'statement' #PltStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition3^ #( #'null_statement' #PltNullStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition4^ #( #'native_statement' #PltNativeStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition5^ #( #'alias_statement_variable' #PltAliasStatementVariable ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition6^ #( #'alias_statement' #PltAliasStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition7^ #( #'assignment_statement' #PltAssignmentStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition8^ #( #'case_statement' #PltCaseStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition9^ #( #'case_action' #PltCaseAction ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition10^ #( #'compound_statement' #PltCompoundStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition11^ #( #'escape_statement' #PltEscapeStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition12^ #( #'if_statement' #PltIfStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition13^ #( #'repeat_statement' #PltRepeatStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition14^ #( #'increment_control_variable' #PltIncrementControlVariable ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition15^ #( #'increment_control' #PltIncrementControl ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition16^ #( #'return_statement' #PltReturnStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition17^ #( #'procedure_call_statement' #PltProcedureCallStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition18^ #( #'skip_statement' #PltSkipStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition19^ #( #'output_statement' #PltOutputStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition20^ #( #'splitmark_statement' #PltSplitmarkStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition21^ #( #'end_splitmark_statement' #PltEndSplitmarkStatement ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinition22^ #( #'anonymous_variable' #PltAnonymousVariable ) Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-entities entityDefinitionCount ^ 22 Platypus.PltPlatypusStatementsSchemaSchemaDefinition platypus-generated-functions functionDeclarationCount ^ 0 Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAssignable Platypus Platypus.PltDictionaryInstance false none qualifiers head Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltAssignable class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAssignable class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAssignable class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAssignable <ISO10303-11-EXPRESS> ENTITY assignable SUBTYPE OF ( dictionary_instance ); head : identifier; qualifiers : LIST OF qualifier; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAssignable platypus-generated-initializing stepInitialize super stepInitialize. head := nil. qualifiers := OrderedCollection new. Platypus.PltAssignable platypus-generated-classifying isPltAssignable ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltAssignable ^ false Platypus.PltAssignable platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAssignable: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptAssignable: e "my subclasses have to redefine it" Platypus.PltAssignable platypus-generated-copying assignableCopyTo:another another fastSetHead: (self head). another fastSetQualifiers: (self qualifiers). Platypus.PltAssignable platypus-generated-copying pltLocalCopyTo: another self assignableCopyTo:another Platypus.PltAssignable platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self assignableCopyTo: another. Platypus.PltAssignable platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAssignable platypus-generated-group-accessing assignableFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setHead:valuesloc removeFirst. self setQualifiers:valuesloc removeFirst. ^ valuesloc Platypus.PltAssignable platypus-generated-group-accessing assignableToValues:values values add: (self head). values add: (self qualifiers). ^ values Platypus.PltAssignable platypus-generated-group-accessing toValues:values ^ self assignableToValues: (super toValues: values) Platypus.PltAssignable platypus-generated-group-accessing fromValues:values ^ self assignableFromValues: (super fromValues: values) Platypus.PltAssignable platypus-generated-group-accessing localFromValues: values ^ self assignableFromValues:values Platypus.PltAssignable platypus-generated-group-accessing localToValues: values ^ self assignableToValues:values Platypus.PltAssignable class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltAssignable class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAssignable platypus-generated-accessing head ^head Platypus.PltAssignable platypus-generated-set-accessing setHead:aPltIdentifier self head:aPltIdentifier Platypus.PltAssignable platypus-generated-accessing head:aPltIdentifier head := aPltIdentifier Platypus.PltAssignable platypus-generated-fast-set-accessing fastSetHead:aPltIdentifier head := aPltIdentifier Platypus.PltAssignable platypus-generated-with-context-accessing headUsingContext:aContext ^ self head Platypus.PltAssignable platypus-generated-accessing qualifiers ^qualifiers Platypus.PltAssignable platypus-generated-set-accessing setQualifiers:aListOfPltQualifier self qualifiers:aListOfPltQualifier Platypus.PltAssignable platypus-generated-accessing qualifiers:aListOfPltQualifier qualifiers := aListOfPltQualifier ifNil: [OrderedCollection new] ifNotNil: [aListOfPltQualifier as: OrderedCollection] Platypus.PltAssignable platypus-generated-fast-set-accessing fastSetQualifiers:aListOfPltQualifier qualifiers := aListOfPltQualifier Platypus.PltAssignable platypus-generated-with-context-accessing qualifiersUsingContext:aContext ^ self qualifiers Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltStatement Platypus Platypus.PltDictionaryInstance false none Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltStatement <ISO10303-11-EXPRESS> ENTITY statement ABSTRACT SUPERTYPE SUBTYPE OF ( dictionary_instance ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltStatement platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltStatement platypus-generated-classifying isPltStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltStatement ^ false Platypus.PltStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptStatement: e "my subclasses have to redefine it" Platypus.PltStatement platypus-generated-copying statementCopyTo:another Platypus.PltStatement platypus-generated-copying pltLocalCopyTo: another self statementCopyTo:another Platypus.PltStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self statementCopyTo: another. Platypus.PltStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltStatement platypus-generated-group-accessing statementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltStatement platypus-generated-group-accessing statementToValues:values ^ values Platypus.PltStatement platypus-generated-group-accessing toValues:values ^ self statementToValues: (super toValues: values) Platypus.PltStatement platypus-generated-group-accessing fromValues:values ^ self statementFromValues: (super fromValues: values) Platypus.PltStatement platypus-generated-group-accessing localFromValues: values ^ self statementFromValues:values Platypus.PltStatement platypus-generated-group-accessing localToValues: values ^ self statementToValues:values Platypus.PltStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltNullStatement Platypus Platypus.PltStatement false none Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltNullStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltNullStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltNullStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltNullStatement <ISO10303-11-EXPRESS> ENTITY null_statement SUBTYPE OF ( statement ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltNullStatement platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltNullStatement platypus-generated-classifying isPltNullStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltNullStatement ^ false Platypus.PltNullStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptNullStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptNullStatement: e "my subclasses have to redefine it" Platypus.PltNullStatement platypus-generated-copying nullStatementCopyTo:another Platypus.PltNullStatement platypus-generated-copying pltLocalCopyTo: another self nullStatementCopyTo:another Platypus.PltNullStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self nullStatementCopyTo: another. Platypus.PltNullStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltNullStatement platypus-generated-group-accessing nullStatementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltNullStatement platypus-generated-group-accessing nullStatementToValues:values ^ values Platypus.PltNullStatement platypus-generated-group-accessing toValues:values ^ self nullStatementToValues: (super toValues: values) Platypus.PltNullStatement platypus-generated-group-accessing fromValues:values ^ self nullStatementFromValues: (super fromValues: values) Platypus.PltNullStatement platypus-generated-group-accessing localFromValues: values ^ self nullStatementFromValues:values Platypus.PltNullStatement platypus-generated-group-accessing localToValues: values ^ self nullStatementToValues:values Platypus.PltNullStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltNullStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltNativeStatement Platypus Platypus.PltStatement false none source Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltNativeStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltNativeStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltNativeStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltNativeStatement <ISO10303-11-EXPRESS> ENTITY native_statement SUBTYPE OF ( statement ); source : native_algorithm; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltNativeStatement platypus-generated-initializing stepInitialize super stepInitialize. source := nil. Platypus.PltNativeStatement platypus-generated-classifying isPltNativeStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltNativeStatement ^ false Platypus.PltNativeStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptNativeStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptNativeStatement: e "my subclasses have to redefine it" Platypus.PltNativeStatement platypus-generated-copying nativeStatementCopyTo:another another fastSetSource: (self source). Platypus.PltNativeStatement platypus-generated-copying pltLocalCopyTo: another self nativeStatementCopyTo:another Platypus.PltNativeStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self nativeStatementCopyTo: another. Platypus.PltNativeStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltNativeStatement platypus-generated-group-accessing nativeStatementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setSource:valuesloc removeFirst. ^ valuesloc Platypus.PltNativeStatement platypus-generated-group-accessing nativeStatementToValues:values values add: (self source). ^ values Platypus.PltNativeStatement platypus-generated-group-accessing toValues:values ^ self nativeStatementToValues: (super toValues: values) Platypus.PltNativeStatement platypus-generated-group-accessing fromValues:values ^ self nativeStatementFromValues: (super fromValues: values) Platypus.PltNativeStatement platypus-generated-group-accessing localFromValues: values ^ self nativeStatementFromValues:values Platypus.PltNativeStatement platypus-generated-group-accessing localToValues: values ^ self nativeStatementToValues:values Platypus.PltNativeStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltNativeStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltNativeStatement platypus-generated-accessing source ^source Platypus.PltNativeStatement platypus-generated-set-accessing setSource:aPltNativeAlgorithm self source:aPltNativeAlgorithm Platypus.PltNativeStatement platypus-generated-accessing source:aPltNativeAlgorithm source := aPltNativeAlgorithm Platypus.PltNativeStatement platypus-generated-fast-set-accessing fastSetSource:aPltNativeAlgorithm source := aPltNativeAlgorithm Platypus.PltNativeStatement platypus-generated-with-context-accessing sourceUsingContext:aContext ^ self source Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAliasStatementVariable Platypus Platypus.PltDictionaryInstance false none aliasIdent ref Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltAliasStatementVariable class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAliasStatementVariable class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAliasStatementVariable class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAliasStatementVariable <ISO10303-11-EXPRESS> ENTITY alias_statement_variable SUBTYPE OF ( dictionary_instance ); alias_ident : STRING; ref : assignable; SELF\entity_instance.owner : alias_statement; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAliasStatementVariable platypus-generated-initializing stepInitialize super stepInitialize. aliasIdent := ''. ref := nil. owner := nil. Platypus.PltAliasStatementVariable platypus-generated-classifying isPltAliasStatementVariable ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltAliasStatementVariable ^ false Platypus.PltAliasStatementVariable platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAliasStatementVariable: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptAliasStatementVariable: e "my subclasses have to redefine it" Platypus.PltAliasStatementVariable platypus-generated-copying aliasStatementVariableCopyTo:another another fastSetAliasIdent: (self aliasIdent). another fastSetRef: (self ref). another fastSetOwner: (self owner). Platypus.PltAliasStatementVariable platypus-generated-copying pltLocalCopyTo: another self aliasStatementVariableCopyTo:another Platypus.PltAliasStatementVariable platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self aliasStatementVariableCopyTo: another. Platypus.PltAliasStatementVariable platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAliasStatementVariable platypus-generated-group-accessing aliasStatementVariableFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setAliasIdent:valuesloc removeFirst. self setRef:valuesloc removeFirst. self setOwner:valuesloc removeFirst. ^ valuesloc Platypus.PltAliasStatementVariable platypus-generated-group-accessing aliasStatementVariableToValues:values values add: (self aliasIdent). values add: (self ref). values add: (self owner). ^ values Platypus.PltAliasStatementVariable platypus-generated-group-accessing toValues:values ^ self aliasStatementVariableToValues: (super toValues: values) Platypus.PltAliasStatementVariable platypus-generated-group-accessing fromValues:values ^ self aliasStatementVariableFromValues: (super fromValues: values) Platypus.PltAliasStatementVariable platypus-generated-group-accessing localFromValues: values ^ self aliasStatementVariableFromValues:values Platypus.PltAliasStatementVariable platypus-generated-group-accessing localToValues: values ^ self aliasStatementVariableToValues:values Platypus.PltAliasStatementVariable class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltAliasStatementVariable class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAliasStatementVariable platypus-generated-accessing aliasIdent ^aliasIdent Platypus.PltAliasStatementVariable platypus-generated-set-accessing setAliasIdent:aString self aliasIdent:aString Platypus.PltAliasStatementVariable platypus-generated-accessing aliasIdent:aString aliasIdent := aString Platypus.PltAliasStatementVariable platypus-generated-fast-set-accessing fastSetAliasIdent:aString aliasIdent := aString Platypus.PltAliasStatementVariable platypus-generated-with-context-accessing aliasIdentUsingContext:aContext ^ self aliasIdent Platypus.PltAliasStatementVariable platypus-generated-accessing ref ^ref Platypus.PltAliasStatementVariable platypus-generated-set-accessing setRef:aPltAssignable self ref:aPltAssignable Platypus.PltAliasStatementVariable platypus-generated-accessing ref:aPltAssignable ref := aPltAssignable Platypus.PltAliasStatementVariable platypus-generated-fast-set-accessing fastSetRef:aPltAssignable ref := aPltAssignable Platypus.PltAliasStatementVariable platypus-generated-with-context-accessing refUsingContext:aContext ^ self ref Platypus.PltAliasStatementVariable platypus-generated-accessing owner ^owner Platypus.PltAliasStatementVariable platypus-generated-set-accessing setOwner:aPltAliasStatement self owner:aPltAliasStatement Platypus.PltAliasStatementVariable platypus-generated-accessing owner:aPltAliasStatement owner := aPltAliasStatement Platypus.PltAliasStatementVariable platypus-generated-fast-set-accessing fastSetOwner:aPltAliasStatement owner := aPltAliasStatement Platypus.PltAliasStatementVariable platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAliasStatement Platypus Platypus.PltStatement false none identifiersCache variable statements Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltAliasStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAliasStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAliasStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAliasStatement <ISO10303-11-EXPRESS> ENTITY alias_statement SUBTYPE OF ( statement ); variable : alias_statement_variable; statements : LIST OF statement; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAliasStatement platypus-generated-initializing stepInitialize super stepInitialize. variable := nil. statements := OrderedCollection new. Platypus.PltAliasStatement platypus-generated-classifying isPltAliasStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltAliasStatement ^ false Platypus.PltAliasStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAliasStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptAliasStatement: e "my subclasses have to redefine it" Platypus.PltAliasStatement platypus-generated-copying aliasStatementCopyTo:another another fastSetVariable: (self variable). another fastSetStatements: (self statements). Platypus.PltAliasStatement platypus-generated-copying pltLocalCopyTo: another self aliasStatementCopyTo:another Platypus.PltAliasStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self aliasStatementCopyTo: another. Platypus.PltAliasStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAliasStatement platypus-generated-group-accessing aliasStatementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setVariable:valuesloc removeFirst. self setStatements:valuesloc removeFirst. ^ valuesloc Platypus.PltAliasStatement platypus-generated-group-accessing aliasStatementToValues:values values add: (self variable). values add: (self statements). ^ values Platypus.PltAliasStatement platypus-generated-group-accessing toValues:values ^ self aliasStatementToValues: (super toValues: values) Platypus.PltAliasStatement platypus-generated-group-accessing fromValues:values ^ self aliasStatementFromValues: (super fromValues: values) Platypus.PltAliasStatement platypus-generated-group-accessing localFromValues: values ^ self aliasStatementFromValues:values Platypus.PltAliasStatement platypus-generated-group-accessing localToValues: values ^ self aliasStatementToValues:values Platypus.PltAliasStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltAliasStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAliasStatement platypus-generated-accessing variable ^variable Platypus.PltAliasStatement platypus-generated-set-accessing setVariable:aPltAliasStatementVariable self variable:aPltAliasStatementVariable Platypus.PltAliasStatement platypus-generated-accessing variable:aPltAliasStatementVariable variable := aPltAliasStatementVariable Platypus.PltAliasStatement platypus-generated-fast-set-accessing fastSetVariable:aPltAliasStatementVariable variable := aPltAliasStatementVariable Platypus.PltAliasStatement platypus-generated-with-context-accessing variableUsingContext:aContext ^ self variable Platypus.PltAliasStatement platypus-generated-accessing statements ^statements Platypus.PltAliasStatement platypus-generated-set-accessing setStatements:aListOfPltStatement self statements:aListOfPltStatement Platypus.PltAliasStatement platypus-generated-accessing statements:aListOfPltStatement statements := aListOfPltStatement ifNil: [OrderedCollection new] ifNotNil: [aListOfPltStatement as: OrderedCollection] Platypus.PltAliasStatement platypus-generated-fast-set-accessing fastSetStatements:aListOfPltStatement statements := aListOfPltStatement Platypus.PltAliasStatement platypus-generated-with-context-accessing statementsUsingContext:aContext ^ self statements Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAssignmentStatement Platypus Platypus.PltStatement false none rightExpr left Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltAssignmentStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAssignmentStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAssignmentStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAssignmentStatement <ISO10303-11-EXPRESS> ENTITY assignment_statement SUBTYPE OF ( statement ); left : assignable; right_expr : expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAssignmentStatement platypus-generated-initializing stepInitialize super stepInitialize. left := nil. rightExpr := nil. Platypus.PltAssignmentStatement platypus-generated-classifying isPltAssignmentStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltAssignmentStatement ^ false Platypus.PltAssignmentStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAssignmentStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptAssignmentStatement: e "my subclasses have to redefine it" Platypus.PltAssignmentStatement platypus-generated-copying assignmentStatementCopyTo:another another fastSetLeft: (self left). another fastSetRightExpr: (self rightExpr). Platypus.PltAssignmentStatement platypus-generated-copying pltLocalCopyTo: another self assignmentStatementCopyTo:another Platypus.PltAssignmentStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self assignmentStatementCopyTo: another. Platypus.PltAssignmentStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAssignmentStatement platypus-generated-group-accessing assignmentStatementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setLeft:valuesloc removeFirst. self setRightExpr:valuesloc removeFirst. ^ valuesloc Platypus.PltAssignmentStatement platypus-generated-group-accessing assignmentStatementToValues:values values add: (self left). values add: (self rightExpr). ^ values Platypus.PltAssignmentStatement platypus-generated-group-accessing toValues:values ^ self assignmentStatementToValues: (super toValues: values) Platypus.PltAssignmentStatement platypus-generated-group-accessing fromValues:values ^ self assignmentStatementFromValues: (super fromValues: values) Platypus.PltAssignmentStatement platypus-generated-group-accessing localFromValues: values ^ self assignmentStatementFromValues:values Platypus.PltAssignmentStatement platypus-generated-group-accessing localToValues: values ^ self assignmentStatementToValues:values Platypus.PltAssignmentStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltAssignmentStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAssignmentStatement platypus-generated-accessing left ^left Platypus.PltAssignmentStatement platypus-generated-set-accessing setLeft:aPltAssignable self left:aPltAssignable Platypus.PltAssignmentStatement platypus-generated-accessing left:aPltAssignable left := aPltAssignable Platypus.PltAssignmentStatement platypus-generated-fast-set-accessing fastSetLeft:aPltAssignable left := aPltAssignable Platypus.PltAssignmentStatement platypus-generated-with-context-accessing leftUsingContext:aContext ^ self left Platypus.PltAssignmentStatement platypus-generated-accessing rightExpr ^rightExpr Platypus.PltAssignmentStatement platypus-generated-set-accessing setRightExpr:aPltExpression self rightExpr:aPltExpression Platypus.PltAssignmentStatement platypus-generated-accessing rightExpr:aPltExpression rightExpr := aPltExpression Platypus.PltAssignmentStatement platypus-generated-fast-set-accessing fastSetRightExpr:aPltExpression rightExpr := aPltExpression Platypus.PltAssignmentStatement platypus-generated-with-context-accessing rightExprUsingContext:aContext ^ self rightExpr Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltCaseStatement Platypus Platypus.PltStatement false none caseActions caseOtherwise selector Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltCaseStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltCaseStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltCaseStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltCaseStatement <ISO10303-11-EXPRESS> ENTITY case_statement SUBTYPE OF ( statement ); selector : expression; case_actions : LIST OF case_action; case_otherwise : OPTIONAL statement; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltCaseStatement platypus-generated-initializing stepInitialize super stepInitialize. selector := nil. caseActions := OrderedCollection new. caseOtherwise := nil. Platypus.PltCaseStatement platypus-generated-classifying isPltCaseStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltCaseStatement ^ false Platypus.PltCaseStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptCaseStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptCaseStatement: e "my subclasses have to redefine it" Platypus.PltCaseStatement platypus-generated-copying caseStatementCopyTo:another another fastSetSelector: (self selector). another fastSetCaseActions: (self caseActions). another fastSetCaseOtherwise: (self caseOtherwise). Platypus.PltCaseStatement platypus-generated-copying pltLocalCopyTo: another self caseStatementCopyTo:another Platypus.PltCaseStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self caseStatementCopyTo: another. Platypus.PltCaseStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltCaseStatement platypus-generated-group-accessing caseStatementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setSelector:valuesloc removeFirst. self setCaseActions:valuesloc removeFirst. self setCaseOtherwise:valuesloc removeFirst. ^ valuesloc Platypus.PltCaseStatement platypus-generated-group-accessing caseStatementToValues:values values add: (self selector). values add: (self caseActions). values add: (self caseOtherwise). ^ values Platypus.PltCaseStatement platypus-generated-group-accessing toValues:values ^ self caseStatementToValues: (super toValues: values) Platypus.PltCaseStatement platypus-generated-group-accessing fromValues:values ^ self caseStatementFromValues: (super fromValues: values) Platypus.PltCaseStatement platypus-generated-group-accessing localFromValues: values ^ self caseStatementFromValues:values Platypus.PltCaseStatement platypus-generated-group-accessing localToValues: values ^ self caseStatementToValues:values Platypus.PltCaseStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltCaseStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltCaseStatement platypus-generated-accessing selector ^selector Platypus.PltCaseStatement platypus-generated-set-accessing setSelector:aPltExpression self selector:aPltExpression Platypus.PltCaseStatement platypus-generated-accessing selector:aPltExpression selector := aPltExpression Platypus.PltCaseStatement platypus-generated-fast-set-accessing fastSetSelector:aPltExpression selector := aPltExpression Platypus.PltCaseStatement platypus-generated-with-context-accessing selectorUsingContext:aContext ^ self selector Platypus.PltCaseStatement platypus-generated-accessing caseActions ^caseActions Platypus.PltCaseStatement platypus-generated-set-accessing setCaseActions:aListOfPltCaseAction self caseActions:aListOfPltCaseAction Platypus.PltCaseStatement platypus-generated-accessing caseActions:aListOfPltCaseAction caseActions := aListOfPltCaseAction ifNil: [OrderedCollection new] ifNotNil: [aListOfPltCaseAction as: OrderedCollection] Platypus.PltCaseStatement platypus-generated-fast-set-accessing fastSetCaseActions:aListOfPltCaseAction caseActions := aListOfPltCaseAction Platypus.PltCaseStatement platypus-generated-with-context-accessing caseActionsUsingContext:aContext ^ self caseActions Platypus.PltCaseStatement platypus-generated-accessing caseOtherwise ^caseOtherwise Platypus.PltCaseStatement platypus-generated-set-accessing setCaseOtherwise:aPltStatement self caseOtherwise:aPltStatement Platypus.PltCaseStatement platypus-generated-accessing caseOtherwise:aPltStatement caseOtherwise := aPltStatement Platypus.PltCaseStatement platypus-generated-fast-set-accessing fastSetCaseOtherwise:aPltStatement caseOtherwise := aPltStatement Platypus.PltCaseStatement platypus-generated-with-context-accessing caseOtherwiseUsingContext:aContext ^ self caseOtherwise Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltCaseAction Platypus Platypus.PltDictionaryInstance false none labels action Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltCaseAction class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltCaseAction class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltCaseAction class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltCaseAction <ISO10303-11-EXPRESS> ENTITY case_action SUBTYPE OF ( dictionary_instance ); labels : LIST OF expression; action : statement; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltCaseAction platypus-generated-initializing stepInitialize super stepInitialize. labels := OrderedCollection new. action := nil. Platypus.PltCaseAction platypus-generated-classifying isPltCaseAction ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltCaseAction ^ false Platypus.PltCaseAction platypus-generated-visiting accept: aVisitor ^ aVisitor acceptCaseAction: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptCaseAction: e "my subclasses have to redefine it" Platypus.PltCaseAction platypus-generated-copying caseActionCopyTo:another another fastSetLabels: (self labels). another fastSetAction: (self action). Platypus.PltCaseAction platypus-generated-copying pltLocalCopyTo: another self caseActionCopyTo:another Platypus.PltCaseAction platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self caseActionCopyTo: another. Platypus.PltCaseAction platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltCaseAction platypus-generated-group-accessing caseActionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setLabels:valuesloc removeFirst. self setAction:valuesloc removeFirst. ^ valuesloc Platypus.PltCaseAction platypus-generated-group-accessing caseActionToValues:values values add: (self labels). values add: (self action). ^ values Platypus.PltCaseAction platypus-generated-group-accessing toValues:values ^ self caseActionToValues: (super toValues: values) Platypus.PltCaseAction platypus-generated-group-accessing fromValues:values ^ self caseActionFromValues: (super fromValues: values) Platypus.PltCaseAction platypus-generated-group-accessing localFromValues: values ^ self caseActionFromValues:values Platypus.PltCaseAction platypus-generated-group-accessing localToValues: values ^ self caseActionToValues:values Platypus.PltCaseAction class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltCaseAction class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltCaseAction platypus-generated-accessing labels ^labels Platypus.PltCaseAction platypus-generated-set-accessing setLabels:aListOfPltExpression self labels:aListOfPltExpression Platypus.PltCaseAction platypus-generated-accessing labels:aListOfPltExpression labels := aListOfPltExpression ifNil: [OrderedCollection new] ifNotNil: [aListOfPltExpression as: OrderedCollection] Platypus.PltCaseAction platypus-generated-fast-set-accessing fastSetLabels:aListOfPltExpression labels := aListOfPltExpression Platypus.PltCaseAction platypus-generated-with-context-accessing labelsUsingContext:aContext ^ self labels Platypus.PltCaseAction platypus-generated-accessing action ^action Platypus.PltCaseAction platypus-generated-set-accessing setAction:aPltStatement self action:aPltStatement Platypus.PltCaseAction platypus-generated-accessing action:aPltStatement action := aPltStatement Platypus.PltCaseAction platypus-generated-fast-set-accessing fastSetAction:aPltStatement action := aPltStatement Platypus.PltCaseAction platypus-generated-with-context-accessing actionUsingContext:aContext ^ self action Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltCompoundStatement Platypus Platypus.PltStatement false none statements Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltCompoundStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltCompoundStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltCompoundStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltCompoundStatement <ISO10303-11-EXPRESS> ENTITY compound_statement SUBTYPE OF ( statement ); statements : LIST OF statement; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltCompoundStatement platypus-generated-initializing stepInitialize super stepInitialize. statements := OrderedCollection new. Platypus.PltCompoundStatement platypus-generated-classifying isPltCompoundStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltCompoundStatement ^ false Platypus.PltCompoundStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptCompoundStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptCompoundStatement: e "my subclasses have to redefine it" Platypus.PltCompoundStatement platypus-generated-copying compoundStatementCopyTo:another another fastSetStatements: (self statements). Platypus.PltCompoundStatement platypus-generated-copying pltLocalCopyTo: another self compoundStatementCopyTo:another Platypus.PltCompoundStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self compoundStatementCopyTo: another. Platypus.PltCompoundStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltCompoundStatement platypus-generated-group-accessing compoundStatementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setStatements:valuesloc removeFirst. ^ valuesloc Platypus.PltCompoundStatement platypus-generated-group-accessing compoundStatementToValues:values values add: (self statements). ^ values Platypus.PltCompoundStatement platypus-generated-group-accessing toValues:values ^ self compoundStatementToValues: (super toValues: values) Platypus.PltCompoundStatement platypus-generated-group-accessing fromValues:values ^ self compoundStatementFromValues: (super fromValues: values) Platypus.PltCompoundStatement platypus-generated-group-accessing localFromValues: values ^ self compoundStatementFromValues:values Platypus.PltCompoundStatement platypus-generated-group-accessing localToValues: values ^ self compoundStatementToValues:values Platypus.PltCompoundStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltCompoundStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltCompoundStatement platypus-generated-accessing statements ^statements Platypus.PltCompoundStatement platypus-generated-set-accessing setStatements:aListOfPltStatement self statements:aListOfPltStatement Platypus.PltCompoundStatement platypus-generated-accessing statements:aListOfPltStatement statements := aListOfPltStatement ifNil: [OrderedCollection new] ifNotNil: [aListOfPltStatement as: OrderedCollection] Platypus.PltCompoundStatement platypus-generated-fast-set-accessing fastSetStatements:aListOfPltStatement statements := aListOfPltStatement Platypus.PltCompoundStatement platypus-generated-with-context-accessing statementsUsingContext:aContext ^ self statements Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltEscapeStatement Platypus Platypus.PltStatement false none Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltEscapeStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltEscapeStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltEscapeStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltEscapeStatement <ISO10303-11-EXPRESS> ENTITY escape_statement SUBTYPE OF ( statement ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltEscapeStatement platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltEscapeStatement platypus-generated-classifying isPltEscapeStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltEscapeStatement ^ false Platypus.PltEscapeStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptEscapeStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptEscapeStatement: e "my subclasses have to redefine it" Platypus.PltEscapeStatement platypus-generated-copying escapeStatementCopyTo:another Platypus.PltEscapeStatement platypus-generated-copying pltLocalCopyTo: another self escapeStatementCopyTo:another Platypus.PltEscapeStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self escapeStatementCopyTo: another. Platypus.PltEscapeStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltEscapeStatement platypus-generated-group-accessing escapeStatementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltEscapeStatement platypus-generated-group-accessing escapeStatementToValues:values ^ values Platypus.PltEscapeStatement platypus-generated-group-accessing toValues:values ^ self escapeStatementToValues: (super toValues: values) Platypus.PltEscapeStatement platypus-generated-group-accessing fromValues:values ^ self escapeStatementFromValues: (super fromValues: values) Platypus.PltEscapeStatement platypus-generated-group-accessing localFromValues: values ^ self escapeStatementFromValues:values Platypus.PltEscapeStatement platypus-generated-group-accessing localToValues: values ^ self escapeStatementToValues:values Platypus.PltEscapeStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltEscapeStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltIfStatement Platypus Platypus.PltStatement false none thenStatements elseStatements selector Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltIfStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltIfStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltIfStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltIfStatement <ISO10303-11-EXPRESS> ENTITY if_statement SUBTYPE OF ( statement ); selector : expression; then_statements : LIST OF statement; else_statements : OPTIONAL LIST OF statement; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltIfStatement platypus-generated-initializing stepInitialize super stepInitialize. selector := nil. thenStatements := OrderedCollection new. elseStatements := nil. Platypus.PltIfStatement platypus-generated-classifying isPltIfStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltIfStatement ^ false Platypus.PltIfStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptIfStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptIfStatement: e "my subclasses have to redefine it" Platypus.PltIfStatement platypus-generated-copying ifStatementCopyTo:another another fastSetSelector: (self selector). another fastSetThenStatements: (self thenStatements). another fastSetElseStatements: (self elseStatements). Platypus.PltIfStatement platypus-generated-copying pltLocalCopyTo: another self ifStatementCopyTo:another Platypus.PltIfStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self ifStatementCopyTo: another. Platypus.PltIfStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltIfStatement platypus-generated-group-accessing ifStatementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setSelector:valuesloc removeFirst. self setThenStatements:valuesloc removeFirst. self setElseStatements:valuesloc removeFirst. ^ valuesloc Platypus.PltIfStatement platypus-generated-group-accessing ifStatementToValues:values values add: (self selector). values add: (self thenStatements). values add: (self elseStatements). ^ values Platypus.PltIfStatement platypus-generated-group-accessing toValues:values ^ self ifStatementToValues: (super toValues: values) Platypus.PltIfStatement platypus-generated-group-accessing fromValues:values ^ self ifStatementFromValues: (super fromValues: values) Platypus.PltIfStatement platypus-generated-group-accessing localFromValues: values ^ self ifStatementFromValues:values Platypus.PltIfStatement platypus-generated-group-accessing localToValues: values ^ self ifStatementToValues:values Platypus.PltIfStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltIfStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltIfStatement platypus-generated-accessing selector ^selector Platypus.PltIfStatement platypus-generated-set-accessing setSelector:aPltExpression self selector:aPltExpression Platypus.PltIfStatement platypus-generated-accessing selector:aPltExpression selector := aPltExpression Platypus.PltIfStatement platypus-generated-fast-set-accessing fastSetSelector:aPltExpression selector := aPltExpression Platypus.PltIfStatement platypus-generated-with-context-accessing selectorUsingContext:aContext ^ self selector Platypus.PltIfStatement platypus-generated-accessing thenStatements ^thenStatements Platypus.PltIfStatement platypus-generated-set-accessing setThenStatements:aListOfPltStatement self thenStatements:aListOfPltStatement Platypus.PltIfStatement platypus-generated-accessing thenStatements:aListOfPltStatement thenStatements := aListOfPltStatement ifNil: [OrderedCollection new] ifNotNil: [aListOfPltStatement as: OrderedCollection] Platypus.PltIfStatement platypus-generated-fast-set-accessing fastSetThenStatements:aListOfPltStatement thenStatements := aListOfPltStatement Platypus.PltIfStatement platypus-generated-with-context-accessing thenStatementsUsingContext:aContext ^ self thenStatements Platypus.PltIfStatement platypus-generated-accessing elseStatements ^elseStatements Platypus.PltIfStatement platypus-generated-set-accessing setElseStatements:aListOfPltStatement self elseStatements:aListOfPltStatement Platypus.PltIfStatement platypus-generated-accessing elseStatements:aListOfPltStatement elseStatements := aListOfPltStatement ifNil: [OrderedCollection new] ifNotNil: [aListOfPltStatement as: OrderedCollection] Platypus.PltIfStatement platypus-generated-fast-set-accessing fastSetElseStatements:aListOfPltStatement elseStatements := aListOfPltStatement Platypus.PltIfStatement platypus-generated-with-context-accessing elseStatementsUsingContext:aContext ^ self elseStatements Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltRepeatStatement Platypus Platypus.PltStatement false none incrControl whileControl statements untilControl Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltRepeatStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltRepeatStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltRepeatStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltRepeatStatement <ISO10303-11-EXPRESS> ENTITY repeat_statement SUBTYPE OF ( statement ); incr_control : OPTIONAL increment_control; until_control : OPTIONAL expression; while_control : OPTIONAL expression; statements : LIST OF statement; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltRepeatStatement platypus-generated-initializing stepInitialize super stepInitialize. incrControl := nil. untilControl := nil. whileControl := nil. statements := OrderedCollection new. Platypus.PltRepeatStatement platypus-generated-classifying isPltRepeatStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltRepeatStatement ^ false Platypus.PltRepeatStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptRepeatStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptRepeatStatement: e "my subclasses have to redefine it" Platypus.PltRepeatStatement platypus-generated-copying repeatStatementCopyTo:another another fastSetIncrControl: (self incrControl). another fastSetUntilControl: (self untilControl). another fastSetWhileControl: (self whileControl). another fastSetStatements: (self statements). Platypus.PltRepeatStatement platypus-generated-copying pltLocalCopyTo: another self repeatStatementCopyTo:another Platypus.PltRepeatStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self repeatStatementCopyTo: another. Platypus.PltRepeatStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltRepeatStatement platypus-generated-group-accessing repeatStatementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setIncrControl:valuesloc removeFirst. self setUntilControl:valuesloc removeFirst. self setWhileControl:valuesloc removeFirst. self setStatements:valuesloc removeFirst. ^ valuesloc Platypus.PltRepeatStatement platypus-generated-group-accessing repeatStatementToValues:values values add: (self incrControl). values add: (self untilControl). values add: (self whileControl). values add: (self statements). ^ values Platypus.PltRepeatStatement platypus-generated-group-accessing toValues:values ^ self repeatStatementToValues: (super toValues: values) Platypus.PltRepeatStatement platypus-generated-group-accessing fromValues:values ^ self repeatStatementFromValues: (super fromValues: values) Platypus.PltRepeatStatement platypus-generated-group-accessing localFromValues: values ^ self repeatStatementFromValues:values Platypus.PltRepeatStatement platypus-generated-group-accessing localToValues: values ^ self repeatStatementToValues:values Platypus.PltRepeatStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltRepeatStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltRepeatStatement platypus-generated-accessing incrControl ^incrControl Platypus.PltRepeatStatement platypus-generated-set-accessing setIncrControl:aPltIncrementControl self incrControl:aPltIncrementControl Platypus.PltRepeatStatement platypus-generated-accessing incrControl:aPltIncrementControl incrControl := aPltIncrementControl Platypus.PltRepeatStatement platypus-generated-fast-set-accessing fastSetIncrControl:aPltIncrementControl incrControl := aPltIncrementControl Platypus.PltRepeatStatement platypus-generated-with-context-accessing incrControlUsingContext:aContext ^ self incrControl Platypus.PltRepeatStatement platypus-generated-accessing untilControl ^untilControl Platypus.PltRepeatStatement platypus-generated-set-accessing setUntilControl:aPltExpression self untilControl:aPltExpression Platypus.PltRepeatStatement platypus-generated-accessing untilControl:aPltExpression untilControl := aPltExpression Platypus.PltRepeatStatement platypus-generated-fast-set-accessing fastSetUntilControl:aPltExpression untilControl := aPltExpression Platypus.PltRepeatStatement platypus-generated-with-context-accessing untilControlUsingContext:aContext ^ self untilControl Platypus.PltRepeatStatement platypus-generated-accessing whileControl ^whileControl Platypus.PltRepeatStatement platypus-generated-set-accessing setWhileControl:aPltExpression self whileControl:aPltExpression Platypus.PltRepeatStatement platypus-generated-accessing whileControl:aPltExpression whileControl := aPltExpression Platypus.PltRepeatStatement platypus-generated-fast-set-accessing fastSetWhileControl:aPltExpression whileControl := aPltExpression Platypus.PltRepeatStatement platypus-generated-with-context-accessing whileControlUsingContext:aContext ^ self whileControl Platypus.PltRepeatStatement platypus-generated-accessing statements ^statements Platypus.PltRepeatStatement platypus-generated-set-accessing setStatements:aListOfPltStatement self statements:aListOfPltStatement Platypus.PltRepeatStatement platypus-generated-accessing statements:aListOfPltStatement statements := aListOfPltStatement ifNil: [OrderedCollection new] ifNotNil: [aListOfPltStatement as: OrderedCollection] Platypus.PltRepeatStatement platypus-generated-fast-set-accessing fastSetStatements:aListOfPltStatement statements := aListOfPltStatement Platypus.PltRepeatStatement platypus-generated-with-context-accessing statementsUsingContext:aContext ^ self statements Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltIncrementControlVariable Platypus Platypus.PltDictionaryInstance false none variableId Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltIncrementControlVariable class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltIncrementControlVariable class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltIncrementControlVariable class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltIncrementControlVariable <ISO10303-11-EXPRESS> ENTITY increment_control_variable SUBTYPE OF ( dictionary_instance ); variable_id : STRING; SELF\entity_instance.owner : increment_control; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltIncrementControlVariable platypus-generated-initializing stepInitialize super stepInitialize. variableId := ''. owner := nil. Platypus.PltIncrementControlVariable platypus-generated-classifying isPltIncrementControlVariable ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltIncrementControlVariable ^ false Platypus.PltIncrementControlVariable platypus-generated-visiting accept: aVisitor ^ aVisitor acceptIncrementControlVariable: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptIncrementControlVariable: e "my subclasses have to redefine it" Platypus.PltIncrementControlVariable platypus-generated-copying incrementControlVariableCopyTo:another another fastSetVariableId: (self variableId). another fastSetOwner: (self owner). Platypus.PltIncrementControlVariable platypus-generated-copying pltLocalCopyTo: another self incrementControlVariableCopyTo:another Platypus.PltIncrementControlVariable platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self incrementControlVariableCopyTo: another. Platypus.PltIncrementControlVariable platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltIncrementControlVariable platypus-generated-group-accessing incrementControlVariableFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setVariableId:valuesloc removeFirst. self setOwner:valuesloc removeFirst. ^ valuesloc Platypus.PltIncrementControlVariable platypus-generated-group-accessing incrementControlVariableToValues:values values add: (self variableId). values add: (self owner). ^ values Platypus.PltIncrementControlVariable platypus-generated-group-accessing toValues:values ^ self incrementControlVariableToValues: (super toValues: values) Platypus.PltIncrementControlVariable platypus-generated-group-accessing fromValues:values ^ self incrementControlVariableFromValues: (super fromValues: values) Platypus.PltIncrementControlVariable platypus-generated-group-accessing localFromValues: values ^ self incrementControlVariableFromValues:values Platypus.PltIncrementControlVariable platypus-generated-group-accessing localToValues: values ^ self incrementControlVariableToValues:values Platypus.PltIncrementControlVariable class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltIncrementControlVariable class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltIncrementControlVariable platypus-generated-accessing variableId ^variableId Platypus.PltIncrementControlVariable platypus-generated-set-accessing setVariableId:aString self variableId:aString Platypus.PltIncrementControlVariable platypus-generated-accessing variableId:aString variableId := aString Platypus.PltIncrementControlVariable platypus-generated-fast-set-accessing fastSetVariableId:aString variableId := aString Platypus.PltIncrementControlVariable platypus-generated-with-context-accessing variableIdUsingContext:aContext ^ self variableId Platypus.PltIncrementControlVariable platypus-generated-accessing owner ^owner Platypus.PltIncrementControlVariable platypus-generated-set-accessing setOwner:aPltIncrementControl self owner:aPltIncrementControl Platypus.PltIncrementControlVariable platypus-generated-accessing owner:aPltIncrementControl owner := aPltIncrementControl Platypus.PltIncrementControlVariable platypus-generated-fast-set-accessing fastSetOwner:aPltIncrementControl owner := aPltIncrementControl Platypus.PltIncrementControlVariable platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltIncrementControl Platypus Platypus.PltDictionaryInstance false none identifiersCache variable first last step Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltIncrementControl class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltIncrementControl class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltIncrementControl class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltIncrementControl <ISO10303-11-EXPRESS> ENTITY increment_control SUBTYPE OF ( dictionary_instance ); variable : increment_control_variable; first : expression; last : expression; step : OPTIONAL expression; SELF\entity_instance.owner : repeat_statement; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltIncrementControl platypus-generated-initializing stepInitialize super stepInitialize. variable := nil. first := nil. last := nil. step := nil. owner := nil. Platypus.PltIncrementControl platypus-generated-classifying isPltIncrementControl ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltIncrementControl ^ false Platypus.PltIncrementControl platypus-generated-visiting accept: aVisitor ^ aVisitor acceptIncrementControl: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptIncrementControl: e "my subclasses have to redefine it" Platypus.PltIncrementControl platypus-generated-copying incrementControlCopyTo:another another fastSetVariable: (self variable). another fastSetFirst: (self first). another fastSetLast: (self last). another fastSetStep: (self step). another fastSetOwner: (self owner). Platypus.PltIncrementControl platypus-generated-copying pltLocalCopyTo: another self incrementControlCopyTo:another Platypus.PltIncrementControl platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self incrementControlCopyTo: another. Platypus.PltIncrementControl platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltIncrementControl platypus-generated-group-accessing incrementControlFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setVariable:valuesloc removeFirst. self setFirst:valuesloc removeFirst. self setLast:valuesloc removeFirst. self setStep:valuesloc removeFirst. self setOwner:valuesloc removeFirst. ^ valuesloc Platypus.PltIncrementControl platypus-generated-group-accessing incrementControlToValues:values values add: (self variable). values add: (self first). values add: (self last). values add: (self step). values add: (self owner). ^ values Platypus.PltIncrementControl platypus-generated-group-accessing toValues:values ^ self incrementControlToValues: (super toValues: values) Platypus.PltIncrementControl platypus-generated-group-accessing fromValues:values ^ self incrementControlFromValues: (super fromValues: values) Platypus.PltIncrementControl platypus-generated-group-accessing localFromValues: values ^ self incrementControlFromValues:values Platypus.PltIncrementControl platypus-generated-group-accessing localToValues: values ^ self incrementControlToValues:values Platypus.PltIncrementControl class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltIncrementControl class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltIncrementControl platypus-generated-accessing variable ^variable Platypus.PltIncrementControl platypus-generated-set-accessing setVariable:aPltIncrementControlVariable self variable:aPltIncrementControlVariable Platypus.PltIncrementControl platypus-generated-accessing variable:aPltIncrementControlVariable variable := aPltIncrementControlVariable Platypus.PltIncrementControl platypus-generated-fast-set-accessing fastSetVariable:aPltIncrementControlVariable variable := aPltIncrementControlVariable Platypus.PltIncrementControl platypus-generated-with-context-accessing variableUsingContext:aContext ^ self variable Platypus.PltIncrementControl platypus-generated-accessing first ^first Platypus.PltIncrementControl platypus-generated-set-accessing setFirst:aPltExpression self first:aPltExpression Platypus.PltIncrementControl platypus-generated-accessing first:aPltExpression first := aPltExpression Platypus.PltIncrementControl platypus-generated-fast-set-accessing fastSetFirst:aPltExpression first := aPltExpression Platypus.PltIncrementControl platypus-generated-with-context-accessing firstUsingContext:aContext ^ self first Platypus.PltIncrementControl platypus-generated-accessing last ^last Platypus.PltIncrementControl platypus-generated-set-accessing setLast:aPltExpression self last:aPltExpression Platypus.PltIncrementControl platypus-generated-accessing last:aPltExpression last := aPltExpression Platypus.PltIncrementControl platypus-generated-fast-set-accessing fastSetLast:aPltExpression last := aPltExpression Platypus.PltIncrementControl platypus-generated-with-context-accessing lastUsingContext:aContext ^ self last Platypus.PltIncrementControl platypus-generated-accessing step ^step Platypus.PltIncrementControl platypus-generated-set-accessing setStep:aPltExpression self step:aPltExpression Platypus.PltIncrementControl platypus-generated-accessing step:aPltExpression step := aPltExpression Platypus.PltIncrementControl platypus-generated-fast-set-accessing fastSetStep:aPltExpression step := aPltExpression Platypus.PltIncrementControl platypus-generated-with-context-accessing stepUsingContext:aContext ^ self step Platypus.PltIncrementControl platypus-generated-accessing owner ^owner Platypus.PltIncrementControl platypus-generated-set-accessing setOwner:aPltRepeatStatement self owner:aPltRepeatStatement Platypus.PltIncrementControl platypus-generated-accessing owner:aPltRepeatStatement owner := aPltRepeatStatement Platypus.PltIncrementControl platypus-generated-fast-set-accessing fastSetOwner:aPltRepeatStatement owner := aPltRepeatStatement Platypus.PltIncrementControl platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltReturnStatement Platypus Platypus.PltStatement false none returned Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltReturnStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltReturnStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltReturnStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltReturnStatement <ISO10303-11-EXPRESS> ENTITY return_statement SUBTYPE OF ( statement ); returned : OPTIONAL expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltReturnStatement platypus-generated-initializing stepInitialize super stepInitialize. returned := nil. Platypus.PltReturnStatement platypus-generated-classifying isPltReturnStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltReturnStatement ^ false Platypus.PltReturnStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptReturnStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptReturnStatement: e "my subclasses have to redefine it" Platypus.PltReturnStatement platypus-generated-copying returnStatementCopyTo:another another fastSetReturned: (self returned). Platypus.PltReturnStatement platypus-generated-copying pltLocalCopyTo: another self returnStatementCopyTo:another Platypus.PltReturnStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self returnStatementCopyTo: another. Platypus.PltReturnStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltReturnStatement platypus-generated-group-accessing returnStatementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setReturned:valuesloc removeFirst. ^ valuesloc Platypus.PltReturnStatement platypus-generated-group-accessing returnStatementToValues:values values add: (self returned). ^ values Platypus.PltReturnStatement platypus-generated-group-accessing toValues:values ^ self returnStatementToValues: (super toValues: values) Platypus.PltReturnStatement platypus-generated-group-accessing fromValues:values ^ self returnStatementFromValues: (super fromValues: values) Platypus.PltReturnStatement platypus-generated-group-accessing localFromValues: values ^ self returnStatementFromValues:values Platypus.PltReturnStatement platypus-generated-group-accessing localToValues: values ^ self returnStatementToValues:values Platypus.PltReturnStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltReturnStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltReturnStatement platypus-generated-accessing returned ^returned Platypus.PltReturnStatement platypus-generated-set-accessing setReturned:aPltExpression self returned:aPltExpression Platypus.PltReturnStatement platypus-generated-accessing returned:aPltExpression returned := aPltExpression Platypus.PltReturnStatement platypus-generated-fast-set-accessing fastSetReturned:aPltExpression returned := aPltExpression Platypus.PltReturnStatement platypus-generated-with-context-accessing returnedUsingContext:aContext ^ self returned Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltProcedureCallStatement Platypus Platypus.PltStatement false none call Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltProcedureCallStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltProcedureCallStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltProcedureCallStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltProcedureCallStatement <ISO10303-11-EXPRESS> ENTITY procedure_call_statement SUBTYPE OF ( statement ); call : identifier; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltProcedureCallStatement platypus-generated-initializing stepInitialize super stepInitialize. call := nil. Platypus.PltProcedureCallStatement platypus-generated-classifying isPltProcedureCallStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltProcedureCallStatement ^ false Platypus.PltProcedureCallStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptProcedureCallStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptProcedureCallStatement: e "my subclasses have to redefine it" Platypus.PltProcedureCallStatement platypus-generated-copying procedureCallStatementCopyTo:another another fastSetCall: (self call). Platypus.PltProcedureCallStatement platypus-generated-copying pltLocalCopyTo: another self procedureCallStatementCopyTo:another Platypus.PltProcedureCallStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self procedureCallStatementCopyTo: another. Platypus.PltProcedureCallStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltProcedureCallStatement platypus-generated-group-accessing procedureCallStatementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setCall:valuesloc removeFirst. ^ valuesloc Platypus.PltProcedureCallStatement platypus-generated-group-accessing procedureCallStatementToValues:values values add: (self call). ^ values Platypus.PltProcedureCallStatement platypus-generated-group-accessing toValues:values ^ self procedureCallStatementToValues: (super toValues: values) Platypus.PltProcedureCallStatement platypus-generated-group-accessing fromValues:values ^ self procedureCallStatementFromValues: (super fromValues: values) Platypus.PltProcedureCallStatement platypus-generated-group-accessing localFromValues: values ^ self procedureCallStatementFromValues:values Platypus.PltProcedureCallStatement platypus-generated-group-accessing localToValues: values ^ self procedureCallStatementToValues:values Platypus.PltProcedureCallStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltProcedureCallStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltProcedureCallStatement platypus-generated-accessing call ^call Platypus.PltProcedureCallStatement platypus-generated-set-accessing setCall:aPltIdentifier self call:aPltIdentifier Platypus.PltProcedureCallStatement platypus-generated-accessing call:aPltIdentifier call := aPltIdentifier Platypus.PltProcedureCallStatement platypus-generated-fast-set-accessing fastSetCall:aPltIdentifier call := aPltIdentifier Platypus.PltProcedureCallStatement platypus-generated-with-context-accessing callUsingContext:aContext ^ self call Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltSkipStatement Platypus Platypus.PltStatement false none Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltSkipStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSkipStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSkipStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSkipStatement <ISO10303-11-EXPRESS> ENTITY skip_statement SUBTYPE OF ( statement ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSkipStatement platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltSkipStatement platypus-generated-classifying isPltSkipStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltSkipStatement ^ false Platypus.PltSkipStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSkipStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptSkipStatement: e "my subclasses have to redefine it" Platypus.PltSkipStatement platypus-generated-copying skipStatementCopyTo:another Platypus.PltSkipStatement platypus-generated-copying pltLocalCopyTo: another self skipStatementCopyTo:another Platypus.PltSkipStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self skipStatementCopyTo: another. Platypus.PltSkipStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSkipStatement platypus-generated-group-accessing skipStatementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltSkipStatement platypus-generated-group-accessing skipStatementToValues:values ^ values Platypus.PltSkipStatement platypus-generated-group-accessing toValues:values ^ self skipStatementToValues: (super toValues: values) Platypus.PltSkipStatement platypus-generated-group-accessing fromValues:values ^ self skipStatementFromValues: (super fromValues: values) Platypus.PltSkipStatement platypus-generated-group-accessing localFromValues: values ^ self skipStatementFromValues:values Platypus.PltSkipStatement platypus-generated-group-accessing localToValues: values ^ self skipStatementToValues:values Platypus.PltSkipStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltSkipStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltOutputStatement Platypus Platypus.PltStatement false none output Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltOutputStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltOutputStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltOutputStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltOutputStatement <ISO10303-11-EXPRESS> ENTITY output_statement SUBTYPE OF ( statement ); output : expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltOutputStatement platypus-generated-initializing stepInitialize super stepInitialize. output := nil. Platypus.PltOutputStatement platypus-generated-classifying isPltOutputStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltOutputStatement ^ false Platypus.PltOutputStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptOutputStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptOutputStatement: e "my subclasses have to redefine it" Platypus.PltOutputStatement platypus-generated-copying outputStatementCopyTo:another another fastSetOutput: (self output). Platypus.PltOutputStatement platypus-generated-copying pltLocalCopyTo: another self outputStatementCopyTo:another Platypus.PltOutputStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self outputStatementCopyTo: another. Platypus.PltOutputStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltOutputStatement platypus-generated-group-accessing outputStatementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setOutput:valuesloc removeFirst. ^ valuesloc Platypus.PltOutputStatement platypus-generated-group-accessing outputStatementToValues:values values add: (self output). ^ values Platypus.PltOutputStatement platypus-generated-group-accessing toValues:values ^ self outputStatementToValues: (super toValues: values) Platypus.PltOutputStatement platypus-generated-group-accessing fromValues:values ^ self outputStatementFromValues: (super fromValues: values) Platypus.PltOutputStatement platypus-generated-group-accessing localFromValues: values ^ self outputStatementFromValues:values Platypus.PltOutputStatement platypus-generated-group-accessing localToValues: values ^ self outputStatementToValues:values Platypus.PltOutputStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltOutputStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltOutputStatement platypus-generated-accessing output ^output Platypus.PltOutputStatement platypus-generated-set-accessing setOutput:aPltExpression self output:aPltExpression Platypus.PltOutputStatement platypus-generated-accessing output:aPltExpression output := aPltExpression Platypus.PltOutputStatement platypus-generated-fast-set-accessing fastSetOutput:aPltExpression output := aPltExpression Platypus.PltOutputStatement platypus-generated-with-context-accessing outputUsingContext:aContext ^ self output Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltSplitmarkStatement Platypus Platypus.PltStatement false none append filename Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltSplitmarkStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSplitmarkStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSplitmarkStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSplitmarkStatement <ISO10303-11-EXPRESS> ENTITY splitmark_statement SUBTYPE OF ( statement ); filename : expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSplitmarkStatement platypus-generated-initializing stepInitialize super stepInitialize. filename := nil. Platypus.PltSplitmarkStatement platypus-generated-classifying isPltSplitmarkStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltSplitmarkStatement ^ false Platypus.PltSplitmarkStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSplitmarkStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptSplitmarkStatement: e "my subclasses have to redefine it" Platypus.PltSplitmarkStatement platypus-generated-copying splitmarkStatementCopyTo:another another fastSetFilename: (self filename). Platypus.PltSplitmarkStatement platypus-generated-copying pltLocalCopyTo: another self splitmarkStatementCopyTo:another Platypus.PltSplitmarkStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self splitmarkStatementCopyTo: another. Platypus.PltSplitmarkStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSplitmarkStatement platypus-generated-group-accessing splitmarkStatementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setFilename:valuesloc removeFirst. ^ valuesloc Platypus.PltSplitmarkStatement platypus-generated-group-accessing splitmarkStatementToValues:values values add: (self filename). ^ values Platypus.PltSplitmarkStatement platypus-generated-group-accessing toValues:values ^ self splitmarkStatementToValues: (super toValues: values) Platypus.PltSplitmarkStatement platypus-generated-group-accessing fromValues:values ^ self splitmarkStatementFromValues: (super fromValues: values) Platypus.PltSplitmarkStatement platypus-generated-group-accessing localFromValues: values ^ self splitmarkStatementFromValues:values Platypus.PltSplitmarkStatement platypus-generated-group-accessing localToValues: values ^ self splitmarkStatementToValues:values Platypus.PltSplitmarkStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltSplitmarkStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltSplitmarkStatement platypus-generated-accessing filename ^filename Platypus.PltSplitmarkStatement platypus-generated-set-accessing setFilename:aPltExpression self filename:aPltExpression Platypus.PltSplitmarkStatement platypus-generated-accessing filename:aPltExpression filename := aPltExpression Platypus.PltSplitmarkStatement platypus-generated-fast-set-accessing fastSetFilename:aPltExpression filename := aPltExpression Platypus.PltSplitmarkStatement platypus-generated-with-context-accessing filenameUsingContext:aContext ^ self filename Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltEndSplitmarkStatement Platypus Platypus.PltStatement false none Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltEndSplitmarkStatement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltEndSplitmarkStatement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltEndSplitmarkStatement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltEndSplitmarkStatement <ISO10303-11-EXPRESS> ENTITY end_splitmark_statement SUBTYPE OF ( statement ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltEndSplitmarkStatement platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltEndSplitmarkStatement platypus-generated-classifying isPltEndSplitmarkStatement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltEndSplitmarkStatement ^ false Platypus.PltEndSplitmarkStatement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptEndSplitmarkStatement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptEndSplitmarkStatement: e "my subclasses have to redefine it" Platypus.PltEndSplitmarkStatement platypus-generated-copying endSplitmarkStatementCopyTo:another Platypus.PltEndSplitmarkStatement platypus-generated-copying pltLocalCopyTo: another self endSplitmarkStatementCopyTo:another Platypus.PltEndSplitmarkStatement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self endSplitmarkStatementCopyTo: another. Platypus.PltEndSplitmarkStatement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltEndSplitmarkStatement platypus-generated-group-accessing endSplitmarkStatementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltEndSplitmarkStatement platypus-generated-group-accessing endSplitmarkStatementToValues:values ^ values Platypus.PltEndSplitmarkStatement platypus-generated-group-accessing toValues:values ^ self endSplitmarkStatementToValues: (super toValues: values) Platypus.PltEndSplitmarkStatement platypus-generated-group-accessing fromValues:values ^ self endSplitmarkStatementFromValues: (super fromValues: values) Platypus.PltEndSplitmarkStatement platypus-generated-group-accessing localFromValues: values ^ self endSplitmarkStatementFromValues:values Platypus.PltEndSplitmarkStatement platypus-generated-group-accessing localToValues: values ^ self endSplitmarkStatementToValues:values Platypus.PltEndSplitmarkStatement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltEndSplitmarkStatement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAnonymousVariable Platypus Platypus.PltDictionaryInstance false none domain default default Platypus-PlatypusStatementsSchemaSchema Platypus Platypus.PltAnonymousVariable class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAnonymousVariable class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAnonymousVariable class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAnonymousVariable <ISO10303-11-EXPRESS> ENTITY anonymous_variable SUBTYPE OF ( dictionary_instance ); domain : parameter_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAnonymousVariable platypus-generated-initializing stepInitialize super stepInitialize. domain := nil. Platypus.PltAnonymousVariable platypus-generated-classifying isPltAnonymousVariable ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusStatementsSchemaSchema-classifying isPltAnonymousVariable ^ false Platypus.PltAnonymousVariable platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAnonymousVariable: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusStatementsSchema acceptAnonymousVariable: e "my subclasses have to redefine it" Platypus.PltAnonymousVariable platypus-generated-copying anonymousVariableCopyTo:another another fastSetDomain: (self domain). Platypus.PltAnonymousVariable platypus-generated-copying pltLocalCopyTo: another self anonymousVariableCopyTo:another Platypus.PltAnonymousVariable platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self anonymousVariableCopyTo: another. Platypus.PltAnonymousVariable platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAnonymousVariable platypus-generated-group-accessing anonymousVariableFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setDomain:valuesloc removeFirst. ^ valuesloc Platypus.PltAnonymousVariable platypus-generated-group-accessing anonymousVariableToValues:values values add: (self domain). ^ values Platypus.PltAnonymousVariable platypus-generated-group-accessing toValues:values ^ self anonymousVariableToValues: (super toValues: values) Platypus.PltAnonymousVariable platypus-generated-group-accessing fromValues:values ^ self anonymousVariableFromValues: (super fromValues: values) Platypus.PltAnonymousVariable platypus-generated-group-accessing localFromValues: values ^ self anonymousVariableFromValues:values Platypus.PltAnonymousVariable platypus-generated-group-accessing localToValues: values ^ self anonymousVariableToValues:values Platypus.PltAnonymousVariable class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusStatementsSchemaSchemaDefinition singleton Platypus.PltAnonymousVariable class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAnonymousVariable platypus-generated-accessing domain ^domain Platypus.PltAnonymousVariable platypus-generated-set-accessing setDomain:aPltParameterType self domain:aPltParameterType Platypus.PltAnonymousVariable platypus-generated-accessing domain:aPltParameterType domain := aPltParameterType Platypus.PltAnonymousVariable platypus-generated-fast-set-accessing fastSetDomain:aPltParameterType domain := aPltParameterType Platypus.PltAnonymousVariable platypus-generated-with-context-accessing domainUsingContext:aContext ^ self domain PltPlatypusAggregateDataSchemaSchemaDefinition Platypus Platypus.PlatypusCoreSchema false none Platypus-PlatypusAggregateDataSchemaSchema Platypus Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition <ISO10303-11-EXPRESS> SCHEMA Platypus_aggregate_data_schema; USE FROM Platypus_population_schema; USE FROM Platypus_dictionary_schema; USE FROM Platypus_expressions_schema; ENTITY aggregate_data ABSTRACT SUPERTYPE OF ( ONEOF ( aggregate_instance, aggregate_initializer ) ) SUBTYPE OF ( expression ); END_ENTITY; ENTITY aggregate_initializer SUBTYPE OF ( aggregate_data ); contents : LIST OF aggregate_initializer_element; END_ENTITY; ENTITY aggregate_initializer_element SUBTYPE OF ( dictionary_instance ); SELF\entity_instance.owner : aggregate_initializer; val : primitive; repetition : OPTIONAL expression; END_ENTITY; ENTITY aggregate_instance ABSTRACT SUPERTYPE OF ( ONEOF ( array_instance, variable_size_aggregation_instance ) ) SUBTYPE OF ( aggregate_data ); lower_bound : integer_literal; upper_bound : integer_literal; END_ENTITY; ENTITY array_instance SUBTYPE OF ( aggregate_instance ); contents : LIST OF primitive; END_ENTITY; ENTITY variable_size_aggregation_instance ABSTRACT SUPERTYPE OF ( ONEOF ( set_instance, bag_instance, list_instance ) ) SUBTYPE OF ( aggregate_instance ); END_ENTITY; ENTITY list_instance SUBTYPE OF ( variable_size_aggregation_instance ); contents : LIST OF primitive; END_ENTITY; ENTITY bag_instance SUBTYPE OF ( variable_size_aggregation_instance ); contents : BAG OF primitive; END_ENTITY; ENTITY set_instance SUBTYPE OF ( variable_size_aggregation_instance ); contents : SET OF primitive; END_ENTITY; END_SCHEMA; </ISO10303-11-EXPRESS> Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition platypus-generated-meta-data-accessing schemaInstanceClassName ^ #PltPlatypusMetaSchemasSchemaInstance Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition platypus-generated-context-accessing context ^ self schemaInstance context Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition platypus-generated-entities entityDefinition1^ #( #'aggregate_data' #PltAggregateData ) Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition platypus-generated-entities entityDefinition2^ #( #'aggregate_initializer' #PltAggregateInitializer ) Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition platypus-generated-entities entityDefinition3^ #( #'aggregate_initializer_element' #PltAggregateInitializerElement ) Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition platypus-generated-entities entityDefinition4^ #( #'aggregate_instance' #PltAggregateInstance ) Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition platypus-generated-entities entityDefinition5^ #( #'array_instance' #PltArrayInstance ) Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition platypus-generated-entities entityDefinition6^ #( #'variable_size_aggregation_instance' #PltVariableSizeAggregationInstance ) Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition platypus-generated-entities entityDefinition7^ #( #'list_instance' #PltListInstance ) Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition platypus-generated-entities entityDefinition8^ #( #'bag_instance' #PltBagInstance ) Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition platypus-generated-entities entityDefinition9^ #( #'set_instance' #PltSetInstance ) Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition platypus-generated-entities entityDefinitionCount ^ 9 Platypus.PltPlatypusAggregateDataSchemaSchemaDefinition platypus-generated-functions functionDeclarationCount ^ 0 Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAggregateData Platypus Platypus.PltExpression false none Platypus-PlatypusAggregateDataSchemaSchema Platypus Platypus.PltAggregateData class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAggregateData class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAggregateData class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAggregateData <ISO10303-11-EXPRESS> ENTITY aggregate_data ABSTRACT SUPERTYPE OF ( ONEOF ( aggregate_instance, aggregate_initializer ) ) SUBTYPE OF ( expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAggregateData platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltAggregateData platypus-generated-classifying isPltAggregateData ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusAggregateDataSchemaSchema-classifying isPltAggregateData ^ false Platypus.PltAggregateData platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAggregateData: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusAggregateDataSchema acceptAggregateData: e "my subclasses have to redefine it" Platypus.PltAggregateData platypus-generated-copying aggregateDataCopyTo:another Platypus.PltAggregateData platypus-generated-copying pltLocalCopyTo: another self aggregateDataCopyTo:another Platypus.PltAggregateData platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self aggregateDataCopyTo: another. Platypus.PltAggregateData platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAggregateData platypus-generated-group-accessing aggregateDataFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltAggregateData platypus-generated-group-accessing aggregateDataToValues:values ^ values Platypus.PltAggregateData platypus-generated-group-accessing toValues:values ^ self aggregateDataToValues: (super toValues: values) Platypus.PltAggregateData platypus-generated-group-accessing fromValues:values ^ self aggregateDataFromValues: (super fromValues: values) Platypus.PltAggregateData platypus-generated-group-accessing localFromValues: values ^ self aggregateDataFromValues:values Platypus.PltAggregateData platypus-generated-group-accessing localToValues: values ^ self aggregateDataToValues:values Platypus.PltAggregateData class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusAggregateDataSchemaSchemaDefinition singleton Platypus.PltAggregateData class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAggregateInitializer Platypus Platypus.PltAggregateData false none contents Platypus-PlatypusAggregateDataSchemaSchema Platypus Platypus.PltAggregateInitializer class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAggregateInitializer class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAggregateInitializer class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAggregateInitializer <ISO10303-11-EXPRESS> ENTITY aggregate_initializer SUBTYPE OF ( aggregate_data ); contents : LIST OF aggregate_initializer_element; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAggregateInitializer platypus-generated-initializing stepInitialize super stepInitialize. contents := OrderedCollection new. Platypus.PltAggregateInitializer platypus-generated-classifying isPltAggregateInitializer ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusAggregateDataSchemaSchema-classifying isPltAggregateInitializer ^ false Platypus.PltAggregateInitializer platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAggregateInitializer: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusAggregateDataSchema acceptAggregateInitializer: e "my subclasses have to redefine it" Platypus.PltAggregateInitializer platypus-generated-copying aggregateInitializerCopyTo:another another fastSetContents: (self contents). Platypus.PltAggregateInitializer platypus-generated-copying pltLocalCopyTo: another self aggregateInitializerCopyTo:another Platypus.PltAggregateInitializer platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self aggregateInitializerCopyTo: another. Platypus.PltAggregateInitializer platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAggregateInitializer platypus-generated-group-accessing aggregateInitializerFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setContents:valuesloc removeFirst. ^ valuesloc Platypus.PltAggregateInitializer platypus-generated-group-accessing aggregateInitializerToValues:values values add: (self contents). ^ values Platypus.PltAggregateInitializer platypus-generated-group-accessing toValues:values ^ self aggregateInitializerToValues: (super toValues: values) Platypus.PltAggregateInitializer platypus-generated-group-accessing fromValues:values ^ self aggregateInitializerFromValues: (super fromValues: values) Platypus.PltAggregateInitializer platypus-generated-group-accessing localFromValues: values ^ self aggregateInitializerFromValues:values Platypus.PltAggregateInitializer platypus-generated-group-accessing localToValues: values ^ self aggregateInitializerToValues:values Platypus.PltAggregateInitializer class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusAggregateDataSchemaSchemaDefinition singleton Platypus.PltAggregateInitializer class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAggregateInitializer platypus-generated-accessing contents ^contents Platypus.PltAggregateInitializer platypus-generated-set-accessing setContents:aListOfPltAggregateInitializerElement self contents:aListOfPltAggregateInitializerElement Platypus.PltAggregateInitializer platypus-generated-accessing contents:aListOfPltAggregateInitializerElement contents := aListOfPltAggregateInitializerElement ifNil: [OrderedCollection new] ifNotNil: [aListOfPltAggregateInitializerElement as: OrderedCollection] Platypus.PltAggregateInitializer platypus-generated-fast-set-accessing fastSetContents:aListOfPltAggregateInitializerElement contents := aListOfPltAggregateInitializerElement Platypus.PltAggregateInitializer platypus-generated-with-context-accessing contentsUsingContext:aContext ^ self contents Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAggregateInitializerElement Platypus Platypus.PltDictionaryInstance false none val repetition Platypus-PlatypusAggregateDataSchemaSchema Platypus Platypus.PltAggregateInitializerElement class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAggregateInitializerElement class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAggregateInitializerElement class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAggregateInitializerElement <ISO10303-11-EXPRESS> ENTITY aggregate_initializer_element SUBTYPE OF ( dictionary_instance ); SELF\entity_instance.owner : aggregate_initializer; val : primitive; repetition : OPTIONAL expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAggregateInitializerElement platypus-generated-initializing stepInitialize super stepInitialize. owner := nil. val := nil. repetition := nil. Platypus.PltAggregateInitializerElement platypus-generated-classifying isPltAggregateInitializerElement ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusAggregateDataSchemaSchema-classifying isPltAggregateInitializerElement ^ false Platypus.PltAggregateInitializerElement platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAggregateInitializerElement: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusAggregateDataSchema acceptAggregateInitializerElement: e "my subclasses have to redefine it" Platypus.PltAggregateInitializerElement platypus-generated-copying aggregateInitializerElementCopyTo:another another fastSetOwner: (self owner). another fastSetVal: (self val). another fastSetRepetition: (self repetition). Platypus.PltAggregateInitializerElement platypus-generated-copying pltLocalCopyTo: another self aggregateInitializerElementCopyTo:another Platypus.PltAggregateInitializerElement platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self aggregateInitializerElementCopyTo: another. Platypus.PltAggregateInitializerElement platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAggregateInitializerElement platypus-generated-group-accessing aggregateInitializerElementFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setOwner:valuesloc removeFirst. self setVal:valuesloc removeFirst. self setRepetition:valuesloc removeFirst. ^ valuesloc Platypus.PltAggregateInitializerElement platypus-generated-group-accessing aggregateInitializerElementToValues:values values add: (self owner). values add: (self val). values add: (self repetition). ^ values Platypus.PltAggregateInitializerElement platypus-generated-group-accessing toValues:values ^ self aggregateInitializerElementToValues: (super toValues: values) Platypus.PltAggregateInitializerElement platypus-generated-group-accessing fromValues:values ^ self aggregateInitializerElementFromValues: (super fromValues: values) Platypus.PltAggregateInitializerElement platypus-generated-group-accessing localFromValues: values ^ self aggregateInitializerElementFromValues:values Platypus.PltAggregateInitializerElement platypus-generated-group-accessing localToValues: values ^ self aggregateInitializerElementToValues:values Platypus.PltAggregateInitializerElement class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusAggregateDataSchemaSchemaDefinition singleton Platypus.PltAggregateInitializerElement class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAggregateInitializerElement platypus-generated-accessing owner ^owner Platypus.PltAggregateInitializerElement platypus-generated-set-accessing setOwner:aPltAggregateInitializer self owner:aPltAggregateInitializer Platypus.PltAggregateInitializerElement platypus-generated-accessing owner:aPltAggregateInitializer owner := aPltAggregateInitializer Platypus.PltAggregateInitializerElement platypus-generated-fast-set-accessing fastSetOwner:aPltAggregateInitializer owner := aPltAggregateInitializer Platypus.PltAggregateInitializerElement platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus.PltAggregateInitializerElement platypus-generated-accessing val ^val Platypus.PltAggregateInitializerElement platypus-generated-set-accessing setVal:aPltExpression self val:aPltExpression Platypus.PltAggregateInitializerElement platypus-generated-accessing val:aPltExpression val := aPltExpression Platypus.PltAggregateInitializerElement platypus-generated-fast-set-accessing fastSetVal:aPltExpression val := aPltExpression Platypus.PltAggregateInitializerElement platypus-generated-with-context-accessing valUsingContext:aContext ^ self val Platypus.PltAggregateInitializerElement platypus-generated-accessing repetition ^repetition Platypus.PltAggregateInitializerElement platypus-generated-set-accessing setRepetition:aPltExpression self repetition:aPltExpression Platypus.PltAggregateInitializerElement platypus-generated-accessing repetition:aPltExpression repetition := aPltExpression Platypus.PltAggregateInitializerElement platypus-generated-fast-set-accessing fastSetRepetition:aPltExpression repetition := aPltExpression Platypus.PltAggregateInitializerElement platypus-generated-with-context-accessing repetitionUsingContext:aContext ^ self repetition Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAggregateInstance Platypus Platypus.PltAggregateData false none upperBound general lowerBound Platypus-PlatypusAggregateDataSchemaSchema Platypus Platypus.PltAggregateInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAggregateInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAggregateInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAggregateInstance <ISO10303-11-EXPRESS> ENTITY aggregate_instance ABSTRACT SUPERTYPE OF ( ONEOF ( array_instance, variable_size_aggregation_instance ) ) SUBTYPE OF ( aggregate_data ); lower_bound : integer_literal; upper_bound : integer_literal; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAggregateInstance platypus-generated-initializing stepInitialize super stepInitialize. lowerBound := nil. upperBound := nil. Platypus.PltAggregateInstance platypus-generated-classifying isPltAggregateInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusAggregateDataSchemaSchema-classifying isPltAggregateInstance ^ false Platypus.PltAggregateInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAggregateInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusAggregateDataSchema acceptAggregateInstance: e "my subclasses have to redefine it" Platypus.PltAggregateInstance platypus-generated-copying aggregateInstanceCopyTo:another another fastSetLowerBound: (self lowerBound). another fastSetUpperBound: (self upperBound). Platypus.PltAggregateInstance platypus-generated-copying pltLocalCopyTo: another self aggregateInstanceCopyTo:another Platypus.PltAggregateInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self aggregateInstanceCopyTo: another. Platypus.PltAggregateInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAggregateInstance platypus-generated-group-accessing aggregateInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setLowerBound:valuesloc removeFirst. self setUpperBound:valuesloc removeFirst. ^ valuesloc Platypus.PltAggregateInstance platypus-generated-group-accessing aggregateInstanceToValues:values values add: (self lowerBound). values add: (self upperBound). ^ values Platypus.PltAggregateInstance platypus-generated-group-accessing toValues:values ^ self aggregateInstanceToValues: (super toValues: values) Platypus.PltAggregateInstance platypus-generated-group-accessing fromValues:values ^ self aggregateInstanceFromValues: (super fromValues: values) Platypus.PltAggregateInstance platypus-generated-group-accessing localFromValues: values ^ self aggregateInstanceFromValues:values Platypus.PltAggregateInstance platypus-generated-group-accessing localToValues: values ^ self aggregateInstanceToValues:values Platypus.PltAggregateInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusAggregateDataSchemaSchemaDefinition singleton Platypus.PltAggregateInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAggregateInstance platypus-generated-accessing lowerBound ^lowerBound Platypus.PltAggregateInstance platypus-generated-set-accessing setLowerBound:aPltIntegerLiteral self lowerBound:aPltIntegerLiteral Platypus.PltAggregateInstance platypus-generated-accessing lowerBound:aPltIntegerLiteral lowerBound := aPltIntegerLiteral Platypus.PltAggregateInstance platypus-generated-fast-set-accessing fastSetLowerBound:aPltIntegerLiteral lowerBound := aPltIntegerLiteral Platypus.PltAggregateInstance platypus-generated-with-context-accessing lowerBoundUsingContext:aContext ^ self lowerBound Platypus.PltAggregateInstance platypus-generated-accessing upperBound ^upperBound Platypus.PltAggregateInstance platypus-generated-set-accessing setUpperBound:aPltIntegerLiteral self upperBound:aPltIntegerLiteral Platypus.PltAggregateInstance platypus-generated-accessing upperBound:aPltIntegerLiteral upperBound := aPltIntegerLiteral Platypus.PltAggregateInstance platypus-generated-fast-set-accessing fastSetUpperBound:aPltIntegerLiteral upperBound := aPltIntegerLiteral Platypus.PltAggregateInstance platypus-generated-with-context-accessing upperBoundUsingContext:aContext ^ self upperBound Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltArrayInstance Platypus Platypus.PltAggregateInstance false none contents Platypus-PlatypusAggregateDataSchemaSchema Platypus Platypus.PltArrayInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltArrayInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltArrayInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltArrayInstance <ISO10303-11-EXPRESS> ENTITY array_instance SUBTYPE OF ( aggregate_instance ); contents : LIST OF primitive; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltArrayInstance platypus-generated-initializing stepInitialize super stepInitialize. contents := OrderedCollection new. Platypus.PltArrayInstance platypus-generated-classifying isPltArrayInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusAggregateDataSchemaSchema-classifying isPltArrayInstance ^ false Platypus.PltArrayInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptArrayInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusAggregateDataSchema acceptArrayInstance: e "my subclasses have to redefine it" Platypus.PltArrayInstance platypus-generated-copying arrayInstanceCopyTo:another another fastSetContents: (self contents). Platypus.PltArrayInstance platypus-generated-copying pltLocalCopyTo: another self arrayInstanceCopyTo:another Platypus.PltArrayInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self arrayInstanceCopyTo: another. Platypus.PltArrayInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltArrayInstance platypus-generated-group-accessing arrayInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setContents:valuesloc removeFirst. ^ valuesloc Platypus.PltArrayInstance platypus-generated-group-accessing arrayInstanceToValues:values values add: (self contents). ^ values Platypus.PltArrayInstance platypus-generated-group-accessing toValues:values ^ self arrayInstanceToValues: (super toValues: values) Platypus.PltArrayInstance platypus-generated-group-accessing fromValues:values ^ self arrayInstanceFromValues: (super fromValues: values) Platypus.PltArrayInstance platypus-generated-group-accessing localFromValues: values ^ self arrayInstanceFromValues:values Platypus.PltArrayInstance platypus-generated-group-accessing localToValues: values ^ self arrayInstanceToValues:values Platypus.PltArrayInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusAggregateDataSchemaSchemaDefinition singleton Platypus.PltArrayInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltArrayInstance platypus-generated-accessing contents ^contents Platypus.PltArrayInstance platypus-generated-set-accessing setContents:aListOfPltExpression self contents:aListOfPltExpression Platypus.PltArrayInstance platypus-generated-accessing contents:aListOfPltExpression contents := aListOfPltExpression ifNil: [OrderedCollection new] ifNotNil: [aListOfPltExpression as: OrderedCollection] Platypus.PltArrayInstance platypus-generated-fast-set-accessing fastSetContents:aListOfPltExpression contents := aListOfPltExpression Platypus.PltArrayInstance platypus-generated-with-context-accessing contentsUsingContext:aContext ^ self contents Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltVariableSizeAggregationInstance Platypus Platypus.PltAggregateInstance false none Platypus-PlatypusAggregateDataSchemaSchema Platypus Platypus.PltVariableSizeAggregationInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltVariableSizeAggregationInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltVariableSizeAggregationInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltVariableSizeAggregationInstance <ISO10303-11-EXPRESS> ENTITY variable_size_aggregation_instance ABSTRACT SUPERTYPE OF ( ONEOF ( set_instance, bag_instance, list_instance ) ) SUBTYPE OF ( aggregate_instance ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltVariableSizeAggregationInstance platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltVariableSizeAggregationInstance platypus-generated-classifying isPltVariableSizeAggregationInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusAggregateDataSchemaSchema-classifying isPltVariableSizeAggregationInstance ^ false Platypus.PltVariableSizeAggregationInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptVariableSizeAggregationInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusAggregateDataSchema acceptVariableSizeAggregationInstance: e "my subclasses have to redefine it" Platypus.PltVariableSizeAggregationInstance platypus-generated-copying variableSizeAggregationInstanceCopyTo:another Platypus.PltVariableSizeAggregationInstance platypus-generated-copying pltLocalCopyTo: another self variableSizeAggregationInstanceCopyTo:another Platypus.PltVariableSizeAggregationInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self variableSizeAggregationInstanceCopyTo: another. Platypus.PltVariableSizeAggregationInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltVariableSizeAggregationInstance platypus-generated-group-accessing variableSizeAggregationInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltVariableSizeAggregationInstance platypus-generated-group-accessing variableSizeAggregationInstanceToValues:values ^ values Platypus.PltVariableSizeAggregationInstance platypus-generated-group-accessing toValues:values ^ self variableSizeAggregationInstanceToValues: (super toValues: values) Platypus.PltVariableSizeAggregationInstance platypus-generated-group-accessing fromValues:values ^ self variableSizeAggregationInstanceFromValues: (super fromValues: values) Platypus.PltVariableSizeAggregationInstance platypus-generated-group-accessing localFromValues: values ^ self variableSizeAggregationInstanceFromValues:values Platypus.PltVariableSizeAggregationInstance platypus-generated-group-accessing localToValues: values ^ self variableSizeAggregationInstanceToValues:values Platypus.PltVariableSizeAggregationInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusAggregateDataSchemaSchemaDefinition singleton Platypus.PltVariableSizeAggregationInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltListInstance Platypus Platypus.PltVariableSizeAggregationInstance false none contents Platypus-PlatypusAggregateDataSchemaSchema Platypus Platypus.PltListInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltListInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltListInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltListInstance <ISO10303-11-EXPRESS> ENTITY list_instance SUBTYPE OF ( variable_size_aggregation_instance ); contents : LIST OF primitive; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltListInstance platypus-generated-initializing stepInitialize super stepInitialize. contents := OrderedCollection new. Platypus.PltListInstance platypus-generated-classifying isPltListInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusAggregateDataSchemaSchema-classifying isPltListInstance ^ false Platypus.PltListInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptListInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusAggregateDataSchema acceptListInstance: e "my subclasses have to redefine it" Platypus.PltListInstance platypus-generated-copying listInstanceCopyTo:another another fastSetContents: (self contents). Platypus.PltListInstance platypus-generated-copying pltLocalCopyTo: another self listInstanceCopyTo:another Platypus.PltListInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self listInstanceCopyTo: another. Platypus.PltListInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltListInstance platypus-generated-group-accessing listInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setContents:valuesloc removeFirst. ^ valuesloc Platypus.PltListInstance platypus-generated-group-accessing listInstanceToValues:values values add: (self contents). ^ values Platypus.PltListInstance platypus-generated-group-accessing toValues:values ^ self listInstanceToValues: (super toValues: values) Platypus.PltListInstance platypus-generated-group-accessing fromValues:values ^ self listInstanceFromValues: (super fromValues: values) Platypus.PltListInstance platypus-generated-group-accessing localFromValues: values ^ self listInstanceFromValues:values Platypus.PltListInstance platypus-generated-group-accessing localToValues: values ^ self listInstanceToValues:values Platypus.PltListInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusAggregateDataSchemaSchemaDefinition singleton Platypus.PltListInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltListInstance platypus-generated-accessing contents ^contents Platypus.PltListInstance platypus-generated-set-accessing setContents:aListOfPltExpression self contents:aListOfPltExpression Platypus.PltListInstance platypus-generated-accessing contents:aListOfPltExpression contents := aListOfPltExpression ifNil: [OrderedCollection new] ifNotNil: [aListOfPltExpression as: OrderedCollection] Platypus.PltListInstance platypus-generated-fast-set-accessing fastSetContents:aListOfPltExpression contents := aListOfPltExpression Platypus.PltListInstance platypus-generated-with-context-accessing contentsUsingContext:aContext ^ self contents Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltBagInstance Platypus Platypus.PltVariableSizeAggregationInstance false none contents Platypus-PlatypusAggregateDataSchemaSchema Platypus Platypus.PltBagInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltBagInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltBagInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltBagInstance <ISO10303-11-EXPRESS> ENTITY bag_instance SUBTYPE OF ( variable_size_aggregation_instance ); contents : BAG OF primitive; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltBagInstance platypus-generated-initializing stepInitialize super stepInitialize. contents := Bag new. Platypus.PltBagInstance platypus-generated-classifying isPltBagInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusAggregateDataSchemaSchema-classifying isPltBagInstance ^ false Platypus.PltBagInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptBagInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusAggregateDataSchema acceptBagInstance: e "my subclasses have to redefine it" Platypus.PltBagInstance platypus-generated-copying bagInstanceCopyTo:another another fastSetContents: (self contents). Platypus.PltBagInstance platypus-generated-copying pltLocalCopyTo: another self bagInstanceCopyTo:another Platypus.PltBagInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self bagInstanceCopyTo: another. Platypus.PltBagInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltBagInstance platypus-generated-group-accessing bagInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setContents:valuesloc removeFirst. ^ valuesloc Platypus.PltBagInstance platypus-generated-group-accessing bagInstanceToValues:values values add: (self contents). ^ values Platypus.PltBagInstance platypus-generated-group-accessing toValues:values ^ self bagInstanceToValues: (super toValues: values) Platypus.PltBagInstance platypus-generated-group-accessing fromValues:values ^ self bagInstanceFromValues: (super fromValues: values) Platypus.PltBagInstance platypus-generated-group-accessing localFromValues: values ^ self bagInstanceFromValues:values Platypus.PltBagInstance platypus-generated-group-accessing localToValues: values ^ self bagInstanceToValues:values Platypus.PltBagInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusAggregateDataSchemaSchemaDefinition singleton Platypus.PltBagInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltBagInstance platypus-generated-accessing contents ^contents Platypus.PltBagInstance platypus-generated-set-accessing setContents:aBagOfPltExpression self contents:aBagOfPltExpression Platypus.PltBagInstance platypus-generated-accessing contents:aBagOfPltExpression contents := aBagOfPltExpression ifNil: [Bag new] ifNotNil: [aBagOfPltExpression as: Bag] Platypus.PltBagInstance platypus-generated-fast-set-accessing fastSetContents:aBagOfPltExpression contents := aBagOfPltExpression Platypus.PltBagInstance platypus-generated-with-context-accessing contentsUsingContext:aContext ^ self contents Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltSetInstance Platypus Platypus.PltVariableSizeAggregationInstance false none contents Platypus-PlatypusAggregateDataSchemaSchema Platypus Platypus.PltSetInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSetInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSetInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSetInstance <ISO10303-11-EXPRESS> ENTITY set_instance SUBTYPE OF ( variable_size_aggregation_instance ); contents : SET OF primitive; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSetInstance platypus-generated-initializing stepInitialize super stepInitialize. contents := Set new. Platypus.PltSetInstance platypus-generated-classifying isPltSetInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusAggregateDataSchemaSchema-classifying isPltSetInstance ^ false Platypus.PltSetInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSetInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusAggregateDataSchema acceptSetInstance: e "my subclasses have to redefine it" Platypus.PltSetInstance platypus-generated-copying setInstanceCopyTo:another another fastSetContents: (self contents). Platypus.PltSetInstance platypus-generated-copying pltLocalCopyTo: another self setInstanceCopyTo:another Platypus.PltSetInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self setInstanceCopyTo: another. Platypus.PltSetInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSetInstance platypus-generated-group-accessing setInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setContents:valuesloc removeFirst. ^ valuesloc Platypus.PltSetInstance platypus-generated-group-accessing setInstanceToValues:values values add: (self contents). ^ values Platypus.PltSetInstance platypus-generated-group-accessing toValues:values ^ self setInstanceToValues: (super toValues: values) Platypus.PltSetInstance platypus-generated-group-accessing fromValues:values ^ self setInstanceFromValues: (super fromValues: values) Platypus.PltSetInstance platypus-generated-group-accessing localFromValues: values ^ self setInstanceFromValues:values Platypus.PltSetInstance platypus-generated-group-accessing localToValues: values ^ self setInstanceToValues:values Platypus.PltSetInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusAggregateDataSchemaSchemaDefinition singleton Platypus.PltSetInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltSetInstance platypus-generated-accessing contents ^contents Platypus.PltSetInstance platypus-generated-set-accessing setContents:aSetOfPltExpression self contents:aSetOfPltExpression Platypus.PltSetInstance platypus-generated-accessing contents:aSetOfPltExpression contents := aSetOfPltExpression ifNil: [Set new] ifNotNil: [aSetOfPltExpression as: Set] Platypus.PltSetInstance platypus-generated-fast-set-accessing fastSetContents:aSetOfPltExpression contents := aSetOfPltExpression Platypus.PltSetInstance platypus-generated-with-context-accessing contentsUsingContext:aContext ^ self contents PltPlatypusPopulationSchemaSchemaDefinition Platypus Platypus.PlatypusCoreSchema false none Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltPlatypusPopulationSchemaSchemaDefinition class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltPlatypusPopulationSchemaSchemaDefinition class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltPlatypusPopulationSchemaSchemaDefinition class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltPlatypusPopulationSchemaSchemaDefinition <ISO10303-11-EXPRESS> SCHEMA Platypus_population_schema; USE FROM Platypus_expressions_schema; USE FROM Platypus_environment_schema; USE FROM Platypus_dictionary_schema; ENTITY instance_scope SUBTYPE OF ( session_instance ); owned : LIST [ 1 : ? ] OF entity_instance; export_list : LIST [ 0 : ? ] OF entity_instance; END_ENTITY; ENTITY application_instance ABSTRACT SUPERTYPE SUBTYPE OF ( entity_instance ); owning_model : model_contents; persistent_label : STRING; END_ENTITY; ENTITY generic_instance ABSTRACT SUPERTYPE SUBTYPE OF ( application_instance ); instance_scope : OPTIONAL instance_scope; END_ENTITY; ENTITY internal_representation SUBTYPE OF ( generic_instance ); definition : entity_definition_reference; parameters : LIST OF primitive; END_ENTITY; ENTITY external_representation SUBTYPE OF ( generic_instance ); records : LIST OF simple_record; END_ENTITY; ENTITY group_representation ABSTRACT SUPERTYPE SUBTYPE OF ( generic_instance ); definition : entity_definition_reference; instRef : generic_instance; END_ENTITY; ENTITY external_group_representation SUBTYPE OF ( group_representation ); END_ENTITY; ENTITY internal_group_representation SUBTYPE OF ( group_representation ); END_ENTITY; ENTITY user_defined_application_instance SUBTYPE OF ( application_instance ); name : STRING; parameters : LIST OF primitive; END_ENTITY; ENTITY simple_record SUBTYPE OF ( entity_instance ); definition : entity_definition_reference; parameters : LIST OF primitive; SELF\entity_instance.owner : generic_instance; END_ENTITY; ENTITY header_instance ABSTRACT SUPERTYPE SUBTYPE OF ( entity_instance ); owning_model : model_contents; END_ENTITY; ENTITY user_defined_header_instance SUBTYPE OF ( header_instance ); name : STRING; parameters : LIST OF primitive; END_ENTITY; ENTITY file_description SUBTYPE OF ( header_instance ); description : LIST [ 1 : ? ] OF STRING ( 256 ); implementation_level : STRING ( 256 ); END_ENTITY; ENTITY file_name SUBTYPE OF ( header_instance ); name : STRING ( 256 ); time_stamp : STRING ( 256 ); author : LIST [ 1 : ? ] OF STRING ( 256 ); organization : LIST [ 1 : ? ] OF STRING ( 256 ); preprocessor_version : STRING ( 256 ); originating_system : STRING ( 256 ); authorisation : STRING ( 256 ); END_ENTITY; ENTITY file_schema SUBTYPE OF ( header_instance ); schema_identifiers : LIST [ 1 : ? ] OF schema_name; END_ENTITY; END_SCHEMA; </ISO10303-11-EXPRESS> Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-meta-data-accessing schemaInstanceClassName ^ #PltPlatypusMetaSchemasSchemaInstance Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-context-accessing context ^ self schemaInstance context Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinition1^ #( #'instance_scope' #PltInstanceScope ) Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinition2^ #( #'application_instance' #PltApplicationInstance ) Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinition3^ #( #'generic_instance' #PltGenericInstance ) Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinition4^ #( #'internal_representation' #PltInternalRepresentation ) Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinition5^ #( #'external_representation' #PltExternalRepresentation ) Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinition6^ #( #'group_representation' #PltGroupRepresentation ) Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinition7^ #( #'external_group_representation' #PltExternalGroupRepresentation ) Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinition8^ #( #'internal_group_representation' #PltInternalGroupRepresentation ) Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinition9^ #( #'user_defined_application_instance' #PltUserDefinedApplicationInstance ) Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinition10^ #( #'simple_record' #PltSimpleRecord ) Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinition11^ #( #'header_instance' #PltHeaderInstance ) Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinition12^ #( #'user_defined_header_instance' #PltUserDefinedHeaderInstance ) Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinition13^ #( #'file_description' #PltFileDescription ) Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinition14^ #( #'file_name' #PltFileName ) Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinition15^ #( #'file_schema' #PltFileSchema ) Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-entities entityDefinitionCount ^ 15 Platypus.PltPlatypusPopulationSchemaSchemaDefinition platypus-generated-functions functionDeclarationCount ^ 0 Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltSessionInstance Platypus Platypus.PltSdaiInstance false none validationResult validationDate changeDate Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltSessionInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSessionInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSessionInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSessionInstance <ISO10303-11-EXPRESS> ENTITY session_instance ABSTRACT SUPERTYPE SUBTYPE OF ( sdai_instance ); change_date : OPTIONAL time_stamp; validation_date : time_stamp; validation_result : LOGICAL; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSessionInstance platypus-generated-initializing stepInitialize super stepInitialize. changeDate := nil. validationDate := ''. validationResult := false. Platypus.PltSessionInstance platypus-generated-classifying isPltSessionInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltSessionInstance ^ false Platypus.PltSessionInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSessionInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptSessionInstance: e "my subclasses have to redefine it" Platypus.PltSessionInstance platypus-generated-copying sessionInstanceCopyTo:another another fastSetChangeDate: (self changeDate). another fastSetValidationDate: (self validationDate). another fastSetValidationResult: (self validationResult). Platypus.PltSessionInstance platypus-generated-copying pltLocalCopyTo: another self sessionInstanceCopyTo:another Platypus.PltSessionInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self sessionInstanceCopyTo: another. Platypus.PltSessionInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSessionInstance platypus-generated-group-accessing sessionInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setChangeDate:valuesloc removeFirst. self setValidationDate:valuesloc removeFirst. self setValidationResult:valuesloc removeFirst. ^ valuesloc Platypus.PltSessionInstance platypus-generated-group-accessing sessionInstanceToValues:values values add: (self changeDate). values add: (self validationDate). values add: (self validationResult). ^ values Platypus.PltSessionInstance platypus-generated-group-accessing toValues:values ^ self sessionInstanceToValues: (super toValues: values) Platypus.PltSessionInstance platypus-generated-group-accessing fromValues:values ^ self sessionInstanceFromValues: (super fromValues: values) Platypus.PltSessionInstance platypus-generated-group-accessing localFromValues: values ^ self sessionInstanceFromValues:values Platypus.PltSessionInstance platypus-generated-group-accessing localToValues: values ^ self sessionInstanceToValues:values Platypus.PltSessionInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltSessionInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltSessionInstance platypus-generated-accessing changeDate ^changeDate Platypus.PltSessionInstance platypus-generated-set-accessing setChangeDate:aString self changeDate:aString Platypus.PltSessionInstance platypus-generated-accessing changeDate:aString changeDate := aString Platypus.PltSessionInstance platypus-generated-fast-set-accessing fastSetChangeDate:aString changeDate := aString Platypus.PltSessionInstance platypus-generated-with-context-accessing changeDateUsingContext:aContext ^ self changeDate Platypus.PltSessionInstance platypus-generated-accessing validationDate ^validationDate Platypus.PltSessionInstance platypus-generated-set-accessing setValidationDate:aString self validationDate:aString Platypus.PltSessionInstance platypus-generated-accessing validationDate:aString validationDate := aString Platypus.PltSessionInstance platypus-generated-fast-set-accessing fastSetValidationDate:aString validationDate := aString Platypus.PltSessionInstance platypus-generated-with-context-accessing validationDateUsingContext:aContext ^ self validationDate Platypus.PltSessionInstance platypus-generated-accessing validationResult ^validationResult Platypus.PltSessionInstance platypus-generated-set-accessing setValidationResult:aLogical self validationResult:aLogical Platypus.PltSessionInstance platypus-generated-accessing validationResult:aLogical validationResult := aLogical Platypus.PltSessionInstance platypus-generated-fast-set-accessing fastSetValidationResult:aLogical validationResult := aLogical Platypus.PltSessionInstance platypus-generated-with-context-accessing validationResultUsingContext:aContext ^ self validationResult PltInstanceScope Platypus Platypus.PltSessionInstance false none owned exportList Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltInstanceScope class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltInstanceScope class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltInstanceScope class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltInstanceScope <ISO10303-11-EXPRESS> ENTITY instance_scope SUBTYPE OF ( session_instance ); owned : LIST [ 1 : ? ] OF entity_instance; export_list : LIST [ 0 : ? ] OF entity_instance; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltInstanceScope platypus-generated-initializing stepInitialize super stepInitialize. owned := OrderedCollection new. exportList := OrderedCollection new. Platypus.PltInstanceScope platypus-generated-classifying isPltInstanceScope ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusPopulationSchemaSchema-classifying isPltInstanceScope ^ false Platypus.PltInstanceScope platypus-generated-visiting accept: aVisitor ^ aVisitor acceptInstanceScope: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusPopulationSchema acceptInstanceScope: e "my subclasses have to redefine it" Platypus.PltInstanceScope platypus-generated-copying instanceScopeCopyTo:another another fastSetOwned: (self owned). another fastSetExportList: (self exportList). Platypus.PltInstanceScope platypus-generated-copying pltLocalCopyTo: another self instanceScopeCopyTo:another Platypus.PltInstanceScope platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self instanceScopeCopyTo: another. Platypus.PltInstanceScope platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltInstanceScope platypus-generated-group-accessing instanceScopeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setOwned:valuesloc removeFirst. self setExportList:valuesloc removeFirst. ^ valuesloc Platypus.PltInstanceScope platypus-generated-group-accessing instanceScopeToValues:values values add: (self owned). values add: (self exportList). ^ values Platypus.PltInstanceScope platypus-generated-group-accessing toValues:values ^ self instanceScopeToValues: (super toValues: values) Platypus.PltInstanceScope platypus-generated-group-accessing fromValues:values ^ self instanceScopeFromValues: (super fromValues: values) Platypus.PltInstanceScope platypus-generated-group-accessing localFromValues: values ^ self instanceScopeFromValues:values Platypus.PltInstanceScope platypus-generated-group-accessing localToValues: values ^ self instanceScopeToValues:values Platypus.PltInstanceScope class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusPopulationSchemaSchemaDefinition singleton Platypus.PltInstanceScope class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltInstanceScope platypus-generated-accessing owned ^owned Platypus.PltInstanceScope platypus-generated-set-accessing setOwned:aListOfPltEntityInstance self owned:aListOfPltEntityInstance Platypus.PltInstanceScope platypus-generated-accessing owned:aListOfPltEntityInstance owned := aListOfPltEntityInstance ifNil: [OrderedCollection new] ifNotNil: [aListOfPltEntityInstance as: OrderedCollection] Platypus.PltInstanceScope platypus-generated-fast-set-accessing fastSetOwned:aListOfPltEntityInstance owned := aListOfPltEntityInstance Platypus.PltInstanceScope platypus-generated-with-context-accessing ownedUsingContext:aContext ^ self owned Platypus.PltInstanceScope platypus-generated-accessing exportList ^exportList Platypus.PltInstanceScope platypus-generated-set-accessing setExportList:aListOfPltEntityInstance self exportList:aListOfPltEntityInstance Platypus.PltInstanceScope platypus-generated-accessing exportList:aListOfPltEntityInstance exportList := aListOfPltEntityInstance ifNil: [OrderedCollection new] ifNotNil: [aListOfPltEntityInstance as: OrderedCollection] Platypus.PltInstanceScope platypus-generated-fast-set-accessing fastSetExportList:aListOfPltEntityInstance exportList := aListOfPltEntityInstance Platypus.PltInstanceScope platypus-generated-with-context-accessing exportListUsingContext:aContext ^ self exportList Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltApplicationInstance Platypus Platypus.PltEntityInstance false none persistentLabel owningModel Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltApplicationInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltApplicationInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltApplicationInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltApplicationInstance <ISO10303-11-EXPRESS> ENTITY application_instance ABSTRACT SUPERTYPE SUBTYPE OF ( entity_instance ); owning_model : model_contents; persistent_label : STRING; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltApplicationInstance platypus-generated-initializing stepInitialize super stepInitialize. owningModel := nil. persistentLabel := ''. Platypus.PltApplicationInstance platypus-generated-classifying isPltApplicationInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusPopulationSchemaSchema-classifying isPltApplicationInstance ^ false Platypus.PltApplicationInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptApplicationInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusPopulationSchema acceptApplicationInstance: e "my subclasses have to redefine it" Platypus.PltApplicationInstance platypus-generated-copying applicationInstanceCopyTo:another another fastSetOwningModel: (self owningModel). another fastSetPersistentLabel: (self persistentLabel). Platypus.PltApplicationInstance platypus-generated-copying pltLocalCopyTo: another self applicationInstanceCopyTo:another Platypus.PltApplicationInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self applicationInstanceCopyTo: another. Platypus.PltApplicationInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltApplicationInstance platypus-generated-group-accessing applicationInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setOwningModel:valuesloc removeFirst. self setPersistentLabel:valuesloc removeFirst. ^ valuesloc Platypus.PltApplicationInstance platypus-generated-group-accessing applicationInstanceToValues:values values add: (self owningModel). values add: (self persistentLabel). ^ values Platypus.PltApplicationInstance platypus-generated-group-accessing toValues:values ^ self applicationInstanceToValues: (super toValues: values) Platypus.PltApplicationInstance platypus-generated-group-accessing fromValues:values ^ self applicationInstanceFromValues: (super fromValues: values) Platypus.PltApplicationInstance platypus-generated-group-accessing localFromValues: values ^ self applicationInstanceFromValues:values Platypus.PltApplicationInstance platypus-generated-group-accessing localToValues: values ^ self applicationInstanceToValues:values Platypus.PltApplicationInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusPopulationSchemaSchemaDefinition singleton Platypus.PltApplicationInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltApplicationInstance platypus-generated-accessing owningModel ^owningModel Platypus.PltApplicationInstance platypus-generated-set-accessing setOwningModel:aPltModelContents self owningModel:aPltModelContents Platypus.PltApplicationInstance platypus-generated-accessing owningModel:aPltModelContents owningModel := aPltModelContents Platypus.PltApplicationInstance platypus-generated-fast-set-accessing fastSetOwningModel:aPltModelContents owningModel := aPltModelContents Platypus.PltApplicationInstance platypus-generated-with-context-accessing owningModelUsingContext:aContext ^ self owningModel Platypus.PltApplicationInstance platypus-generated-accessing persistentLabel ^persistentLabel Platypus.PltApplicationInstance platypus-generated-set-accessing setPersistentLabel:aString self persistentLabel:aString Platypus.PltApplicationInstance platypus-generated-accessing persistentLabel:aString persistentLabel := aString Platypus.PltApplicationInstance platypus-generated-fast-set-accessing fastSetPersistentLabel:aString persistentLabel := aString Platypus.PltApplicationInstance platypus-generated-with-context-accessing persistentLabelUsingContext:aContext ^ self persistentLabel Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltGenericInstance Platypus Platypus.PltApplicationInstance false none instanceScope computed scope Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltGenericInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltGenericInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltGenericInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltGenericInstance <ISO10303-11-EXPRESS> ENTITY generic_instance ABSTRACT SUPERTYPE SUBTYPE OF ( application_instance ); instance_scope : OPTIONAL instance_scope; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltGenericInstance platypus-generated-initializing stepInitialize super stepInitialize. instanceScope := nil. Platypus.PltGenericInstance platypus-generated-classifying isPltGenericInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusPopulationSchemaSchema-classifying isPltGenericInstance ^ false Platypus.PltGenericInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptGenericInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusPopulationSchema acceptGenericInstance: e "my subclasses have to redefine it" Platypus.PltGenericInstance platypus-generated-copying genericInstanceCopyTo:another another fastSetInstanceScope: (self instanceScope). Platypus.PltGenericInstance platypus-generated-copying pltLocalCopyTo: another self genericInstanceCopyTo:another Platypus.PltGenericInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self genericInstanceCopyTo: another. Platypus.PltGenericInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltGenericInstance platypus-generated-group-accessing genericInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setInstanceScope:valuesloc removeFirst. ^ valuesloc Platypus.PltGenericInstance platypus-generated-group-accessing genericInstanceToValues:values values add: (self instanceScope). ^ values Platypus.PltGenericInstance platypus-generated-group-accessing toValues:values ^ self genericInstanceToValues: (super toValues: values) Platypus.PltGenericInstance platypus-generated-group-accessing fromValues:values ^ self genericInstanceFromValues: (super fromValues: values) Platypus.PltGenericInstance platypus-generated-group-accessing localFromValues: values ^ self genericInstanceFromValues:values Platypus.PltGenericInstance platypus-generated-group-accessing localToValues: values ^ self genericInstanceToValues:values Platypus.PltGenericInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusPopulationSchemaSchemaDefinition singleton Platypus.PltGenericInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltGenericInstance platypus-generated-accessing instanceScope ^instanceScope Platypus.PltGenericInstance platypus-generated-set-accessing setInstanceScope:aPltInstanceScope self instanceScope:aPltInstanceScope Platypus.PltGenericInstance platypus-generated-accessing instanceScope:aPltInstanceScope instanceScope := aPltInstanceScope Platypus.PltGenericInstance platypus-generated-fast-set-accessing fastSetInstanceScope:aPltInstanceScope instanceScope := aPltInstanceScope Platypus.PltGenericInstance platypus-generated-with-context-accessing instanceScopeUsingContext:aContext ^ self instanceScope Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltInternalRepresentation Platypus Platypus.PltGenericInstance false none definition parameters Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltInternalRepresentation class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltInternalRepresentation class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltInternalRepresentation class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltInternalRepresentation <ISO10303-11-EXPRESS> ENTITY internal_representation SUBTYPE OF ( generic_instance ); definition : entity_definition_reference; parameters : LIST OF primitive; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltInternalRepresentation platypus-generated-initializing stepInitialize super stepInitialize. definition := nil. parameters := OrderedCollection new. Platypus.PltInternalRepresentation platypus-generated-classifying isPltInternalRepresentation ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusPopulationSchemaSchema-classifying isPltInternalRepresentation ^ false Platypus.PltInternalRepresentation platypus-generated-visiting accept: aVisitor ^ aVisitor acceptInternalRepresentation: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusPopulationSchema acceptInternalRepresentation: e "my subclasses have to redefine it" Platypus.PltInternalRepresentation platypus-generated-copying internalRepresentationCopyTo:another another fastSetDefinition: (self definition). another fastSetParameters: (self parameters). Platypus.PltInternalRepresentation platypus-generated-copying pltLocalCopyTo: another self internalRepresentationCopyTo:another Platypus.PltInternalRepresentation platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self internalRepresentationCopyTo: another. Platypus.PltInternalRepresentation platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltInternalRepresentation platypus-generated-group-accessing internalRepresentationFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setDefinition:valuesloc removeFirst. self setParameters:valuesloc removeFirst. ^ valuesloc Platypus.PltInternalRepresentation platypus-generated-group-accessing internalRepresentationToValues:values values add: (self definition). values add: (self parameters). ^ values Platypus.PltInternalRepresentation platypus-generated-group-accessing toValues:values ^ self internalRepresentationToValues: (super toValues: values) Platypus.PltInternalRepresentation platypus-generated-group-accessing fromValues:values ^ self internalRepresentationFromValues: (super fromValues: values) Platypus.PltInternalRepresentation platypus-generated-group-accessing localFromValues: values ^ self internalRepresentationFromValues:values Platypus.PltInternalRepresentation platypus-generated-group-accessing localToValues: values ^ self internalRepresentationToValues:values Platypus.PltInternalRepresentation class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusPopulationSchemaSchemaDefinition singleton Platypus.PltInternalRepresentation class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltInternalRepresentation platypus-generated-accessing definition ^definition Platypus.PltInternalRepresentation platypus-generated-set-accessing setDefinition:aPltEntityDefinitionReference self definition:aPltEntityDefinitionReference Platypus.PltInternalRepresentation platypus-generated-accessing definition:aPltEntityDefinitionReference definition := aPltEntityDefinitionReference Platypus.PltInternalRepresentation platypus-generated-fast-set-accessing fastSetDefinition:aPltEntityDefinitionReference definition := aPltEntityDefinitionReference Platypus.PltInternalRepresentation platypus-generated-with-context-accessing definitionUsingContext:aContext ^ self definition Platypus.PltInternalRepresentation platypus-generated-accessing parameters ^parameters Platypus.PltInternalRepresentation platypus-generated-set-accessing setParameters:aListOfPltExpression self parameters:aListOfPltExpression Platypus.PltInternalRepresentation platypus-generated-accessing parameters:aListOfPltExpression parameters := aListOfPltExpression ifNil: [OrderedCollection new] ifNotNil: [aListOfPltExpression as: OrderedCollection] Platypus.PltInternalRepresentation platypus-generated-fast-set-accessing fastSetParameters:aListOfPltExpression parameters := aListOfPltExpression Platypus.PltInternalRepresentation platypus-generated-with-context-accessing parametersUsingContext:aContext ^ self parameters Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltExternalRepresentation Platypus Platypus.PltGenericInstance false none records Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltExternalRepresentation class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltExternalRepresentation class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltExternalRepresentation class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltExternalRepresentation <ISO10303-11-EXPRESS> ENTITY external_representation SUBTYPE OF ( generic_instance ); records : LIST OF simple_record; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltExternalRepresentation platypus-generated-initializing stepInitialize super stepInitialize. records := OrderedCollection new. Platypus.PltExternalRepresentation platypus-generated-classifying isPltExternalRepresentation ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusPopulationSchemaSchema-classifying isPltExternalRepresentation ^ false Platypus.PltExternalRepresentation platypus-generated-visiting accept: aVisitor ^ aVisitor acceptExternalRepresentation: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusPopulationSchema acceptExternalRepresentation: e "my subclasses have to redefine it" Platypus.PltExternalRepresentation platypus-generated-copying externalRepresentationCopyTo:another another fastSetRecords: (self records). Platypus.PltExternalRepresentation platypus-generated-copying pltLocalCopyTo: another self externalRepresentationCopyTo:another Platypus.PltExternalRepresentation platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self externalRepresentationCopyTo: another. Platypus.PltExternalRepresentation platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltExternalRepresentation platypus-generated-group-accessing externalRepresentationFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setRecords:valuesloc removeFirst. ^ valuesloc Platypus.PltExternalRepresentation platypus-generated-group-accessing externalRepresentationToValues:values values add: (self records). ^ values Platypus.PltExternalRepresentation platypus-generated-group-accessing toValues:values ^ self externalRepresentationToValues: (super toValues: values) Platypus.PltExternalRepresentation platypus-generated-group-accessing fromValues:values ^ self externalRepresentationFromValues: (super fromValues: values) Platypus.PltExternalRepresentation platypus-generated-group-accessing localFromValues: values ^ self externalRepresentationFromValues:values Platypus.PltExternalRepresentation platypus-generated-group-accessing localToValues: values ^ self externalRepresentationToValues:values Platypus.PltExternalRepresentation class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusPopulationSchemaSchemaDefinition singleton Platypus.PltExternalRepresentation class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltExternalRepresentation platypus-generated-accessing records ^records Platypus.PltExternalRepresentation platypus-generated-set-accessing setRecords:aListOfPltSimpleRecord self records:aListOfPltSimpleRecord Platypus.PltExternalRepresentation platypus-generated-accessing records:aListOfPltSimpleRecord records := aListOfPltSimpleRecord ifNil: [OrderedCollection new] ifNotNil: [aListOfPltSimpleRecord as: OrderedCollection] Platypus.PltExternalRepresentation platypus-generated-fast-set-accessing fastSetRecords:aListOfPltSimpleRecord records := aListOfPltSimpleRecord Platypus.PltExternalRepresentation platypus-generated-with-context-accessing recordsUsingContext:aContext ^ self records Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltGroupRepresentation Platypus Platypus.PltGenericInstance false none definition instRef Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltGroupRepresentation class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltGroupRepresentation class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltGroupRepresentation class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltGroupRepresentation <ISO10303-11-EXPRESS> ENTITY group_representation ABSTRACT SUPERTYPE SUBTYPE OF ( generic_instance ); definition : entity_definition_reference; instRef : generic_instance; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltGroupRepresentation platypus-generated-initializing stepInitialize super stepInitialize. definition := nil. instRef := nil. Platypus.PltGroupRepresentation platypus-generated-classifying isPltGroupRepresentation ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusPopulationSchemaSchema-classifying isPltGroupRepresentation ^ false Platypus.PltGroupRepresentation platypus-generated-visiting accept: aVisitor ^ aVisitor acceptGroupRepresentation: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusPopulationSchema acceptGroupRepresentation: e "my subclasses have to redefine it" Platypus.PltGroupRepresentation platypus-generated-copying groupRepresentationCopyTo:another another fastSetDefinition: (self definition). another fastSetInstRef: (self instRef). Platypus.PltGroupRepresentation platypus-generated-copying pltLocalCopyTo: another self groupRepresentationCopyTo:another Platypus.PltGroupRepresentation platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self groupRepresentationCopyTo: another. Platypus.PltGroupRepresentation platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltGroupRepresentation platypus-generated-group-accessing groupRepresentationFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setDefinition:valuesloc removeFirst. self setInstRef:valuesloc removeFirst. ^ valuesloc Platypus.PltGroupRepresentation platypus-generated-group-accessing groupRepresentationToValues:values values add: (self definition). values add: (self instRef). ^ values Platypus.PltGroupRepresentation platypus-generated-group-accessing toValues:values ^ self groupRepresentationToValues: (super toValues: values) Platypus.PltGroupRepresentation platypus-generated-group-accessing fromValues:values ^ self groupRepresentationFromValues: (super fromValues: values) Platypus.PltGroupRepresentation platypus-generated-group-accessing localFromValues: values ^ self groupRepresentationFromValues:values Platypus.PltGroupRepresentation platypus-generated-group-accessing localToValues: values ^ self groupRepresentationToValues:values Platypus.PltGroupRepresentation class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusPopulationSchemaSchemaDefinition singleton Platypus.PltGroupRepresentation class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltGroupRepresentation platypus-generated-accessing definition ^definition Platypus.PltGroupRepresentation platypus-generated-set-accessing setDefinition:aPltEntityDefinitionReference self definition:aPltEntityDefinitionReference Platypus.PltGroupRepresentation platypus-generated-accessing definition:aPltEntityDefinitionReference definition := aPltEntityDefinitionReference Platypus.PltGroupRepresentation platypus-generated-fast-set-accessing fastSetDefinition:aPltEntityDefinitionReference definition := aPltEntityDefinitionReference Platypus.PltGroupRepresentation platypus-generated-with-context-accessing definitionUsingContext:aContext ^ self definition Platypus.PltGroupRepresentation platypus-generated-accessing instRef ^instRef Platypus.PltGroupRepresentation platypus-generated-set-accessing setInstRef:aPltGenericInstance self instRef:aPltGenericInstance Platypus.PltGroupRepresentation platypus-generated-accessing instRef:aPltGenericInstance instRef := aPltGenericInstance Platypus.PltGroupRepresentation platypus-generated-fast-set-accessing fastSetInstRef:aPltGenericInstance instRef := aPltGenericInstance Platypus.PltGroupRepresentation platypus-generated-with-context-accessing instRefUsingContext:aContext ^ self instRef Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltExternalGroupRepresentation Platypus Platypus.PltGroupRepresentation false none recordsCache Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltExternalGroupRepresentation class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltExternalGroupRepresentation class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltExternalGroupRepresentation class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltExternalGroupRepresentation <ISO10303-11-EXPRESS> ENTITY external_group_representation SUBTYPE OF ( group_representation ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltExternalGroupRepresentation platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltExternalGroupRepresentation platypus-generated-classifying isPltExternalGroupRepresentation ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusPopulationSchemaSchema-classifying isPltExternalGroupRepresentation ^ false Platypus.PltExternalGroupRepresentation platypus-generated-visiting accept: aVisitor ^ aVisitor acceptExternalGroupRepresentation: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusPopulationSchema acceptExternalGroupRepresentation: e "my subclasses have to redefine it" Platypus.PltExternalGroupRepresentation platypus-generated-copying externalGroupRepresentationCopyTo:another Platypus.PltExternalGroupRepresentation platypus-generated-copying pltLocalCopyTo: another self externalGroupRepresentationCopyTo:another Platypus.PltExternalGroupRepresentation platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self externalGroupRepresentationCopyTo: another. Platypus.PltExternalGroupRepresentation platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltExternalGroupRepresentation platypus-generated-group-accessing externalGroupRepresentationFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltExternalGroupRepresentation platypus-generated-group-accessing externalGroupRepresentationToValues:values ^ values Platypus.PltExternalGroupRepresentation platypus-generated-group-accessing toValues:values ^ self externalGroupRepresentationToValues: (super toValues: values) Platypus.PltExternalGroupRepresentation platypus-generated-group-accessing fromValues:values ^ self externalGroupRepresentationFromValues: (super fromValues: values) Platypus.PltExternalGroupRepresentation platypus-generated-group-accessing localFromValues: values ^ self externalGroupRepresentationFromValues:values Platypus.PltExternalGroupRepresentation platypus-generated-group-accessing localToValues: values ^ self externalGroupRepresentationToValues:values Platypus.PltExternalGroupRepresentation class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusPopulationSchemaSchemaDefinition singleton Platypus.PltExternalGroupRepresentation class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltInternalGroupRepresentation Platypus Platypus.PltGroupRepresentation false none Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltInternalGroupRepresentation class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltInternalGroupRepresentation class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltInternalGroupRepresentation class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltInternalGroupRepresentation <ISO10303-11-EXPRESS> ENTITY internal_group_representation SUBTYPE OF ( group_representation ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltInternalGroupRepresentation platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltInternalGroupRepresentation platypus-generated-classifying isPltInternalGroupRepresentation ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusPopulationSchemaSchema-classifying isPltInternalGroupRepresentation ^ false Platypus.PltInternalGroupRepresentation platypus-generated-visiting accept: aVisitor ^ aVisitor acceptInternalGroupRepresentation: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusPopulationSchema acceptInternalGroupRepresentation: e "my subclasses have to redefine it" Platypus.PltInternalGroupRepresentation platypus-generated-copying internalGroupRepresentationCopyTo:another Platypus.PltInternalGroupRepresentation platypus-generated-copying pltLocalCopyTo: another self internalGroupRepresentationCopyTo:another Platypus.PltInternalGroupRepresentation platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self internalGroupRepresentationCopyTo: another. Platypus.PltInternalGroupRepresentation platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltInternalGroupRepresentation platypus-generated-group-accessing internalGroupRepresentationFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltInternalGroupRepresentation platypus-generated-group-accessing internalGroupRepresentationToValues:values ^ values Platypus.PltInternalGroupRepresentation platypus-generated-group-accessing toValues:values ^ self internalGroupRepresentationToValues: (super toValues: values) Platypus.PltInternalGroupRepresentation platypus-generated-group-accessing fromValues:values ^ self internalGroupRepresentationFromValues: (super fromValues: values) Platypus.PltInternalGroupRepresentation platypus-generated-group-accessing localFromValues: values ^ self internalGroupRepresentationFromValues:values Platypus.PltInternalGroupRepresentation platypus-generated-group-accessing localToValues: values ^ self internalGroupRepresentationToValues:values Platypus.PltInternalGroupRepresentation class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusPopulationSchemaSchemaDefinition singleton Platypus.PltInternalGroupRepresentation class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltUserDefinedApplicationInstance Platypus Platypus.PltApplicationInstance false none name parameters Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltUserDefinedApplicationInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltUserDefinedApplicationInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltUserDefinedApplicationInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltUserDefinedApplicationInstance <ISO10303-11-EXPRESS> ENTITY user_defined_application_instance SUBTYPE OF ( application_instance ); name : STRING; parameters : LIST OF primitive; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltUserDefinedApplicationInstance platypus-generated-initializing stepInitialize super stepInitialize. name := ''. parameters := OrderedCollection new. Platypus.PltUserDefinedApplicationInstance platypus-generated-classifying isPltUserDefinedApplicationInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusPopulationSchemaSchema-classifying isPltUserDefinedApplicationInstance ^ false Platypus.PltUserDefinedApplicationInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptUserDefinedApplicationInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusPopulationSchema acceptUserDefinedApplicationInstance: e "my subclasses have to redefine it" Platypus.PltUserDefinedApplicationInstance platypus-generated-copying userDefinedApplicationInstanceCopyTo:another another fastSetName: (self name). another fastSetParameters: (self parameters). Platypus.PltUserDefinedApplicationInstance platypus-generated-copying pltLocalCopyTo: another self userDefinedApplicationInstanceCopyTo:another Platypus.PltUserDefinedApplicationInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self userDefinedApplicationInstanceCopyTo: another. Platypus.PltUserDefinedApplicationInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltUserDefinedApplicationInstance platypus-generated-group-accessing userDefinedApplicationInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setName:valuesloc removeFirst. self setParameters:valuesloc removeFirst. ^ valuesloc Platypus.PltUserDefinedApplicationInstance platypus-generated-group-accessing userDefinedApplicationInstanceToValues:values values add: (self name). values add: (self parameters). ^ values Platypus.PltUserDefinedApplicationInstance platypus-generated-group-accessing toValues:values ^ self userDefinedApplicationInstanceToValues: (super toValues: values) Platypus.PltUserDefinedApplicationInstance platypus-generated-group-accessing fromValues:values ^ self userDefinedApplicationInstanceFromValues: (super fromValues: values) Platypus.PltUserDefinedApplicationInstance platypus-generated-group-accessing localFromValues: values ^ self userDefinedApplicationInstanceFromValues:values Platypus.PltUserDefinedApplicationInstance platypus-generated-group-accessing localToValues: values ^ self userDefinedApplicationInstanceToValues:values Platypus.PltUserDefinedApplicationInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusPopulationSchemaSchemaDefinition singleton Platypus.PltUserDefinedApplicationInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltUserDefinedApplicationInstance platypus-generated-accessing name ^name Platypus.PltUserDefinedApplicationInstance platypus-generated-set-accessing setName:aString self name:aString Platypus.PltUserDefinedApplicationInstance platypus-generated-accessing name:aString name := aString Platypus.PltUserDefinedApplicationInstance platypus-generated-fast-set-accessing fastSetName:aString name := aString Platypus.PltUserDefinedApplicationInstance platypus-generated-with-context-accessing nameUsingContext:aContext ^ self name Platypus.PltUserDefinedApplicationInstance platypus-generated-accessing parameters ^parameters Platypus.PltUserDefinedApplicationInstance platypus-generated-set-accessing setParameters:aListOfPltExpression self parameters:aListOfPltExpression Platypus.PltUserDefinedApplicationInstance platypus-generated-accessing parameters:aListOfPltExpression parameters := aListOfPltExpression ifNil: [OrderedCollection new] ifNotNil: [aListOfPltExpression as: OrderedCollection] Platypus.PltUserDefinedApplicationInstance platypus-generated-fast-set-accessing fastSetParameters:aListOfPltExpression parameters := aListOfPltExpression Platypus.PltUserDefinedApplicationInstance platypus-generated-with-context-accessing parametersUsingContext:aContext ^ self parameters Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltSimpleRecord Platypus Platypus.PltEntityInstance false none definition parameters Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltSimpleRecord class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSimpleRecord class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSimpleRecord class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSimpleRecord <ISO10303-11-EXPRESS> ENTITY simple_record SUBTYPE OF ( entity_instance ); definition : entity_definition_reference; parameters : LIST OF primitive; SELF\entity_instance.owner : generic_instance; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSimpleRecord platypus-generated-initializing stepInitialize super stepInitialize. definition := nil. parameters := OrderedCollection new. owner := nil. Platypus.PltSimpleRecord platypus-generated-classifying isPltSimpleRecord ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusPopulationSchemaSchema-classifying isPltSimpleRecord ^ false Platypus.PltSimpleRecord platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSimpleRecord: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusPopulationSchema acceptSimpleRecord: e "my subclasses have to redefine it" Platypus.PltSimpleRecord platypus-generated-copying simpleRecordCopyTo:another another fastSetDefinition: (self definition). another fastSetParameters: (self parameters). another fastSetOwner: (self owner). Platypus.PltSimpleRecord platypus-generated-copying pltLocalCopyTo: another self simpleRecordCopyTo:another Platypus.PltSimpleRecord platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self simpleRecordCopyTo: another. Platypus.PltSimpleRecord platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSimpleRecord platypus-generated-group-accessing simpleRecordFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setDefinition:valuesloc removeFirst. self setParameters:valuesloc removeFirst. self setOwner:valuesloc removeFirst. ^ valuesloc Platypus.PltSimpleRecord platypus-generated-group-accessing simpleRecordToValues:values values add: (self definition). values add: (self parameters). values add: (self owner). ^ values Platypus.PltSimpleRecord platypus-generated-group-accessing toValues:values ^ self simpleRecordToValues: (super toValues: values) Platypus.PltSimpleRecord platypus-generated-group-accessing fromValues:values ^ self simpleRecordFromValues: (super fromValues: values) Platypus.PltSimpleRecord platypus-generated-group-accessing localFromValues: values ^ self simpleRecordFromValues:values Platypus.PltSimpleRecord platypus-generated-group-accessing localToValues: values ^ self simpleRecordToValues:values Platypus.PltSimpleRecord class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusPopulationSchemaSchemaDefinition singleton Platypus.PltSimpleRecord class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltSimpleRecord platypus-generated-accessing definition ^definition Platypus.PltSimpleRecord platypus-generated-set-accessing setDefinition:aPltEntityDefinitionReference self definition:aPltEntityDefinitionReference Platypus.PltSimpleRecord platypus-generated-accessing definition:aPltEntityDefinitionReference definition := aPltEntityDefinitionReference Platypus.PltSimpleRecord platypus-generated-fast-set-accessing fastSetDefinition:aPltEntityDefinitionReference definition := aPltEntityDefinitionReference Platypus.PltSimpleRecord platypus-generated-with-context-accessing definitionUsingContext:aContext ^ self definition Platypus.PltSimpleRecord platypus-generated-accessing parameters ^parameters Platypus.PltSimpleRecord platypus-generated-set-accessing setParameters:aListOfPltExpression self parameters:aListOfPltExpression Platypus.PltSimpleRecord platypus-generated-accessing parameters:aListOfPltExpression parameters := aListOfPltExpression ifNil: [OrderedCollection new] ifNotNil: [aListOfPltExpression as: OrderedCollection] Platypus.PltSimpleRecord platypus-generated-fast-set-accessing fastSetParameters:aListOfPltExpression parameters := aListOfPltExpression Platypus.PltSimpleRecord platypus-generated-with-context-accessing parametersUsingContext:aContext ^ self parameters Platypus.PltSimpleRecord platypus-generated-accessing owner ^owner Platypus.PltSimpleRecord platypus-generated-set-accessing setOwner:aPltGenericInstance self owner:aPltGenericInstance Platypus.PltSimpleRecord platypus-generated-accessing owner:aPltGenericInstance owner := aPltGenericInstance Platypus.PltSimpleRecord platypus-generated-fast-set-accessing fastSetOwner:aPltGenericInstance owner := aPltGenericInstance Platypus.PltSimpleRecord platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltHeaderInstance Platypus Platypus.PltEntityInstance false none owningModel Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltHeaderInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltHeaderInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltHeaderInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltHeaderInstance <ISO10303-11-EXPRESS> ENTITY header_instance ABSTRACT SUPERTYPE SUBTYPE OF ( entity_instance ); owning_model : model_contents; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltHeaderInstance platypus-generated-initializing stepInitialize super stepInitialize. owningModel := nil. Platypus.PltHeaderInstance platypus-generated-classifying isPltHeaderInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusPopulationSchemaSchema-classifying isPltHeaderInstance ^ false Platypus.PltHeaderInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptHeaderInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusPopulationSchema acceptHeaderInstance: e "my subclasses have to redefine it" Platypus.PltHeaderInstance platypus-generated-copying headerInstanceCopyTo:another another fastSetOwningModel: (self owningModel). Platypus.PltHeaderInstance platypus-generated-copying pltLocalCopyTo: another self headerInstanceCopyTo:another Platypus.PltHeaderInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self headerInstanceCopyTo: another. Platypus.PltHeaderInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltHeaderInstance platypus-generated-group-accessing headerInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setOwningModel:valuesloc removeFirst. ^ valuesloc Platypus.PltHeaderInstance platypus-generated-group-accessing headerInstanceToValues:values values add: (self owningModel). ^ values Platypus.PltHeaderInstance platypus-generated-group-accessing toValues:values ^ self headerInstanceToValues: (super toValues: values) Platypus.PltHeaderInstance platypus-generated-group-accessing fromValues:values ^ self headerInstanceFromValues: (super fromValues: values) Platypus.PltHeaderInstance platypus-generated-group-accessing localFromValues: values ^ self headerInstanceFromValues:values Platypus.PltHeaderInstance platypus-generated-group-accessing localToValues: values ^ self headerInstanceToValues:values Platypus.PltHeaderInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusPopulationSchemaSchemaDefinition singleton Platypus.PltHeaderInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltHeaderInstance platypus-generated-accessing owningModel ^owningModel Platypus.PltHeaderInstance platypus-generated-set-accessing setOwningModel:aPltModelContents self owningModel:aPltModelContents Platypus.PltHeaderInstance platypus-generated-accessing owningModel:aPltModelContents owningModel := aPltModelContents Platypus.PltHeaderInstance platypus-generated-fast-set-accessing fastSetOwningModel:aPltModelContents owningModel := aPltModelContents Platypus.PltHeaderInstance platypus-generated-with-context-accessing owningModelUsingContext:aContext ^ self owningModel Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltUserDefinedHeaderInstance Platypus Platypus.PltHeaderInstance false none name parameters Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltUserDefinedHeaderInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltUserDefinedHeaderInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltUserDefinedHeaderInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltUserDefinedHeaderInstance <ISO10303-11-EXPRESS> ENTITY user_defined_header_instance SUBTYPE OF ( header_instance ); name : STRING; parameters : LIST OF primitive; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltUserDefinedHeaderInstance platypus-generated-initializing stepInitialize super stepInitialize. name := ''. parameters := OrderedCollection new. Platypus.PltUserDefinedHeaderInstance platypus-generated-classifying isPltUserDefinedHeaderInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusPopulationSchemaSchema-classifying isPltUserDefinedHeaderInstance ^ false Platypus.PltUserDefinedHeaderInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptUserDefinedHeaderInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusPopulationSchema acceptUserDefinedHeaderInstance: e "my subclasses have to redefine it" Platypus.PltUserDefinedHeaderInstance platypus-generated-copying userDefinedHeaderInstanceCopyTo:another another fastSetName: (self name). another fastSetParameters: (self parameters). Platypus.PltUserDefinedHeaderInstance platypus-generated-copying pltLocalCopyTo: another self userDefinedHeaderInstanceCopyTo:another Platypus.PltUserDefinedHeaderInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self userDefinedHeaderInstanceCopyTo: another. Platypus.PltUserDefinedHeaderInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltUserDefinedHeaderInstance platypus-generated-group-accessing userDefinedHeaderInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setName:valuesloc removeFirst. self setParameters:valuesloc removeFirst. ^ valuesloc Platypus.PltUserDefinedHeaderInstance platypus-generated-group-accessing userDefinedHeaderInstanceToValues:values values add: (self name). values add: (self parameters). ^ values Platypus.PltUserDefinedHeaderInstance platypus-generated-group-accessing toValues:values ^ self userDefinedHeaderInstanceToValues: (super toValues: values) Platypus.PltUserDefinedHeaderInstance platypus-generated-group-accessing fromValues:values ^ self userDefinedHeaderInstanceFromValues: (super fromValues: values) Platypus.PltUserDefinedHeaderInstance platypus-generated-group-accessing localFromValues: values ^ self userDefinedHeaderInstanceFromValues:values Platypus.PltUserDefinedHeaderInstance platypus-generated-group-accessing localToValues: values ^ self userDefinedHeaderInstanceToValues:values Platypus.PltUserDefinedHeaderInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusPopulationSchemaSchemaDefinition singleton Platypus.PltUserDefinedHeaderInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltUserDefinedHeaderInstance platypus-generated-accessing name ^name Platypus.PltUserDefinedHeaderInstance platypus-generated-set-accessing setName:aString self name:aString Platypus.PltUserDefinedHeaderInstance platypus-generated-accessing name:aString name := aString Platypus.PltUserDefinedHeaderInstance platypus-generated-fast-set-accessing fastSetName:aString name := aString Platypus.PltUserDefinedHeaderInstance platypus-generated-with-context-accessing nameUsingContext:aContext ^ self name Platypus.PltUserDefinedHeaderInstance platypus-generated-accessing parameters ^parameters Platypus.PltUserDefinedHeaderInstance platypus-generated-set-accessing setParameters:aListOfPltExpression self parameters:aListOfPltExpression Platypus.PltUserDefinedHeaderInstance platypus-generated-accessing parameters:aListOfPltExpression parameters := aListOfPltExpression ifNil: [OrderedCollection new] ifNotNil: [aListOfPltExpression as: OrderedCollection] Platypus.PltUserDefinedHeaderInstance platypus-generated-fast-set-accessing fastSetParameters:aListOfPltExpression parameters := aListOfPltExpression Platypus.PltUserDefinedHeaderInstance platypus-generated-with-context-accessing parametersUsingContext:aContext ^ self parameters Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltFileDescription Platypus Platypus.PltHeaderInstance false none implementationLevel description Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltFileDescription class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltFileDescription class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltFileDescription class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltFileDescription <ISO10303-11-EXPRESS> ENTITY file_description SUBTYPE OF ( header_instance ); description : LIST [ 1 : ? ] OF STRING ( 256 ); implementation_level : STRING ( 256 ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltFileDescription platypus-generated-initializing stepInitialize super stepInitialize. description := OrderedCollection new. implementationLevel := ''. Platypus.PltFileDescription platypus-generated-classifying isPltFileDescription ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusPopulationSchemaSchema-classifying isPltFileDescription ^ false Platypus.PltFileDescription platypus-generated-visiting accept: aVisitor ^ aVisitor acceptFileDescription: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusPopulationSchema acceptFileDescription: e "my subclasses have to redefine it" Platypus.PltFileDescription platypus-generated-copying fileDescriptionCopyTo:another another fastSetDescription: (self description). another fastSetImplementationLevel: (self implementationLevel). Platypus.PltFileDescription platypus-generated-copying pltLocalCopyTo: another self fileDescriptionCopyTo:another Platypus.PltFileDescription platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self fileDescriptionCopyTo: another. Platypus.PltFileDescription platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltFileDescription platypus-generated-group-accessing fileDescriptionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setDescription:valuesloc removeFirst. self setImplementationLevel:valuesloc removeFirst. ^ valuesloc Platypus.PltFileDescription platypus-generated-group-accessing fileDescriptionToValues:values values add: (self description). values add: (self implementationLevel). ^ values Platypus.PltFileDescription platypus-generated-group-accessing toValues:values ^ self fileDescriptionToValues: (super toValues: values) Platypus.PltFileDescription platypus-generated-group-accessing fromValues:values ^ self fileDescriptionFromValues: (super fromValues: values) Platypus.PltFileDescription platypus-generated-group-accessing localFromValues: values ^ self fileDescriptionFromValues:values Platypus.PltFileDescription platypus-generated-group-accessing localToValues: values ^ self fileDescriptionToValues:values Platypus.PltFileDescription class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusPopulationSchemaSchemaDefinition singleton Platypus.PltFileDescription class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltFileDescription platypus-generated-accessing description ^description Platypus.PltFileDescription platypus-generated-set-accessing setDescription:aListOfString self description:aListOfString Platypus.PltFileDescription platypus-generated-accessing description:aListOfString description := aListOfString ifNil: [OrderedCollection new] ifNotNil: [aListOfString as: OrderedCollection] Platypus.PltFileDescription platypus-generated-fast-set-accessing fastSetDescription:aListOfString description := aListOfString Platypus.PltFileDescription platypus-generated-with-context-accessing descriptionUsingContext:aContext ^ self description Platypus.PltFileDescription platypus-generated-accessing implementationLevel ^implementationLevel Platypus.PltFileDescription platypus-generated-set-accessing setImplementationLevel:aString self implementationLevel:aString Platypus.PltFileDescription platypus-generated-accessing implementationLevel:aString implementationLevel := aString Platypus.PltFileDescription platypus-generated-fast-set-accessing fastSetImplementationLevel:aString implementationLevel := aString Platypus.PltFileDescription platypus-generated-with-context-accessing implementationLevelUsingContext:aContext ^ self implementationLevel Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltFileName Platypus Platypus.PltHeaderInstance false none preprocessorVersion organization name authorisation author timeStamp originatingSystem Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltFileName class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltFileName class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltFileName class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltFileName <ISO10303-11-EXPRESS> ENTITY file_name SUBTYPE OF ( header_instance ); name : STRING ( 256 ); time_stamp : STRING ( 256 ); author : LIST [ 1 : ? ] OF STRING ( 256 ); organization : LIST [ 1 : ? ] OF STRING ( 256 ); preprocessor_version : STRING ( 256 ); originating_system : STRING ( 256 ); authorisation : STRING ( 256 ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltFileName platypus-generated-initializing stepInitialize super stepInitialize. name := ''. timeStamp := ''. author := OrderedCollection new. organization := OrderedCollection new. preprocessorVersion := ''. originatingSystem := ''. authorisation := ''. Platypus.PltFileName platypus-generated-classifying isPltFileName ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusPopulationSchemaSchema-classifying isPltFileName ^ false Platypus.PltFileName platypus-generated-visiting accept: aVisitor ^ aVisitor acceptFileName: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusPopulationSchema acceptFileName: e "my subclasses have to redefine it" Platypus.PltFileName platypus-generated-copying fileNameCopyTo:another another fastSetName: (self name). another fastSetTimeStamp: (self timeStamp). another fastSetAuthor: (self author). another fastSetOrganization: (self organization). another fastSetPreprocessorVersion: (self preprocessorVersion). another fastSetOriginatingSystem: (self originatingSystem). another fastSetAuthorisation: (self authorisation). Platypus.PltFileName platypus-generated-copying pltLocalCopyTo: another self fileNameCopyTo:another Platypus.PltFileName platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self fileNameCopyTo: another. Platypus.PltFileName platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltFileName platypus-generated-group-accessing fileNameFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setName:valuesloc removeFirst. self setTimeStamp:valuesloc removeFirst. self setAuthor:valuesloc removeFirst. self setOrganization:valuesloc removeFirst. self setPreprocessorVersion:valuesloc removeFirst. self setOriginatingSystem:valuesloc removeFirst. self setAuthorisation:valuesloc removeFirst. ^ valuesloc Platypus.PltFileName platypus-generated-group-accessing fileNameToValues:values values add: (self name). values add: (self timeStamp). values add: (self author). values add: (self organization). values add: (self preprocessorVersion). values add: (self originatingSystem). values add: (self authorisation). ^ values Platypus.PltFileName platypus-generated-group-accessing toValues:values ^ self fileNameToValues: (super toValues: values) Platypus.PltFileName platypus-generated-group-accessing fromValues:values ^ self fileNameFromValues: (super fromValues: values) Platypus.PltFileName platypus-generated-group-accessing localFromValues: values ^ self fileNameFromValues:values Platypus.PltFileName platypus-generated-group-accessing localToValues: values ^ self fileNameToValues:values Platypus.PltFileName class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusPopulationSchemaSchemaDefinition singleton Platypus.PltFileName class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltFileName platypus-generated-accessing name ^name Platypus.PltFileName platypus-generated-set-accessing setName:aString self name:aString Platypus.PltFileName platypus-generated-accessing name:aString name := aString Platypus.PltFileName platypus-generated-fast-set-accessing fastSetName:aString name := aString Platypus.PltFileName platypus-generated-with-context-accessing nameUsingContext:aContext ^ self name Platypus.PltFileName platypus-generated-accessing timeStamp ^timeStamp Platypus.PltFileName platypus-generated-set-accessing setTimeStamp:aString self timeStamp:aString Platypus.PltFileName platypus-generated-accessing timeStamp:aString timeStamp := aString Platypus.PltFileName platypus-generated-fast-set-accessing fastSetTimeStamp:aString timeStamp := aString Platypus.PltFileName platypus-generated-with-context-accessing timeStampUsingContext:aContext ^ self timeStamp Platypus.PltFileName platypus-generated-accessing author ^author Platypus.PltFileName platypus-generated-set-accessing setAuthor:aListOfString self author:aListOfString Platypus.PltFileName platypus-generated-accessing author:aListOfString author := aListOfString ifNil: [OrderedCollection new] ifNotNil: [aListOfString as: OrderedCollection] Platypus.PltFileName platypus-generated-fast-set-accessing fastSetAuthor:aListOfString author := aListOfString Platypus.PltFileName platypus-generated-with-context-accessing authorUsingContext:aContext ^ self author Platypus.PltFileName platypus-generated-accessing organization ^organization Platypus.PltFileName platypus-generated-set-accessing setOrganization:aListOfString self organization:aListOfString Platypus.PltFileName platypus-generated-accessing organization:aListOfString organization := aListOfString ifNil: [OrderedCollection new] ifNotNil: [aListOfString as: OrderedCollection] Platypus.PltFileName platypus-generated-fast-set-accessing fastSetOrganization:aListOfString organization := aListOfString Platypus.PltFileName platypus-generated-with-context-accessing organizationUsingContext:aContext ^ self organization Platypus.PltFileName platypus-generated-accessing preprocessorVersion ^preprocessorVersion Platypus.PltFileName platypus-generated-set-accessing setPreprocessorVersion:aString self preprocessorVersion:aString Platypus.PltFileName platypus-generated-accessing preprocessorVersion:aString preprocessorVersion := aString Platypus.PltFileName platypus-generated-fast-set-accessing fastSetPreprocessorVersion:aString preprocessorVersion := aString Platypus.PltFileName platypus-generated-with-context-accessing preprocessorVersionUsingContext:aContext ^ self preprocessorVersion Platypus.PltFileName platypus-generated-accessing originatingSystem ^originatingSystem Platypus.PltFileName platypus-generated-set-accessing setOriginatingSystem:aString self originatingSystem:aString Platypus.PltFileName platypus-generated-accessing originatingSystem:aString originatingSystem := aString Platypus.PltFileName platypus-generated-fast-set-accessing fastSetOriginatingSystem:aString originatingSystem := aString Platypus.PltFileName platypus-generated-with-context-accessing originatingSystemUsingContext:aContext ^ self originatingSystem Platypus.PltFileName platypus-generated-accessing authorisation ^authorisation Platypus.PltFileName platypus-generated-set-accessing setAuthorisation:aString self authorisation:aString Platypus.PltFileName platypus-generated-accessing authorisation:aString authorisation := aString Platypus.PltFileName platypus-generated-fast-set-accessing fastSetAuthorisation:aString authorisation := aString Platypus.PltFileName platypus-generated-with-context-accessing authorisationUsingContext:aContext ^ self authorisation Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltFileSchema Platypus Platypus.PltHeaderInstance false none schemaIdentifiers Platypus-PlatypusPopulationSchemaSchema Platypus Platypus.PltFileSchema class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltFileSchema class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltFileSchema class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltFileSchema <ISO10303-11-EXPRESS> ENTITY file_schema SUBTYPE OF ( header_instance ); schema_identifiers : LIST [ 1 : ? ] OF schema_name; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltFileSchema platypus-generated-initializing stepInitialize super stepInitialize. schemaIdentifiers := OrderedCollection new. Platypus.PltFileSchema platypus-generated-classifying isPltFileSchema ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusPopulationSchemaSchema-classifying isPltFileSchema ^ false Platypus.PltFileSchema platypus-generated-visiting accept: aVisitor ^ aVisitor acceptFileSchema: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusPopulationSchema acceptFileSchema: e "my subclasses have to redefine it" Platypus.PltFileSchema platypus-generated-copying fileSchemaCopyTo:another another fastSetSchemaIdentifiers: (self schemaIdentifiers). Platypus.PltFileSchema platypus-generated-copying pltLocalCopyTo: another self fileSchemaCopyTo:another Platypus.PltFileSchema platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self fileSchemaCopyTo: another. Platypus.PltFileSchema platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltFileSchema platypus-generated-group-accessing fileSchemaFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setSchemaIdentifiers:valuesloc removeFirst. ^ valuesloc Platypus.PltFileSchema platypus-generated-group-accessing fileSchemaToValues:values values add: (self schemaIdentifiers). ^ values Platypus.PltFileSchema platypus-generated-group-accessing toValues:values ^ self fileSchemaToValues: (super toValues: values) Platypus.PltFileSchema platypus-generated-group-accessing fromValues:values ^ self fileSchemaFromValues: (super fromValues: values) Platypus.PltFileSchema platypus-generated-group-accessing localFromValues: values ^ self fileSchemaFromValues:values Platypus.PltFileSchema platypus-generated-group-accessing localToValues: values ^ self fileSchemaToValues:values Platypus.PltFileSchema class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusPopulationSchemaSchemaDefinition singleton Platypus.PltFileSchema class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltFileSchema platypus-generated-accessing schemaIdentifiers ^schemaIdentifiers Platypus.PltFileSchema platypus-generated-set-accessing setSchemaIdentifiers:aListOfString self schemaIdentifiers:aListOfString Platypus.PltFileSchema platypus-generated-accessing schemaIdentifiers:aListOfString schemaIdentifiers := aListOfString ifNil: [OrderedCollection new] ifNotNil: [aListOfString as: OrderedCollection] Platypus.PltFileSchema platypus-generated-fast-set-accessing fastSetSchemaIdentifiers:aListOfString schemaIdentifiers := aListOfString Platypus.PltFileSchema platypus-generated-with-context-accessing schemaIdentifiersUsingContext:aContext ^ self schemaIdentifiers PltPlatypusEnvironmentSchemaSchemaDefinition Platypus Platypus.PlatypusCoreSchema false none Platypus-PlatypusEnvironmentSchemaSchema Platypus Platypus.PltPlatypusEnvironmentSchemaSchemaDefinition class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltPlatypusEnvironmentSchemaSchemaDefinition class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltPlatypusEnvironmentSchemaSchemaDefinition class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltPlatypusEnvironmentSchemaSchemaDefinition <ISO10303-11-EXPRESS> SCHEMA Platypus_environment_schema; USE FROM Platypus_population_schema; USE FROM Platypus_dictionary_schema; ENTITY model_contents SUBTYPE OF ( session_instance ); SELF\entity_instance.owner : schema_instance; INVERSE instances : SET [ 0 : ? ] OF application_instance FOR owning_model; END_ENTITY; ENTITY schema_instance SUBTYPE OF ( session_instance ); name : STRING; associated_models : LIST [ 0 : ? ] OF model_contents; schemata : LIST [ 0 : ? ] OF schema_definition; DERIVE accepted : entity_instance := SELF.accept_schema_instance; END_ENTITY; END_SCHEMA; </ISO10303-11-EXPRESS> Platypus.PltPlatypusEnvironmentSchemaSchemaDefinition platypus-generated-meta-data-accessing schemaInstanceClassName ^ #PltPlatypusMetaSchemasSchemaInstance Platypus.PltPlatypusEnvironmentSchemaSchemaDefinition platypus-generated-context-accessing context ^ self schemaInstance context Platypus.PltPlatypusEnvironmentSchemaSchemaDefinition platypus-generated-entities entityDefinition1^ #( #'model_contents' #PltModelContents ) Platypus.PltPlatypusEnvironmentSchemaSchemaDefinition platypus-generated-entities entityDefinition2^ #( #'schema_instance' #PltSchemaInstance ) Platypus.PltPlatypusEnvironmentSchemaSchemaDefinition platypus-generated-entities entityDefinitionCount ^ 2 Platypus.PltPlatypusEnvironmentSchemaSchemaDefinition platypus-generated-functions functionDeclarationCount ^ 0 Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltModelContents Platypus Platypus.PltSessionInstance false none headerInstances dataInstances positionByDataInstanceIndex dataInstancesByEntityIndex dataInstancesByLabelIndex recordComputedInstances entitiesByInstanceIndex Platypus-PlatypusEnvironmentSchemaSchema Platypus Platypus.PltModelContents class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltModelContents class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltModelContents class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltModelContents <ISO10303-11-EXPRESS> ENTITY model_contents SUBTYPE OF ( session_instance ); SELF\entity_instance.owner : schema_instance; INVERSE instances : SET [ 0 : ? ] OF application_instance FOR owning_model; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltModelContents platypus-generated-initializing stepInitialize super stepInitialize. owner := nil. Platypus.PltModelContents platypus-generated-classifying isPltModelContents ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusEnvironmentSchemaSchema-classifying isPltModelContents ^ false Platypus.PltModelContents platypus-generated-visiting accept: aVisitor ^ aVisitor acceptModelContents: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusEnvironmentSchema acceptModelContents: e "my subclasses have to redefine it" Platypus.PltModelContents platypus-generated-copying modelContentsCopyTo:another another fastSetOwner: (self owner). Platypus.PltModelContents platypus-generated-copying pltLocalCopyTo: another self modelContentsCopyTo:another Platypus.PltModelContents platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self modelContentsCopyTo: another. Platypus.PltModelContents platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltModelContents platypus-generated-group-accessing modelContentsFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setOwner:valuesloc removeFirst. ^ valuesloc Platypus.PltModelContents platypus-generated-group-accessing modelContentsToValues:values values add: (self owner). ^ values Platypus.PltModelContents platypus-generated-group-accessing toValues:values ^ self modelContentsToValues: (super toValues: values) Platypus.PltModelContents platypus-generated-group-accessing fromValues:values ^ self modelContentsFromValues: (super fromValues: values) Platypus.PltModelContents platypus-generated-group-accessing localFromValues: values ^ self modelContentsFromValues:values Platypus.PltModelContents platypus-generated-group-accessing localToValues: values ^ self modelContentsToValues:values Platypus.PltModelContents class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusEnvironmentSchemaSchemaDefinition singleton Platypus.PltModelContents class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltModelContents platypus-generated-accessing owner ^owner Platypus.PltModelContents platypus-generated-set-accessing setOwner:aPltSchemaInstance self owner:aPltSchemaInstance Platypus.PltModelContents platypus-generated-accessing owner:aPltSchemaInstance owner := aPltSchemaInstance Platypus.PltModelContents platypus-generated-fast-set-accessing fastSetOwner:aPltSchemaInstance owner := aPltSchemaInstance Platypus.PltModelContents platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus.PltModelContents platypus-generated-inverse-accessing instancesUsingContext: aContext | founds | founds := Set new.aContext allInstancesOf: PltApplicationInstance do: [ :repo :inst | | curr | (curr := inst owningModel) == self ifTrue: [founds add: curr]]. ^ founds Platypus.PltModelContents platypus-generated-inverse-accessing instances ^ self instancesUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltSchemaInstance Platypus Platypus.PltSessionInstance false none associatedModels tamarisItemReferencesIndex schemata name metaConceptsIndex errorsIndex namesBuilder Platypus-PlatypusEnvironmentSchemaSchema Platypus Platypus.PltSchemaInstance class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSchemaInstance class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSchemaInstance class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSchemaInstance <ISO10303-11-EXPRESS> ENTITY schema_instance SUBTYPE OF ( session_instance ); name : STRING; associated_models : LIST [ 0 : ? ] OF model_contents; schemata : LIST [ 0 : ? ] OF schema_definition; DERIVE accepted : entity_instance := SELF.accept_schema_instance; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSchemaInstance platypus-generated-initializing stepInitialize super stepInitialize. name := ''. associatedModels := OrderedCollection new. schemata := OrderedCollection new. Platypus.PltSchemaInstance platypus-generated-classifying isPltSchemaInstance ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusEnvironmentSchemaSchema-classifying isPltSchemaInstance ^ false Platypus.PltSchemaInstance platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSchemaInstance: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusEnvironmentSchema acceptSchemaInstance: e "my subclasses have to redefine it" Platypus.PltSchemaInstance platypus-generated-copying schemaInstanceCopyTo:another another fastSetName: (self name). another fastSetAssociatedModels: (self associatedModels). another fastSetSchemata: (self schemata). Platypus.PltSchemaInstance platypus-generated-copying pltLocalCopyTo: another self schemaInstanceCopyTo:another Platypus.PltSchemaInstance platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self schemaInstanceCopyTo: another. Platypus.PltSchemaInstance platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSchemaInstance platypus-generated-group-accessing schemaInstanceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setName:valuesloc removeFirst. self setAssociatedModels:valuesloc removeFirst. self setSchemata:valuesloc removeFirst. ^ valuesloc Platypus.PltSchemaInstance platypus-generated-group-accessing schemaInstanceToValues:values values add: (self name). values add: (self associatedModels). values add: (self schemata). ^ values Platypus.PltSchemaInstance platypus-generated-group-accessing toValues:values ^ self schemaInstanceToValues: (super toValues: values) Platypus.PltSchemaInstance platypus-generated-group-accessing fromValues:values ^ self schemaInstanceFromValues: (super fromValues: values) Platypus.PltSchemaInstance platypus-generated-group-accessing localFromValues: values ^ self schemaInstanceFromValues:values Platypus.PltSchemaInstance platypus-generated-group-accessing localToValues: values ^ self schemaInstanceToValues:values Platypus.PltSchemaInstance class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusEnvironmentSchemaSchemaDefinition singleton Platypus.PltSchemaInstance class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltSchemaInstance platypus-generated-accessing name ^name Platypus.PltSchemaInstance platypus-generated-set-accessing setName:aString self name:aString Platypus.PltSchemaInstance platypus-generated-accessing name:aString name := aString Platypus.PltSchemaInstance platypus-generated-fast-set-accessing fastSetName:aString name := aString Platypus.PltSchemaInstance platypus-generated-with-context-accessing nameUsingContext:aContext ^ self name Platypus.PltSchemaInstance platypus-generated-accessing associatedModels ^associatedModels Platypus.PltSchemaInstance platypus-generated-set-accessing setAssociatedModels:aListOfPltModelContents self associatedModels:aListOfPltModelContents Platypus.PltSchemaInstance platypus-generated-accessing associatedModels:aListOfPltModelContents associatedModels := aListOfPltModelContents ifNil: [OrderedCollection new] ifNotNil: [aListOfPltModelContents as: OrderedCollection] Platypus.PltSchemaInstance platypus-generated-fast-set-accessing fastSetAssociatedModels:aListOfPltModelContents associatedModels := aListOfPltModelContents Platypus.PltSchemaInstance platypus-generated-with-context-accessing associatedModelsUsingContext:aContext ^ self associatedModels Platypus.PltSchemaInstance platypus-generated-accessing schemata ^schemata Platypus.PltSchemaInstance platypus-generated-set-accessing setSchemata:aListOfPltSchemaDefinition self schemata:aListOfPltSchemaDefinition Platypus.PltSchemaInstance platypus-generated-accessing schemata:aListOfPltSchemaDefinition schemata := aListOfPltSchemaDefinition ifNil: [OrderedCollection new] ifNotNil: [aListOfPltSchemaDefinition as: OrderedCollection] Platypus.PltSchemaInstance platypus-generated-fast-set-accessing fastSetSchemata:aListOfPltSchemaDefinition schemata := aListOfPltSchemaDefinition Platypus.PltSchemaInstance platypus-generated-with-context-accessing schemataUsingContext:aContext ^ self schemata Platypus.PltSchemaInstance platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltSchemaInstance platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptSchemaInstanceUsingContext: aContext) Platypus.PltSchemaInstance platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context PltPlatypusDictionarySchemaSchemaDefinition Platypus Platypus.PlatypusCoreSchema false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltPlatypusDictionarySchemaSchemaDefinition class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltPlatypusDictionarySchemaSchemaDefinition class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltPlatypusDictionarySchemaSchemaDefinition class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltPlatypusDictionarySchemaSchemaDefinition <ISO10303-11-EXPRESS> SCHEMA Platypus_dictionary_schema; USE FROM Platypus_expressions_schema; USE FROM Platypus_statements_schema; USE FROM Platypus_population_schema; USE FROM Platypus_environment_schema; USE FROM Platypus_aggregate_data_schema; TYPE constructed_type = SELECT ( enumeration_type, select_type ); END_TYPE; TYPE type_or_rule = SELECT ( named_type, global_rule ); END_TYPE; TYPE base_type = SELECT ( simple_type, aggregation_type, named_type_reference ); END_TYPE; TYPE underlying_type = SELECT ( simple_type, aggregation_type, named_type_reference, constructed_type ); END_TYPE; TYPE parameter_type = SELECT ( simple_type, aggregate_type, aggregate_initializer_domain, named_type_reference ); END_TYPE; TYPE declaration = SELECT ( named_type, global_rule, constant_definition, procedure_declaration ); END_TYPE; TYPE time_stamp = STRING ( 256 ); END_TYPE; TYPE primitive = expression; END_TYPE; TYPE schema_name = STRING; END_TYPE; TYPE context_owner = SELECT ( context_definition, schema_instance ); END_TYPE; TYPE inter_schema_link = ENUMERATION OF ( used, referenced ); END_TYPE; ENTITY entity_instance ABSTRACT SUPERTYPE; owner : OPTIONAL entity_instance; END_ENTITY; ENTITY sdai_instance ABSTRACT SUPERTYPE OF ( ONEOF ( dictionary_instance, session_instance ) ) SUBTYPE OF ( entity_instance ); END_ENTITY; ENTITY dictionary_instance ABSTRACT SUPERTYPE SUBTYPE OF ( sdai_instance ); DERIVE handled : dictionary_instance := SELF; END_ENTITY; ENTITY session_instance ABSTRACT SUPERTYPE SUBTYPE OF ( sdai_instance ); change_date : OPTIONAL time_stamp; validation_date : time_stamp; validation_result : LOGICAL; END_ENTITY; ENTITY domain_equivalent_item SUBTYPE OF ( dictionary_instance ); name : STRING; external_item_id : STRING; native_item : declaration; END_ENTITY; ENTITY context_definition ABSTRACT SUPERTYPE OF ( ONEOF ( schema_definition, statements_container ) ) SUBTYPE OF ( dictionary_instance ); name : STRING; constants : LIST OF constant_definition; types : LIST OF defined_type; entities : LIST OF entity_definition; algorithmes : LIST OF algorithm_declaration; SELF\entity_instance.owner : OPTIONAL context_owner; END_ENTITY; ENTITY statements_container ABSTRACT SUPERTYPE SUBTYPE OF ( context_definition ); locals : LIST OF local_variable; statements : LIST OF statement; END_ENTITY; ENTITY global_rule SUBTYPE OF ( statements_container ); for_entities : LIST [ 1 : ? ] OF entity_instances_set; where_rules : LIST [ 1 : ? ] OF where_rule; SELF\context_definition.owner : schema_definition; DERIVE accepted : entity_instance := SELF.accept_global_rule; END_ENTITY; ENTITY external_schema SUBTYPE OF ( dictionary_instance ); name : schema_name; SELF\entity_instance.owner : schema_definition; END_ENTITY; ENTITY include_schema SUBTYPE OF ( external_schema ); native_schema : schema_definition; explicitly_imported_items : LIST OF domain_equivalent_item; implicitly_imported_items : LIST OF domain_equivalent_item; END_ENTITY; ENTITY used_schema SUBTYPE OF ( include_schema ); END_ENTITY; ENTITY referenced_schema SUBTYPE OF ( include_schema ); END_ENTITY; ENTITY external_meta_schema SUBTYPE OF ( external_schema ); END_ENTITY; ENTITY algorithm_declaration ABSTRACT SUPERTYPE SUBTYPE OF ( statements_container ); formal_parameters : LIST OF parameter_definition; END_ENTITY; ENTITY native_code SUBTYPE OF ( dictionary_instance ); language_signature : STRING; code : STRING; END_ENTITY; ENTITY native_algorithm SUBTYPE OF ( dictionary_instance ); implementations : LIST OF native_code; END_ENTITY; ENTITY procedure_declaration SUBTYPE OF ( algorithm_declaration ); DERIVE accepted : entity_instance := SELF.accept_procedure_declaration; END_ENTITY; ENTITY function_declaration SUBTYPE OF ( algorithm_declaration ); return_type : parameter_type; DERIVE accepted : entity_instance := SELF.accept_function_declaration; END_ENTITY; ENTITY bound ABSTRACT SUPERTYPE OF ( ONEOF ( integer_bound, population_dependent_bound ) ) SUBTYPE OF ( dictionary_instance ); END_ENTITY; ENTITY integer_bound SUBTYPE OF ( bound ); bound_value : INTEGER; END_ENTITY; ENTITY population_dependent_bound SUBTYPE OF ( bound ); bound_value : expression; END_ENTITY; ENTITY enumeration_type SUBTYPE OF ( dictionary_instance ); elements : LIST [ 1 : ? ] OF UNIQUE STRING; SELF\entity_instance.owner : defined_type; DERIVE accepted : entity_instance := SELF.accept_enumeration_type; END_ENTITY; ENTITY named_type ABSTRACT SUPERTYPE OF ( ONEOF ( entity_definition, defined_type ) ) SUBTYPE OF ( dictionary_instance ); name : STRING; where_rules : LIST [ 0 : ? ] OF where_rule; SELF\entity_instance.owner : context_definition; END_ENTITY; ENTITY dictionary_instance_reference SUBTYPE OF ( dictionary_instance ); ref : dictionary_instance; name : STRING; DERIVE SELF\dictionary_instance.handled : dictionary_instance := SELF.ref; END_ENTITY; ENTITY named_type_reference SUBTYPE OF ( dictionary_instance_reference ); SELF\dictionary_instance_reference.ref : named_type; DERIVE accepted : entity_instance := SELF.accept_named_type_reference; END_ENTITY; ENTITY attribute_reference SUBTYPE OF ( dictionary_instance_reference ); SELF\dictionary_instance_reference.ref : attribute; entity_ref : entity_definition_reference; DERIVE SELF\named_type_reference.accepted : entity_instance := SELF.accept_attribute_reference; END_ENTITY; ENTITY entity_definition_reference SUBTYPE OF ( named_type_reference ); SELF\named_type_reference.ref : entity_definition; DERIVE SELF\named_type_reference.accepted : entity_instance := SELF.accept_entity_definition_reference; END_ENTITY; ENTITY defined_type_reference SUBTYPE OF ( named_type_reference ); SELF\named_type_reference.ref : defined_type; DERIVE SELF\named_type_reference.accepted : entity_instance := SELF.accept_defined_type_reference; END_ENTITY; ENTITY where_rule SUBTYPE OF ( dictionary_instance ); label : OPTIONAL STRING; SELF\entity_instance.owner : type_or_rule; where_value : expression; END_ENTITY; ENTITY select_type SUBTYPE OF ( dictionary_instance ); selections : LIST [ 1 : ? ] OF named_type_reference; SELF\entity_instance.owner : defined_type; DERIVE accepted : entity_instance := SELF.accept_select_type; END_ENTITY; ENTITY defined_type SUBTYPE OF ( named_type ); domain : underlying_type; DERIVE accepted : entity_instance := SELF.accept_defined_type; END_ENTITY; ENTITY entity_definition SUBTYPE OF ( named_type ); supertype_constraint : OPTIONAL supertype_constraint; supertypes : LIST OF UNIQUE entity_definition_reference; attributes : LIST OF UNIQUE attribute; uniqueness_rules : LIST OF UNIQUE uniqueness_rule; complex : BOOLEAN; instantiable : BOOLEAN; independent : BOOLEAN; DERIVE accepted : entity_instance := SELF.accept_entity_definition; END_ENTITY; ENTITY supertype_constraint SUBTYPE OF ( dictionary_instance ); constrained : entity_definition_reference; expr : OPTIONAL supertype_expression; END_ENTITY; ENTITY supertype_expression ABSTRACT SUPERTYPE OF ( ONEOF ( sub_entity_ref_expression, binary_supertype_expression, oneof_supertype_expression ) ) SUBTYPE OF ( dictionary_instance ); END_ENTITY; ENTITY sub_entity_ref_expression SUBTYPE OF ( supertype_expression ); entity_ref : entity_definition_reference; END_ENTITY; ENTITY binary_supertype_expression SUBTYPE OF ( supertype_expression ); parenthesis : OPTIONAL BOOLEAN; left_expr : supertype_expression; right_expr : supertype_expression; END_ENTITY; ENTITY andor_supertype SUBTYPE OF ( binary_supertype_expression ); END_ENTITY; ENTITY and_supertype SUBTYPE OF ( binary_supertype_expression ); END_ENTITY; ENTITY oneof_supertype_expression SUBTYPE OF ( supertype_expression ); expr_list : LIST OF supertype_expression; END_ENTITY; ENTITY uniqueness_rule SUBTYPE OF ( dictionary_instance ); label : OPTIONAL STRING; attributes : LIST [ 1 : ? ] OF UNIQUE uniqueness_rule_attribute_identifier; SELF\entity_instance.owner : entity_definition; END_ENTITY; ENTITY attribute ABSTRACT SUPERTYPE OF ( ONEOF ( derived_attribute, explicit_attribute, inverse_attribute ) ) SUBTYPE OF ( dictionary_instance ); name : STRING; SELF\entity_instance.owner : entity_definition; domain : base_type; redeclaring : OPTIONAL attribute_reference; END_ENTITY; ENTITY aggregate_initializer_domain SUBTYPE OF ( dictionary_instance ); types : LIST [ 1 : ? ] OF parameter_type; END_ENTITY; ENTITY aggregate_type ABSTRACT SUPERTYPE OF ( ONEOF ( aggregation_type, general_aggregate_type ) ) SUBTYPE OF ( dictionary_instance ); element_type : parameter_type; END_ENTITY; ENTITY general_aggregate_type SUBTYPE OF ( aggregate_type ); type_label : OPTIONAL STRING; END_ENTITY; ENTITY aggregation_type ABSTRACT SUPERTYPE OF ( ONEOF ( variable_size_aggregation_type, array_type ) ) SUBTYPE OF ( aggregate_type ); lower_bound : OPTIONAL bound; upper_bound : OPTIONAL bound; is_general_type : BOOLEAN; END_ENTITY; ENTITY array_type SUBTYPE OF ( aggregation_type ); unique_flag : BOOLEAN; optional_flag : BOOLEAN; SELF\aggregation_type.lower_bound : bound; SELF\aggregation_type.upper_bound : bound; DERIVE accepted : entity_instance := SELF.accept_array_type; END_ENTITY; ENTITY variable_size_aggregation_type ABSTRACT SUPERTYPE OF ( ONEOF ( set_type, bag_type, list_type ) ) SUBTYPE OF ( aggregation_type ); END_ENTITY; ENTITY list_type SUBTYPE OF ( variable_size_aggregation_type ); unique_flag : BOOLEAN; DERIVE accepted : entity_instance := SELF.accept_list_type; END_ENTITY; ENTITY bag_type SUBTYPE OF ( variable_size_aggregation_type ); DERIVE accepted : entity_instance := SELF.accept_bag_type; END_ENTITY; ENTITY set_type SUBTYPE OF ( variable_size_aggregation_type ); DERIVE accepted : entity_instance := SELF.accept_set_type; END_ENTITY; ENTITY simple_type ABSTRACT SUPERTYPE OF ( ONEOF ( string_type, binary_type, logical_type, number_type ) ) SUBTYPE OF ( dictionary_instance ); END_ENTITY; ENTITY string_type SUBTYPE OF ( simple_type ); width : OPTIONAL bound; fixed_width : BOOLEAN; DERIVE accepted : entity_instance := SELF.accept_string_type; END_ENTITY; ENTITY binary_type SUBTYPE OF ( simple_type ); width : OPTIONAL bound; fixed_width : BOOLEAN; DERIVE accepted : entity_instance := SELF.accept_binary_type; END_ENTITY; ENTITY number_type SUBTYPE OF ( simple_type ); DERIVE accepted : entity_instance := SELF.accept_number_type; END_ENTITY; ENTITY real_type SUBTYPE OF ( number_type ); precision : OPTIONAL bound; DERIVE SELF\number_type.accepted : entity_instance := SELF.accept_real_type; END_ENTITY; ENTITY integer_type SUBTYPE OF ( number_type ); precision : OPTIONAL bound; DERIVE SELF\number_type.accepted : entity_instance := SELF.accept_integer_type; END_ENTITY; ENTITY logical_type SUBTYPE OF ( simple_type ); DERIVE accepted : entity_instance := SELF.accept_logical_type; END_ENTITY; ENTITY boolean_type SUBTYPE OF ( logical_type ); DERIVE SELF\logical_type.accepted : entity_instance := SELF.accept_boolean_type; END_ENTITY; ENTITY constant_definition SUBTYPE OF ( dictionary_instance ); name : STRING; domain : base_type; initializer : expression; SELF\entity_instance.owner : context_definition; END_ENTITY; ENTITY local_variable SUBTYPE OF ( dictionary_instance ); SELF\entity_instance.owner : statements_container; name : STRING; domain : parameter_type; initializer : OPTIONAL expression; END_ENTITY; ENTITY parameter_definition SUBTYPE OF ( dictionary_instance ); SELF\entity_instance.owner : algorithm_declaration; name : STRING; by_copy : BOOLEAN; domain : parameter_type; END_ENTITY; ENTITY generic_type SUBTYPE OF ( dictionary_instance ); type_label : OPTIONAL STRING; DERIVE accepted : entity_instance := SELF.accept_generic_type; END_ENTITY; ENTITY remark ABSTRACT SUPERTYPE OF ( ONEOF ( tail_remark, embedded_remark ) ) SUBTYPE OF ( entity_instance ); text : STRING; END_ENTITY; ENTITY tail_remark SUBTYPE OF ( remark ); END_ENTITY; ENTITY embedded_remark SUBTYPE OF ( remark ); END_ENTITY; ENTITY remark_reference SUBTYPE OF ( dictionary_instance ); prefix : STRING; suffix : OPTIONAL STRING; inside : dictionary_instance_reference; referenced : dictionary_instance_reference; remark : remark; END_ENTITY; ENTITY meta_concept_definition SUBTYPE OF ( dictionary_instance ); definition : dictionary_instance; expression : STRING; END_ENTITY; ENTITY derived_attribute SUBTYPE OF ( attribute ); assign : expression; DERIVE accepted : entity_instance := SELF.accept_derived_attribute; END_ENTITY; ENTITY explicit_attribute SUBTYPE OF ( attribute ); optional_flag : BOOLEAN; DERIVE accepted : entity_instance := SELF.accept_explicit_attribute; END_ENTITY; ENTITY inverse_attribute SUBTYPE OF ( attribute ); inverted_attr : attribute_reference; min_cardinality : OPTIONAL bound; max_cardinality : OPTIONAL bound; duplicates : BOOLEAN; DERIVE SELF\attribute.domain : entity_definition_reference := inverted_attr.entity_ref; accepted : entity_instance := SELF.accept_inverse_attribute; END_ENTITY; ENTITY meta_mapping_rule SUBTYPE OF ( dictionary_instance ); condition : STRING; expression : STRING; END_ENTITY; ENTITY meta_mapping_definition SUBTYPE OF ( dictionary_instance ); definition : dictionary_instance; expression : STRING; END_ENTITY; ENTITY schema_definition SUBTYPE OF ( context_definition ); global_rules : LIST OF global_rule; interface : LIST OF external_schema; remark_references : LIST OF remark_reference; DERIVE accepted : entity_instance := SELF.accept_schema_definition; END_ENTITY; END_SCHEMA; </ISO10303-11-EXPRESS> Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-meta-data-accessing schemaInstanceClassName ^ #PltPlatypusMetaSchemasSchemaInstance Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-context-accessing context ^ self schemaInstance context Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition1^ #( #'entity_instance' #PltEntityInstance ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition2^ #( #'sdai_instance' #PltSdaiInstance ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition3^ #( #'dictionary_instance' #PltDictionaryInstance ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition4^ #( #'session_instance' #PltSessionInstance ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition5^ #( #'domain_equivalent_item' #PltDomainEquivalentItem ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition6^ #( #'context_definition' #PltContextDefinition ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition7^ #( #'statements_container' #PltStatementsContainer ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition8^ #( #'global_rule' #PltGlobalRule ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition9^ #( #'external_schema' #PltExternalSchema ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition10^ #( #'include_schema' #PltIncludeSchema ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition11^ #( #'used_schema' #PltUsedSchema ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition12^ #( #'referenced_schema' #PltReferencedSchema ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition13^ #( #'external_meta_schema' #PltExternalMetaSchema ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition14^ #( #'algorithm_declaration' #PltAlgorithmDeclaration ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition15^ #( #'native_code' #PltNativeCode ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition16^ #( #'native_algorithm' #PltNativeAlgorithm ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition17^ #( #'procedure_declaration' #PltProcedureDeclaration ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition18^ #( #'function_declaration' #PltFunctionDeclaration ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition19^ #( #'bound' #PltBound ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition20^ #( #'integer_bound' #PltIntegerBound ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition21^ #( #'population_dependent_bound' #PltPopulationDependentBound ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition22^ #( #'enumeration_type' #PltEnumerationType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition23^ #( #'named_type' #PltNamedType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition24^ #( #'dictionary_instance_reference' #PltDictionaryInstanceReference ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition25^ #( #'named_type_reference' #PltNamedTypeReference ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition26^ #( #'attribute_reference' #PltAttributeReference ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition27^ #( #'entity_definition_reference' #PltEntityDefinitionReference ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition28^ #( #'defined_type_reference' #PltDefinedTypeReference ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition29^ #( #'where_rule' #PltWhereRule ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition30^ #( #'select_type' #PltSelectType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition31^ #( #'defined_type' #PltDefinedType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition32^ #( #'entity_definition' #PltEntityDefinition ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition33^ #( #'supertype_constraint' #PltSupertypeConstraint ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition34^ #( #'supertype_expression' #PltSupertypeExpression ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition35^ #( #'sub_entity_ref_expression' #PltSubEntityRefExpression ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition36^ #( #'binary_supertype_expression' #PltBinarySupertypeExpression ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition37^ #( #'andor_supertype' #PltAndorSupertype ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition38^ #( #'and_supertype' #PltAndSupertype ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition39^ #( #'oneof_supertype_expression' #PltOneofSupertypeExpression ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition40^ #( #'uniqueness_rule' #PltUniquenessRule ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition41^ #( #'attribute' #PltAttribute ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition42^ #( #'aggregate_initializer_domain' #PltAggregateInitializerDomain ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition43^ #( #'aggregate_type' #PltAggregateType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition44^ #( #'general_aggregate_type' #PltGeneralAggregateType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition45^ #( #'aggregation_type' #PltAggregationType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition46^ #( #'array_type' #PltArrayType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition47^ #( #'variable_size_aggregation_type' #PltVariableSizeAggregationType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition48^ #( #'list_type' #PltListType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition49^ #( #'bag_type' #PltBagType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition50^ #( #'set_type' #PltSetType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition51^ #( #'simple_type' #PltSimpleType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition52^ #( #'string_type' #PltStringType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition53^ #( #'binary_type' #PltBinaryType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition54^ #( #'number_type' #PltNumberType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition55^ #( #'real_type' #PltRealType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition56^ #( #'integer_type' #PltIntegerType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition57^ #( #'logical_type' #PltLogicalType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition58^ #( #'boolean_type' #PltBooleanType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition59^ #( #'constant_definition' #PltConstantDefinition ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition60^ #( #'local_variable' #PltLocalVariable ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition61^ #( #'parameter_definition' #PltParameterDefinition ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition62^ #( #'generic_type' #PltGenericType ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition63^ #( #'remark' #PltRemark ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition64^ #( #'tail_remark' #PltTailRemark ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition65^ #( #'embedded_remark' #PltEmbeddedRemark ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition66^ #( #'remark_reference' #PltRemarkReference ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition67^ #( #'meta_concept_definition' #PltMetaConceptDefinition ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition68^ #( #'derived_attribute' #PltDerivedAttribute ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition69^ #( #'explicit_attribute' #PltExplicitAttribute ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition70^ #( #'inverse_attribute' #PltInverseAttribute ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition71^ #( #'meta_mapping_rule' #PltMetaMappingRule ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition72^ #( #'meta_mapping_definition' #PltMetaMappingDefinition ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinition73^ #( #'schema_definition' #PltSchemaDefinition ) Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-entities entityDefinitionCount ^ 73 Platypus.PltPlatypusDictionarySchemaSchemaDefinition platypus-generated-functions functionDeclarationCount ^ 0 Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltDomainEquivalentItem Platypus Platypus.PltDictionaryInstance false none externalItemId name nativeItem Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltDomainEquivalentItem class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltDomainEquivalentItem class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltDomainEquivalentItem class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltDomainEquivalentItem <ISO10303-11-EXPRESS> ENTITY domain_equivalent_item SUBTYPE OF ( dictionary_instance ); name : STRING; external_item_id : STRING; native_item : declaration; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltDomainEquivalentItem platypus-generated-initializing stepInitialize super stepInitialize. name := ''. externalItemId := ''. nativeItem := nil. Platypus.PltDomainEquivalentItem platypus-generated-classifying isPltDomainEquivalentItem ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltDomainEquivalentItem ^ false Platypus.PltDomainEquivalentItem platypus-generated-visiting accept: aVisitor ^ aVisitor acceptDomainEquivalentItem: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptDomainEquivalentItem: e "my subclasses have to redefine it" Platypus.PltDomainEquivalentItem platypus-generated-copying domainEquivalentItemCopyTo:another another fastSetName: (self name). another fastSetExternalItemId: (self externalItemId). another fastSetNativeItem: (self nativeItem). Platypus.PltDomainEquivalentItem platypus-generated-copying pltLocalCopyTo: another self domainEquivalentItemCopyTo:another Platypus.PltDomainEquivalentItem platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self domainEquivalentItemCopyTo: another. Platypus.PltDomainEquivalentItem platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltDomainEquivalentItem platypus-generated-group-accessing domainEquivalentItemFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setName:valuesloc removeFirst. self setExternalItemId:valuesloc removeFirst. self setNativeItem:valuesloc removeFirst. ^ valuesloc Platypus.PltDomainEquivalentItem platypus-generated-group-accessing domainEquivalentItemToValues:values values add: (self name). values add: (self externalItemId). values add: (self nativeItem). ^ values Platypus.PltDomainEquivalentItem platypus-generated-group-accessing toValues:values ^ self domainEquivalentItemToValues: (super toValues: values) Platypus.PltDomainEquivalentItem platypus-generated-group-accessing fromValues:values ^ self domainEquivalentItemFromValues: (super fromValues: values) Platypus.PltDomainEquivalentItem platypus-generated-group-accessing localFromValues: values ^ self domainEquivalentItemFromValues:values Platypus.PltDomainEquivalentItem platypus-generated-group-accessing localToValues: values ^ self domainEquivalentItemToValues:values Platypus.PltDomainEquivalentItem class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltDomainEquivalentItem class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltDomainEquivalentItem platypus-generated-accessing name ^name Platypus.PltDomainEquivalentItem platypus-generated-set-accessing setName:aString self name:aString Platypus.PltDomainEquivalentItem platypus-generated-accessing name:aString name := aString Platypus.PltDomainEquivalentItem platypus-generated-fast-set-accessing fastSetName:aString name := aString Platypus.PltDomainEquivalentItem platypus-generated-with-context-accessing nameUsingContext:aContext ^ self name Platypus.PltDomainEquivalentItem platypus-generated-accessing externalItemId ^externalItemId Platypus.PltDomainEquivalentItem platypus-generated-set-accessing setExternalItemId:aString self externalItemId:aString Platypus.PltDomainEquivalentItem platypus-generated-accessing externalItemId:aString externalItemId := aString Platypus.PltDomainEquivalentItem platypus-generated-fast-set-accessing fastSetExternalItemId:aString externalItemId := aString Platypus.PltDomainEquivalentItem platypus-generated-with-context-accessing externalItemIdUsingContext:aContext ^ self externalItemId Platypus.PltDomainEquivalentItem platypus-generated-accessing nativeItem ^nativeItem Platypus.PltDomainEquivalentItem platypus-generated-set-accessing setNativeItem:aPltDeclaration self nativeItem:aPltDeclaration Platypus.PltDomainEquivalentItem platypus-generated-accessing nativeItem:aPltDeclaration nativeItem := aPltDeclaration Platypus.PltDomainEquivalentItem platypus-generated-fast-set-accessing fastSetNativeItem:aPltDeclaration nativeItem := aPltDeclaration Platypus.PltDomainEquivalentItem platypus-generated-with-context-accessing nativeItemUsingContext:aContext ^ self nativeItem Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltContextDefinition Platypus Platypus.PltDictionaryInstance false none namedTypesCache types constants identifiersCache name algorithmes entities Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltContextDefinition class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltContextDefinition class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltContextDefinition class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltContextDefinition <ISO10303-11-EXPRESS> ENTITY context_definition ABSTRACT SUPERTYPE OF ( ONEOF ( schema_definition, statements_container ) ) SUBTYPE OF ( dictionary_instance ); name : STRING; constants : LIST OF constant_definition; types : LIST OF defined_type; entities : LIST OF entity_definition; algorithmes : LIST OF algorithm_declaration; SELF\entity_instance.owner : OPTIONAL context_owner; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltContextDefinition platypus-generated-initializing stepInitialize super stepInitialize. name := ''. constants := OrderedCollection new. types := OrderedCollection new. entities := OrderedCollection new. algorithmes := OrderedCollection new. owner := nil. Platypus.PltContextDefinition platypus-generated-classifying isPltContextDefinition ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltContextDefinition ^ false Platypus.PltContextDefinition platypus-generated-visiting accept: aVisitor ^ aVisitor acceptContextDefinition: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptContextDefinition: e "my subclasses have to redefine it" Platypus.PltContextDefinition platypus-generated-copying contextDefinitionCopyTo:another another fastSetName: (self name). another fastSetConstants: (self constants). another fastSetTypes: (self types). another fastSetEntities: (self entities). another fastSetAlgorithmes: (self algorithmes). another fastSetOwner: (self owner). Platypus.PltContextDefinition platypus-generated-copying pltLocalCopyTo: another self contextDefinitionCopyTo:another Platypus.PltContextDefinition platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self contextDefinitionCopyTo: another. Platypus.PltContextDefinition platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltContextDefinition platypus-generated-group-accessing contextDefinitionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setName:valuesloc removeFirst. self setConstants:valuesloc removeFirst. self setTypes:valuesloc removeFirst. self setEntities:valuesloc removeFirst. self setAlgorithmes:valuesloc removeFirst. self setOwner:valuesloc removeFirst. ^ valuesloc Platypus.PltContextDefinition platypus-generated-group-accessing contextDefinitionToValues:values values add: (self name). values add: (self constants). values add: (self types). values add: (self entities). values add: (self algorithmes). values add: (self owner). ^ values Platypus.PltContextDefinition platypus-generated-group-accessing toValues:values ^ self contextDefinitionToValues: (super toValues: values) Platypus.PltContextDefinition platypus-generated-group-accessing fromValues:values ^ self contextDefinitionFromValues: (super fromValues: values) Platypus.PltContextDefinition platypus-generated-group-accessing localFromValues: values ^ self contextDefinitionFromValues:values Platypus.PltContextDefinition platypus-generated-group-accessing localToValues: values ^ self contextDefinitionToValues:values Platypus.PltContextDefinition class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltContextDefinition class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltContextDefinition platypus-generated-accessing name ^name Platypus.PltContextDefinition platypus-generated-set-accessing setName:aString self name:aString Platypus.PltContextDefinition platypus-generated-accessing name:aString name := aString Platypus.PltContextDefinition platypus-generated-fast-set-accessing fastSetName:aString name := aString Platypus.PltContextDefinition platypus-generated-with-context-accessing nameUsingContext:aContext ^ self name Platypus.PltContextDefinition platypus-generated-accessing constants ^constants Platypus.PltContextDefinition platypus-generated-set-accessing setConstants:aListOfPltConstantDefinition self constants:aListOfPltConstantDefinition Platypus.PltContextDefinition platypus-generated-accessing constants:aListOfPltConstantDefinition constants := aListOfPltConstantDefinition ifNil: [OrderedCollection new] ifNotNil: [aListOfPltConstantDefinition as: OrderedCollection] Platypus.PltContextDefinition platypus-generated-fast-set-accessing fastSetConstants:aListOfPltConstantDefinition constants := aListOfPltConstantDefinition Platypus.PltContextDefinition platypus-generated-with-context-accessing constantsUsingContext:aContext ^ self constants Platypus.PltContextDefinition platypus-generated-accessing types ^types Platypus.PltContextDefinition platypus-generated-set-accessing setTypes:aListOfPltDefinedType self types:aListOfPltDefinedType Platypus.PltContextDefinition platypus-generated-accessing types:aListOfPltDefinedType types := aListOfPltDefinedType ifNil: [OrderedCollection new] ifNotNil: [aListOfPltDefinedType as: OrderedCollection] Platypus.PltContextDefinition platypus-generated-fast-set-accessing fastSetTypes:aListOfPltDefinedType types := aListOfPltDefinedType Platypus.PltContextDefinition platypus-generated-with-context-accessing typesUsingContext:aContext ^ self types Platypus.PltContextDefinition platypus-generated-accessing entities ^entities Platypus.PltContextDefinition platypus-generated-set-accessing setEntities:aListOfPltEntityDefinition self entities:aListOfPltEntityDefinition Platypus.PltContextDefinition platypus-generated-accessing entities:aListOfPltEntityDefinition entities := aListOfPltEntityDefinition ifNil: [OrderedCollection new] ifNotNil: [aListOfPltEntityDefinition as: OrderedCollection] Platypus.PltContextDefinition platypus-generated-fast-set-accessing fastSetEntities:aListOfPltEntityDefinition entities := aListOfPltEntityDefinition Platypus.PltContextDefinition platypus-generated-with-context-accessing entitiesUsingContext:aContext ^ self entities Platypus.PltContextDefinition platypus-generated-accessing algorithmes ^algorithmes Platypus.PltContextDefinition platypus-generated-set-accessing setAlgorithmes:aListOfPltAlgorithmDeclaration self algorithmes:aListOfPltAlgorithmDeclaration Platypus.PltContextDefinition platypus-generated-accessing algorithmes:aListOfPltAlgorithmDeclaration algorithmes := aListOfPltAlgorithmDeclaration ifNil: [OrderedCollection new] ifNotNil: [aListOfPltAlgorithmDeclaration as: OrderedCollection] Platypus.PltContextDefinition platypus-generated-fast-set-accessing fastSetAlgorithmes:aListOfPltAlgorithmDeclaration algorithmes := aListOfPltAlgorithmDeclaration Platypus.PltContextDefinition platypus-generated-with-context-accessing algorithmesUsingContext:aContext ^ self algorithmes Platypus.PltContextDefinition platypus-generated-accessing owner ^owner Platypus.PltContextDefinition platypus-generated-set-accessing setOwner:aPltContextOwner self owner:aPltContextOwner Platypus.PltContextDefinition platypus-generated-accessing owner:aPltContextOwner owner := aPltContextOwner Platypus.PltContextDefinition platypus-generated-fast-set-accessing fastSetOwner:aPltContextOwner owner := aPltContextOwner Platypus.PltContextDefinition platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltStatementsContainer Platypus Platypus.PltContextDefinition false none locals statements Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltStatementsContainer class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltStatementsContainer class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltStatementsContainer class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltStatementsContainer <ISO10303-11-EXPRESS> ENTITY statements_container ABSTRACT SUPERTYPE SUBTYPE OF ( context_definition ); locals : LIST OF local_variable; statements : LIST OF statement; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltStatementsContainer platypus-generated-initializing stepInitialize super stepInitialize. locals := OrderedCollection new. statements := OrderedCollection new. Platypus.PltStatementsContainer platypus-generated-classifying isPltStatementsContainer ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltStatementsContainer ^ false Platypus.PltStatementsContainer platypus-generated-visiting accept: aVisitor ^ aVisitor acceptStatementsContainer: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptStatementsContainer: e "my subclasses have to redefine it" Platypus.PltStatementsContainer platypus-generated-copying statementsContainerCopyTo:another another fastSetLocals: (self locals). another fastSetStatements: (self statements). Platypus.PltStatementsContainer platypus-generated-copying pltLocalCopyTo: another self statementsContainerCopyTo:another Platypus.PltStatementsContainer platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self statementsContainerCopyTo: another. Platypus.PltStatementsContainer platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltStatementsContainer platypus-generated-group-accessing statementsContainerFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setLocals:valuesloc removeFirst. self setStatements:valuesloc removeFirst. ^ valuesloc Platypus.PltStatementsContainer platypus-generated-group-accessing statementsContainerToValues:values values add: (self locals). values add: (self statements). ^ values Platypus.PltStatementsContainer platypus-generated-group-accessing toValues:values ^ self statementsContainerToValues: (super toValues: values) Platypus.PltStatementsContainer platypus-generated-group-accessing fromValues:values ^ self statementsContainerFromValues: (super fromValues: values) Platypus.PltStatementsContainer platypus-generated-group-accessing localFromValues: values ^ self statementsContainerFromValues:values Platypus.PltStatementsContainer platypus-generated-group-accessing localToValues: values ^ self statementsContainerToValues:values Platypus.PltStatementsContainer class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltStatementsContainer class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltStatementsContainer platypus-generated-accessing locals ^locals Platypus.PltStatementsContainer platypus-generated-set-accessing setLocals:aListOfPltLocalVariable self locals:aListOfPltLocalVariable Platypus.PltStatementsContainer platypus-generated-accessing locals:aListOfPltLocalVariable locals := aListOfPltLocalVariable ifNil: [OrderedCollection new] ifNotNil: [aListOfPltLocalVariable as: OrderedCollection] Platypus.PltStatementsContainer platypus-generated-fast-set-accessing fastSetLocals:aListOfPltLocalVariable locals := aListOfPltLocalVariable Platypus.PltStatementsContainer platypus-generated-with-context-accessing localsUsingContext:aContext ^ self locals Platypus.PltStatementsContainer platypus-generated-accessing statements ^statements Platypus.PltStatementsContainer platypus-generated-set-accessing setStatements:aListOfPltStatement self statements:aListOfPltStatement Platypus.PltStatementsContainer platypus-generated-accessing statements:aListOfPltStatement statements := aListOfPltStatement ifNil: [OrderedCollection new] ifNotNil: [aListOfPltStatement as: OrderedCollection] Platypus.PltStatementsContainer platypus-generated-fast-set-accessing fastSetStatements:aListOfPltStatement statements := aListOfPltStatement Platypus.PltStatementsContainer platypus-generated-with-context-accessing statementsUsingContext:aContext ^ self statements Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltGlobalRule Platypus Platypus.PltStatementsContainer false none forEntities whereRules Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltGlobalRule class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltGlobalRule class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltGlobalRule class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltGlobalRule <ISO10303-11-EXPRESS> ENTITY global_rule SUBTYPE OF ( statements_container ); for_entities : LIST [ 1 : ? ] OF entity_instances_set; where_rules : LIST [ 1 : ? ] OF where_rule; SELF\context_definition.owner : schema_definition; DERIVE accepted : entity_instance := SELF.accept_global_rule; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltGlobalRule platypus-generated-initializing stepInitialize super stepInitialize. forEntities := OrderedCollection new. whereRules := OrderedCollection new. owner := nil. Platypus.PltGlobalRule platypus-generated-classifying isPltGlobalRule ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltGlobalRule ^ false Platypus.PltGlobalRule platypus-generated-visiting accept: aVisitor ^ aVisitor acceptGlobalRule: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptGlobalRule: e "my subclasses have to redefine it" Platypus.PltGlobalRule platypus-generated-copying globalRuleCopyTo:another another fastSetForEntities: (self forEntities). another fastSetWhereRules: (self whereRules). another fastSetOwner: (self owner). Platypus.PltGlobalRule platypus-generated-copying pltLocalCopyTo: another self globalRuleCopyTo:another Platypus.PltGlobalRule platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self globalRuleCopyTo: another. Platypus.PltGlobalRule platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltGlobalRule platypus-generated-group-accessing globalRuleFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setForEntities:valuesloc removeFirst. self setWhereRules:valuesloc removeFirst. self setOwner:valuesloc removeFirst. ^ valuesloc Platypus.PltGlobalRule platypus-generated-group-accessing globalRuleToValues:values values add: (self forEntities). values add: (self whereRules). values add: (self owner). ^ values Platypus.PltGlobalRule platypus-generated-group-accessing toValues:values ^ self globalRuleToValues: (super toValues: values) Platypus.PltGlobalRule platypus-generated-group-accessing fromValues:values ^ self globalRuleFromValues: (super fromValues: values) Platypus.PltGlobalRule platypus-generated-group-accessing localFromValues: values ^ self globalRuleFromValues:values Platypus.PltGlobalRule platypus-generated-group-accessing localToValues: values ^ self globalRuleToValues:values Platypus.PltGlobalRule class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltGlobalRule class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltGlobalRule platypus-generated-accessing forEntities ^forEntities Platypus.PltGlobalRule platypus-generated-set-accessing setForEntities:aListOfPltEntityInstancesSet self forEntities:aListOfPltEntityInstancesSet Platypus.PltGlobalRule platypus-generated-accessing forEntities:aListOfPltEntityInstancesSet forEntities := aListOfPltEntityInstancesSet ifNil: [OrderedCollection new] ifNotNil: [aListOfPltEntityInstancesSet as: OrderedCollection] Platypus.PltGlobalRule platypus-generated-fast-set-accessing fastSetForEntities:aListOfPltEntityInstancesSet forEntities := aListOfPltEntityInstancesSet Platypus.PltGlobalRule platypus-generated-with-context-accessing forEntitiesUsingContext:aContext ^ self forEntities Platypus.PltGlobalRule platypus-generated-accessing whereRules ^whereRules Platypus.PltGlobalRule platypus-generated-set-accessing setWhereRules:aListOfPltWhereRule self whereRules:aListOfPltWhereRule Platypus.PltGlobalRule platypus-generated-accessing whereRules:aListOfPltWhereRule whereRules := aListOfPltWhereRule ifNil: [OrderedCollection new] ifNotNil: [aListOfPltWhereRule as: OrderedCollection] Platypus.PltGlobalRule platypus-generated-fast-set-accessing fastSetWhereRules:aListOfPltWhereRule whereRules := aListOfPltWhereRule Platypus.PltGlobalRule platypus-generated-with-context-accessing whereRulesUsingContext:aContext ^ self whereRules Platypus.PltGlobalRule platypus-generated-accessing owner ^owner Platypus.PltGlobalRule platypus-generated-set-accessing setOwner:aPltSchemaDefinition self owner:aPltSchemaDefinition Platypus.PltGlobalRule platypus-generated-accessing owner:aPltSchemaDefinition owner := aPltSchemaDefinition Platypus.PltGlobalRule platypus-generated-fast-set-accessing fastSetOwner:aPltSchemaDefinition owner := aPltSchemaDefinition Platypus.PltGlobalRule platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus.PltGlobalRule platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltGlobalRule platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptGlobalRuleUsingContext: aContext) Platypus.PltGlobalRule platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltExternalSchema Platypus Platypus.PltDictionaryInstance false none name Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltExternalSchema class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltExternalSchema class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltExternalSchema class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltExternalSchema <ISO10303-11-EXPRESS> ENTITY external_schema SUBTYPE OF ( dictionary_instance ); name : schema_name; SELF\entity_instance.owner : schema_definition; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltExternalSchema platypus-generated-initializing stepInitialize super stepInitialize. name := ''. owner := nil. Platypus.PltExternalSchema platypus-generated-classifying isPltExternalSchema ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltExternalSchema ^ false Platypus.PltExternalSchema platypus-generated-visiting accept: aVisitor ^ aVisitor acceptExternalSchema: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptExternalSchema: e "my subclasses have to redefine it" Platypus.PltExternalSchema platypus-generated-copying externalSchemaCopyTo:another another fastSetName: (self name). another fastSetOwner: (self owner). Platypus.PltExternalSchema platypus-generated-copying pltLocalCopyTo: another self externalSchemaCopyTo:another Platypus.PltExternalSchema platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self externalSchemaCopyTo: another. Platypus.PltExternalSchema platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltExternalSchema platypus-generated-group-accessing externalSchemaFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setName:valuesloc removeFirst. self setOwner:valuesloc removeFirst. ^ valuesloc Platypus.PltExternalSchema platypus-generated-group-accessing externalSchemaToValues:values values add: (self name). values add: (self owner). ^ values Platypus.PltExternalSchema platypus-generated-group-accessing toValues:values ^ self externalSchemaToValues: (super toValues: values) Platypus.PltExternalSchema platypus-generated-group-accessing fromValues:values ^ self externalSchemaFromValues: (super fromValues: values) Platypus.PltExternalSchema platypus-generated-group-accessing localFromValues: values ^ self externalSchemaFromValues:values Platypus.PltExternalSchema platypus-generated-group-accessing localToValues: values ^ self externalSchemaToValues:values Platypus.PltExternalSchema class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltExternalSchema class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltExternalSchema platypus-generated-accessing name ^name Platypus.PltExternalSchema platypus-generated-set-accessing setName:aString self name:aString Platypus.PltExternalSchema platypus-generated-accessing name:aString name := aString Platypus.PltExternalSchema platypus-generated-fast-set-accessing fastSetName:aString name := aString Platypus.PltExternalSchema platypus-generated-with-context-accessing nameUsingContext:aContext ^ self name Platypus.PltExternalSchema platypus-generated-accessing owner ^owner Platypus.PltExternalSchema platypus-generated-set-accessing setOwner:aPltSchemaDefinition self owner:aPltSchemaDefinition Platypus.PltExternalSchema platypus-generated-accessing owner:aPltSchemaDefinition owner := aPltSchemaDefinition Platypus.PltExternalSchema platypus-generated-fast-set-accessing fastSetOwner:aPltSchemaDefinition owner := aPltSchemaDefinition Platypus.PltExternalSchema platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltIncludeSchema Platypus Platypus.PltExternalSchema false none nativeSchema explicitlyImportedItems implicitlyImportedItems Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltIncludeSchema class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltIncludeSchema class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltIncludeSchema class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltIncludeSchema <ISO10303-11-EXPRESS> ENTITY include_schema SUBTYPE OF ( external_schema ); native_schema : schema_definition; explicitly_imported_items : LIST OF domain_equivalent_item; implicitly_imported_items : LIST OF domain_equivalent_item; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltIncludeSchema platypus-generated-initializing stepInitialize super stepInitialize. nativeSchema := nil. explicitlyImportedItems := OrderedCollection new. implicitlyImportedItems := OrderedCollection new. Platypus.PltIncludeSchema platypus-generated-classifying isPltIncludeSchema ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltIncludeSchema ^ false Platypus.PltIncludeSchema platypus-generated-visiting accept: aVisitor ^ aVisitor acceptIncludeSchema: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptIncludeSchema: e "my subclasses have to redefine it" Platypus.PltIncludeSchema platypus-generated-copying includeSchemaCopyTo:another another fastSetNativeSchema: (self nativeSchema). another fastSetExplicitlyImportedItems: (self explicitlyImportedItems). another fastSetImplicitlyImportedItems: (self implicitlyImportedItems). Platypus.PltIncludeSchema platypus-generated-copying pltLocalCopyTo: another self includeSchemaCopyTo:another Platypus.PltIncludeSchema platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self includeSchemaCopyTo: another. Platypus.PltIncludeSchema platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltIncludeSchema platypus-generated-group-accessing includeSchemaFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setNativeSchema:valuesloc removeFirst. self setExplicitlyImportedItems:valuesloc removeFirst. self setImplicitlyImportedItems:valuesloc removeFirst. ^ valuesloc Platypus.PltIncludeSchema platypus-generated-group-accessing includeSchemaToValues:values values add: (self nativeSchema). values add: (self explicitlyImportedItems). values add: (self implicitlyImportedItems). ^ values Platypus.PltIncludeSchema platypus-generated-group-accessing toValues:values ^ self includeSchemaToValues: (super toValues: values) Platypus.PltIncludeSchema platypus-generated-group-accessing fromValues:values ^ self includeSchemaFromValues: (super fromValues: values) Platypus.PltIncludeSchema platypus-generated-group-accessing localFromValues: values ^ self includeSchemaFromValues:values Platypus.PltIncludeSchema platypus-generated-group-accessing localToValues: values ^ self includeSchemaToValues:values Platypus.PltIncludeSchema class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltIncludeSchema class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltIncludeSchema platypus-generated-accessing nativeSchema ^nativeSchema Platypus.PltIncludeSchema platypus-generated-set-accessing setNativeSchema:aPltSchemaDefinition self nativeSchema:aPltSchemaDefinition Platypus.PltIncludeSchema platypus-generated-accessing nativeSchema:aPltSchemaDefinition nativeSchema := aPltSchemaDefinition Platypus.PltIncludeSchema platypus-generated-fast-set-accessing fastSetNativeSchema:aPltSchemaDefinition nativeSchema := aPltSchemaDefinition Platypus.PltIncludeSchema platypus-generated-with-context-accessing nativeSchemaUsingContext:aContext ^ self nativeSchema Platypus.PltIncludeSchema platypus-generated-accessing explicitlyImportedItems ^explicitlyImportedItems Platypus.PltIncludeSchema platypus-generated-set-accessing setExplicitlyImportedItems:aListOfPltDomainEquivalentItem self explicitlyImportedItems:aListOfPltDomainEquivalentItem Platypus.PltIncludeSchema platypus-generated-accessing explicitlyImportedItems:aListOfPltDomainEquivalentItem explicitlyImportedItems := aListOfPltDomainEquivalentItem ifNil: [OrderedCollection new] ifNotNil: [aListOfPltDomainEquivalentItem as: OrderedCollection] Platypus.PltIncludeSchema platypus-generated-fast-set-accessing fastSetExplicitlyImportedItems:aListOfPltDomainEquivalentItem explicitlyImportedItems := aListOfPltDomainEquivalentItem Platypus.PltIncludeSchema platypus-generated-with-context-accessing explicitlyImportedItemsUsingContext:aContext ^ self explicitlyImportedItems Platypus.PltIncludeSchema platypus-generated-accessing implicitlyImportedItems ^implicitlyImportedItems Platypus.PltIncludeSchema platypus-generated-set-accessing setImplicitlyImportedItems:aListOfPltDomainEquivalentItem self implicitlyImportedItems:aListOfPltDomainEquivalentItem Platypus.PltIncludeSchema platypus-generated-accessing implicitlyImportedItems:aListOfPltDomainEquivalentItem implicitlyImportedItems := aListOfPltDomainEquivalentItem ifNil: [OrderedCollection new] ifNotNil: [aListOfPltDomainEquivalentItem as: OrderedCollection] Platypus.PltIncludeSchema platypus-generated-fast-set-accessing fastSetImplicitlyImportedItems:aListOfPltDomainEquivalentItem implicitlyImportedItems := aListOfPltDomainEquivalentItem Platypus.PltIncludeSchema platypus-generated-with-context-accessing implicitlyImportedItemsUsingContext:aContext ^ self implicitlyImportedItems Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltUsedSchema Platypus Platypus.PltIncludeSchema false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltUsedSchema class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltUsedSchema class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltUsedSchema class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltUsedSchema <ISO10303-11-EXPRESS> ENTITY used_schema SUBTYPE OF ( include_schema ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltUsedSchema platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltUsedSchema platypus-generated-classifying isPltUsedSchema ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltUsedSchema ^ false Platypus.PltUsedSchema platypus-generated-visiting accept: aVisitor ^ aVisitor acceptUsedSchema: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptUsedSchema: e "my subclasses have to redefine it" Platypus.PltUsedSchema platypus-generated-copying usedSchemaCopyTo:another Platypus.PltUsedSchema platypus-generated-copying pltLocalCopyTo: another self usedSchemaCopyTo:another Platypus.PltUsedSchema platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self usedSchemaCopyTo: another. Platypus.PltUsedSchema platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltUsedSchema platypus-generated-group-accessing usedSchemaFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltUsedSchema platypus-generated-group-accessing usedSchemaToValues:values ^ values Platypus.PltUsedSchema platypus-generated-group-accessing toValues:values ^ self usedSchemaToValues: (super toValues: values) Platypus.PltUsedSchema platypus-generated-group-accessing fromValues:values ^ self usedSchemaFromValues: (super fromValues: values) Platypus.PltUsedSchema platypus-generated-group-accessing localFromValues: values ^ self usedSchemaFromValues:values Platypus.PltUsedSchema platypus-generated-group-accessing localToValues: values ^ self usedSchemaToValues:values Platypus.PltUsedSchema class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltUsedSchema class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltReferencedSchema Platypus Platypus.PltIncludeSchema false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltReferencedSchema class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltReferencedSchema class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltReferencedSchema class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltReferencedSchema <ISO10303-11-EXPRESS> ENTITY referenced_schema SUBTYPE OF ( include_schema ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltReferencedSchema platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltReferencedSchema platypus-generated-classifying isPltReferencedSchema ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltReferencedSchema ^ false Platypus.PltReferencedSchema platypus-generated-visiting accept: aVisitor ^ aVisitor acceptReferencedSchema: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptReferencedSchema: e "my subclasses have to redefine it" Platypus.PltReferencedSchema platypus-generated-copying referencedSchemaCopyTo:another Platypus.PltReferencedSchema platypus-generated-copying pltLocalCopyTo: another self referencedSchemaCopyTo:another Platypus.PltReferencedSchema platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self referencedSchemaCopyTo: another. Platypus.PltReferencedSchema platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltReferencedSchema platypus-generated-group-accessing referencedSchemaFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltReferencedSchema platypus-generated-group-accessing referencedSchemaToValues:values ^ values Platypus.PltReferencedSchema platypus-generated-group-accessing toValues:values ^ self referencedSchemaToValues: (super toValues: values) Platypus.PltReferencedSchema platypus-generated-group-accessing fromValues:values ^ self referencedSchemaFromValues: (super fromValues: values) Platypus.PltReferencedSchema platypus-generated-group-accessing localFromValues: values ^ self referencedSchemaFromValues:values Platypus.PltReferencedSchema platypus-generated-group-accessing localToValues: values ^ self referencedSchemaToValues:values Platypus.PltReferencedSchema class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltReferencedSchema class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltExternalMetaSchema Platypus Platypus.PltExternalSchema false none nativeSchema Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltExternalMetaSchema class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltExternalMetaSchema class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltExternalMetaSchema class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltExternalMetaSchema <ISO10303-11-EXPRESS> ENTITY external_meta_schema SUBTYPE OF ( external_schema ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltExternalMetaSchema platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltExternalMetaSchema platypus-generated-classifying isPltExternalMetaSchema ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltExternalMetaSchema ^ false Platypus.PltExternalMetaSchema platypus-generated-visiting accept: aVisitor ^ aVisitor acceptExternalMetaSchema: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptExternalMetaSchema: e "my subclasses have to redefine it" Platypus.PltExternalMetaSchema platypus-generated-copying externalMetaSchemaCopyTo:another Platypus.PltExternalMetaSchema platypus-generated-copying pltLocalCopyTo: another self externalMetaSchemaCopyTo:another Platypus.PltExternalMetaSchema platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self externalMetaSchemaCopyTo: another. Platypus.PltExternalMetaSchema platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltExternalMetaSchema platypus-generated-group-accessing externalMetaSchemaFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltExternalMetaSchema platypus-generated-group-accessing externalMetaSchemaToValues:values ^ values Platypus.PltExternalMetaSchema platypus-generated-group-accessing toValues:values ^ self externalMetaSchemaToValues: (super toValues: values) Platypus.PltExternalMetaSchema platypus-generated-group-accessing fromValues:values ^ self externalMetaSchemaFromValues: (super fromValues: values) Platypus.PltExternalMetaSchema platypus-generated-group-accessing localFromValues: values ^ self externalMetaSchemaFromValues:values Platypus.PltExternalMetaSchema platypus-generated-group-accessing localToValues: values ^ self externalMetaSchemaToValues:values Platypus.PltExternalMetaSchema class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltExternalMetaSchema class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAlgorithmDeclaration Platypus Platypus.PltStatementsContainer false none formalParameters Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltAlgorithmDeclaration class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAlgorithmDeclaration class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAlgorithmDeclaration class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAlgorithmDeclaration <ISO10303-11-EXPRESS> ENTITY algorithm_declaration ABSTRACT SUPERTYPE SUBTYPE OF ( statements_container ); formal_parameters : LIST OF parameter_definition; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAlgorithmDeclaration platypus-generated-initializing stepInitialize super stepInitialize. formalParameters := OrderedCollection new. Platypus.PltAlgorithmDeclaration platypus-generated-classifying isPltAlgorithmDeclaration ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltAlgorithmDeclaration ^ false Platypus.PltAlgorithmDeclaration platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAlgorithmDeclaration: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptAlgorithmDeclaration: e "my subclasses have to redefine it" Platypus.PltAlgorithmDeclaration platypus-generated-copying algorithmDeclarationCopyTo:another another fastSetFormalParameters: (self formalParameters). Platypus.PltAlgorithmDeclaration platypus-generated-copying pltLocalCopyTo: another self algorithmDeclarationCopyTo:another Platypus.PltAlgorithmDeclaration platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self algorithmDeclarationCopyTo: another. Platypus.PltAlgorithmDeclaration platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAlgorithmDeclaration platypus-generated-group-accessing algorithmDeclarationFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setFormalParameters:valuesloc removeFirst. ^ valuesloc Platypus.PltAlgorithmDeclaration platypus-generated-group-accessing algorithmDeclarationToValues:values values add: (self formalParameters). ^ values Platypus.PltAlgorithmDeclaration platypus-generated-group-accessing toValues:values ^ self algorithmDeclarationToValues: (super toValues: values) Platypus.PltAlgorithmDeclaration platypus-generated-group-accessing fromValues:values ^ self algorithmDeclarationFromValues: (super fromValues: values) Platypus.PltAlgorithmDeclaration platypus-generated-group-accessing localFromValues: values ^ self algorithmDeclarationFromValues:values Platypus.PltAlgorithmDeclaration platypus-generated-group-accessing localToValues: values ^ self algorithmDeclarationToValues:values Platypus.PltAlgorithmDeclaration class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltAlgorithmDeclaration class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAlgorithmDeclaration platypus-generated-accessing formalParameters ^formalParameters Platypus.PltAlgorithmDeclaration platypus-generated-set-accessing setFormalParameters:aListOfPltParameterDefinition self formalParameters:aListOfPltParameterDefinition Platypus.PltAlgorithmDeclaration platypus-generated-accessing formalParameters:aListOfPltParameterDefinition formalParameters := aListOfPltParameterDefinition ifNil: [OrderedCollection new] ifNotNil: [aListOfPltParameterDefinition as: OrderedCollection] Platypus.PltAlgorithmDeclaration platypus-generated-fast-set-accessing fastSetFormalParameters:aListOfPltParameterDefinition formalParameters := aListOfPltParameterDefinition Platypus.PltAlgorithmDeclaration platypus-generated-with-context-accessing formalParametersUsingContext:aContext ^ self formalParameters Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltNativeCode Platypus Platypus.PltDictionaryInstance false none languageSignature cachedMethod code Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltNativeCode class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltNativeCode class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltNativeCode class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltNativeCode <ISO10303-11-EXPRESS> ENTITY native_code SUBTYPE OF ( dictionary_instance ); language_signature : STRING; code : STRING; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltNativeCode platypus-generated-initializing stepInitialize super stepInitialize. languageSignature := ''. code := ''. Platypus.PltNativeCode platypus-generated-classifying isPltNativeCode ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltNativeCode ^ false Platypus.PltNativeCode platypus-generated-visiting accept: aVisitor ^ aVisitor acceptNativeCode: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptNativeCode: e "my subclasses have to redefine it" Platypus.PltNativeCode platypus-generated-copying nativeCodeCopyTo:another another fastSetLanguageSignature: (self languageSignature). another fastSetCode: (self code). Platypus.PltNativeCode platypus-generated-copying pltLocalCopyTo: another self nativeCodeCopyTo:another Platypus.PltNativeCode platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self nativeCodeCopyTo: another. Platypus.PltNativeCode platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltNativeCode platypus-generated-group-accessing nativeCodeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setLanguageSignature:valuesloc removeFirst. self setCode:valuesloc removeFirst. ^ valuesloc Platypus.PltNativeCode platypus-generated-group-accessing nativeCodeToValues:values values add: (self languageSignature). values add: (self code). ^ values Platypus.PltNativeCode platypus-generated-group-accessing toValues:values ^ self nativeCodeToValues: (super toValues: values) Platypus.PltNativeCode platypus-generated-group-accessing fromValues:values ^ self nativeCodeFromValues: (super fromValues: values) Platypus.PltNativeCode platypus-generated-group-accessing localFromValues: values ^ self nativeCodeFromValues:values Platypus.PltNativeCode platypus-generated-group-accessing localToValues: values ^ self nativeCodeToValues:values Platypus.PltNativeCode class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltNativeCode class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltNativeCode platypus-generated-accessing languageSignature ^languageSignature Platypus.PltNativeCode platypus-generated-set-accessing setLanguageSignature:aString self languageSignature:aString Platypus.PltNativeCode platypus-generated-accessing languageSignature:aString languageSignature := aString Platypus.PltNativeCode platypus-generated-fast-set-accessing fastSetLanguageSignature:aString languageSignature := aString Platypus.PltNativeCode platypus-generated-with-context-accessing languageSignatureUsingContext:aContext ^ self languageSignature Platypus.PltNativeCode platypus-generated-accessing code ^code Platypus.PltNativeCode platypus-generated-set-accessing setCode:aString self code:aString Platypus.PltNativeCode platypus-generated-accessing code:aString code := aString Platypus.PltNativeCode platypus-generated-fast-set-accessing fastSetCode:aString code := aString Platypus.PltNativeCode platypus-generated-with-context-accessing codeUsingContext:aContext ^ self code Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltNativeAlgorithm Platypus Platypus.PltDictionaryInstance false none implementations Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltNativeAlgorithm class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltNativeAlgorithm class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltNativeAlgorithm class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltNativeAlgorithm <ISO10303-11-EXPRESS> ENTITY native_algorithm SUBTYPE OF ( dictionary_instance ); implementations : LIST OF native_code; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltNativeAlgorithm platypus-generated-initializing stepInitialize super stepInitialize. implementations := OrderedCollection new. Platypus.PltNativeAlgorithm platypus-generated-classifying isPltNativeAlgorithm ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltNativeAlgorithm ^ false Platypus.PltNativeAlgorithm platypus-generated-visiting accept: aVisitor ^ aVisitor acceptNativeAlgorithm: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptNativeAlgorithm: e "my subclasses have to redefine it" Platypus.PltNativeAlgorithm platypus-generated-copying nativeAlgorithmCopyTo:another another fastSetImplementations: (self implementations). Platypus.PltNativeAlgorithm platypus-generated-copying pltLocalCopyTo: another self nativeAlgorithmCopyTo:another Platypus.PltNativeAlgorithm platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self nativeAlgorithmCopyTo: another. Platypus.PltNativeAlgorithm platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltNativeAlgorithm platypus-generated-group-accessing nativeAlgorithmFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setImplementations:valuesloc removeFirst. ^ valuesloc Platypus.PltNativeAlgorithm platypus-generated-group-accessing nativeAlgorithmToValues:values values add: (self implementations). ^ values Platypus.PltNativeAlgorithm platypus-generated-group-accessing toValues:values ^ self nativeAlgorithmToValues: (super toValues: values) Platypus.PltNativeAlgorithm platypus-generated-group-accessing fromValues:values ^ self nativeAlgorithmFromValues: (super fromValues: values) Platypus.PltNativeAlgorithm platypus-generated-group-accessing localFromValues: values ^ self nativeAlgorithmFromValues:values Platypus.PltNativeAlgorithm platypus-generated-group-accessing localToValues: values ^ self nativeAlgorithmToValues:values Platypus.PltNativeAlgorithm class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltNativeAlgorithm class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltNativeAlgorithm platypus-generated-accessing implementations ^implementations Platypus.PltNativeAlgorithm platypus-generated-set-accessing setImplementations:aListOfPltNativeCode self implementations:aListOfPltNativeCode Platypus.PltNativeAlgorithm platypus-generated-accessing implementations:aListOfPltNativeCode implementations := aListOfPltNativeCode ifNil: [OrderedCollection new] ifNotNil: [aListOfPltNativeCode as: OrderedCollection] Platypus.PltNativeAlgorithm platypus-generated-fast-set-accessing fastSetImplementations:aListOfPltNativeCode implementations := aListOfPltNativeCode Platypus.PltNativeAlgorithm platypus-generated-with-context-accessing implementationsUsingContext:aContext ^ self implementations Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltProcedureDeclaration Platypus Platypus.PltAlgorithmDeclaration false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltProcedureDeclaration class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltProcedureDeclaration class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltProcedureDeclaration class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltProcedureDeclaration <ISO10303-11-EXPRESS> ENTITY procedure_declaration SUBTYPE OF ( algorithm_declaration ); DERIVE accepted : entity_instance := SELF.accept_procedure_declaration; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltProcedureDeclaration platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltProcedureDeclaration platypus-generated-classifying isPltProcedureDeclaration ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltProcedureDeclaration ^ false Platypus.PltProcedureDeclaration platypus-generated-visiting accept: aVisitor ^ aVisitor acceptProcedureDeclaration: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptProcedureDeclaration: e "my subclasses have to redefine it" Platypus.PltProcedureDeclaration platypus-generated-copying procedureDeclarationCopyTo:another Platypus.PltProcedureDeclaration platypus-generated-copying pltLocalCopyTo: another self procedureDeclarationCopyTo:another Platypus.PltProcedureDeclaration platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self procedureDeclarationCopyTo: another. Platypus.PltProcedureDeclaration platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltProcedureDeclaration platypus-generated-group-accessing procedureDeclarationFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltProcedureDeclaration platypus-generated-group-accessing procedureDeclarationToValues:values ^ values Platypus.PltProcedureDeclaration platypus-generated-group-accessing toValues:values ^ self procedureDeclarationToValues: (super toValues: values) Platypus.PltProcedureDeclaration platypus-generated-group-accessing fromValues:values ^ self procedureDeclarationFromValues: (super fromValues: values) Platypus.PltProcedureDeclaration platypus-generated-group-accessing localFromValues: values ^ self procedureDeclarationFromValues:values Platypus.PltProcedureDeclaration platypus-generated-group-accessing localToValues: values ^ self procedureDeclarationToValues:values Platypus.PltProcedureDeclaration class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltProcedureDeclaration class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltProcedureDeclaration platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltProcedureDeclaration platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptProcedureDeclarationUsingContext: aContext) Platypus.PltProcedureDeclaration platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltFunctionDeclaration Platypus Platypus.PltAlgorithmDeclaration false none returnType Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltFunctionDeclaration class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltFunctionDeclaration class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltFunctionDeclaration class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltFunctionDeclaration <ISO10303-11-EXPRESS> ENTITY function_declaration SUBTYPE OF ( algorithm_declaration ); return_type : parameter_type; DERIVE accepted : entity_instance := SELF.accept_function_declaration; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltFunctionDeclaration platypus-generated-initializing stepInitialize super stepInitialize. returnType := nil. Platypus.PltFunctionDeclaration platypus-generated-classifying isPltFunctionDeclaration ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltFunctionDeclaration ^ false Platypus.PltFunctionDeclaration platypus-generated-visiting accept: aVisitor ^ aVisitor acceptFunctionDeclaration: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptFunctionDeclaration: e "my subclasses have to redefine it" Platypus.PltFunctionDeclaration platypus-generated-copying functionDeclarationCopyTo:another another fastSetReturnType: (self returnType). Platypus.PltFunctionDeclaration platypus-generated-copying pltLocalCopyTo: another self functionDeclarationCopyTo:another Platypus.PltFunctionDeclaration platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self functionDeclarationCopyTo: another. Platypus.PltFunctionDeclaration platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltFunctionDeclaration platypus-generated-group-accessing functionDeclarationFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setReturnType:valuesloc removeFirst. ^ valuesloc Platypus.PltFunctionDeclaration platypus-generated-group-accessing functionDeclarationToValues:values values add: (self returnType). ^ values Platypus.PltFunctionDeclaration platypus-generated-group-accessing toValues:values ^ self functionDeclarationToValues: (super toValues: values) Platypus.PltFunctionDeclaration platypus-generated-group-accessing fromValues:values ^ self functionDeclarationFromValues: (super fromValues: values) Platypus.PltFunctionDeclaration platypus-generated-group-accessing localFromValues: values ^ self functionDeclarationFromValues:values Platypus.PltFunctionDeclaration platypus-generated-group-accessing localToValues: values ^ self functionDeclarationToValues:values Platypus.PltFunctionDeclaration class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltFunctionDeclaration class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltFunctionDeclaration platypus-generated-accessing returnType ^returnType Platypus.PltFunctionDeclaration platypus-generated-set-accessing setReturnType:aPltParameterType self returnType:aPltParameterType Platypus.PltFunctionDeclaration platypus-generated-accessing returnType:aPltParameterType returnType := aPltParameterType Platypus.PltFunctionDeclaration platypus-generated-fast-set-accessing fastSetReturnType:aPltParameterType returnType := aPltParameterType Platypus.PltFunctionDeclaration platypus-generated-with-context-accessing returnTypeUsingContext:aContext ^ self returnType Platypus.PltFunctionDeclaration platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltFunctionDeclaration platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptFunctionDeclarationUsingContext: aContext) Platypus.PltFunctionDeclaration platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltBound Platypus Platypus.PltDictionaryInstance false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltBound class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltBound class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltBound class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltBound <ISO10303-11-EXPRESS> ENTITY bound ABSTRACT SUPERTYPE OF ( ONEOF ( integer_bound, population_dependent_bound ) ) SUBTYPE OF ( dictionary_instance ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltBound platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltBound platypus-generated-classifying isPltBound ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltBound ^ false Platypus.PltBound platypus-generated-visiting accept: aVisitor ^ aVisitor acceptBound: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptBound: e "my subclasses have to redefine it" Platypus.PltBound platypus-generated-copying boundCopyTo:another Platypus.PltBound platypus-generated-copying pltLocalCopyTo: another self boundCopyTo:another Platypus.PltBound platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self boundCopyTo: another. Platypus.PltBound platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltBound platypus-generated-group-accessing boundFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltBound platypus-generated-group-accessing boundToValues:values ^ values Platypus.PltBound platypus-generated-group-accessing toValues:values ^ self boundToValues: (super toValues: values) Platypus.PltBound platypus-generated-group-accessing fromValues:values ^ self boundFromValues: (super fromValues: values) Platypus.PltBound platypus-generated-group-accessing localFromValues: values ^ self boundFromValues:values Platypus.PltBound platypus-generated-group-accessing localToValues: values ^ self boundToValues:values Platypus.PltBound class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltBound class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltIntegerBound Platypus Platypus.PltBound false none boundValue Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltIntegerBound class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltIntegerBound class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltIntegerBound class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltIntegerBound <ISO10303-11-EXPRESS> ENTITY integer_bound SUBTYPE OF ( bound ); bound_value : INTEGER; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltIntegerBound platypus-generated-initializing stepInitialize super stepInitialize. boundValue := 0. Platypus.PltIntegerBound platypus-generated-classifying isPltIntegerBound ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltIntegerBound ^ false Platypus.PltIntegerBound platypus-generated-visiting accept: aVisitor ^ aVisitor acceptIntegerBound: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptIntegerBound: e "my subclasses have to redefine it" Platypus.PltIntegerBound platypus-generated-copying integerBoundCopyTo:another another fastSetBoundValue: (self boundValue). Platypus.PltIntegerBound platypus-generated-copying pltLocalCopyTo: another self integerBoundCopyTo:another Platypus.PltIntegerBound platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self integerBoundCopyTo: another. Platypus.PltIntegerBound platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltIntegerBound platypus-generated-group-accessing integerBoundFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setBoundValue:valuesloc removeFirst. ^ valuesloc Platypus.PltIntegerBound platypus-generated-group-accessing integerBoundToValues:values values add: (self boundValue). ^ values Platypus.PltIntegerBound platypus-generated-group-accessing toValues:values ^ self integerBoundToValues: (super toValues: values) Platypus.PltIntegerBound platypus-generated-group-accessing fromValues:values ^ self integerBoundFromValues: (super fromValues: values) Platypus.PltIntegerBound platypus-generated-group-accessing localFromValues: values ^ self integerBoundFromValues:values Platypus.PltIntegerBound platypus-generated-group-accessing localToValues: values ^ self integerBoundToValues:values Platypus.PltIntegerBound class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltIntegerBound class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltIntegerBound platypus-generated-accessing boundValue ^boundValue Platypus.PltIntegerBound platypus-generated-set-accessing setBoundValue:anInteger self boundValue:anInteger Platypus.PltIntegerBound platypus-generated-accessing boundValue:anInteger boundValue := anInteger Platypus.PltIntegerBound platypus-generated-fast-set-accessing fastSetBoundValue:anInteger boundValue := anInteger Platypus.PltIntegerBound platypus-generated-with-context-accessing boundValueUsingContext:aContext ^ self boundValue Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltPopulationDependentBound Platypus Platypus.PltBound false none boundValue Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltPopulationDependentBound class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltPopulationDependentBound class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltPopulationDependentBound class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltPopulationDependentBound <ISO10303-11-EXPRESS> ENTITY population_dependent_bound SUBTYPE OF ( bound ); bound_value : expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltPopulationDependentBound platypus-generated-initializing stepInitialize super stepInitialize. boundValue := nil. Platypus.PltPopulationDependentBound platypus-generated-classifying isPltPopulationDependentBound ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltPopulationDependentBound ^ false Platypus.PltPopulationDependentBound platypus-generated-visiting accept: aVisitor ^ aVisitor acceptPopulationDependentBound: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptPopulationDependentBound: e "my subclasses have to redefine it" Platypus.PltPopulationDependentBound platypus-generated-copying populationDependentBoundCopyTo:another another fastSetBoundValue: (self boundValue). Platypus.PltPopulationDependentBound platypus-generated-copying pltLocalCopyTo: another self populationDependentBoundCopyTo:another Platypus.PltPopulationDependentBound platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self populationDependentBoundCopyTo: another. Platypus.PltPopulationDependentBound platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltPopulationDependentBound platypus-generated-group-accessing populationDependentBoundFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setBoundValue:valuesloc removeFirst. ^ valuesloc Platypus.PltPopulationDependentBound platypus-generated-group-accessing populationDependentBoundToValues:values values add: (self boundValue). ^ values Platypus.PltPopulationDependentBound platypus-generated-group-accessing toValues:values ^ self populationDependentBoundToValues: (super toValues: values) Platypus.PltPopulationDependentBound platypus-generated-group-accessing fromValues:values ^ self populationDependentBoundFromValues: (super fromValues: values) Platypus.PltPopulationDependentBound platypus-generated-group-accessing localFromValues: values ^ self populationDependentBoundFromValues:values Platypus.PltPopulationDependentBound platypus-generated-group-accessing localToValues: values ^ self populationDependentBoundToValues:values Platypus.PltPopulationDependentBound class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltPopulationDependentBound class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltPopulationDependentBound platypus-generated-accessing boundValue ^boundValue Platypus.PltPopulationDependentBound platypus-generated-set-accessing setBoundValue:aPltExpression self boundValue:aPltExpression Platypus.PltPopulationDependentBound platypus-generated-accessing boundValue:aPltExpression boundValue := aPltExpression Platypus.PltPopulationDependentBound platypus-generated-fast-set-accessing fastSetBoundValue:aPltExpression boundValue := aPltExpression Platypus.PltPopulationDependentBound platypus-generated-with-context-accessing boundValueUsingContext:aContext ^ self boundValue Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltEnumerationType Platypus Platypus.PltDictionaryInstance false none elements Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltEnumerationType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltEnumerationType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltEnumerationType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltEnumerationType <ISO10303-11-EXPRESS> ENTITY enumeration_type SUBTYPE OF ( dictionary_instance ); elements : LIST [ 1 : ? ] OF UNIQUE STRING; SELF\entity_instance.owner : defined_type; DERIVE accepted : entity_instance := SELF.accept_enumeration_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltEnumerationType platypus-generated-initializing stepInitialize super stepInitialize. elements := OrderedCollection new. owner := nil. Platypus.PltEnumerationType platypus-generated-classifying isPltEnumerationType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltEnumerationType ^ false Platypus.PltEnumerationType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptEnumerationType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptEnumerationType: e "my subclasses have to redefine it" Platypus.PltEnumerationType platypus-generated-copying enumerationTypeCopyTo:another another fastSetElements: (self elements). another fastSetOwner: (self owner). Platypus.PltEnumerationType platypus-generated-copying pltLocalCopyTo: another self enumerationTypeCopyTo:another Platypus.PltEnumerationType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self enumerationTypeCopyTo: another. Platypus.PltEnumerationType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltEnumerationType platypus-generated-group-accessing enumerationTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setElements:valuesloc removeFirst. self setOwner:valuesloc removeFirst. ^ valuesloc Platypus.PltEnumerationType platypus-generated-group-accessing enumerationTypeToValues:values values add: (self elements). values add: (self owner). ^ values Platypus.PltEnumerationType platypus-generated-group-accessing toValues:values ^ self enumerationTypeToValues: (super toValues: values) Platypus.PltEnumerationType platypus-generated-group-accessing fromValues:values ^ self enumerationTypeFromValues: (super fromValues: values) Platypus.PltEnumerationType platypus-generated-group-accessing localFromValues: values ^ self enumerationTypeFromValues:values Platypus.PltEnumerationType platypus-generated-group-accessing localToValues: values ^ self enumerationTypeToValues:values Platypus.PltEnumerationType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltEnumerationType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltEnumerationType platypus-generated-accessing elements ^elements Platypus.PltEnumerationType platypus-generated-set-accessing setElements:aListOfString self elements:aListOfString Platypus.PltEnumerationType platypus-generated-accessing elements:aListOfString elements := aListOfString ifNil: [OrderedCollection new] ifNotNil: [aListOfString as: OrderedCollection] Platypus.PltEnumerationType platypus-generated-fast-set-accessing fastSetElements:aListOfString elements := aListOfString Platypus.PltEnumerationType platypus-generated-with-context-accessing elementsUsingContext:aContext ^ self elements Platypus.PltEnumerationType platypus-generated-accessing owner ^owner Platypus.PltEnumerationType platypus-generated-set-accessing setOwner:aPltDefinedType self owner:aPltDefinedType Platypus.PltEnumerationType platypus-generated-accessing owner:aPltDefinedType owner := aPltDefinedType Platypus.PltEnumerationType platypus-generated-fast-set-accessing fastSetOwner:aPltDefinedType owner := aPltDefinedType Platypus.PltEnumerationType platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus.PltEnumerationType platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltEnumerationType platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptEnumerationTypeUsingContext: aContext) Platypus.PltEnumerationType platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltNamedType Platypus Platypus.PltDictionaryInstance false none identifiersCache whereRules name Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltNamedType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltNamedType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltNamedType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltNamedType <ISO10303-11-EXPRESS> ENTITY named_type ABSTRACT SUPERTYPE OF ( ONEOF ( entity_definition, defined_type ) ) SUBTYPE OF ( dictionary_instance ); name : STRING; where_rules : LIST [ 0 : ? ] OF where_rule; SELF\entity_instance.owner : context_definition; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltNamedType platypus-generated-initializing stepInitialize super stepInitialize. name := ''. whereRules := OrderedCollection new. owner := nil. Platypus.PltNamedType platypus-generated-classifying isPltNamedType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltNamedType ^ false Platypus.PltNamedType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptNamedType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptNamedType: e "my subclasses have to redefine it" Platypus.PltNamedType platypus-generated-copying namedTypeCopyTo:another another fastSetName: (self name). another fastSetWhereRules: (self whereRules). another fastSetOwner: (self owner). Platypus.PltNamedType platypus-generated-copying pltLocalCopyTo: another self namedTypeCopyTo:another Platypus.PltNamedType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self namedTypeCopyTo: another. Platypus.PltNamedType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltNamedType platypus-generated-group-accessing namedTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setName:valuesloc removeFirst. self setWhereRules:valuesloc removeFirst. self setOwner:valuesloc removeFirst. ^ valuesloc Platypus.PltNamedType platypus-generated-group-accessing namedTypeToValues:values values add: (self name). values add: (self whereRules). values add: (self owner). ^ values Platypus.PltNamedType platypus-generated-group-accessing toValues:values ^ self namedTypeToValues: (super toValues: values) Platypus.PltNamedType platypus-generated-group-accessing fromValues:values ^ self namedTypeFromValues: (super fromValues: values) Platypus.PltNamedType platypus-generated-group-accessing localFromValues: values ^ self namedTypeFromValues:values Platypus.PltNamedType platypus-generated-group-accessing localToValues: values ^ self namedTypeToValues:values Platypus.PltNamedType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltNamedType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltNamedType platypus-generated-accessing name ^name Platypus.PltNamedType platypus-generated-set-accessing setName:aString self name:aString Platypus.PltNamedType platypus-generated-accessing name:aString name := aString Platypus.PltNamedType platypus-generated-fast-set-accessing fastSetName:aString name := aString Platypus.PltNamedType platypus-generated-with-context-accessing nameUsingContext:aContext ^ self name Platypus.PltNamedType platypus-generated-accessing whereRules ^whereRules Platypus.PltNamedType platypus-generated-set-accessing setWhereRules:aListOfPltWhereRule self whereRules:aListOfPltWhereRule Platypus.PltNamedType platypus-generated-accessing whereRules:aListOfPltWhereRule whereRules := aListOfPltWhereRule ifNil: [OrderedCollection new] ifNotNil: [aListOfPltWhereRule as: OrderedCollection] Platypus.PltNamedType platypus-generated-fast-set-accessing fastSetWhereRules:aListOfPltWhereRule whereRules := aListOfPltWhereRule Platypus.PltNamedType platypus-generated-with-context-accessing whereRulesUsingContext:aContext ^ self whereRules Platypus.PltNamedType platypus-generated-accessing owner ^owner Platypus.PltNamedType platypus-generated-set-accessing setOwner:aPltContextDefinition self owner:aPltContextDefinition Platypus.PltNamedType platypus-generated-accessing owner:aPltContextDefinition owner := aPltContextDefinition Platypus.PltNamedType platypus-generated-fast-set-accessing fastSetOwner:aPltContextDefinition owner := aPltContextDefinition Platypus.PltNamedType platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltDictionaryInstanceReference Platypus Platypus.PltDictionaryInstance false none name ref Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltDictionaryInstanceReference class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltDictionaryInstanceReference class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltDictionaryInstanceReference class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltDictionaryInstanceReference <ISO10303-11-EXPRESS> ENTITY dictionary_instance_reference SUBTYPE OF ( dictionary_instance ); ref : dictionary_instance; name : STRING; DERIVE SELF\dictionary_instance.handled : dictionary_instance := SELF.ref; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltDictionaryInstanceReference platypus-generated-initializing stepInitialize super stepInitialize. ref := nil. name := ''. Platypus.PltDictionaryInstanceReference platypus-generated-classifying isPltDictionaryInstanceReference ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltDictionaryInstanceReference ^ false Platypus.PltDictionaryInstanceReference platypus-generated-visiting accept: aVisitor ^ aVisitor acceptDictionaryInstanceReference: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptDictionaryInstanceReference: e "my subclasses have to redefine it" Platypus.PltDictionaryInstanceReference platypus-generated-copying dictionaryInstanceReferenceCopyTo:another another fastSetRef: (self ref). another fastSetName: (self name). Platypus.PltDictionaryInstanceReference platypus-generated-copying pltLocalCopyTo: another self dictionaryInstanceReferenceCopyTo:another Platypus.PltDictionaryInstanceReference platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self dictionaryInstanceReferenceCopyTo: another. Platypus.PltDictionaryInstanceReference platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltDictionaryInstanceReference platypus-generated-group-accessing dictionaryInstanceReferenceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setRef:valuesloc removeFirst. self setName:valuesloc removeFirst. ^ valuesloc Platypus.PltDictionaryInstanceReference platypus-generated-group-accessing dictionaryInstanceReferenceToValues:values values add: (self ref). values add: (self name). ^ values Platypus.PltDictionaryInstanceReference platypus-generated-group-accessing toValues:values ^ self dictionaryInstanceReferenceToValues: (super toValues: values) Platypus.PltDictionaryInstanceReference platypus-generated-group-accessing fromValues:values ^ self dictionaryInstanceReferenceFromValues: (super fromValues: values) Platypus.PltDictionaryInstanceReference platypus-generated-group-accessing localFromValues: values ^ self dictionaryInstanceReferenceFromValues:values Platypus.PltDictionaryInstanceReference platypus-generated-group-accessing localToValues: values ^ self dictionaryInstanceReferenceToValues:values Platypus.PltDictionaryInstanceReference class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltDictionaryInstanceReference class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltDictionaryInstanceReference platypus-generated-accessing ref ^ref Platypus.PltDictionaryInstanceReference platypus-generated-set-accessing setRef:aPltDictionaryInstance self ref:aPltDictionaryInstance Platypus.PltDictionaryInstanceReference platypus-generated-accessing ref:aPltDictionaryInstance ref := aPltDictionaryInstance Platypus.PltDictionaryInstanceReference platypus-generated-fast-set-accessing fastSetRef:aPltDictionaryInstance ref := aPltDictionaryInstance Platypus.PltDictionaryInstanceReference platypus-generated-with-context-accessing refUsingContext:aContext ^ self ref Platypus.PltDictionaryInstanceReference platypus-generated-accessing name ^name Platypus.PltDictionaryInstanceReference platypus-generated-set-accessing setName:aString self name:aString Platypus.PltDictionaryInstanceReference platypus-generated-accessing name:aString name := aString Platypus.PltDictionaryInstanceReference platypus-generated-fast-set-accessing fastSetName:aString name := aString Platypus.PltDictionaryInstanceReference platypus-generated-with-context-accessing nameUsingContext:aContext ^ self name Platypus.PltDictionaryInstanceReference platypus-generated-deriving handledUsingContext:aContext ^ self handledUsingContext: aContext receiver: self Platypus.PltDictionaryInstanceReference platypus-generated-deriving handledUsingContext: aContext receiver: aReceiver ^( aReceiver refUsingContext: aContext) Platypus.PltDictionaryInstanceReference platypus-generated-deriving handled ^ self handledUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltNamedTypeReference Platypus Platypus.PltDictionaryInstanceReference false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltNamedTypeReference class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltNamedTypeReference class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltNamedTypeReference class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltNamedTypeReference <ISO10303-11-EXPRESS> ENTITY named_type_reference SUBTYPE OF ( dictionary_instance_reference ); SELF\dictionary_instance_reference.ref : named_type; DERIVE accepted : entity_instance := SELF.accept_named_type_reference; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltNamedTypeReference platypus-generated-initializing stepInitialize super stepInitialize. ref := nil. Platypus.PltNamedTypeReference platypus-generated-classifying isPltNamedTypeReference ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltNamedTypeReference ^ false Platypus.PltNamedTypeReference platypus-generated-visiting accept: aVisitor ^ aVisitor acceptNamedTypeReference: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptNamedTypeReference: e "my subclasses have to redefine it" Platypus.PltNamedTypeReference platypus-generated-copying namedTypeReferenceCopyTo:another another fastSetRef: (self ref). Platypus.PltNamedTypeReference platypus-generated-copying pltLocalCopyTo: another self namedTypeReferenceCopyTo:another Platypus.PltNamedTypeReference platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self namedTypeReferenceCopyTo: another. Platypus.PltNamedTypeReference platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltNamedTypeReference platypus-generated-group-accessing namedTypeReferenceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setRef:valuesloc removeFirst. ^ valuesloc Platypus.PltNamedTypeReference platypus-generated-group-accessing namedTypeReferenceToValues:values values add: (self ref). ^ values Platypus.PltNamedTypeReference platypus-generated-group-accessing toValues:values ^ self namedTypeReferenceToValues: (super toValues: values) Platypus.PltNamedTypeReference platypus-generated-group-accessing fromValues:values ^ self namedTypeReferenceFromValues: (super fromValues: values) Platypus.PltNamedTypeReference platypus-generated-group-accessing localFromValues: values ^ self namedTypeReferenceFromValues:values Platypus.PltNamedTypeReference platypus-generated-group-accessing localToValues: values ^ self namedTypeReferenceToValues:values Platypus.PltNamedTypeReference class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltNamedTypeReference class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltNamedTypeReference platypus-generated-accessing ref ^ref Platypus.PltNamedTypeReference platypus-generated-set-accessing setRef:aPltNamedType self ref:aPltNamedType Platypus.PltNamedTypeReference platypus-generated-accessing ref:aPltNamedType ref := aPltNamedType Platypus.PltNamedTypeReference platypus-generated-fast-set-accessing fastSetRef:aPltNamedType ref := aPltNamedType Platypus.PltNamedTypeReference platypus-generated-with-context-accessing refUsingContext:aContext ^ self ref Platypus.PltNamedTypeReference platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltNamedTypeReference platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptNamedTypeReferenceUsingContext: aContext) Platypus.PltNamedTypeReference platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAttributeReference Platypus Platypus.PltDictionaryInstanceReference false none entityRef Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltAttributeReference class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAttributeReference class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAttributeReference class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAttributeReference <ISO10303-11-EXPRESS> ENTITY attribute_reference SUBTYPE OF ( dictionary_instance_reference ); SELF\dictionary_instance_reference.ref : attribute; entity_ref : entity_definition_reference; DERIVE SELF\named_type_reference.accepted : entity_instance := SELF.accept_attribute_reference; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAttributeReference platypus-generated-initializing stepInitialize super stepInitialize. ref := nil. entityRef := nil. Platypus.PltAttributeReference platypus-generated-classifying isPltAttributeReference ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltAttributeReference ^ false Platypus.PltAttributeReference platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAttributeReference: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptAttributeReference: e "my subclasses have to redefine it" Platypus.PltAttributeReference platypus-generated-copying attributeReferenceCopyTo:another another fastSetRef: (self ref). another fastSetEntityRef: (self entityRef). Platypus.PltAttributeReference platypus-generated-copying pltLocalCopyTo: another self attributeReferenceCopyTo:another Platypus.PltAttributeReference platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self attributeReferenceCopyTo: another. Platypus.PltAttributeReference platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAttributeReference platypus-generated-group-accessing attributeReferenceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setRef:valuesloc removeFirst. self setEntityRef:valuesloc removeFirst. ^ valuesloc Platypus.PltAttributeReference platypus-generated-group-accessing attributeReferenceToValues:values values add: (self ref). values add: (self entityRef). ^ values Platypus.PltAttributeReference platypus-generated-group-accessing toValues:values ^ self attributeReferenceToValues: (super toValues: values) Platypus.PltAttributeReference platypus-generated-group-accessing fromValues:values ^ self attributeReferenceFromValues: (super fromValues: values) Platypus.PltAttributeReference platypus-generated-group-accessing localFromValues: values ^ self attributeReferenceFromValues:values Platypus.PltAttributeReference platypus-generated-group-accessing localToValues: values ^ self attributeReferenceToValues:values Platypus.PltAttributeReference class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltAttributeReference class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAttributeReference platypus-generated-accessing ref ^ref Platypus.PltAttributeReference platypus-generated-set-accessing setRef:aPltAttribute self ref:aPltAttribute Platypus.PltAttributeReference platypus-generated-accessing ref:aPltAttribute ref := aPltAttribute Platypus.PltAttributeReference platypus-generated-fast-set-accessing fastSetRef:aPltAttribute ref := aPltAttribute Platypus.PltAttributeReference platypus-generated-with-context-accessing refUsingContext:aContext ^ self ref Platypus.PltAttributeReference platypus-generated-accessing entityRef ^entityRef Platypus.PltAttributeReference platypus-generated-set-accessing setEntityRef:aPltEntityDefinitionReference self entityRef:aPltEntityDefinitionReference Platypus.PltAttributeReference platypus-generated-accessing entityRef:aPltEntityDefinitionReference entityRef := aPltEntityDefinitionReference Platypus.PltAttributeReference platypus-generated-fast-set-accessing fastSetEntityRef:aPltEntityDefinitionReference entityRef := aPltEntityDefinitionReference Platypus.PltAttributeReference platypus-generated-with-context-accessing entityRefUsingContext:aContext ^ self entityRef Platypus.PltAttributeReference platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltAttributeReference platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptAttributeReferenceUsingContext: aContext) Platypus.PltAttributeReference platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltEntityDefinitionReference Platypus Platypus.PltNamedTypeReference false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltEntityDefinitionReference class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltEntityDefinitionReference class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltEntityDefinitionReference class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltEntityDefinitionReference <ISO10303-11-EXPRESS> ENTITY entity_definition_reference SUBTYPE OF ( named_type_reference ); SELF\named_type_reference.ref : entity_definition; DERIVE SELF\named_type_reference.accepted : entity_instance := SELF.accept_entity_definition_reference; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltEntityDefinitionReference platypus-generated-initializing stepInitialize super stepInitialize. ref := nil. Platypus.PltEntityDefinitionReference platypus-generated-classifying isPltEntityDefinitionReference ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltEntityDefinitionReference ^ false Platypus.PltEntityDefinitionReference platypus-generated-visiting accept: aVisitor ^ aVisitor acceptEntityDefinitionReference: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptEntityDefinitionReference: e "my subclasses have to redefine it" Platypus.PltEntityDefinitionReference platypus-generated-copying entityDefinitionReferenceCopyTo:another another fastSetRef: (self ref). Platypus.PltEntityDefinitionReference platypus-generated-copying pltLocalCopyTo: another self entityDefinitionReferenceCopyTo:another Platypus.PltEntityDefinitionReference platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self entityDefinitionReferenceCopyTo: another. Platypus.PltEntityDefinitionReference platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltEntityDefinitionReference platypus-generated-group-accessing entityDefinitionReferenceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setRef:valuesloc removeFirst. ^ valuesloc Platypus.PltEntityDefinitionReference platypus-generated-group-accessing entityDefinitionReferenceToValues:values values add: (self ref). ^ values Platypus.PltEntityDefinitionReference platypus-generated-group-accessing toValues:values ^ self entityDefinitionReferenceToValues: (super toValues: values) Platypus.PltEntityDefinitionReference platypus-generated-group-accessing fromValues:values ^ self entityDefinitionReferenceFromValues: (super fromValues: values) Platypus.PltEntityDefinitionReference platypus-generated-group-accessing localFromValues: values ^ self entityDefinitionReferenceFromValues:values Platypus.PltEntityDefinitionReference platypus-generated-group-accessing localToValues: values ^ self entityDefinitionReferenceToValues:values Platypus.PltEntityDefinitionReference class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltEntityDefinitionReference class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltEntityDefinitionReference platypus-generated-accessing ref ^ref Platypus.PltEntityDefinitionReference platypus-generated-set-accessing setRef:aPltEntityDefinition self ref:aPltEntityDefinition Platypus.PltEntityDefinitionReference platypus-generated-accessing ref:aPltEntityDefinition ref := aPltEntityDefinition Platypus.PltEntityDefinitionReference platypus-generated-fast-set-accessing fastSetRef:aPltEntityDefinition ref := aPltEntityDefinition Platypus.PltEntityDefinitionReference platypus-generated-with-context-accessing refUsingContext:aContext ^ self ref Platypus.PltEntityDefinitionReference platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltEntityDefinitionReference platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptEntityDefinitionReferenceUsingContext: aContext) Platypus.PltEntityDefinitionReference platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltDefinedTypeReference Platypus Platypus.PltNamedTypeReference false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltDefinedTypeReference class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltDefinedTypeReference class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltDefinedTypeReference class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltDefinedTypeReference <ISO10303-11-EXPRESS> ENTITY defined_type_reference SUBTYPE OF ( named_type_reference ); SELF\named_type_reference.ref : defined_type; DERIVE SELF\named_type_reference.accepted : entity_instance := SELF.accept_defined_type_reference; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltDefinedTypeReference platypus-generated-initializing stepInitialize super stepInitialize. ref := nil. Platypus.PltDefinedTypeReference platypus-generated-classifying isPltDefinedTypeReference ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltDefinedTypeReference ^ false Platypus.PltDefinedTypeReference platypus-generated-visiting accept: aVisitor ^ aVisitor acceptDefinedTypeReference: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptDefinedTypeReference: e "my subclasses have to redefine it" Platypus.PltDefinedTypeReference platypus-generated-copying definedTypeReferenceCopyTo:another another fastSetRef: (self ref). Platypus.PltDefinedTypeReference platypus-generated-copying pltLocalCopyTo: another self definedTypeReferenceCopyTo:another Platypus.PltDefinedTypeReference platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self definedTypeReferenceCopyTo: another. Platypus.PltDefinedTypeReference platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltDefinedTypeReference platypus-generated-group-accessing definedTypeReferenceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setRef:valuesloc removeFirst. ^ valuesloc Platypus.PltDefinedTypeReference platypus-generated-group-accessing definedTypeReferenceToValues:values values add: (self ref). ^ values Platypus.PltDefinedTypeReference platypus-generated-group-accessing toValues:values ^ self definedTypeReferenceToValues: (super toValues: values) Platypus.PltDefinedTypeReference platypus-generated-group-accessing fromValues:values ^ self definedTypeReferenceFromValues: (super fromValues: values) Platypus.PltDefinedTypeReference platypus-generated-group-accessing localFromValues: values ^ self definedTypeReferenceFromValues:values Platypus.PltDefinedTypeReference platypus-generated-group-accessing localToValues: values ^ self definedTypeReferenceToValues:values Platypus.PltDefinedTypeReference class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltDefinedTypeReference class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltDefinedTypeReference platypus-generated-accessing ref ^ref Platypus.PltDefinedTypeReference platypus-generated-set-accessing setRef:aPltDefinedType self ref:aPltDefinedType Platypus.PltDefinedTypeReference platypus-generated-accessing ref:aPltDefinedType ref := aPltDefinedType Platypus.PltDefinedTypeReference platypus-generated-fast-set-accessing fastSetRef:aPltDefinedType ref := aPltDefinedType Platypus.PltDefinedTypeReference platypus-generated-with-context-accessing refUsingContext:aContext ^ self ref Platypus.PltDefinedTypeReference platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltDefinedTypeReference platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptDefinedTypeReferenceUsingContext: aContext) Platypus.PltDefinedTypeReference platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltWhereRule Platypus Platypus.PltDictionaryInstance false none whereValue label Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltWhereRule class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltWhereRule class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltWhereRule class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltWhereRule <ISO10303-11-EXPRESS> ENTITY where_rule SUBTYPE OF ( dictionary_instance ); label : OPTIONAL STRING; SELF\entity_instance.owner : type_or_rule; where_value : expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltWhereRule platypus-generated-initializing stepInitialize super stepInitialize. label := nil. owner := nil. whereValue := nil. Platypus.PltWhereRule platypus-generated-classifying isPltWhereRule ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltWhereRule ^ false Platypus.PltWhereRule platypus-generated-visiting accept: aVisitor ^ aVisitor acceptWhereRule: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptWhereRule: e "my subclasses have to redefine it" Platypus.PltWhereRule platypus-generated-copying whereRuleCopyTo:another another fastSetLabel: (self label). another fastSetOwner: (self owner). another fastSetWhereValue: (self whereValue). Platypus.PltWhereRule platypus-generated-copying pltLocalCopyTo: another self whereRuleCopyTo:another Platypus.PltWhereRule platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self whereRuleCopyTo: another. Platypus.PltWhereRule platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltWhereRule platypus-generated-group-accessing whereRuleFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setLabel:valuesloc removeFirst. self setOwner:valuesloc removeFirst. self setWhereValue:valuesloc removeFirst. ^ valuesloc Platypus.PltWhereRule platypus-generated-group-accessing whereRuleToValues:values values add: (self label). values add: (self owner). values add: (self whereValue). ^ values Platypus.PltWhereRule platypus-generated-group-accessing toValues:values ^ self whereRuleToValues: (super toValues: values) Platypus.PltWhereRule platypus-generated-group-accessing fromValues:values ^ self whereRuleFromValues: (super fromValues: values) Platypus.PltWhereRule platypus-generated-group-accessing localFromValues: values ^ self whereRuleFromValues:values Platypus.PltWhereRule platypus-generated-group-accessing localToValues: values ^ self whereRuleToValues:values Platypus.PltWhereRule class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltWhereRule class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltWhereRule platypus-generated-accessing label ^label Platypus.PltWhereRule platypus-generated-set-accessing setLabel:aString self label:aString Platypus.PltWhereRule platypus-generated-accessing label:aString label := aString Platypus.PltWhereRule platypus-generated-fast-set-accessing fastSetLabel:aString label := aString Platypus.PltWhereRule platypus-generated-with-context-accessing labelUsingContext:aContext ^ self label Platypus.PltWhereRule platypus-generated-accessing owner ^owner Platypus.PltWhereRule platypus-generated-set-accessing setOwner:aPltTypeOrRule self owner:aPltTypeOrRule Platypus.PltWhereRule platypus-generated-accessing owner:aPltTypeOrRule owner := aPltTypeOrRule Platypus.PltWhereRule platypus-generated-fast-set-accessing fastSetOwner:aPltTypeOrRule owner := aPltTypeOrRule Platypus.PltWhereRule platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus.PltWhereRule platypus-generated-accessing whereValue ^whereValue Platypus.PltWhereRule platypus-generated-set-accessing setWhereValue:aPltExpression self whereValue:aPltExpression Platypus.PltWhereRule platypus-generated-accessing whereValue:aPltExpression whereValue := aPltExpression Platypus.PltWhereRule platypus-generated-fast-set-accessing fastSetWhereValue:aPltExpression whereValue := aPltExpression Platypus.PltWhereRule platypus-generated-with-context-accessing whereValueUsingContext:aContext ^ self whereValue Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltSelectType Platypus Platypus.PltDictionaryInstance false none selections Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltSelectType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSelectType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSelectType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSelectType <ISO10303-11-EXPRESS> ENTITY select_type SUBTYPE OF ( dictionary_instance ); selections : LIST [ 1 : ? ] OF named_type_reference; SELF\entity_instance.owner : defined_type; DERIVE accepted : entity_instance := SELF.accept_select_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSelectType platypus-generated-initializing stepInitialize super stepInitialize. selections := OrderedCollection new. owner := nil. Platypus.PltSelectType platypus-generated-classifying isPltSelectType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltSelectType ^ false Platypus.PltSelectType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSelectType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptSelectType: e "my subclasses have to redefine it" Platypus.PltSelectType platypus-generated-copying selectTypeCopyTo:another another fastSetSelections: (self selections). another fastSetOwner: (self owner). Platypus.PltSelectType platypus-generated-copying pltLocalCopyTo: another self selectTypeCopyTo:another Platypus.PltSelectType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self selectTypeCopyTo: another. Platypus.PltSelectType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSelectType platypus-generated-group-accessing selectTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setSelections:valuesloc removeFirst. self setOwner:valuesloc removeFirst. ^ valuesloc Platypus.PltSelectType platypus-generated-group-accessing selectTypeToValues:values values add: (self selections). values add: (self owner). ^ values Platypus.PltSelectType platypus-generated-group-accessing toValues:values ^ self selectTypeToValues: (super toValues: values) Platypus.PltSelectType platypus-generated-group-accessing fromValues:values ^ self selectTypeFromValues: (super fromValues: values) Platypus.PltSelectType platypus-generated-group-accessing localFromValues: values ^ self selectTypeFromValues:values Platypus.PltSelectType platypus-generated-group-accessing localToValues: values ^ self selectTypeToValues:values Platypus.PltSelectType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltSelectType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltSelectType platypus-generated-accessing selections ^selections Platypus.PltSelectType platypus-generated-set-accessing setSelections:aListOfPltNamedTypeReference self selections:aListOfPltNamedTypeReference Platypus.PltSelectType platypus-generated-accessing selections:aListOfPltNamedTypeReference selections := aListOfPltNamedTypeReference ifNil: [OrderedCollection new] ifNotNil: [aListOfPltNamedTypeReference as: OrderedCollection] Platypus.PltSelectType platypus-generated-fast-set-accessing fastSetSelections:aListOfPltNamedTypeReference selections := aListOfPltNamedTypeReference Platypus.PltSelectType platypus-generated-with-context-accessing selectionsUsingContext:aContext ^ self selections Platypus.PltSelectType platypus-generated-accessing owner ^owner Platypus.PltSelectType platypus-generated-set-accessing setOwner:aPltDefinedType self owner:aPltDefinedType Platypus.PltSelectType platypus-generated-accessing owner:aPltDefinedType owner := aPltDefinedType Platypus.PltSelectType platypus-generated-fast-set-accessing fastSetOwner:aPltDefinedType owner := aPltDefinedType Platypus.PltSelectType platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus.PltSelectType platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltSelectType platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptSelectTypeUsingContext: aContext) Platypus.PltSelectType platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltDefinedType Platypus Platypus.PltNamedType false none domain Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltDefinedType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltDefinedType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltDefinedType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltDefinedType <ISO10303-11-EXPRESS> ENTITY defined_type SUBTYPE OF ( named_type ); domain : underlying_type; DERIVE accepted : entity_instance := SELF.accept_defined_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltDefinedType platypus-generated-initializing stepInitialize super stepInitialize. domain := nil. Platypus.PltDefinedType platypus-generated-classifying isPltDefinedType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltDefinedType ^ false Platypus.PltDefinedType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptDefinedType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptDefinedType: e "my subclasses have to redefine it" Platypus.PltDefinedType platypus-generated-copying definedTypeCopyTo:another another fastSetDomain: (self domain). Platypus.PltDefinedType platypus-generated-copying pltLocalCopyTo: another self definedTypeCopyTo:another Platypus.PltDefinedType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self definedTypeCopyTo: another. Platypus.PltDefinedType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltDefinedType platypus-generated-group-accessing definedTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setDomain:valuesloc removeFirst. ^ valuesloc Platypus.PltDefinedType platypus-generated-group-accessing definedTypeToValues:values values add: (self domain). ^ values Platypus.PltDefinedType platypus-generated-group-accessing toValues:values ^ self definedTypeToValues: (super toValues: values) Platypus.PltDefinedType platypus-generated-group-accessing fromValues:values ^ self definedTypeFromValues: (super fromValues: values) Platypus.PltDefinedType platypus-generated-group-accessing localFromValues: values ^ self definedTypeFromValues:values Platypus.PltDefinedType platypus-generated-group-accessing localToValues: values ^ self definedTypeToValues:values Platypus.PltDefinedType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltDefinedType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltDefinedType platypus-generated-accessing domain ^domain Platypus.PltDefinedType platypus-generated-set-accessing setDomain:aPltUnderlyingType self domain:aPltUnderlyingType Platypus.PltDefinedType platypus-generated-accessing domain:aPltUnderlyingType domain := aPltUnderlyingType Platypus.PltDefinedType platypus-generated-fast-set-accessing fastSetDomain:aPltUnderlyingType domain := aPltUnderlyingType Platypus.PltDefinedType platypus-generated-with-context-accessing domainUsingContext:aContext ^ self domain Platypus.PltDefinedType platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltDefinedType platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptDefinedTypeUsingContext: aContext) Platypus.PltDefinedType platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltEntityDefinition Platypus Platypus.PltNamedType false none independent subtypes uniquenessRules instantiable complex attributes supertypes supertypeConstraint Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltEntityDefinition class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltEntityDefinition class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltEntityDefinition class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltEntityDefinition <ISO10303-11-EXPRESS> ENTITY entity_definition SUBTYPE OF ( named_type ); supertype_constraint : OPTIONAL supertype_constraint; supertypes : LIST OF UNIQUE entity_definition_reference; attributes : LIST OF UNIQUE attribute; uniqueness_rules : LIST OF UNIQUE uniqueness_rule; complex : BOOLEAN; instantiable : BOOLEAN; independent : BOOLEAN; DERIVE accepted : entity_instance := SELF.accept_entity_definition; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltEntityDefinition platypus-generated-initializing stepInitialize super stepInitialize. supertypeConstraint := nil. supertypes := OrderedCollection new. attributes := OrderedCollection new. uniquenessRules := OrderedCollection new. complex := false. instantiable := false. independent := false. Platypus.PltEntityDefinition platypus-generated-classifying isPltEntityDefinition ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltEntityDefinition ^ false Platypus.PltEntityDefinition platypus-generated-visiting accept: aVisitor ^ aVisitor acceptEntityDefinition: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptEntityDefinition: e "my subclasses have to redefine it" Platypus.PltEntityDefinition platypus-generated-copying entityDefinitionCopyTo:another another fastSetSupertypeConstraint: (self supertypeConstraint). another fastSetSupertypes: (self supertypes). another fastSetAttributes: (self attributes). another fastSetUniquenessRules: (self uniquenessRules). another fastSetComplex: (self complex). another fastSetInstantiable: (self instantiable). another fastSetIndependent: (self independent). Platypus.PltEntityDefinition platypus-generated-copying pltLocalCopyTo: another self entityDefinitionCopyTo:another Platypus.PltEntityDefinition platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self entityDefinitionCopyTo: another. Platypus.PltEntityDefinition platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltEntityDefinition platypus-generated-group-accessing entityDefinitionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setSupertypeConstraint:valuesloc removeFirst. self setSupertypes:valuesloc removeFirst. self setAttributes:valuesloc removeFirst. self setUniquenessRules:valuesloc removeFirst. self setComplex:valuesloc removeFirst. self setInstantiable:valuesloc removeFirst. self setIndependent:valuesloc removeFirst. ^ valuesloc Platypus.PltEntityDefinition platypus-generated-group-accessing entityDefinitionToValues:values values add: (self supertypeConstraint). values add: (self supertypes). values add: (self attributes). values add: (self uniquenessRules). values add: (self complex). values add: (self instantiable). values add: (self independent). ^ values Platypus.PltEntityDefinition platypus-generated-group-accessing toValues:values ^ self entityDefinitionToValues: (super toValues: values) Platypus.PltEntityDefinition platypus-generated-group-accessing fromValues:values ^ self entityDefinitionFromValues: (super fromValues: values) Platypus.PltEntityDefinition platypus-generated-group-accessing localFromValues: values ^ self entityDefinitionFromValues:values Platypus.PltEntityDefinition platypus-generated-group-accessing localToValues: values ^ self entityDefinitionToValues:values Platypus.PltEntityDefinition class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltEntityDefinition class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltEntityDefinition platypus-generated-accessing supertypeConstraint ^supertypeConstraint Platypus.PltEntityDefinition platypus-generated-set-accessing setSupertypeConstraint:aPltSupertypeConstraint self supertypeConstraint:aPltSupertypeConstraint Platypus.PltEntityDefinition platypus-generated-accessing supertypeConstraint:aPltSupertypeConstraint supertypeConstraint := aPltSupertypeConstraint Platypus.PltEntityDefinition platypus-generated-fast-set-accessing fastSetSupertypeConstraint:aPltSupertypeConstraint supertypeConstraint := aPltSupertypeConstraint Platypus.PltEntityDefinition platypus-generated-with-context-accessing supertypeConstraintUsingContext:aContext ^ self supertypeConstraint Platypus.PltEntityDefinition platypus-generated-accessing supertypes ^supertypes Platypus.PltEntityDefinition platypus-generated-set-accessing setSupertypes:aListOfPltEntityDefinitionReference self supertypes:aListOfPltEntityDefinitionReference Platypus.PltEntityDefinition platypus-generated-accessing supertypes:aListOfPltEntityDefinitionReference supertypes := aListOfPltEntityDefinitionReference ifNil: [OrderedCollection new] ifNotNil: [aListOfPltEntityDefinitionReference as: OrderedCollection] Platypus.PltEntityDefinition platypus-generated-fast-set-accessing fastSetSupertypes:aListOfPltEntityDefinitionReference supertypes := aListOfPltEntityDefinitionReference Platypus.PltEntityDefinition platypus-generated-with-context-accessing supertypesUsingContext:aContext ^ self supertypes Platypus.PltEntityDefinition platypus-generated-accessing attributes ^attributes Platypus.PltEntityDefinition platypus-generated-set-accessing setAttributes:aListOfPltAttribute self attributes:aListOfPltAttribute Platypus.PltEntityDefinition platypus-generated-accessing attributes:aListOfPltAttribute attributes := aListOfPltAttribute ifNil: [OrderedCollection new] ifNotNil: [aListOfPltAttribute as: OrderedCollection] Platypus.PltEntityDefinition platypus-generated-fast-set-accessing fastSetAttributes:aListOfPltAttribute attributes := aListOfPltAttribute Platypus.PltEntityDefinition platypus-generated-with-context-accessing attributesUsingContext:aContext ^ self attributes Platypus.PltEntityDefinition platypus-generated-accessing uniquenessRules ^uniquenessRules Platypus.PltEntityDefinition platypus-generated-set-accessing setUniquenessRules:aListOfPltUniquenessRule self uniquenessRules:aListOfPltUniquenessRule Platypus.PltEntityDefinition platypus-generated-accessing uniquenessRules:aListOfPltUniquenessRule uniquenessRules := aListOfPltUniquenessRule ifNil: [OrderedCollection new] ifNotNil: [aListOfPltUniquenessRule as: OrderedCollection] Platypus.PltEntityDefinition platypus-generated-fast-set-accessing fastSetUniquenessRules:aListOfPltUniquenessRule uniquenessRules := aListOfPltUniquenessRule Platypus.PltEntityDefinition platypus-generated-with-context-accessing uniquenessRulesUsingContext:aContext ^ self uniquenessRules Platypus.PltEntityDefinition platypus-generated-accessing complex ^complex Platypus.PltEntityDefinition platypus-generated-set-accessing setComplex:aBoolean self complex:aBoolean Platypus.PltEntityDefinition platypus-generated-accessing complex:aBoolean complex := aBoolean Platypus.PltEntityDefinition platypus-generated-fast-set-accessing fastSetComplex:aBoolean complex := aBoolean Platypus.PltEntityDefinition platypus-generated-with-context-accessing complexUsingContext:aContext ^ self complex Platypus.PltEntityDefinition platypus-generated-accessing instantiable ^instantiable Platypus.PltEntityDefinition platypus-generated-set-accessing setInstantiable:aBoolean self instantiable:aBoolean Platypus.PltEntityDefinition platypus-generated-accessing instantiable:aBoolean instantiable := aBoolean Platypus.PltEntityDefinition platypus-generated-fast-set-accessing fastSetInstantiable:aBoolean instantiable := aBoolean Platypus.PltEntityDefinition platypus-generated-with-context-accessing instantiableUsingContext:aContext ^ self instantiable Platypus.PltEntityDefinition platypus-generated-accessing independent ^independent Platypus.PltEntityDefinition platypus-generated-set-accessing setIndependent:aBoolean self independent:aBoolean Platypus.PltEntityDefinition platypus-generated-accessing independent:aBoolean independent := aBoolean Platypus.PltEntityDefinition platypus-generated-fast-set-accessing fastSetIndependent:aBoolean independent := aBoolean Platypus.PltEntityDefinition platypus-generated-with-context-accessing independentUsingContext:aContext ^ self independent Platypus.PltEntityDefinition platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltEntityDefinition platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptEntityDefinitionUsingContext: aContext) Platypus.PltEntityDefinition platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltSupertypeConstraint Platypus Platypus.PltDictionaryInstance false none expr constrained Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltSupertypeConstraint class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSupertypeConstraint class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSupertypeConstraint class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSupertypeConstraint <ISO10303-11-EXPRESS> ENTITY supertype_constraint SUBTYPE OF ( dictionary_instance ); constrained : entity_definition_reference; expr : OPTIONAL supertype_expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSupertypeConstraint platypus-generated-initializing stepInitialize super stepInitialize. constrained := nil. expr := nil. Platypus.PltSupertypeConstraint platypus-generated-classifying isPltSupertypeConstraint ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltSupertypeConstraint ^ false Platypus.PltSupertypeConstraint platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSupertypeConstraint: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptSupertypeConstraint: e "my subclasses have to redefine it" Platypus.PltSupertypeConstraint platypus-generated-copying supertypeConstraintCopyTo:another another fastSetConstrained: (self constrained). another fastSetExpr: (self expr). Platypus.PltSupertypeConstraint platypus-generated-copying pltLocalCopyTo: another self supertypeConstraintCopyTo:another Platypus.PltSupertypeConstraint platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self supertypeConstraintCopyTo: another. Platypus.PltSupertypeConstraint platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSupertypeConstraint platypus-generated-group-accessing supertypeConstraintFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setConstrained:valuesloc removeFirst. self setExpr:valuesloc removeFirst. ^ valuesloc Platypus.PltSupertypeConstraint platypus-generated-group-accessing supertypeConstraintToValues:values values add: (self constrained). values add: (self expr). ^ values Platypus.PltSupertypeConstraint platypus-generated-group-accessing toValues:values ^ self supertypeConstraintToValues: (super toValues: values) Platypus.PltSupertypeConstraint platypus-generated-group-accessing fromValues:values ^ self supertypeConstraintFromValues: (super fromValues: values) Platypus.PltSupertypeConstraint platypus-generated-group-accessing localFromValues: values ^ self supertypeConstraintFromValues:values Platypus.PltSupertypeConstraint platypus-generated-group-accessing localToValues: values ^ self supertypeConstraintToValues:values Platypus.PltSupertypeConstraint class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltSupertypeConstraint class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltSupertypeConstraint platypus-generated-accessing constrained ^constrained Platypus.PltSupertypeConstraint platypus-generated-set-accessing setConstrained:aPltEntityDefinitionReference self constrained:aPltEntityDefinitionReference Platypus.PltSupertypeConstraint platypus-generated-accessing constrained:aPltEntityDefinitionReference constrained := aPltEntityDefinitionReference Platypus.PltSupertypeConstraint platypus-generated-fast-set-accessing fastSetConstrained:aPltEntityDefinitionReference constrained := aPltEntityDefinitionReference Platypus.PltSupertypeConstraint platypus-generated-with-context-accessing constrainedUsingContext:aContext ^ self constrained Platypus.PltSupertypeConstraint platypus-generated-accessing expr ^expr Platypus.PltSupertypeConstraint platypus-generated-set-accessing setExpr:aPltSupertypeExpression self expr:aPltSupertypeExpression Platypus.PltSupertypeConstraint platypus-generated-accessing expr:aPltSupertypeExpression expr := aPltSupertypeExpression Platypus.PltSupertypeConstraint platypus-generated-fast-set-accessing fastSetExpr:aPltSupertypeExpression expr := aPltSupertypeExpression Platypus.PltSupertypeConstraint platypus-generated-with-context-accessing exprUsingContext:aContext ^ self expr Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltSupertypeExpression Platypus Platypus.PltDictionaryInstance false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltSupertypeExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSupertypeExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSupertypeExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSupertypeExpression <ISO10303-11-EXPRESS> ENTITY supertype_expression ABSTRACT SUPERTYPE OF ( ONEOF ( sub_entity_ref_expression, binary_supertype_expression, oneof_supertype_expression ) ) SUBTYPE OF ( dictionary_instance ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSupertypeExpression platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltSupertypeExpression platypus-generated-classifying isPltSupertypeExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltSupertypeExpression ^ false Platypus.PltSupertypeExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSupertypeExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptSupertypeExpression: e "my subclasses have to redefine it" Platypus.PltSupertypeExpression platypus-generated-copying supertypeExpressionCopyTo:another Platypus.PltSupertypeExpression platypus-generated-copying pltLocalCopyTo: another self supertypeExpressionCopyTo:another Platypus.PltSupertypeExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self supertypeExpressionCopyTo: another. Platypus.PltSupertypeExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSupertypeExpression platypus-generated-group-accessing supertypeExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltSupertypeExpression platypus-generated-group-accessing supertypeExpressionToValues:values ^ values Platypus.PltSupertypeExpression platypus-generated-group-accessing toValues:values ^ self supertypeExpressionToValues: (super toValues: values) Platypus.PltSupertypeExpression platypus-generated-group-accessing fromValues:values ^ self supertypeExpressionFromValues: (super fromValues: values) Platypus.PltSupertypeExpression platypus-generated-group-accessing localFromValues: values ^ self supertypeExpressionFromValues:values Platypus.PltSupertypeExpression platypus-generated-group-accessing localToValues: values ^ self supertypeExpressionToValues:values Platypus.PltSupertypeExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltSupertypeExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltSubEntityRefExpression Platypus Platypus.PltSupertypeExpression false none entityRef Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltSubEntityRefExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSubEntityRefExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSubEntityRefExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSubEntityRefExpression <ISO10303-11-EXPRESS> ENTITY sub_entity_ref_expression SUBTYPE OF ( supertype_expression ); entity_ref : entity_definition_reference; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSubEntityRefExpression platypus-generated-initializing stepInitialize super stepInitialize. entityRef := nil. Platypus.PltSubEntityRefExpression platypus-generated-classifying isPltSubEntityRefExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltSubEntityRefExpression ^ false Platypus.PltSubEntityRefExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSubEntityRefExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptSubEntityRefExpression: e "my subclasses have to redefine it" Platypus.PltSubEntityRefExpression platypus-generated-copying subEntityRefExpressionCopyTo:another another fastSetEntityRef: (self entityRef). Platypus.PltSubEntityRefExpression platypus-generated-copying pltLocalCopyTo: another self subEntityRefExpressionCopyTo:another Platypus.PltSubEntityRefExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self subEntityRefExpressionCopyTo: another. Platypus.PltSubEntityRefExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSubEntityRefExpression platypus-generated-group-accessing subEntityRefExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setEntityRef:valuesloc removeFirst. ^ valuesloc Platypus.PltSubEntityRefExpression platypus-generated-group-accessing subEntityRefExpressionToValues:values values add: (self entityRef). ^ values Platypus.PltSubEntityRefExpression platypus-generated-group-accessing toValues:values ^ self subEntityRefExpressionToValues: (super toValues: values) Platypus.PltSubEntityRefExpression platypus-generated-group-accessing fromValues:values ^ self subEntityRefExpressionFromValues: (super fromValues: values) Platypus.PltSubEntityRefExpression platypus-generated-group-accessing localFromValues: values ^ self subEntityRefExpressionFromValues:values Platypus.PltSubEntityRefExpression platypus-generated-group-accessing localToValues: values ^ self subEntityRefExpressionToValues:values Platypus.PltSubEntityRefExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltSubEntityRefExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltSubEntityRefExpression platypus-generated-accessing entityRef ^entityRef Platypus.PltSubEntityRefExpression platypus-generated-set-accessing setEntityRef:aPltEntityDefinitionReference self entityRef:aPltEntityDefinitionReference Platypus.PltSubEntityRefExpression platypus-generated-accessing entityRef:aPltEntityDefinitionReference entityRef := aPltEntityDefinitionReference Platypus.PltSubEntityRefExpression platypus-generated-fast-set-accessing fastSetEntityRef:aPltEntityDefinitionReference entityRef := aPltEntityDefinitionReference Platypus.PltSubEntityRefExpression platypus-generated-with-context-accessing entityRefUsingContext:aContext ^ self entityRef Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltBinarySupertypeExpression Platypus Platypus.PltSupertypeExpression false none rightExpr parenthesis leftExpr Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltBinarySupertypeExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltBinarySupertypeExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltBinarySupertypeExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltBinarySupertypeExpression <ISO10303-11-EXPRESS> ENTITY binary_supertype_expression SUBTYPE OF ( supertype_expression ); parenthesis : OPTIONAL BOOLEAN; left_expr : supertype_expression; right_expr : supertype_expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltBinarySupertypeExpression platypus-generated-initializing stepInitialize super stepInitialize. parenthesis := nil. leftExpr := nil. rightExpr := nil. Platypus.PltBinarySupertypeExpression platypus-generated-classifying isPltBinarySupertypeExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltBinarySupertypeExpression ^ false Platypus.PltBinarySupertypeExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptBinarySupertypeExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptBinarySupertypeExpression: e "my subclasses have to redefine it" Platypus.PltBinarySupertypeExpression platypus-generated-copying binarySupertypeExpressionCopyTo:another another fastSetParenthesis: (self parenthesis). another fastSetLeftExpr: (self leftExpr). another fastSetRightExpr: (self rightExpr). Platypus.PltBinarySupertypeExpression platypus-generated-copying pltLocalCopyTo: another self binarySupertypeExpressionCopyTo:another Platypus.PltBinarySupertypeExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self binarySupertypeExpressionCopyTo: another. Platypus.PltBinarySupertypeExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltBinarySupertypeExpression platypus-generated-group-accessing binarySupertypeExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setParenthesis:valuesloc removeFirst. self setLeftExpr:valuesloc removeFirst. self setRightExpr:valuesloc removeFirst. ^ valuesloc Platypus.PltBinarySupertypeExpression platypus-generated-group-accessing binarySupertypeExpressionToValues:values values add: (self parenthesis). values add: (self leftExpr). values add: (self rightExpr). ^ values Platypus.PltBinarySupertypeExpression platypus-generated-group-accessing toValues:values ^ self binarySupertypeExpressionToValues: (super toValues: values) Platypus.PltBinarySupertypeExpression platypus-generated-group-accessing fromValues:values ^ self binarySupertypeExpressionFromValues: (super fromValues: values) Platypus.PltBinarySupertypeExpression platypus-generated-group-accessing localFromValues: values ^ self binarySupertypeExpressionFromValues:values Platypus.PltBinarySupertypeExpression platypus-generated-group-accessing localToValues: values ^ self binarySupertypeExpressionToValues:values Platypus.PltBinarySupertypeExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltBinarySupertypeExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltBinarySupertypeExpression platypus-generated-accessing parenthesis ^parenthesis Platypus.PltBinarySupertypeExpression platypus-generated-set-accessing setParenthesis:aBoolean self parenthesis:aBoolean Platypus.PltBinarySupertypeExpression platypus-generated-accessing parenthesis:aBoolean parenthesis := aBoolean Platypus.PltBinarySupertypeExpression platypus-generated-fast-set-accessing fastSetParenthesis:aBoolean parenthesis := aBoolean Platypus.PltBinarySupertypeExpression platypus-generated-with-context-accessing parenthesisUsingContext:aContext ^ self parenthesis Platypus.PltBinarySupertypeExpression platypus-generated-accessing leftExpr ^leftExpr Platypus.PltBinarySupertypeExpression platypus-generated-set-accessing setLeftExpr:aPltSupertypeExpression self leftExpr:aPltSupertypeExpression Platypus.PltBinarySupertypeExpression platypus-generated-accessing leftExpr:aPltSupertypeExpression leftExpr := aPltSupertypeExpression Platypus.PltBinarySupertypeExpression platypus-generated-fast-set-accessing fastSetLeftExpr:aPltSupertypeExpression leftExpr := aPltSupertypeExpression Platypus.PltBinarySupertypeExpression platypus-generated-with-context-accessing leftExprUsingContext:aContext ^ self leftExpr Platypus.PltBinarySupertypeExpression platypus-generated-accessing rightExpr ^rightExpr Platypus.PltBinarySupertypeExpression platypus-generated-set-accessing setRightExpr:aPltSupertypeExpression self rightExpr:aPltSupertypeExpression Platypus.PltBinarySupertypeExpression platypus-generated-accessing rightExpr:aPltSupertypeExpression rightExpr := aPltSupertypeExpression Platypus.PltBinarySupertypeExpression platypus-generated-fast-set-accessing fastSetRightExpr:aPltSupertypeExpression rightExpr := aPltSupertypeExpression Platypus.PltBinarySupertypeExpression platypus-generated-with-context-accessing rightExprUsingContext:aContext ^ self rightExpr Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAndorSupertype Platypus Platypus.PltBinarySupertypeExpression false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltAndorSupertype class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAndorSupertype class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAndorSupertype class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAndorSupertype <ISO10303-11-EXPRESS> ENTITY andor_supertype SUBTYPE OF ( binary_supertype_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAndorSupertype platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltAndorSupertype platypus-generated-classifying isPltAndorSupertype ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltAndorSupertype ^ false Platypus.PltAndorSupertype platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAndorSupertype: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptAndorSupertype: e "my subclasses have to redefine it" Platypus.PltAndorSupertype platypus-generated-copying andorSupertypeCopyTo:another Platypus.PltAndorSupertype platypus-generated-copying pltLocalCopyTo: another self andorSupertypeCopyTo:another Platypus.PltAndorSupertype platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self andorSupertypeCopyTo: another. Platypus.PltAndorSupertype platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAndorSupertype platypus-generated-group-accessing andorSupertypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltAndorSupertype platypus-generated-group-accessing andorSupertypeToValues:values ^ values Platypus.PltAndorSupertype platypus-generated-group-accessing toValues:values ^ self andorSupertypeToValues: (super toValues: values) Platypus.PltAndorSupertype platypus-generated-group-accessing fromValues:values ^ self andorSupertypeFromValues: (super fromValues: values) Platypus.PltAndorSupertype platypus-generated-group-accessing localFromValues: values ^ self andorSupertypeFromValues:values Platypus.PltAndorSupertype platypus-generated-group-accessing localToValues: values ^ self andorSupertypeToValues:values Platypus.PltAndorSupertype class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltAndorSupertype class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAndSupertype Platypus Platypus.PltBinarySupertypeExpression false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltAndSupertype class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAndSupertype class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAndSupertype class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAndSupertype <ISO10303-11-EXPRESS> ENTITY and_supertype SUBTYPE OF ( binary_supertype_expression ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAndSupertype platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltAndSupertype platypus-generated-classifying isPltAndSupertype ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltAndSupertype ^ false Platypus.PltAndSupertype platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAndSupertype: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptAndSupertype: e "my subclasses have to redefine it" Platypus.PltAndSupertype platypus-generated-copying andSupertypeCopyTo:another Platypus.PltAndSupertype platypus-generated-copying pltLocalCopyTo: another self andSupertypeCopyTo:another Platypus.PltAndSupertype platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self andSupertypeCopyTo: another. Platypus.PltAndSupertype platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAndSupertype platypus-generated-group-accessing andSupertypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltAndSupertype platypus-generated-group-accessing andSupertypeToValues:values ^ values Platypus.PltAndSupertype platypus-generated-group-accessing toValues:values ^ self andSupertypeToValues: (super toValues: values) Platypus.PltAndSupertype platypus-generated-group-accessing fromValues:values ^ self andSupertypeFromValues: (super fromValues: values) Platypus.PltAndSupertype platypus-generated-group-accessing localFromValues: values ^ self andSupertypeFromValues:values Platypus.PltAndSupertype platypus-generated-group-accessing localToValues: values ^ self andSupertypeToValues:values Platypus.PltAndSupertype class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltAndSupertype class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltOneofSupertypeExpression Platypus Platypus.PltSupertypeExpression false none exprList Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltOneofSupertypeExpression class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltOneofSupertypeExpression class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltOneofSupertypeExpression class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltOneofSupertypeExpression <ISO10303-11-EXPRESS> ENTITY oneof_supertype_expression SUBTYPE OF ( supertype_expression ); expr_list : LIST OF supertype_expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltOneofSupertypeExpression platypus-generated-initializing stepInitialize super stepInitialize. exprList := OrderedCollection new. Platypus.PltOneofSupertypeExpression platypus-generated-classifying isPltOneofSupertypeExpression ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltOneofSupertypeExpression ^ false Platypus.PltOneofSupertypeExpression platypus-generated-visiting accept: aVisitor ^ aVisitor acceptOneofSupertypeExpression: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptOneofSupertypeExpression: e "my subclasses have to redefine it" Platypus.PltOneofSupertypeExpression platypus-generated-copying oneofSupertypeExpressionCopyTo:another another fastSetExprList: (self exprList). Platypus.PltOneofSupertypeExpression platypus-generated-copying pltLocalCopyTo: another self oneofSupertypeExpressionCopyTo:another Platypus.PltOneofSupertypeExpression platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self oneofSupertypeExpressionCopyTo: another. Platypus.PltOneofSupertypeExpression platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltOneofSupertypeExpression platypus-generated-group-accessing oneofSupertypeExpressionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setExprList:valuesloc removeFirst. ^ valuesloc Platypus.PltOneofSupertypeExpression platypus-generated-group-accessing oneofSupertypeExpressionToValues:values values add: (self exprList). ^ values Platypus.PltOneofSupertypeExpression platypus-generated-group-accessing toValues:values ^ self oneofSupertypeExpressionToValues: (super toValues: values) Platypus.PltOneofSupertypeExpression platypus-generated-group-accessing fromValues:values ^ self oneofSupertypeExpressionFromValues: (super fromValues: values) Platypus.PltOneofSupertypeExpression platypus-generated-group-accessing localFromValues: values ^ self oneofSupertypeExpressionFromValues:values Platypus.PltOneofSupertypeExpression platypus-generated-group-accessing localToValues: values ^ self oneofSupertypeExpressionToValues:values Platypus.PltOneofSupertypeExpression class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltOneofSupertypeExpression class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltOneofSupertypeExpression platypus-generated-accessing exprList ^exprList Platypus.PltOneofSupertypeExpression platypus-generated-set-accessing setExprList:aListOfPltSupertypeExpression self exprList:aListOfPltSupertypeExpression Platypus.PltOneofSupertypeExpression platypus-generated-accessing exprList:aListOfPltSupertypeExpression exprList := aListOfPltSupertypeExpression ifNil: [OrderedCollection new] ifNotNil: [aListOfPltSupertypeExpression as: OrderedCollection] Platypus.PltOneofSupertypeExpression platypus-generated-fast-set-accessing fastSetExprList:aListOfPltSupertypeExpression exprList := aListOfPltSupertypeExpression Platypus.PltOneofSupertypeExpression platypus-generated-with-context-accessing exprListUsingContext:aContext ^ self exprList Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltUniquenessRule Platypus Platypus.PltDictionaryInstance false none label attributes Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltUniquenessRule class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltUniquenessRule class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltUniquenessRule class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltUniquenessRule <ISO10303-11-EXPRESS> ENTITY uniqueness_rule SUBTYPE OF ( dictionary_instance ); label : OPTIONAL STRING; attributes : LIST [ 1 : ? ] OF UNIQUE uniqueness_rule_attribute_identifier; SELF\entity_instance.owner : entity_definition; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltUniquenessRule platypus-generated-initializing stepInitialize super stepInitialize. label := nil. attributes := OrderedCollection new. owner := nil. Platypus.PltUniquenessRule platypus-generated-classifying isPltUniquenessRule ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltUniquenessRule ^ false Platypus.PltUniquenessRule platypus-generated-visiting accept: aVisitor ^ aVisitor acceptUniquenessRule: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptUniquenessRule: e "my subclasses have to redefine it" Platypus.PltUniquenessRule platypus-generated-copying uniquenessRuleCopyTo:another another fastSetLabel: (self label). another fastSetAttributes: (self attributes). another fastSetOwner: (self owner). Platypus.PltUniquenessRule platypus-generated-copying pltLocalCopyTo: another self uniquenessRuleCopyTo:another Platypus.PltUniquenessRule platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self uniquenessRuleCopyTo: another. Platypus.PltUniquenessRule platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltUniquenessRule platypus-generated-group-accessing uniquenessRuleFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setLabel:valuesloc removeFirst. self setAttributes:valuesloc removeFirst. self setOwner:valuesloc removeFirst. ^ valuesloc Platypus.PltUniquenessRule platypus-generated-group-accessing uniquenessRuleToValues:values values add: (self label). values add: (self attributes). values add: (self owner). ^ values Platypus.PltUniquenessRule platypus-generated-group-accessing toValues:values ^ self uniquenessRuleToValues: (super toValues: values) Platypus.PltUniquenessRule platypus-generated-group-accessing fromValues:values ^ self uniquenessRuleFromValues: (super fromValues: values) Platypus.PltUniquenessRule platypus-generated-group-accessing localFromValues: values ^ self uniquenessRuleFromValues:values Platypus.PltUniquenessRule platypus-generated-group-accessing localToValues: values ^ self uniquenessRuleToValues:values Platypus.PltUniquenessRule class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltUniquenessRule class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltUniquenessRule platypus-generated-accessing label ^label Platypus.PltUniquenessRule platypus-generated-set-accessing setLabel:aString self label:aString Platypus.PltUniquenessRule platypus-generated-accessing label:aString label := aString Platypus.PltUniquenessRule platypus-generated-fast-set-accessing fastSetLabel:aString label := aString Platypus.PltUniquenessRule platypus-generated-with-context-accessing labelUsingContext:aContext ^ self label Platypus.PltUniquenessRule platypus-generated-accessing attributes ^attributes Platypus.PltUniquenessRule platypus-generated-set-accessing setAttributes:aListOfPltUniquenessRuleAttributeIdentifier self attributes:aListOfPltUniquenessRuleAttributeIdentifier Platypus.PltUniquenessRule platypus-generated-accessing attributes:aListOfPltUniquenessRuleAttributeIdentifier attributes := aListOfPltUniquenessRuleAttributeIdentifier ifNil: [OrderedCollection new] ifNotNil: [aListOfPltUniquenessRuleAttributeIdentifier as: OrderedCollection] Platypus.PltUniquenessRule platypus-generated-fast-set-accessing fastSetAttributes:aListOfPltUniquenessRuleAttributeIdentifier attributes := aListOfPltUniquenessRuleAttributeIdentifier Platypus.PltUniquenessRule platypus-generated-with-context-accessing attributesUsingContext:aContext ^ self attributes Platypus.PltUniquenessRule platypus-generated-accessing owner ^owner Platypus.PltUniquenessRule platypus-generated-set-accessing setOwner:aPltEntityDefinition self owner:aPltEntityDefinition Platypus.PltUniquenessRule platypus-generated-accessing owner:aPltEntityDefinition owner := aPltEntityDefinition Platypus.PltUniquenessRule platypus-generated-fast-set-accessing fastSetOwner:aPltEntityDefinition owner := aPltEntityDefinition Platypus.PltUniquenessRule platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAttribute Platypus Platypus.PltDictionaryInstance false none domain redeclaring name Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltAttribute class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAttribute class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAttribute class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAttribute <ISO10303-11-EXPRESS> ENTITY attribute ABSTRACT SUPERTYPE OF ( ONEOF ( derived_attribute, explicit_attribute, inverse_attribute ) ) SUBTYPE OF ( dictionary_instance ); name : STRING; SELF\entity_instance.owner : entity_definition; domain : base_type; redeclaring : OPTIONAL attribute_reference; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAttribute platypus-generated-initializing stepInitialize super stepInitialize. name := ''. owner := nil. domain := nil. redeclaring := nil. Platypus.PltAttribute platypus-generated-classifying isPltAttribute ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltAttribute ^ false Platypus.PltAttribute platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAttribute: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptAttribute: e "my subclasses have to redefine it" Platypus.PltAttribute platypus-generated-copying attributeCopyTo:another another fastSetName: (self name). another fastSetOwner: (self owner). another fastSetDomain: (self domain). another fastSetRedeclaring: (self redeclaring). Platypus.PltAttribute platypus-generated-copying pltLocalCopyTo: another self attributeCopyTo:another Platypus.PltAttribute platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self attributeCopyTo: another. Platypus.PltAttribute platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAttribute platypus-generated-group-accessing attributeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setName:valuesloc removeFirst. self setOwner:valuesloc removeFirst. self setDomain:valuesloc removeFirst. self setRedeclaring:valuesloc removeFirst. ^ valuesloc Platypus.PltAttribute platypus-generated-group-accessing attributeToValues:values values add: (self name). values add: (self owner). values add: (self domain). values add: (self redeclaring). ^ values Platypus.PltAttribute platypus-generated-group-accessing toValues:values ^ self attributeToValues: (super toValues: values) Platypus.PltAttribute platypus-generated-group-accessing fromValues:values ^ self attributeFromValues: (super fromValues: values) Platypus.PltAttribute platypus-generated-group-accessing localFromValues: values ^ self attributeFromValues:values Platypus.PltAttribute platypus-generated-group-accessing localToValues: values ^ self attributeToValues:values Platypus.PltAttribute class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltAttribute class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAttribute platypus-generated-accessing name ^name Platypus.PltAttribute platypus-generated-set-accessing setName:aString self name:aString Platypus.PltAttribute platypus-generated-accessing name:aString name := aString Platypus.PltAttribute platypus-generated-fast-set-accessing fastSetName:aString name := aString Platypus.PltAttribute platypus-generated-with-context-accessing nameUsingContext:aContext ^ self name Platypus.PltAttribute platypus-generated-accessing owner ^owner Platypus.PltAttribute platypus-generated-set-accessing setOwner:aPltEntityDefinition self owner:aPltEntityDefinition Platypus.PltAttribute platypus-generated-accessing owner:aPltEntityDefinition owner := aPltEntityDefinition Platypus.PltAttribute platypus-generated-fast-set-accessing fastSetOwner:aPltEntityDefinition owner := aPltEntityDefinition Platypus.PltAttribute platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus.PltAttribute platypus-generated-accessing domain ^domain Platypus.PltAttribute platypus-generated-set-accessing setDomain:aPltBaseType self domain:aPltBaseType Platypus.PltAttribute platypus-generated-accessing domain:aPltBaseType domain := aPltBaseType Platypus.PltAttribute platypus-generated-fast-set-accessing fastSetDomain:aPltBaseType domain := aPltBaseType Platypus.PltAttribute platypus-generated-with-context-accessing domainUsingContext:aContext ^ self domain Platypus.PltAttribute platypus-generated-accessing redeclaring ^redeclaring Platypus.PltAttribute platypus-generated-set-accessing setRedeclaring:aPltAttributeReference self redeclaring:aPltAttributeReference Platypus.PltAttribute platypus-generated-accessing redeclaring:aPltAttributeReference redeclaring := aPltAttributeReference Platypus.PltAttribute platypus-generated-fast-set-accessing fastSetRedeclaring:aPltAttributeReference redeclaring := aPltAttributeReference Platypus.PltAttribute platypus-generated-with-context-accessing redeclaringUsingContext:aContext ^ self redeclaring Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAggregateInitializerDomain Platypus Platypus.PltDictionaryInstance false none types Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltAggregateInitializerDomain class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAggregateInitializerDomain class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAggregateInitializerDomain class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAggregateInitializerDomain <ISO10303-11-EXPRESS> ENTITY aggregate_initializer_domain SUBTYPE OF ( dictionary_instance ); types : LIST [ 1 : ? ] OF parameter_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAggregateInitializerDomain platypus-generated-initializing stepInitialize super stepInitialize. types := OrderedCollection new. Platypus.PltAggregateInitializerDomain platypus-generated-classifying isPltAggregateInitializerDomain ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltAggregateInitializerDomain ^ false Platypus.PltAggregateInitializerDomain platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAggregateInitializerDomain: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptAggregateInitializerDomain: e "my subclasses have to redefine it" Platypus.PltAggregateInitializerDomain platypus-generated-copying aggregateInitializerDomainCopyTo:another another fastSetTypes: (self types). Platypus.PltAggregateInitializerDomain platypus-generated-copying pltLocalCopyTo: another self aggregateInitializerDomainCopyTo:another Platypus.PltAggregateInitializerDomain platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self aggregateInitializerDomainCopyTo: another. Platypus.PltAggregateInitializerDomain platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAggregateInitializerDomain platypus-generated-group-accessing aggregateInitializerDomainFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setTypes:valuesloc removeFirst. ^ valuesloc Platypus.PltAggregateInitializerDomain platypus-generated-group-accessing aggregateInitializerDomainToValues:values values add: (self types). ^ values Platypus.PltAggregateInitializerDomain platypus-generated-group-accessing toValues:values ^ self aggregateInitializerDomainToValues: (super toValues: values) Platypus.PltAggregateInitializerDomain platypus-generated-group-accessing fromValues:values ^ self aggregateInitializerDomainFromValues: (super fromValues: values) Platypus.PltAggregateInitializerDomain platypus-generated-group-accessing localFromValues: values ^ self aggregateInitializerDomainFromValues:values Platypus.PltAggregateInitializerDomain platypus-generated-group-accessing localToValues: values ^ self aggregateInitializerDomainToValues:values Platypus.PltAggregateInitializerDomain class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltAggregateInitializerDomain class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAggregateInitializerDomain platypus-generated-accessing types ^types Platypus.PltAggregateInitializerDomain platypus-generated-set-accessing setTypes:aListOfPltParameterType self types:aListOfPltParameterType Platypus.PltAggregateInitializerDomain platypus-generated-accessing types:aListOfPltParameterType types := aListOfPltParameterType ifNil: [OrderedCollection new] ifNotNil: [aListOfPltParameterType as: OrderedCollection] Platypus.PltAggregateInitializerDomain platypus-generated-fast-set-accessing fastSetTypes:aListOfPltParameterType types := aListOfPltParameterType Platypus.PltAggregateInitializerDomain platypus-generated-with-context-accessing typesUsingContext:aContext ^ self types Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAggregateType Platypus Platypus.PltDictionaryInstance false none elementType Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltAggregateType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAggregateType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAggregateType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAggregateType <ISO10303-11-EXPRESS> ENTITY aggregate_type ABSTRACT SUPERTYPE OF ( ONEOF ( aggregation_type, general_aggregate_type ) ) SUBTYPE OF ( dictionary_instance ); element_type : parameter_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAggregateType platypus-generated-initializing stepInitialize super stepInitialize. elementType := nil. Platypus.PltAggregateType platypus-generated-classifying isPltAggregateType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltAggregateType ^ false Platypus.PltAggregateType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAggregateType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptAggregateType: e "my subclasses have to redefine it" Platypus.PltAggregateType platypus-generated-copying aggregateTypeCopyTo:another another fastSetElementType: (self elementType). Platypus.PltAggregateType platypus-generated-copying pltLocalCopyTo: another self aggregateTypeCopyTo:another Platypus.PltAggregateType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self aggregateTypeCopyTo: another. Platypus.PltAggregateType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAggregateType platypus-generated-group-accessing aggregateTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setElementType:valuesloc removeFirst. ^ valuesloc Platypus.PltAggregateType platypus-generated-group-accessing aggregateTypeToValues:values values add: (self elementType). ^ values Platypus.PltAggregateType platypus-generated-group-accessing toValues:values ^ self aggregateTypeToValues: (super toValues: values) Platypus.PltAggregateType platypus-generated-group-accessing fromValues:values ^ self aggregateTypeFromValues: (super fromValues: values) Platypus.PltAggregateType platypus-generated-group-accessing localFromValues: values ^ self aggregateTypeFromValues:values Platypus.PltAggregateType platypus-generated-group-accessing localToValues: values ^ self aggregateTypeToValues:values Platypus.PltAggregateType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltAggregateType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAggregateType platypus-generated-accessing elementType ^elementType Platypus.PltAggregateType platypus-generated-set-accessing setElementType:aPltParameterType self elementType:aPltParameterType Platypus.PltAggregateType platypus-generated-accessing elementType:aPltParameterType elementType := aPltParameterType Platypus.PltAggregateType platypus-generated-fast-set-accessing fastSetElementType:aPltParameterType elementType := aPltParameterType Platypus.PltAggregateType platypus-generated-with-context-accessing elementTypeUsingContext:aContext ^ self elementType Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltGeneralAggregateType Platypus Platypus.PltAggregateType false none typeLabel Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltGeneralAggregateType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltGeneralAggregateType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltGeneralAggregateType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltGeneralAggregateType <ISO10303-11-EXPRESS> ENTITY general_aggregate_type SUBTYPE OF ( aggregate_type ); type_label : OPTIONAL STRING; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltGeneralAggregateType platypus-generated-initializing stepInitialize super stepInitialize. typeLabel := nil. Platypus.PltGeneralAggregateType platypus-generated-classifying isPltGeneralAggregateType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltGeneralAggregateType ^ false Platypus.PltGeneralAggregateType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptGeneralAggregateType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptGeneralAggregateType: e "my subclasses have to redefine it" Platypus.PltGeneralAggregateType platypus-generated-copying generalAggregateTypeCopyTo:another another fastSetTypeLabel: (self typeLabel). Platypus.PltGeneralAggregateType platypus-generated-copying pltLocalCopyTo: another self generalAggregateTypeCopyTo:another Platypus.PltGeneralAggregateType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self generalAggregateTypeCopyTo: another. Platypus.PltGeneralAggregateType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltGeneralAggregateType platypus-generated-group-accessing generalAggregateTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setTypeLabel:valuesloc removeFirst. ^ valuesloc Platypus.PltGeneralAggregateType platypus-generated-group-accessing generalAggregateTypeToValues:values values add: (self typeLabel). ^ values Platypus.PltGeneralAggregateType platypus-generated-group-accessing toValues:values ^ self generalAggregateTypeToValues: (super toValues: values) Platypus.PltGeneralAggregateType platypus-generated-group-accessing fromValues:values ^ self generalAggregateTypeFromValues: (super fromValues: values) Platypus.PltGeneralAggregateType platypus-generated-group-accessing localFromValues: values ^ self generalAggregateTypeFromValues:values Platypus.PltGeneralAggregateType platypus-generated-group-accessing localToValues: values ^ self generalAggregateTypeToValues:values Platypus.PltGeneralAggregateType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltGeneralAggregateType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltGeneralAggregateType platypus-generated-accessing typeLabel ^typeLabel Platypus.PltGeneralAggregateType platypus-generated-set-accessing setTypeLabel:aString self typeLabel:aString Platypus.PltGeneralAggregateType platypus-generated-accessing typeLabel:aString typeLabel := aString Platypus.PltGeneralAggregateType platypus-generated-fast-set-accessing fastSetTypeLabel:aString typeLabel := aString Platypus.PltGeneralAggregateType platypus-generated-with-context-accessing typeLabelUsingContext:aContext ^ self typeLabel Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltAggregationType Platypus Platypus.PltAggregateType false none upperBound isGeneralType lowerBound Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltAggregationType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltAggregationType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltAggregationType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltAggregationType <ISO10303-11-EXPRESS> ENTITY aggregation_type ABSTRACT SUPERTYPE OF ( ONEOF ( variable_size_aggregation_type, array_type ) ) SUBTYPE OF ( aggregate_type ); lower_bound : OPTIONAL bound; upper_bound : OPTIONAL bound; is_general_type : BOOLEAN; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltAggregationType platypus-generated-initializing stepInitialize super stepInitialize. lowerBound := nil. upperBound := nil. isGeneralType := false. Platypus.PltAggregationType platypus-generated-classifying isPltAggregationType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltAggregationType ^ false Platypus.PltAggregationType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptAggregationType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptAggregationType: e "my subclasses have to redefine it" Platypus.PltAggregationType platypus-generated-copying aggregationTypeCopyTo:another another fastSetLowerBound: (self lowerBound). another fastSetUpperBound: (self upperBound). another fastSetIsGeneralType: (self isGeneralType). Platypus.PltAggregationType platypus-generated-copying pltLocalCopyTo: another self aggregationTypeCopyTo:another Platypus.PltAggregationType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self aggregationTypeCopyTo: another. Platypus.PltAggregationType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltAggregationType platypus-generated-group-accessing aggregationTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setLowerBound:valuesloc removeFirst. self setUpperBound:valuesloc removeFirst. self setIsGeneralType:valuesloc removeFirst. ^ valuesloc Platypus.PltAggregationType platypus-generated-group-accessing aggregationTypeToValues:values values add: (self lowerBound). values add: (self upperBound). values add: (self isGeneralType). ^ values Platypus.PltAggregationType platypus-generated-group-accessing toValues:values ^ self aggregationTypeToValues: (super toValues: values) Platypus.PltAggregationType platypus-generated-group-accessing fromValues:values ^ self aggregationTypeFromValues: (super fromValues: values) Platypus.PltAggregationType platypus-generated-group-accessing localFromValues: values ^ self aggregationTypeFromValues:values Platypus.PltAggregationType platypus-generated-group-accessing localToValues: values ^ self aggregationTypeToValues:values Platypus.PltAggregationType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltAggregationType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltAggregationType platypus-generated-accessing lowerBound ^lowerBound Platypus.PltAggregationType platypus-generated-set-accessing setLowerBound:aPltBound self lowerBound:aPltBound Platypus.PltAggregationType platypus-generated-accessing lowerBound:aPltBound lowerBound := aPltBound Platypus.PltAggregationType platypus-generated-fast-set-accessing fastSetLowerBound:aPltBound lowerBound := aPltBound Platypus.PltAggregationType platypus-generated-with-context-accessing lowerBoundUsingContext:aContext ^ self lowerBound Platypus.PltAggregationType platypus-generated-accessing upperBound ^upperBound Platypus.PltAggregationType platypus-generated-set-accessing setUpperBound:aPltBound self upperBound:aPltBound Platypus.PltAggregationType platypus-generated-accessing upperBound:aPltBound upperBound := aPltBound Platypus.PltAggregationType platypus-generated-fast-set-accessing fastSetUpperBound:aPltBound upperBound := aPltBound Platypus.PltAggregationType platypus-generated-with-context-accessing upperBoundUsingContext:aContext ^ self upperBound Platypus.PltAggregationType platypus-generated-accessing isGeneralType ^isGeneralType Platypus.PltAggregationType platypus-generated-set-accessing setIsGeneralType:aBoolean self isGeneralType:aBoolean Platypus.PltAggregationType platypus-generated-accessing isGeneralType:aBoolean isGeneralType := aBoolean Platypus.PltAggregationType platypus-generated-fast-set-accessing fastSetIsGeneralType:aBoolean isGeneralType := aBoolean Platypus.PltAggregationType platypus-generated-with-context-accessing isGeneralTypeUsingContext:aContext ^ self isGeneralType Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltArrayType Platypus Platypus.PltAggregationType false none optionalFlag uniqueFlag Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltArrayType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltArrayType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltArrayType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltArrayType <ISO10303-11-EXPRESS> ENTITY array_type SUBTYPE OF ( aggregation_type ); unique_flag : BOOLEAN; optional_flag : BOOLEAN; SELF\aggregation_type.lower_bound : bound; SELF\aggregation_type.upper_bound : bound; DERIVE accepted : entity_instance := SELF.accept_array_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltArrayType platypus-generated-initializing stepInitialize super stepInitialize. uniqueFlag := false. optionalFlag := false. lowerBound := nil. upperBound := nil. Platypus.PltArrayType platypus-generated-classifying isPltArrayType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltArrayType ^ false Platypus.PltArrayType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptArrayType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptArrayType: e "my subclasses have to redefine it" Platypus.PltArrayType platypus-generated-copying arrayTypeCopyTo:another another fastSetUniqueFlag: (self uniqueFlag). another fastSetOptionalFlag: (self optionalFlag). another fastSetLowerBound: (self lowerBound). another fastSetUpperBound: (self upperBound). Platypus.PltArrayType platypus-generated-copying pltLocalCopyTo: another self arrayTypeCopyTo:another Platypus.PltArrayType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self arrayTypeCopyTo: another. Platypus.PltArrayType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltArrayType platypus-generated-group-accessing arrayTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setUniqueFlag:valuesloc removeFirst. self setOptionalFlag:valuesloc removeFirst. self setLowerBound:valuesloc removeFirst. self setUpperBound:valuesloc removeFirst. ^ valuesloc Platypus.PltArrayType platypus-generated-group-accessing arrayTypeToValues:values values add: (self uniqueFlag). values add: (self optionalFlag). values add: (self lowerBound). values add: (self upperBound). ^ values Platypus.PltArrayType platypus-generated-group-accessing toValues:values ^ self arrayTypeToValues: (super toValues: values) Platypus.PltArrayType platypus-generated-group-accessing fromValues:values ^ self arrayTypeFromValues: (super fromValues: values) Platypus.PltArrayType platypus-generated-group-accessing localFromValues: values ^ self arrayTypeFromValues:values Platypus.PltArrayType platypus-generated-group-accessing localToValues: values ^ self arrayTypeToValues:values Platypus.PltArrayType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltArrayType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltArrayType platypus-generated-accessing uniqueFlag ^uniqueFlag Platypus.PltArrayType platypus-generated-set-accessing setUniqueFlag:aBoolean self uniqueFlag:aBoolean Platypus.PltArrayType platypus-generated-accessing uniqueFlag:aBoolean uniqueFlag := aBoolean Platypus.PltArrayType platypus-generated-fast-set-accessing fastSetUniqueFlag:aBoolean uniqueFlag := aBoolean Platypus.PltArrayType platypus-generated-with-context-accessing uniqueFlagUsingContext:aContext ^ self uniqueFlag Platypus.PltArrayType platypus-generated-accessing optionalFlag ^optionalFlag Platypus.PltArrayType platypus-generated-set-accessing setOptionalFlag:aBoolean self optionalFlag:aBoolean Platypus.PltArrayType platypus-generated-accessing optionalFlag:aBoolean optionalFlag := aBoolean Platypus.PltArrayType platypus-generated-fast-set-accessing fastSetOptionalFlag:aBoolean optionalFlag := aBoolean Platypus.PltArrayType platypus-generated-with-context-accessing optionalFlagUsingContext:aContext ^ self optionalFlag Platypus.PltArrayType platypus-generated-accessing lowerBound ^lowerBound Platypus.PltArrayType platypus-generated-set-accessing setLowerBound:aPltBound self lowerBound:aPltBound Platypus.PltArrayType platypus-generated-accessing lowerBound:aPltBound lowerBound := aPltBound Platypus.PltArrayType platypus-generated-fast-set-accessing fastSetLowerBound:aPltBound lowerBound := aPltBound Platypus.PltArrayType platypus-generated-with-context-accessing lowerBoundUsingContext:aContext ^ self lowerBound Platypus.PltArrayType platypus-generated-accessing upperBound ^upperBound Platypus.PltArrayType platypus-generated-set-accessing setUpperBound:aPltBound self upperBound:aPltBound Platypus.PltArrayType platypus-generated-accessing upperBound:aPltBound upperBound := aPltBound Platypus.PltArrayType platypus-generated-fast-set-accessing fastSetUpperBound:aPltBound upperBound := aPltBound Platypus.PltArrayType platypus-generated-with-context-accessing upperBoundUsingContext:aContext ^ self upperBound Platypus.PltArrayType platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltArrayType platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptArrayTypeUsingContext: aContext) Platypus.PltArrayType platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltVariableSizeAggregationType Platypus Platypus.PltAggregationType false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltVariableSizeAggregationType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltVariableSizeAggregationType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltVariableSizeAggregationType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltVariableSizeAggregationType <ISO10303-11-EXPRESS> ENTITY variable_size_aggregation_type ABSTRACT SUPERTYPE OF ( ONEOF ( set_type, bag_type, list_type ) ) SUBTYPE OF ( aggregation_type ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltVariableSizeAggregationType platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltVariableSizeAggregationType platypus-generated-classifying isPltVariableSizeAggregationType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltVariableSizeAggregationType ^ false Platypus.PltVariableSizeAggregationType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptVariableSizeAggregationType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptVariableSizeAggregationType: e "my subclasses have to redefine it" Platypus.PltVariableSizeAggregationType platypus-generated-copying variableSizeAggregationTypeCopyTo:another Platypus.PltVariableSizeAggregationType platypus-generated-copying pltLocalCopyTo: another self variableSizeAggregationTypeCopyTo:another Platypus.PltVariableSizeAggregationType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self variableSizeAggregationTypeCopyTo: another. Platypus.PltVariableSizeAggregationType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltVariableSizeAggregationType platypus-generated-group-accessing variableSizeAggregationTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltVariableSizeAggregationType platypus-generated-group-accessing variableSizeAggregationTypeToValues:values ^ values Platypus.PltVariableSizeAggregationType platypus-generated-group-accessing toValues:values ^ self variableSizeAggregationTypeToValues: (super toValues: values) Platypus.PltVariableSizeAggregationType platypus-generated-group-accessing fromValues:values ^ self variableSizeAggregationTypeFromValues: (super fromValues: values) Platypus.PltVariableSizeAggregationType platypus-generated-group-accessing localFromValues: values ^ self variableSizeAggregationTypeFromValues:values Platypus.PltVariableSizeAggregationType platypus-generated-group-accessing localToValues: values ^ self variableSizeAggregationTypeToValues:values Platypus.PltVariableSizeAggregationType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltVariableSizeAggregationType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltListType Platypus Platypus.PltVariableSizeAggregationType false none uniqueFlag Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltListType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltListType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltListType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltListType <ISO10303-11-EXPRESS> ENTITY list_type SUBTYPE OF ( variable_size_aggregation_type ); unique_flag : BOOLEAN; DERIVE accepted : entity_instance := SELF.accept_list_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltListType platypus-generated-initializing stepInitialize super stepInitialize. uniqueFlag := false. Platypus.PltListType platypus-generated-classifying isPltListType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltListType ^ false Platypus.PltListType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptListType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptListType: e "my subclasses have to redefine it" Platypus.PltListType platypus-generated-copying listTypeCopyTo:another another fastSetUniqueFlag: (self uniqueFlag). Platypus.PltListType platypus-generated-copying pltLocalCopyTo: another self listTypeCopyTo:another Platypus.PltListType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self listTypeCopyTo: another. Platypus.PltListType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltListType platypus-generated-group-accessing listTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setUniqueFlag:valuesloc removeFirst. ^ valuesloc Platypus.PltListType platypus-generated-group-accessing listTypeToValues:values values add: (self uniqueFlag). ^ values Platypus.PltListType platypus-generated-group-accessing toValues:values ^ self listTypeToValues: (super toValues: values) Platypus.PltListType platypus-generated-group-accessing fromValues:values ^ self listTypeFromValues: (super fromValues: values) Platypus.PltListType platypus-generated-group-accessing localFromValues: values ^ self listTypeFromValues:values Platypus.PltListType platypus-generated-group-accessing localToValues: values ^ self listTypeToValues:values Platypus.PltListType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltListType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltListType platypus-generated-accessing uniqueFlag ^uniqueFlag Platypus.PltListType platypus-generated-set-accessing setUniqueFlag:aBoolean self uniqueFlag:aBoolean Platypus.PltListType platypus-generated-accessing uniqueFlag:aBoolean uniqueFlag := aBoolean Platypus.PltListType platypus-generated-fast-set-accessing fastSetUniqueFlag:aBoolean uniqueFlag := aBoolean Platypus.PltListType platypus-generated-with-context-accessing uniqueFlagUsingContext:aContext ^ self uniqueFlag Platypus.PltListType platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltListType platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptListTypeUsingContext: aContext) Platypus.PltListType platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltBagType Platypus Platypus.PltVariableSizeAggregationType false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltBagType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltBagType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltBagType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltBagType <ISO10303-11-EXPRESS> ENTITY bag_type SUBTYPE OF ( variable_size_aggregation_type ); DERIVE accepted : entity_instance := SELF.accept_bag_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltBagType platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltBagType platypus-generated-classifying isPltBagType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltBagType ^ false Platypus.PltBagType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptBagType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptBagType: e "my subclasses have to redefine it" Platypus.PltBagType platypus-generated-copying bagTypeCopyTo:another Platypus.PltBagType platypus-generated-copying pltLocalCopyTo: another self bagTypeCopyTo:another Platypus.PltBagType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self bagTypeCopyTo: another. Platypus.PltBagType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltBagType platypus-generated-group-accessing bagTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltBagType platypus-generated-group-accessing bagTypeToValues:values ^ values Platypus.PltBagType platypus-generated-group-accessing toValues:values ^ self bagTypeToValues: (super toValues: values) Platypus.PltBagType platypus-generated-group-accessing fromValues:values ^ self bagTypeFromValues: (super fromValues: values) Platypus.PltBagType platypus-generated-group-accessing localFromValues: values ^ self bagTypeFromValues:values Platypus.PltBagType platypus-generated-group-accessing localToValues: values ^ self bagTypeToValues:values Platypus.PltBagType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltBagType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltBagType platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltBagType platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptBagTypeUsingContext: aContext) Platypus.PltBagType platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltSetType Platypus Platypus.PltVariableSizeAggregationType false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltSetType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSetType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSetType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSetType <ISO10303-11-EXPRESS> ENTITY set_type SUBTYPE OF ( variable_size_aggregation_type ); DERIVE accepted : entity_instance := SELF.accept_set_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSetType platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltSetType platypus-generated-classifying isPltSetType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltSetType ^ false Platypus.PltSetType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSetType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptSetType: e "my subclasses have to redefine it" Platypus.PltSetType platypus-generated-copying setTypeCopyTo:another Platypus.PltSetType platypus-generated-copying pltLocalCopyTo: another self setTypeCopyTo:another Platypus.PltSetType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self setTypeCopyTo: another. Platypus.PltSetType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSetType platypus-generated-group-accessing setTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltSetType platypus-generated-group-accessing setTypeToValues:values ^ values Platypus.PltSetType platypus-generated-group-accessing toValues:values ^ self setTypeToValues: (super toValues: values) Platypus.PltSetType platypus-generated-group-accessing fromValues:values ^ self setTypeFromValues: (super fromValues: values) Platypus.PltSetType platypus-generated-group-accessing localFromValues: values ^ self setTypeFromValues:values Platypus.PltSetType platypus-generated-group-accessing localToValues: values ^ self setTypeToValues:values Platypus.PltSetType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltSetType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltSetType platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltSetType platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptSetTypeUsingContext: aContext) Platypus.PltSetType platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltSimpleType Platypus Platypus.PltDictionaryInstance false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltSimpleType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSimpleType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSimpleType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSimpleType <ISO10303-11-EXPRESS> ENTITY simple_type ABSTRACT SUPERTYPE OF ( ONEOF ( string_type, binary_type, logical_type, number_type ) ) SUBTYPE OF ( dictionary_instance ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSimpleType platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltSimpleType platypus-generated-classifying isPltSimpleType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltSimpleType ^ false Platypus.PltSimpleType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSimpleType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptSimpleType: e "my subclasses have to redefine it" Platypus.PltSimpleType platypus-generated-copying simpleTypeCopyTo:another Platypus.PltSimpleType platypus-generated-copying pltLocalCopyTo: another self simpleTypeCopyTo:another Platypus.PltSimpleType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self simpleTypeCopyTo: another. Platypus.PltSimpleType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSimpleType platypus-generated-group-accessing simpleTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltSimpleType platypus-generated-group-accessing simpleTypeToValues:values ^ values Platypus.PltSimpleType platypus-generated-group-accessing toValues:values ^ self simpleTypeToValues: (super toValues: values) Platypus.PltSimpleType platypus-generated-group-accessing fromValues:values ^ self simpleTypeFromValues: (super fromValues: values) Platypus.PltSimpleType platypus-generated-group-accessing localFromValues: values ^ self simpleTypeFromValues:values Platypus.PltSimpleType platypus-generated-group-accessing localToValues: values ^ self simpleTypeToValues:values Platypus.PltSimpleType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltSimpleType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltStringType Platypus Platypus.PltSimpleType false none width fixedWidth Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltStringType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltStringType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltStringType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltStringType <ISO10303-11-EXPRESS> ENTITY string_type SUBTYPE OF ( simple_type ); width : OPTIONAL bound; fixed_width : BOOLEAN; DERIVE accepted : entity_instance := SELF.accept_string_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltStringType platypus-generated-initializing stepInitialize super stepInitialize. width := nil. fixedWidth := false. Platypus.PltStringType platypus-generated-classifying isPltStringType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltStringType ^ false Platypus.PltStringType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptStringType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptStringType: e "my subclasses have to redefine it" Platypus.PltStringType platypus-generated-copying stringTypeCopyTo:another another fastSetWidth: (self width). another fastSetFixedWidth: (self fixedWidth). Platypus.PltStringType platypus-generated-copying pltLocalCopyTo: another self stringTypeCopyTo:another Platypus.PltStringType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self stringTypeCopyTo: another. Platypus.PltStringType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltStringType platypus-generated-group-accessing stringTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setWidth:valuesloc removeFirst. self setFixedWidth:valuesloc removeFirst. ^ valuesloc Platypus.PltStringType platypus-generated-group-accessing stringTypeToValues:values values add: (self width). values add: (self fixedWidth). ^ values Platypus.PltStringType platypus-generated-group-accessing toValues:values ^ self stringTypeToValues: (super toValues: values) Platypus.PltStringType platypus-generated-group-accessing fromValues:values ^ self stringTypeFromValues: (super fromValues: values) Platypus.PltStringType platypus-generated-group-accessing localFromValues: values ^ self stringTypeFromValues:values Platypus.PltStringType platypus-generated-group-accessing localToValues: values ^ self stringTypeToValues:values Platypus.PltStringType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltStringType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltStringType platypus-generated-accessing width ^width Platypus.PltStringType platypus-generated-set-accessing setWidth:aPltBound self width:aPltBound Platypus.PltStringType platypus-generated-accessing width:aPltBound width := aPltBound Platypus.PltStringType platypus-generated-fast-set-accessing fastSetWidth:aPltBound width := aPltBound Platypus.PltStringType platypus-generated-with-context-accessing widthUsingContext:aContext ^ self width Platypus.PltStringType platypus-generated-accessing fixedWidth ^fixedWidth Platypus.PltStringType platypus-generated-set-accessing setFixedWidth:aBoolean self fixedWidth:aBoolean Platypus.PltStringType platypus-generated-accessing fixedWidth:aBoolean fixedWidth := aBoolean Platypus.PltStringType platypus-generated-fast-set-accessing fastSetFixedWidth:aBoolean fixedWidth := aBoolean Platypus.PltStringType platypus-generated-with-context-accessing fixedWidthUsingContext:aContext ^ self fixedWidth Platypus.PltStringType platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltStringType platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptStringTypeUsingContext: aContext) Platypus.PltStringType platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltBinaryType Platypus Platypus.PltSimpleType false none width fixedWidth Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltBinaryType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltBinaryType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltBinaryType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltBinaryType <ISO10303-11-EXPRESS> ENTITY binary_type SUBTYPE OF ( simple_type ); width : OPTIONAL bound; fixed_width : BOOLEAN; DERIVE accepted : entity_instance := SELF.accept_binary_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltBinaryType platypus-generated-initializing stepInitialize super stepInitialize. width := nil. fixedWidth := false. Platypus.PltBinaryType platypus-generated-classifying isPltBinaryType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltBinaryType ^ false Platypus.PltBinaryType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptBinaryType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptBinaryType: e "my subclasses have to redefine it" Platypus.PltBinaryType platypus-generated-copying binaryTypeCopyTo:another another fastSetWidth: (self width). another fastSetFixedWidth: (self fixedWidth). Platypus.PltBinaryType platypus-generated-copying pltLocalCopyTo: another self binaryTypeCopyTo:another Platypus.PltBinaryType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self binaryTypeCopyTo: another. Platypus.PltBinaryType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltBinaryType platypus-generated-group-accessing binaryTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setWidth:valuesloc removeFirst. self setFixedWidth:valuesloc removeFirst. ^ valuesloc Platypus.PltBinaryType platypus-generated-group-accessing binaryTypeToValues:values values add: (self width). values add: (self fixedWidth). ^ values Platypus.PltBinaryType platypus-generated-group-accessing toValues:values ^ self binaryTypeToValues: (super toValues: values) Platypus.PltBinaryType platypus-generated-group-accessing fromValues:values ^ self binaryTypeFromValues: (super fromValues: values) Platypus.PltBinaryType platypus-generated-group-accessing localFromValues: values ^ self binaryTypeFromValues:values Platypus.PltBinaryType platypus-generated-group-accessing localToValues: values ^ self binaryTypeToValues:values Platypus.PltBinaryType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltBinaryType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltBinaryType platypus-generated-accessing width ^width Platypus.PltBinaryType platypus-generated-set-accessing setWidth:aPltBound self width:aPltBound Platypus.PltBinaryType platypus-generated-accessing width:aPltBound width := aPltBound Platypus.PltBinaryType platypus-generated-fast-set-accessing fastSetWidth:aPltBound width := aPltBound Platypus.PltBinaryType platypus-generated-with-context-accessing widthUsingContext:aContext ^ self width Platypus.PltBinaryType platypus-generated-accessing fixedWidth ^fixedWidth Platypus.PltBinaryType platypus-generated-set-accessing setFixedWidth:aBoolean self fixedWidth:aBoolean Platypus.PltBinaryType platypus-generated-accessing fixedWidth:aBoolean fixedWidth := aBoolean Platypus.PltBinaryType platypus-generated-fast-set-accessing fastSetFixedWidth:aBoolean fixedWidth := aBoolean Platypus.PltBinaryType platypus-generated-with-context-accessing fixedWidthUsingContext:aContext ^ self fixedWidth Platypus.PltBinaryType platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltBinaryType platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptBinaryTypeUsingContext: aContext) Platypus.PltBinaryType platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltNumberType Platypus Platypus.PltSimpleType false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltNumberType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltNumberType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltNumberType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltNumberType <ISO10303-11-EXPRESS> ENTITY number_type SUBTYPE OF ( simple_type ); DERIVE accepted : entity_instance := SELF.accept_number_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltNumberType platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltNumberType platypus-generated-classifying isPltNumberType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltNumberType ^ false Platypus.PltNumberType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptNumberType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptNumberType: e "my subclasses have to redefine it" Platypus.PltNumberType platypus-generated-copying numberTypeCopyTo:another Platypus.PltNumberType platypus-generated-copying pltLocalCopyTo: another self numberTypeCopyTo:another Platypus.PltNumberType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self numberTypeCopyTo: another. Platypus.PltNumberType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltNumberType platypus-generated-group-accessing numberTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltNumberType platypus-generated-group-accessing numberTypeToValues:values ^ values Platypus.PltNumberType platypus-generated-group-accessing toValues:values ^ self numberTypeToValues: (super toValues: values) Platypus.PltNumberType platypus-generated-group-accessing fromValues:values ^ self numberTypeFromValues: (super fromValues: values) Platypus.PltNumberType platypus-generated-group-accessing localFromValues: values ^ self numberTypeFromValues:values Platypus.PltNumberType platypus-generated-group-accessing localToValues: values ^ self numberTypeToValues:values Platypus.PltNumberType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltNumberType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltNumberType platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltNumberType platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptNumberTypeUsingContext: aContext) Platypus.PltNumberType platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltRealType Platypus Platypus.PltNumberType false none precision Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltRealType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltRealType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltRealType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltRealType <ISO10303-11-EXPRESS> ENTITY real_type SUBTYPE OF ( number_type ); precision : OPTIONAL bound; DERIVE SELF\number_type.accepted : entity_instance := SELF.accept_real_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltRealType platypus-generated-initializing stepInitialize super stepInitialize. precision := nil. Platypus.PltRealType platypus-generated-classifying isPltRealType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltRealType ^ false Platypus.PltRealType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptRealType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptRealType: e "my subclasses have to redefine it" Platypus.PltRealType platypus-generated-copying realTypeCopyTo:another another fastSetPrecision: (self precision). Platypus.PltRealType platypus-generated-copying pltLocalCopyTo: another self realTypeCopyTo:another Platypus.PltRealType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self realTypeCopyTo: another. Platypus.PltRealType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltRealType platypus-generated-group-accessing realTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setPrecision:valuesloc removeFirst. ^ valuesloc Platypus.PltRealType platypus-generated-group-accessing realTypeToValues:values values add: (self precision). ^ values Platypus.PltRealType platypus-generated-group-accessing toValues:values ^ self realTypeToValues: (super toValues: values) Platypus.PltRealType platypus-generated-group-accessing fromValues:values ^ self realTypeFromValues: (super fromValues: values) Platypus.PltRealType platypus-generated-group-accessing localFromValues: values ^ self realTypeFromValues:values Platypus.PltRealType platypus-generated-group-accessing localToValues: values ^ self realTypeToValues:values Platypus.PltRealType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltRealType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltRealType platypus-generated-accessing precision ^precision Platypus.PltRealType platypus-generated-set-accessing setPrecision:aPltBound self precision:aPltBound Platypus.PltRealType platypus-generated-accessing precision:aPltBound precision := aPltBound Platypus.PltRealType platypus-generated-fast-set-accessing fastSetPrecision:aPltBound precision := aPltBound Platypus.PltRealType platypus-generated-with-context-accessing precisionUsingContext:aContext ^ self precision Platypus.PltRealType platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltRealType platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptRealTypeUsingContext: aContext) Platypus.PltRealType platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltIntegerType Platypus Platypus.PltNumberType false none precision Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltIntegerType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltIntegerType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltIntegerType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltIntegerType <ISO10303-11-EXPRESS> ENTITY integer_type SUBTYPE OF ( number_type ); precision : OPTIONAL bound; DERIVE SELF\number_type.accepted : entity_instance := SELF.accept_integer_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltIntegerType platypus-generated-initializing stepInitialize super stepInitialize. precision := nil. Platypus.PltIntegerType platypus-generated-classifying isPltIntegerType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltIntegerType ^ false Platypus.PltIntegerType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptIntegerType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptIntegerType: e "my subclasses have to redefine it" Platypus.PltIntegerType platypus-generated-copying integerTypeCopyTo:another another fastSetPrecision: (self precision). Platypus.PltIntegerType platypus-generated-copying pltLocalCopyTo: another self integerTypeCopyTo:another Platypus.PltIntegerType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self integerTypeCopyTo: another. Platypus.PltIntegerType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltIntegerType platypus-generated-group-accessing integerTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setPrecision:valuesloc removeFirst. ^ valuesloc Platypus.PltIntegerType platypus-generated-group-accessing integerTypeToValues:values values add: (self precision). ^ values Platypus.PltIntegerType platypus-generated-group-accessing toValues:values ^ self integerTypeToValues: (super toValues: values) Platypus.PltIntegerType platypus-generated-group-accessing fromValues:values ^ self integerTypeFromValues: (super fromValues: values) Platypus.PltIntegerType platypus-generated-group-accessing localFromValues: values ^ self integerTypeFromValues:values Platypus.PltIntegerType platypus-generated-group-accessing localToValues: values ^ self integerTypeToValues:values Platypus.PltIntegerType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltIntegerType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltIntegerType platypus-generated-accessing precision ^precision Platypus.PltIntegerType platypus-generated-set-accessing setPrecision:aPltBound self precision:aPltBound Platypus.PltIntegerType platypus-generated-accessing precision:aPltBound precision := aPltBound Platypus.PltIntegerType platypus-generated-fast-set-accessing fastSetPrecision:aPltBound precision := aPltBound Platypus.PltIntegerType platypus-generated-with-context-accessing precisionUsingContext:aContext ^ self precision Platypus.PltIntegerType platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltIntegerType platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptIntegerTypeUsingContext: aContext) Platypus.PltIntegerType platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltLogicalType Platypus Platypus.PltSimpleType false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltLogicalType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltLogicalType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltLogicalType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltLogicalType <ISO10303-11-EXPRESS> ENTITY logical_type SUBTYPE OF ( simple_type ); DERIVE accepted : entity_instance := SELF.accept_logical_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltLogicalType platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltLogicalType platypus-generated-classifying isPltLogicalType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltLogicalType ^ false Platypus.PltLogicalType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptLogicalType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptLogicalType: e "my subclasses have to redefine it" Platypus.PltLogicalType platypus-generated-copying logicalTypeCopyTo:another Platypus.PltLogicalType platypus-generated-copying pltLocalCopyTo: another self logicalTypeCopyTo:another Platypus.PltLogicalType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self logicalTypeCopyTo: another. Platypus.PltLogicalType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltLogicalType platypus-generated-group-accessing logicalTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltLogicalType platypus-generated-group-accessing logicalTypeToValues:values ^ values Platypus.PltLogicalType platypus-generated-group-accessing toValues:values ^ self logicalTypeToValues: (super toValues: values) Platypus.PltLogicalType platypus-generated-group-accessing fromValues:values ^ self logicalTypeFromValues: (super fromValues: values) Platypus.PltLogicalType platypus-generated-group-accessing localFromValues: values ^ self logicalTypeFromValues:values Platypus.PltLogicalType platypus-generated-group-accessing localToValues: values ^ self logicalTypeToValues:values Platypus.PltLogicalType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltLogicalType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltLogicalType platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltLogicalType platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptLogicalTypeUsingContext: aContext) Platypus.PltLogicalType platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltBooleanType Platypus Platypus.PltLogicalType false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltBooleanType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltBooleanType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltBooleanType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltBooleanType <ISO10303-11-EXPRESS> ENTITY boolean_type SUBTYPE OF ( logical_type ); DERIVE SELF\logical_type.accepted : entity_instance := SELF.accept_boolean_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltBooleanType platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltBooleanType platypus-generated-classifying isPltBooleanType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltBooleanType ^ false Platypus.PltBooleanType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptBooleanType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptBooleanType: e "my subclasses have to redefine it" Platypus.PltBooleanType platypus-generated-copying booleanTypeCopyTo:another Platypus.PltBooleanType platypus-generated-copying pltLocalCopyTo: another self booleanTypeCopyTo:another Platypus.PltBooleanType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self booleanTypeCopyTo: another. Platypus.PltBooleanType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltBooleanType platypus-generated-group-accessing booleanTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltBooleanType platypus-generated-group-accessing booleanTypeToValues:values ^ values Platypus.PltBooleanType platypus-generated-group-accessing toValues:values ^ self booleanTypeToValues: (super toValues: values) Platypus.PltBooleanType platypus-generated-group-accessing fromValues:values ^ self booleanTypeFromValues: (super fromValues: values) Platypus.PltBooleanType platypus-generated-group-accessing localFromValues: values ^ self booleanTypeFromValues:values Platypus.PltBooleanType platypus-generated-group-accessing localToValues: values ^ self booleanTypeToValues:values Platypus.PltBooleanType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltBooleanType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltBooleanType platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltBooleanType platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptBooleanTypeUsingContext: aContext) Platypus.PltBooleanType platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltConstantDefinition Platypus Platypus.PltDictionaryInstance false none domain name initializer Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltConstantDefinition class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltConstantDefinition class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltConstantDefinition class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltConstantDefinition <ISO10303-11-EXPRESS> ENTITY constant_definition SUBTYPE OF ( dictionary_instance ); name : STRING; domain : base_type; initializer : expression; SELF\entity_instance.owner : context_definition; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltConstantDefinition platypus-generated-initializing stepInitialize super stepInitialize. name := ''. domain := nil. initializer := nil. owner := nil. Platypus.PltConstantDefinition platypus-generated-classifying isPltConstantDefinition ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltConstantDefinition ^ false Platypus.PltConstantDefinition platypus-generated-visiting accept: aVisitor ^ aVisitor acceptConstantDefinition: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptConstantDefinition: e "my subclasses have to redefine it" Platypus.PltConstantDefinition platypus-generated-copying constantDefinitionCopyTo:another another fastSetName: (self name). another fastSetDomain: (self domain). another fastSetInitializer: (self initializer). another fastSetOwner: (self owner). Platypus.PltConstantDefinition platypus-generated-copying pltLocalCopyTo: another self constantDefinitionCopyTo:another Platypus.PltConstantDefinition platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self constantDefinitionCopyTo: another. Platypus.PltConstantDefinition platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltConstantDefinition platypus-generated-group-accessing constantDefinitionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setName:valuesloc removeFirst. self setDomain:valuesloc removeFirst. self setInitializer:valuesloc removeFirst. self setOwner:valuesloc removeFirst. ^ valuesloc Platypus.PltConstantDefinition platypus-generated-group-accessing constantDefinitionToValues:values values add: (self name). values add: (self domain). values add: (self initializer). values add: (self owner). ^ values Platypus.PltConstantDefinition platypus-generated-group-accessing toValues:values ^ self constantDefinitionToValues: (super toValues: values) Platypus.PltConstantDefinition platypus-generated-group-accessing fromValues:values ^ self constantDefinitionFromValues: (super fromValues: values) Platypus.PltConstantDefinition platypus-generated-group-accessing localFromValues: values ^ self constantDefinitionFromValues:values Platypus.PltConstantDefinition platypus-generated-group-accessing localToValues: values ^ self constantDefinitionToValues:values Platypus.PltConstantDefinition class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltConstantDefinition class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltConstantDefinition platypus-generated-accessing name ^name Platypus.PltConstantDefinition platypus-generated-set-accessing setName:aString self name:aString Platypus.PltConstantDefinition platypus-generated-accessing name:aString name := aString Platypus.PltConstantDefinition platypus-generated-fast-set-accessing fastSetName:aString name := aString Platypus.PltConstantDefinition platypus-generated-with-context-accessing nameUsingContext:aContext ^ self name Platypus.PltConstantDefinition platypus-generated-accessing domain ^domain Platypus.PltConstantDefinition platypus-generated-set-accessing setDomain:aPltBaseType self domain:aPltBaseType Platypus.PltConstantDefinition platypus-generated-accessing domain:aPltBaseType domain := aPltBaseType Platypus.PltConstantDefinition platypus-generated-fast-set-accessing fastSetDomain:aPltBaseType domain := aPltBaseType Platypus.PltConstantDefinition platypus-generated-with-context-accessing domainUsingContext:aContext ^ self domain Platypus.PltConstantDefinition platypus-generated-accessing initializer ^initializer Platypus.PltConstantDefinition platypus-generated-set-accessing setInitializer:aPltExpression self initializer:aPltExpression Platypus.PltConstantDefinition platypus-generated-accessing initializer:aPltExpression initializer := aPltExpression Platypus.PltConstantDefinition platypus-generated-fast-set-accessing fastSetInitializer:aPltExpression initializer := aPltExpression Platypus.PltConstantDefinition platypus-generated-with-context-accessing initializerUsingContext:aContext ^ self initializer Platypus.PltConstantDefinition platypus-generated-accessing owner ^owner Platypus.PltConstantDefinition platypus-generated-set-accessing setOwner:aPltContextDefinition self owner:aPltContextDefinition Platypus.PltConstantDefinition platypus-generated-accessing owner:aPltContextDefinition owner := aPltContextDefinition Platypus.PltConstantDefinition platypus-generated-fast-set-accessing fastSetOwner:aPltContextDefinition owner := aPltContextDefinition Platypus.PltConstantDefinition platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltLocalVariable Platypus Platypus.PltDictionaryInstance false none domain name initializer Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltLocalVariable class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltLocalVariable class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltLocalVariable class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltLocalVariable <ISO10303-11-EXPRESS> ENTITY local_variable SUBTYPE OF ( dictionary_instance ); SELF\entity_instance.owner : statements_container; name : STRING; domain : parameter_type; initializer : OPTIONAL expression; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltLocalVariable platypus-generated-initializing stepInitialize super stepInitialize. owner := nil. name := ''. domain := nil. initializer := nil. Platypus.PltLocalVariable platypus-generated-classifying isPltLocalVariable ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltLocalVariable ^ false Platypus.PltLocalVariable platypus-generated-visiting accept: aVisitor ^ aVisitor acceptLocalVariable: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptLocalVariable: e "my subclasses have to redefine it" Platypus.PltLocalVariable platypus-generated-copying localVariableCopyTo:another another fastSetOwner: (self owner). another fastSetName: (self name). another fastSetDomain: (self domain). another fastSetInitializer: (self initializer). Platypus.PltLocalVariable platypus-generated-copying pltLocalCopyTo: another self localVariableCopyTo:another Platypus.PltLocalVariable platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self localVariableCopyTo: another. Platypus.PltLocalVariable platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltLocalVariable platypus-generated-group-accessing localVariableFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setOwner:valuesloc removeFirst. self setName:valuesloc removeFirst. self setDomain:valuesloc removeFirst. self setInitializer:valuesloc removeFirst. ^ valuesloc Platypus.PltLocalVariable platypus-generated-group-accessing localVariableToValues:values values add: (self owner). values add: (self name). values add: (self domain). values add: (self initializer). ^ values Platypus.PltLocalVariable platypus-generated-group-accessing toValues:values ^ self localVariableToValues: (super toValues: values) Platypus.PltLocalVariable platypus-generated-group-accessing fromValues:values ^ self localVariableFromValues: (super fromValues: values) Platypus.PltLocalVariable platypus-generated-group-accessing localFromValues: values ^ self localVariableFromValues:values Platypus.PltLocalVariable platypus-generated-group-accessing localToValues: values ^ self localVariableToValues:values Platypus.PltLocalVariable class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltLocalVariable class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltLocalVariable platypus-generated-accessing owner ^owner Platypus.PltLocalVariable platypus-generated-set-accessing setOwner:aPltStatementsContainer self owner:aPltStatementsContainer Platypus.PltLocalVariable platypus-generated-accessing owner:aPltStatementsContainer owner := aPltStatementsContainer Platypus.PltLocalVariable platypus-generated-fast-set-accessing fastSetOwner:aPltStatementsContainer owner := aPltStatementsContainer Platypus.PltLocalVariable platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus.PltLocalVariable platypus-generated-accessing name ^name Platypus.PltLocalVariable platypus-generated-set-accessing setName:aString self name:aString Platypus.PltLocalVariable platypus-generated-accessing name:aString name := aString Platypus.PltLocalVariable platypus-generated-fast-set-accessing fastSetName:aString name := aString Platypus.PltLocalVariable platypus-generated-with-context-accessing nameUsingContext:aContext ^ self name Platypus.PltLocalVariable platypus-generated-accessing domain ^domain Platypus.PltLocalVariable platypus-generated-set-accessing setDomain:aPltParameterType self domain:aPltParameterType Platypus.PltLocalVariable platypus-generated-accessing domain:aPltParameterType domain := aPltParameterType Platypus.PltLocalVariable platypus-generated-fast-set-accessing fastSetDomain:aPltParameterType domain := aPltParameterType Platypus.PltLocalVariable platypus-generated-with-context-accessing domainUsingContext:aContext ^ self domain Platypus.PltLocalVariable platypus-generated-accessing initializer ^initializer Platypus.PltLocalVariable platypus-generated-set-accessing setInitializer:aPltExpression self initializer:aPltExpression Platypus.PltLocalVariable platypus-generated-accessing initializer:aPltExpression initializer := aPltExpression Platypus.PltLocalVariable platypus-generated-fast-set-accessing fastSetInitializer:aPltExpression initializer := aPltExpression Platypus.PltLocalVariable platypus-generated-with-context-accessing initializerUsingContext:aContext ^ self initializer Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltParameterDefinition Platypus Platypus.PltDictionaryInstance false none domain byCopy name Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltParameterDefinition class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltParameterDefinition class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltParameterDefinition class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltParameterDefinition <ISO10303-11-EXPRESS> ENTITY parameter_definition SUBTYPE OF ( dictionary_instance ); SELF\entity_instance.owner : algorithm_declaration; name : STRING; by_copy : BOOLEAN; domain : parameter_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltParameterDefinition platypus-generated-initializing stepInitialize super stepInitialize. owner := nil. name := ''. byCopy := false. domain := nil. Platypus.PltParameterDefinition platypus-generated-classifying isPltParameterDefinition ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltParameterDefinition ^ false Platypus.PltParameterDefinition platypus-generated-visiting accept: aVisitor ^ aVisitor acceptParameterDefinition: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptParameterDefinition: e "my subclasses have to redefine it" Platypus.PltParameterDefinition platypus-generated-copying parameterDefinitionCopyTo:another another fastSetOwner: (self owner). another fastSetName: (self name). another fastSetByCopy: (self byCopy). another fastSetDomain: (self domain). Platypus.PltParameterDefinition platypus-generated-copying pltLocalCopyTo: another self parameterDefinitionCopyTo:another Platypus.PltParameterDefinition platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self parameterDefinitionCopyTo: another. Platypus.PltParameterDefinition platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltParameterDefinition platypus-generated-group-accessing parameterDefinitionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setOwner:valuesloc removeFirst. self setName:valuesloc removeFirst. self setByCopy:valuesloc removeFirst. self setDomain:valuesloc removeFirst. ^ valuesloc Platypus.PltParameterDefinition platypus-generated-group-accessing parameterDefinitionToValues:values values add: (self owner). values add: (self name). values add: (self byCopy). values add: (self domain). ^ values Platypus.PltParameterDefinition platypus-generated-group-accessing toValues:values ^ self parameterDefinitionToValues: (super toValues: values) Platypus.PltParameterDefinition platypus-generated-group-accessing fromValues:values ^ self parameterDefinitionFromValues: (super fromValues: values) Platypus.PltParameterDefinition platypus-generated-group-accessing localFromValues: values ^ self parameterDefinitionFromValues:values Platypus.PltParameterDefinition platypus-generated-group-accessing localToValues: values ^ self parameterDefinitionToValues:values Platypus.PltParameterDefinition class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltParameterDefinition class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltParameterDefinition platypus-generated-accessing owner ^owner Platypus.PltParameterDefinition platypus-generated-set-accessing setOwner:aPltAlgorithmDeclaration self owner:aPltAlgorithmDeclaration Platypus.PltParameterDefinition platypus-generated-accessing owner:aPltAlgorithmDeclaration owner := aPltAlgorithmDeclaration Platypus.PltParameterDefinition platypus-generated-fast-set-accessing fastSetOwner:aPltAlgorithmDeclaration owner := aPltAlgorithmDeclaration Platypus.PltParameterDefinition platypus-generated-with-context-accessing ownerUsingContext:aContext ^ self owner Platypus.PltParameterDefinition platypus-generated-accessing name ^name Platypus.PltParameterDefinition platypus-generated-set-accessing setName:aString self name:aString Platypus.PltParameterDefinition platypus-generated-accessing name:aString name := aString Platypus.PltParameterDefinition platypus-generated-fast-set-accessing fastSetName:aString name := aString Platypus.PltParameterDefinition platypus-generated-with-context-accessing nameUsingContext:aContext ^ self name Platypus.PltParameterDefinition platypus-generated-accessing byCopy ^byCopy Platypus.PltParameterDefinition platypus-generated-set-accessing setByCopy:aBoolean self byCopy:aBoolean Platypus.PltParameterDefinition platypus-generated-accessing byCopy:aBoolean byCopy := aBoolean Platypus.PltParameterDefinition platypus-generated-fast-set-accessing fastSetByCopy:aBoolean byCopy := aBoolean Platypus.PltParameterDefinition platypus-generated-with-context-accessing byCopyUsingContext:aContext ^ self byCopy Platypus.PltParameterDefinition platypus-generated-accessing domain ^domain Platypus.PltParameterDefinition platypus-generated-set-accessing setDomain:aPltParameterType self domain:aPltParameterType Platypus.PltParameterDefinition platypus-generated-accessing domain:aPltParameterType domain := aPltParameterType Platypus.PltParameterDefinition platypus-generated-fast-set-accessing fastSetDomain:aPltParameterType domain := aPltParameterType Platypus.PltParameterDefinition platypus-generated-with-context-accessing domainUsingContext:aContext ^ self domain Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltGenericType Platypus Platypus.PltDictionaryInstance false none typeLabel Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltGenericType class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltGenericType class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltGenericType class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltGenericType <ISO10303-11-EXPRESS> ENTITY generic_type SUBTYPE OF ( dictionary_instance ); type_label : OPTIONAL STRING; DERIVE accepted : entity_instance := SELF.accept_generic_type; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltGenericType platypus-generated-initializing stepInitialize super stepInitialize. typeLabel := nil. Platypus.PltGenericType platypus-generated-classifying isPltGenericType ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltGenericType ^ false Platypus.PltGenericType platypus-generated-visiting accept: aVisitor ^ aVisitor acceptGenericType: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptGenericType: e "my subclasses have to redefine it" Platypus.PltGenericType platypus-generated-copying genericTypeCopyTo:another another fastSetTypeLabel: (self typeLabel). Platypus.PltGenericType platypus-generated-copying pltLocalCopyTo: another self genericTypeCopyTo:another Platypus.PltGenericType platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self genericTypeCopyTo: another. Platypus.PltGenericType platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltGenericType platypus-generated-group-accessing genericTypeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setTypeLabel:valuesloc removeFirst. ^ valuesloc Platypus.PltGenericType platypus-generated-group-accessing genericTypeToValues:values values add: (self typeLabel). ^ values Platypus.PltGenericType platypus-generated-group-accessing toValues:values ^ self genericTypeToValues: (super toValues: values) Platypus.PltGenericType platypus-generated-group-accessing fromValues:values ^ self genericTypeFromValues: (super fromValues: values) Platypus.PltGenericType platypus-generated-group-accessing localFromValues: values ^ self genericTypeFromValues:values Platypus.PltGenericType platypus-generated-group-accessing localToValues: values ^ self genericTypeToValues:values Platypus.PltGenericType class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltGenericType class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltGenericType platypus-generated-accessing typeLabel ^typeLabel Platypus.PltGenericType platypus-generated-set-accessing setTypeLabel:aString self typeLabel:aString Platypus.PltGenericType platypus-generated-accessing typeLabel:aString typeLabel := aString Platypus.PltGenericType platypus-generated-fast-set-accessing fastSetTypeLabel:aString typeLabel := aString Platypus.PltGenericType platypus-generated-with-context-accessing typeLabelUsingContext:aContext ^ self typeLabel Platypus.PltGenericType platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltGenericType platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptGenericTypeUsingContext: aContext) Platypus.PltGenericType platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltRemark Platypus Platypus.PltEntityInstance false none text Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltRemark class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltRemark class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltRemark class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltRemark <ISO10303-11-EXPRESS> ENTITY remark ABSTRACT SUPERTYPE OF ( ONEOF ( tail_remark, embedded_remark ) ) SUBTYPE OF ( entity_instance ); text : STRING; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltRemark platypus-generated-initializing stepInitialize super stepInitialize. text := ''. Platypus.PltRemark platypus-generated-classifying isPltRemark ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltRemark ^ false Platypus.PltRemark platypus-generated-visiting accept: aVisitor ^ aVisitor acceptRemark: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptRemark: e "my subclasses have to redefine it" Platypus.PltRemark platypus-generated-copying remarkCopyTo:another another fastSetText: (self text). Platypus.PltRemark platypus-generated-copying pltLocalCopyTo: another self remarkCopyTo:another Platypus.PltRemark platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self remarkCopyTo: another. Platypus.PltRemark platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltRemark platypus-generated-group-accessing remarkFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setText:valuesloc removeFirst. ^ valuesloc Platypus.PltRemark platypus-generated-group-accessing remarkToValues:values values add: (self text). ^ values Platypus.PltRemark platypus-generated-group-accessing toValues:values ^ self remarkToValues: (super toValues: values) Platypus.PltRemark platypus-generated-group-accessing fromValues:values ^ self remarkFromValues: (super fromValues: values) Platypus.PltRemark platypus-generated-group-accessing localFromValues: values ^ self remarkFromValues:values Platypus.PltRemark platypus-generated-group-accessing localToValues: values ^ self remarkToValues:values Platypus.PltRemark class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltRemark class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltRemark platypus-generated-accessing text ^text Platypus.PltRemark platypus-generated-set-accessing setText:aString self text:aString Platypus.PltRemark platypus-generated-accessing text:aString text := aString Platypus.PltRemark platypus-generated-fast-set-accessing fastSetText:aString text := aString Platypus.PltRemark platypus-generated-with-context-accessing textUsingContext:aContext ^ self text Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltTailRemark Platypus Platypus.PltRemark false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltTailRemark class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltTailRemark class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltTailRemark class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltTailRemark <ISO10303-11-EXPRESS> ENTITY tail_remark SUBTYPE OF ( remark ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltTailRemark platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltTailRemark platypus-generated-classifying isPltTailRemark ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltTailRemark ^ false Platypus.PltTailRemark platypus-generated-visiting accept: aVisitor ^ aVisitor acceptTailRemark: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptTailRemark: e "my subclasses have to redefine it" Platypus.PltTailRemark platypus-generated-copying tailRemarkCopyTo:another Platypus.PltTailRemark platypus-generated-copying pltLocalCopyTo: another self tailRemarkCopyTo:another Platypus.PltTailRemark platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self tailRemarkCopyTo: another. Platypus.PltTailRemark platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltTailRemark platypus-generated-group-accessing tailRemarkFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltTailRemark platypus-generated-group-accessing tailRemarkToValues:values ^ values Platypus.PltTailRemark platypus-generated-group-accessing toValues:values ^ self tailRemarkToValues: (super toValues: values) Platypus.PltTailRemark platypus-generated-group-accessing fromValues:values ^ self tailRemarkFromValues: (super fromValues: values) Platypus.PltTailRemark platypus-generated-group-accessing localFromValues: values ^ self tailRemarkFromValues:values Platypus.PltTailRemark platypus-generated-group-accessing localToValues: values ^ self tailRemarkToValues:values Platypus.PltTailRemark class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltTailRemark class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltEmbeddedRemark Platypus Platypus.PltRemark false none Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltEmbeddedRemark class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltEmbeddedRemark class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltEmbeddedRemark class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltEmbeddedRemark <ISO10303-11-EXPRESS> ENTITY embedded_remark SUBTYPE OF ( remark ); END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltEmbeddedRemark platypus-generated-initializing stepInitialize super stepInitialize. Platypus.PltEmbeddedRemark platypus-generated-classifying isPltEmbeddedRemark ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltEmbeddedRemark ^ false Platypus.PltEmbeddedRemark platypus-generated-visiting accept: aVisitor ^ aVisitor acceptEmbeddedRemark: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptEmbeddedRemark: e "my subclasses have to redefine it" Platypus.PltEmbeddedRemark platypus-generated-copying embeddedRemarkCopyTo:another Platypus.PltEmbeddedRemark platypus-generated-copying pltLocalCopyTo: another self embeddedRemarkCopyTo:another Platypus.PltEmbeddedRemark platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self embeddedRemarkCopyTo: another. Platypus.PltEmbeddedRemark platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltEmbeddedRemark platypus-generated-group-accessing embeddedRemarkFromValues:values | valuesloc |valuesloc := values asOrderedCollection. ^ valuesloc Platypus.PltEmbeddedRemark platypus-generated-group-accessing embeddedRemarkToValues:values ^ values Platypus.PltEmbeddedRemark platypus-generated-group-accessing toValues:values ^ self embeddedRemarkToValues: (super toValues: values) Platypus.PltEmbeddedRemark platypus-generated-group-accessing fromValues:values ^ self embeddedRemarkFromValues: (super fromValues: values) Platypus.PltEmbeddedRemark platypus-generated-group-accessing localFromValues: values ^ self embeddedRemarkFromValues:values Platypus.PltEmbeddedRemark platypus-generated-group-accessing localToValues: values ^ self embeddedRemarkToValues:values Platypus.PltEmbeddedRemark class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltEmbeddedRemark class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltRemarkReference Platypus Platypus.PltDictionaryInstance false none suffix inside prefix remark referenced Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltRemarkReference class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltRemarkReference class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltRemarkReference class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltRemarkReference <ISO10303-11-EXPRESS> ENTITY remark_reference SUBTYPE OF ( dictionary_instance ); prefix : STRING; suffix : OPTIONAL STRING; inside : dictionary_instance_reference; referenced : dictionary_instance_reference; remark : remark; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltRemarkReference platypus-generated-initializing stepInitialize super stepInitialize. prefix := ''. suffix := nil. inside := nil. referenced := nil. remark := nil. Platypus.PltRemarkReference platypus-generated-classifying isPltRemarkReference ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltRemarkReference ^ false Platypus.PltRemarkReference platypus-generated-visiting accept: aVisitor ^ aVisitor acceptRemarkReference: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptRemarkReference: e "my subclasses have to redefine it" Platypus.PltRemarkReference platypus-generated-copying remarkReferenceCopyTo:another another fastSetPrefix: (self prefix). another fastSetSuffix: (self suffix). another fastSetInside: (self inside). another fastSetReferenced: (self referenced). another fastSetRemark: (self remark). Platypus.PltRemarkReference platypus-generated-copying pltLocalCopyTo: another self remarkReferenceCopyTo:another Platypus.PltRemarkReference platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self remarkReferenceCopyTo: another. Platypus.PltRemarkReference platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltRemarkReference platypus-generated-group-accessing remarkReferenceFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setPrefix:valuesloc removeFirst. self setSuffix:valuesloc removeFirst. self setInside:valuesloc removeFirst. self setReferenced:valuesloc removeFirst. self setRemark:valuesloc removeFirst. ^ valuesloc Platypus.PltRemarkReference platypus-generated-group-accessing remarkReferenceToValues:values values add: (self prefix). values add: (self suffix). values add: (self inside). values add: (self referenced). values add: (self remark). ^ values Platypus.PltRemarkReference platypus-generated-group-accessing toValues:values ^ self remarkReferenceToValues: (super toValues: values) Platypus.PltRemarkReference platypus-generated-group-accessing fromValues:values ^ self remarkReferenceFromValues: (super fromValues: values) Platypus.PltRemarkReference platypus-generated-group-accessing localFromValues: values ^ self remarkReferenceFromValues:values Platypus.PltRemarkReference platypus-generated-group-accessing localToValues: values ^ self remarkReferenceToValues:values Platypus.PltRemarkReference class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltRemarkReference class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltRemarkReference platypus-generated-accessing prefix ^prefix Platypus.PltRemarkReference platypus-generated-set-accessing setPrefix:aString self prefix:aString Platypus.PltRemarkReference platypus-generated-accessing prefix:aString prefix := aString Platypus.PltRemarkReference platypus-generated-fast-set-accessing fastSetPrefix:aString prefix := aString Platypus.PltRemarkReference platypus-generated-with-context-accessing prefixUsingContext:aContext ^ self prefix Platypus.PltRemarkReference platypus-generated-accessing suffix ^suffix Platypus.PltRemarkReference platypus-generated-set-accessing setSuffix:aString self suffix:aString Platypus.PltRemarkReference platypus-generated-accessing suffix:aString suffix := aString Platypus.PltRemarkReference platypus-generated-fast-set-accessing fastSetSuffix:aString suffix := aString Platypus.PltRemarkReference platypus-generated-with-context-accessing suffixUsingContext:aContext ^ self suffix Platypus.PltRemarkReference platypus-generated-accessing inside ^inside Platypus.PltRemarkReference platypus-generated-set-accessing setInside:aPltDictionaryInstanceReference self inside:aPltDictionaryInstanceReference Platypus.PltRemarkReference platypus-generated-accessing inside:aPltDictionaryInstanceReference inside := aPltDictionaryInstanceReference Platypus.PltRemarkReference platypus-generated-fast-set-accessing fastSetInside:aPltDictionaryInstanceReference inside := aPltDictionaryInstanceReference Platypus.PltRemarkReference platypus-generated-with-context-accessing insideUsingContext:aContext ^ self inside Platypus.PltRemarkReference platypus-generated-accessing referenced ^referenced Platypus.PltRemarkReference platypus-generated-set-accessing setReferenced:aPltDictionaryInstanceReference self referenced:aPltDictionaryInstanceReference Platypus.PltRemarkReference platypus-generated-accessing referenced:aPltDictionaryInstanceReference referenced := aPltDictionaryInstanceReference Platypus.PltRemarkReference platypus-generated-fast-set-accessing fastSetReferenced:aPltDictionaryInstanceReference referenced := aPltDictionaryInstanceReference Platypus.PltRemarkReference platypus-generated-with-context-accessing referencedUsingContext:aContext ^ self referenced Platypus.PltRemarkReference platypus-generated-accessing remark ^remark Platypus.PltRemarkReference platypus-generated-set-accessing setRemark:aPltRemark self remark:aPltRemark Platypus.PltRemarkReference platypus-generated-accessing remark:aPltRemark remark := aPltRemark Platypus.PltRemarkReference platypus-generated-fast-set-accessing fastSetRemark:aPltRemark remark := aPltRemark Platypus.PltRemarkReference platypus-generated-with-context-accessing remarkUsingContext:aContext ^ self remark Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltMetaConceptDefinition Platypus Platypus.PltDictionaryInstance false none haveError definition expression metaExpression Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltMetaConceptDefinition class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltMetaConceptDefinition class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltMetaConceptDefinition class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltMetaConceptDefinition <ISO10303-11-EXPRESS> ENTITY meta_concept_definition SUBTYPE OF ( dictionary_instance ); definition : dictionary_instance; expression : STRING; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltMetaConceptDefinition platypus-generated-initializing stepInitialize super stepInitialize. definition := nil. expression := ''. Platypus.PltMetaConceptDefinition platypus-generated-classifying isPltMetaConceptDefinition ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltMetaConceptDefinition ^ false Platypus.PltMetaConceptDefinition platypus-generated-visiting accept: aVisitor ^ aVisitor acceptMetaConceptDefinition: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptMetaConceptDefinition: e "my subclasses have to redefine it" Platypus.PltMetaConceptDefinition platypus-generated-copying metaConceptDefinitionCopyTo:another another fastSetDefinition: (self definition). another fastSetExpression: (self expression). Platypus.PltMetaConceptDefinition platypus-generated-copying pltLocalCopyTo: another self metaConceptDefinitionCopyTo:another Platypus.PltMetaConceptDefinition platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self metaConceptDefinitionCopyTo: another. Platypus.PltMetaConceptDefinition platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltMetaConceptDefinition platypus-generated-group-accessing metaConceptDefinitionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setDefinition:valuesloc removeFirst. self setExpression:valuesloc removeFirst. ^ valuesloc Platypus.PltMetaConceptDefinition platypus-generated-group-accessing metaConceptDefinitionToValues:values values add: (self definition). values add: (self expression). ^ values Platypus.PltMetaConceptDefinition platypus-generated-group-accessing toValues:values ^ self metaConceptDefinitionToValues: (super toValues: values) Platypus.PltMetaConceptDefinition platypus-generated-group-accessing fromValues:values ^ self metaConceptDefinitionFromValues: (super fromValues: values) Platypus.PltMetaConceptDefinition platypus-generated-group-accessing localFromValues: values ^ self metaConceptDefinitionFromValues:values Platypus.PltMetaConceptDefinition platypus-generated-group-accessing localToValues: values ^ self metaConceptDefinitionToValues:values Platypus.PltMetaConceptDefinition class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltMetaConceptDefinition class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltMetaConceptDefinition platypus-generated-accessing definition ^definition Platypus.PltMetaConceptDefinition platypus-generated-set-accessing setDefinition:aPltDictionaryInstance self definition:aPltDictionaryInstance Platypus.PltMetaConceptDefinition platypus-generated-accessing definition:aPltDictionaryInstance definition := aPltDictionaryInstance Platypus.PltMetaConceptDefinition platypus-generated-fast-set-accessing fastSetDefinition:aPltDictionaryInstance definition := aPltDictionaryInstance Platypus.PltMetaConceptDefinition platypus-generated-with-context-accessing definitionUsingContext:aContext ^ self definition Platypus.PltMetaConceptDefinition platypus-generated-accessing expression ^expression Platypus.PltMetaConceptDefinition platypus-generated-set-accessing setExpression:aString self expression:aString Platypus.PltMetaConceptDefinition platypus-generated-accessing expression:aString expression := aString Platypus.PltMetaConceptDefinition platypus-generated-fast-set-accessing fastSetExpression:aString expression := aString Platypus.PltMetaConceptDefinition platypus-generated-with-context-accessing expressionUsingContext:aContext ^ self expression Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltDerivedAttribute Platypus Platypus.PltAttribute false none assign Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltDerivedAttribute class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltDerivedAttribute class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltDerivedAttribute class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltDerivedAttribute <ISO10303-11-EXPRESS> ENTITY derived_attribute SUBTYPE OF ( attribute ); assign : expression; DERIVE accepted : entity_instance := SELF.accept_derived_attribute; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltDerivedAttribute platypus-generated-initializing stepInitialize super stepInitialize. assign := nil. Platypus.PltDerivedAttribute platypus-generated-classifying isPltDerivedAttribute ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltDerivedAttribute ^ false Platypus.PltDerivedAttribute platypus-generated-visiting accept: aVisitor ^ aVisitor acceptDerivedAttribute: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptDerivedAttribute: e "my subclasses have to redefine it" Platypus.PltDerivedAttribute platypus-generated-copying derivedAttributeCopyTo:another another fastSetAssign: (self assign). Platypus.PltDerivedAttribute platypus-generated-copying pltLocalCopyTo: another self derivedAttributeCopyTo:another Platypus.PltDerivedAttribute platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self derivedAttributeCopyTo: another. Platypus.PltDerivedAttribute platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltDerivedAttribute platypus-generated-group-accessing derivedAttributeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setAssign:valuesloc removeFirst. ^ valuesloc Platypus.PltDerivedAttribute platypus-generated-group-accessing derivedAttributeToValues:values values add: (self assign). ^ values Platypus.PltDerivedAttribute platypus-generated-group-accessing toValues:values ^ self derivedAttributeToValues: (super toValues: values) Platypus.PltDerivedAttribute platypus-generated-group-accessing fromValues:values ^ self derivedAttributeFromValues: (super fromValues: values) Platypus.PltDerivedAttribute platypus-generated-group-accessing localFromValues: values ^ self derivedAttributeFromValues:values Platypus.PltDerivedAttribute platypus-generated-group-accessing localToValues: values ^ self derivedAttributeToValues:values Platypus.PltDerivedAttribute class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltDerivedAttribute class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltDerivedAttribute platypus-generated-accessing assign ^assign Platypus.PltDerivedAttribute platypus-generated-set-accessing setAssign:aPltExpression self assign:aPltExpression Platypus.PltDerivedAttribute platypus-generated-accessing assign:aPltExpression assign := aPltExpression Platypus.PltDerivedAttribute platypus-generated-fast-set-accessing fastSetAssign:aPltExpression assign := aPltExpression Platypus.PltDerivedAttribute platypus-generated-with-context-accessing assignUsingContext:aContext ^ self assign Platypus.PltDerivedAttribute platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltDerivedAttribute platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptDerivedAttributeUsingContext: aContext) Platypus.PltDerivedAttribute platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltExplicitAttribute Platypus Platypus.PltAttribute false none optionalFlag Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltExplicitAttribute class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltExplicitAttribute class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltExplicitAttribute class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltExplicitAttribute <ISO10303-11-EXPRESS> ENTITY explicit_attribute SUBTYPE OF ( attribute ); optional_flag : BOOLEAN; DERIVE accepted : entity_instance := SELF.accept_explicit_attribute; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltExplicitAttribute platypus-generated-initializing stepInitialize super stepInitialize. optionalFlag := false. Platypus.PltExplicitAttribute platypus-generated-classifying isPltExplicitAttribute ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltExplicitAttribute ^ false Platypus.PltExplicitAttribute platypus-generated-visiting accept: aVisitor ^ aVisitor acceptExplicitAttribute: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptExplicitAttribute: e "my subclasses have to redefine it" Platypus.PltExplicitAttribute platypus-generated-copying explicitAttributeCopyTo:another another fastSetOptionalFlag: (self optionalFlag). Platypus.PltExplicitAttribute platypus-generated-copying pltLocalCopyTo: another self explicitAttributeCopyTo:another Platypus.PltExplicitAttribute platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self explicitAttributeCopyTo: another. Platypus.PltExplicitAttribute platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltExplicitAttribute platypus-generated-group-accessing explicitAttributeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setOptionalFlag:valuesloc removeFirst. ^ valuesloc Platypus.PltExplicitAttribute platypus-generated-group-accessing explicitAttributeToValues:values values add: (self optionalFlag). ^ values Platypus.PltExplicitAttribute platypus-generated-group-accessing toValues:values ^ self explicitAttributeToValues: (super toValues: values) Platypus.PltExplicitAttribute platypus-generated-group-accessing fromValues:values ^ self explicitAttributeFromValues: (super fromValues: values) Platypus.PltExplicitAttribute platypus-generated-group-accessing localFromValues: values ^ self explicitAttributeFromValues:values Platypus.PltExplicitAttribute platypus-generated-group-accessing localToValues: values ^ self explicitAttributeToValues:values Platypus.PltExplicitAttribute class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltExplicitAttribute class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltExplicitAttribute platypus-generated-accessing optionalFlag ^optionalFlag Platypus.PltExplicitAttribute platypus-generated-set-accessing setOptionalFlag:aBoolean self optionalFlag:aBoolean Platypus.PltExplicitAttribute platypus-generated-accessing optionalFlag:aBoolean optionalFlag := aBoolean Platypus.PltExplicitAttribute platypus-generated-fast-set-accessing fastSetOptionalFlag:aBoolean optionalFlag := aBoolean Platypus.PltExplicitAttribute platypus-generated-with-context-accessing optionalFlagUsingContext:aContext ^ self optionalFlag Platypus.PltExplicitAttribute platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltExplicitAttribute platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptExplicitAttributeUsingContext: aContext) Platypus.PltExplicitAttribute platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltInverseAttribute Platypus Platypus.PltAttribute false none minCardinality duplicates maxCardinality invertedAttr Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltInverseAttribute class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltInverseAttribute class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltInverseAttribute class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltInverseAttribute <ISO10303-11-EXPRESS> ENTITY inverse_attribute SUBTYPE OF ( attribute ); inverted_attr : attribute_reference; min_cardinality : OPTIONAL bound; max_cardinality : OPTIONAL bound; duplicates : BOOLEAN; DERIVE SELF\attribute.domain : entity_definition_reference := inverted_attr.entity_ref; accepted : entity_instance := SELF.accept_inverse_attribute; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltInverseAttribute platypus-generated-initializing stepInitialize super stepInitialize. invertedAttr := nil. minCardinality := nil. maxCardinality := nil. duplicates := false. Platypus.PltInverseAttribute platypus-generated-classifying isPltInverseAttribute ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltInverseAttribute ^ false Platypus.PltInverseAttribute platypus-generated-visiting accept: aVisitor ^ aVisitor acceptInverseAttribute: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptInverseAttribute: e "my subclasses have to redefine it" Platypus.PltInverseAttribute platypus-generated-copying inverseAttributeCopyTo:another another fastSetInvertedAttr: (self invertedAttr). another fastSetMinCardinality: (self minCardinality). another fastSetMaxCardinality: (self maxCardinality). another fastSetDuplicates: (self duplicates). Platypus.PltInverseAttribute platypus-generated-copying pltLocalCopyTo: another self inverseAttributeCopyTo:another Platypus.PltInverseAttribute platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self inverseAttributeCopyTo: another. Platypus.PltInverseAttribute platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltInverseAttribute platypus-generated-group-accessing inverseAttributeFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setInvertedAttr:valuesloc removeFirst. self setMinCardinality:valuesloc removeFirst. self setMaxCardinality:valuesloc removeFirst. self setDuplicates:valuesloc removeFirst. ^ valuesloc Platypus.PltInverseAttribute platypus-generated-group-accessing inverseAttributeToValues:values values add: (self invertedAttr). values add: (self minCardinality). values add: (self maxCardinality). values add: (self duplicates). ^ values Platypus.PltInverseAttribute platypus-generated-group-accessing toValues:values ^ self inverseAttributeToValues: (super toValues: values) Platypus.PltInverseAttribute platypus-generated-group-accessing fromValues:values ^ self inverseAttributeFromValues: (super fromValues: values) Platypus.PltInverseAttribute platypus-generated-group-accessing localFromValues: values ^ self inverseAttributeFromValues:values Platypus.PltInverseAttribute platypus-generated-group-accessing localToValues: values ^ self inverseAttributeToValues:values Platypus.PltInverseAttribute class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltInverseAttribute class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltInverseAttribute platypus-generated-accessing invertedAttr ^invertedAttr Platypus.PltInverseAttribute platypus-generated-set-accessing setInvertedAttr:aPltAttributeReference self invertedAttr:aPltAttributeReference Platypus.PltInverseAttribute platypus-generated-accessing invertedAttr:aPltAttributeReference invertedAttr := aPltAttributeReference Platypus.PltInverseAttribute platypus-generated-fast-set-accessing fastSetInvertedAttr:aPltAttributeReference invertedAttr := aPltAttributeReference Platypus.PltInverseAttribute platypus-generated-with-context-accessing invertedAttrUsingContext:aContext ^ self invertedAttr Platypus.PltInverseAttribute platypus-generated-accessing minCardinality ^minCardinality Platypus.PltInverseAttribute platypus-generated-set-accessing setMinCardinality:aPltBound self minCardinality:aPltBound Platypus.PltInverseAttribute platypus-generated-accessing minCardinality:aPltBound minCardinality := aPltBound Platypus.PltInverseAttribute platypus-generated-fast-set-accessing fastSetMinCardinality:aPltBound minCardinality := aPltBound Platypus.PltInverseAttribute platypus-generated-with-context-accessing minCardinalityUsingContext:aContext ^ self minCardinality Platypus.PltInverseAttribute platypus-generated-accessing maxCardinality ^maxCardinality Platypus.PltInverseAttribute platypus-generated-set-accessing setMaxCardinality:aPltBound self maxCardinality:aPltBound Platypus.PltInverseAttribute platypus-generated-accessing maxCardinality:aPltBound maxCardinality := aPltBound Platypus.PltInverseAttribute platypus-generated-fast-set-accessing fastSetMaxCardinality:aPltBound maxCardinality := aPltBound Platypus.PltInverseAttribute platypus-generated-with-context-accessing maxCardinalityUsingContext:aContext ^ self maxCardinality Platypus.PltInverseAttribute platypus-generated-accessing duplicates ^duplicates Platypus.PltInverseAttribute platypus-generated-set-accessing setDuplicates:aBoolean self duplicates:aBoolean Platypus.PltInverseAttribute platypus-generated-accessing duplicates:aBoolean duplicates := aBoolean Platypus.PltInverseAttribute platypus-generated-fast-set-accessing fastSetDuplicates:aBoolean duplicates := aBoolean Platypus.PltInverseAttribute platypus-generated-with-context-accessing duplicatesUsingContext:aContext ^ self duplicates Platypus.PltInverseAttribute platypus-generated-deriving domainUsingContext:aContext ^ self domainUsingContext: aContext receiver: self Platypus.PltInverseAttribute platypus-generated-deriving domainUsingContext: aContext receiver: aReceiver ^( ( aReceiver invertedAttr) entityRefUsingContext: aContext) Platypus.PltInverseAttribute platypus-generated-deriving domain ^ self domainUsingContext: self class context Platypus.PltInverseAttribute platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltInverseAttribute platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptInverseAttributeUsingContext: aContext) Platypus.PltInverseAttribute platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltMetaMappingRule Platypus Platypus.PltDictionaryInstance false none haveError metaCondition condition expression metaExpression Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltMetaMappingRule class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltMetaMappingRule class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltMetaMappingRule class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltMetaMappingRule <ISO10303-11-EXPRESS> ENTITY meta_mapping_rule SUBTYPE OF ( dictionary_instance ); condition : STRING; expression : STRING; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltMetaMappingRule platypus-generated-initializing stepInitialize super stepInitialize. condition := ''. expression := ''. Platypus.PltMetaMappingRule platypus-generated-classifying isPltMetaMappingRule ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltMetaMappingRule ^ false Platypus.PltMetaMappingRule platypus-generated-visiting accept: aVisitor ^ aVisitor acceptMetaMappingRule: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptMetaMappingRule: e "my subclasses have to redefine it" Platypus.PltMetaMappingRule platypus-generated-copying metaMappingRuleCopyTo:another another fastSetCondition: (self condition). another fastSetExpression: (self expression). Platypus.PltMetaMappingRule platypus-generated-copying pltLocalCopyTo: another self metaMappingRuleCopyTo:another Platypus.PltMetaMappingRule platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self metaMappingRuleCopyTo: another. Platypus.PltMetaMappingRule platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltMetaMappingRule platypus-generated-group-accessing metaMappingRuleFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setCondition:valuesloc removeFirst. self setExpression:valuesloc removeFirst. ^ valuesloc Platypus.PltMetaMappingRule platypus-generated-group-accessing metaMappingRuleToValues:values values add: (self condition). values add: (self expression). ^ values Platypus.PltMetaMappingRule platypus-generated-group-accessing toValues:values ^ self metaMappingRuleToValues: (super toValues: values) Platypus.PltMetaMappingRule platypus-generated-group-accessing fromValues:values ^ self metaMappingRuleFromValues: (super fromValues: values) Platypus.PltMetaMappingRule platypus-generated-group-accessing localFromValues: values ^ self metaMappingRuleFromValues:values Platypus.PltMetaMappingRule platypus-generated-group-accessing localToValues: values ^ self metaMappingRuleToValues:values Platypus.PltMetaMappingRule class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltMetaMappingRule class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltMetaMappingRule platypus-generated-accessing condition ^condition Platypus.PltMetaMappingRule platypus-generated-set-accessing setCondition:aString self condition:aString Platypus.PltMetaMappingRule platypus-generated-accessing condition:aString condition := aString Platypus.PltMetaMappingRule platypus-generated-fast-set-accessing fastSetCondition:aString condition := aString Platypus.PltMetaMappingRule platypus-generated-with-context-accessing conditionUsingContext:aContext ^ self condition Platypus.PltMetaMappingRule platypus-generated-accessing expression ^expression Platypus.PltMetaMappingRule platypus-generated-set-accessing setExpression:aString self expression:aString Platypus.PltMetaMappingRule platypus-generated-accessing expression:aString expression := aString Platypus.PltMetaMappingRule platypus-generated-fast-set-accessing fastSetExpression:aString expression := aString Platypus.PltMetaMappingRule platypus-generated-with-context-accessing expressionUsingContext:aContext ^ self expression Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltMetaMappingDefinition Platypus Platypus.PltDictionaryInstance false none definitionPath haveError definition expression metaExpression Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltMetaMappingDefinition class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltMetaMappingDefinition class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltMetaMappingDefinition class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltMetaMappingDefinition <ISO10303-11-EXPRESS> ENTITY meta_mapping_definition SUBTYPE OF ( dictionary_instance ); definition : dictionary_instance; expression : STRING; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltMetaMappingDefinition platypus-generated-initializing stepInitialize super stepInitialize. definition := nil. expression := ''. Platypus.PltMetaMappingDefinition platypus-generated-classifying isPltMetaMappingDefinition ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltMetaMappingDefinition ^ false Platypus.PltMetaMappingDefinition platypus-generated-visiting accept: aVisitor ^ aVisitor acceptMetaMappingDefinition: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptMetaMappingDefinition: e "my subclasses have to redefine it" Platypus.PltMetaMappingDefinition platypus-generated-copying metaMappingDefinitionCopyTo:another another fastSetDefinition: (self definition). another fastSetExpression: (self expression). Platypus.PltMetaMappingDefinition platypus-generated-copying pltLocalCopyTo: another self metaMappingDefinitionCopyTo:another Platypus.PltMetaMappingDefinition platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self metaMappingDefinitionCopyTo: another. Platypus.PltMetaMappingDefinition platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltMetaMappingDefinition platypus-generated-group-accessing metaMappingDefinitionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setDefinition:valuesloc removeFirst. self setExpression:valuesloc removeFirst. ^ valuesloc Platypus.PltMetaMappingDefinition platypus-generated-group-accessing metaMappingDefinitionToValues:values values add: (self definition). values add: (self expression). ^ values Platypus.PltMetaMappingDefinition platypus-generated-group-accessing toValues:values ^ self metaMappingDefinitionToValues: (super toValues: values) Platypus.PltMetaMappingDefinition platypus-generated-group-accessing fromValues:values ^ self metaMappingDefinitionFromValues: (super fromValues: values) Platypus.PltMetaMappingDefinition platypus-generated-group-accessing localFromValues: values ^ self metaMappingDefinitionFromValues:values Platypus.PltMetaMappingDefinition platypus-generated-group-accessing localToValues: values ^ self metaMappingDefinitionToValues:values Platypus.PltMetaMappingDefinition class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltMetaMappingDefinition class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltMetaMappingDefinition platypus-generated-accessing definition ^definition Platypus.PltMetaMappingDefinition platypus-generated-set-accessing setDefinition:aPltDictionaryInstance self definition:aPltDictionaryInstance Platypus.PltMetaMappingDefinition platypus-generated-accessing definition:aPltDictionaryInstance definition := aPltDictionaryInstance Platypus.PltMetaMappingDefinition platypus-generated-fast-set-accessing fastSetDefinition:aPltDictionaryInstance definition := aPltDictionaryInstance Platypus.PltMetaMappingDefinition platypus-generated-with-context-accessing definitionUsingContext:aContext ^ self definition Platypus.PltMetaMappingDefinition platypus-generated-accessing expression ^expression Platypus.PltMetaMappingDefinition platypus-generated-set-accessing setExpression:aString self expression:aString Platypus.PltMetaMappingDefinition platypus-generated-accessing expression:aString expression := aString Platypus.PltMetaMappingDefinition platypus-generated-fast-set-accessing fastSetExpression:aString expression := aString Platypus.PltMetaMappingDefinition platypus-generated-with-context-accessing expressionUsingContext:aContext ^ self expression Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance class platypus-generated-instance-creation new ^ super new stepInitialize Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-initializing stepInitialize PltSchemaDefinition Platypus Platypus.PltContextDefinition false none interface remarkReferences mappings globalRules Platypus-PlatypusDictionarySchemaSchema Platypus Platypus.PltSchemaDefinition class platypus-generated-platypus-signature translatedFromISO10303P11 ^ true. Platypus.PltSchemaDefinition class platypus-generated-platypus-signature iso10303P11Translater ^ 'Platypus (c) LISYC EA3883, Universite de Bretagne occidentale. Brest.' Platypus.PltSchemaDefinition class platypus-generated-platypus-signature vwNamespaceName ^#'Platypus' Platypus.PltSchemaDefinition <ISO10303-11-EXPRESS> ENTITY schema_definition SUBTYPE OF ( context_definition ); global_rules : LIST OF global_rule; interface : LIST OF external_schema; remark_references : LIST OF remark_reference; DERIVE accepted : entity_instance := SELF.accept_schema_definition; END_ENTITY; </ISO10303-11-EXPRESS> Platypus.PltSchemaDefinition platypus-generated-initializing stepInitialize super stepInitialize. globalRules := OrderedCollection new. interface := OrderedCollection new. remarkReferences := OrderedCollection new. Platypus.PltSchemaDefinition platypus-generated-classifying isPltSchemaDefinition ^ true Platypus-PlatypusDictionarySchemaSchema.PltEntityInstance platypus-generated-Platypus-PlatypusDictionarySchemaSchema-classifying isPltSchemaDefinition ^ false Platypus.PltSchemaDefinition platypus-generated-visiting accept: aVisitor ^ aVisitor acceptSchemaDefinition: self. Platypus.PlatypusAbstractVisitor platypus-generated-visitingPlatypusDictionarySchema acceptSchemaDefinition: e "my subclasses have to redefine it" Platypus.PltSchemaDefinition platypus-generated-copying schemaDefinitionCopyTo:another another fastSetGlobalRules: (self globalRules). another fastSetInterface: (self interface). another fastSetRemarkReferences: (self remarkReferences). Platypus.PltSchemaDefinition platypus-generated-copying pltLocalCopyTo: another self schemaDefinitionCopyTo:another Platypus.PltSchemaDefinition platypus-generated-copying pltCopyTo:another super pltCopyTo: another. self schemaDefinitionCopyTo: another. Platypus.PltSchemaDefinition platypus-generated-copying pltCopyGroup:aClassSymbol to: anObject self class name == aClassSymbol ifTrue: [self pltCopyTo: anObject] ifFalse: [super pltCopyGroup: aClassSymbol to: anObject] Platypus.PltSchemaDefinition platypus-generated-group-accessing schemaDefinitionFromValues:values | valuesloc |valuesloc := values asOrderedCollection. self setGlobalRules:valuesloc removeFirst. self setInterface:valuesloc removeFirst. self setRemarkReferences:valuesloc removeFirst. ^ valuesloc Platypus.PltSchemaDefinition platypus-generated-group-accessing schemaDefinitionToValues:values values add: (self globalRules). values add: (self interface). values add: (self remarkReferences). ^ values Platypus.PltSchemaDefinition platypus-generated-group-accessing toValues:values ^ self schemaDefinitionToValues: (super toValues: values) Platypus.PltSchemaDefinition platypus-generated-group-accessing fromValues:values ^ self schemaDefinitionFromValues: (super fromValues: values) Platypus.PltSchemaDefinition platypus-generated-group-accessing localFromValues: values ^ self schemaDefinitionFromValues:values Platypus.PltSchemaDefinition platypus-generated-group-accessing localToValues: values ^ self schemaDefinitionToValues:values Platypus.PltSchemaDefinition class platypus-generated-meta-data-accessing schemaDefinition ^ PltPlatypusDictionarySchemaSchemaDefinition singleton Platypus.PltSchemaDefinition class platypus-generated-meta-data-accessing schemaInstance ^ PltPlatypusMetaSchemasSchemaInstance singleton Platypus.PltSchemaDefinition platypus-generated-accessing globalRules ^globalRules Platypus.PltSchemaDefinition platypus-generated-set-accessing setGlobalRules:aListOfPltGlobalRule self globalRules:aListOfPltGlobalRule Platypus.PltSchemaDefinition platypus-generated-accessing globalRules:aListOfPltGlobalRule globalRules := aListOfPltGlobalRule ifNil: [OrderedCollection new] ifNotNil: [aListOfPltGlobalRule as: OrderedCollection] Platypus.PltSchemaDefinition platypus-generated-fast-set-accessing fastSetGlobalRules:aListOfPltGlobalRule globalRules := aListOfPltGlobalRule Platypus.PltSchemaDefinition platypus-generated-with-context-accessing globalRulesUsingContext:aContext ^ self globalRules Platypus.PltSchemaDefinition platypus-generated-accessing interface ^interface Platypus.PltSchemaDefinition platypus-generated-set-accessing setInterface:aListOfPltExternalSchema self interface:aListOfPltExternalSchema Platypus.PltSchemaDefinition platypus-generated-accessing interface:aListOfPltExternalSchema interface := aListOfPltExternalSchema ifNil: [OrderedCollection new] ifNotNil: [aListOfPltExternalSchema as: OrderedCollection] Platypus.PltSchemaDefinition platypus-generated-fast-set-accessing fastSetInterface:aListOfPltExternalSchema interface := aListOfPltExternalSchema Platypus.PltSchemaDefinition platypus-generated-with-context-accessing interfaceUsingContext:aContext ^ self interface Platypus.PltSchemaDefinition platypus-generated-accessing remarkReferences ^remarkReferences Platypus.PltSchemaDefinition platypus-generated-set-accessing setRemarkReferences:aListOfPltRemarkReference self remarkReferences:aListOfPltRemarkReference Platypus.PltSchemaDefinition platypus-generated-accessing remarkReferences:aListOfPltRemarkReference remarkReferences := aListOfPltRemarkReference ifNil: [OrderedCollection new] ifNotNil: [aListOfPltRemarkReference as: OrderedCollection] Platypus.PltSchemaDefinition platypus-generated-fast-set-accessing fastSetRemarkReferences:aListOfPltRemarkReference remarkReferences := aListOfPltRemarkReference Platypus.PltSchemaDefinition platypus-generated-with-context-accessing remarkReferencesUsingContext:aContext ^ self remarkReferences Platypus.PltSchemaDefinition platypus-generated-deriving acceptedUsingContext:aContext ^ self acceptedUsingContext: aContext receiver: self Platypus.PltSchemaDefinition platypus-generated-deriving acceptedUsingContext: aContext receiver: aReceiver ^( aReceiver acceptSchemaDefinitionUsingContext: aContext) Platypus.PltSchemaDefinition platypus-generated-deriving accepted ^ self acceptedUsingContext: self class context Platypus.PltPlatypusMetaSchemasSchemaInstance initialize.