/* This is for testing the local getopt. */

#ifdef GETOPT_FROM_SYSTEM

#define dwgetopt  getopt

#define dwopterr  opterr

#define dwoptind  optind

#define dwoptopt  optopt

#define dwopterr  opterr

#define dwoptarg  optarg

#define dwno_argument  no_argument

#define dwrequired_argument  required_argument

#define dwoptional_argument  optional_argument

#endif

#include <stdio.h>

#include <stdlib.h>

#include <string.h> /* for strcmp */

#include "dwgetopt.h" /* for dwgetopt */

char *argv1[20];

/*  Use for testing dwgetopt only.

    Not a standard function. */

static void

dwgetoptresetfortestingonly(void)

{

   dwopterr   = 1;

   dwoptind   = 1;

   dwoptopt   = 0;

   dwoptreset = 0;

   dwoptarg   = 0;

}

/* for rchar read the real int/char returned.

   for xchar read the expected int/char.

   for roptarg, read dwoptarg (the real optarg val),

   for xoptarg read expected-optarg

   for roptind read dwoptind,

   for xoptind read expected-optind

*/

static void

chkval(int ct,

    int rchar,int xchar,

    char *roptarg,char *xoptarg,

    int roptind,int xoptind,

    const char *testid)

{

    int err = 0;

    if (rchar != xchar) {

        err++;

        printf("Mismatch %d %s: got char %c 0x%x exp char %c 0x%x\n",

            ct,testid,rchar,rchar,xchar,xchar);

    }

    if (roptarg != xoptarg) {

        /* pointers non-match */

        if (roptarg && xoptarg && (!strcmp(roptarg,xoptarg))) {

            /* strings match. */

        } else {

            err++;

            printf("Mismatch %d %s: got dwoptarg %s 0x%lx exp optarg %s 0x%lx\n",

                ct,testid,

                roptarg?roptarg:"",

                (unsigned long)roptarg,

                xoptarg?xoptarg:"",

                (unsigned long)xoptarg);

        }

    }

    if (roptind != xoptind) {

        err++;

        printf("Mismatch %d %s: got dwoptind %d 0x%x exp optind %d 0x%x\n",

            ct,testid,roptind,roptind,xoptind,xoptind);

    }

    if (err > 0) {

        printf("FAIL getopttest %s\n",testid);

        exit(1);

    }

}

static int

test3(void)

{

    int ct = 1;

    int c = 0;

    int argct = 8;

    argv1[0]="a.out";

    argv1[1]="-a";

    argv1[2]="-#bx";

    argv1[3]="-b";

    argv1[4]="-c";

    argv1[5]="-cfoo";

    argv1[6]="-d";

    argv1[7]="progtoread";

    argv1[8]=0;

    for ( ;(c = dwgetopt(argct, argv1, "#:abc::d")) != EOF; ct++) {

    switch(ct) {

    case 1:

        chkval(ct,c,'a',dwoptarg,0,dwoptind,2,"test31");

        break;

    case 2:

        chkval(ct,c,'#',dwoptarg,"bx",dwoptind,3,"test32");

        break;

    case 3:

        chkval(ct,c,'b',dwoptarg,0,dwoptind,4,"test33");

        break;

    case 4:

        chkval(ct,c,'c',dwoptarg,0,dwoptind,5,"test34");

        break;

    case 5:

        chkval(ct,c,'c',dwoptarg,"foo",dwoptind,6,"test35");

        break;

    case 6:

        chkval(ct,c,'d',dwoptarg,0,dwoptind,7,"test36");

        break;

    case 7:

    case 8:

    case 9:

    case 10:

    case 11:

    default:

        printf("FAIL test3 unexpected ct %d\n",ct);

    }

    }

#if 0

    printf(" final check: ct %d dwoptind %d\n",ct,optind);

#endif

    if (strcmp(argv1[dwoptind],"progtoread")) {

        printf("FAIL test3 on non-dash dwoptind %d arg got %s exp %s\n",

            dwoptind,argv1[dwoptind],"progtoread");

        exit(1);

    }

    printf("PASS getopt test 3\n");

    return 0;

}

