Category

Development Platform
Home > SourceCode/Document > Database system > MySQL > View Code
typemap
Package: mysql-3.23.35.tar.gz　[view]
Upload User: tsgydb
Upload Date: 2007-04-14
Package Size: 10674k
Code Size: 1k
Category:

MySQL

Development Platform:

Visual C++

typemap：Code Content
  1. # typemap for Perl 5 interface to Berkeley 
  2. #
  3. # written by Paul Marquess <Paul.Marquess@btinternet.com>
  4. # last modified 10th December 2000
  5. # version 1.74
  6. #
  7. #################################### DB SECTION
  8. #
  9. # 
  11. u_int T_U_INT
  12. DB_File T_PTROBJ
  13. DBT T_dbtdatum
  14. DBTKEY T_dbtkeydatum
  16. INPUT
  17. T_dbtkeydatum
  18. ckFilter($arg, filter_store_key, "filter_store_key");
  19. DBT_clear($var) ;
  20. if (db->type != DB_RECNO) {
  21.     $var.data = SvPV($arg, PL_na);
  22.     $var.size = (int)PL_na;
  23. }
  24. else {
  25.     Value =  GetRecnoKey(aTHX_ db, SvIV($arg)) ; 
  26.     $var.data = & Value; 
  27.     $var.size = (int)sizeof(recno_t);
  28. }
  29. T_dbtdatum
  30. ckFilter($arg, filter_store_value, "filter_store_value");
  31. DBT_clear($var) ;
  32. if (SvOK($arg)) {
  33.     $var.data = SvPV($arg, PL_na);
  34.     $var.size = (int)PL_na;
  35. }
  37. OUTPUT
  39. T_dbtkeydatum
  40. OutputKey($arg, $var)
  41. T_dbtdatum
  42. OutputValue($arg, $var)
  43. T_PTROBJ
  44.         sv_setref_pv($arg, dbtype, (void*)$var);