issue 325

ChangeLog

@@ -1,3 +1,10 @@
+2024-11-08 Richard Frith-Macdonald <[email protected]>
+
+	* Headers/Foundation/NSFileHandle.h:
+	* Source/GSFileHandle.m:
+	* Source/NSFileHandle.m:
+	Add -truncateAtOffset:error: method (issue 325)
+
 2024-11-03 Richard Frith-Macdonald <[email protected]>
 
 	* Source/NSFileManager.m: Fix case where positive result of asking

Headers/Foundation/NSFileHandle.h

@@ -99,6 +99,11 @@ GS_EXPORT_CLASS
 - (void) synchronizeFile;
 - (void) truncateFileAtOffset: (unsigned long long)pos;
 
+#if OS_API_VERSION(MAC_OS_X_VERSION_10_15, GS_API_LATEST)
+- (BOOL) truncateAtOffset: (unsigned long long)offset 
+                    error: (out NSError **)error;
+#endif
+
 @end
 
 // Notification names.

Source/GSFileHandle.m

@@ -1722,7 +1722,6 @@ - (void) truncateFileAtOffset: (unsigned long long)pos
     {
       [NSException raise: NSFileHandleOperationException
 		  format: @"attempt to truncate invalid file"];
-
     }
   if (ftruncate(descriptor, pos) < 0)
     {
@@ -1732,6 +1731,21 @@ - (void) truncateFileAtOffset: (unsigned long long)pos
   [self seekToFileOffset: pos];
 }
 
+- (BOOL) truncateAtOffset: (unsigned long long)offset
+                    error: (out NSError **)error
+{
+  if (ftruncate((isStandardFile ? descriptor : -1), offset) < 0)
+    {
+      if (error)
+	{
+	  *error = [NSError _last];
+	}
+      return NO;
+    }
+  [self seekToFileOffset: offset];
+  return YES;
+}
+
 - (void) writeInBackgroundAndNotify: (NSData*)item forModes: (NSArray*)modes
 {
   NSMutableDictionary*	info;

Source/NSFileHandle.m

@@ -467,6 +467,12 @@ - (void) truncateFileAtOffset: (unsigned long long)pos
   [self subclassResponsibility: _cmd];
 }
 
+- (BOOL) truncateAtOffset: (unsigned long long)offset
+                    error: (out NSError **)error
+{
+  [self subclassResponsibility: _cmd];
+  return NO;
+}
 
 @end