private
is called the private part of the package.
package PLOTTING_DATA
is
PEN_UP : BOOLEAN;
X_OFFSET, Y_OFFSET,
X_MIN, Y_MIN,
X_MAX, Y_MAX: REAL; -- see 3.5.7
X_VALUE :
array
(1 .. 500) of
REAL;
Y_VALUE : array
(1 .. 500) of
REAL;
end
PLOTTING_DATA;
package
WORK_DATA is
type
DAY is
(MON, TUE, WED, THU, FRI, SAT, SUN);
type
HOURS_SPENT is
delta
0.25 range
0.0 .. 24.0;
type
TIME_TABLE is array
(DAY) of
HOURS_SPENT;
NORMAL_HOURS : constant
TIME_TABLE :=
(MON .. THU => 8.25, FRI => 7.0,
SAT | SUN => 0.0);
end
WORK_DATA;