pike.git/ src/ las.cmod

2022-06-14

2022-06-14 13:21:30 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 12e3e456b07d0ba173b1b810d2cb4e221c6ba463 (10 lines) (+9/-1) ^{[ Show | Annotate ]}
  Branch: master

EFUNs: Added Pike 8.0 compat variant of sscanf and array_sscanf().

1020:    break;       case F_SSCANF: +  case F_SSCANF_80:    if(!b || count_args(b) == 0) break;    res->node_info |= OPT_ASSIGNMENT;    break;
3011:    break;       case F_SSCANF: +  case F_SSCANF_80:    find_written_vars(CAR(n), p, 0);    /* FIXME: Marks arg 2 as written for now.    */
4405:    break;       case F_SSCANF: +  case F_SSCANF_80:    if (!CAR(n) || (CAR(n)->token != F_ARG_LIST) || !CAAR(n))    {    yyerror("Too few arguments to sscanf().");
4415:    node *args;    struct call_state cs;    MAKE_CONST_STRING(sscanf_name, "sscanf"); +  if (n->token == F_SSCANF_80) { +  add_ref(sscanf_type = sscanf_80_type_string); +  } else {    add_ref(sscanf_type = sscanf_type_string); -  +  }    args = mknode(F_ARG_LIST, CAR(n), CDR(n));    add_ref(CAR(n));    if (CDR(n)) add_ref(CDR(n));