ruby-106/ruby/transcode.c

46 allocate_converted_string(const char *sname, const char *dname,
154 #define DECORATOR_P(sname, dname) (*(sname) == '\0')
158     const char *dname;
166 make_transcoder_entry(const char *sname, const char *dname)
176     if (!st_lookup(table2, (st_data_t)dname, &val)) {
179         entry->dname = dname;
183         st_add_direct(table2, (st_data_t)dname, val);
189 get_transcoder_entry(const char *sname, const char *dname)
198     if (!st_lookup(table2, (st_data_t)dname, &val)) {
208     const char *const dname = tr->dst_encoding;
212     entry = make_transcoder_entry(sname, dname);
215 		 sname, dname);
222 declare_transcoder(const char *sname, const char *dname, const char *lib)
226     entry = make_transcoder_entry(sname, dname);
258     const char *dname = (const char *)key;
262     if (st_lookup(bfs->visited, (st_data_t)dname, &val)) {
267     q->enc = dname;
272     st_add_direct(bfs->visited, (st_data_t)dname, (st_data_t)bfs->base_enc);
277 transcode_search_path(const char *sname, const char *dname,
278     void (*callback)(const char *sname, const char *dname, int depth, void *arg),
288     if (encoding_equal(sname, dname))
312         if (st_lookup(table2, (st_data_t)dname, &val)) {
313             st_add_direct(bfs.visited, (st_data_t)dname, (st_data_t)q->enc);
335         const char *enc = dname;
346         enc = dname;
965 trans_open_i(const char *sname, const char *dname, int depth, void *arg)
972     toarg->entries[depth] = get_transcoder_entry(sname, dname);
976 rb_econv_open0(const char *sname, const char *dname, int ecflags)
991     if (*dname) {
992         didx = rb_enc_find_index(dname);
998     if (*sname == '\0' && *dname == '\0') {
1006         num_trans = transcode_search_path(sname, dname, trans_open_i, (void *)&toarg);
1021     ec->destination_encoding_name = dname;
1067 rb_econv_open(const char *sname, const char *dname, int ecflags)
1078     ec = rb_econv_open0(sname, dname, ecflags & ECONV_ERROR_HANDLER_MASK);
1519 allocate_converted_string(const char *sname, const char *dname,
1541     ec = rb_econv_open(sname, dname, 0);
1775     if (DECORATOR_P(entry->sname, entry->dname))
1875 rb_econv_add_converter(rb_econv_t *ec, const char *sname, const char *dname, int n)
1883     entry = get_transcoder_entry(sname, dname);
1936     const char *dname = 0;
1940 	dname = "universal_newline";
1943 	dname = "crlf_newline";
1946 	dname = "cr_newline";
1950     if (dname) {
1951         const rb_transcoder *transcoder = get_transcoder_entry("", dname)->transcoder;
1970 econv_description(const char *sname, const char *dname, int ecflags, VALUE mesg)
1977     if (*sname != '\0' || *dname != '\0') {
1979             rb_str_cat2(mesg, dname);
1980         else if (*dname == '\0')
1983             rb_str_catf(mesg, "%s to %s", sname, dname);
2028 rb_econv_open_exc(const char *sname, const char *dname, int ecflags)
2032     econv_description(sname, dname, ecflags, mesg);
2634     const char *sname, *dname;
2637     dencidx = enc_arg(arg1, &dname, &denc);
2650     *dname_p = dname;
2665     const char *sname, *dname;
2682     dencidx = str_transcode_enc_args(str, &arg1, &arg2, &sname, &senc, &dname, &denc);
2696         if (encoding_equal(sname, dname)) {
2701         if (encoding_equal(sname, dname)) {
2703             dname = "";
2713     transcode_loop(&fromp, &bp, (sp+slen), (bp+blen), dest, str_transcoding_resize, sname, dname, ecflags, ecopts);
2723 	dencidx = rb_define_dummy_encoding(dname);
2987     const char *sname, *dname;
3027     dname = denc ? rb_enc_name(denc) : StringValueCStr(*dnamev_p);
3030     *dname_p = dname;
3054 	    const char *dname = rb_enc_name(rb_to_encoding(RARRAY_PTR(pair)[1]));
3055 	    transcoder_entry_t *entry = get_transcoder_entry(sname, dname);
3077 search_convpath_i(const char *sname, const char *dname, int depth, void *arg)
3086     if (DECORATOR_P(sname, dname)) {
3087         v = rb_str_new_cstr(dname);
3090         v = rb_assoc_new(make_encobj(sname), make_encobj(dname));
3124     const char *sname, *dname;
3130     econv_args(argc, argv, &snamev, &dnamev, &sname, &dname, &senc, &denc, &ecflags, &ecopts);
3133     transcode_search_path(sname, dname, search_convpath_i, &convpath);
3136         rb_exc_raise(rb_econv_open_exc(sname, dname, ecflags));
3139         rb_exc_raise(rb_econv_open_exc(sname, dname, ecflags));
3165 rb_econv_init_by_convpath_i(const char *sname, const char *dname, int depth, void *arg)
3173     ret = rb_econv_add_converter(a->ec, sname, dname, a->index);
3189     const char *sname, *dname;
3204             enc_arg(&dnamev, &dname, &denc);
3208             dname = StringValueCStr(elt);
3210         if (DECORATOR_P(sname, dname)) {
3211             ret = rb_econv_add_converter(ec, sname, dname, ec->num_trans);
3213                 rb_raise(rb_eArgError, "decoration failed: %s", dname);
3221             ret = transcode_search_path(sname, dname, rb_econv_init_by_convpath_i, &arg);
3223                 rb_raise(rb_eArgError, "adding conversion failed: %s to %s", sname, dname);
3358     const char *sname, *dname;
3369         ec = rb_econv_init_by_convpath(self, convpath, &sname, &dname, &senc, &denc);
3374         econv_args(argc, argv, &snamev, &dnamev, &sname, &dname, &senc, &denc, &ecflags, &ecopts);
3375         ec = rb_econv_open_opts(sname, dname, ecflags, ecopts);
3379         rb_exc_raise(rb_econv_open_exc(sname, dname, ecflags));
3382     if (!DECORATOR_P(sname, dname)) {
3386             denc = make_dummy_encoding(dname);
3418         const char *dname = ec->destination_encoding_name;
3421         econv_description(sname, dname, ec->flags, str);