File: control.h

package info (click to toggle)
clif 0.93-9.1
  • links: PTS
  • area: main
  • in suites: bullseye, buster, sid, stretch
  • size: 4,228 kB
  • sloc: ansic: 31,464; yacc: 5,067; lex: 819; makefile: 383; sh: 48
file content (98 lines) | stat: -rw-r--r-- 1,843 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
/* \verbatim{control_h.tex} */

/* 
 * control.h
 * 
 * Header of fixative structures.
 */

#ifndef _CONTROL_H
#define _CONTROL_H

typedef struct
	{
	 int major;
	 char *jmp;
	 char *jz;
 	 struct cont1 *cnext; 
	 struct break1 *bnext;
	} WHILE1;

typedef struct
	{
	 int major;
	 char *jn;		/* Label of the JZ */
	 char *jmp2;		/* Label of the JMP. The first JMP */
				/* instruction. It is between expr2 */
				/* and expr3. */
	 char *jmp3;		/* Address where to jump if all */
				/* statements of the loop are */
				/* done. (See manual) */
	 struct break1 *bnext;
	 struct cont1 *cnext;
	} FOR1;

struct break1 
	{
	 char *adr;
	 struct break1 *next;
	};

struct cont1 
	{
	 char *adr;
	 struct cont1 *next;
	};

typedef struct
	{
	 int major;
	 char *jz;
	 char *jmp;
	} IF1;

struct default_usage
        {
	  int line_number;	/* Line number where the default label
				   was used. */
	  int def_flag;		/* Flag if the default label was used.
				   It can be used only once per switch
				   statement. (ANSI) */
	  char *adr;		/* Address where to jump to in the
				   virtual machine code. */
	};

typedef struct
        {
	  int major;
	  char *jz;
	  char *jmp;
	  struct default_usage def_use;
	  struct break1 *bnext;
	  struct list_const1 *next;
	} SWITCH1;

struct list_const1		/* The list of labels in switch
				   statement is created. The list is
				   at the end of switch statement
				   checked if labels in this list are
				   not duplicit. If there are duplicit
				   error message is issued. */
        {
	  int line_number;	/* Line number where the label was
				   used in the switch statement. */
	  int constant;		/* Label in switch statement. */
	  struct list_const1 *next;
	};

union fix
	{
	 WHILE1 while1;
	 FOR1 for1;
	 IF1 if1;
	 SWITCH1 switch1;
        };

/* \verbatim */

#endif /* _CONTROL_H */