Add EdgeInsets missing function in value

ChangeLog

@@ -1,3 +1,23 @@
+2024-11-26 Matvii Jarosh <[email protected]>
+
+	* NSByteOrder.h: fix NSSwappedFloat and NSSwappedDouble
+	* MISSING:
+
+2024-11-25 Matvii Jarosh <[email protected]>
+
+	* NSInvocation.h: add enum _NSObjCValueType and
+	typedef structNSObjCValue. There are no functions not implemented
+	in NSInvocation.h left.
+	* MISSING:
+
+2024-11-21 Matvii Jarosh <[email protected]>
+
+	* NSValue: add valueWithEdgeInsets and edgeInsetsValue.
+	* typeEncodingHelper.h: add NSINSETS_ENCODING_PREFIX and
+	IS_NSINSETS_ENCODING and update comment.
+	* type_encoding.m: add test NSINSETS_ENCODING_PREFIX.
+	* GSConcreteValueTamplate.m: add GSEdgeInsetsValue.
+	* GSConcreteValue.m: add TYPE_ORDER 6.
 2024-11-24 Richard Frith-Macdonald <[email protected]>
 
 	* Source/NSSocketPort.m: fix leak of data object when establishing a

Headers/Foundation/NSByteOrder.h

@@ -384,13 +384,37 @@ NSSwapShort(unsigned short in)
 static inline NSSwappedDouble
 NSSwapDouble(NSSwappedDouble num)
 {
+#if	GS_SIZEOF_DOUBLE == 2
+  return GSSwapI16(num);
+#else
+#if	GS_SIZEOF_DOUBLE == 4
+  return GSSwapI32(num);
+#else
+#if	GS_SIZEOF_DOUBLE == 8
   return GSSwapI64(num);
+#else
+  return GSSwapI128(num);
+#endif
+#endif
+#endif
 }
 
 static inline NSSwappedFloat
 NSSwapFloat(NSSwappedFloat num)
 {
+#if	GS_SIZEOF_FLOAT == 2
+  return GSSwapI16(num);
+#else
+#if	GS_SIZEOF_FLOAT == 4
   return GSSwapI32(num);
+#else
+#if	GS_SIZEOF_FLOAT == 8
+  return GSSwapI64(num);
+#else
+  return GSSwapI128(num);
+#endif
+#endif
+#endif
 }
 
 #if	GS_WORDS_BIGENDIAN

Headers/Foundation/NSInvocation.h

@@ -27,6 +27,7 @@
 #import	<GNUstepBase/GSVersionMacros.h>
 
 #import	<Foundation/NSMethodSignature.h>
+#include <stdbool.h>
 
 #if	defined(__cplusplus)
 extern "C" {
@@ -154,6 +155,47 @@ GS_EXPORT_CLASS
   [NSInvocation _returnInvocationAndDestroyProxy: __proxy]; \
 })
 
+typedef NS_ENUM(char, _NSObjCValueType)
+{
+  NSObjCArrayType = '[',
+  NSObjCBitfield = 'b',
+  NSObjCBoolType = 'B',
+  NSObjCCharType = 'c',
+  NSObjCDoubleType = 'd',
+  NSObjCFloatType = 'f',
+  NSObjCLonglongType = 'q',
+  NSObjCLongType = 'l',
+  NSObjCNoType = '\0',
+  NSObjCObjectType = '@',
+  NSObjCPointerType = '^',
+  NSObjCSelectorType = ':',
+  NSObjCShortType = 's',
+  NSObjCStringType = '*',
+  NSObjCStructType = '{',
+  NSObjCUnionType = '(',
+  NSObjCVoidType = 'v',
+};
+
+typedef struct
+{
+  _NSObjCValueType type;
+  union
+  {
+    bool boolValue;
+    char charValue;
+    double doubleValue;
+    float floatValue;
+    long long longlongValue;
+    long longValue;
+    id objectValue;
+    void *pointerValue;
+    SEL selectorValue;
+    short shortValue;
+    char *cStringLocation;
+    void *structLocation;
+  } value;
+} NSObjCValue;
+
 #if	defined(__cplusplus)
 }
 #endif