static int

test2(void)

{

    int ct = 1;

    int c = 0;

    int argct = 5;

    argv1[0]="a.out";

    argv1[1]="-a";

    argv1[2]="-#pound";

    argv1[3]="-b";

    argv1[4]="-cfilename";

    argv1[5]=0;

    for ( ;(c = dwgetopt(argct, argv1,

        "#:abc::")) != EOF; ct++) {

    switch(ct) {

    case 1:

        chkval(ct,c,'a',dwoptarg,0,dwoptind,2,"test21");

        break;

    case 2:

        chkval(ct,c,'#',dwoptarg,"pound",dwoptind,3,"test22");

        break;

        break;

    case 3:

        chkval(ct,c,'b',dwoptarg,0,dwoptind,4,"test23");

        break;

    case 4:

        chkval(ct,c,'c',dwoptarg,"filename",dwoptind,5,"test24");

        break;

    default:

        printf("FAIL test2 unexpected ct %d\n",ct);

        exit(1);

    }

    }

#if 0

    printf(" final check: ct %d dwoptind %d\n",ct,optind);

#endif

    if (argv1[dwoptind]) {

        printf("FAIL test2 on non-dash arg dwoptind %d got 0x%lx exp NULL\n",

            dwoptind,(unsigned long)argv1[dwoptind]);

        exit(1);

    }

    printf("PASS getopt test 2\n");

    return 0;

}

static void chklongval(int ct,

    int rchar,int xchar,

    const char *xoptname,

    struct dwoption *ropt, struct dwoption *xopt,

    char *roptarg,char *xoptarg,

    int roptind,int xoptind,

    const char *testid)

{

    int err = 0;

    if(xopt != ropt || strcmp(ropt->name,xopt->name)) {

        printf("FAIL name check %s: long opt %s vs %s %s\n",

            xoptname,

            ropt->name,xopt->name,

            testid);

        ++err;

    }

    if (roptarg != xoptarg &&

        (!roptarg || !xoptarg || strcmp(roptarg,xoptarg))) {

        printf("FAIL argument check %s: long opt %s vs %s %s\n",

            xoptname,

            roptarg?roptarg:"",xoptarg?xoptarg:"",

            testid);

        ++err;

    }

    if (roptind != xoptind) {

        printf("FAIL optind check %s: long opt %d vs %d %s\n",

            xoptname,

            roptind,xoptind,

            testid);

        ++err;

    }

    if (err > 0) {

        printf("FAIL long getopttest %s\n",testid);

        exit(1);

    }

}

static int

ltest1(void)

{

    int ct = 1;

    int c = 0;

    int argct = 13;

    argv1[0]="a.out";

    argv1[1]="-ab";

    argv1[2] = "--simplelong";

    argv1[3] = "--optarglong";

    argv1[4] = "--requireoptarglong=val";

    argv1[5] = "-cd";

    argv1[6]="progtoread";

    argv1[7]=0;

    static struct dwoption  longopts[] =  {

        {"simplelong",       dwno_argument,      0,0},

        {"optarglong",       dwoptional_argument,0,0},

        {"requireoptarglong",dwrequired_argument,0,0},

        {0,0,0,0}

    };

    int longindex = 0;

    for ( ;(c = dwgetopt_long(argct, argv1,

        "abcd",

        longopts,&longindex)) != EOF; ct++) {

    switch(ct) {

    case 1:

        chkval(ct,c,'a',dwoptarg,0,dwoptind,1,"ltest12");

        break;

    case 2:

        chkval(ct,c,'b',dwoptarg,0,dwoptind,2,"ltest2");

        break;

    case 3: {

        struct dwoption * foundop = longopts + longindex;

        chklongval(ct,c,0,

            "simplelong",

            foundop,longopts+0,

            dwoptarg,0,

            dwoptind,3,"ltest3");

        }

        break;

    case 4: {

        struct dwoption * foundop = longopts + longindex;

        chklongval(ct,c,0,

            "optarglong",

            foundop,longopts+1,

            dwoptarg,0,

            dwoptind,4,"ltest4");

        }

        break;

    case 5: {

        struct dwoption * foundop = longopts + longindex;

        chklongval(ct,c,0,

            "requireoptarglong",

            foundop,longopts+2,

            dwoptarg,"val",

            dwoptind,5,"ltest5");

        }

        break;

    case 6:

        chkval(ct,c,'c',dwoptarg,0,dwoptind,5,"ltest6");

        break;

    case 7:

        chkval(ct,c,'d',dwoptarg,0,dwoptind,6,"ltest7");

        break;

    default:

        printf("FAIL ltest1 unexpected ct %d in ltest1\n",ct);

        exit(1);

    }

    }

#if 0

    printf(" final check: ct %d dwoptind %d\n",ct,optind);

#endif

    if (strcmp(argv1[dwoptind],"progtoread")) {

        printf("FAIL ltest1 on non-dash arg dwoptind %d got %s exp %s\n",

            dwoptind,argv1[dwoptind],"progtoread");

        exit(1);

    }

    printf("PASS getopt ltest1\n");

    return 0;

}

