diff options
Diffstat (limited to 'src/casefiddle.c')
| -rw-r--r-- | src/casefiddle.c | 313 |
1 files changed, 0 insertions, 313 deletions
diff --git a/src/casefiddle.c b/src/casefiddle.c deleted file mode 100644 index f4400814778..00000000000 --- a/src/casefiddle.c +++ /dev/null @@ -1,313 +0,0 @@ -/* GNU Emacs case conversion functions. - Copyright (C) 1985, 1994 Free Software Foundation, Inc. - -This file is part of GNU Emacs. - -GNU Emacs 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. - -GNU Emacs 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 GNU Emacs; see the file COPYING. If not, write to -the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ - - -#include <config.h> -#include "lisp.h" -#include "buffer.h" -#include "commands.h" -#include "syntax.h" - -enum case_action {CASE_UP, CASE_DOWN, CASE_CAPITALIZE, CASE_CAPITALIZE_UP}; - -Lisp_Object -casify_object (flag, obj) - enum case_action flag; - Lisp_Object obj; -{ - register int i, c, len; - register int inword = flag == CASE_DOWN; - - /* If the case table is flagged as modified, rescan it. */ - if (NILP (XCHAR_TABLE (current_buffer->downcase_table)->extras[1])) - Fset_case_table (current_buffer->downcase_table); - - while (1) - { - if (INTEGERP (obj)) - { - c = XINT (obj); - if (c >= 0 && c <= 0400) - { - if (inword) - XSETFASTINT (obj, DOWNCASE (c)); - else if (!UPPERCASEP (c)) - XSETFASTINT (obj, UPCASE1 (c)); - } - return obj; - } - if (STRINGP (obj)) - { - obj = Fcopy_sequence (obj); - len = XSTRING (obj)->size; - for (i = 0; i < len; i++) - { - c = XSTRING (obj)->data[i]; - if (inword && flag != CASE_CAPITALIZE_UP) - c = DOWNCASE (c); - else if (!UPPERCASEP (c) - && (!inword || flag != CASE_CAPITALIZE_UP)) - c = UPCASE1 (c); - XSTRING (obj)->data[i] = c; - if ((int) flag >= (int) CASE_CAPITALIZE) - inword = SYNTAX (c) == Sword; - } - return obj; - } - obj = wrong_type_argument (Qchar_or_string_p, obj); - } -} - -DEFUN ("upcase", Fupcase, Supcase, 1, 1, 0, - "Convert argument to upper case and return that.\n\ -The argument may be a character or string. The result has the same type.\n\ -The argument object is not altered--the value is a copy.\n\ -See also `capitalize', `downcase' and `upcase-initials'.") - (obj) - Lisp_Object obj; -{ - return casify_object (CASE_UP, obj); -} - -DEFUN ("downcase", Fdowncase, Sdowncase, 1, 1, 0, - "Convert argument to lower case and return that.\n\ -The argument may be a character or string. The result has the same type.\n\ -The argument object is not altered--the value is a copy.") - (obj) - Lisp_Object obj; -{ - return casify_object (CASE_DOWN, obj); -} - -DEFUN ("capitalize", Fcapitalize, Scapitalize, 1, 1, 0, - "Convert argument to capitalized form and return that.\n\ -This means that each word's first character is upper case\n\ -and the rest is lower case.\n\ -The argument may be a character or string. The result has the same type.\n\ -The argument object is not altered--the value is a copy.") - (obj) - Lisp_Object obj; -{ - return casify_object (CASE_CAPITALIZE, obj); -} - -/* Like Fcapitalize but change only the initials. */ - -DEFUN ("upcase-initials", Fupcase_initials, Supcase_initials, 1, 1, 0, - "Convert the initial of each word in the argument to upper case.\n\ -Do not change the other letters of each word.\n\ -The argument may be a character or string. The result has the same type.\n\ -The argument object is not altered--the value is a copy.") - (obj) - Lisp_Object obj; -{ - return casify_object (CASE_CAPITALIZE_UP, obj); -} - -/* flag is CASE_UP, CASE_DOWN or CASE_CAPITALIZE or CASE_CAPITALIZE_UP. - b and e specify range of buffer to operate on. */ - -casify_region (flag, b, e) - enum case_action flag; - Lisp_Object b, e; -{ - register int i; - register int c; - register int inword = flag == CASE_DOWN; - int start, end; - - if (EQ (b, e)) - /* Not modifying because nothing marked */ - return; - - /* If the case table is flagged as modified, rescan it. */ - if (NILP (XCHAR_TABLE (current_buffer->downcase_table)->extras[1])) - Fset_case_table (current_buffer->downcase_table); - - validate_region (&b, &e); - start = XFASTINT (b); - end = XFASTINT (e); - modify_region (current_buffer, start, end); - record_change (start, end - start); - - for (i = start; i < end; i++) - { - c = FETCH_CHAR (i); - if (inword && flag != CASE_CAPITALIZE_UP) - c = DOWNCASE (c); - else if (!UPPERCASEP (c) - && (!inword || flag != CASE_CAPITALIZE_UP)) - c = UPCASE1 (c); - FETCH_CHAR (i) = c; - if ((int) flag >= (int) CASE_CAPITALIZE) - inword = SYNTAX (c) == Sword; - } - - signal_after_change (start, end - start, end - start); -} - -DEFUN ("upcase-region", Fupcase_region, Supcase_region, 2, 2, "r", - "Convert the region to upper case. In programs, wants two arguments.\n\ -These arguments specify the starting and ending character numbers of\n\ -the region to operate on. When used as a command, the text between\n\ -point and the mark is operated on.\n\ -See also `capitalize-region'.") - (beg, end) - Lisp_Object beg, end; -{ - casify_region (CASE_UP, beg, end); - return Qnil; -} - -DEFUN ("downcase-region", Fdowncase_region, Sdowncase_region, 2, 2, "r", - "Convert the region to lower case. In programs, wants two arguments.\n\ -These arguments specify the starting and ending character numbers of\n\ -the region to operate on. When used as a command, the text between\n\ -point and the mark is operated on.") - (beg, end) - Lisp_Object beg, end; -{ - casify_region (CASE_DOWN, beg, end); - return Qnil; -} - -DEFUN ("capitalize-region", Fcapitalize_region, Scapitalize_region, 2, 2, "r", - "Convert the region to capitalized form.\n\ -Capitalized form means each word's first character is upper case\n\ -and the rest of it is lower case.\n\ -In programs, give two arguments, the starting and ending\n\ -character positions to operate on.") - (beg, end) - Lisp_Object beg, end; -{ - casify_region (CASE_CAPITALIZE, beg, end); - return Qnil; -} - -/* Like Fcapitalize_region but change only the initials. */ - -DEFUN ("upcase-initials-region", Fupcase_initials_region, - Supcase_initials_region, 2, 2, "r", - "Upcase the initial of each word in the region.\n\ -Subsequent letters of each word are not changed.\n\ -In programs, give two arguments, the starting and ending\n\ -character positions to operate on.") - (beg, end) - Lisp_Object beg, end; -{ - casify_region (CASE_CAPITALIZE_UP, beg, end); - return Qnil; -} - -Lisp_Object -operate_on_word (arg, newpoint) - Lisp_Object arg; - int *newpoint; -{ - Lisp_Object val; - int farend; - int iarg; - - CHECK_NUMBER (arg, 0); - iarg = XINT (arg); - farend = scan_words (PT, iarg); - if (!farend) - farend = iarg > 0 ? ZV : BEGV; - - *newpoint = PT > farend ? PT : farend; - XSETFASTINT (val, farend); - - return val; -} - -DEFUN ("upcase-word", Fupcase_word, Supcase_word, 1, 1, "p", - "Convert following word (or ARG words) to upper case, moving over.\n\ -With negative argument, convert previous words but do not move.\n\ -See also `capitalize-word'.") - (arg) - Lisp_Object arg; -{ - Lisp_Object beg, end; - int newpoint; - XSETFASTINT (beg, PT); - end = operate_on_word (arg, &newpoint); - casify_region (CASE_UP, beg, end); - SET_PT (newpoint); - return Qnil; -} - -DEFUN ("downcase-word", Fdowncase_word, Sdowncase_word, 1, 1, "p", - "Convert following word (or ARG words) to lower case, moving over.\n\ -With negative argument, convert previous words but do not move.") - (arg) - Lisp_Object arg; -{ - Lisp_Object beg, end; - int newpoint; - XSETFASTINT (beg, PT); - end = operate_on_word (arg, &newpoint); - casify_region (CASE_DOWN, beg, end); - SET_PT (newpoint); - return Qnil; -} - -DEFUN ("capitalize-word", Fcapitalize_word, Scapitalize_word, 1, 1, "p", - "Capitalize the following word (or ARG words), moving over.\n\ -This gives the word(s) a first character in upper case\n\ -and the rest lower case.\n\ -With negative argument, capitalize previous words but do not move.") - (arg) - Lisp_Object arg; -{ - Lisp_Object beg, end; - int newpoint; - XSETFASTINT (beg, PT); - end = operate_on_word (arg, &newpoint); - casify_region (CASE_CAPITALIZE, beg, end); - SET_PT (newpoint); - return Qnil; -} - -syms_of_casefiddle () -{ - defsubr (&Supcase); - defsubr (&Sdowncase); - defsubr (&Scapitalize); - defsubr (&Supcase_initials); - defsubr (&Supcase_region); - defsubr (&Sdowncase_region); - defsubr (&Scapitalize_region); - defsubr (&Supcase_initials_region); - defsubr (&Supcase_word); - defsubr (&Sdowncase_word); - defsubr (&Scapitalize_word); -} - -keys_of_casefiddle () -{ - initial_define_key (control_x_map, Ctl('U'), "upcase-region"); - Fput (intern ("upcase-region"), Qdisabled, Qt); - initial_define_key (control_x_map, Ctl('L'), "downcase-region"); - Fput (intern ("downcase-region"), Qdisabled, Qt); - - initial_define_key (meta_map, 'u', "upcase-word"); - initial_define_key (meta_map, 'l', "downcase-word"); - initial_define_key (meta_map, 'c', "capitalize-word"); -} |