Headers/Foundation/NSValue.h

@@ -96,6 +96,14 @@ GS_EXPORT_CLASS
  */
 + (NSValue*) valueWithSize: (NSSize)size;
 
+#if OS_API_VERSION(MAC_OS_X_VERSION_10_10, GS_API_LATEST)
+/**
+ * Convenience method to create instance holding an <code>NSEdgeInsets</code>
+ * structure.
+ */   
++ (NSValue*) valueWithEdgeInsets: (NSEdgeInsets)insets;
+#endif
+
 #if OS_API_VERSION(GS_API_MACOSX, GS_API_LATEST)
 /**
  * Synonym for value:withObjCType: .
@@ -166,6 +174,14 @@ GS_EXPORT_CLASS
  */
 - (NSPoint) pointValue;
 
+#if OS_API_VERSION(MAC_OS_X_VERSION_10_10, GS_API_LATEST)
+/**
+ * If receiver was initialized with an <code>NSEdgeInsets</code> value, return it,
+ * else raises <code>NSInternalInconsistencyException</code>.
+ */
+- (NSEdgeInsets) edgeInsetsValue;
+#endif
+
 @end
 
 /**

MISSING

@@ -32,10 +32,6 @@ NSBundle:
 	/** Not implemented */ (GNUstep comment)
 	- executableArchitectures;
 -------------------------------------------------------------
-NSByteOrder:
-	NSSwappedFloat — incompatible declaration
-	NSSwappedDouble — incompatible declaration
--------------------------------------------------------------
 NSCalendar:
 	NSWeekOfMonthCalendarUnit
 	NSWeekOfYearCalendarUnit
@@ -257,12 +253,7 @@ NSIndexSet:
 	- enumerateRangesUsingBlock:
 	- enumerateRangesWithOptions:usingBlock:
 	- enumerateRangesInRange:options:usingBlock:
--------------------------------------------------------------
-NSInvocation:
-	<stdbool.h>
 
-	enum _NSObjCValueType
-	typedef struct NSObjCValue
 -------------------------------------------------------------
 NSKeyedArchiver:
 	<NSGeometry.h>
@@ -885,3 +876,5 @@ Good headers:
 	<NSXMLDTD.h>
 	<NSXMLDTDNode.h>
 	<NSXMLElement.h>
+	<NSInvocation.h>
+	<NSByteOrder.h>

Source/GSConcreteValue.m

@@ -50,3 +50,7 @@
 #include "GSConcreteValueTemplate.m"
 #undef TYPE_ORDER
 
+#define TYPE_ORDER 6
+#include "GSConcreteValueTemplate.m"
+#undef TYPE_ORDER
+

Source/GSConcreteValueTemplate.m

@@ -79,6 +79,15 @@ @interface GSSizeValue : NSValue
 #  define GSTemplateValue	GSSizeValue
 #  define TYPE_METHOD	sizeValue
 #  define TYPE_NAME	NSSize
+#elif TYPE_ORDER == 6
+@interface GSEdgeInsetsValue : NSValue
+{
+  NSEdgeInsets data;
+}
+@end
+#  define GSTemplateValue	GSEdgeInsetsValue
+#  define TYPE_METHOD	edgeInsetsValue
+#  define TYPE_NAME	NSEdgeInsets
 #endif
 
 @implementation GSTemplateValue
@@ -164,6 +173,11 @@ - (BOOL) isEqualToValue: (NSValue*)aValue
 	return YES;
       else
 	return NO;
+#elif TYPE_ORDER == 6
+      if (data.top == val.top && data.left == val.left && data.bottom == val.bottom && data.right == val.right)
+	return YES;
+      else
+	return NO;
 #endif
     }
   return NO;
@@ -213,6 +227,18 @@ - (NSUInteger) hash
   for (i = 0; i < sizeof(double); i++)
     hash += val.c[i];
   return hash;
