Ticket #1436: fix_longopt.patch

File fix_longopt.patch, 5.9 KB (added by fperrad, 5 years ago)

s/Parrot_snprintf/snprintf/g; and remove interp

  • src/longopt.c

     
    2525/* HEADERIZER BEGIN: static */ 
    2626/* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */ 
    2727 
    28 static int longopt_get_longopt(PARROT_INTERP, 
    29     int argc, 
     28static int longopt_get_longopt(int argc, 
    3029    ARGIN(const char* argv[]), 
    3130    ARGIN(const struct longopt_opt_decl options[]), 
    3231    ARGMOD(struct longopt_opt_info* info_buf)) 
    33         __attribute__nonnull__(1) 
     32        __attribute__nonnull__(2) 
    3433        __attribute__nonnull__(3) 
    3534        __attribute__nonnull__(4) 
    36         __attribute__nonnull__(5) 
    3735        FUNC_MODIFIES(* info_buf); 
    3836 
    39 static int longopt_get_shortopt(PARROT_INTERP, 
    40     int argc, 
     37static int longopt_get_shortopt(int argc, 
    4138    ARGIN(const char* argv[]), 
    4239    ARGIN(const struct longopt_opt_decl options[]), 
    4340    ARGMOD(struct longopt_opt_info* info_buf)) 
    44         __attribute__nonnull__(1) 
     41        __attribute__nonnull__(2) 
    4542        __attribute__nonnull__(3) 
    4643        __attribute__nonnull__(4) 
    47         __attribute__nonnull__(5) 
    4844        FUNC_MODIFIES(* info_buf); 
    4945 
    5046#define ASSERT_ARGS_longopt_get_longopt __attribute__unused__ int _ASSERT_ARGS_CHECK = (\ 
    51        PARROT_ASSERT_ARG(interp) \ 
    52     , PARROT_ASSERT_ARG(argv) \ 
     47      PARROT_ASSERT_ARG(argv) \ 
    5348    , PARROT_ASSERT_ARG(options) \ 
    5449    , PARROT_ASSERT_ARG(info_buf)) 
    5550#define ASSERT_ARGS_longopt_get_shortopt __attribute__unused__ int _ASSERT_ARGS_CHECK = (\ 
    56        PARROT_ASSERT_ARG(interp) \ 
    57     , PARROT_ASSERT_ARG(argv) \ 
     51      PARROT_ASSERT_ARG(argv) \ 
    5852    , PARROT_ASSERT_ARG(options) \ 
    5953    , PARROT_ASSERT_ARG(info_buf)) 
    6054/* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */ 
     
    10195        return 0; 
    10296 
    10397    if (info_buf->_shortopt_pos) 
    104         return longopt_get_shortopt(interp, argc, argv, options, info_buf); 
     98        return longopt_get_shortopt(argc, argv, options, info_buf); 
    10599 
    106100    if (argv[dex][1] == '-') { /* Long option or -- */ 
    107101        if (argv[dex][2] == '\0') { 
     
    109103            return 0; 
    110104        } 
    111105        else {                   /* Long option */ 
    112             return longopt_get_longopt(interp, argc, argv, options, info_buf); 
     106            return longopt_get_longopt(argc, argv, options, info_buf); 
    113107        } 
    114108    } 
    115109    else {                       /* Short option */ 
    116         return longopt_get_shortopt(interp, argc, argv, options, info_buf); 
     110        return longopt_get_shortopt(argc, argv, options, info_buf); 
    117111    } 
    118112} 
    119113 
    120114/* 
    121115 
    122 =item C<static int longopt_get_longopt(PARROT_INTERP, int argc, const char* 
    123 argv[], const struct longopt_opt_decl options[], struct longopt_opt_info* 
     116=item C<static int longopt_get_longopt(int argc, const char* argv[], 
     117const struct longopt_opt_decl options[], struct longopt_opt_info* 
    124118info_buf)> 
    125119 
    126120Find the option identifier of a long option. 
     
    135129*/ 
    136130 
    137131static int 
    138 longopt_get_longopt(PARROT_INTERP, int argc, ARGIN(const char* argv[]), 
     132longopt_get_longopt(int argc, ARGIN(const char* argv[]), 
    139133                    ARGIN(const struct longopt_opt_decl options[]), 
    140134                    ARGMOD(struct longopt_opt_info* info_buf)) 
    141135{ 
     
    167161                        info_buf->opt_arg = &argv[dex][optlen+1]; 
    168162                    } 
    169163                    else { 
    170                         Parrot_snprintf(interp, longopt_error_buffer, 
     164                        snprintf(longopt_error_buffer, 
    171165                                        sizeof (longopt_error_buffer), 
    172166                                        "Option %s does not expect an argument", 
    173167                                                dptr->opt_long[sptr]); 
     
    182176                            ++info_buf->opt_index; 
    183177                        } 
    184178                        else { 
    185                             Parrot_snprintf(interp, longopt_error_buffer, 
     179                            snprintf(longopt_error_buffer, 
    186180                                            sizeof (longopt_error_buffer), 
    187181                                           "Option %s needs an argument", 
    188182                                                   dptr->opt_long[sptr]); 
     
    206200 
    207201    /* Couldn't find it. */ 
    208202    info_buf->opt_id = -1; 
    209     Parrot_snprintf(interp, longopt_error_buffer, 
     203    snprintf(longopt_error_buffer, 
    210204             sizeof (longopt_error_buffer), 
    211205             "Option %s not known", argv[dex]); 
    212206    info_buf->opt_error = longopt_error_buffer; 
     
    215209 
    216210/* 
    217211 
    218 =item C<static int longopt_get_shortopt(PARROT_INTERP, int argc, const char* 
    219 argv[], const struct longopt_opt_decl options[], struct longopt_opt_info* 
     212=item C<static int longopt_get_shortopt(int argc, const char* argv[], 
     213const struct longopt_opt_decl options[], struct longopt_opt_info* 
    220214info_buf)> 
    221215 
    222216Find the option identifier of the next short option. 
     
    232226*/ 
    233227 
    234228static int 
    235 longopt_get_shortopt(PARROT_INTERP, int argc, ARGIN(const char* argv[]), 
     229longopt_get_shortopt(int argc, ARGIN(const char* argv[]), 
    236230                     ARGIN(const struct longopt_opt_decl options[]), 
    237231                     ARGMOD(struct longopt_opt_info* info_buf)) 
    238232{ 
     
    261255                        ++info_buf->opt_index; 
    262256                    } 
    263257                    else { 
    264                         Parrot_snprintf(interp, longopt_error_buffer, 
     258                        snprintf(longopt_error_buffer, 
    265259                                        sizeof (longopt_error_buffer), 
    266260                                        "Option -%c expects an argument", *pos); 
    267261                        info_buf->opt_error = longopt_error_buffer; 
     
    299293 
    300294    /* Couldn't find it in the table */ 
    301295    info_buf->opt_id = -1; 
    302     Parrot_snprintf(interp, longopt_error_buffer, 
     296    snprintf(longopt_error_buffer, 
    303297             sizeof (longopt_error_buffer), 
    304298             "Option -%c not known", *pos); 
    305299    info_buf->opt_error = longopt_error_buffer;