static int

ltest2(void)

{

    int ct = 1;

    int c = 0;

    int argct = 13;

    argv1[0]="a.out";

    argv1[1]="-ab";

    argv1[2] = "--optarglong";

    argv1[3] = "--optarglong=";

    argv1[4] = "--optarglong=val";

    argv1[5] = "-cd";

    argv1[6]="progtoread";

    argv1[7]=0;

    static struct dwoption  longopts[] =  {

        {"optarglong",       dwoptional_argument,0,0},

        {0,0,0,0}

    };

    int longindex = 0;

    for ( ;(c = dwgetopt_long(argct, argv1,

        "abcd",

        longopts,&longindex)) != EOF; ct++) {

    switch(ct) {

    case 1:

        chkval(ct,c,'a',dwoptarg,0,dwoptind,1,"ltest21");

        break;

    case 2:

        chkval(ct,c,'b',dwoptarg,0,dwoptind,2,"ltest22");

        break;

    case 3: {

        struct dwoption * foundop = longopts + longindex;

        chklongval(ct,c,0,

            "optarglong",

            foundop,longopts+0,

            dwoptarg,0,

            dwoptind,3,"ltest23");

        }

        break;

    case 4: {

        struct dwoption * foundop = longopts + longindex;

        chklongval(ct,c,0,

            "optarglong",

            foundop,longopts+0,

            dwoptarg,0,

            dwoptind,4,"ltest24");

        }

        break;

    case 5: {

        struct dwoption * foundop = longopts + longindex;

        chklongval(ct,c,0,

            "optarglong",

            foundop,longopts+0,

            dwoptarg,"val",

            dwoptind,5,"ltest25");

        }

        break;

    case 6:

        chkval(ct,c,'c',dwoptarg,0,dwoptind,5,"ltest26");

        break;

    case 7:

        chkval(ct,c,'d',dwoptarg,0,dwoptind,6,"ltest27");

        break;

    default:

        printf("FAIL ltest1 unexpected ct %d in ltest2\n",ct);

        exit(1);

    }

    }

#if 0

    printf(" final check: ct %d dwoptind %d\n",ct,optind);

#endif

    if (strcmp(argv1[dwoptind],"progtoread")) {

        printf("FAIL ltest2 on non-dash arg dwoptind %d got %s exp %s\n",

            dwoptind,argv1[dwoptind],"progtoread");

        exit(1);

    }

    printf("PASS getopt ltest2\n");

    return 0;

}

static int

test1(void)

