|
|
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.