# Usaage:
# perl -i -p abbrev-sub.pl source.c ...

s/\buim_scm_error\(/ERROR\(/g;
s/\buim_scm_error_obj\(/ERROR_OBJ\(/g;
s/\bUIM_SCM_ENSURE\(/ENSURE\(/g;
s/\bUIM_SCM_ENSURE_OBJ\(/ENSURE_OBJ\(/g;
s/\bUIM_SCM_ENSURE_TYPE\(/ENSURE_TYPE\(/g;
s/\buim_scm_c_bool\(/C_BOOL\(/g;
s/\buim_scm_c_int\(/C_INT\(/g;
s/\buim_scm_c_char\(/C_CHAR\(/g;
s/\buim_scm_c_str\(/C_STR\(/g;
s/\buim_scm_refer_c_str\(/REFER_C_STR\(/g;
s/\buim_scm_c_symbol\(/C_SYM\(/g;
s/\buim_scm_c_ptr\(/C_PTR\(/g;
s/\buim_scm_c_func_ptr\(/C_FPTR\(/g;
s/\buim_scm_make_bool\(/MAKE_BOOL\(/g;
s/\buim_scm_make_int\(/MAKE_INT\(/g;
s/\buim_scm_make_char\(/MAKE_CHAR\(/g;
s/\buim_scm_make_str\(/MAKE_STR\(/g;
s/\buim_scm_make_str_directly\(/MAKE_STR_DIRECTLY\(/g;
s/\buim_scm_make_symbol\(/MAKE_SYM\(/g;
s/\buim_scm_make_ptr\(/MAKE_PTR\(/g;
s/\buim_scm_make_func_ptr\(/MAKE_FPTR\(/g;
s/\buim_scm_intp\(/INTP\(/g;
s/\buim_scm_charp\(/CHARP\(/g;
s/\buim_scm_vectorp\(/VECTORP\(/g;
s/\buim_scm_stringp\(/STRP\(/g;
s/\buim_scm_symbolp\(/SYMP\(/g;
s/\buim_scm_ptrp\(/PTRP\(/g;
s/\buim_scm_func_ptrp\(/FPTRP\(/g;
s/\buim_scm_nullp\(/NULLP\(/g;
s/\buim_scm_consp\(/CONSP\(/g;
s/\buim_scm_listp\(/LISTP\(/g;
s/\buim_scm_truep\(/TRUEP\(/g;
s/\buim_scm_falsep\(/FALSEP\(/g;
s/\buim_scm_eq\(/EQ\(/g;
s/\buim_scm_car\(/CAR\(/g;
s/\buim_scm_cdr\(/CDR\(/g;
s/\buim_scm_set_car\(/SET_CAR\(/g;
s/\buim_scm_set_cdr\(/SET_CDR\(/g;
s/\buim_scm_cons\(/CONS\(/g;
s/\buim_scm_list1\(/LIST1\(/g;
s/\buim_scm_list2\(/LIST2\(/g;
s/\buim_scm_list3\(/LIST3\(/g;
s/\buim_scm_list4\(/LIST4\(/g;
s/\buim_scm_list5\(/LIST5\(/g;
s/\buim_scm_quote\(/QUOTE\(/g;
s/\buim_scm_vector_ref\(/VECTOR_REF\(/g;
s/\buim_scm_vector_set\(/VECTOR_SET\(/g;
