FreeCalypso > hg > fc-pcsc-tools
view simtool/pbupd_file.c @ 23:2e4d02c1ee2d
top Makefile: add uicc subdir to PROGDIR
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Fri, 12 Feb 2021 04:36:36 +0000 |
parents | 2ef261371347 |
children | 51167ee0151b |
line wrap: on
line source
/* * This module implements the original read-from-file pb-update command. */ #include <sys/types.h> #include <ctype.h> #include <string.h> #include <strings.h> #include <stdio.h> #include <stdlib.h> #include "curfile.h" extern char *alpha_from_file_qstring(); extern char *alpha_from_file_hex(); static process_record(line, pb_record_len, pb_record_count, filename_for_errs, lineno_for_errs) char *line, *filename_for_errs; unsigned pb_record_len, pb_record_count; { unsigned recno; u_char record[255], *fixp; u_char digits[20]; unsigned ndigits, num_digit_bytes; char *cp; int c; recno = strtoul(line+1, 0, 10); if (recno < 1 || recno > pb_record_count) { fprintf(stderr, "%s line %d: record number is out of range\n", filename_for_errs, lineno_for_errs); return(-1); } cp = line + 1; while (isdigit(*cp)) cp++; if (*cp++ != ':') { inv_syntax: fprintf(stderr, "%s line %d: invalid syntax\n", filename_for_errs, lineno_for_errs); return(-1); } while (isspace(*cp)) cp++; memset(record, 0xFF, pb_record_len); fixp = record + pb_record_len - 14; if (digit_char_to_gsm(*cp) < 0) goto inv_syntax; for (ndigits = 0; ; ndigits++) { c = digit_char_to_gsm(*cp); if (c < 0) break; cp++; if (ndigits >= 20) { fprintf(stderr, "%s line %d: too many number digits\n", filename_for_errs, lineno_for_errs); return(-1); } digits[ndigits] = c; } if (ndigits & 1) digits[ndigits++] = 0xF; num_digit_bytes = ndigits >> 1; fixp[0] = num_digit_bytes + 1; pack_digit_bytes(digits, fixp + 2, num_digit_bytes); if (*cp++ != ',') goto inv_syntax; if (cp[0] != '0' || cp[1] != 'x' && cp[1] != 'X' || !isxdigit(cp[2]) || !isxdigit(cp[3]) || !isspace(cp[4])) goto inv_syntax; fixp[1] = strtoul(cp, 0, 16); cp += 5; while (isspace(*cp)) cp++; if (!strncasecmp(cp, "CCP=", 4)) { cp += 4; fixp[12] = strtoul(cp, 0, 0); while (*cp && !isspace(*cp)) cp++; while (isspace(*cp)) cp++; } if (!strncasecmp(cp, "EXT=", 4)) { cp += 4; fixp[13] = strtoul(cp, 0, 0); while (*cp && !isspace(*cp)) cp++; while (isspace(*cp)) cp++; } if (*cp == '"') { cp++; cp = alpha_from_file_qstring(cp, record, pb_record_len - 14, filename_for_errs, lineno_for_errs); if (!cp) return(-1); } else if (!strncasecmp(cp, "HEX", 3)) { cp += 3; while (isspace(*cp)) cp++; cp = alpha_from_file_hex(cp, record, pb_record_len - 14, filename_for_errs, lineno_for_errs); if (!cp) return(-1); } else goto inv_syntax; while (isspace(*cp)) cp++; if (*cp) goto inv_syntax; return update_rec_op(recno, 0x04, record, pb_record_len); } cmd_pb_update(argc, argv) char **argv; { int rc; FILE *inf; int lineno; char linebuf[1024]; rc = phonebook_op_common(argv[1]); if (rc < 0) return(rc); inf = fopen(argv[2], "r"); if (!inf) { perror(argv[2]); return(-1); } for (lineno = 1; fgets(linebuf, sizeof linebuf, inf); lineno++) { if (!index(linebuf, '\n')) { fprintf(stderr, "%s line %d: too long or missing newline\n", argv[2], lineno); fclose(inf); return(-1); } if (linebuf[0] != '#' || !isdigit(linebuf[1])) continue; rc = process_record(linebuf, curfile_record_len, curfile_record_count, argv[2], lineno); if (rc < 0) { fclose(inf); return(rc); } } fclose(inf); return(0); }