feature: Adds HisRead

Author: NeedleInAJayStack

Sources/HaystackClient/HaystackClient.swift

@@ -166,6 +166,10 @@ public class HaystackClient {
         return try await post(path: "nav", args: ["navId": navId])
     }
 
+    public func hisRead(id: Ref, range: HisReadRange) async throws -> Grid {
+        return try await post(path: "hisRead", args: ["id": id, "range": range.toRequestString()])
+    }
+    
 
     public func watchSubCreate(
         watchDis: String,
@@ -396,3 +400,23 @@ enum HTTPHeader {
     static let userAgent = "User-Agent"
     static let wwwAuthenticate = "Www-Authenticate"
 }
+
+public enum HisReadRange {
+    case today
+    case yesterday
+    case date(Haystack.Date)
+    case dateRange(from: Haystack.Date, to: Haystack.Date)
+    case dateTimeRange(from: DateTime, to: DateTime)
+    case after(DateTime)
+    
+    func toRequestString() -> String {
+        switch self {
+        case .today: return "today"
+        case .yesterday: return "yesterday"
+        case let .date(date): return "\(date.toZinc())"
+        case let .dateRange(fromDate, toDate): return "\(fromDate.toZinc()),\(toDate.toZinc())"
+        case let .dateTimeRange(fromDateTime, toDateTime): return "\(fromDateTime.toZinc()),\(toDateTime.toZinc())"
+        case let .after(dateTime): return "\(dateTime.toZinc())"
+        }
+    }
+}