static int mln_lang_str_index(mln_lang_ctx_t *ctx, mln_lang_retExp_t **ret, mln_lang_retExp_t *op1, mln_lang_retExp_t *op2) { ASSERT(op1->type == M_LANG_RETEXP_VAR && op2->type == M_LANG_RETEXP_VAR); mln_s64_t offset; mln_string_t c; mln_string_t *s = mln_lang_var_getVal(op1->data.var)->data.s; if (mln_lang_var_getValType(op2->data.var) != M_LANG_VAL_TYPE_INT) { mln_lang_errmsg(ctx, "Offset of string must be an integer."); return -1; } offset = mln_lang_var_getVal(op2->data.var)->data.i; if (offset < 0 || offset >= s->len) { mln_lang_errmsg(ctx, "Invalid offset of string."); return -1; } mln_string_nSet(&c, &(s->data[offset]), 1); if ((*ret = mln_lang_retExp_createTmpString(ctx->pool, &c, NULL)) == NULL) { mln_lang_errmsg(ctx, "No memory."); return -1; } return 0; }
/*mln_conf_t*/ static inline mln_conf_t *mln_conf_init(void) { mln_conf_lex_lex_dup(NULL, NULL);/*nothing to do, just get rid of compiler's warnging*/ mln_conf_t *cf; mln_rbtree_node_t *rn; cf = (mln_conf_t *)malloc(sizeof(mln_conf_t)); if (cf == NULL) { fprintf(stderr, "No memory.\n"); return NULL; } cf->search = mln_conf_search_domain; struct mln_rbtree_attr rbattr; rbattr.cmp = mln_conf_domain_cmp; rbattr.data_free = mln_conf_domain_destroy; if ((cf->domain = mln_rbtree_init(&rbattr)) == NULL) { fprintf(stderr, "No memory.\n"); free(cf); return NULL; } mln_alloc_t *pool; mln_string_t path; char *conf_file_path; mln_size_t path_len = strlen(mln_path()); mln_lex_hooks_t hooks; struct mln_lex_attr lattr; if ((pool = mln_alloc_init()) == NULL) { fprintf(stderr, "No memory.\n"); mln_rbtree_destroy(cf->domain); free(cf); return NULL; } if ((conf_file_path = (char *)mln_alloc_m(pool, path_len + sizeof(conf_filename) + 1)) == NULL) { fprintf(stderr, "No memory.\n"); mln_alloc_destroy(pool); mln_rbtree_destroy(cf->domain); free(cf); return NULL; } memcpy(conf_file_path, mln_path(), path_len); conf_file_path[path_len] = '/'; memcpy(conf_file_path+path_len+1, conf_filename, sizeof(conf_filename)-1); mln_string_nSet(&path, conf_file_path, path_len + sizeof(conf_filename)); lattr.pool = pool; lattr.keywords = conf_keywords; memset(&hooks, 0, sizeof(hooks)); hooks.slash_handler = (lex_hook)mln_conf_lex_slash_handler; hooks.sglq_handler = (lex_hook)mln_conf_lex_sglq_handler; hooks.dblq_handler = (lex_hook)mln_conf_lex_dblq_handler; lattr.hooks = &hooks; lattr.preprocess = 1; lattr.type = M_INPUT_T_FILE; lattr.data = &path; mln_lex_initWithHooks(mln_conf_lex, cf->lex, &lattr); mln_alloc_free(conf_file_path); if (cf->lex == NULL) { fprintf(stderr, "No memory.\n"); mln_alloc_destroy(pool); mln_rbtree_destroy(cf->domain); free(cf); return NULL; } mln_conf_domain_t *cd = mln_conf_domain_init(cf, &default_domain); if (cd == NULL) { fprintf(stderr, "No memory.\n"); mln_conf_destroy(cf); return NULL; } if ((rn = mln_rbtree_new_node(cf->domain, cd)) == NULL) { fprintf(stderr, "No memory.\n"); mln_conf_domain_destroy((void *)cd); mln_conf_destroy(cf); return NULL; } mln_rbtree_insert(cf->domain, rn); return cf; }