Mercurial > emacs
view msdos/is_exec.c @ 30411:41f228350eca
Got rid of all byte-compiler warnings on Emacs Load
ada-xref.el before ada-prj.el, so that the Project menu is created
when ada-prj tries to add to it.
(ada-activate-keys-for-case): Suppress the characters that are not
part of the Ada syntax. Better compatibility with else-mode
(ada-adjust-case-interactive): When auto-casing is not active,
correctly insert newlines (used to insert only ^M). Prevent the
syntax table from being changed in case of an error
(or '_' becomes part of a word and some commands are confused).
Do nothing if ada-auto-case is nil.
(ada-after-keyword-p): Ignore keywords that are also attributes
(ada-batch-reformat): Update usage comment
(ada-call-from-contextual-menu): New function
(ada-case-read-exceptions): Reinitialize the casing exception list
first to nil first, so that the casing exception file can be
shared.
(ada-check-defun-name): Handles "configure" keyword for gnatdist
files.
(ada-compile-goto-error): Fix regexp used to detect a file:line
anywhere in the error message
(ada-contextual-menu-last-point): New variable
(ada-create-keymap): If the variable delete-key-deletes-forward is
t on XEmacs, it means that DEL should delete one character
forward.
(ada-create-menu): Use :included instead of :visible for XEmacs.
New submenu "Options".
(ada-end-stmt-re): Correctly indent "select ... then abort"
statements.
(ada-fill-comment-paragraph): Correctly delete all leading '--'
even if they don't match ada-fill-comment-prefix Fix handling of
paragraphs on the first or last line of a file.
(ada-format-paramlist): Fix handling of default parameter values.
(ada-get-body-name): New function.
(ada-get-current-indent): Optimized by searchling directly for an
existing generic part or a statement outside of it. Handle
ada-indent-align-comments when indenting comments Replaced some
regexps by testing directly the next character. This results in a
huge speedup on some files. New indentation scheme for renames
statements. Stop looking for the 'while' or 'for' associated with
a 'loop' at the first semicolon encountered. A "return" can also
match an anonymous access subprogram declaration.
(ada-get-indent-noindent): Ignore strings and comments when
looking for the keywords "record" and "private".
(ada-goto-matching-decl-start): When matching "if", make sure we
are not in fact seeing "end if". Ignore "when" statements except
when initial keyword was "begin". Fix handling of nested
procedures. Add a recursive call to this function to skip over
other 'end' statmts. Fix indentation for "when .. => begin"
(ada-in-open-paren-p): Fix indentation for complex boolean
expressions, where 'and then', 'or else' and parenthesis
statements are mixed up.
(ada-in-paramlist-p): Skip comments while searching for the
beginning Fix handling of operator declarations.
(ada-indent-align-comments): New variable
(ada-indent-current): Change the syntax table only in the
protected section, so that we are sure it is restored correctly.
(ada-indent-on-previous-lines): Use ada-use-indent and
ada-with-indent Correctly indent "select ... then"
(ada-indent-region): Slight speedup.
(ada-indent-renames): New variable.
(ada-last-which-function-subprog, ada-last-which-function-line):
New variables
(ada-looking-at-semi-private): Correctly indent the 'private'
keyword when it is the first word in a package declaration.
(ada-loose-case-word): Stop searching if at the end of the buffer.
(ada-loose-case-word, ada-capitalize-word): Recase the whole word
even if point is not initially at the end of the word.
(ada-matching-decl-start-re): Add "when".
(ada-mode): Add support for abbrev-mode, outline-mode and
which-func-mode Override the old find-file.el entry in
ff-special-constructs since it is using the obsolete
ada-spec-suffix variable
(ada-no-auto-case): New function
(ada-scan-paramlist): When parsing the argument type, accept
spaces (as in "X 'Class", generated by Rational Rose).
(ada-other-file-name): No longer loads the other file.
(ada-popup-menu): Save and restore the current buffer and cursor
position before and after displaying the menu.
(ada-search-ignore-complex-boolean): New function.
(ada-uncomment-region): Emacs21 already knows how to delete
comments not starting in the first column.
(ada-use-indent): New variable
(ada-which-function): New function.
(ada-with-indent): New variable
(ada-xemacs): evaluate it at compile time too, so that ada-mode.el
can be batch-compiled from the command line.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 24 Jul 2000 11:14:26 +0000 |
parents | 354e0c45cedf |
children | 695cf19ef79e |
line wrap: on
line source
/* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */ /* IS_EXEC.C * * Given a filename or a file handle, and the extension of the file, * determine if the file is executable. * First, the file extension is checked in case it uniquely identifies * the file as either an executable or not. Failing this, the first * two bytes of the file are tested for known signatures of executable * files. * * Copyright (c) 1994 Eli Zaretskii <eliz@is.elta.co.il> * * This software may be used freely so long as this copyright notice is * left intact. There is no warranty on this software. * */ #include <libc/stubs.h> #include <stdio.h> #include <string.h> #include <ctype.h> #include <errno.h> #include <dpmi.h> #include <go32.h> #include <io.h> #include <libc/farptrgs.h> #include <libc/dosio.h> extern unsigned short _djstat_flags; unsigned short _get_magic(const char *, int); int _is_executable(const char *, int, const char *); /* * Read a MAGIC NUMBER from a given file. These are the first * two bytes of the file, if we look at them as an unsigned short. */ #define _STAT_EXEC_EXT 2 /* get execute bits from file extension? */ #define _STAT_EXEC_MAGIC 4 /* get execute bits from magic signature? */ unsigned short _get_magic(const char *s, int fh) { __dpmi_regs regs; unsigned short retval; unsigned short fpos_high = 0, fpos_low = 0; int read_fail = 0; /* If given a pathname, open the file. */ if (s) { int handle; if((handle = _open(s,0)) == -1) return 0; regs.x.bx = handle; } /* Else file already open. Remember its current file position and move to beginning of file. */ else { regs.x.ax = 0x4201; /* set pointer from current position */ regs.x.bx = fh; regs.x.cx = regs.x.dx = 0; /* move 0 bytes (i.e., stay put) */ __dpmi_int(0x21, ®s); if (regs.x.flags & 1) { errno = __doserr_to_errno(regs.x.ax); return 0; } fpos_high = regs.x.dx; /* got current position */ fpos_low = regs.x.ax; regs.x.ax = 0x4200; /* set pointer from the beginning of file */ regs.x.cx = regs.x.dx = 0; /* move to beginning of file */ __dpmi_int(0x21, ®s); if (regs.x.flags & 1) { errno = __doserr_to_errno(regs.x.ax); return 0; } } regs.x.ds = __tb_segment; regs.x.dx = __tb_offset; /* Read 2 bytes from the file. */ regs.x.ax = 0x3f00; regs.x.cx = 2; __dpmi_int(0x21, ®s); /* We can either (1) succeed, (2) read less than 2 bytes, or (3) fail to read at all. */ if (regs.x.ax != 2) read_fail = (regs.x.flags & 1) ? regs.x.ax : -1; /* If called with filename, close the file. */ if (s) { regs.x.ax = 0x3e00; __dpmi_int(0x21, ®s); if (regs.x.flags & 1) errno = __doserr_to_errno(regs.x.ax); } /* Else leave file pointer where we found it. */ else { regs.x.ax = 0x4200; /* set pointer from the beginning of file */ regs.x.bx = fh; regs.x.cx = fpos_high; regs.x.dx = fpos_low; __dpmi_int(0x21, ®s); if (regs.x.flags & 1) { errno = __doserr_to_errno(regs.x.ax); return 0; } } if (read_fail == 0) retval = _farpeekw(_dos_ds, __tb); else { /* The file couldn't be read: assume non-executable. If the file *is* executable, but was passed as a file-handle, and the user opened it in write-only mode, they lose... */ retval = 0; if (read_fail != -1) errno = __doserr_to_errno(read_fail); } return retval; } /* A list of extensions which designate executable files. These are NOT tested for the magic number. */ static char executables[] = "|EXE|COM|BAT|BTM|DLL|VXD|"; /* A list of extensions which belong to files known to NEVER be executables. These exist to minimize read()'ing files while detecting executables by magic number. You are welcome to add to this list, but remember: only extensions which could NEVER be present in executables should go here. */ static char non_executables[] = "\ |A|A01|A02|A03|A04|A05|ADL|ARC|ARJ|ASC|ASM|AUX|AWK\ |BAS|BIB|BGI|BMP\ |C|CC|CFG|CGZ|CH3|CHR|CI|CLP|CMF|CPI|CPP|CXX\ |DAT|DBF|DIZ|DOC|DVI\ |E|EL|ELC\ |F77|FN3\ |GIF|GZ\ |H|HLP|HPP|HXX\ |ICO|IN|INC|INF|INI\ |JPG\ |L|LEX|LF|LIB|LOG|LST|LZH\ |M|MAK|MAP|MF|MID|MPG\ |O|OBJ\ |PAK|PAS|PBM|PCD|PCX|PDS|PIC|PIF|PN3|PRJ|PS\ |RAS|RGB|RLE\ |S|SND|SY3\ |TAR|TAZ|TEX|TGA|TGZ|TIF|TXH|TXI|TXT\ |VOC\ |WAV|WK1|WK3|WKB|WQ1|WQ3|WQ4|WQ5|WQ6|WQ!\ |XBM\ |Y\ |ZIP|ZOO|"; int _is_executable(const char *filename, int fhandle, const char *extension) { if (!extension && filename) { const char *cp, *ep=0; for (cp=filename; *cp; cp++) { if (*cp == '.') ep = cp; if (*cp == '/' || *cp == '\\' || *cp == ':') ep = 0; } extension = ep; } if ((_djstat_flags & _STAT_EXEC_EXT) == 0 && extension && *extension && strlen(extension) <= ((extension[0]=='.') ? 4 : 3)) { /* Search the list of extensions in executables[]. */ char tmp_buf[6], *tp = tmp_buf; *tp++ = '|'; if (*extension == '.') extension++; while (*extension) *tp++ = toupper (*extension++); *tp++ = '|'; *tp = '\0'; if (strstr(non_executables, tmp_buf)) return 0; else if (strstr(executables, tmp_buf)) return 1; } /* No extension, or extension doesn't define execute bits unambiguously. We are in for some dirty work. Read the first two bytes of the file and see if they are any of the known magic numbers which designate executable files. Unix-like shells, which have executable shell scripts without extensions and DON'T have "#!" as their FIRST TWO CHARACTERS, lose here. Sorry, folks. */ if ( (_djstat_flags & _STAT_EXEC_MAGIC) == 0 ) { switch (_get_magic(filename, fhandle)) { case 0x5a4d: /* "MZ" */ case 0x010b: case 0x014c: case 0x2123: /* "#!" */ return 1; } } return 0; }