File: instructions.ads

package info (click to toggle)
gnat-gps 18-5
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 45,716 kB
  • sloc: ada: 362,679; python: 31,031; xml: 9,597; makefile: 1,030; ansic: 917; sh: 264; java: 17
file content (21 lines) | stat: -rw-r--r-- 479 bytes parent folder | download | duplicates (16) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
--  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;