Toggle navigation
?
users online
Logout
Open hangout
Open chat for current file
input("INSERT INTO `CITATIONS` VALUES ('1','0006-2944','1975 Jun','1975-6-1',1975),('10','1873-2968','1975 Sep 01','1975-9-1',1975),('100','0547-6844','1975','1975-1-1',1975),('1000','0264-6021','1975 Sep','1975-9-1',1975),('10000','0006-3002','1976 Sep 28','1976-9-28',1976),('100000','0160-3450','1978 Sep','1978-9-1',1978),('1000000','0006-3363','1976 Dec','1976-12-1',1976);"). % load and query the data: % ?- load, citation(PMID,ISSN,EDAT,PYEAR). :- use_module(library(dcg/basics)). :- use_module(library(intercept)). :- dynamic citation/4. load_citations :- input(X), string_codes(X, Y), retractall(citation(_,_,_,_)), intercept(phrase(insert, Y), t(PMID, ISSN, EDAT, PYEAR), assertz(citation(PMID, ISSN, EDAT, PYEAR))). insert --> header, tuple, more_tuples, footer. header --> string_without("(", _Header). footer --> ";". more_tuples --> ",", !, tuple, more_tuples. more_tuples --> []. tuple --> "(", "'", integer(PMID), "'", ",", "'", string_without("'", X), "'", ",", "'", string_without("'", _DP), "',", "'", integer(Year), "-", integer(Month), "-", integer(Day), "'", ",", integer(PYEAR), ")", { atom_codes(ISSN, X), send_signal(t(PMID,ISSN,date(Year,Month,Day),PYEAR)) }.