New file.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@1241 72102866-910b-0410-8b05-ffd578937521
2025-05-29 16:01:38 +00:00 · 1996-03-22 00:37:53 +00:00 · 1996-03-22 00:37:53 +00:00 · 9e44cc662c
commit 9e44cc662c
parent 17de3bd4bc
24 changed files with 11364 additions and 0 deletions
--- a/Source/o_cbs_char_p.m
+++ b/Source/o_cbs_char_p.m
@ -0,0 +1,133 @@
+/* Callbacks for (NUL-terminated) arrays of `char'.
+ * Copyright (C) 1996  Free Software Foundation, Inc.
+ * 
+ * Author: Albin L. Jones <Albin.L.Jones@Dartmouth.EDU>
+ * Created: Sat Feb 10 22:04:38 EST 1996
+ * Updated: Mon Mar 11 03:09:33 EST 1996
+ * Serial: 96.03.11.06
+ * 
+ * This file is part of the GNU Objective C Class Library.
+ * 
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ * 
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Library General Public License for more details.
+ * 
+ * You should have received a copy of the GNU Library General Public
+ * License along with this library; if not, write to the Free
+ * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ 
+
+/**** Included Headers *******************************************************/
+
+#include <stdlib.h>
+#include <Foundation/NSString.h>
+#include <objects/callbacks.h>
+
+/**** Type, Constant, and Macro Definitions **********************************/
+
+/* FIXME: Is this right?!? */
+#define _OBJECTS_NOT_A_CHAR_P_MARKER (const void *)(-1)
+
+const void *objects_not_a_char_p_marker = _OBJECTS_NOT_A_CHAR_P_MARKER;
+
+objects_callbacks_t objects_callbacks_for_char_p = 
+{
+  (objects_hash_func_t) objects_char_p_hash,
+  (objects_compare_func_t) objects_char_p_compare,
+  (objects_is_equal_func_t) objects_char_p_is_equal,
+  (objects_retain_func_t) objects_char_p_retain,
+  (objects_release_func_t) objects_char_p_release,
+  (objects_describe_func_t) objects_char_p_describe,
+  _OBJECTS_NOT_A_CHAR_P_MARKER
+};
+
+/**** Function Implementations ***********************************************/
+
+size_t
+objects_char_p_hash(const char *cptr)
+{
+  register const char *s = cptr;
+  register size_t h = 0;
+  register size_t c = 0;
+
+  while (*s != '\0')
+    h ^= *(s++) << (c++);
+
+  return h;
+}
+
+int
+objects_char_p_compare(const char *cptr, const char *dptr)
+{
+  register const char *s = (char *) cptr;
+  register const char *t = (char *) dptr;
+
+  if (s == t)
+  {
+    return 0;
+  }
+  else
+  {
+    register char c;
+    register char d;
+
+    while ((c = *(s++)) == (d = *(s++)))
+      if (c == '\0')
+        return 0;
+    
+    return (c - d);
+  }
+}
+
+/* Determines whether or not CPTR is the same (`NUL'-terminated)
+ * character string as DPTR.  Returns true if CPTR and DPTR are the same,
+ * and false otherwise.  Note that we are performing no
+ * internationalization here.  CPTR and DPTR are taken to be C strings
+ * in the default (seven or) eight bit character encoding. */
+int
+objects_char_p_is_equal(const char *cptr, const char *dptr)
+{
+  register const char *s = cptr;
+  register const char *t = dptr;
+
+  if (s == t)
+  {
+    return 1;
+  }
+  else
+  {
+    register char c;
+    register char d;
+
+    while ((c = *(s++)) == (d = *(t++)))
+      if (c == '\0')
+        return 1;
+    
+    return 0;
+  }
+}
+
+const void *
+objects_char_p_retain(const char *cptr)
+{
+  return (const void *)cptr;
+}
+
+void
+objects_char_p_release(char *cptr)
+{
+  return;
+}
+
+NSString *
+objects_char_p_describe(const char *cptr)
+{
+  /* FIXME: Code this. */
+  return nil;
+}
+