adding initial project files

Author: crfmc

INSTALL.md

@@ -0,0 +1,3 @@
+Install instructions: run 'make build' in the terminal. Make sure you are in the path with the MakeFile in it.
+
+To play run 'make play'

Makefile

@@ -0,0 +1,37 @@
+MODULES=poker command state main author bot testBot myBot
+OBJECTS=$(MODULES:=.cmo)
+MLS=$(MODULES:=.ml)
+MLIS=$(MODULES:=.mli)
+TEST=test.byte
+MAIN=main.byte
+OCAMLBUILD=ocamlbuild -use-ocamlfind
+PKGS=ounit2,str,ANSITerminal
+
+default: build
+	utop
+
+build:
+	$(OCAMLBUILD) $(OBJECTS)
+
+test:
+	$(OCAMLBUILD) -tag 'debug' $(TEST) && ./$(TEST)
+
+play:
+	$(OCAMLBUILD) $(MAIN) && ./$(MAIN)
+	
+clean:
+	ocamlbuild -clean
+	rm -rf doc.public doc.private
+
+docs: docs-public docs-private
+
+docs-public: build
+	mkdir -p doc.public
+	ocamlfind ocamldoc -I _build -package $(PKGS) \
+		-html -stars -d doc.public $(MLIS)
+
+docs-private: build
+	mkdir -p doc.private
+	ocamlfind ocamldoc -I _build -package $(PKGS) \
+		-html -stars -d doc.private \
+		-inv-merge-ml-mli -m A -hide-warnings $(MLIS) $(MLS)

README.md

@@ -0,0 +1,3 @@
+# cs3110-poker
+
+Use [make play] to play

_tags

@@ -0,0 +1 @@
+true: package(ounit2),package(ANSITerminal), package(str)

author.ml

@@ -0,0 +1,2 @@
+(** This value is approximent *)
+let hours_worked = 80

author.mli

@@ -0,0 +1,29 @@
+
+(** CS 3110 Fall 2020 MS Project
+    @author pjf73 crf85 dea79*)
+
+(************************************************************ 
+
+   Academic Integrity Statement
+
+   I, the person named in the @author comment above, have fully reviewed the
+   course academic integrity policies.  I have adhered to those policies in
+   solving the assignment.
+
+   The policies do permit some limited collaboration among students currently
+   enrolled in the course. If I did engage in such collaboration, here is the
+   list of other students with whom I collaborated, and a brief summary of that
+   collaboration:
+
+   - none
+
+   Here are any deviations from the policies that I want to document, with the
+   understanding that being honest about my mistakes is more honorable than
+   lying about my intellectual work:
+
+   - none
+
+ ************************************************************)  
+
+(** [hours_worked] is the number of hours you worked on this assignment. *)
+val hours_worked : int

bot.ml

@@ -0,0 +1,15 @@
+
+type difficulty = Test | Easy | Medium | Hard
+
+module type BotInfo = sig
+  val diff : difficulty
+  val seed : int
+end
+
+module type Bot = sig
+  module Info : BotInfo
+  val get_action : State.t -> Poker.player -> Command.t
+end
+
+module type BotMaker = 
+  functor (I : BotInfo) -> Bot with module Info = I

bot.mli

@@ -0,0 +1,26 @@
+(** A [Bot] takes a game state and produces a command *)
+
+
+(** [difficulty] represents a bot's level of complexity and skill*)
+type difficulty = Test | Easy | Medium | Hard
+
+(** A module that matches [BotInfo] is suitable for use as
+    the type of Info in a [Bot]. *)
+module type BotInfo = sig
+  val diff : difficulty
+  val seed : int
+end
+
+(** A [Bot] takes a game state and produces a command *)
+module type Bot = sig
+
+  (** [Info] is a module representing information about the bot*)
+  module Info : BotInfo
+
+  (** [get_action s] take a game state and produces a command.
+      The bot acts from the perspective of [State.current_player s] *)
+  val get_action : State.t -> Poker.player -> Command.t
+end
+
+module type BotMaker = 
+  functor (I : BotInfo) -> Bot with module Info = I

command.ml

@@ -0,0 +1,36 @@
+type t =
+  | Raise of int
+  | Start
+  | Hand
+  | Call
+  | Fold
+  | Quit
+  | Help
+
+exception Malformed
+
+(** [rid_spaces cmd_lst] is a helper function for parse_branch that takes
+    in a string list [cmd_lst] which represents the command, and gets
+    rid of trailing or leading spaces in each element and then filters for only
+    those elements which are empty strings. *)
+let rid_spaces cmd_lst : string list =
+  let open List in
+  cmd_lst 
+  |> List.map (fun s -> String.trim s) 
+  |> filter (fun x -> String.length x > 0)
+
+let parse (str : string) : t =
+  let open String in
+  let cmd_lst = str |> trim |> split_on_char ' ' |> rid_spaces in
+  match cmd_lst with
+  | "go" :: [] -> Start
+  | "hand" :: [] -> Hand
+  | "call" :: [] -> Call
+  | "fold" :: [] -> Fold
+  | "leave" :: [] -> Quit
+  | "raise" :: num :: [] -> begin match int_of_string_opt num with
+      | Some i -> Raise i 
+      | None -> raise Malformed
+    end
+  | "help" :: [] -> Help
+  | _ -> raise Malformed

command.mli

@@ -0,0 +1,28 @@
+(** The module handeling player actions *)
+
+(** A command consists of an action and possibly an action amount as well. For
+    example, a command can be ["start"] or it can also be ["Raise 56"]. The
+    former begins the game, the latter raises the bet by 56 coins. *)
+type t = | Raise of int | Start | Hand | Call | Fold | Quit | Help
+
+
+(** [Malformed] is raised when a player's input string cannot be parsed into a
+    command. A command is {i malformed} if the string contains no action,
+    or if the action is "raise" and there is not a number following it,
+    or if the action is not "raise" but there is something following it.
+    [Failure "int_of_string"] if the substring following "raise" is not a
+    string representation of an int*)
+exception Malformed
+
+(** [Command.parse str] parses a player's input [str] into a command as follows. 
+    The first word will always be the action taken by the player. This can be to 
+    raise the bet, start the game, see your best hand, call, fold, quit the 
+    game, or get help.
+    Requires: [str] contains only lowercase alphanumeric (a-z, 0-9) and space 
+    characters (only ASCII character code 32; not tabs or newlines, etc.). If 
+    there is a substring following the action, then the command is 
+    Raise and the substring consists of a string representation of an int.
+    Raises: [Malformed] if the command is malformed.  *)
+val parse : string -> t
+
+

foldBot.ml

@@ -0,0 +1,14 @@
+open Bot
+
+module Make = functor (I : BotInfo) -> struct
+
+  module Info = I
+
+  let valid_bot = 
+    match I.diff with
+    | Fold -> ()
+    | _ -> failwith "FoldBot must have difficulty Fold"
+
+  let get_action s = (Fold : Command.command)
+
+end

foldBot.mli

@@ -0,0 +1,6 @@
+(** A bot that only folds.
+    created for testing purposes *)
+open Bot
+
+(** [Make] makes a bot that only folds*)
+module Make : BotMaker