fabs
/
cheesebot
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add Evaluate module. 

The Evaluate module contains the logic for cheesebot actions.
master
Fabien Freling 2014-03-09 16:02:18 +01:00
parent 5b790d3f09
commit 764581f505
2 changed files with 23 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ocaml/evaluate.ml Normal file
View File

@ -0,0 +1,20 @@
open Str
let is_url url =
let regexp = regexp "\\(https?\\://\\)?www\\..+\\..+" in
string_match regexp url 0
let is_youtube_url url =
let regexp = regexp "\\(https?\\://\\)?\\(www\\.\\)?\\(youtube\\.com\\)\\|\\(youtu\\.be\\)/.+" in
string_match regexp url 0
(* Maybe have a list of functions and
* iter on all the items in the list *)
let evaluate str =
match str with
| str when is_url str ->
SimpleHttp.get_http_title (SimpleHttp.get_body str)
| _ -> None

30
ocaml/shell.ml
View File

@ -1,38 +1,14 @@
open Str
let is_url url =
let regexp = regexp "\\(https?\\://\\)?www\\..+\\..+" in
string_match regexp url 0
let is_youtube_url url =
let regexp = regexp "\\(https?\\://\\)?\\(www\\.\\)?\\(youtube\\.com\\)\\|\\(youtu\\.be\\)/.+" in
string_match regexp url 0
(* Maybe have a list of functions and
* iter on all the items in the list *)
let evaluate str =
match str with
| str when is_youtube_url str ->
(
let title = SimpleHttp.get_http_title (SimpleHttp.get_body str) in
match title with
| Some s -> s
| None -> ""
)
| str when is_url str -> str
| _ -> ""
let () =
try
while true do
print_string "> ";
let line = read_line () in
let answer = evaluate line in
print_endline answer
match Evaluate.evaluate line with
| Some answer -> print_endline answer
| _ -> ()
done
with
End_of_file -> print_endline "Bye!";;