Mercurial > hg > xemacs-beta
view netinstall/tar.h @ 5272:66dbef5f8076
Be better about bounds-checking, #'subseq, #'fill; add same, #'reduce.
2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
* fns.c (Fsubseq):
Change the string code to better fit in with the rest of this
function (it still uses get_string_range_char(), though, which *may*
diverge algorithmically from what we're doing).
If dealing with a cons, only call #'length if we have reason to
believe that the START and END arguments are badly specified, and
check for circular lists ourselves when that's appropriate.
If dealing with a vector, call Fvector() on the appropriate subset
of the old vector's data directly, don't initialise the result
with nil and then copy.
(Ffill):
Only check the range arguments for a cons SEQUENCE if we have good
reason to think they were badly specified.
(Freduce):
Handle multiple values properly. Add bounds checking to this
function, as specificied by ANSI Common Lisp.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Thu, 16 Sep 2010 18:46:05 +0100 |
| parents | 3078fd1074e8 |
| children |
line wrap: on
line source
/* * Copyright (c) 2000, Red Hat, 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 of the License, or * (at your option) any later version. * * A copy of the GNU General Public License can be found at * http://www.gnu.org/ * * Written by DJ Delorie <dj@cygnus.com> * */ #ifndef __TAR_H_ #define __TAR_H_ /* Only one tarfile may be open at a time. gzipped files handled automatically */ /* returns zero on success, nonzero on failure */ int tar_open (char *pathname); /* returns pointer to static buf containing name of next file */ char * tar_next_file (); /* byte position in [compressed] file */ int tar_ftell (); /* pass adjusted path, returns zero on success, nonzero on failure */ int tar_read_file (char *path); /* closes the file */ int tar_close (); /* pass path to tar file and from/to pairs for path prefix (NULLs at end , returns zero if completely successful, nonzero (counts errors) on failure */ int tar_auto (char *pathname, char **map); int tar_mkdir_p (int isadir, char *path); /* extern int _tar_verbose; extern FILE * _tar_vfile; */ #endif