/[emacs]/emacs/src/dosfns.c
ViewVC logotype

Diff of /emacs/src/dosfns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.31 by eliz, Fri Jul 6 16:47:26 2001 UTC revision 1.32 by pj, Fri Nov 2 20:23:06 2001 UTC
# Line 65  REGISTERS should be a vector produced by Line 65  REGISTERS should be a vector produced by
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]);
# Line 107  Return the updated VECTOR.") Line 107  Return the updated VECTOR.")
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;
# Line 132  DEFUN ("msdos-memput", Fdos_memput, Sdos Line 132  DEFUN ("msdos-memput", Fdos_memput, Sdos
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;
# Line 142  DEFUN ("msdos-memput", Fdos_memput, Sdos Line 142  DEFUN ("msdos-memput", Fdos_memput, Sdos
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    
# Line 158  The current keyboard layout is available Line 158  The current keyboard layout is available
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;
# Line 524  If the underlying system call fails, val Line 524  If the underlying system call fails, val
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    

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26