diff options
Diffstat (limited to 'xts5/Xlib17/IsFunctionKey/IsFunctionKey.m')
| -rw-r--r-- | xts5/Xlib17/IsFunctionKey/IsFunctionKey.m | 227 |
1 files changed, 227 insertions, 0 deletions
diff --git a/xts5/Xlib17/IsFunctionKey/IsFunctionKey.m b/xts5/Xlib17/IsFunctionKey/IsFunctionKey.m new file mode 100644 index 00000000..e9c146b6 --- /dev/null +++ b/xts5/Xlib17/IsFunctionKey/IsFunctionKey.m @@ -0,0 +1,227 @@ +Copyright (c) 2005 X.Org Foundation L.L.C. + +Permission is hereby granted, free of charge, to any person obtaining a copy of +this software and associated documentation files (the "Software"), to deal in +the Software without restriction, including without limitation the rights to +use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies +of the Software, and to permit persons to whom the Software is furnished to do +so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in all +copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE +SOFTWARE. +$Header: /cvs/xtest/xtest/xts5/tset/Xlib17/IsFunctionKey/IsFunctionKey.m,v 1.2 2005-11-03 08:43:05 jmichael Exp $ + +Copyright (c) Applied Testing and Technology, Inc. 1995 +All Rights Reserved. + +>># Project: VSW5 +>># +>># File: xts5/tset/Xlib17/IsFunctionKey/IsFunctionKey.m +>># +>># Description: +>># Tests for IsFunctionKey() +>># +>># Modifications: +>># $Log: isfnctnky.m,v $ +>># Revision 1.2 2005-11-03 08:43:05 jmichael +>># clean up all vsw5 paths to use xts5 instead. +>># +>># Revision 1.1.1.2 2005/04/15 14:05:23 anderson +>># Reimport of the base with the legal name in the copyright fixed. +>># +>># Revision 8.0 1998/12/23 23:34:41 mar +>># Branch point for Release 5.0.2 +>># +>># Revision 7.0 1998/10/30 22:57:03 mar +>># Branch point for Release 5.0.2b1 +>># +>># Revision 6.0 1998/03/02 05:25:59 tbr +>># Branch point for Release 5.0.1 +>># +>># Revision 5.0 1998/01/26 03:22:32 tbr +>># Branch point for Release 5.0.1b1 +>># +>># Revision 4.1 1996/05/09 21:00:37 andy +>># Fixed keysymdef include +>># +>># Revision 4.0 1995/12/15 09:11:14 tbr +>># Branch point for Release 5.0.0 +>># +>># Revision 3.1 1995/12/15 01:13:49 andy +>># Prepare for GA Release +>># +/* +Portions of this software are based on Xlib and X Protocol Test Suite. +We have used this material under the terms of its copyright, which grants +free use, subject to the conditions below. Note however that those +portions of this software that are based on the original Test Suite have +been significantly revised and that all such revisions are copyright (c) +1995 Applied Testing and Technology, Inc. Insomuch as the proprietary +revisions cannot be separated from the freely copyable material, the net +result is that use of this software is governed by the ApTest copyright. + +Copyright (c) 1990, 1991 X Consortium + +Permission is hereby granted, free of charge, to any person obtaining a copy +of this software and associated documentation files (the "Software"), to deal +in the Software without restriction, including without limitation the rights +to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +copies of the Software, and to permit persons to whom the Software is +furnished to do so, subject to the following conditions: + +The above copyright notice and this permission notice shall be included in +all copies or substantial portions of the Software. + +THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN +AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN +CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. + +Except as contained in this notice, the name of the X Consortium shall not be +used in advertising or otherwise to promote the sale, use or other dealings +in this Software without prior written authorization from the X Consortium. + +Permission to use, copy, modify, distribute, and sell this software and +its documentation for any purpose is hereby granted without fee, +provided that the above copyright notice appear in all copies and that +both that copyright notice and this permission notice appear in +supporting documentation, and that the name of UniSoft not be +used in advertising or publicity pertaining to distribution of the +software without specific, written prior permission. UniSoft +makes no representations about the suitability of this software for any +purpose. It is provided "as is" without express or implied warranty. +*/ +>>TITLE IsFunctionKey Xlib17 + +IsFunctionKey(keysym) +KeySym keysym; +>>EXTERN +#define XK_LATIN1 +#define XK_MISCELLANY +#include "X11/keysymdef.h" +#undef XK_MISCELLANY +#undef XK_LATIN1 +>>ASSERTION Good A +When the +.A keysym +argument is a function key, then invocation +of the xname macro returns +.S True . +>>STRATEGY +For each function key KeySym: + Verify that xname returns True. +>>CODE +static KeySym ks[] = { + XK_F1, + XK_F2, + XK_F3, + XK_F4, + XK_F5, + XK_F6, + XK_F7, + XK_F8, + XK_F9, + XK_F10, + XK_F11, + XK_L1, + XK_F12, + XK_L2, + XK_F13, + XK_L3, + XK_F14, + XK_L4, + XK_F15, + XK_L5, + XK_F16, + XK_L6, + XK_F17, + XK_L7, + XK_F18, + XK_L8, + XK_F19, + XK_L9, + XK_F20, + XK_L10, + XK_F21, + XK_R1, + XK_F22, + XK_R2, + XK_F23, + XK_R3, + XK_F24, + XK_R4, + XK_F25, + XK_R5, + XK_F26, + XK_R6, + XK_F27, + XK_R7, + XK_F28, + XK_R8, + XK_F29, + XK_R9, + XK_F30, + XK_R10, + XK_F31, + XK_R11, + XK_F32, + XK_R12, + XK_R13, + XK_F33, + XK_F34, + XK_R14, + XK_F35, + XK_R15, + 0 }; +KeySym *ksp; +Bool res; + + for(ksp = ks; *ksp; ksp++) { + keysym = *ksp; + res = XCALL; + if(res != True) { + char *kstr = XKeysymToString(*ksp); + + report("%s() did not return True for KeySym XK_%s (value %lu).", + TestName, kstr != (char *) NULL ? kstr : "<KeySym Undefined>", *ksp); + FAIL; + } else + CHECK; + + } + + CHECKPASS(NELEM(ks) - 1); + +>>ASSERTION Good A +When the +.A keysym +argument is not a function key, then +invocation of the xname macro returns +.S False . +>>STRATEGY +Verify that xname returns False for the KeySym XK_A. +>>CODE +Bool res; + + keysym = XK_A; + res = XCALL; + if(res != False) { + char *kstr = XKeysymToString(keysym); + + report("%s() did not return False for KeySym XK_%s (value %lu).", + TestName, kstr != (char *) NULL ? kstr : "<KeySym Undefined>", keysym); + FAIL; + } else + CHECK; + + CHECKPASS(1); |