ada1.sct

c#设计模式WithCla

NO_OUTPUT_BEGIN
(1) Enter the basic Ada types in the attribute and operation specification forms: BOOLEAN, CHARACTER,
INTEGER, FLOAT, POSITIVE, NATURAL, DURATION, STRING.
(2) Enter operation parameters in the operation specification form parameter_type parameter_name.  Then use
the variable -ADA_OPERATION_PARAMETERS.
NO_OUTPUT_END

[with AGGREGATION_ONE_CLASS$s;]
[with ASSOCIATION_ONE_CLASS$s;]
[with AGGREGATION_MANY_CLASS$s;]
[with ASSOCIATION_MANY_CLASS$s;]

package CLASS_NAME$s is
  type CLASS_NAME is private;
  procedure initialize ( The_$CLASS_NAME : in out CLASS_NAME ;
			[ a$ATTRIBUTE_NAME : in ATTRIBUTE_TYPE ;DELETE_LAST_SYMBOL] );
  [-- In Input Parameters: PASCAL_OPERATION_PARAMETERS 
   -- Out Output Parameter Type: OPERATION_RETURN_TYPE
   procedure OPERATION_NAME ADA_OPERATION_PARAMETERS ; ]
[                       --Get accessor function for ATTRIBUTE_NAME
  function get_$ATTRIBUTE_NAME ( The_$CLASS_NAME : in CLASS_NAME ) return ATTRIBUTE_TYPE;]
[                       --Set accessor procedure for ATTRIBUTE_NAME
  procedure set_$ATTRIBUTE_NAME ( The_$CLASS_NAME : in out CLASS_NAME ;
		      a$ATTRIBUTE_NAME : in ATTRIBUTE_TYPE );]       
  --OPERATION_EXCEPTION_NAME : exception;  --update as required

  private
    [type ASSOCIATION_MANY_CLASS$_Array is array (INTEGER range 1..6) of ASSOCIATION_MANY_CLASS$s.ASSOCIATION_MANY_CLASS; ]
    [type AGGREGATION_MANY_CLASS$_Array is array (INTEGER range 1..6) of AGGREGATION_MANY_CLASS$s.AGGREGATION_MANY_CLASS ; ]
    type CLASS_NAME is record
    [ ATTRIBUTE_NAME : ATTRIBUTE_TYPE := ATTRIBUTE_INITIAL_VALUE; ]
    [ ASSOCIATION_ONE_NAME : ASSOCIATION_ONE_CLASS$s.ASSOCIATION_ONE_CLASS ; ]
    [ AGGREGATION_ONE_NAME : AGGREGATION_ONE_CLASS$s.AGGREGATION_ONE_CLASS ; ]
    [ ASSOCIATION_MANY_NAME : ASSOCIATION_MANY_CLASS$_Array ; ]
    [ AGGREGATION_MANY_NAME : AGGREGATION_MANY_CLASS$_Array ; ]
    end record;

end CLASS_NAME$s;

----------------------------------------------------------------------------------
package body CLASS_NAME$s is

procedure initialize ( The_$CLASS_NAME : in out CLASS_NAME ;
			[ a$ATTRIBUTE_NAME : in ATTRIBUTE_TYPE ;DELETE_LAST_SYMBOL] ) is
begin
  [The_$CLASS_NAME.ATTRIBUTE_NAME := a$ATTRIBUTE_NAME ; ]
end initialize;

[---------------------------------------------------------------------------------- 
			--Get accessor function for ATTRIBUTE_NAME
function get_$ATTRIBUTE_NAME ( The_$CLASS_NAME : in CLASS_NAME ) return ATTRIBUTE_TYPE is
begin
  return The_$CLASS_NAME.ATTRIBUTE_NAME;
end get_$ATTRIBUTE_NAME;]
[---------------------------------------------------------------------------------- 
			--Set accessor procedure for ATTRIBUTE_NAME
procedure set_$ATTRIBUTE_NAME ( The_$CLASS_NAME : in out CLASS_NAME ;
		    a$ATTRIBUTE_NAME : in ATTRIBUTE_TYPE ) is
begin
  The_$CLASS_NAME.ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;
end set_$ATTRIBUTE_NAME; ]       
[---------------------------------------------------------------------------------
-- In Input Parameters: PASCAL_OPERATION_PARAMETERS 
-- Out Output Parameter Type: OPERATION_RETURN_TYPE
procedure OPERATION_NAME ADA_OPERATION_PARAMETERS is 
begin
  null;
end OPERATION_NAME;]

end CLASS_NAME$s;