Mercurial > hg > xemacs-beta
view netinstall/regedit.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 | 146d342ff859 |
| 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> * */ /* Finds the existing root point, or returns NULL. */ char * find_root_location (int *issystem, int *isnative); char * find_cygwin_root (int *issystem); /* Similar to the mount and umount functions, but simplified */ void create_xemacs_root (char *posix, int issystem, int isnative); void remove_xemacs_root (); void set_app_path (char *exe, char* path, int issystem); void set_install_path (char* path, int issystem); void setup_explorer (char* file_type, char* name, char *exe); void remove_app_path (char *exe); void remove_uninstall_path ();