diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

new scanner.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@736 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2003-01-08 16:45:35 +00:00
parent f60c97a504
commit 136af18cb0
12 changed files with 730 additions and 1387 deletions
Download Patch File Download Diff File Expand all files Collapse all files

112
library/Tries/yap_tries.c
View File

@@ -6,13 +6,12 @@
#include "config.h"
#include "YapInterface.h"
#include <stdio.h>
#if HAVE_STRING_H
#include <string.h>
#endif
#include "tries.h"
#include "tries.h"
#include "tries.c"
void init_tries(void);
@@ -38,89 +37,109 @@ void init_tries(void) {
BUCKETS_IN_USE = 0;
BUCKETS_MAX_USED = 0;
YAP_UserCPredicate("open_trie", p_open_trie, 1); /* -> Ref */
YAP_UserCPredicate("close_trie", p_close_trie, 1); /* Ref -> */
YAP_UserCPredicate("close_all_tries", p_close_all_tries, 0); /* -> */
YAP_UserCPredicate("put_trie_entry", p_put_trie_entry, 3); /* Ref x Entry -> Ref */
YAP_UserCPredicate("get_trie_entry", p_get_trie_entry, 2); /* Ref -> Entry */
YAP_UserCPredicate("remove_trie_entry", p_remove_trie_entry, 1); /* Ref -> */
YAP_UserCPredicate("trie_statistics", p_trie_stats, 0); /* -> */
YAP_UserCPredicate("print_trie", p_print_trie, 1); /* Ref -> */
FunctorComma = YAP_MkFunctor(YAP_LookupAtom(","), 2);
YAP_UserCPredicate("open_trie", p_open_trie, 1); /* -> Trie */
YAP_UserCPredicate("close_trie", p_close_trie, 1); /* Trie -> */
YAP_UserCPredicate("close_all_tries", p_close_all_tries, 0); /* -> */
YAP_UserCPredicate("put_trie_entry", p_put_trie_entry, 4); /* Mode x Trie x Entry -> Ref */
YAP_UserCPredicate("get_trie_entry", p_get_trie_entry, 3); /* Mode x Ref -> Entry */
YAP_UserCPredicate("remove_trie_entry", p_remove_trie_entry, 1); /* Ref -> */
YAP_UserCPredicate("trie_statistics", p_trie_stats, 0); /* -> */
YAP_UserCPredicate("print_trie", p_print_trie, 1); /* Trie -> */
return;
}
/* open_trie(+Ref) */
/* open_trie(+Trie) */
static int p_open_trie(void) {
YAP_Term arg1 = YAP_ARG1;
YAP_Term arg_trie = YAP_ARG1;
TrNode node;
/* check arg */
if (!YAP_IsVarTerm(arg1))
if (!YAP_IsVarTerm(arg_trie))
return FALSE;
/* open trie */
node = open_trie();
/* return node reference */
if (!YAP_Unify(arg1, YAP_MkIntTerm((int) node)))
if (!YAP_Unify(arg_trie, YAP_MkIntTerm((int) node)))
return FALSE;
return TRUE;
}
/* close_trie(-Ref) */
/* close_trie(-Trie) */
static int p_close_trie(void) {
YAP_Term arg1 = YAP_ARG1;
YAP_Term arg_trie = YAP_ARG1;
/* check args */
if (!YAP_IsIntTerm(arg1))
if (!YAP_IsIntTerm(arg_trie))
return FALSE;
/* free trie */
close_trie((TrNode) YAP_IntOfTerm(arg1));
/* close trie */
close_trie((TrNode) YAP_IntOfTerm(arg_trie));
return TRUE;
}
/* close_all_tries() */
static int p_close_all_tries(void) {
/* close all tries */
close_all_tries();
return TRUE;
}
/* put_trie_entry(-Ref,-Entry,+Ref) */
/* put_trie_entry(-Mode,-Trie,-Entry,+Ref) */
static int p_put_trie_entry(void) {
YAP_Term arg1 = YAP_ARG1;
YAP_Term arg2 = YAP_ARG2;
YAP_Term arg3 = YAP_ARG3;
YAP_Term arg_mode = YAP_ARG1;
YAP_Term arg_trie = YAP_ARG2;
YAP_Term arg_entry = YAP_ARG3;
YAP_Term arg_ref = YAP_ARG4;
TrNode node;
char *mode_str;
/* check args */
if (!YAP_IsIntTerm(arg1))
mode_str = YAP_AtomName(YAP_AtomOfTerm(arg_mode));
if (!strcmp(mode_str, "std")) {
MODE = MODE_STANDARD;
} else if (!strcmp(mode_str, "rev")) {
MODE = MODE_REVERSE;
} else
return FALSE;
/* put entry */
node = put_trie_entry((TrNode) YAP_IntOfTerm(arg1), arg2);
/* return node reference */
if (!YAP_Unify(arg3, YAP_MkIntTerm((int) node)))
if (!YAP_IsIntTerm(arg_trie))
return FALSE;
/* put trie entry */
node = put_trie_entry((TrNode) YAP_IntOfTerm(arg_trie), arg_entry);
if (!YAP_Unify(arg_ref, YAP_MkIntTerm((int) node)))
return FALSE;
return TRUE;
}
/* get_trie_entry(-Ref,+Entry) */
/* get_trie_entry(-Mode,-Ref,+Entry) */
static int p_get_trie_entry(void) {
YAP_Term arg1 = YAP_ARG1;
YAP_Term arg2 = YAP_ARG2;
YAP_Term arg_mode = YAP_ARG1;
YAP_Term arg_ref = YAP_ARG2;
YAP_Term arg_entry = YAP_ARG3;
YAP_Term entry;
char *mode_str;
/* check args */
if (!YAP_IsIntTerm(arg1))
mode_str = YAP_AtomName(YAP_AtomOfTerm(arg_mode));
if (!strcmp(mode_str, "std")) {
MODE = MODE_STANDARD;
} else if (!strcmp(mode_str, "rev")) {
MODE = MODE_REVERSE;
} else
return FALSE;
/* get entry */
entry = get_trie_entry((TrNode) YAP_IntOfTerm(arg1));
/* return entry reference */
if (!YAP_Unify(arg2, entry))
if (!YAP_IsIntTerm(arg_ref))
return FALSE;
/* get trie entry */
entry = get_trie_entry((TrNode) YAP_IntOfTerm(arg_ref));
if (!YAP_Unify(arg_entry, entry))
return FALSE;
return TRUE;
}
@@ -128,33 +147,34 @@ static int p_get_trie_entry(void) {
/* remove_trie_entry(-Ref) */
static int p_remove_trie_entry(void) {
YAP_Term arg1 = YAP_ARG1;
YAP_Term arg_ref = YAP_ARG1;
/* check arg */
if (!YAP_IsIntTerm(arg1))
if (!YAP_IsIntTerm(arg_ref))
return FALSE;
/* remove trie entry */
remove_trie_entry((TrNode) YAP_IntOfTerm(arg1));
remove_trie_entry((TrNode) YAP_IntOfTerm(arg_ref));
return TRUE;
}
/* trie_statistics() */
static int p_trie_stats(void) {
/* print trie statistics */
trie_stats();
return TRUE;
}
/* print_trie(-Ref) */
/* print_trie(-Trie) */
static int p_print_trie(void) {
YAP_Term arg1 = YAP_ARG1;
YAP_Term arg_trie = YAP_ARG1;
/* check arg */
if (!YAP_IsIntTerm(arg1))
if (!YAP_IsIntTerm(arg_trie))
return FALSE;
/* print trie */
print_trie((TrNode) YAP_IntOfTerm(arg1));
print_trie((TrNode) YAP_IntOfTerm(arg_trie));
return TRUE;
}