int main(int argc, char *argv[]) { const char *s; logopen("l_pmx.log","w"); s=pmxsearch("田","電田説"); logcheck(s); s=pmxsearch("(田|","電田説"); logcheck(s); s=pmxsearch("<utf>えxもa","電田説モ"); logcheck(!s); s=pmxsearch("<utf>田(もa|)","電田説モ"); logcheck(s); s=pmxsearch("<iso>(<.>)a","電a"); logcheck(s && pmxlen(1) == 1); s=pmxsearch("<utf>(<.>)a","電a"); logcheck(s && pmxlen(1) == 3); s=pmxsearch("<+.>","レモ デンタト"); logcheck(s); s=pmxsearch("<utf><+.>","レモ デンタト"); logcheck(s); s=pmxsearch("<+.>","z電"); logcheck(s); s=pmxsearch("<utf>電田説モ","電田説モ"); logcheck(s); s=pmxsearch("<+.>","z電"); logcheck(s); logclose(); exit(0); }
int main(int argc, char *argv[]) { vec_t v; //int *pk; int k; logopen("l_dpq.log","w"); v=vecnew(int); logcheck(veccount(v) == 0); vecset(int,v,0,37); vecset(int,v,1,5); vecset(int,v,2,79); //logtable(v); vecsort(v,intcmp); logcheck(vecsorted(v)); //logtable(v); vecset(int,v,0,3); vecset(int,v,1,57); vecset(int,v,2,79); //logtable(v); vecsort(v,intcmp); logcheck(vecsorted(v)); //logtable(v); logtrace("random vector (small)"); srand(time(0)); for (k=0;k<=18;k++) { vecset(int,v,k,((rand() & 0xF) <<2)+k); } logtable(v); logclock { vecsort(v); } logcheck(vecsorted(v)); logtable(v); logtrace("random vector (large)"); #define N 1000 for (k=0;k<=N;k++) { vecset(int,v,k,((rand() & 0xF) <<24)+k); } logtrace("done (%d on %d)",veccount(v), vecmax(v)); //logtable(v); logclock { vecsort(v); } //logtable(v); logtrace("sorted vector"); for (k=0;k<=N;k++) { vecset(int,v,k,10000000+k); } //logtable(v); logtrace("done"); logclock { vecsort(v); } //logtable(v); vecfree(v); logclose(); exit(0); }
int main(int argc, char *argv[]) { const char *s; const char *p; /* char *q; */ logopen("l_pmx3.log","w"); s = pmxsearch("a|b","xa"); if (logcheck(s)) {logprintf("MATCH: %.*s",pmxlen(0),pmxstart(0));} s = pmxsearch("a|b","xb"); if (logcheck(s)) {logprintf("MATCH: %.*s",pmxlen(0),pmxstart(0));} s = pmxsearch("x(|a|b)<l>","xcd"); if (logcheck(s)) {logprintf("MATCH: %.*s",pmxlen(0),pmxstart(0));} s = pmxsearch("x(|a|b)<l>","xad"); if (logcheck(!s)) {logprintf("NOMATCH: %d",pmxlen(1));} s = pmxsearch("x(|a|b)<l>","xbd"); if (logcheck(!s)) {logprintf("NOMATCH: %d",pmxlen(1));} s = pmxsearch("<d>(|in|cm)<2l>","--4px--"); if (logcheck(s)) {logprintf("MATCH: %.*s",pmxlen(0),pmxstart(0));} s = pmxsearch("<d>(|in|cm)<2l>","--4in--"); if (logcheck(!s)) {logprintf("NOMATCH: %d",pmxlen(1));} s = pmxsearch("<d>(|in|cm)<2l>","--4cm--"); if (logcheck(!s)) {logprintf("NOMATCH: %d",pmxlen(1));} s = pmxsearch("<d><!>(in|cm)<2l>","--4px--"); if (logcheck(s)) {logprintf("MATCH: %.*s",pmxlen(0),pmxstart(0));} s = pmxsearch("<d><!>(in|cm)<2l>","--4in--"); if (logcheck(!s)) {logprintf("NOMATCH: %d",pmxlen(1));} s = pmxsearch("<d><!>(in|cm)<2l>","--4cm--"); if (logcheck(!s)) {logprintf("NOMATCH: %d",pmxlen(1));} s = pmxsearch("<d>(|)<2l>","--4cm--"); if (logcheck(!s)) {logprintf("NOMATCH: %d",pmxlen(1));} s = pmxsearch("<d>()<2l>","--4cm--"); if (logcheck(s)) {logprintf("MATCH: %.*s",pmxlen(0),pmxstart(0));} s = pmxsearch("<d>)<2l>","--4cm--"); logcheck(s); logprintf("*************************"); s= pmxsearch("<2>(a)","abcaad"); if (logcheck(s)) {logprintf("MATCH: %.*s",pmxlen(0),pmxstart(0));} s= pmxsearch("<d><?>(cm|in)<l>","a3p"); if (logcheck(s)) {logprintf("MATCH: %.*s",pmxlen(0),pmxstart(0));} s= pmxsearch("<d><?>(cm|in)<l>","a3cmp"); if (logcheck(s)) {logprintf("MATCH: %.*s",pmxlen(0),pmxstart(0));} s= pmxsearch("<d><?>(cm|in)<l>","a3inp"); if (logcheck(s)) {logprintf("MATCH: %.*s",pmxlen(0),pmxstart(0));} s= pmxsearch("<d><?>(cm|in|<2l>)<l>","a3pxp"); if (logcheck(s)) {logprintf("MATCH: %.*s (%.*s)",pmxlen(0),pmxstart(0),pmxlen(1),pmxstart(1));} s= pmxsearch("<utf>«<*>(\\»|<!=»>)»","a«ABC»x"); if (logcheck(s)) {logprintf("MATCH: %.*s (%.*s)",pmxlen(0),pmxstart(0),pmxlen(1),pmxstart(1));} s= pmxsearch("<utf>«<*>(\\»|<!=»>)»","a«A\\»BC»x"); if (logcheck(s)) {logprintf("MATCH: %.*s (%.*s)",pmxlen(0),pmxstart(0),pmxlen(1),pmxstart(1));} s= pmxsearch("<utf>«<*>(\\»|<!=»>)»","a«»x"); if (logcheck(s)) {logprintf("MATCH: %.*s (%.*s)",pmxlen(0),pmxstart(0),pmxlen(1),pmxstart(1));} s= pmxsearch("(<l>)x<^1>","axa"); if (logcheck(s)) {logprintf("MATCH: %.*s (%.*s)",pmxlen(0),pmxstart(0),pmxlen(1),pmxstart(1));} s= pmxsearch("(<l>)x<^1>","axb"); logcheck(!s); s= pmxsearch("(<l><d>)x<2^1>","a3xa3a3"); if (logcheck(s)) {logprintf("MATCH: %.*s (%.*s)",pmxlen(0),pmxstart(0),pmxlen(1),pmxstart(1));} s= pmxsearch("(<l><d>)x<2^1>","a3xa3"); logcheck(!s); s= pmxsearch("(<l><d>)x<2^1>","a3xa3b3xb3b3"); if (logcheck(s)) {logprintf("MATCH: %.*s (%.*s)",pmxlen(0),pmxstart(0),pmxlen(1),pmxstart(1));} s= pmxsearch("(<l>)x<^2>","a3xa3"); logcheck(!s); p = "a<!>(bc|de)<2l>"; s = pmxsearch(p,"abcbc"); logcheck(!s); s = pmxsearch(p,"axybc"); if (logcheck(s)) {logprintf("MATCH: %.*s (%.*s)",pmxlen(0),pmxstart(0),pmxlen(1),pmxstart(1));} logclose(); exit(0); }