package Ada_Store.Station is type Identifier is new Positive; function This_Station return Identifier; end Ada_Store.Station;
package body Ada_Store.Station is function This_Station return Identifier is begin return 1; end This_Station; end Ada_Store.Station;
Copyright ©
1996 Simon Johnston &
Addison Wesley Longman