Changeset 7a20e4c for util.c

Timestamp:

Feb 8, 2007, 4:39:31 PM (17 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

952b1660

Parents:

801b7ac

git-author:

Nelson Elhage <nelhage@mit.edu> (02/01/07 12:03:34)

git-committer:

Nelson Elhage <nelhage@mit.edu> (02/08/07 16:39:31)

Message:

smartnarrowing to an unclass is now the same as narrowing to the
corresponding class. We may want to make this more customizable.

File:

• util.c (modified) (1 diff)

util.c

@@ -737 +737 @@
 }
 
+/* Return the base class or instance from a zephyr class, by removing
+   leading `un' or trailing `.d'.
+   Modified ``class'' in place, and does not allocate memory.
+*/
+char * owl_util_baseclass(char * class)
+{
+  char * end;
+  while(!strncmp(class, "un", 2)) {
+    class += 2;
+  }
+  end = class + strlen(class) - 1;
+  while(*end == 'd' && *(end-1) == '.') {
+    end -= 2;
+  }
+  *(end + 1) = 0;
+  return class;
+}
+
 /**************************************************************************/
 /************************* REGRESSION TESTS *******************************/