home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _df880c0facac57164f066cdcb62411f7 < prev    next >
Encoding:
Text File  |  2004-06-01  |  1.7 KB  |  97 lines
  1. TYPEMAP
  2. Tk_Window        T_TK_WINDOW
  3. Tk_Image        T_TK_IMAGE
  4. TkWindow *        T_TKWINDOW
  5. Display *        T_IVOBJ
  6. Screen *        T_IVOBJ
  7. Visual *        T_IVOBJ
  8. Window            T_IVOBJ
  9. Colormap        T_IVOBJ
  10. GC            T_IVOBJ
  11. Font            T_IVOBJ
  12. Atom            T_IV
  13. HANDLE            T_IV
  14. BOOL            T_IV
  15. HWND            T_TK_HWND
  16. FILE *            T_NIO
  17. hash_ptr *        T_PTR
  18. Tk_3DBorder        T_IVOBJ
  19. Tk_Uid            T_TK_UID
  20. Tcl_Interp *        T_TK_INTERP
  21. Tk_Font            T_TK_FONT
  22. EventAndKeySym *    T_TK_XEVENT
  23. LangCallback *        T_TK_CALLBACK
  24. LangFontInfo *        T_PVOBJ
  25. const char *        T_PV
  26.  
  27. INPUT
  28. T_PVOBJ
  29.     if (sv_isobject($arg)) {
  30.         STRLEN sz;
  31.         $var = ($type) SvPV((SV*)SvRV($arg),sz);
  32.         if (sz != sizeof(*$var))
  33.          croak(\"$arg too small (%d) for $var $type (%d)\",sz,sizeof(*$var));
  34.     }
  35.     else
  36.         croak(\"$var is not an object\")
  37.  
  38. T_TK_WINDOW
  39.     $var = SVtoWindow($arg)
  40.  
  41. T_TK_CALLBACK
  42.     $var = LangMakeCallback($arg)
  43.  
  44.  
  45. T_TK_HWND
  46.     $var = SVtoHWND($arg)
  47.  
  48. T_TK_XEVENT
  49.     $var = SVtoEventAndKeySym($arg)
  50.  
  51. T_TK_FONT
  52.     $var = SVtoFont($arg)
  53.  
  54. T_TK_IMAGE
  55.     $var = SVtoImage($arg)
  56.  
  57. T_TKWINDOW
  58.     $var = (TkWindow *) SVtoWindow($arg)
  59.  
  60. T_TK_INTERP
  61.     $var = WindowCommand($arg,NULL,1)->interp
  62.  
  63. T_TK_UID
  64.     $var = Tk_GetUid(SvPV($arg,na))
  65.  
  66. T_IVOBJ
  67.     if (sv_isa($arg, \"${ntype}\")) {
  68.         $var = INT2PTR($type, SvIV(SvRV($arg)));
  69.     }
  70.     else {
  71.         $var = ($type) NULL;
  72.         croak(\"$var is not of type ${ntype}\");
  73.     }
  74.  
  75. T_NIO
  76.     if (sv_isa($arg, \"${Package}\")) {
  77.         $var = IoIFP(sv_2io(SvRV($arg)));
  78.     }
  79.     else
  80.         croak(\"$var is not of type ${Package}\")
  81.  
  82.  
  83. OUTPUT
  84. T_IVOBJ
  85.     sv_setref_iv($arg, \"${ntype}\", PTR2IV($var));
  86.  
  87. T_TK_UID
  88.     sv_setpv($arg,$var);
  89.  
  90. T_TK_WINDOW
  91.     SvSetMagicSV($arg,TkToWidget($var,NULL));
  92.  
  93. T_TKWINDOW
  94.     SvSetMagicSV($arg,TkToWidget((Tk_Window) $var,NULL));
  95.  
  96.  
  97.