|
|
1.1 ! root 1: /* $Header: XMakePattern.c,v 1.1 86/04/22 15:15:16 jg Rel $ */ ! 2: ! 3: /* ! 4: * XMakePattern.c - Substitute for macro in the library ! 5: * ! 6: * Author: Scott Nettles ! 7: * Digital Equipment Corporation ! 8: * Western Research Laboratory ! 9: * Date: Sat Aug 24 1985 ! 10: */ ! 11: ! 12: /* $Log: XMakePattern.c,v $ ! 13: * Revision 1.1 86/04/22 15:15:16 jg ! 14: * Changes to hide protocol better for BIGSHORTS ! 15: * ! 16: * Revision 1.1 85/12/05 13:34:57 nettles ! 17: * Initial revision ! 18: * */ ! 19: ! 20: static char rcs_ident[] = "$Header: XMakePattern.c,v 1.1 86/04/22 15:15:16 jg Rel $"; ! 21: ! 22: typedef long Pattern; ! 23: ! 24: Pattern XMakePattern(pattern, patlen, patmul) ! 25: int pattern, patlen, patmul; ! 26: { ! 27: return ((Pattern)(((patmul) << 20) | (((patlen) - 1) << 16) | (pattern) )); ! 28: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.