{

    int ct = 1;

    int c = 0;

    int argct = 13;

    argv1[0]="a.out";

    argv1[1]="-a";

    argv1[2]="-#";

    argv1[3]="6";

    argv1[4]="-H1";

    argv1[5]="-H";

    argv1[6]="2";

    argv1[7]="-ka";

    argv1[8]="-l";

    argv1[9]="-lv";

    argv1[10]="-x";

    argv1[11]="path=./foo";

    argv1[12]="progtoread";

    argv1[13]=0;

    for ( ;(c = dwgetopt(argct, argv1,

        "#:abc::CdDeE::fFgGhH:iIk:l::mMnNo::O:pPqQrRsS:t:u:UvVwW::x:yz"))

        != EOF; ct++) {

    switch(ct) {

    case 1:

        chkval(ct,c,'a',dwoptarg,0,dwoptind,2,"test11");

        break;

    case 2:

        chkval(ct,c,'#',dwoptarg,"6",dwoptind,4,"test12");

        break;

    case 3:

        chkval(ct,c,'H',dwoptarg,"1",dwoptind,5,"test13");

        break;

    case 4:

        chkval(ct,c,'H',dwoptarg,"2",dwoptind,7,"test14");

        break;

    case 5:

        chkval(ct,c,'k',dwoptarg,"a",dwoptind,8,"test15");

        break;

    case 6:

        chkval(ct,c,'l',dwoptarg,0,dwoptind,9,"test16");

        break;

    case 7:

        chkval(ct,c,'l',dwoptarg,"v",dwoptind,10,"test17");

        break;

    case 8:

        chkval(ct,c,'x',dwoptarg,"path=./foo",dwoptind,12,"test18");

        break;

    default:

        printf("FAIL test1 unexpected ct %d in test1\n",ct);

        exit(1);

    }

    }

#if 0

    printf(" final check: ct %d dwoptind %d\n",ct,optind);

#endif

    if (strcmp(argv1[dwoptind],"progtoread")) {

        printf("FAIL test1 on non-dash arg dwoptind %d got %s exp %s\n",

            dwoptind,argv1[dwoptind],"progtoread");

        exit(1);

    }

    printf("PASS getopt test1\n");

    return 0;

}

static int

test5(void)

{

    int ct = 1;

    int c = 0;

    int argct = 8;

    argv1[0]="a.out";

    argv1[1]="-ab";

    argv1[2]="-a";

    argv1[3]="-cx";

    argv1[4]="-c";

    argv1[5]="y";

    argv1[6]="-d";

    argv1[7]="-da";

    argv1[8]=0;

    for ( ;(c = dwgetopt(argct, argv1, "abc:d::")) != EOF; ct++) {

    switch(ct) {

    case 1:

        chkval(ct,c,'a',dwoptarg,0,dwoptind,1,"test51");

        break;

    case 2:

        chkval(ct,c,'b',dwoptarg,0,dwoptind,2,"test52");

        break;

    case 3:

        chkval(ct,c,'a',dwoptarg,0,dwoptind,3,"test53");

        break;

    case 4:

        chkval(ct,c,'c',dwoptarg,"x",dwoptind,4,"test54");

        break;

    case 5:

        chkval(ct,c,'c',dwoptarg,"y",dwoptind,6,"test55");

        break;

    case 6:

        chkval(ct,c,'d',dwoptarg,0,dwoptind,7,"test56");

        break;

    case 7:

        chkval(ct,c,'d',dwoptarg,"a",dwoptind,8,"test17");

        break;

    default:

        printf("FAIL test5 unexpected ct %d in test1 char 0x%x %c\n",ct,c,c);

        exit(1);

    }

    }

#if 0

    printf(" final check: ct %d dwoptind %d\n",ct,optind);

#endif

    if (argv1[dwoptind]) {

        printf("FAIL test5 there is a non-dash arg dwoptind %d got 0x%lx\n",

            dwoptind,(unsigned long)argv1[dwoptind]);

        exit(1);

    }

    printf("PASS getopt test5\n");

    return 0;

}

static int

test6(void)

{

    int ct = 1;

    int c = 0;

    int argct = 2;

    argv1[0]="a.out";

    argv1[1]="-H";

    argv1[2]=0;

    for ( ;(c = dwgetopt(argct, argv1, "abH:d::")) != EOF; ct++) {

    switch(ct) {

    case 1:

        chkval(ct,c,'?',dwoptarg,0,dwoptind,2,"test61");

        break;

    default:

        printf("FAIL test5 unexpected ct %d in test1 char 0x%x %c\n",ct,c,c);

        exit(1);

    }

    }

    if (argv1[dwoptind]) {

        printf("FAIL test6 there is a non-dash arg dwoptind %d got 0x%lx\n",

            dwoptind,(unsigned long)argv1[dwoptind]);

        exit(1);

    }

    printf("PASS getopt test6\n");

    return 0;

}

