[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r116924: * fns.c (validate_subarray): Rename from va
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] trunk r116924: * fns.c (validate_subarray): Rename from validate_substring, |
Date: |
Tue, 01 Apr 2014 20:18:17 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 116924
revision-id: address@hidden
parent: address@hidden
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Tue 2014-04-01 13:18:12 -0700
message:
* fns.c (validate_subarray): Rename from validate_substring,
since it works for vectors too. New arg ARRAY. Optimize for the
non-nil case. Instead of returning bool, throw an error if out of
range, so that the caller needn't do that. All uses changed.
Report original values if out of range.
(Fsubstring, Fsubstring_no_properties, secure_hash):
Also optimize the case where FROM is 0 or TO is the size.
modified:
src/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1438
src/fns.c fns.c-20091113204419-o5vbwnq5f7feedwu-203
=== modified file 'src/ChangeLog'
--- a/src/ChangeLog 2014-03-31 12:06:34 +0000
+++ b/src/ChangeLog 2014-04-01 20:18:12 +0000
@@ -1,3 +1,13 @@
+2014-04-01 Paul Eggert <address@hidden>
+
+ * fns.c (validate_subarray): Rename from validate_substring,
+ since it works for vectors too. New arg ARRAY. Optimize for the
+ non-nil case. Instead of returning bool, throw an error if out of
+ range, so that the caller needn't do that. All uses changed.
+ Report original values if out of range.
+ (Fsubstring, Fsubstring_no_properties, secure_hash):
+ Also optimize the case where FROM is 0 or TO is the size.
+
2014-03-31 Dmitry Antipov <address@hidden>
* search.c (Freplace_match): Use make_specified_string.
=== modified file 'src/fns.c'
--- a/src/fns.c 2014-03-31 12:06:34 +0000
+++ b/src/fns.c 2014-04-01 20:18:12 +0000
@@ -1127,36 +1127,45 @@
return alist;
}
-/* True if [FROM..TO) specifies a valid substring of SIZE-characters string.
- If FROM is nil, 0 assumed. If TO is nil, SIZE assumed. Negative
- values are counted from the end. *FROM_CHAR and *TO_CHAR are updated
- with corresponding C values of TO and FROM. */
+/* Check that ARRAY can have a valid subarray [FROM..TO),
+ given that its size is SIZE.
+ If FROM is nil, use 0; if TO is nil, use SIZE.
+ Count negative values backwards from the end.
+ Set *IFROM and *ITO to the two indexes used. */
-static bool
-validate_substring (Lisp_Object from, Lisp_Object to, ptrdiff_t size,
- EMACS_INT *from_char, EMACS_INT *to_char)
+static void
+validate_subarray (Lisp_Object array, Lisp_Object from, Lisp_Object to,
+ ptrdiff_t size, EMACS_INT *ifrom, EMACS_INT *ito)
{
- if (NILP (from))
- *from_char = 0;
- else
- {
- CHECK_NUMBER (from);
- *from_char = XINT (from);
- if (*from_char < 0)
- *from_char += size;
- }
-
- if (NILP (to))
- *to_char = size;
- else
- {
- CHECK_NUMBER (to);
- *to_char = XINT (to);
- if (*to_char < 0)
- *to_char += size;
- }
-
- return (0 <= *from_char && *from_char <= *to_char && *to_char <= size);
+ EMACS_INT f, t;
+
+ if (INTEGERP (from))
+ {
+ f = XINT (from);
+ if (f < 0)
+ f += size;
+ }
+ else if (NILP (from))
+ f = 0;
+ else
+ wrong_type_argument (Qintegerp, from);
+
+ if (INTEGERP (to))
+ {
+ t = XINT (to);
+ if (t < 0)
+ t += size;
+ }
+ else if (NILP (to))
+ t = size;
+ else
+ wrong_type_argument (Qintegerp, to);
+
+ if (! (0 <= f && f <= t && t <= size))
+ args_out_of_range_3 (array, from, to);
+
+ *ifrom = f;
+ *ito = t;
}
DEFUN ("substring", Fsubstring, Ssubstring, 1, 3, 0,
@@ -1176,7 +1185,7 @@
{
Lisp_Object res;
ptrdiff_t size;
- EMACS_INT from_char, to_char;
+ EMACS_INT ifrom, ito;
if (STRINGP (string))
size = SCHARS (string);
@@ -1184,24 +1193,23 @@
size = ASIZE (string);
else
wrong_type_argument (Qarrayp, string);
-
- if (!validate_substring (from, to, size, &from_char, &to_char))
- args_out_of_range_3 (string, make_number (from_char),
- make_number (to_char));
+
+ validate_subarray (string, from, to, size, &ifrom, &ito);
if (STRINGP (string))
{
- ptrdiff_t to_byte =
- (NILP (to) ? SBYTES (string) : string_char_to_byte (string, to_char));
- ptrdiff_t from_byte = string_char_to_byte (string, from_char);
+ ptrdiff_t from_byte
+ = !ifrom ? 0 : string_char_to_byte (string, ifrom);
+ ptrdiff_t to_byte
+ = ito == size ? SBYTES (string) : string_char_to_byte (string, ito);
res = make_specified_string (SSDATA (string) + from_byte,
- to_char - from_char, to_byte - from_byte,
+ ito - ifrom, to_byte - from_byte,
STRING_MULTIBYTE (string));
- copy_text_properties (make_number (from_char), make_number (to_char),
+ copy_text_properties (make_number (ifrom), make_number (ito),
string, make_number (0), res, Qnil);
}
else
- res = Fvector (to_char - from_char, aref_addr (string, from_char));
+ res = Fvector (ito - ifrom, aref_addr (string, ifrom));
return res;
}
@@ -1224,14 +1232,11 @@
CHECK_STRING (string);
size = SCHARS (string);
-
- if (!validate_substring (from, to, size, &from_char, &to_char))
- args_out_of_range_3 (string, make_number (from_char),
- make_number (to_char));
-
- from_byte = NILP (from) ? 0 : string_char_to_byte (string, from_char);
+ validate_subarray (string, from, to, size, &from_char, &to_char);
+
+ from_byte = !from_char ? 0 : string_char_to_byte (string, from_char);
to_byte =
- NILP (to) ? SBYTES (string) : string_char_to_byte (string, to_char);
+ to_char == size ? SBYTES (string) : string_char_to_byte (string, to_char);
return make_specified_string (SSDATA (string) + from_byte,
to_char - from_char, to_byte - from_byte,
STRING_MULTIBYTE (string));
@@ -4612,14 +4617,12 @@
object = code_convert_string (object, coding_system, Qnil, 1, 0, 1);
size = SCHARS (object);
-
- if (!validate_substring (start, end, size, &start_char, &end_char))
- args_out_of_range_3 (object, make_number (start_char),
- make_number (end_char));
-
- start_byte = NILP (start) ? 0 : string_char_to_byte (object, start_char);
- end_byte =
- NILP (end) ? SBYTES (object) : string_char_to_byte (object, end_char);
+ validate_subarray (object, start, end, size, &start_char, &end_char);
+
+ start_byte = !start_char ? 0 : string_char_to_byte (object, start_char);
+ end_byte = (end_char == size
+ ? SBYTES (object)
+ : string_char_to_byte (object, end_char));
}
else
{
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r116924: * fns.c (validate_subarray): Rename from validate_substring,,
Paul Eggert <=