From 09ec144a99f1234a37d04854bdfb81485540be97 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Tue, 15 Feb 2022 15:38:57 +0100 Subject: Put C code and Prolog code in separate directories. --- episode_data.pl | 68 --------------------------------------------------------- 1 file changed, 68 deletions(-) delete mode 100644 episode_data.pl (limited to 'episode_data.pl') diff --git a/episode_data.pl b/episode_data.pl deleted file mode 100644 index 49dddd0..0000000 --- a/episode_data.pl +++ /dev/null @@ -1,68 +0,0 @@ -:- module(episode_data, [retract_episode/1, - lookup_episode/3, - lookup_episode_local/3, - lookup_episode_remote/3]). - -:- use_module(library(dcg/basics)). -:- use_module(library(http/http_open)). -:- use_module(library(sgml)). -:- use_module(library(xpath)). -:- use_module(library(persistency)). -:- use_module(atom_dcg). - -:- persistent episode_name_data(episode:integer, name:atom, data:list). - -attach :- - absolute_file_name('episode_data.db', F, [access(write)]), - db_attach(F, []). - -detach :- - db_detach. - -retract_episode(Ep) :- - ( episode_name_data(Ep, _, _) - -> retractall_episode_name_data(Ep, _, _) - ; true - ). - -padding(Ep) --> { Ep < 10 }, "00". -padding(Ep) --> { Ep >= 10, Ep < 100 }, "0". -padding(Ep) --> { Ep >= 100 }. - -episode_number(Ep) --> padding(Ep), integer(Ep). - -lookup_episode(Ep, Name, Data) :- lookup_episode_local(Ep, Name, Data), !. -lookup_episode(Ep, Name, Data) :- lookup_episode_remote(Ep, Name, Data). - -lookup_episode_local(Ep, Name, Data) :- - episode_name_data(Ep, Name, Data). - -lookup_episode_remote(Ep, Name, Data) :- - catch(http_load_html( - 'https://www.detectiveconanworld.com/wiki/Next_Conan%27s_Hint', - D), - _, - fail), - xpath(D, //tr, D1), - xpath(D1, td(index(1),text), T), - atom_phrase(episode_number(Ep), T), - xpath(D1, td(index(2),text), Name), - xpath(D1, td(index(3),text), Hint), - Data = [hint(Hint)], - assert_episode_name_data(Ep, Name, Data). - -http_load_html(URL, DOM) :- - setup_call_cleanup(http_open(URL, In, - [ timeout(60) - ]), - ( dtd(html, DTD), - load_structure(stream(In), - DOM, - [ dtd(DTD), - dialect(sgml), - shorttag(false), - max_errors(-1), - syntax_errors(quiet) - ]) - ), - close(In)). -- cgit v1.2.3