Save away some of my tests.

tools/qfcc/test/cast.r

@@ -0,0 +1,4 @@
+void f(integer x, integer y)
+{
+	x = (vector ()(quaternion x)) y;
+}

tools/qfcc/test/params.qc

@@ -0,0 +1,9 @@
+void printf (string, ...) = #0;
+integer main (integer argc, string *argv)
+{
+    integer i;
+
+	for (i = 0; i < argc; i++)
+		printf ("%s\n", argv[i]);
+	return 0;
+}

tools/qfcc/test/struct.r

@@ -0,0 +1,57 @@
+struct _qfile_t {};
+typedef struct _qfile_t *QFile;
+
+@extern void Qclose (QFile file);
+void (QFile file) Qclose = #0;
+
+struct plitem_s {integer dummy;};
+typedef struct plitem_s plitem_t;
+
+@extern plitem_t PL_GetFromFile (QFile file);
+@extern plitem_t PL_GetPropertyList (string str);
+
+plitem_t PL_GetFromFile (QFile file) = #0;
+
+typedef enum {
+	NO = 0,     ///< the false value
+	YES         ///< a true value
+} BOOL;
+
+@class Protocol;
+
+@protocol Object
+- (BOOL) conformsToProtocol: (Protocol *)aProtocol;
+@end
+
+@interface Object //<Object>
+{
+	Class isa;
+	integer referenceCount;
+}
+- (BOOL) conformsToProtocol: (Protocol *)aProtocol;
+@end
+
+@class Array;
+
+@interface AutoreleasePool: Object
+{
+	Array   *array;             ///< a list of objects awaiting release
+}
++ (void) addObject: (id)anObject;
+@end
+
+@interface Protocol : Object
+{
+@private
+	string protocol_name;
+	struct obj_protocol_list *protocol_list;
+	struct obj_method_description_list *instance_methods, *class_methods;
+}
+@end
+
+void test_plist (void)
+{
+	plitem_t pl;
+	
+	pl = PL_GetPropertyList ("{}");
+}

tools/qfcc/test/test2.qc

@@ -0,0 +1,8 @@
+float (float a, float b) idiv =
+{
+	return ((a & -1) / (b & -1)) & -1;
+};
+float (float a, float b) imod =
+{
+	return (a & -1) - (b & -1) * (((a & -1) / (b & -1)) & -1);
+};

tools/qfcc/test/void-pointer.r

@@ -0,0 +1,8 @@
+@extern void bar (void *p);
+void bar (void *p) = #0;
+
+@extern void *foo (integer x);
+void *foo (integer x)
+{
+	return nil;
+}