1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
# $XConsortium: ReqSame.awk,v 5.3 94/04/17 20:36:38 hersh Exp $
###########################################################################
## Copyright 1990, 1991 by Sun Microsystems, Inc. and the X Consortium.
##
## All Rights Reserved
##
## Permission to use, copy, modify, and distribute this software and its
## documentation for any purpose and without fee is hereby granted,
## 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 names of Sun Microsystems
## and the X Consortium not be used in advertising or publicity
## pertaining to distribution of the software without specific, written
## prior permission.
##
## SUN MICROSYSTEMS DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
## INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT
## SHALL SUN MICROSYSTEMS BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
## DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
## WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
## ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
## SOFTWARE.
##
###########################################################################
## Finds names that use the same swapping routine and renames them.
##
## Usage:
## awk -f ReqSame.awk Requests.h > Requests.ci
##
BEGIN {
num = 0; name = ""; lend = 0; oname = ""; rend = 0; D=0 }
$1$2 == "#ifdefSWAP_FUNC_PREFIX" {
D=1
print "#include \"convReq.h\"" }
D == 0 {
if ($4 ~ /SWAP_FUNC_PREFIX/) {
lend = index($0,"(PEX")
rend = index($0,")")
name = substr($0,(lend+4),(rend-lend-4))
oname = name
if (name == "FreeLookupTable") {
name = "GenericResourceRequest" }
else if (name == "GetDefinedIndices") {
name = "GenericResourceRequest" }
else if (name == "FreePipelineContext") {
name = "GenericResourceRequest" }
else if (name == "FreeRenderer") {
name = "GenericResourceRequest" }
else if (name == "EndRendering") {
name = "GenericResourceRequest" }
else if (name == "EndStructure") {
name = "GenericResourceRequest" }
else if (name == "CreateStructure") {
name = "GenericResourceRequest" }
else if (name == "GetRendererDynamics") {
name = "GenericResourceRequest" }
else if (name == "CreateNameSet") {
name = "GenericResourceRequest" }
else if (name == "FreeNameSet") {
name = "GenericResourceRequest" }
else if (name == "FreeSearchContext") {
name = "GenericResourceRequest" }
else if (name == "SearchNetwork") {
name = "GenericResourceRequest" }
else if (name == "GetNameSet") {
name = "GenericResourceRequest" }
else if (name == "FreePhigsWks") {
name = "GenericResourceRequest" }
else if (name == "RedrawAllStructures") {
name = "GenericResourceRequest" }
else if (name == "UpdateWorkstation") {
name = "GenericResourceRequest" }
else if (name == "ExecuteDeferredActions") {
name = "GenericResourceRequest" }
else if (name == "UnpostAllStructures") {
name = "GenericResourceRequest" }
else if (name == "GetWksPostings") {
name = "GenericResourceRequest" }
else if (name == "FreePickMeasure") {
name = "GenericResourceRequest" }
else if (name == "CloseFont") {
name = "GenericResourceRequest"}
else if (name == "GetDescendants") {
name = "GetAncestors" }
else {
name = ""
}}
if (name == "") {
print $0 }
else {
print substr($0,1,lend) "PEX" name substr($0,rend,(length($0))) "\t/*" oname "*/" }
name = "" }
D == 1 { if ($0 ~ /;/) { D=0 } }
END { }
|
