#! perl -pi

use strict;
use warnings;

##########################################
#
# usage: rename_str_func.pl path/to/dir/*
#
##########################################

s/string_init/Parrot_str_init/;
s/string_deinit/Parrot_str_finish/;
s/string_set/Parrot_str_set/;
s/string_concat/Parrot_str_concat/;
s/string_append/Parrot_str_append/;
s/string_from_cstring/Parrot_str_new/;
s/string_make_empty/Parrot_str_new_noinit/;
s/string_make_direct/Parrot_str_new_init/;
s/const_string/Parrot_str_new_constant/;
s/Parrot_make_COW_reference/Parrot_str_new_COW/;
s/Parrot_reuse_COW_reference/Parrot_str_reuse_COW/;
s/Parrot_unmake_COW/Parrot_str_write_COW/;
s/string_grow/Parrot_str_resize/;
s/string_compute_strlen/Parrot_str_length/;
s/string_length/Parrot_str_byte_length/;
s/string_index/Parrot_str_indexed/;
s/string_str_index/Parrot_str_find_index/;
s/string_copy/Parrot_str_copy/;
s/string_repeat/Parrot_str_repeat/;
s/string_substr/Parrot_str_substr/;
s/string_replace/Parrot_str_replace/;
s/string_chopn/Parrot_str_chopn/;
#s/string_chopn_inplace/Parrot_str_chopn_inplace/; # handled by previous rule
s/string_compare/Parrot_str_compare/;
s/string_equal/Parrot_str_equal/;
s/string_bitwise_and/Parrot_str_bitwise_and/;
s/string_bitwise_or/Parrot_str_bitwise_or/;
s/string_bitwise_xor/Parrot_str_bitwise_xor/;
s/string_bitwise_not/Parrot_str_bitwise_not/;
s/string_bool/Parrot_str_boolean/;
s/string_to_int/Parrot_str_to_int/;
s/string_to_num/Parrot_str_to_num/;
s/string_from_int/Parrot_str_from_int/;
s/string_from_num/Parrot_str_from_num/;
s/uint_to_str/Parrot_str_from_uint/;
s/int_to_str/Parrot_str_from_int_base/;
s/string_to_cstring/Parrot_str_to_cstring/;
s/string_hash/Parrot_str_to_hashval/;
s/string_escape_string_delimited/Parrot_str_escape_truncate/;
s/string_escape_string/Parrot_str_escape/;
s/string_unescape_cstring/Parrot_str_unescape/;
s/string_cstring_free/Parrot_str_free_cstring/;
s/string_free/Parrot_str_free/;
s/string_pin/Parrot_str_pin/;
s/string_unpin/Parrot_str_unpin/;
s/string_upcase/Parrot_str_upcase/;
#s/string_upcase_inplace/Parrot_str_upcase_inplace/; # handled by previous rule
s/string_downcase/Parrot_str_downcase/;
#s/string_downcase_inplace/Parrot_str_downcase_inplace/; # handled by previous rule
s/string_titlecase/Parrot_str_titlecase/;
#s/string_titlecase_inplace/Parrot_str_titlecase_inplace/; # handled by previous rule
s/Parrot_string_is_cclass/Parrot_str_is_cclass/;
s/Parrot_string_find_cclass/Parrot_str_find_cclass/;
s/Parrot_string_find_not_cclass/Parrot_str_find_not_cclass/;
s/Parrot_string_trans_charset/Parrot_str_change_charset/;
s/Parrot_string_trans_encoding/Parrot_str_change_encoding/;
s/string_printf/Parrot_str_format_data/;
s/string_compose/Parrot_str_compose/;
s/string_join/Parrot_str_join/;
s/Parrot_string_split/Parrot_str_split/;
s/string_split/Parrot_str_split/;

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4: