File: wrapawk

package info (click to toggle)
fakeroot 1.14.4-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 2,000 kB
  • ctags: 565
  • sloc: sh: 10,485; ansic: 3,538; makefile: 290; perl: 14
file content (77 lines) | stat: -rw-r--r-- 2,495 bytes parent folder | download | duplicates (16)
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
#Saluton Emacson! Bonvolu elekti -*- mode: awk; -*-. Dankon.

BEGIN{
  headerfile="wrapped.h";
  deffile="wrapdef.h";
  structfile="wrapstruct.h";
  tmpffile="wraptmpf.h";
  FS=";";
  WARNING="/* Automatically generated file. Do not edit. Edit wrapawk/wrapfunc.inp. */";
  print WARNING > headerfile;
  print "#ifndef WRAPPED_H" > headerfile;
  print "#define WRAPPED_H" > headerfile;
  print WARNING > deffile;
  print "#ifndef WRAPDEF_H" > deffile;
  print "#define WRAPDEF_H" > deffile;
  print WARNING > tmpffile;
  print "#ifndef WRAPTMPF_H" > tmpffile;
  print "#define WRAPTMPF_H" > tmpffile;
  print WARNING > structfile;
  print "#ifndef WRAPSTRUCT_H" > structfile;
  print "#define WRAPSTRUCT_H" > structfile;
  print "struct next_wrap_st next_wrap[]= {" > structfile;
}

/\/\*/{
}
/^(\#)/{
  print $0 > structfile;
  print $0 > tmpffile;
  print $0 > deffile;
  print $0 > headerfile;

}
/^[^\/].*;.*;.*;/{
  name=$1;
  ret=$2;
  argtype=$3;
  argname=$4;
  MACRO=$5;
  if(MACRO){
    print "  {(void(*))&NEXT_" MACRO "_NOARG, " name "_QUOTE},"  > structfile;
    print "extern " ret " (*NEXT_" MACRO "_NOARG)" argtype ";" > headerfile;
    print ret " (*NEXT_" MACRO "_NOARG)" argtype "=TMP_" MACRO ";"> deffile;
    
    print ret " TMP_" MACRO,  argtype "{"                 > tmpffile;
    print "  load_library_symbols();"                   > tmpffile;
    print "  return  NEXT_" MACRO "_NOARG "  argname ";"           > tmpffile;
    print "}"                                           > tmpffile;
    print ""                                            > tmpffile;
  } else {
    print "  {(void(*))&next_" name ", \"" name "\"},"  > structfile;
    print "extern " ret " (*next_" name ")" argtype ";" > headerfile;
    print ret " (*next_" name ")" argtype "=tmp_" name ";"> deffile;
    
    print ret " tmp_" name,  argtype "{"                 > tmpffile;
    print "  load_library_symbols();"                   > tmpffile;
    print "  return  next_" name,  argname ";"           > tmpffile;
    print "}"                                           > tmpffile;
    print ""                                            > tmpffile;
  }
}

/^ *$/{
  print > structfile;
  print > headerfile;
  print > deffile;  
  print > tmpffile;
}

END{
  print "  {NULL, NULL}," > structfile;
  print "};"              > structfile;
  print "#endif"          > structfile;
  print "#endif"          > tmpffile;
  print "#endif"          > deffile;
  print "#endif"          > headerfile;
}