/*  Leading : in opt string */

static int

test7(void)

{

    int ct = 1;

    int c = 0;

    int argct = 2;

    argv1[0]="a.out";

    argv1[1]="-H";

    argv1[2]=0;

    for ( ;(c = dwgetopt(argct, argv1, ":abH:d::")) != EOF; ct++) {

    switch(ct) {

    case 1:

        chkval(ct,c,':',dwoptarg,0,dwoptind,2,"test71");

        break;

    default:

        printf("FAIL test5 unexpected ct %d in test1 char 0x%x %c\n",ct,c,c);

        exit(1);

    }

    }

    if (argv1[dwoptind]) {

        printf("FAIL test7 there is a non-dash arg dwoptind %d got 0x%lx\n",

            dwoptind,(unsigned long)argv1[dwoptind]);

        exit(1);

    }

    printf("PASS getopt test7\n");

    return 0;

}

static int

test8(void)

{

    int ct = 1;

    int c = 0;

    int argct = 2;

    argv1[0]="a.out";

    argv1[1]="-x";

    argv1[2]=0;

    /*  We expect a ? because the arg list is improper. */

    for ( ;(c = dwgetopt(argct, argv1, "abH:d::")) != EOF; ct++) {

    switch(ct) {

    case 1:

        chkval(ct,c,'?',dwoptarg,0,dwoptind,2,"test81");

        break;

    default:

        printf("FAIL test5 unexpected ct %d in test1 char 0x%x %c\n",ct,c,c);

        exit(1);

    }

    }

    if (argv1[dwoptind]) {

        printf("FAIL test8 there is a non-dash arg dwoptind %d got 0x%lx\n",

            dwoptind,(unsigned long)argv1[dwoptind]);

        exit(1);

    }

    printf("PASS getopt test8\n");

    return 0;

}

int main(int argc, const char **argv)

{

    int ct = 0;

    int failct = 0;

    printf("argc: %d\n",argc);

    for( ct = 0; ct < argc ; ++ct) {

        printf("argv[%d] = %s\n",ct,argv[ct]);

    }

    if ( argc == 3) {

        int num = 0;

        if (strcmp(argv[1],"-c")) {

            printf("FAIL: invalid arg list\n");

            exit(1);

        }

        num = atoi(argv[2]);

        printf("Run one test, number %d\n",num);

        switch(num) {

        case 1:

            failct = test1();

            break;

        case 2:

            failct = test2();

            break;

        case 3:

            failct = test3();

            break;

        case 5:

            failct = test5();

            break;

        case 6:

            failct = test6();

            break;

        case 7:

            failct = test7();

            break;

        case 8:

            failct = test8();

            break;

        default:

            printf("FAIL: invalid test number %d\n",num);

            exit(1);

        }

        if ( failct) {

            printf("FAIL getopttest\n");

            exit(1);

        }

        printf("PASS getopttest\n");

        exit(0);

    } else if (argc != 1) {

        printf("FAIL: invalid arg list\n");

            exit(1);

    }

    failct += ltest1();

    dwgetoptresetfortestingonly();

    failct += ltest2();

    dwgetoptresetfortestingonly();

    failct += test5();

    dwgetoptresetfortestingonly();

    failct += test1();

    dwgetoptresetfortestingonly();

    failct += test2();

    dwgetoptresetfortestingonly();

    failct += test3();

    dwgetoptresetfortestingonly();

    failct += test6();

    dwgetoptresetfortestingonly();

    failct += test7();

    dwgetoptresetfortestingonly();

    failct += test8();

    if ( failct) {

        printf("FAIL getopttest\n");

        exit(1);

    }

    printf("PASS getopttest\n");

    return 0;

}