99 lines
3.7 KiB
Diff
99 lines
3.7 KiB
Diff
--- /dev/null 2026-06-10 18:10:25.546025717 +0200
|
|
+++ b/wrapawk 1970-01-01 01:00:01.000000000 +0100
|
|
@@ -0,0 +1,95 @@
|
|
+#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;
|
|
+ openat_extra=$6;
|
|
+ if(openat_extra){
|
|
+ print " {(void(*))&next_" name ", \"" name "\"}," > structfile;
|
|
+ print "extern " ret " (*next_" name ")" openat_extra ";" > headerfile;
|
|
+ print ret " (*next_" name ")" openat_extra "=tmp_" name ";"> deffile;
|
|
+
|
|
+ print ret " tmp_" name, openat_extra "{" > tmpffile;
|
|
+ print " mode_t mode = 0;" > tmpffile;
|
|
+ print " if (flags & O_CREAT) {" > tmpffile;
|
|
+ print " va_list args;" > tmpffile;
|
|
+ print " va_start(args, flags);" > tmpffile;
|
|
+ print " mode = va_arg(args, int);" > tmpffile;
|
|
+ print " va_end(args);" > tmpffile;
|
|
+ print " }" > tmpffile;
|
|
+ print " load_library_symbols();" > tmpffile;
|
|
+ print " return next_" name, argname ";" > tmpffile;
|
|
+ print "}" > tmpffile;
|
|
+ print "" > tmpffile;
|
|
+ } else 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;
|
|
+}
|