1:- module(ne,[neClass/2,neClassType/3,neClassType/4]). 2 3neClass(N,C):- neClassType(N,C,_,_). 4neClassType(N,C,T):- neClassType(N,C,T,_). 5 6neClassType('I-LOC',geo,nam,'LOC'):- !. 7neClassType('B-LOC',geo,nam,'LOC'):- !. 8neClassType('E-LOC',geo,nam,'LOC'):- !. 9 10neClassType('I-ORG',org,nam,'ORG'):- !. 11neClassType('B-ORG',org,nam,'ORG'):- !. 12neClassType('E-ORG',org,nam,'ORG'):- !. 13 14neClassType('I-PER',per,nam,'PER'):- !. 15neClassType('B-PER',per,nam,'PER'):- !. 16neClassType('E-PER',per,nam,'PER'):- !. 17 18neClassType('I-DAT',tim,nam,'TIM'):- !. 19neClassType('B-DAT',tim,nam,'TIM'):- !. 20neClassType('E-DAT',tim,nam,'TIM'):- !. 21 22neClassType('I-TIM',tim,nam,'TIM'):- !. 23neClassType('B-TIM',tim,nam,'TIM'):- !. 24neClassType('E-TIM',tim,nam,'TIM'):- !. 25 26neClassType('I-MON',geo,nam,'UOM'):- !. 27neClassType('B-MON',geo,nam,'UOM'):- !. 28neClassType('E-MON',geo,nam,'UOM'):- !. 29 30neClassType('Person',per,nam,'PER'):- !. 31neClassType('Organization',org,nam,'ORG'):- !. 32neClassType('Location',geo,nam,'LOC'):- !. 33neClassType('Artifact',art,nam,'ART'):- !. 34neClassType('Event',eve,nam,'HAP'):- !. 35neClassType('Natural_Object',nat,nam,'NAT'):- !. 36neClassType('Time',tim,nam,'TIM'):- !. 37neClassType('GPE',gpe,nam,'GPE'):- !. 38 39neClassType(N,Class,Type,Tag):- atom(N), atomic_list_concat([Class,Type],'-',N), neClassType(_,Class,_,Tag), !. 40neClassType(_,nam,nam,'UNK'):- !. 41neClassType(_,_,_,'UNK')