+#elif TYPE_ORDER == 6
+  union {
+    double d;
+    unsigned char c[sizeof(double)];
+  } val;
+  NSUInteger	hash = 0;
+  unsigned int	i;
+
+  val.d = data.top + data.left + data.bottom + data.right;
+  for (i = 0; i < sizeof(double); i++)
+    hash += val.c[i];
+  return hash;
 #endif
 }
 
@@ -241,6 +267,9 @@ - (NSString *) description
   return NSStringFromRect(data);
 #elif TYPE_ORDER == 5
   return NSStringFromSize(data);
+#elif TYPE_ORDER == 6
+  return [NSString stringWithFormat:@"{top = %.2f, left = %.2f, bottom = %.2f, right = %.2f}",
+		   data.top, data.left, data.bottom, data.right];
 #endif
 }
 

Source/NSValue.m

@@ -35,6 +35,7 @@
 #import "Foundation/NSMapTable.h"
 #import "Foundation/NSLock.h"
 #import "Foundation/NSData.h"
+#import "Foundation/NSGeometry.h"
 #import "GSPThread.h"
 
 @interface	GSPlaceholderValue : NSValue
@@ -64,6 +65,11 @@ @interface GSSizeValue : NSObject	// Help the compiler
 @class	NSDataStatic;		// Needed for decoding.
 @interface NSDataStatic : NSData	// Help the compiler
 @end
+#if OS_API_VERSION(MAC_OS_X_VERSION_10_10, GS_API_LATEST)
+@class GSEdgeInsetsValueValue;
+@interface GSEdgeInsetsValue : NSObject     // Help the compiler
+@end
+#endif
 
 
 static Class	abstractClass;
@@ -75,6 +81,9 @@ @interface NSDataStatic : NSData	// Help the compiler
 static Class	rectValueClass;
 static Class	sizeValueClass;
 static Class	GSPlaceholderValueClass;
+#if OS_API_VERSION(MAC_OS_X_VERSION_10_10, GS_API_LATEST)
+static Class    edgeInsetsValueClass;
+#endif
 
 
 static GSPlaceholderValue	*defaultPlaceholderValue;
@@ -128,6 +137,9 @@ + (void) initialize
       rectValueClass = [GSRectValue class];
       sizeValueClass = [GSSizeValue class];
       GSPlaceholderValueClass = [GSPlaceholderValue class];
+      #if OS_API_VERSION(MAC_OS_X_VERSION_10_10, GS_API_LATEST)
+      edgeInsetsValueClass = [GSEdgeInsetsValue class];
+      #endif
 
       /*
        * Set up infrastructure for placeholder values.
@@ -217,6 +229,10 @@ + (Class) valueClassWithObjCType: (const char *)type
     theClass = rectValueClass;
   else if (strcmp(@encode(NSSize), type) == 0)
     theClass = sizeValueClass;
+  #if OS_API_VERSION(MAC_OS_X_VERSION_10_10, GS_API_LATEST)
+  else if (strcmp(@encode(NSEdgeInsets), type) == 0)
+    theClass = edgeInsetsValueClass;
+  #endif
 
   /* Try for equivalent types match.
    */
@@ -232,6 +248,10 @@ + (Class) valueClassWithObjCType: (const char *)type
     theClass = rectValueClass;
   else if (GSSelectorTypesMatch(@encode(NSSize), type))
     theClass = sizeValueClass;
+  #if OS_API_VERSION(MAC_OS_X_VERSION_10_10, GS_API_LATEST)
+  else if (GSSelectorTypesMatch(@encode(NSEdgeInsets), type))
+    theClass = edgeInsetsValueClass;
+  #endif
 
   return theClass;
 }
@@ -314,6 +334,17 @@ + (NSValue*) valueWithSize: (NSSize)size
   return AUTORELEASE(theObj);
 }
 
