diff options
author | root <root> | 2006-12-14 17:40:03 +0000 |
---|---|---|
committer | root <root> | 2006-12-14 17:40:03 +0000 |
commit | b51703ab8d76bd12158f4c6f5850337fd7c53b5c (patch) | |
tree | 4780639aa7b7cd5d05203559ab825ebb2c67eec9 | |
parent | da3e513130c256e8809949a912e2f4828c6dfac4 (diff) |
*** empty log message ***
-rw-r--r-- | src/typemap.iom | 36 |
1 files changed, 36 insertions, 0 deletions
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)); + |