psyc-mirrors/libpsyc
1
0
Fork 0
mirror of git://git.psyc.eu/libpsyc synced 2024-08-15 03:19:02 +00:00
Code Issues Releases Wiki Activity

Merge branch 'master' of supraverse.net:libpsyc

Browse source
This commit is contained in:
tg(x) 2011-04-20 19:18:43 +02:00
commit cbd90eacac
4 changed files with 27 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Makefile
View file

@ -1,4 +1,4 @@
CFLAGS=-I../../include -DDEBUG -DPSYC_COMPILE_LIBRARY -g -O0 -Wall
CFLAGS=-I../../include -DDEBUG=2 -DPSYC_COMPILE_LIBRARY -g -O0 -Wall
CC=cc -I../include
# CC=clang
@ -17,7 +17,7 @@ lib: $S
ar rcs libpsyc.a $O
match: match.c
${CC} -o $@ -DDEBUG=2 -DCMDTOOL -DTEST $<
${CC} -o $@ -DDEBUG=4 -DCMDTOOL -DTEST $<
it: match

45
src/match.c
View file

@ -11,53 +11,52 @@ int PSYC_matches(char* sho, size_t slen,
if (slen == 0 || *sho != '_' ||
llen == 0 || *lon != '_') {
PT(("Please use long format keywords (compact ones would be faster, I know..)\n"))
P1(("Please use long format keywords (compact ones would be faster, I know..)\n"))
return -2;
}
if (slen > llen) {
PT(("The long string is shorter than the short one.\n"))
P1(("The long string is shorter than the short one.\n"))
return -3;
}
if (slen == llen) {
if (!strcmp(sho, lon)) {
PT(("Identical arguments.\n"))
if (!strncmp(sho, lon, slen)) {
P1(("Identical arguments.\n"))
return 0;
}
PT(("Same length but different.\nNo match, but they could be related or have a common type.\n"))
P1(("Same length but different.\nNo match, but they could be related or have a common type.\n"))
return -4;
}
PT(("*start short '%s' long '%s'\n", sho, lon))
P3(("# PSYC_matches short '%*s' in long '%*s' ?\n", slen, sho, llen, lon))
se = sho+slen;
le = lon+llen;
/* doesn't always work this way.. FIXME */
*se = *le = '_';
sho++; lon++;
while((s = strchr(sho, '_'))) {
*s = 0;
PT(("sho goes '%c' and lon goes '%c'\n", *sho, *lon))
while((l = strchr(lon, '_'))) {
*l = 0;
PT(("strcmp short '%s' long '%s'\n", sho, lon))
if (!strcmp(sho, lon)) goto foundone;
if (l == le) goto failed;
*l = '_';
sho++; lon++; slen--; llen--;
while(*sho && sho < se) {
P3(("# comparing short '%*s' (%d)\n", slen, sho, slen))
unless (s = memchr(sho, '_', slen)) s = se;
P4(("# sho goes '%c' and lon goes '%c'\n", *sho, *lon))
while(*lon && lon < le) {
P3(("# against long '%*s' (%d)\n", llen, lon, llen))
unless (l = memchr(lon, '_', llen)) l = le;
P3(("# %d == %d && !strncmp '%*s', '%*s'\n", s-sho, l-lon, s-sho, sho, s-sho, lon))
if (l-lon == s-sho && !strncmp(sho, lon, s-sho)) goto foundone;
P4(("# failed\n"))
llen -= l-lon + 1;
lon = ++l;
}
goto failed;
foundone:
PT(("found: short '%s' long '%s'\n", sho, lon))
if (s == se) goto success;
*l = *s = '_';
P3(("# found %d of short '%*s' and long '%*s'\n", s-sho, s-sho, sho, s-sho, lon))
llen -= l-lon;
slen -= s-sho;
sho = ++s;
lon = ++l;
}
success:
return 0;
failed:
PT(("No, they don't match.\n"))
P4(("No, they don't match.\n"))
return 1;
}

3
tests/testMatch.c
View file

@ -5,8 +5,9 @@ int main() {
if (PSYC_matches("_failure_delivery", 0, "_failure_unsuccessful_delivery_death", 0)) return -1;
if (PSYC_matches("_failure_trash", 8, "_failure_unsuccessful_delivery_death", 0)) return -2;
if (PSYC_matches("_unsuccessful", 0, "_failure_unsuccessful_delivery_death", 0)) return -3;
if (PSYC_matches("_fail", 0, "_failure_unsuccessful_delivery_death", 0)) return -4;
unless (PSYC_matches("_fail", 0, "_failure_unsuccessful_delivery_death", 0)) return -4;
unless (PSYC_matches("_truthahn", 0, "_failure_unsuccessful_delivery_death", 0)) return -5;
puts("PSYC_matches passed all tests.");
return 0; // passed all tests
}

1
tests/testParser.c
View file

@ -32,6 +32,7 @@ int main(int argc, char** argv)
case PSYC_ENTITY:
write(1, &modifier, 1);
case PSYC_BODY:
// printf("the string is '%.*s'\n", name);
write(1, name.ptr, name.length);
write(1, " = ", 3);
write(1, value.ptr, value.length);