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
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
/***********************************************************
Copyright 1991 by Stichting Mathematisch Centrum, Amsterdam, The
Netherlands.
All Rights Reserved
Permission to use, copy, modify, and distribute this software and its
documentation for any purpose and without fee is hereby granted,
provided that the above copyright notice appear in all copies and that
both that copyright notice and this permission notice appear in
supporting documentation, and that the names of Stichting Mathematisch
Centrum or CWI not be used in advertising or publicity pertaining to
distribution of the software without specific, written prior permission.
STICHTING MATHEMATISCH CENTRUM DISCLAIMS ALL WARRANTIES WITH REGARD TO
THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND
FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH CENTRUM BE LIABLE
FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
******************************************************************/
/*
** This file contains the data used in Ail, Python and sc2txt.
**
** If you want to add an instuction to the instructions just define
** it here and add the instruction in the function sc_interpreter in
** the file sc_interpreter.c in the switch. You also have to make a
** new function with the name x{instruction_name} in the file
** sc_interpreter.
*/
/*
** When you want to change the types of the opcode or the operand
** you maybe need to adjust the options to mypf. And the defines :
** SwapOpcode, SwapOperand.
*/
typedef unsigned char TscOpcode;
typedef long TscOperand;
#define SC_MAGIC 0x19901991
#define SwapOpcode(x) x = x
#define SwapOperand(l) ((l))=(((((l))>>24)&0xFF)|((((l))>>8)&0xFF00)|((((l))<<8)&0xFF0000)|((((l))<<24)&0xFF000000))
#define STKSIZE 256
#define OPERAND 0x80
#define FLAGS 0x40
/*
** The headerfields. The value of the flag is the index of the fields
** array from the file mhdr.c plus one
*/
#define H_EXTRA 0x00000001
#define H_SIZE 0x00000002
#define H_OFFSET 0x00000003
#define H_PORT 0x00000004
#define H_PRIV 0x00000005
#define PSEUDOFIELD 0x00000006
#define ALL_FIELDS 0x000000ff
/*
** The specefiers for the integers
*/
#define NOSIGN 0x00000100
#define INT32 0x00000200
#define ALLTYPES 0xffffff00
/*
** The opcode with no operand
*/
#define ListS 0x00
#define PutVS 0x01
#define GetVS 0x02
#define StringS 0x03
#define Equal 0x04
#define NoArgs 0x05
/*
* Between 0x10 and 0x3f there is space for predefined marshal
* and unmarshal functions or macros that do not have an operand
*/
#define MarshTC 0x10
#define UnMarshTC 0x11
/*
** The opcode with a number as operand
*/
#define BufSize 0x80
#define Trans 0x81
#define TTupleS 0x82
#define Unpack 0x83
#define PutFS 0x84
#define TStringSeq 0x85
#define TStringSlt 0x86
#define TListSeq 0x87
#define TListSlt 0x88
#define LoopPut 0x89
#define EndLoop 0x8a
#define Dup 0x8b
#define Pop 0x8c
#define Align 0x8d
#define Pack 0x8e
#define LoopGet 0x8f
#define GetFS 0x90
#define PushI 0x91
/*
** Between 0xa0 and 0xbf there is space for predefined marshal
** and unmarshal functions or macros with a numberas operand
*/
/*
** The opcodes with flags as operand
*/
#define AilWord 0xc0
#define PutI 0xc1
#define PutC 0xc2
#define GetI 0xc3
#define GetC 0xc4
/*
** Between 0xe0 and 0xff there is space for predefined marshal
** and unmarshal functions or macros with flags as operand
*/
|
