Modified source engine (2017) developed by valve and leaked in 2020. Not for commercial purporses
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

83 lines
2.1 KiB

5 years ago
#define WIN32_MEAN_AND_LEAN
#define WIN32_LEAN_AND_MEAN
//#include <windows.h>
#include <conio.h>
#define STB_STUA
#define STB_DEFINE
#define STB_NPTR
#define STB_ONLY
#include "stb.h"
//#include "stb_file.h"
int count;
void c(int truth, char *error)
{
if (!truth) {
fprintf(stderr, "Test failed: %s\n", error);
++count;
}
}
char *expects(stb_matcher *m, char *s, int result, int len, char *str)
{
int res2,len2=0;
res2 = stb_lex(m, s, &len2);
c(result == res2 && len == len2, str);
return s + len;
}
void test_lex(void)
{
stb_matcher *m = stb_lex_matcher();
// tok_en5 .3 20.1 20. .20 .1
char *s = "tok_en5.3 20.1 20. .20.1";
stb_lex_item(m, "[a-zA-Z_][a-zA-Z0-9_]*", 1 );
stb_lex_item(m, "[0-9]*\\.?[0-9]*" , 2 );
stb_lex_item(m, "[\r\n\t ]+" , 3 );
stb_lex_item(m, "." , -99 );
s=expects(m,s,1,7, "stb_lex 1");
s=expects(m,s,2,2, "stb_lex 2");
s=expects(m,s,3,1, "stb_lex 3");
s=expects(m,s,2,4, "stb_lex 4");
s=expects(m,s,3,1, "stb_lex 5");
s=expects(m,s,2,3, "stb_lex 6");
s=expects(m,s,3,1, "stb_lex 7");
s=expects(m,s,2,3, "stb_lex 8");
s=expects(m,s,2,2, "stb_lex 9");
s=expects(m,s,0,0, "stb_lex 10");
stb_matcher_free(m);
}
int main(int argc, char **argv)
{
char *p;
p = "abcdefghijklmnopqrstuvwxyz";
c(stb_ischar('c', p), "stb_ischar 1");
c(stb_ischar('x', p), "stb_ischar 2");
c(!stb_ischar('#', p), "stb_ischar 3");
c(!stb_ischar('X', p), "stb_ischar 4");
p = "0123456789";
c(!stb_ischar('c', p), "stb_ischar 5");
c(!stb_ischar('x', p), "stb_ischar 6");
c(!stb_ischar('#', p), "stb_ischar 7");
c(!stb_ischar('X', p), "stb_ischar 8");
p = "#####";
c(!stb_ischar('c', p), "stb_ischar a");
c(!stb_ischar('x', p), "stb_ischar b");
c(stb_ischar('#', p), "stb_ischar c");
c(!stb_ischar('X', p), "stb_ischar d");
p = "xXyY";
c(!stb_ischar('c', p), "stb_ischar e");
c(stb_ischar('x', p), "stb_ischar f");
c(!stb_ischar('#', p), "stb_ischar g");
c(stb_ischar('X', p), "stb_ischar h");
test_lex();
if (count) {
_getch();
}
return 0;
}