From b51703ab8d76bd12158f4c6f5850337fd7c53b5c Mon Sep 17 00:00:00 2001 From: root Date: Thu, 14 Dec 2006 17:40:03 +0000 Subject: *** empty log message *** --- src/typemap.iom | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 src/typemap.iom (limited to 'src') diff --git a/src/typemap.iom b/src/typemap.iom new file mode 100644 index 0000000..ddb0b98 --- /dev/null +++ b/src/typemap.iom @@ -0,0 +1,36 @@ +perl_watcher * T_IOM_WATCHER +timer * T_IOM_TIMER +iow * T_IOM_IOW +pw * T_IOM_PW +iw * T_IOM_IW + +IOM_CHAINED T_IOM_CHAINED + + +INPUT + +T_IOM_WATCHER + $var = SvWATCHER ($arg); +T_IOM_TIMER + $var = SvTIMER ($arg); +T_IOM_IOW + $var = SvIOW ($arg); +T_IOM_PW + $var = SvPW ($arg); +T_IOM_IW + $var = SvIW ($arg); + + +OUTPUT + +T_IOM_TIMER + $arg = newSVtimer ($var); +T_IOM_IOW + $arg = newSViow ($var); +T_IOM_PW + $arg = newSVpw ($var); +T_IOM_IW + $arg = newSViw ($var); +T_IOM_CHAINED + $arg = newSVsv (ST(0)); + -- cgit v1.2.3