Mercurial > emacs
view lib-src/=etags-vmslib.c @ 17464:36483a1ada24
(SYNTAX_ENTRY_VIA_PROPERTY): Set to take `syntax-table'
text property into account when doing SYNTAX (c).
(ST_COMMENT_STYLE, ST_STRING_STYLE): New codes to denote
delimiters for new types of strings and comments.
(Vparse_sexp_lookup_properties): New variable.
(struct lisp_parse_state): Comment updated.
(gl_state): New global variable.
(update_syntax_table): New function.
(char_quoted): Move earlier, update gl_state when needed.
(find_defun_start): Update gl_state when needed.
(back_comment): New function.
(Scomment_fence, Sstring_fence): New delimeter char classes
denoted by `!' and `|'.
(Fchar_syntax, Fmatching_paren): Update gl_state to whole-bufferstate.
(scan_words): update gl_state when needed.
(Fskip_chars_forward): Move from search.c.
(Fskip_chars_backward): Move from search.c.
(Fskip_syntax_forward): Move from search.c.
(Fskip_syntax_backward): Move from search.c.
(skip_chars): Move from search.c.
(Fforward_comment, scan_lists): Update gl_state when needed.
Handle Scomment_fence, Sstring_fence.
(Fbackward_prefix_chars) Update gl_state when needed.
(scan_sexps_forward): Update gl_state when needed.
Handle Scomment_fence, Sstring_fence. If comment_stop==-1, stop at start
or end of comment or string.
(Fparse-partial-sexp): Doc fix.
(syms_of_syntax): Move initialization of skip* from search.c.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 15 Apr 1997 04:53:58 +0000 |
parents | 4df2f432697b |
children |
line wrap: on
line source
/* File name wild card expansion for VMS. This file is part of the etags program. Copyright (C) 1987 Free Software Foundation, Inc. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #include <stdio.h> typedef char tbool; /* This is a BUG! ANY arbitrary limit is a BUG! Won't someone please fix this? */ #define MAX_FILE_SPEC_LEN 255 typedef struct { short curlen; char body[MAX_FILE_SPEC_LEN + 1]; } vspec; #define EOS '\0' #define NO 0 #define YES 1 #define NULL 0 /* gfnames - return in successive calls the name of each file specified by all the remaining args in the command-line expanding wild cards and stepping over arguments when they have been processed completely */ char* gfnames(pac, pav, p_error) int *pac; char **pav[]; tbool *p_error; { static vspec filename = {MAX_FILE_SPEC_LEN, "\0"}; short fn_exp(); while (1) if (*pac == 0) { *p_error = NO; return(NULL); } else switch(fn_exp(&filename, **pav)) { case 1: *p_error = NO; return(filename.body); break; case 0: --*pac; ++*pav; break; default: *p_error = YES; return(filename.body); break; } } /* fn_exp - expand specification of list of file names returning in each successive call the next filename matching the input spec. The function expects that each in_spec passed to it will be processed to completion; in particular, up to and including the call following that in which the last matching name is returned, the function ignores the value of in_spec, and will only start processing a new spec with the following call. If an error occurs, on return out_spec contains the value of in_spec when the error occurred. With each successive filename returned in out_spec, the function's return value is one. When there are no more matching names the function returns zero. If on the first call no file matches in_spec, or there is any other error, -1 is returned. */ #include <rmsdef.h> #include <descrip.h> #define OUTSIZE MAX_FILE_SPEC_LEN short fn_exp(out, in) vspec *out; char *in; { static long context = 0; static struct dsc$descriptor_s o; static struct dsc$descriptor_s i; static tbool pass1 = YES; long status; short retval; if (pass1) { pass1 = NO; o.dsc$a_pointer = (char *) out; o.dsc$w_length = (short)OUTSIZE; i.dsc$a_pointer = in; i.dsc$w_length = (short)strlen(in); i.dsc$b_dtype = DSC$K_DTYPE_T; i.dsc$b_class = DSC$K_CLASS_S; o.dsc$b_dtype = DSC$K_DTYPE_VT; o.dsc$b_class = DSC$K_CLASS_VS; } if ( (status = lib$find_file(&i, &o, &context, 0, 0)) == RMS$_NORMAL) { out->body[out->curlen] = EOS; return(1); } else if (status == RMS$_NMF) retval = 0; else { strcpy(out->body, in); retval = -1; } lib$find_file_end(&context); pass1 = YES; return(retval); } #ifndef OLD /* Newer versions of VMS do provide `system'. */ system(cmd) char *cmd; { fprintf(stderr, "system() function not implemented under VMS\n"); } #endif #define VERSION_DELIM ';' char *massage_name(s) char *s; { char *start = s; for ( ; *s; s++) if (*s == VERSION_DELIM) { *s = EOS; break; } else *s = tolower(*s); return(start); }