-
Notifications
You must be signed in to change notification settings - Fork 6
/
wn_load.pl
53 lines (45 loc) · 1.1 KB
/
wn_load.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
/*
# https://github.com/ekaf/wordnet-prolog/raw/master/wn_load.pl
(c) 2020-24 Eric Kafe, CC BY 4.0, https://creativecommons.org/licenses/by/4.0/
SWI-prolog program to load all WordNet databases
*/
semrels(['at','cs','ent','hyp','ins','mm','mp','ms','sim','vgp']).
lexrels(['ant','der','per','ppl','sa']).
lexinfo(['cls','fr','s','sk','syntax']).
seminfo(['g']).
morphinfo(['exc']).
allwn(L):-
semrels(L),
writef('\nSemantic Relations: %w\n', [L]).
allwn(L):-
lexrels(L),
writef('\nLexical Relations: %w\n', [L]).
allwn(L):-
lexinfo(L),
writef('\nLexical Info: %w\n', [L]).
allwn(L):-
seminfo(L),
writef('\nSemantic Info: %w\n', [L]).
allwn(L):-
morphinfo(L),
writef('\nMorphological Info: %w\n', [L]).
/* ------------------------------------------
Load WN
------------------------------------------ */
pred2arity(P,A,L):-
current_predicate(P,Term),
Term =.. [P|L],
length(L,A).
loadpred(P):-
swritef(F,'prolog/wn_%w.pl',[P]),
consult(F),
pred2arity(P,A,_),
writef('Loaded %w (%w/%w)\n',[F,P,A]).
loadwn:-
allwn(L),
member(P,L),
loadpred(P),
false.
loadwn:-
nl.
:-loadwn.