/* MS-DOS specific Lisp utilities. Coded by Manabu Higashida, 1991. Major changes May-July 1993 Morten Welinder (only 10% original code left) Copyright (C) 1991, 1993, 1996, 1997 Free Software Foundation, Inc.This file is part of GNU Emacs.GNU Emacs is free software; you can redistribute it and/or modifyit under the terms of the GNU General Public License as published bythe Free Software Foundation; either version 2, or (at your option)any later version.GNU Emacs is distributed in the hope that it will be useful,but WITHOUT ANY WARRANTY; without even the implied warranty ofMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theGNU General Public License for more details.You should have received a copy of the GNU General Public Licensealong with GNU Emacs; see the file COPYING. If not, write tothe Free Software Foundation, Inc., 59 Temple Place - Suite 330,Boston, MA 02111-1307, USA. */#include <config.h>#ifdef MSDOS/* The entire file is within this conditional */#include <stdio.h>#include <dos.h>#include "lisp.h"#include "buffer.h"#include "termchar.h"#include "termhooks.h"#include "frame.h"#include "dosfns.h"#include "msdos.h"#include <go32.h>#include <dirent.h>DEFUN("int86",Fint86,Sint86,2,2,0,"Call specific MSDOS interrupt number INTERRUPT with REGISTERS.\n\Return the updated REGISTER vector.\n\\n\INTERRUPT should be an integer in the range 0 to 255.\n\REGISTERS should be a vector produced by `make-register' and\n\`set-register-value'.")(interrupt,registers)Lisp_Objectinterrupt,registers;{registerinti;intno;unionREGSinregs,outregs;Lisp_Objectval;CHECK_NUMBER(interrupt,0);no=(unsignedlong)XINT(interrupt);CHECK_VECTOR(registers,1);if(no<0||no>0xff||XVECTOR(registers)->size!=8)returnQnil;for(i=0;i<8;i++)CHECK_NUMBER(XVECTOR(registers)->contents[i],1);inregs.x.ax=(unsignedlong)XFASTINT(XVECTOR(registers)->contents[0]);inregs.x.bx=(unsignedlong)XFASTINT(XVECTOR(registers)->contents[1]);inregs.x.cx=(unsignedlong)XFASTINT(XVECTOR(registers)->contents[2]);inregs.x.dx=(unsignedlong)XFASTINT(XVECTOR(registers)->contents[3]);inregs.x.si=(unsignedlong)XFASTINT(XVECTOR(registers)->contents[4]);inregs.x.di=(unsignedlong)XFASTINT(XVECTOR(registers)->contents[5]);inregs.x.cflag=(unsignedlong)XFASTINT(XVECTOR(registers)->contents[6]);inregs.x.flags=(unsignedlong)XFASTINT(XVECTOR(registers)->contents[7]);int86(no,&inregs,&outregs);XVECTOR(registers)->contents[0]=make_number(outregs.x.ax);XVECTOR(registers)->contents[1]=make_number(outregs.x.bx);XVECTOR(registers)->contents[2]=make_number(outregs.x.cx);XVECTOR(registers)->contents[3]=make_number(outregs.x.dx);XVECTOR(registers)->contents[4]=make_number(outregs.x.si);XVECTOR(registers)->contents[5]=make_number(outregs.x.di);XVECTOR(registers)->contents[6]=make_number(outregs.x.cflag);XVECTOR(registers)->contents[7]=make_number(outregs.x.flags);returnregisters;}DEFUN("msdos-memget",Fdos_memget,Sdos_memget,2,2,0,"Read DOS memory at offset ADDRESS into VECTOR.\n\Return the updated VECTOR.")(address,vector)Lisp_Objectaddress,vector;{registerinti;intoffs,len;char*buf;Lisp_Objectval;CHECK_NUMBER(address,0);offs=(unsignedlong)XINT(address);CHECK_VECTOR(vector,1);len=XVECTOR(vector)->size;if(len<1||len>2048||address<0||address>0xfffff-len)returnQnil;buf=alloca(len);dosmemget(offs,len,buf);for(i=0;i<len;i++)XVECTOR(vector)->contents[i]=make_number(buf[i]);returnvector;}DEFUN("msdos-memput",Fdos_memput,Sdos_memput,2,2,0,"Write DOS memory at offset ADDRESS from VECTOR.")(address,vector)Lisp_Objectaddress,vector;{registerinti;intoffs,len;char*buf;Lisp_Objectval;CHECK_NUMBER(address,0);offs=(unsignedlong)XINT(address);CHECK_VECTOR(vector,1);len=XVECTOR(vector)->size;if(len<1||len>2048||address<0||address>0xfffff-len)returnQnil;buf=alloca(len);for(i=0;i<len;i++){CHECK_NUMBER(XVECTOR(vector)->contents[i],1);buf[i]=(unsignedchar)XFASTINT(XVECTOR(vector)->contents[i])&0xFF;}dosmemput(buf,len,offs);returnQt;}DEFUN("msdos-set-keyboard",Fmsdos_set_keyboard,Smsdos_set_keyboard,1,2,0,"Set keyboard layout according to COUNTRY-CODE.\n\If the optional argument ALLKEYS is non-nil, the keyboard is mapped for\n\all keys; otherwise it is only used when the ALT key is pressed.\n\The current keyboard layout is available in dos-keyboard-code.")(country_code,allkeys)Lisp_Objectcountry_code;{CHECK_NUMBER(country_code,0);if(!dos_set_keyboard(XINT(country_code),!NILP(allkeys)))returnQnil;returnQt;}#ifndef HAVE_X_WINDOWS/* Later we might want to control the mouse interface with this function, e.g., with respect to non-80 column screen modes. */DEFUN("msdos-mouse-p",Fmsdos_mouse_p,Smsdos_mouse_p,0,0,0,"\Report whether a mouse is present.")(){if(have_mouse)returnQt;elsereturnQnil;}/* Function to translate colour names to integers. See lisp/term/pc-win.el for its definition. */Lisp_ObjectQmsdos_color_translate;#endifDEFUN("msdos-mouse-init",Fmsdos_mouse_init,Smsdos_mouse_init,0,0,"","Initialize and enable mouse if available.")(){if(have_mouse){have_mouse=1;mouse_init();returnQt;}returnQnil;}DEFUN("msdos-mouse-enable",Fmsdos_mouse_enable,Smsdos_mouse_enable,0,0,"","Enable mouse if available.")(){if(have_mouse){have_mouse=1;mouse_on();}returnhave_mouse?Qt:Qnil;}DEFUN("msdos-mouse-disable",Fmsdos_mouse_disable,Smsdos_mouse_disable,0,0,"","Disable mouse if available.")(){mouse_off();if(have_mouse)have_mouse=-1;returnQnil;}DEFUN("insert-startup-screen",Finsert_startup_screen,Sinsert_startup_screen,0,0,"","\Insert copy of screen contents prior to starting emacs.\n\Return nil if startup screen is not available.")(){char*s;introws,cols;inti,j;if(!dos_get_saved_screen(&s,&rows,&cols))returnQnil;for(i=0;i<rows;i++){for(j=0;j<cols;j++){insert_char(*s);s+=2;}insert_char('\n');}returnQt;}/* country info */intdos_country_code;intdos_codepage;intdos_timezone_offset;intdos_decimal_point;intdos_keyboard_layout;unsignedchardos_country_info[DOS_COUNTRY_INFO];staticunsignedcharusa_country_info[DOS_COUNTRY_INFO]={0,0,/* date format */'$',0,0,0,0,/* currency string */',',0,/* thousands separator */'.',0,/* decimal separator */'/',0,/* date separator */':',0,/* time separator */0,/* currency format */2,/* digits after decimal in currency */0,/* time format */0,0,0,0,/* address of case map routine, GPF if used */' ',0,/* data-list separator (?) */0,0,0,0,0,0,0,0,0,0/* reserved */};intdos_hyper_key;intdos_super_key;intdos_keypad_mode;Lisp_ObjectVdos_version;Lisp_ObjectVdos_display_scancodes;voidinit_dosfns(){unionREGSregs;_go32_dpmi_registersdpmiregs;unsignedlongxbuf=_go32_info_block.linear_address_of_transfer_buffer;#ifndef SYSTEM_MALLOCget_lim_data();/* why the hell isn't this called elsewhere? */#endifregs.x.ax=0x3000;intdos(&regs,&regs);Vdos_version=Fcons(make_number(regs.h.al),make_number(regs.h.ah));/* Obtain the country code via DPMI, use DJGPP transfer buffer. */dpmiregs.x.ax=0x3800;dpmiregs.x.ds=xbuf;dpmiregs.x.dx=0;dpmiregs.x.ss=dpmiregs.x.sp=dpmiregs.x.flags=0;_go32_dpmi_simulate_int(0x21,&dpmiregs);if(dpmiregs.x.flags&1){dos_country_code=1;/* assume USA if 213800 failed */memcpy(dos_country_info,usa_country_info,DOS_COUNTRY_INFO);}else{dos_country_code=dpmiregs.x.bx;dosmemget(xbuf,DOS_COUNTRY_INFO,dos_country_info);}dos_set_keyboard(dos_country_code,0);regs.x.ax=0x6601;intdos(&regs,&regs);if(regs.x.cflag)/* Estimate code page from country code */switch(dos_country_code){case45:/* Denmark */case47:/* Norway */dos_codepage=865;break;default:/* US */dos_codepage=437;}elsedos_codepage=regs.x.bx&0xffff;#if __DJGPP__ >= 2/* Without this, we never see hidden files. Don't OR it with the previous value, so the value recorded at dump time, possibly with `preserve-case' flags set, won't get through. */__opendir_flags=__OPENDIR_FIND_HIDDEN;#if __DJGPP_MINOR__ == 0/* Under LFN, preserve the case of files as recorded in the directory (in DJGPP 2.01 and later this is automagically done by the library). */if(!NILP(Fmsdos_long_file_names()))__opendir_flags|=__OPENDIR_PRESERVE_CASE;#endif /* __DJGPP_MINOR__ == 0 */#endif /* __DJGPP__ >= 2 */}/* * Define everything */syms_of_dosfns(){defsubr(&Sint86);defsubr(&Sdos_memget);defsubr(&Sdos_memput);defsubr(&Smsdos_mouse_init);defsubr(&Smsdos_mouse_enable);defsubr(&Smsdos_set_keyboard);defsubr(&Sinsert_startup_screen);defsubr(&Smsdos_mouse_disable);#ifndef HAVE_X_WINDOWSdefsubr(&Smsdos_mouse_p);Qmsdos_color_translate=intern("msdos-color-translate");staticpro(&Qmsdos_color_translate);#endifDEFVAR_INT("dos-country-code",&dos_country_code,"The country code returned by Dos when Emacs was started.\n\Usually this is the international telephone prefix.");DEFVAR_INT("dos-codepage",&dos_codepage,"The codepage active when Emacs was started.\n\The following are known:\n\ 437 United States\n\ 850 Multilingual (Latin I)\n\ 852 Slavic (Latin II)\n\ 857 Turkish\n\ 860 Portugal\n\ 861 Iceland\n\ 863 Canada (French)\n\ 865 Norway/Denmark");DEFVAR_INT("dos-timezone-offset",&dos_timezone_offset,"The current timezone offset to UTC in minutes.ImplicitlymodifiedwhentheTZvariableischanged.");DEFVAR_LISP("dos-version",&Vdos_version,"The (MAJOR . MINOR) Dos version (subject to modification with setver).");DEFVAR_LISP("dos-display-scancodes",&Vdos_display_scancodes,"*When non-nil, the keyboard scan-codes are displayed at the bottom right\n\corner of the display (typically at the end of the mode line).\n\The output format is: scan code:char code*modifiers.");Vdos_display_scancodes=Qnil;DEFVAR_INT("dos-hyper-key",&dos_hyper_key,"*If set to 1, use right ALT key as hyper key.\n\If set to 2, use right CTRL key as hyper key.");dos_hyper_key=0;DEFVAR_INT("dos-super-key",&dos_super_key,"*If set to 1, use right ALT key as super key.\n\If set to 2, use right CTRL key as super key.");dos_super_key=0;DEFVAR_INT("dos-keypad-mode",&dos_keypad_mode,"*Controls what key code is returned by a key in the numeric keypad.\n\The `numlock ON' action is only taken if no modifier keys are pressed.\n\The value is an integer constructed by adding the following bits together:\n\\n\ 0x00 Digit key returns digit (if numlock ON)\n\ 0x01 Digit key returns kp-digit (if numlock ON)\n\ 0x02 Digit key returns M-digit (if numlock ON)\n\ 0x03 Digit key returns edit key (if numlock ON)\n\\n\ 0x00 Grey key returns char (if numlock ON)\n\ 0x04 Grey key returns kp-key (if numlock ON)\n\\n\ 0x00 Digit key returns digit (if numlock OFF)\n\ 0x10 Digit key returns kp-digit (if numlock OFF)\n\ 0x20 Digit key returns M-digit (if numlock OFF)\n\ 0x30 Digit key returns edit key (if numlock OFF)\n\\n\ 0x00 Grey key returns char (if numlock OFF)\n\ 0x40 Grey key returns kp-key (if numlock OFF)\n\\n\ 0x200 ALT-0..ALT-9 in top-row produces shifted codes.");dos_keypad_mode=0x75;DEFVAR_INT("dos-keyboard-layout",&dos_keyboard_layout,"Contains the country code for the current keyboard layout.\n\Use msdos-set-keyboard to select another keyboard layout.");dos_keyboard_layout=1;/* US */DEFVAR_INT("dos-decimal-point",&dos_decimal_point,"If non-zero, it contains the character to be returned when the\n\decimal point key in the numeric keypad is pressed when Num Lock is on.\n\If zero, the decimal point key returns the country code specific value.");dos_decimal_point=0;}#endif /* MSDOS */