Reduce warnings further in sys.c.
Chris Pressey
1 year, 11 months ago
46 | 46 | void show_zlex_memory(void); |
47 | 47 | void show_rule_memory(void); |
48 | 48 | int source_file(char *); |
49 | void pop_source(void); | |
50 | void dumpnet(char *); | |
51 | int change_extension(char *, const char *); | |
52 | int source_list(struct s_content *list, void *id); | |
49 | 53 | |
50 | 54 | const char* zz_includes = ""; |
51 | 55 | |
148 | 152 | |
149 | 153 | /*----------------------------------------------------------------------------*/ |
150 | 154 | |
151 | s_print(list) | |
152 | struct s_list *list; | |
155 | int s_print(struct s_list *list) | |
153 | 156 | { |
154 | 157 | int i; |
155 | 158 | |
238 | 241 | { |
239 | 242 | zz_error(ERROR,"dumpnet: bad argument");return 0; |
240 | 243 | } |
241 | dumpnet(s_content_value(argv[0])); | |
244 | dumpnet(s_content_svalue(argv[0])); | |
242 | 245 | return 1; |
243 | 246 | } |
244 | 247 | |
650 | 653 | |
651 | 654 | int s_exec(int argc, struct s_content argv[], struct s_content* ret) |
652 | 655 | { |
653 | source_list(&argv[0]); | |
656 | source_list(&argv[0], NULL); | |
654 | 657 | parse(find_nt("root")); |
655 | 658 | pop_source(); |
656 | 659 | return 1; |
689 | 692 | { |
690 | 693 | rr=set_param(paramname,lst->array+i); |
691 | 694 | if(i==0) created=rr; |
692 | source_list(&blk); | |
695 | source_list(&blk, NULL); | |
693 | 696 | parse(find_nt("root")); |
694 | 697 | pop_source(); |
695 | 698 | } |
727 | 730 | s_content_value(paramval)=i; |
728 | 731 | rr=set_param(paramname,¶mval); |
729 | 732 | if(i==from) created=rr; |
730 | source_list(&blk); | |
733 | source_list(&blk, NULL); | |
731 | 734 | parse(find_nt("root")); |
732 | 735 | pop_source(); |
733 | 736 | } |
789 | 792 | Called by unary and binary loop operations |
790 | 793 | to relect arguments while retaining operators. |
791 | 794 | */ |
792 | s_condecho(argc,argv, action, ret) | |
795 | int s_condecho(argc,argv, action, ret) | |
793 | 796 | int argc; |
794 | 797 | char *action; |
795 | 798 | struct s_content argv[], *ret; |
899 | 902 | * while loop for each pass of the loop (different from 'for' loop |
900 | 903 | * where interpretation is only done at parse of loop). |
901 | 904 | */ |
902 | s_do_while_loops(argc,argv,ret,while_loop) | |
905 | int s_do_while_loops(argc,argv,ret,while_loop) | |
903 | 906 | int argc; |
904 | 907 | struct s_content argv[], *ret; |
905 | 908 | int while_loop; |
989 | 992 | while ( loop_control_flag ) |
990 | 993 | { |
991 | 994 | // Execute the code block of the loop |
992 | source_list(&blk); | |
995 | source_list(&blk, NULL); | |
993 | 996 | |
994 | 997 | // If there is a parse error in the loop body break out of loop |
995 | 998 | if (!parse(find_nt("root"))) { |
1034 | 1037 | |
1035 | 1038 | if(s_content_value(argv[0])) |
1036 | 1039 | { |
1037 | source_list(&blk); | |
1040 | source_list(&blk, NULL); | |
1038 | 1041 | parse(find_nt("root")); |
1039 | 1042 | pop_source(); |
1040 | 1043 | } |
1057 | 1060 | { |
1058 | 1061 | blk = argv[2]; |
1059 | 1062 | } |
1060 | source_list(&blk); | |
1063 | source_list(&blk, NULL); | |
1061 | 1064 | parse(find_nt("root")); |
1062 | 1065 | pop_source(); |
1063 | 1066 | } |
1365 | 1368 | |
1366 | 1369 | /*---------------------------------------------------------------------------*/ |
1367 | 1370 | |
1368 | subtag(tagson_name,tagparent_name) | |
1369 | char *tagson_name,*tagparent_name; | |
1371 | int subtag(char *tagson_name, char *tagparent_name) | |
1370 | 1372 | { |
1371 | 1373 | struct s_tag *tagson,*tagparent; |
1372 | 1374 | tagson = find_tag(tagson_name); |
1374 | 1376 | tagson->delete = tagparent->delete; |
1375 | 1377 | tagson->param_on = tagparent->param_on; |
1376 | 1378 | tagson->param_off = tagparent->param_off; |
1379 | return 0; | |
1377 | 1380 | } |
1378 | 1381 | |
1379 | 1382 | /*---------------------------------------------------------------------------*/ |