Mercurial > emacs
view lib-src/=etags-vmslib.c @ 20331:39baaa9c5980
Some comment and doc fixes.
(ps-print-version): New version number (3.05.2) and doc fix.
(ps-print, ps-header-lines, ps-show-n-of-n, ps-font-info-database)
(ps-font-family, ps-font-size, ps-header-font-family)
(ps-header-font-size, ps-header-title-font-size, ps-bold-faces)
(ps-italic-faces, ps-underlined-faces, ps-left-header, ps-right-header)
(ps-font, ps-font-bold, ps-font-italic, ps-font-bold-italic)
(ps-avg-char-width, ps-space-width, ps-line-height): Doc fix.
(ps-error-scale-font): New fn.
(ps-soft-lf, ps-hard-lf): Fn deleted.
(ps-get-page-dimensions, ps-set-bg, ps-face-bold-p, ps-face-italic-p)
(ps-set-color): Reindentation.
(ps-output-string-prim, ps-xemacs-face-kind-p): Internal blank lines
deleted.
(ps-set-font): Little programming improvement.
(ps-line-lengths-internal, ps-nb-pages, ps-select-font)
(ps-select-header-font): Simplify some expressions.
(ps-plot-region): Replace (- X 1) by (1- X).
(ps-generate-header): Replace (+ X 1) by (1+ X).
(ps-print-preprint, ps-plot-with-face, ps-print-ensure-fontified)
(ps-kill-emacs-check): Replace (if (and A B) C) by (and A B C).
(ps-init-output-queue, ps-gnus-article-prepare-hook, ps-jts-ps-setup):
Replace (setq a b)(setq c d) by (setq a b c d).
(ps-begin-file, ps-end-file): Replace (ps-output A)(ps-output B)
by (ps-output A B).
(ps-begin-page): Replace (ps-output A)(ps-output B) by (ps-output A B),
replace (setq a b)(setq c d) by (setq a b c d).
(ps-next-line, ps-continue-line): Replace (setq a b)(setq c d)
by (setq a b c d), and incorporates ps-soft-lf and ps-hard-lf,
respectively.
(ps-plot): Replace (setq a b)(setq c d) by (setq a b c d),
and programming improvement.
(ps-generate-postscript-with-faces): Initialization fix,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if (and A B) C) by (and A B C).
(ps-generate): Doc fix, reprogramming to set the page count,
replace (setq a b)(setq c d) by (setq a b c d),
replace (if A nil B) by (or A B),
replace (if (and A B) C) by (and A B C).
(ps-info-mode-hook): Replace (list 'A 'B) by '(A B).
(ps-jack-setup): Replace (list) by nil.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Sun, 23 Nov 1997 02:26:50 +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); }