test_str.c

String Manipulation Routines

printline("ptrfirsttextterm #3", ptrfirsttextterm("nonehere"), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrfirstwhite							*/
/*									*/
printline("ptrfirstwhite #1", ptrfirstwhite(string1), string1 + 4);

printline("ptrfirstwhite #2", ptrfirstwhite("abc\tother"), "\tother");

printline("ptrfirstwhite #3", ptrfirstwhite(ans18), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrfirstword							*/
/*									*/
printline("ptrfirstword #1", ptrfirstword(string2), ans09);

printline("ptrfirstword #2", ptrfirstword(string1 + 15), string1 + 15);

printline("ptrfirstword #3", ptrfirstword("    "), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastblank							*/
/*									*/
printline("ptrlastblank #1", ptrlastblank(string1), string1 + 14);

printline("ptrlastblank #2", ptrlastblank(ans18), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastchr							*/
/*									*/
printline("ptrlastchr #1", ptrlastchr(string1, 'e'), "er");

printline("ptrlastchr #2", ptrlastchr(string2, 'e'), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastchri							*/
/*									*/
printline("ptrlastchri #1", ptrlastchri(string1, 'E'), "er");

printline("ptrlastchri #2", ptrlastchri(ans21, 'e'), "ER");

printline("ptrlastchri #3", ptrlastchri(string2, 'E'), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastdig							*/
/*									*/
printline("ptrlastdig #1", ptrlastdig(string2), string2 + 11);

printline("ptrlastdig #2", ptrlastdig(ans06), "9");

printline("ptrlastdig #3", ptrlastdig(string1), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlasthex							*/
/*									*/
printline("ptrlasthex #1", ptrlasthex(string2), string2 + 11);

printline("ptrlasthex #2", ptrlasthex(string1), string1 + 18);

printline("ptrlasthex #3", ptrlasthex(ans18), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastnotblank							*/
/*									*/
printline("ptrlastnotblank #1", ptrlastnotblank(string2), string2 + 11);

printline("ptrlastnotblank #2", ptrlastnotblank(string1), "r");

printline("ptrlastnotblank #3", ptrlastnotblank("   "), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastnotchr							*/
/*									*/
printline("ptrlastnotchr #1", ptrlastnotchr(string2, ' '), string2 + 11);

printline("ptrlastnotchr #2", ptrlastnotchr(string1, 'r'), "er");

printline("ptrlastnotchr #3", ptrlastnotchr(ans18, '-'), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastnotchri							*/
/*									*/
printline("ptrlastnotchri #1", ptrlastnotchri(string1, 'R'), "er");

printline("ptrlastnotchri #2", ptrlastnotchri(ans21, 'r'), "ER");

printline("ptrlastnotchri #3", ptrlastnotchri(ans18, '-'), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastnotdig							*/
/*									*/
printline("ptrlastnotdig #1", ptrlastnotdig(ans12), ans12 + 2);

printline("ptrlastnotdig #2", ptrlastnotdig(string1), "r");

printline("ptrlastnotdig #3", ptrlastnotdig(ans11), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastnothex							*/
/*									*/
printline("ptrlastnothex #1", ptrlastnothex(ans12), ans12 + 2);

printline("ptrlastnothex #2", ptrlastnothex(string5), ans45);

printline("ptrlastnothex #3", ptrlastnothex(ans11), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastnotrange							*/
/*									*/
printline("ptrlastnotrange #1", ptrlastnotrange(ans27, ' ', '?'), ans27 + 3);

printline("ptrlastnotrange #2", ptrlastnotrange(string1, ' ', 'z'), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastnotgr							*/
/*									*/
printline("ptrlastnotgr #1",
		ptrlastnotgr(ans37, "0123456789"), ans37 + 7);

printline("ptrlastnotgr #2",
		ptrlastnotgr("abcabc", "abc"), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastnottextterm						*/
/*									*/
printline("ptrlastnottextterm #1", ptrlastnottextterm("abc.\t,"), "c.\t,");

printline("ptrlastnottextterm #2", ptrlastnottextterm(". , ! ; :"), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastnotwhite							*/
/*									*/
printline("ptrlastnotwhite #1", ptrlastnotwhite("abc \t "), "c \t ");

printline("ptrlastnotwhite #2", ptrlastnotwhite("   \t  "), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastnotwordterm						*/
/*									*/
printline("ptrlastnotwordterm #1", ptrlastnotwordterm("abc \t "), "c \t ");

printline("ptrlastnotwordterm #2", ptrlastnotwordterm(" \t "), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastrange							*/
/*									*/
printline("ptrlastrange #1", ptrlastrange(string2, '0', '9'), string2 + 11);

printline("ptrlastrange #2", ptrlastrange(ans18, '0', '9'), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastgr							*/
/*									*/
printline("ptrlastgr #1", ptrlastgr(string2, "0123456789"), string2 + 11);

printline("ptrlastgr #2", ptrlastgr(ans18, "0123456789"), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastsub							*/
/*									*/
printline("ptrlastsub #1", ptrlastsub(string6, "sub1"), string6 + 16);

printline("ptrlastsub #2", ptrlastsub(string1, "size"), ans03);

printline("ptrlastsub #3", ptrlastsub(string6, "not here"), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastsubi							*/
/*									*/
printline("ptrlastsubi #1", ptrlastsubi(string6, "SUB1"), string6 + 16);

printline("ptrlastsubi #2", ptrlastsubi(ans21, "size"), ans21 + 10);

printline("ptrlastsubi #3", ptrlastsubi(string6, "not here"), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlasttext							*/
/*									*/
/*									*/
printline("ptrlasttext #1", ptrlasttext(string7), "so");

printline("ptrlasttext #2", ptrlasttext(", ! ; :"), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlasttextterm							*/
/*									*/
printline("ptrlasttextterm #1", ptrlasttextterm(string7), ".so");

printline("ptrlasttextterm #2", ptrlasttextterm("nonehere"), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastwhite							*/
/*									*/
printline("ptrlastwhite #1", ptrlastwhite(string1), string1 + 14);

printline("ptrlastwhite #2", 1 + ptrlastwhite("abc\tother"), ans30);

printline("ptrlastwhite #3", ptrlastwhite(ans18), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrlastword							*/
/*									*/
printline("ptrlastword #1", ptrlastword(string1), ans30);

printline("ptrlastword #2", ptrlastword(ans18), ans18);

printline("ptrlastword #3", ptrlastword("   "), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextblank							*/
/*									*/
printline("ptrnextblank #1", ptrnextblank(string1), string1 + 4);

printline("ptrnextblank #2", ptrnextblank(ans18), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextchr							*/
/*									*/
printline("ptrnextchr #1", ptrnextchr(string1, 'd'), string1 + 5);

printline("ptrnextchr #2", ptrnextchr(string1, 't'), string1 + 7);

printline("ptrnextchr #3", ptrnextchr(string1 + 5, 'd'), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextchri							*/
/*									*/
printline("ptrnextchri #1", ptrnextchri(string1, 'D'), string1 + 5);

printline("ptrnextchri #2", ptrnextchri(string1, 'T'), string1 + 7);

printline("ptrnextchri #3", ptrnextchri(string1, 'b'), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextdig							*/
/*									*/
printline("ptrnextdig #1", ptrnextdig(string2), ans09);

printline("ptrnextdig #2", ptrnextdig(string2 + 5), string2 + 6);

printline("ptrnextdig #3", ptrnextdig(string1), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnexthex							*/
/*									*/
printline("ptrnexthex #1", ptrnexthex(string2), ans09);

printline("ptrnexthex #2", ptrnexthex(string5), string5 + 1);

printline("ptrnexthex #3", ptrnexthex("ghijklmn"), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextnotblank							*/
/*									*/
printline("ptrnextnotblank #1", ptrnextnotblank(string2), ans09);

printline("ptrnextnotblank #2", ptrnextnotblank(string1 + 4), ans01);

printline("ptrnextnotblank #3", ptrnextnotblank("   "), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextnotchr							*/
/*									*/
printline("ptrnextnotchr #1", ptrnextnotchr(string1 + 4, ' '), ans01);

printline("ptrnextnotchr #2", ptrnextnotchr(ans18, '-'), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextnotchri							*/
/*									*/
printline("ptrnextnotchri #1", ptrnextnotchri("bAaAab", 'a'), "b");

printline("ptrnextnotchri #2", ptrnextnotchri("aAaAa", 'a'), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextnotdig							*/
/*									*/
printline("ptrnextnotdig #1", ptrnextnotdig(ans37), ans37 + 3);

printline("ptrnextnotdig #2", ptrnextnotdig(ans37 + 3), ans37 + 7);

printline("ptrnextnotdig #3", ptrnextnotdig("123"), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextnothex							*/
/*									*/
printline("ptrnextnothex #1", ptrnextnothex(string5), string5 + 7);

printline("ptrnextnothex #2", ptrnextnothex(ans11), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextnotrange							*/
/*									*/
printline("ptrnextnotrange #1",
		ptrnextnotrange(ans37 + 3, '0', '9'), ans37 + 7);

printline("ptrnextnotrange #2",
		ptrnextnotrange(string2, ' ', '9'), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextnotgr							*/
/*									*/
printline("ptrnextnotgr #1",
		ptrnextnotgr(ans37 + 3, "0123456789"), ans37 + 7);

printline("ptrnextnotgr #2",
		ptrnextnotgr("dabcabc", "abc"), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextnottextterm						*/
/*									*/
printline("ptrnextnottextterm #1", ptrnextnottextterm("., !:is"), "is");

printline("ptrnextnottextterm #2", ptrnextnottextterm("., !:"), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextnotwhite							*/
/*									*/
printline("ptrnextnotwhite #1", ptrnextnotwhite(string2), ans09);

printline("ptrnextnotwhite #2", ptrnextnotwhite("a     "), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextrange							*/
/*									*/
printline("ptrnextrange #1", ptrnextrange(string1, 'a', 'd'), ans01);

printline("ptrnextrange #2", ptrnextrange(string5, ' ', 'z'), string5 + 1);

printline("ptrnextrange #3", ptrnextrange(string1, 'A', 'Z'), NULL);

printline("ptrnextrange #4", ptrnextrange(string2, '9', '0'), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextgr							*/
/*									*/
printline("ptrnextgr #1", ptrnextgr(string2, "0123456789"), ans09);

printline("ptrnextgr #2", ptrnextgr(string5, "1ea"), string5 + 1);

printline("ptrnextgr #3", ptrnextgr(string1, "0123456789"), NULL);

printline("ptrnextgr #4", ptrnextgr(string1, ""), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextsub							*/
/*									*/
printline("ptrnextsub #1", ptrnextsub(string1, ans30), ans30);

printline("ptrnextsub #2", ptrnextsub(string1, ans01), ans01);

printline("ptrnextsub #3", ptrnextsub(string1, "time"), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextsubi							*/
/*									*/
printline("ptrnextsubi #1", ptrnextsubi(ans21, "other"), "OTHER");

printline("ptrnextsubi #2", ptrnextsubi(string1, "OTHER"), ans30);

printline("ptrnextsubi #3", ptrnextsubi(string1, ans01), ans01);

printline("ptrnextsubi #4", ptrnextsubi(string1, "time"), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnexttext							*/
/*									*/
printline("ptrnexttext #1", ptrnexttext(string7), string7 + 6);

printline("ptrnexttext #2", ptrnexttext(" ! , : "), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnexttextterm							*/
/*									*/
printline("ptrnexttextterm #1", ptrnexttextterm(string7), string7 + 5);

printline("ptrnexttextterm #2", ptrnexttextterm("nonehere"), NULL);


/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextwhite							*/
/*									*/
printline("ptrnextwhite #1", ptrnextwhite(string1), string1 + 4);

printline("ptrnextwhite #2", ptrnextwhite("abc\tother"), "\tother");

printline("ptrnextwhite #3", ptrnextwhite("\tother"), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrnextword							*/
/*									*/
printline("ptrnextword #1", ptrnextword(string2), ans09);

printline("ptrnextword #2", ptrnextword(string1), ans01);

printline("ptrnextword #3", ptrnextword("    "), NULL);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrprevblank							*/
/*									*/
printline("ptrprevblank #1", ptrprevblank(strend(string1)), string1 + 14);

printline("ptrprevblank #2", ptrprevblank(string1 + 9), string1 + 4);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrprevchr							*/
/*									*/
printline("ptrprevchr #1", ptrprevchr(strend(string1), 'e'), "er");

printline("ptrprevchr #2", ptrprevchr(string1 + 9, ' '), string1 + 4);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrprevchri							*/
/*									*/
printline("ptrprevchri #1", ptrprevchri(strend(string1), 'E'), "er");

printline("ptrprevchri #2", ptrprevchri(strend(ans21), 'e'), "ER");

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrprevdig							*/
/*									*/
printline("ptrprevdig #1", ptrprevdig(strend(string2)), string2 + 11);

printline("ptrprevdig #2", ptrprevdig(string5 + 4), string5);

printline("ptrprevdig #3", ptrprevdig(strend(ans06)), "9");

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrprevhex							*/
/*									*/
printline("ptrprevhex #1", ptrprevhex(strend(string2)), string2 + 11);

printline("ptrprevhex #2", ptrprevhex(strend(string1)), string1 + 18);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrprevnotblank							*/
/*									*/
printline("ptrprevnotblank #1", ptrprevnotblank(strend(string2)), string2 + 11);

printline("ptrprevnotblank #2", ptrprevnotblank(string1 + 5), string1 + 3);

/*	-	-	-	-	-	-	-	-	*/
/*									*/
/*	ptrprevnotchr							*/
/*									*/
printline("ptrprevnotchr #1", ptrprevnotchr(strend(string2), ' '), string2 + 11);

printline("ptrprevnotchr #2", ptrprevnotchr(string1 + 6, 'a'), ans01);