Codice

324 volume VI os16
Sorgenti della libreria generale 325
2810115 | //
2810116 | // Calculate end input.
2810117 | //
2810118 | end_input = input + (strlen (input));
2810119 | //
2810120 | // Scan format and input strings. Index ‘f’ is not reset.
2810121 | //
2810122 | while (&format[f] < end_format && input < end_input)
2810123 | {
2810124 | if (!specifier)
2810125 | {
2810126 | //--------------- The context is not inside a specifier.
2810127 | if (isspace (format[f]))
2810128 | {
2810129 | //------------------------------------------- Space.
2810130 | while (isspace (*input))
2810131 | {
2810132 | input++;
2810133 | }
2810134 | //
2810135 | // Verify that the input string is not finished.
2810136 | //
2810137 | if (input[0] == 0)
2810138 | {
2810139 | //
2810140 | // As the input string is finished, the format
2810141 | // string index is not advanced, because there
2810142 | // might be more spaces on the next line (if
2810143 | // there is a next line, of course).
2810144 | //
2810145 | continue;
2810146 | }
2810147 | else
2810148 | {
2810149 | f++;
2810150 | continue;
2810151 | }
2810152 | }
2810153 | if (format[f] != ’%’)
2810154 | {
2810155 | //------------------------------ Ordinary character.
2810156 | if (format[f] == *input)
2810157 | {
2810158 | input++;
2810159 | f++;
2810160 | continue;
2810161 | }
2810162 | else
2810163 | {
2810164 | return (ass_or_eof (consumed, assigned));
2810165 | }
2810166 | }
2810167 | if (format[f] == ’%’ && format[f+1] == ’%’)
2810168 | {
2810169 | //-------------------------- Matching a literal ’%’.
2810170 | f++;
2810171 | if (format[f] == *input)
2810172 | {
2810173 | input++;
2810174 | f++;
2810175 | continue;
2810176 | }
2810177 | else
2810178 | {
2810179 | return (ass_or_eof (consumed, assigned));
2810180 | }
2810181 | }
2810182 | if (format[f] == ’%’)
2810183 | {
2810184 | //-------------------------- Percent of a specifier.
2810185 | f++;
2810186 | specifier = 1;
2810187 | specifier_flags = 1;
2810188 | continue;
2810189 | }
2810190 | }
2810191 | //
2810192 | if (specifier && specifier_flags)
2810193 | {
2810194 | //--------------- The context is inside specifier flags.
2810195 | if (format[f] == ’*’)
2810196 | {
2810197 | //--------------------- Assignment suppression star.
2810198 | flag_star = 1;
2810199 | f++;
2810200 | }
2810201 | else
2810202 | {
2810203 | //----- End of flags and begin of specifier length.
2810204 | specifier_flags = 0;
2810205 | specifier_width = 1;
2810206 | }
2810207 | }
2810208 | //
2810209 | if (specifier && specifier_width)
2810210 | {
2810211 | //------------- The context is inside a specifier width.
2810212 | for (w = 0;
2810213 | format[f] >= ’0’
2810214 | && format[f] WIDTH_MAX)
2810224 | {
2810225 | width = WIDTH_MAX;
2810226 | }
2810227 | //
2810228 | // A zero width means an unspecified limit for the field
2810229 | // length.
2810230 | //
2810231 | //--------- End of spec. width and begin of spec. type.
2810232 | specifier_width = 0;
2810233 | specifier_type = 1;
2810234 | }
2810235 | //
2810236 | if (specifier && specifier_type)
2810237 | {
2810238 | //
2810239 | // Specifiers with length modifier.
2810240 | //
2810241 | if (format[f] == ’h’ && format[f+1] == ’h’)
2810242 | {
2810243 | //-------------------------------------------- char.
2810244 | if (format[f+2] == ’d’)
2810245 | {
2810246 | //------------------------ signed char, base 10.
2810247 | value_i = strtointmax (input, &next, 10, width);
2810248 | if (input == next)
2810249 | {
2810250 | return (ass_or_eof (consumed, assigned));
2810251 | }
2810252 | consumed++;
2810253 | if (!flag_star)
2810254 | {
2810255 | ptr_schar = va_arg (ap, signed char *);
2810256 | *ptr_schar = value_i;
2810257 | assigned++;
2810258 | }
2810259 | f += 3;
2810260 | input = next;
2810261 | }
2810262 | else if (format[f+2] == ’i’)
2810263 | {
2810264 | //------------------- signed char, base unknown.
2810265 | value_i = strtointmax (input, &next, 0, width);
2810266 | if (input == next)
2810267 | {
2810268 | return (ass_or_eof (consumed, assigned));
2810269 | }
2810270 | consumed++;
2810271 | if (!flag_star)
2810272 | {
2810273 | ptr_schar = va_arg (ap, signed char *);
2810274 | *ptr_schar = value_i;
2810275 | assigned++;
2810276 | }
2810277 | f += 3;
2810278 | input = next;
2810279 | }
2810280 | else if (format[f+2] == ’o’)
2810281 | {
2810282 | //------------------------- signed char, base 8.
2810283 | value_i = strtointmax (input, &next, 8, width);
2810284 | if (input == next)
2810285 | {
2810286 | return (ass_or_eof (consumed, assigned));
2810287 | }
2810288 | consumed++;
2810289 | if (!flag_star)
2810290 | {
2810291 | ptr_schar = va_arg (ap, signed char *);
2810292 | *ptr_schar = value_i;
2810293 | assigned++;
2810294 | }
2810295 | f += 3;
2810296 | input = next;
2810297 | }
2810298 | else if (format[f+2] == ’u’)
2810299 | {
2810300 | //---------------------- unsigned char, base 10.
2810301 | value_u = strtointmax (input, &next, 10, width);
2810302 | if (input == next)
2810303 | {
2810304 | return (ass_or_eof (consumed, assigned));
2810305 | }
2810306 | consumed++;
2810307 | if (!flag_star)
2810308 | {
2810309 | ptr_uchar = va_arg (ap, unsigned char *);
2810310 | *ptr_uchar = value_u;
2810311 | assigned++;
2810312 | }
2810313 | f += 3;
2810314 | input = next;
2810315 | }
2810316 | else if (format[f+2] == ’x’ || format[f+2] == ’X’)
2810317 | {
2810318 | //------------------------ signed char, base 16.
2810319 | value_i = strtointmax (input, &next, 16, width);
2810320 | if (input == next)
2810321 | {
2810322 | return (ass_or_eof (consumed, assigned));
2810323 | }
2810324 | consumed++;
2810325 | if (!flag_star)
2810326 | {
2810327 | ptr_schar = va_arg (ap, signed char *);
2810328 | *ptr_schar = value_i;
2810329 | assigned++;
2810330 | }
2810331 | f += 3;
2810332 | input = next;
2810333 | }
2810334 | else if (format[f+2] == ’n’)
2810335 | {
2810336 | //----------- signed char, string index counter.
2810337 | ptr_schar = va_arg (ap, signed char *);
2810338 | *ptr_schar = (signed char)
2810339 | (input - start + scanned);
2810340 | f += 3;
2810341 | }
2810342 | else
2810343 | {
2810344 | //------------ unsupported or unknown specifier.
2810345 | f += 2;
2810346 | }