Complete initial implementation of library (lispkit pdf).

objecthub · Jan 1, 2025 · 653aa63 · 653aa63
1 parent f1e7d9c
commit 653aa63
Show file tree

Hide file tree

Showing 3 changed files with 241 additions and 47 deletions.
diff --git a/Sources/LispKit/Compiler/EvalError.swift b/Sources/LispKit/Compiler/EvalError.swift
@@ -202,6 +202,9 @@ public enum EvalError: Int, Hashable, Codable {
   case invalidPDFLineStyle
   case invalidPDFIconType
   case invalidPDFMarkupType
+  case invalidPDFPadding
+  case invalidPDFCalloutPoints
+  case cannotMapAttributeValue
 
   public var message: String {
     switch self {
@@ -559,6 +562,12 @@ public enum EvalError: Int, Hashable, Codable {
         return "invalid PDF text annotation icon type: $0"
       case .invalidPDFMarkupType:
         return "invalid PDF text markup type: $0"
+      case .invalidPDFPadding:
+        return "invalid specification of PDF annotation padding: $0"
+      case .invalidPDFCalloutPoints:
+        return "a PDF callout is specified with a list of 2 or 3 points; instead $0 was provided"
+      case .cannotMapAttributeValue:
+        return "unable to interpret attribute value: $0"
     }
   }
 

diff --git a/Sources/LispKit/Primitives/DrawingLibrary_iOS.swift b/Sources/LispKit/Primitives/DrawingLibrary_iOS.swift
@@ -2049,8 +2049,8 @@ extension UIImage {
       data.withUnsafeBytes {
         let bytes = $0.baseAddress?.assumingMemoryBound(to: UInt8.self)
         if let cfData = CFDataCreate(kCFAllocatorDefault, bytes, data.count), 
-            let source = CGImageSourceCreateWithData(cfData, nil) {
-            exifData = CGImageSourceCopyPropertiesAtIndex(source, 0, nil)
+           let source = CGImageSourceCreateWithData(cfData, nil) {
+          exifData = CGImageSourceCopyPropertiesAtIndex(source, 0, nil)
         }
       }
     }