Order done

Author: debasishg

lib/model/order.ml

@@ -11,14 +11,60 @@ module Order = struct
     isin: ISINCode.t;
     quantity: quantity;
     unit_price: unit_price;
-    buySell: buy_sell;
+    buy_sell: buy_sell;
   } 
 
-  type order = {
+  type t = {
     no: Orderno.t;
     order_date: Calendar.t;
     account_no: Accountno.t;
     items: line_item list;
   }
 
+  let build_line_item order_no isin quantity unit_price buy_sell = {
+    order_no;
+    isin;
+    quantity;
+    unit_price;
+    buy_sell;
+  }
+
+  let build_order no order_date account_no items = {
+    no;
+    order_date;
+    account_no;
+    items;
+  }
+
+  let validate_order ~no ~order_date ~account_no ~items = 
+    let open Validator in
+    let open Tvalidator in
+    let valid = build build_order
+    |> keep no
+    |> validate order_date (TradingValidator.date_in_future "Order date cannot be in the future")
+    |> keep account_no
+    |> validate items (list_is_not_empty "Line item list cannot be empty") in
+    match valid with
+    | Ok o -> Ok o
+    | Error e -> Error e
+
+  let validate_line_item ~order_no ~isin ~quantity ~unit_price ~buy_sell = 
+    let open Validator in
+    let open Tvalidator in
+    let valid = build build_line_item
+    |> keep order_no
+    |> keep isin
+    |> validate quantity (TradingValidator.float_min 1.0 "Quantity must be > 0")
+    |> validate unit_price (TradingValidator.float_min 1.0 "Unit price must be > 0")
+    |> keep buy_sell in
+    match valid with
+    | Ok li -> Ok li
+    | Error e -> Error e
+
+  let create_line_item ~order_no ~isin ~quantity ~unit_price ~buy_sell =
+    validate_line_item ~order_no ~isin ~quantity ~unit_price ~buy_sell 
+
+  let create_order ~no ~order_date ~account_no ~items =
+    validate_order ~no ~order_date ~account_no ~items
+
 end

lib/model/order_sig.ml

@@ -0,0 +1,28 @@
+open Orderid
+open Instrumentid
+open Accountid
+open Common
+open Validator
+open CalendarLib
+
+module type Order_sig = sig
+  (* abstract types *)
+  type line_item
+  type t
+
+  val create_line_item: 
+    order_no: Orderno.t -> 
+    isin: ISINCode.t -> 
+    quantity: quantity -> 
+    unit_price: unit_price -> 
+    buy_sell: buy_sell -> 
+    (line_item, string) validator_result
+
+  val create_order: 
+    order_no: Orderno.t -> 
+    order_date: Calendar.t -> 
+    account_no: Accountno.t ->
+    line_items: line_item list -> 
+    (t, string) validator_result
+end
+

lib/model/tvalidator.ml

@@ -53,4 +53,13 @@ module TradingValidator = struct
     (Calendar.t * Calendar.t option, Calendar.t * Calendar.t option, 'err) validator_builder =
       fun err dates -> 
         custom date_order_check err dates
+
+  let float_min_check (min : float) (value : float) =
+    if value < min then
+      None
+    else
+      Some value
+      
+      
+  let float_min min = custom (float_min_check min)
 end