+#if OS_API_VERSION(MAC_OS_X_VERSION_10_10, GS_API_LATEST)
++ (NSValue*) valueWithEdgeInsets: (NSEdgeInsets)insets
+{
+  NSValue	*theObj;
+
+  theObj = [edgeInsetsValueClass allocWithZone: NSDefaultMallocZone()];
+  theObj = [theObj initWithBytes: &insets objCType: @encode(NSEdgeInsets)];
+  return AUTORELEASE(theObj);
+}
+#endif
+
 + (NSValue*) valueFromString: (NSString *)string
 {
   NSDictionary	*dict = [string propertyList];
@@ -424,6 +455,14 @@ - (NSPoint) pointValue
   return NSMakePoint(0,0);
 }
 
+#if OS_API_VERSION(MAC_OS_X_VERSION_10_10, GS_API_LATEST)
+- (NSEdgeInsets) edgeInsetsValue
+{
+  [self subclassResponsibility: _cmd];
+  return NSEdgeInsetsMake(0,0,0,0);
+}
+#endif
+
 - (Class) classForCoder
 {
   return abstractClass;
@@ -468,6 +507,15 @@ - (void) encodeWithCoder: (NSCoder *)coder
       [coder encodeValueOfObjCType: objctype at: &v];
       return;
     }
+  #if OS_API_VERSION(MAC_OS_X_VERSION_10_10, GS_API_LATEST)
+  else if (strncmp(NSINSETS_ENCODING_PREFIX, objctype, strlen(NSINSETS_ENCODING_PREFIX)) == 0)
+    {
+      NSEdgeInsets v = [self edgeInsetsValue];
+
+      [coder encodeValueOfObjCType: objctype at: &v];
+      return;
+    }
+  #endif
 
   NSGetSizeAndAlignment(objctype, &tsize, NULL);
   data = (void *)NSZoneMalloc([self zone], tsize);
@@ -517,6 +565,10 @@ - (id) initWithCoder: (NSCoder *)coder
     c = [abstractClass valueClassWithObjCType: @encode(NSRect)];
   else if (strncmp(NSRANGE_ENCODING_PREFIX, objctype, strlen(NSRANGE_ENCODING_PREFIX)) == 0)
     c = [abstractClass valueClassWithObjCType: @encode(NSRange)];
+  #if OS_API_VERSION(MAC_OS_X_VERSION_10_10, GS_API_LATEST)
+  else if (strncmp(NSINSETS_ENCODING_PREFIX, objctype, strlen(NSINSETS_ENCODING_PREFIX)) == 0)
+    c = [abstractClass valueClassWithObjCType: @encode(NSEdgeInsets)];
+  #endif
   else
     c = [abstractClass valueClassWithObjCType: objctype];
   o = [c allocWithZone: [coder objectZone]];
@@ -556,6 +608,16 @@ - (id) initWithCoder: (NSCoder *)coder
           DESTROY(self);
           return [o initWithBytes: &v objCType: @encode(NSRect)];
         }
+      #if OS_API_VERSION(MAC_OS_X_VERSION_10_10, GS_API_LATEST)
+      else if (c == edgeInsetsValueClass)
+        {
+          NSEdgeInsets	v;
+
+          [coder decodeValueOfObjCType: @encode(NSEdgeInsets) at: &v];
+          DESTROY(self);
+          return [o initWithBytes: &v objCType: @encode(NSEdgeInsets)];
+        }
+      #endif
     }
 
   if (ver < 2)
@@ -590,6 +652,16 @@ - (id) initWithCoder: (NSCoder *)coder
 	      [coder decodeValueOfObjCType: @encode(NSRect) at: &v];
 	      o = [o initWithBytes: &v objCType: @encode(NSRect)];
 	    }
+	  #if OS_API_VERSION(MAC_OS_X_VERSION_10_10, GS_API_LATEST)
+	  else if (c == edgeInsetsValueClass)
+	    {
+	      NSEdgeInsets	v;
+
+	      [coder decodeValueOfObjCType: @encode(NSEdgeInsets) at: &v];
+	      o = [o initWithBytes: &v objCType: @encode(NSEdgeInsets)];
+	    }
+
+	  #endif
 	  else
 	    {
 	      unsigned char	*data;