126 lines
2.7 KiB
Plaintext
126 lines
2.7 KiB
Plaintext
|
$INPUT$win30api$END$
|
||
|
|
$SELECT$$IFN:dll:$$END$
|
||
|
|
$OUTPUT$$IFN:file:$t$DATA:file$.c$ELSE$t$DATA:dll$.c$ENDIF$$END$
|
||
|
|
$HEADER
|
||
|
|
|
||
|
|
$TEMPLATE
|
||
|
|
|
||
|
|
|
||
|
|
ULONG W32$DATA:API$(VPVOID vpFrame)
|
||
|
|
{
|
||
|
|
$IFE:params:void
|
||
|
|
$IFN:type:void$ ULONG ul;
|
||
|
|
|
||
|
|
$ENDIF
|
||
|
|
$ELSE
|
||
|
|
$IFN:type:void$ ULONG ul = 0;
|
||
|
|
$ENDIF
|
||
|
|
$LOOP:paramdir
|
||
|
|
$IFE:paramdir*:IN
|
||
|
|
$IFE:params*:LPSTR
|
||
|
|
int cb$COUNT$; PSZ psz$COUNT$ = NULL;
|
||
|
|
$ELSEIFIN:params*:LP:LPz
|
||
|
|
$DATA:params*$ t$COUNT$;
|
||
|
|
$ENDIF
|
||
|
|
$ELSEIFE:paramdir*:IN OUT
|
||
|
|
$IFE:params*:LPSTR
|
||
|
|
int cb$COUNT$; PSZ psz$COUNT$ = NULL;
|
||
|
|
$ELSEIFIN:params*:LP:LPz
|
||
|
|
$DATA:params*$ t$COUNT$;
|
||
|
|
$ENDIF
|
||
|
|
$ELSEIFE:paramdir*:DESTROY IN
|
||
|
|
$IFE:params*:LPSTR
|
||
|
|
int cb$COUNT$; PSZ psz$COUNT$ = NULL;
|
||
|
|
$ELSEIFIN:params*:LP:LPz
|
||
|
|
$DATA:params*$ t$COUNT$;
|
||
|
|
$ENDIF
|
||
|
|
$ELSEIFE:paramdir*:OUT
|
||
|
|
$IFE:params*:LPSTR
|
||
|
|
PSZ psz$COUNT$ = NULL;
|
||
|
|
$ELSEIFIN:params*:LP:LPz
|
||
|
|
$DATA:params*$ t$COUNT$;
|
||
|
|
$ENDIF
|
||
|
|
$ENDIF
|
||
|
|
$ENDLOOP
|
||
|
|
register P$DATA:API$16 parg16;
|
||
|
|
|
||
|
|
GETARGPTR(vpFrame, sizeof($DATA:API$16), parg16);
|
||
|
|
$LOOP:paramdir
|
||
|
|
$IFE:params*:LPSTR
|
||
|
|
$IFE:paramdir*:IN
|
||
|
|
GETPSZPTR(parg16->f$COUNT$, &cb$COUNT$, psz$COUNT$);
|
||
|
|
$ELSEIFE:paramdir*:IN OUT
|
||
|
|
GETPSZPTR(parg16->f$COUNT$, &cb$COUNT$, psz$COUNT$);
|
||
|
|
$ELSEIFE:paramdir*:DESTROY IN
|
||
|
|
GETPSZPTR(parg16->f$COUNT$, &cb$COUNT$, psz$COUNT$);
|
||
|
|
$ELSEIFE:paramdir*:OUT
|
||
|
|
GETPSZPTR(parg16->f$COUNT$, cb$COUNT$, psz$COUNT$);
|
||
|
|
$ENDIF
|
||
|
|
$ELSEIFIN:params*:LP:LPz
|
||
|
|
$IFE:paramdir*:IN
|
||
|
|
GET$DATA:params*$16(parg16->f$COUNT$, &t$COUNT$);
|
||
|
|
$ELSEIFE:paramdir*:IN OUT
|
||
|
|
GET$DATA:params*$16(parg16->f$COUNT$, &t$COUNT$);
|
||
|
|
$ELSEIFE:paramdir*:DESTROY IN
|
||
|
|
GET$DATA:params*$16(parg16->f$COUNT$, &t$COUNT$);
|
||
|
|
$ENDIF
|
||
|
|
$ENDIF
|
||
|
|
$ENDLOOP
|
||
|
|
|
||
|
|
$ENDIF
|
||
|
|
$IFE:params:void
|
||
|
|
$IFN:type:void$ul = GET$DATA:type$16($ENDIF$$DATA:API$();
|
||
|
|
$ELSE
|
||
|
|
$IFN:type:void$ul = GET$DATA:type$16($ENDIF$$DATA:API$($LOOP:params
|
||
|
|
|
||
|
|
$IFE:params*:LPSTR
|
||
|
|
psz$COUNT
|
||
|
|
$ELSEIFIN:params*:LP:LPz
|
||
|
|
&t$COUNT
|
||
|
|
$ELSEIFOUT:params*:LP:LPz
|
||
|
|
$IFN:params*:void
|
||
|
|
$DATA:params*$32(parg16->f$COUNT$)$ENDIF
|
||
|
|
$ENDIF
|
||
|
|
$ENDLOOP:,$
|
||
|
|
$IFN:type:void$)$ENDIF$);
|
||
|
|
$ENDIF
|
||
|
|
|
||
|
|
$IFN:params:void
|
||
|
|
$LOOP:paramdir
|
||
|
|
$IFE:params*:LPSTR
|
||
|
|
$IFE:paramdir*:OUT
|
||
|
|
FLUSHPSZPTR(parg16->f$COUNT$, cb$COUNT$, psz$COUNT$);
|
||
|
|
$ELSEIFE:paramdir*:IN OUT
|
||
|
|
FLUSHPSZPTR(parg16->f$COUNT$, cb$COUNT$, psz$COUNT$);
|
||
|
|
$ENDIF
|
||
|
|
$ELSEIFIN:params*:LP:LPz
|
||
|
|
$IFE:paramdir*:OUT
|
||
|
|
PUT$DATA:params*$16(parg16->f$COUNT$, &t$COUNT$);
|
||
|
|
$ELSEIFE:paramdir*:IN OUT
|
||
|
|
PUT$DATA:params*$16(parg16->f$COUNT$, &t$COUNT$);
|
||
|
|
$ENDIF
|
||
|
|
$ENDIF
|
||
|
|
$ENDLOOP
|
||
|
|
Error:
|
||
|
|
$LOOP:paramdir
|
||
|
|
$IFE:paramdir*:IN
|
||
|
|
$IFE:params*:LPSTR
|
||
|
|
FREEPSZPTR(psz$COUNT$);
|
||
|
|
$ENDIF
|
||
|
|
$ELSEIFE:paramdir*:IN OUT
|
||
|
|
$IFE:params*:LPSTR
|
||
|
|
FREEPSZPTR(psz$COUNT$);
|
||
|
|
$ENDIF
|
||
|
|
$ELSEIFE:paramdir*:DESTROY IN
|
||
|
|
$IFE:params*:LPSTR
|
||
|
|
FREEPSZPTR(psz$COUNT$);
|
||
|
|
$ENDIF
|
||
|
|
$ENDIF
|
||
|
|
$ENDLOOP
|
||
|
|
FREEARGPTR(parg16);
|
||
|
|
$ENDIF
|
||
|
|
$IFN:type:void$ return ul;
|
||
|
|
$ELSE$ return 0;
|
||
|
|
$ENDIF
|
||
|
|
}
|