开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > 手机WAP编程 > 查看源码
cfg.c
资源名称：gateway-1.2.1　[点击查看]
上传用户：gzpyjq
上传日期：2013-01-31
资源大小：1852k
文件大小：16k
源码类别：

手机WAP编程

开发平台：

WINDOWS

cfg.c：源码内容
  1. /*
  2.  * cfg.c - configuration file handling
  3.  *
  4.  * Lars Wirzenius
  5.  */
  8. #include "gwlib/gwlib.h"
  10. /* for include dir */
  11. #include <sys/types.h>
  12. #include <sys/stat.h>
  13. #include <unistd.h>
  14. #include <dirent.h>
  16. struct CfgGroup {
  17.     Octstr *name;
  18.     Dict *vars;
  19.     Octstr *configfile; 
  20.     long line; 
  21. };
  24. static CfgGroup *create_group(void)
  25. {
  26.     CfgGroup *grp;
  27.     
  28.     grp = gw_malloc(sizeof(*grp));
  29.     grp->name = NULL;
  30.     grp->vars = dict_create(64, octstr_destroy_item);
  31.     grp->configfile = NULL; 
  32.     grp->line = 0; 
  33.     return grp;
  34. }
  36. static void destroy_group(void *arg)
  37. {
  38.     CfgGroup *grp;
  39.     
  40.     if (arg != NULL) {
  41. grp = arg;
  42. octstr_destroy(grp->name);
  43. octstr_destroy(grp->configfile); 
  44. dict_destroy(grp->vars);
  45. gw_free(grp);
  46.     }
  47. }
  50. struct CfgLoc { 
  51.     Octstr *filename; 
  52.     long line_no; 
  53.     Octstr *line; 
  54. }; 
  57. static CfgLoc *cfgloc_create(Octstr *filename) 
  58. { 
  59.     CfgLoc *cfgloc; 
  60.      
  61.     cfgloc = gw_malloc(sizeof(*cfgloc)); 
  62.     cfgloc->filename = octstr_duplicate(filename); 
  63.     cfgloc->line_no = 0; 
  64.     cfgloc->line = NULL; 
  65.     return cfgloc; 
  66. } 
  67.  
  68.  
  69. static void cfgloc_destroy(CfgLoc *cfgloc) 
  70. { 
  71.     if (cfgloc != NULL) { 
  72. octstr_destroy(cfgloc->filename); 
  73. octstr_destroy(cfgloc->line); 
  74. gw_free(cfgloc); 
  75.     } 
  76. } 
  78.  
  79. static void destroy_group_list(void *arg)
  80. {
  81.     list_destroy(arg, destroy_group);
  82. }
  85. static void set_group_name(CfgGroup *grp, Octstr *name)
  86. {
  87.     octstr_destroy(grp->name);
  88.     grp->name = octstr_duplicate(name);
  89. }
  92. struct Cfg {
  93.     Octstr *filename;
  94.     Dict *single_groups;
  95.     Dict *multi_groups;
  96. };
  99. static int is_allowed_in_group(Octstr *group, Octstr *variable)
  100. {
  101.     Octstr *groupstr;
  102.     
  103.     groupstr = octstr_imm("group");
  105.     #define OCTSTR(name) 
  106.      if (octstr_compare(octstr_imm(#name), variable) == 0) 
  107.     return 1;
  108.     #define SINGLE_GROUP(name, fields) 
  109.      if (octstr_compare(octstr_imm(#name), group) == 0) { 
  110.     if (octstr_compare(groupstr, variable) == 0) 
  111. return 1; 
  112.     fields 
  113.     return 0; 
  114. }
  115.     #define MULTI_GROUP(name, fields) 
  116.      if (octstr_compare(octstr_imm(#name), group) == 0) { 
  117.     if (octstr_compare(groupstr, variable) == 0) 
  118. return 1; 
  119.     fields 
  120.     return 0; 
  121. }
  122.     #include "cfg.def"
  124.     return 0;
  125. }
  128. static int is_single_group(Octstr *query)
  129. {
  130.     #define OCTSTR(name)
  131.     #define SINGLE_GROUP(name, fields) 
  132.      if (octstr_compare(octstr_imm(#name), query) == 0) 
  133.     return 1;
  134.     #define MULTI_GROUP(name, fields) 
  135.      if (octstr_compare(octstr_imm(#name), query) == 0) 
  136.     return 0;
  137.     #include "cfg.def"
  138.     return 0;
  139. }
  142. static int add_group(Cfg *cfg, CfgGroup *grp)
  143. {
  144.     Octstr *groupname;
  145.     Octstr *name;
  146.     List *names;
  147.     List *list;
  148.     
  149.     groupname = cfg_get(grp, octstr_imm("group"));
  150.     if (groupname == NULL) {
  151. error(0, "Group does not contain variable 'group'.");
  152.      return -1;
  153.     }
  154.     set_group_name(grp, groupname);
  156.     names = dict_keys(grp->vars);
  157.     while ((name = list_extract_first(names)) != NULL) {
  158. if (!is_allowed_in_group(groupname, name)) {
  159.     error(0, "Group '%s' may not contain field '%s'.",
  160.   octstr_get_cstr(groupname), octstr_get_cstr(name));
  161.     octstr_destroy(name);
  162.     octstr_destroy(groupname);
  163.     list_destroy(names, octstr_destroy_item);
  164.     return -1;
  165. }
  166. octstr_destroy(name);
  167.     }
  168.     list_destroy(names, NULL);
  170.     if (is_single_group(groupname))
  171.      dict_put(cfg->single_groups, groupname, grp);
  172.     else {
  173. list = dict_get(cfg->multi_groups, groupname);
  174. if (list == NULL) {
  175.     list = list_create();
  176.     dict_put(cfg->multi_groups, groupname, list);
  177. }
  178.      list_append(list, grp);
  179.     }
  181.     octstr_destroy(groupname);
  182.     return 0;
  183. }
  186. Cfg *cfg_create(Octstr *filename)
  187. {
  188.     Cfg *cfg;
  189.     
  190.     cfg = gw_malloc(sizeof(*cfg));
  191.     cfg->filename = octstr_duplicate(filename);
  192.     cfg->single_groups = dict_create(64, destroy_group);
  193.     cfg->multi_groups = dict_create(64, destroy_group_list);
  194.     return cfg;
  195. }
  198. void cfg_destroy(Cfg *cfg)
  199. {
  200.     if (cfg != NULL) {
  201. octstr_destroy(cfg->filename);
  202. dict_destroy(cfg->single_groups);
  203. dict_destroy(cfg->multi_groups);
  204. gw_free(cfg);
  205.     }
  206. }
  209. static void parse_value(Octstr *value)
  210. {
  211.     Octstr *temp;
  212.     long len;
  213.     int c;
  214.     
  215.     octstr_strip_blanks(value);
  217.     len = octstr_len(value);
  218.     if (octstr_get_char(value, 0) != '"' || 
  219.         octstr_get_char(value, len - 1) != '"')
  220. return;
  222.     octstr_delete(value, len - 1, 1);
  223.     octstr_delete(value, 0, 1);
  225.     temp = octstr_duplicate(value);
  226.     octstr_truncate(value, 0);
  227.     
  228.     while (octstr_len(temp) > 0) {
  229. c = octstr_get_char(temp, 0);
  230. octstr_delete(temp, 0, 1);
  232.      if (c != '\' || octstr_len(temp) == 0)
  233.     octstr_append_char(value, c);
  234. else {
  235.     c = octstr_get_char(temp, 0);
  236.     octstr_delete(temp, 0, 1);
  238.     switch (c) {
  239.          case '\':
  240.          case '"':
  241.      octstr_append_char(value, c);
  242.      break;
  244.          default:
  245.      octstr_append_char(value, '\');
  246.      octstr_append_char(value, c);
  247. break;
  248.     }
  249. }
  250.     }
  251.     
  252.     octstr_destroy(temp);
  253. }
  256. static List *expand_file(Octstr *file, int forward) 
  257. {
  258.     Octstr *os;
  259.     Octstr *line;
  260.     List *lines; 
  261.     List *expand; 
  262.     long lineno; 
  263.     CfgLoc *loc; 
  264.  
  265.     os = octstr_read_file(octstr_get_cstr(file)); 
  266.     if (os == NULL) 
  267.      return NULL; 
  268.  
  269.     lines = octstr_split(os, octstr_imm("n")); 
  270.     lineno = 0; 
  271.     expand = list_create(); 
  272.               
  273.     while ((line = list_extract_first(lines)) != NULL) { 
  274.         ++lineno; 
  275.         loc = cfgloc_create(file); 
  276.         loc->line_no = lineno; 
  277.         loc->line = line; 
  278.         if (forward) 
  279.             list_append(expand, loc); 
  280.         else 
  281.             list_insert(expand, 0, loc); 
  282.     } 
  283.     
  284.     /* 
  285.      * add newline at each end of included files to avoid 
  286.      * concatenating different groups by mistake
  287.      */
  288.     if (lineno > 0) {
  289.         loc = cfgloc_create(file); 
  290.         loc->line_no = lineno;
  291.         loc->line = octstr_create("n");
  292.         if (forward) 
  293.             list_append(expand, loc); 
  294.         else 
  295.             list_insert(expand, 0, loc); 
  296.     }
  297.          
  298.     list_destroy(lines, octstr_destroy_item); 
  299.     octstr_destroy(os); 
  300.  
  301.     return expand; 
  302. } 
  303.  
  304.  
  305. int cfg_read(Cfg *cfg) 
  306. { 
  307.     CfgLoc *loc; 
  308.     CfgLoc *loc_inc; 
  309.     List *lines;
  310.     List *expand; 
  311.     List *stack; 
  312.     Octstr *name;
  313.     Octstr *value;
  314.     Octstr *filename; 
  315.     CfgGroup *grp;
  316.     long equals;
  317.     long lineno;
  318.     long error_lineno;
  319.     
  320.     loc = loc_inc = NULL;
  322.     /* 
  323.      * expand initial main config file and add it to the recursion 
  324.      * stack to protect against cycling 
  325.      */ 
  326.     if ((lines = expand_file(cfg->filename, 1)) == NULL) { 
  327.         panic(0, "Failed to load main configuration file `%s'. Aborting!", 
  328.               octstr_get_cstr(cfg->filename)); 
  329.     } 
  330.     stack = list_create(); 
  331.     list_insert(stack, 0, octstr_duplicate(cfg->filename)); 
  333.     grp = NULL;
  334.     lineno = 0;
  335.     error_lineno = 0;
  336.     while (error_lineno == 0 && (loc = list_extract_first(lines)) != NULL) { 
  337.         octstr_strip_blanks(loc->line); 
  338.         if (octstr_len(loc->line) == 0) { 
  339.             if (grp != NULL && add_group(cfg, grp) == -1) { 
  340.                 error_lineno = loc->line_no; 
  341.                 destroy_group(grp); 
  342.             } 
  343.             grp = NULL; 
  344.         } else if (octstr_get_char(loc->line, 0) != '#') { 
  345.             equals = octstr_search_char(loc->line, '=', 0); 
  346.             if (equals == -1) { 
  347.                 error(0, "An equals sign ('=') is missing on line %ld of file %s.", 
  348.                       loc->line_no, octstr_get_cstr(loc->filename)); 
  349.                 error_lineno = loc->line_no; 
  350.             } else  
  351.              
  352.             /* 
  353.              * check for special config directives, like include or conditional 
  354.              * directives here 
  355.              */ 
  356.             if (octstr_search(loc->line, octstr_imm("include"), 0) != -1) { 
  357.                 filename = octstr_copy(loc->line, equals + 1, octstr_len(loc->line)); 
  358.                 parse_value(filename); 
  359.  
  360.                 /* check if we are cycling */ 
  361.                 if (list_search(stack, filename, octstr_item_match) != NULL) { 
  362.                     panic(0, "Recursive include for config file `%s' detected " 
  363.                              "(on line %ld of file %s).", 
  364.                           octstr_get_cstr(filename), loc->line_no,  
  365.                           octstr_get_cstr(loc->filename)); 
  366.                 } else {     
  367.                     List *files = list_create();
  368.                     Octstr *file;
  369.                     struct stat filestat;
  371.                     /* check if included file is a directory */
  372.                     lstat(octstr_get_cstr(filename), &filestat);
  374.                     /* is a directory. create a list with files */
  375.                     if (S_ISDIR(filestat.st_mode)) {
  376.                         DIR *dh;
  377.                         struct dirent *diritem;
  379.                         debug("gwlib.cfg", 0, "Loading include dir `%s' "
  380.                               "(on line %ld of file %s).",  
  381.                               octstr_get_cstr(filename), loc->line_no,  
  382.                               octstr_get_cstr(loc->filename)); 
  384.                         dh = opendir(octstr_get_cstr(filename));
  385.                         while ((diritem = readdir(dh))) {
  386.                             Octstr *fileitem;
  388.                             fileitem = octstr_duplicate(filename);
  389.                             octstr_append(fileitem, octstr_create("/"));
  390.                             octstr_append(fileitem, octstr_create(diritem->d_name));
  392.                             lstat(octstr_get_cstr(fileitem), &filestat);
  393.                             if (!S_ISDIR(filestat.st_mode)) {
  394.                                 list_insert(files, 0, fileitem);
  395.                             }
  396.                         }
  397.                         closedir(dh);
  398.                     } 
  399.     
  400.                     /* is a file, create a list with it */
  401.                     else {
  402.                         list_insert(files, 0, octstr_duplicate(filename));
  403.                     }
  405.                     /* include files */
  406.                     while((file = list_extract_first(files)) != NULL) {
  408.                         list_insert(stack, 0, octstr_duplicate(file)); 
  409.                         debug("gwlib.cfg", 0, "Loading include file `%s' (on line %ld of file %s).",  
  410.                               octstr_get_cstr(file), loc->line_no,  
  411.                               octstr_get_cstr(loc->filename)); 
  413.                         /*  
  414.                          * expand the given include file and add it to the current 
  415.                          * processed main while loop 
  416.                          */ 
  417.                         if ((expand = expand_file(file, 0)) != NULL) {
  418.                             while ((loc_inc = list_extract_first(expand)) != NULL) 
  419.                                 list_insert(lines, 0, loc_inc); 
  420.                         } else { 
  421.                             panic(0, "Failed to load whole configuration. Aborting!"); 
  422.                         } 
  423.                  
  424.                         list_destroy(expand, NULL); 
  425.                         cfgloc_destroy(loc_inc); 
  427.                     }
  428.                 list_destroy(files, octstr_destroy_item);
  429.                 } 
  430.                 octstr_destroy(filename); 
  431.             }  
  432.              
  433.             /* 
  434.              * this is a "normal" line, so process it accodingly 
  435.              */ 
  436.             else  { 
  437.                 name = octstr_copy(loc->line, 0, equals); 
  438.                 octstr_strip_blanks(name); 
  439.                 value = octstr_copy(loc->line, equals + 1, octstr_len(loc->line)); 
  440.                 parse_value(value); 
  441.  
  442.           if (grp == NULL)
  443.                     grp = create_group(); 
  444.                  
  445.                 if (grp->configfile != NULL) {
  446.                     octstr_destroy(grp->configfile); grp->configfile=NULL;
  447.                 }
  448.                 grp->configfile = octstr_duplicate(cfg->filename); 
  450.                 cfg_set(grp, name, value); 
  451.                 octstr_destroy(name); 
  452.                 octstr_destroy(value); 
  453.             } 
  454.         } 
  456.         cfgloc_destroy(loc); 
  457.     }
  459.     if (grp != NULL && add_group(cfg, grp) == -1) {
  460.         error_lineno = 1; 
  461.         destroy_group(grp); 
  462.     }
  464.     list_destroy(lines, NULL); 
  465.     list_destroy(stack, octstr_destroy_item); 
  467.     if (error_lineno != 0) {
  468.         error(0, "Error found on line %ld of file `%s'.",  
  469.           error_lineno, octstr_get_cstr(cfg->filename)); 
  470.         return -1; 
  471.     }
  473.     return 0;
  474. }
  477. CfgGroup *cfg_get_single_group(Cfg *cfg, Octstr *name)
  478. {
  479.     return dict_get(cfg->single_groups, name);
  480. }
  483. List *cfg_get_multi_group(Cfg *cfg, Octstr *name)
  484. {
  485.     List *list, *copy;
  486.     long i;
  487.     
  488.     list = dict_get(cfg->multi_groups, name);
  489.     if (list == NULL)
  490.      return NULL;
  492.     copy = list_create();
  493.     for (i = 0; i < list_len(list); ++i)
  494.      list_append(copy, list_get(list, i));
  495.     return copy;
  496. }
  499. Octstr *cfg_get_group_name(CfgGroup *grp)
  500. {
  501.     return octstr_duplicate(grp->name);
  502. }
  504. Octstr *cfg_get_configfile(CfgGroup *grp)
  505. {
  506.     return octstr_duplicate(grp->configfile);
  507. }
  510. Octstr *cfg_get_real(CfgGroup *grp, Octstr *varname, const char *file, 
  511.                long line, const char *func)
  512. {
  513.     Octstr *os;
  515.     if (grp->name != NULL && !is_allowed_in_group(grp->name, varname))
  516.      panic(0, "Trying to fetch variable `%s' in group `%s', not allowed.",
  517.       octstr_get_cstr(varname), octstr_get_cstr(grp->name));
  519.     os = dict_get(grp->vars, varname);
  520.     if (os == NULL)
  521.      return NULL;
  522.     return gw_claim_area_for(octstr_duplicate(os), file, line, func);
  523. }
  526. int cfg_get_integer(long *n, CfgGroup *grp, Octstr *varname)
  527. {
  528.     Octstr *os;
  529.     int ret;
  530.     
  531.     os = cfg_get(grp, varname);
  532.     if (os == NULL)
  533.      return -1;
  534.     if (octstr_parse_long(n, os, 0, 0) == -1)
  535.      ret = -1;
  536.     else
  537.      ret = 0;
  538.     octstr_destroy(os);
  539.     return ret;
  540. }
  543. int cfg_get_bool(int *n, CfgGroup *grp, Octstr *varname)
  544. {
  545.     Octstr *os;
  547.     os = cfg_get(grp, varname);
  548.     if (os == NULL) {
  549. *n = 0;
  550.      return -1;
  551.     }
  552.     if (octstr_case_compare(os, octstr_imm("true")) == 0
  553. || octstr_case_compare(os, octstr_imm("yes")) == 0
  554. || octstr_case_compare(os, octstr_imm("on")) == 0
  555. || octstr_case_compare(os, octstr_imm("1")) == 0)
  556.     {     
  557. *n = 1;
  558.     } else if (octstr_case_compare(os, octstr_imm("false")) == 0
  559. || octstr_case_compare(os, octstr_imm("no")) == 0
  560. || octstr_case_compare(os, octstr_imm("off")) == 0
  561. || octstr_case_compare(os, octstr_imm("0")) == 0)
  562.     {
  563. *n = 0;
  564.     }
  565.     else {
  566. *n = 1;
  567. warning(0, "bool variable set to strange value, assuming 'true'");
  568.     }
  569.     octstr_destroy(os);
  570.     return 0;
  571. }
  574. List *cfg_get_list(CfgGroup *grp, Octstr *varname)
  575. {
  576.     Octstr *os;
  577.     List *list;
  578.     
  579.     os = cfg_get(grp, varname);
  580.     if (os == NULL)
  581.      return NULL;
  583.     list = octstr_split_words(os);
  584.     octstr_destroy(os);
  585.     return list;
  586. }
  589. void cfg_set(CfgGroup *grp, Octstr *varname, Octstr *value)
  590. {
  591.     dict_put(grp->vars, varname, octstr_duplicate(value));
  592. }
  595. void grp_dump(CfgGroup *grp)
  596. {
  597.     List *names;
  598.     Octstr *name;
  599.     Octstr *value;
  601.     if (grp->name == NULL)
  602. debug("gwlib.cfg", 0, "  dumping group (name not set):");
  603.     else
  604. debug("gwlib.cfg", 0, "  dumping group (%s):",
  605.       octstr_get_cstr(grp->name));
  606.     names = dict_keys(grp->vars);
  607.     while ((name = list_extract_first(names)) != NULL) {
  608. value = cfg_get(grp, name);
  609. debug("gwlib.cfg", 0, "    <%s> = <%s>", 
  610.       octstr_get_cstr(name),
  611.       octstr_get_cstr(value));
  612.      octstr_destroy(value);
  613.      octstr_destroy(name);
  614.     }
  615.     list_destroy(names, NULL);
  616. }
  619. void cfg_dump(Cfg *cfg)
  620. {
  621.     CfgGroup *grp;
  622.     List *list;
  623.     List *names;
  624.     Octstr *name;
  626.     debug("gwlib.cfg", 0, "Dumping Cfg %p", (void *) cfg);
  627.     debug("gwlib.cfg", 0, "  filename = <%s>", 
  628.        octstr_get_cstr(cfg->filename));
  630.     names = dict_keys(cfg->single_groups);
  631.     while ((name = list_extract_first(names)) != NULL) {
  632. grp = cfg_get_single_group(cfg, name);
  633. if (grp != NULL)
  634.     grp_dump(grp);
  635.      octstr_destroy(name);
  636.     }
  637.     list_destroy(names, NULL);
  639.     names = dict_keys(cfg->multi_groups);
  640.     while ((name = list_extract_first(names)) != NULL) {
  641. list = cfg_get_multi_group(cfg, name);
  642. while ((grp = list_extract_first(list)) != NULL)
  643.     grp_dump(grp);
  644. list_destroy(list, NULL);
  645.      octstr_destroy(name);
  646.     }
  647.     list_destroy(names, NULL);
  649.     debug("gwlib.cfg", 0, "Dump ends.");
  650. }