File: instructions.ads

package info (click to toggle)
gnat-gps 4.3-5
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 49,096 kB
  • ctags: 20,461
  • sloc: ada: 274,120; ansic: 154,849; python: 9,890; tcl: 9,812; sh: 8,192; xml: 7,970; cpp: 4,737; yacc: 3,520; makefile: 2,136; lex: 2,043; java: 1,638; perl: 302; awk: 265; sed: 161; asm: 14; fortran: 2; lisp: 1
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;