Revision: 69969
http://sourceforge.net/p/brlcad/code/69969
Author: starseeker
Date: 2017-07-18 19:10:30 +0000 (Tue, 18 Jul 2017)
Log Message:
-----------
ctypes_test.c is specific to the Tcl/Tk builds
Removed Paths:
-------------
brlcad/trunk/misc/CMake/test_srcs/ctypes_test.c
Deleted: brlcad/trunk/misc/CMake/test_srcs/ctypes_test.c
===================================================================
--- brlcad/trunk/misc/CMake/test_srcs/ctypes_test.c 2017-07-18 19:01:34 UTC
(rev 69968)
+++ brlcad/trunk/misc/CMake/test_srcs/ctypes_test.c 2017-07-18 19:10:30 UTC
(rev 69969)
@@ -1,24 +0,0 @@
-#include <ctype.h>
-#include <stdlib.h>
-#if ((' ' & 0x0FF) == 0x020)
-# define ISLOWER(c) ('a' <= (c) && (c) <= 'z')
-# define TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c))
-#else
-# define ISLOWER(c) \
- (('a' <= (c) && (c) <= 'i') \
- || ('j' <= (c) && (c) <= 'r') \
- || ('s' <= (c) && (c) <= 'z'))
-# define TOUPPER(c) (ISLOWER(c) ? ((c) | 0x40) : (c))
-#endif
-
-#define XOR(e, f) (((e) && !(f)) || (!(e) && (f)))
-int
-main ()
-{
- int i;
- for (i = 0; i < 256; i++)
- if (XOR(islower(i), ISLOWER(i))
- || toupper(i) != TOUPPER(i))
- return 2;
- return 0;
-}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
