xemacs-beta: src/data.c comparison

comparison src/data.c @ 4693:80cd90837ac5

Add argument information to remaining MANY or UNEVALLED C subrs. src/ChangeLog addition: 2009-09-20 Aidan Kehoe <kehoea@parhasard.net> * alloc.c (Flist): (Fvector): (Fbit_vector): (Fmake_byte_code): (Fstring): * data.c (Feqlsign): (Flss): (Fgtr): (Fleq): (Fgeq): (Fneq): (Fgtr): (Fplus): (Fminus): (Ftimes): (Fdiv): (Fquo): (Fmax): (Fmin): (Flogand): (Flogior): (Flogxor): * editfns.c (Fsave_excursion): (Fsave_current_buffer): (Fencode_time): (Finsert): (Finsert_before_markers): (Fsave_restriction): (Fformat): * elhash.c (Fmake_hash_table): * eval.c (Fdefun): (Fdefmacro): (Fcatch): (Funwind_protect): (Fcall_with_condition_handler): (Ffuncall): (Fapply): (Frun_hooks): * fns.c (Fappend): (Fconcat): (Fvconcat): (Fbvconcat): (Fnconc): * print.c (Fwith_output_to_temp_buffer): * process.c (Fstart_process_internal): * window.c (Fsave_window_excursion): * widget.c (Fwidget_apply): Add argument information, in a form understood by #'function-arglist, to all these MANY or UNEVALLED (that is to say, special-operator) built-in functions.

author	Aidan Kehoe <kehoea@parhasard.net>
date	Sun, 20 Sep 2009 21:29:00 +0100
parents	721daee0fcd8
children	aa5ed11f473b

comparison

equal deleted inserted replaced

-:dc3c2f298857
+:80cd90837ac5
 #endif /* WITH_NUMBER_TYPES */
 DEFUN ("=", Feqlsign, 1, MANY, 0, /*
 Return t if all the arguments are numerically equal.
 The arguments may be numbers, characters or markers.
+arguments: (FIRST &rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 ARITHCOMPARE_MANY (==, eql)
 }
 (That is, if there is a second argument, it must be numerically greater than
 the first.  If there is a third, it must be numerically greater than the
 second, and so on.)  At least one argument is required.
 The arguments may be numbers, characters or markers.
+arguments: (FIRST &rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 ARITHCOMPARE_MANY (<, lt)
 }
 (That is, if there is a second argument, it must be numerically less than
 the first.  If there is a third, it must be numerically less than the
 second, and so forth.)  At least one argument is required.
 The arguments may be numbers, characters or markers.
+arguments: (FIRST &rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 ARITHCOMPARE_MANY (>, gt)
 }
 DEFUN ("<=", Fleq, 1, MANY, 0, /*
 Return t if the sequence of arguments is monotonically nondecreasing.
 The arguments may be numbers, characters or markers.
+arguments: (FIRST &rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 ARITHCOMPARE_MANY (<=, le)
 }
 DEFUN (">=", Fgeq, 1, MANY, 0, /*
 Return t if the sequence of arguments is monotonically nonincreasing.
 The arguments may be numbers, characters or markers.
+arguments: (FIRST &rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 ARITHCOMPARE_MANY (>=, ge)
 }
 complexity are higher, which means that those algorithms will run SLOWER
 than this one in the common case.  Optimize the common case! */
 DEFUN ("/=", Fneq, 1, MANY, 0, /*
 Return t if no two arguments are numerically equal.
 The arguments may be numbers, characters or markers.
+arguments: (FIRST &rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 #ifdef WITH_NUMBER_TYPES
 REGISTER int i, j;
 DEFUN ("+", Fplus, 0, MANY, 0, /*
 Return sum of any number of arguments.
 The arguments should all be numbers, characters or markers.
+arguments: (&rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 #ifdef WITH_NUMBER_TYPES
 REGISTER int i;
 DEFUN ("-", Fminus, 1, MANY, 0, /*
 Negate number or subtract numbers, characters or markers.
 With one arg, negates it.  With more than one arg,
 subtracts all but the first from the first.
+arguments: (FIRST &rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 #ifdef WITH_NUMBER_TYPES
 REGISTER int i;
 }
 DEFUN ("*", Ftimes, 0, MANY, 0, /*
 Return product of any number of arguments.
 The arguments should all be numbers, characters or markers.
+arguments: (&rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 #ifdef WITH_NUMBER_TYPES
 REGISTER int i;
 DEFUN ("div", Fdiv, 1, MANY, 0, /*
 Same as `/', but dividing integers creates a ratio instead of truncating.
 Note that this is a departure from Common Lisp, where / creates ratios when
 dividing integers.  Having a separate function lets us avoid breaking existing
 Emacs Lisp code that expects / to do integer division.
+arguments: (FIRST &rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 REGISTER int i;
 Lisp_Object accum, divisor;
 return Qnil; /* not (usually) reached */
 }
 #endif /* HAVE_RATIO */
 DEFUN ("/", Fquo, 1, MANY, 0, /*
-Return first argument divided by all the remaining arguments.
+Return FIRST divided by all the remaining arguments.
 The arguments must be numbers, characters or markers.
 With one argument, reciprocates the argument.
+arguments: (FIRST &rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 #ifdef WITH_NUMBER_TYPES
 REGISTER int i;
 DEFUN ("max", Fmax, 1, MANY, 0, /*
 Return largest of all the arguments.
 All arguments must be real numbers, characters or markers.
 The value is always a number; markers and characters are converted
 to numbers.
+arguments: (FIRST &rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 #ifdef WITH_NUMBER_TYPES
 REGISTER int i, maxindex = 0;
 DEFUN ("min", Fmin, 1, MANY, 0, /*
 Return smallest of all the arguments.
 All arguments must be numbers, characters or markers.
 The value is always a number; markers and characters are converted
 to numbers.
+arguments: (FIRST &rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 #ifdef WITH_NUMBER_TYPES
 REGISTER int i, minindex = 0;
 }
 DEFUN ("logand", Flogand, 0, MANY, 0, /*
 Return bitwise-and of all the arguments.
 Arguments may be integers, or markers or characters converted to integers.
+arguments: (&rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 #ifdef HAVE_BIGNUM
 REGISTER int i;
 }
 DEFUN ("logior", Flogior, 0, MANY, 0, /*
 Return bitwise-or of all the arguments.
 Arguments may be integers, or markers or characters converted to integers.
+arguments: (&rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 #ifdef HAVE_BIGNUM
 REGISTER int i;
 }
 DEFUN ("logxor", Flogxor, 0, MANY, 0, /*
 Return bitwise-exclusive-or of all the arguments.
 Arguments may be integers, or markers or characters converted to integers.
+arguments: (&rest ARGS)
 */
 (int nargs, Lisp_Object *args))
 {
 #ifdef HAVE_BIGNUM
 REGISTER int i;

Mercurial > hg > xemacs-beta

comparison src/data.c @ 4693:80cd90837ac5