home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2004 July / APC0407D2.iso / workshop / apache / files / ActivePerl-5.6.1.638-MSWin32-x86.msi / _df880c0facac57164f066cdcb62411f7 < prev    next >
Encoding:
Text File  |  2004-04-13  |  1.6 KB  |  95 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.  
  25. INPUT 
  26. T_PVOBJ
  27.     if (sv_object($arg)) {
  28.         STRLEN sz;
  29.         $var = ($type) SvPV((SV*)SvRV($arg),sz);
  30.         if (sz != sizeof(*$var))
  31.          croak(\"$var too small for $type\");
  32.     }
  33.     else
  34.         croak(\"$var is not an object\")
  35.  
  36. T_TK_WINDOW
  37.     $var = SVtoWindow($arg)
  38.  
  39. T_TK_CALLBACK
  40.     $var = LangMakeCallback($arg)
  41.  
  42.  
  43. T_TK_HWND
  44.     $var = SVtoHWND($arg)
  45.  
  46. T_TK_XEVENT
  47.     $var = SVtoEventAndKeySym($arg)
  48.  
  49. T_TK_FONT
  50.     $var = SVtoFont($arg)
  51.  
  52. T_TK_IMAGE
  53.     $var = SVtoImage($arg)
  54.  
  55. T_TKWINDOW
  56.     $var = (TkWindow *) SVtoWindow($arg)
  57.  
  58. T_TK_INTERP
  59.     $var = WindowCommand($arg,NULL,1)->interp
  60.  
  61. T_TK_UID
  62.     $var = Tk_GetUid(SvPV($arg,na))
  63.  
  64. T_IVOBJ
  65.     if (sv_isa($arg, \"${ntype}\")) {
  66.         $var = ($type)(SvIV(SvRV($arg)));
  67.     }
  68.     else {
  69.         $var = ($type) NULL;
  70.         croak(\"$var is not of type ${ntype}\");
  71.     }    
  72.  
  73. T_NIO
  74.     if (sv_isa($arg, \"${Package}\")) {
  75.         $var = IoIFP(sv_2io(SvRV($arg)));
  76.     }
  77.     else
  78.         croak(\"$var is not of type ${Package}\")
  79.  
  80.  
  81. OUTPUT
  82. T_IVOBJ
  83.     sv_setref_iv($arg, \"${ntype}\", (IV) $var);
  84.  
  85. T_TK_UID
  86.     sv_setpv($arg,$var);
  87.  
  88. T_TK_WINDOW
  89.     sv_setsv($arg,TkToWidget($var,NULL));
  90.  
  91. T_TKWINDOW
  92.     sv_setsv($arg,TkToWidget((Tk_Window) $var,NULL));
  93.  
  94.  
  95.