From d5ab5fb9e07d820de66fd987f7d2f793dd130e49 Mon Sep 17 00:00:00 2001 From: Adelyn Breedlove Date: Mon, 17 Dec 2018 06:46:25 -0700 Subject: Add a few sigs --- bin/handler.ml | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) (limited to 'bin') diff --git a/bin/handler.ml b/bin/handler.ml index 74eaefb..5b22527 100644 --- a/bin/handler.ml +++ b/bin/handler.ml @@ -6,7 +6,22 @@ module Make(Models : Disml.S.Models) = struct let check_command (msg:Disml.Message_t.t) = if String.is_prefix ~prefix:"!ping" msg.content then - Message.reply msg "Hello!" >>> ignore + Message.reply msg "Pong!" >>> ignore + else if String.is_prefix ~prefix:"!spam" msg.content then + List.range 0 20 + |> List.iter ~f:(fun i -> Message.reply msg (string_of_int i) >>> ignore) + else if String.is_prefix ~prefix:"!list" msg.content then + let count = String.chop_prefix_exn ~prefix:"!list" msg.content |> String.strip |> Int.of_string in + let list = List.range 0 count + |> List.sexp_of_t Int.sexp_of_t + |> Sexp.to_string_hum in + Message.reply msg list >>> ignore + else if String.is_prefix ~prefix:"!fold" msg.content then + let count = String.chop_prefix_exn ~prefix:"!fold" msg.content |> String.strip |> Int.of_string in + let list = List.range 0 count + |> List.fold ~init:0 ~f:(+) + |> Int.to_string in + Message.reply msg list >>> ignore let handle_event = function | HELLO _ -> print_endline "Received HELLO" -- cgit v1.2.3 From 1a73007b3aaa17940173eaff1eb4f6703fd9ec0c Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Wed, 19 Dec 2018 13:44:04 -0700 Subject: Re-arrange autogen serialization files and incorporate into dune file --- bin/dune | 5 +++++ 1 file changed, 5 insertions(+) create mode 100644 bin/dune (limited to 'bin') diff --git a/bin/dune b/bin/dune new file mode 100644 index 0000000..96be393 --- /dev/null +++ b/bin/dune @@ -0,0 +1,5 @@ +(executable + (name bot) + (modules bot handler) + (libraries core async_ssl disml) +) \ No newline at end of file -- cgit v1.2.3