65 |
union REGS inregs, outregs; |
union REGS inregs, outregs; |
66 |
Lisp_Object val; |
Lisp_Object val; |
67 |
|
|
68 |
CHECK_NUMBER (interrupt, 0); |
CHECK_NUMBER (interrupt); |
69 |
no = (unsigned long) XINT (interrupt); |
no = (unsigned long) XINT (interrupt); |
70 |
CHECK_VECTOR (registers, 1); |
CHECK_VECTOR (registers); |
71 |
if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8) |
if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8) |
72 |
return Qnil; |
return Qnil; |
73 |
for (i = 0; i < 8; i++) |
for (i = 0; i < 8; i++) |
74 |
CHECK_NUMBER (XVECTOR (registers)->contents[i], 1); |
CHECK_NUMBER (XVECTOR (registers)->contents[i]); |
75 |
|
|
76 |
inregs.x.ax = (unsigned long) XFASTINT (XVECTOR (registers)->contents[0]); |
inregs.x.ax = (unsigned long) XFASTINT (XVECTOR (registers)->contents[0]); |
77 |
inregs.x.bx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[1]); |
inregs.x.bx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[1]); |
107 |
char *buf; |
char *buf; |
108 |
Lisp_Object val; |
Lisp_Object val; |
109 |
|
|
110 |
CHECK_NUMBER (address, 0); |
CHECK_NUMBER (address); |
111 |
offs = (unsigned long) XINT (address); |
offs = (unsigned long) XINT (address); |
112 |
CHECK_VECTOR (vector, 1); |
CHECK_VECTOR (vector); |
113 |
len = XVECTOR (vector)-> size; |
len = XVECTOR (vector)-> size; |
114 |
if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len) |
if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len) |
115 |
return Qnil; |
return Qnil; |
132 |
char *buf; |
char *buf; |
133 |
Lisp_Object val; |
Lisp_Object val; |
134 |
|
|
135 |
CHECK_NUMBER (address, 0); |
CHECK_NUMBER (address); |
136 |
offs = (unsigned long) XINT (address); |
offs = (unsigned long) XINT (address); |
137 |
CHECK_VECTOR (vector, 1); |
CHECK_VECTOR (vector); |
138 |
len = XVECTOR (vector)-> size; |
len = XVECTOR (vector)-> size; |
139 |
if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len) |
if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len) |
140 |
return Qnil; |
return Qnil; |
142 |
|
|
143 |
for (i = 0; i < len; i++) |
for (i = 0; i < len; i++) |
144 |
{ |
{ |
145 |
CHECK_NUMBER (XVECTOR (vector)->contents[i], 1); |
CHECK_NUMBER (XVECTOR (vector)->contents[i]); |
146 |
buf[i] = (unsigned char) XFASTINT (XVECTOR (vector)->contents[i]) & 0xFF; |
buf[i] = (unsigned char) XFASTINT (XVECTOR (vector)->contents[i]) & 0xFF; |
147 |
} |
} |
148 |
|
|
158 |
(country_code, allkeys) |
(country_code, allkeys) |
159 |
Lisp_Object country_code; |
Lisp_Object country_code; |
160 |
{ |
{ |
161 |
CHECK_NUMBER (country_code, 0); |
CHECK_NUMBER (country_code); |
162 |
if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys))) |
if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys))) |
163 |
return Qnil; |
return Qnil; |
164 |
return Qt; |
return Qt; |
524 |
struct statfs stfs; |
struct statfs stfs; |
525 |
Lisp_Object encoded, value; |
Lisp_Object encoded, value; |
526 |
|
|
527 |
CHECK_STRING (filename, 0); |
CHECK_STRING (filename); |
528 |
filename = Fexpand_file_name (filename, Qnil); |
filename = Fexpand_file_name (filename, Qnil); |
529 |
encoded = ENCODE_FILE (filename); |
encoded = ENCODE_FILE (filename); |
530 |
|
|