You've already forked gnatstudio
mirror of
https://github.com/AdaCore/gnatstudio.git
synced 2026-02-12 12:42:33 -08:00
22 lines
479 B
Ada
22 lines
479 B
Ada
-- Implements the instructions available in sdc.
|
|
|
|
package Instructions is
|
|
|
|
type Instruction is private;
|
|
-- The actual instruction type.
|
|
|
|
function Read (Word : String) return Instruction;
|
|
-- If Word contains the name of a valid instruction the instruction is
|
|
-- returned, otherwise Except.User_Error is raised.
|
|
|
|
procedure Process (I : Instruction);
|
|
-- Processes an Instruction.
|
|
|
|
private
|
|
|
|
type Instruction is (Clear, Print, Quit);
|
|
|
|
end Instructions;
|
|
|
|
|