1 /*********************************************************************** 2 * * 3 * This software is part of the ast package * 4 * Copyright (c) 1985-2009 AT&T Intellectual Property * 5 * and is licensed under the * 6 * Common Public License, Version 1.0 * 7 * by AT&T Intellectual Property * 8 * * 9 * A copy of the License is available at * 10 * http://www.opensource.org/licenses/cpl1.0.txt * 11 * (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) * 12 * * 13 * Information and Software Systems Research * 14 * AT&T Research * 15 * Florham Park NJ * 16 * * 17 * Glenn Fowler <gsf@research.att.com> * 18 * David Korn <dgk@research.att.com> * 19 * Phong Vo <kpv@research.att.com> * 20 * * 21 ***********************************************************************/ 22 #pragma prototyped 23 /* 24 * Glenn Fowler 25 * AT&T Research 26 * 27 * multi-pass commmand line option parse assist 28 * 29 * int fun(char** argv, int last) 30 * 31 * each fun() argument parses as much of argv as 32 * possible starting at (opt_info.index,opt_info.offset) using 33 * optget() 34 * 35 * if last!=0 then fun is the last pass to view 36 * the current arg, otherwise fun sets opt_info.again=1 37 * and another pass will get a crack at it 38 * 39 * 0 fun() return causes immediate optjoin() 0 return 40 * 41 * optjoin() returns non-zero if more args remain 42 * to be parsed at opt_info.index 43 */ 44 45 #include <optlib.h> 46 47 typedef int (*Optpass_f)(char**, int); 48 49 int 50 optjoin(char** argv, ...) 51 { 52 va_list ap; 53 register Optpass_f fun; 54 register Optpass_f rep; 55 Optpass_f err; 56 int more; 57 int user; 58 int last_index; 59 int last_offset; 60 int err_index; 61 int err_offset; 62 63 if (!opt_info.state) 64 optget(NiL, NiL); 65 err = rep = 0; 66 for (;;) 67 { 68 va_start(ap, argv); 69 opt_info.state->join = 0; 70 while (fun = va_arg(ap, Optpass_f)) 71 { 72 last_index = opt_info.index; 73 last_offset = opt_info.offset; 74 opt_info.state->join++; 75 user = (*fun)(argv, 0); 76 more = argv[opt_info.index] != 0; 77 if (!opt_info.again) 78 { 79 if (!more) 80 { 81 opt_info.state->join = 0; 82 return 0; 83 } 84 if (!user) 85 { 86 if (*argv[opt_info.index] != '+') 87 { 88 opt_info.state->join = 0; 89 return 1; 90 } 91 opt_info.again = -1; 92 } 93 else 94 err = 0; 95 } 96 if (opt_info.again) 97 { 98 if (opt_info.again > 0 && (!err || err_index < opt_info.index || err_index == opt_info.index && err_offset < opt_info.offset)) 99 { 100 err = fun; 101 err_index = opt_info.index; 102 err_offset = opt_info.offset; 103 } 104 opt_info.again = 0; 105 opt_info.index = opt_info.state->pindex ? opt_info.state->pindex : 1; 106 opt_info.offset = opt_info.state->poffset; 107 } 108 if (!rep || opt_info.index != last_index || opt_info.offset != last_offset) 109 rep = fun; 110 else if (fun == rep) 111 { 112 if (!err) 113 { 114 opt_info.state->join = 0; 115 return 1; 116 } 117 (*err)(argv, 1); 118 opt_info.offset = 0; 119 } 120 } 121 va_end(ap); 122 } 123 } 124