From 09ec144a99f1234a37d04854bdfb81485540be97 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Tue, 15 Feb 2022 15:38:57 +0100
Subject: Put C code and Prolog code in separate directories.

---
 pl/local_episodes.pl | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 pl/local_episodes.pl

(limited to 'pl/local_episodes.pl')

diff --git a/pl/local_episodes.pl b/pl/local_episodes.pl
new file mode 100644
index 0000000..283ccb7
--- /dev/null
+++ b/pl/local_episodes.pl
@@ -0,0 +1,31 @@
+:- module(local_episodes, [local_episode//1,
+			   episode_file/2,
+			   open_episode/1]).
+
+:- use_module(library(dcg/basics)).
+:- use_module(atom_dcg).
+
+local_episode -->
+	local_episode(_).
+local_episode(N) -->
+	string(_), "Detective_Conan_-_", integer(N), string(_).
+local_episode(N) -->
+	string(_), "Detective_Conan_-_",
+	integer(First), "-", integer(Last), string(_),
+	{ Second is First + 1, between(Second, Last, N) }.
+
+% Find episode on disk.
+
+episode_file(N, F) :-
+	expand_file_name('C:/Users/John/Nedladdningar/Detective Conan season 1 to season 22 + season 23(incomplete)/*/*.*',
+			 F1),
+	(   nonvar(N)
+	->  include(atom_phrase(local_episode(N)), F1, [F|_])
+	;   include(atom_phrase(local_episode), F1, F2),
+	    member(F, F2),
+	    atom_phrase(local_episode(N), F)
+	).
+
+open_episode(N) :-
+	episode_file(N, F),
+	win_shell(open, F).
-- 
cgit v1.2.3