PageRenderTime 55ms CodeModel.GetById 19ms RepoModel.GetById 0ms app.codeStats 0ms

/trunk/Lib/mzscheme/std_pair.i

#
Swig | 870 lines | 826 code | 23 blank | 21 comment | 0 complexity | 836235f4704120082071d11022119ad1 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0 
    

  1. /* -----------------------------------------------------------------------------
    2. 

  2.  * std_pair.i
    3. 

  3.  *
    4. 

  4.  * SWIG typemaps for std::pair
    5. 

  5.  * ----------------------------------------------------------------------------- */
    6. 

  6. 

  7. %include <std_common.i>
    8. 

  8. %include <exception.i>
    9. 

  9. 

  10. 

  11. // ------------------------------------------------------------------------
    12. 

  12. // std::pair
    13. 

  13. //
    14. 

  14. // See std_vector.i for the rationale of typemap application
    15. 

  15. // ------------------------------------------------------------------------
    16. 

  16. 

  17. %{
    18. 

  18. #include <utility>
    19. 

  19. %}
    20. 

  20. 

  21. // exported class
    22. 

  22. 

  23. namespace std {
    24. 

  24. 

  25.     template<class T, class U> struct pair {
    26. 

  26.         %typemap(in) pair<T,U> (std::pair<T,U>* m) {
    27. 

  27.             if (SCHEME_PAIRP($input)) {
    28. 

  28.                 T* x;
    29. 

  29.                 U* y;
    30. 

  30.                 Scheme_Object *first, *second;
    31. 

  31.                 first = scheme_car($input);
    32. 

  32.                 second = scheme_cdr($input);
    33. 

  33.                 x = (T*) SWIG_MustGetPtr(first,$descriptor(T *),$argnum, 0);
    34. 

  34.                 y = (U*) SWIG_MustGetPtr(second,$descriptor(U *),$argnum, 0);
    35. 

  35.                 $1 = std::make_pair(*x,*y);
    36. 

  36.             } else {
    37. 

  37.                 $1 = *(($&1_type)
    38. 

  38.                        SWIG_MustGetPtr($input,$&1_descriptor,$argnum, 0));
    39. 

  39.             }
    40. 

  40.         }
    41. 

  41.         %typemap(in) const pair<T,U>& (std::pair<T,U> temp,
    42. 

  42.                                        std::pair<T,U>* m),
    43. 

  43.                      const pair<T,U>* (std::pair<T,U> temp,
    44. 

  44.                                        std::pair<T,U>* m) {
    45. 

  45.             if (SCHEME_PAIRP($input)) {
    46. 

  46.                 T* x;
    47. 

  47.                 U* y;
    48. 

  48.                 Scheme_Object *first, *second;
    49. 

  49.                 first = scheme_car($input);
    50. 

  50.                 second = scheme_cdr($input);
    51. 

  51.                 x = (T*) SWIG_MustGetPtr(first,$descriptor(T *),$argnum, 0);
    52. 

  52.                 y = (U*) SWIG_MustGetPtr(second,$descriptor(U *),$argnum, 0);
    53. 

  53.                 temp = std::make_pair(*x,*y);
    54. 

  54.                 $1 = &temp;
    55. 

  55.             } else {
    56. 

  56.                 $1 = ($1_ltype)
    57. 

  57.                     SWIG_MustGetPtr($input,$1_descriptor,$argnum, 0);
    58. 

  58.             }
    59. 

  59.         }
    60. 

  60.         %typemap(out) pair<T,U> {
    61. 

  61.             T* x = new T($1.first);
    62. 

  62.             U* y = new U($1.second);
    63. 

  63.             Scheme_Object* first = SWIG_NewPointerObj(x,$descriptor(T *), 1);
    64. 

  64.             Scheme_Object* second = SWIG_NewPointerObj(y,$descriptor(U *), 1);
    65. 

  65.             $result = scheme_make_pair(first,second);
    66. 

  66.         }
    67. 

  67.         %typecheck(SWIG_TYPECHECK_PAIR) pair<T,U> {
    68. 

  68.             /* native pair? */
    69. 

  69.             if (SCHEME_PAIRP($input)) {
    70. 

  70.                 T* x;
    71. 

  71.                 U* y;
    72. 

  72.                 Scheme_Object* first = scheme_car($input);
    73. 

  73.                 Scheme_Object* second = scheme_cdr($input);
    74. 

  74.                 if (SWIG_ConvertPtr(first,(void**) &x,
    75. 

  75.                                     $descriptor(T *), 0) != -1 &&
    76. 

  76.                     SWIG_ConvertPtr(second,(void**) &y,
    77. 

  77.                                     $descriptor(U *), 0) != -1) {
    78. 

  78.                         $1 = 1;
    79. 

  79.                 } else {
    80. 

  80.                     $1 = 0;
    81. 

  81.                 }
    82. 

  82.             } else {
    83. 

  83.                 /* wrapped pair? */
    84. 

  84.                 std::pair<T,U >* p;
    85. 

  85.                 if (SWIG_ConvertPtr($input,(void **) &p,
    86. 

  86.                                     $&1_descriptor, 0) != -1)
    87. 

  87.                     $1 = 1;
    88. 

  88.                 else
    89. 

  89.                     $1 = 0;
    90. 

  90.             }
    91. 

  91.         }
    92. 

  92.         %typecheck(SWIG_TYPECHECK_PAIR) const pair<T,U>&,
    93. 

  93.                                         const pair<T,U>* {
    94. 

  94.             /* native pair? */
    95. 

  95.             if (SCHEME_PAIRP($input)) {
    96. 

  96.                 T* x;
    97. 

  97.                 U* y;
    98. 

  98.                 Scheme_Object* first = scheme_car($input);
    99. 

  99.                 Scheme_Object* second = scheme_cdr($input);
    100. 

  100.                 if (SWIG_ConvertPtr(first,(void**) &x,
    101. 

  101.                                     $descriptor(T *), 0) != -1 &&
    102. 

  102.                     SWIG_ConvertPtr(second,(void**) &y,
    103. 

  103.                                     $descriptor(U *), 0) != -1) {
    104. 

  104.                         $1 = 1;
    105. 

  105.                 } else {
    106. 

  106.                     $1 = 0;
    107. 

  107.                 }
    108. 

  108.             } else {
    109. 

  109.                 /* wrapped pair? */
    110. 

  110.                 std::pair<T,U >* p;
    111. 

  111.                 if (SWIG_ConvertPtr($input,(void **) &p,
    112. 

  112.                                     $1_descriptor, 0) != -1)
    113. 

  113.                     $1 = 1;
    114. 

  114.                 else
    115. 

  115.                     $1 = 0;
    116. 

  116.             }
    117. 

  117.         }
    118. 

  118.         pair();
    119. 

  119.         pair(T first, U second);
    120. 

  120.         pair(const pair& p);
    121. 

  121. 

  122.         template <class U1, class U2> pair(const pair<U1, U2> &p);
    123. 

  123. 

  124.         T first;
    125. 

  125.         U second;
    126. 

  126.     };
    127. 

  127. 

  128.     // specializations for built-ins
    129. 

  129. 

  130.     %define specialize_std_pair_on_first(T,CHECK,CONVERT_FROM,CONVERT_TO)
    131. 

  131.     template<class U> struct pair<T,U> {
    132. 

  132.         %typemap(in) pair<T,U> (std::pair<T,U>* m) {
    133. 

  133.             if (SCHEME_PAIRP($input)) {
    134. 

  134.                 U* y;
    135. 

  135.                 Scheme_Object *first, *second;
    136. 

  136.                 first = scheme_car($input);
    137. 

  137.                 second = scheme_cdr($input);
    138. 

  138.                 if (!CHECK(first))
    139. 

  139.                     SWIG_exception(SWIG_TypeError,
    140. 

  140.                                    "pair<" #T "," #U "> expected");
    141. 

  141.                 y = (U*) SWIG_MustGetPtr(second,$descriptor(U *),$argnum, 0);
    142. 

  142.                 $1 = std::make_pair(CONVERT_FROM(first),*y);
    143. 

  143.             } else {
    144. 

  144.                 $1 = *(($&1_type)
    145. 

  145.                        SWIG_MustGetPtr($input,$&1_descriptor,$argnum, 0));
    146. 

  146.             }
    147. 

  147.         }
    148. 

  148.         %typemap(in) const pair<T,U>& (std::pair<T,U> temp,
    149. 

  149.                                        std::pair<T,U>* m),
    150. 

  150.                      const pair<T,U>* (std::pair<T,U> temp,
    151. 

  151.                                        std::pair<T,U>* m) {
    152. 

  152.             if (SCHEME_PAIRP($input)) {
    153. 

  153.                 U* y;
    154. 

  154.                 Scheme_Object *first, *second;
    155. 

  155.                 first = scheme_car($input);
    156. 

  156.                 second = scheme_cdr($input);
    157. 

  157.                 if (!CHECK(first))
    158. 

  158.                     SWIG_exception(SWIG_TypeError,
    159. 

  159.                                    "pair<" #T "," #U "> expected");
    160. 

  160.                 y = (U*) SWIG_MustGetPtr(second,$descriptor(U *),$argnum, 0);
    161. 

  161.                 temp = std::make_pair(CONVERT_FROM(first),*y);
    162. 

  162.                 $1 = &temp;
    163. 

  163.             } else {
    164. 

  164.                 $1 = ($1_ltype)
    165. 

  165.                     SWIG_MustGetPtr($input,$1_descriptor,$argnum, 0);
    166. 

  166.             }
    167. 

  167.         }
    168. 

  168.         %typemap(out) pair<T,U> {
    169. 

  169.             U* y = new U($1.second);
    170. 

  170.             Scheme_Object* second = SWIG_NewPointerObj(y,$descriptor(U *), 1);
    171. 

  171.             $result = scheme_make_pair(CONVERT_TO($1.first),second);
    172. 

  172.         }
    173. 

  173.         %typecheck(SWIG_TYPECHECK_PAIR) pair<T,U> {
    174. 

  174.             /* native pair? */
    175. 

  175.             if (SCHEME_PAIRP($input)) {
    176. 

  176.                 U* y;
    177. 

  177.                 Scheme_Object* first = scheme_car($input);
    178. 

  178.                 Scheme_Object* second = scheme_cdr($input);
    179. 

  179.                 if (CHECK(first) &&
    180. 

  180.                     SWIG_ConvertPtr(second,(void**) &y,
    181. 

  181.                                     $descriptor(U *), 0) != -1) {
    182. 

  182.                         $1 = 1;
    183. 

  183.                 } else {
    184. 

  184.                     $1 = 0;
    185. 

  185.                 }
    186. 

  186.             } else {
    187. 

  187.                 /* wrapped pair? */
    188. 

  188.                 std::pair<T,U >* p;
    189. 

  189.                 if (SWIG_ConvertPtr($input,(void **) &p,
    190. 

  190.                                     $&1_descriptor, 0) != -1)
    191. 

  191.                     $1 = 1;
    192. 

  192.                 else
    193. 

  193.                     $1 = 0;
    194. 

  194.             }
    195. 

  195.         }
    196. 

  196.         %typecheck(SWIG_TYPECHECK_PAIR) const pair<T,U>&,
    197. 

  197.                                         const pair<T,U>* {
    198. 

  198.             /* native pair? */
    199. 

  199.             if (SCHEME_PAIRP($input)) {
    200. 

  200.                 U* y;
    201. 

  201.                 Scheme_Object* first = scheme_car($input);
    202. 

  202.                 Scheme_Object* second = scheme_cdr($input);
    203. 

  203.                 if (CHECK(first) &&
    204. 

  204.                     SWIG_ConvertPtr(second,(void**) &y,
    205. 

  205.                                     $descriptor(U *), 0) != -1) {
    206. 

  206.                         $1 = 1;
    207. 

  207.                 } else {
    208. 

  208.                     $1 = 0;
    209. 

  209.                 }
    210. 

  210.             } else {
    211. 

  211.                 /* wrapped pair? */
    212. 

  212.                 std::pair<T,U >* p;
    213. 

  213.                 if (SWIG_ConvertPtr($input,(void **) &p,
    214. 

  214.                                     $1_descriptor, 0) != -1)
    215. 

  215.                     $1 = 1;
    216. 

  216.                 else
    217. 

  217.                     $1 = 0;
    218. 

  218.             }
    219. 

  219.         }
    220. 

  220.         pair();
    221. 

  221.         pair(T first, U second);
    222. 

  222.         pair(const pair& p);
    223. 

  223. 

  224.         template <class U1, class U2> pair(const pair<U1, U2> &p);
    225. 

  225. 

  226.         T first;
    227. 

  227.         U second;
    228. 

  228.     };
    229. 

  229.     %enddef
    230. 

  230. 

  231.     %define specialize_std_pair_on_second(U,CHECK,CONVERT_FROM,CONVERT_TO)
    232. 

  232.     template<class T> struct pair<T,U> {
    233. 

  233.         %typemap(in) pair<T,U> (std::pair<T,U>* m) {
    234. 

  234.             if (SCHEME_PAIRP($input)) {
    235. 

  235.                 T* x;
    236. 

  236.                 Scheme_Object *first, *second;
    237. 

  237.                 first = scheme_car($input);
    238. 

  238.                 second = scheme_cdr($input);
    239. 

  239.                 x = (T*) SWIG_MustGetPtr(first,$descriptor(T *),$argnum, 0);
    240. 

  240.                 if (!CHECK(second))
    241. 

  241.                     SWIG_exception(SWIG_TypeError,
    242. 

  242.                                    "pair<" #T "," #U "> expected");
    243. 

  243.                 $1 = std::make_pair(*x,CONVERT_FROM(second));
    244. 

  244.             } else {
    245. 

  245.                 $1 = *(($&1_type)
    246. 

  246.                        SWIG_MustGetPtr($input,$&1_descriptor,$argnum, 0));
    247. 

  247.             }
    248. 

  248.         }
    249. 

  249.         %typemap(in) const pair<T,U>& (std::pair<T,U> temp,
    250. 

  250.                                        std::pair<T,U>* m),
    251. 

  251.                      const pair<T,U>* (std::pair<T,U> temp,
    252. 

  252.                                        std::pair<T,U>* m) {
    253. 

  253.             if (SCHEME_PAIRP($input)) {
    254. 

  254.                 T* x;
    255. 

  255.                 Scheme_Object *first, *second;
    256. 

  256.                 first = scheme_car($input);
    257. 

  257.                 second = scheme_cdr($input);
    258. 

  258.                 x = (T*) SWIG_MustGetPtr(first,$descriptor(T *),$argnum, 0);
    259. 

  259.                 if (!CHECK(second))
    260. 

  260.                     SWIG_exception(SWIG_TypeError,
    261. 

  261.                                    "pair<" #T "," #U "> expected");
    262. 

  262.                 temp = std::make_pair(*x,CONVERT_FROM(second));
    263. 

  263.                 $1 = &temp;
    264. 

  264.             } else {
    265. 

  265.                 $1 = ($1_ltype)
    266. 

  266.                     SWIG_MustGetPtr($input,$1_descriptor,$argnum, 0);
    267. 

  267.             }
    268. 

  268.         }
    269. 

  269.         %typemap(out) pair<T,U> {
    270. 

  270.             T* x = new T($1.first);
    271. 

  271.             Scheme_Object* first = SWIG_NewPointerObj(x,$descriptor(T *), 1);
    272. 

  272.             $result = scheme_make_pair(first,CONVERT_TO($1.second));
    273. 

  273.         }
    274. 

  274.         %typecheck(SWIG_TYPECHECK_PAIR) pair<T,U> {
    275. 

  275.             /* native pair? */
    276. 

  276.             if (SCHEME_PAIRP($input)) {
    277. 

  277.                 T* x;
    278. 

  278.                 Scheme_Object* first = scheme_car($input);
    279. 

  279.                 Scheme_Object* second = scheme_cdr($input);
    280. 

  280.                 if (SWIG_ConvertPtr(first,(void**) &x,
    281. 

  281.                                     $descriptor(T *), 0) != -1 &&
    282. 

  282.                     CHECK(second)) {
    283. 

  283.                         $1 = 1;
    284. 

  284.                 } else {
    285. 

  285.                     $1 = 0;
    286. 

  286.                 }
    287. 

  287.             } else {
    288. 

  288.                 /* wrapped pair? */
    289. 

  289.                 std::pair<T,U >* p;
    290. 

  290.                 if (SWIG_ConvertPtr($input,(void **) &p,
    291. 

  291.                                     $&1_descriptor, 0) != -1)
    292. 

  292.                     $1 = 1;
    293. 

  293.                 else
    294. 

  294.                     $1 = 0;
    295. 

  295.             }
    296. 

  296.         }
    297. 

  297.         %typecheck(SWIG_TYPECHECK_PAIR) const pair<T,U>&,
    298. 

  298.                                         const pair<T,U>* {
    299. 

  299.             /* native pair? */
    300. 

  300.             if (SCHEME_PAIRP($input)) {
    301. 

  301.                 T* x;
    302. 

  302.                 Scheme_Object* first = scheme_car($input);
    303. 

  303.                 Scheme_Object* second = scheme_cdr($input);
    304. 

  304.                 if (SWIG_ConvertPtr(first,(void**) &x,
    305. 

  305.                                     $descriptor(T *), 0) != -1 &&
    306. 

  306.                     CHECK(second)) {
    307. 

  307.                         $1 = 1;
    308. 

  308.                 } else {
    309. 

  309.                     $1 = 0;
    310. 

  310.                 }
    311. 

  311.             } else {
    312. 

  312.                 /* wrapped pair? */
    313. 

  313.                 std::pair<T,U >* p;
    314. 

  314.                 if (SWIG_ConvertPtr($input,(void **) &p,
    315. 

  315.                                     $1_descriptor, 0) != -1)
    316. 

  316.                     $1 = 1;
    317. 

  317.                 else
    318. 

  318.                     $1 = 0;
    319. 

  319.             }
    320. 

  320.         }
    321. 

  321.         pair();
    322. 

  322.         pair(T first, U second);
    323. 

  323.         pair(const pair& p);
    324. 

  324. 

  325.         template <class U1, class U2> pair(const pair<U1, U2> &p);
    326. 

  326. 

  327.         T first;
    328. 

  328.         U second;
    329. 

  329.     };
    330. 

  330.     %enddef
    331. 

  331. 

  332.     %define specialize_std_pair_on_both(T,CHECK_T,CONVERT_T_FROM,CONVERT_T_TO,
    333. 

  333.                                         U,CHECK_U,CONVERT_U_FROM,CONVERT_U_TO)
    334. 

  334.     template<> struct pair<T,U> {
    335. 

  335.         %typemap(in) pair<T,U> (std::pair<T,U>* m) {
    336. 

  336.             if (SCHEME_PAIRP($input)) {
    337. 

  337.                 Scheme_Object *first, *second;
    338. 

  338.                 first = scheme_car($input);
    339. 

  339.                 second = scheme_cdr($input);
    340. 

  340.                 if (!CHECK_T(first) || !CHECK_U(second))
    341. 

  341.                     SWIG_exception(SWIG_TypeError,
    342. 

  342.                                    "pair<" #T "," #U "> expected");
    343. 

  343.                 $1 = make_pair(CONVERT_T_FROM(first),
    344. 

  344.                                CONVERT_U_FROM(second));
    345. 

  345.             } else {
    346. 

  346.                 $1 = *(($&1_type)
    347. 

  347.                        SWIG_MustGetPtr($input,$&1_descriptor,$argnum, 0));
    348. 

  348.             }
    349. 

  349.         }
    350. 

  350.         %typemap(in) const pair<T,U>& (std::pair<T,U> temp,
    351. 

  351.                                        std::pair<T,U>* m),
    352. 

  352.                      const pair<T,U>* (std::pair<T,U> temp,
    353. 

  353.                                        std::pair<T,U>* m) {
    354. 

  354.             if (SCHEME_PAIRP($input)) {
    355. 

  355.                 Scheme_Object *first, *second;
    356. 

  356.             T *x;
    357. 

  357.                 first = scheme_car($input);
    358. 

  358.                 second = scheme_cdr($input);
    359. 

  359.                 x = (T*) SWIG_MustGetPtr(first,$descriptor(T *),$argnum, 0);
    360. 

  360.                 if (!CHECK_T(first) || !CHECK_U(second))
    361. 

  361.                     SWIG_exception(SWIG_TypeError,
    362. 

  362.                                    "pair<" #T "," #U "> expected");
    363. 

  363.                 temp = make_pair(CONVERT_T_FROM(first),
    364. 

  364.                                CONVERT_U_FROM(second));
    365. 

  365.                 $1 = &temp;
    366. 

  366.             } else {
    367. 

  367.                 $1 = ($1_ltype)
    368. 

  368.                     SWIG_MustGetPtr($input,$1_descriptor,$argnum, 0);
    369. 

  369.             }
    370. 

  370.         }
    371. 

  371.         %typemap(out) pair<T,U> {
    372. 

  372.             $result = scheme_make_pair(CONVERT_T_TO($1.first),
    373. 

  373.                                        CONVERT_U_TO($1.second));
    374. 

  374.         }
    375. 

  375.         %typecheck(SWIG_TYPECHECK_PAIR) pair<T,U> {
    376. 

  376.             /* native pair? */
    377. 

  377.             if (SCHEME_PAIRP($input)) {
    378. 

  378.                 Scheme_Object* first = scheme_car($input);
    379. 

  379.                 Scheme_Object* second = scheme_cdr($input);
    380. 

  380.                 if (CHECK_T(first) && CHECK_U(second)) {
    381. 

  381.                         $1 = 1;
    382. 

  382.                 } else {
    383. 

  383.                     $1 = 0;
    384. 

  384.                 }
    385. 

  385.             } else {
    386. 

  386.                 /* wrapped pair? */
    387. 

  387.                 std::pair<T,U >* p;
    388. 

  388.                 if (SWIG_ConvertPtr($input,(void **) &p,
    389. 

  389.                                     $&1_descriptor, 0) != -1)
    390. 

  390.                     $1 = 1;
    391. 

  391.                 else
    392. 

  392.                     $1 = 0;
    393. 

  393.             }
    394. 

  394.         }
    395. 

  395.         %typecheck(SWIG_TYPECHECK_PAIR) const pair<T,U>&,
    396. 

  396.                                         const pair<T,U>* {
    397. 

  397.             /* native pair? */
    398. 

  398.             if (SCHEME_PAIRP($input)) {
    399. 

  399.                 Scheme_Object* first = scheme_car($input);
    400. 

  400.                 Scheme_Object* second = scheme_cdr($input);
    401. 

  401.                 if (CHECK_T(first) && CHECK_U(second)) {
    402. 

  402.                         $1 = 1;
    403. 

  403.                 } else {
    404. 

  404.                     $1 = 0;
    405. 

  405.                 }
    406. 

  406.             } else {
    407. 

  407.                 /* wrapped pair? */
    408. 

  408.                 std::pair<T,U >* p;
    409. 

  409.                 if (SWIG_ConvertPtr($input,(void **) &p,
    410. 

  410.                                     $1_descriptor, 0) != -1)
    411. 

  411.                     $1 = 1;
    412. 

  412.                 else
    413. 

  413.                     $1 = 0;
    414. 

  414.             }
    415. 

  415.         }
    416. 

  416.         pair();
    417. 

  417.         pair(T first, U second);
    418. 

  418.         pair(const pair& p);
    419. 

  419. 

  420.         template <class U1, class U2> pair(const pair<U1, U2> &p);
    421. 

  421. 

  422.         T first;
    423. 

  423.         U second;
    424. 

  424.     };
    425. 

  425.     %enddef
    426. 

  426. 

  427. 

  428.     specialize_std_pair_on_first(bool,SCHEME_BOOLP,
    429. 

  429.                               SCHEME_TRUEP,swig_make_boolean);
    430. 

  430.     specialize_std_pair_on_first(int,SCHEME_INTP,
    431. 

  431.                               SCHEME_INT_VAL,scheme_make_integer_value);
    432. 

  432.     specialize_std_pair_on_first(short,SCHEME_INTP,
    433. 

  433.                               SCHEME_INT_VAL,scheme_make_integer_value);
    434. 

  434.     specialize_std_pair_on_first(long,SCHEME_INTP,
    435. 

  435.                               SCHEME_INT_VAL,scheme_make_integer_value);
    436. 

  436.     specialize_std_pair_on_first(unsigned int,SCHEME_INTP,
    437. 

  437.                               SCHEME_INT_VAL,scheme_make_integer_value);
    438. 

  438.     specialize_std_pair_on_first(unsigned short,SCHEME_INTP,
    439. 

  439.                               SCHEME_INT_VAL,scheme_make_integer_value);
    440. 

  440.     specialize_std_pair_on_first(unsigned long,SCHEME_INTP,
    441. 

  441.                               SCHEME_INT_VAL,scheme_make_integer_value);
    442. 

  442.     specialize_std_pair_on_first(double,SCHEME_REALP,
    443. 

  443.                               scheme_real_to_double,scheme_make_double);
    444. 

  444.     specialize_std_pair_on_first(float,SCHEME_REALP,
    445. 

  445.                               scheme_real_to_double,scheme_make_double);
    446. 

  446.     specialize_std_pair_on_first(std::string,SCHEME_STRINGP,
    447. 

  447.                               swig_scm_to_string,swig_make_string);
    448. 

  448. 

  449.     specialize_std_pair_on_second(bool,SCHEME_BOOLP,
    450. 

  450.                                 SCHEME_TRUEP,swig_make_boolean);
    451. 

  451.     specialize_std_pair_on_second(int,SCHEME_INTP,
    452. 

  452.                                 SCHEME_INT_VAL,scheme_make_integer_value);
    453. 

  453.     specialize_std_pair_on_second(short,SCHEME_INTP,
    454. 

  454.                                 SCHEME_INT_VAL,scheme_make_integer_value);
    455. 

  455.     specialize_std_pair_on_second(long,SCHEME_INTP,
    456. 

  456.                                 SCHEME_INT_VAL,scheme_make_integer_value);
    457. 

  457.     specialize_std_pair_on_second(unsigned int,SCHEME_INTP,
    458. 

  458.                                 SCHEME_INT_VAL,scheme_make_integer_value);
    459. 

  459.     specialize_std_pair_on_second(unsigned short,SCHEME_INTP,
    460. 

  460.                                 SCHEME_INT_VAL,scheme_make_integer_value);
    461. 

  461.     specialize_std_pair_on_second(unsigned long,SCHEME_INTP,
    462. 

  462.                                 SCHEME_INT_VAL,scheme_make_integer_value);
    463. 

  463.     specialize_std_pair_on_second(double,SCHEME_REALP,
    464. 

  464.                                 scheme_real_to_double,scheme_make_double);
    465. 

  465.     specialize_std_pair_on_second(float,SCHEME_REALP,
    466. 

  466.                                 scheme_real_to_double,scheme_make_double);
    467. 

  467.     specialize_std_pair_on_second(std::string,SCHEME_STRINGP,
    468. 

  468.                                 swig_scm_to_string,swig_make_string);
    469. 

  469. 

  470.     specialize_std_pair_on_both(bool,SCHEME_BOOLP,
    471. 

  471.                                SCHEME_TRUEP,swig_make_boolean,
    472. 

  472.                                bool,SCHEME_BOOLP,
    473. 

  473.                                SCHEME_TRUEP,swig_make_boolean);
    474. 

  474.     specialize_std_pair_on_both(bool,SCHEME_BOOLP,
    475. 

  475.                                SCHEME_TRUEP,swig_make_boolean,
    476. 

  476.                                int,SCHEME_INTP,
    477. 

  477.                                SCHEME_INT_VAL,scheme_make_integer_value);
    478. 

  478.     specialize_std_pair_on_both(bool,SCHEME_BOOLP,
    479. 

  479.                                SCHEME_TRUEP,swig_make_boolean,
    480. 

  480.                                short,SCHEME_INTP,
    481. 

  481.                                SCHEME_INT_VAL,scheme_make_integer_value);
    482. 

  482.     specialize_std_pair_on_both(bool,SCHEME_BOOLP,
    483. 

  483.                                SCHEME_TRUEP,swig_make_boolean,
    484. 

  484.                                long,SCHEME_INTP,
    485. 

  485.                                SCHEME_INT_VAL,scheme_make_integer_value);
    486. 

  486.     specialize_std_pair_on_both(bool,SCHEME_BOOLP,
    487. 

  487.                                SCHEME_TRUEP,swig_make_boolean,
    488. 

  488.                                unsigned int,SCHEME_INTP,
    489. 

  489.                                SCHEME_INT_VAL,scheme_make_integer_value);
    490. 

  490.     specialize_std_pair_on_both(bool,SCHEME_BOOLP,
    491. 

  491.                                SCHEME_TRUEP,swig_make_boolean,
    492. 

  492.                                unsigned short,SCHEME_INTP,
    493. 

  493.                                SCHEME_INT_VAL,scheme_make_integer_value);
    494. 

  494.     specialize_std_pair_on_both(bool,SCHEME_BOOLP,
    495. 

  495.                                SCHEME_TRUEP,swig_make_boolean,
    496. 

  496.                                unsigned long,SCHEME_INTP,
    497. 

  497.                                SCHEME_INT_VAL,scheme_make_integer_value);
    498. 

  498.     specialize_std_pair_on_both(bool,SCHEME_BOOLP,
    499. 

  499.                                SCHEME_TRUEP,swig_make_boolean,
    500. 

  500.                                double,SCHEME_REALP,
    501. 

  501.                                scheme_real_to_double,scheme_make_double);
    502. 

  502.     specialize_std_pair_on_both(bool,SCHEME_BOOLP,
    503. 

  503.                                SCHEME_TRUEP,swig_make_boolean,
    504. 

  504.                                float,SCHEME_REALP,
    505. 

  505.                                scheme_real_to_double,scheme_make_double);
    506. 

  506.     specialize_std_pair_on_both(bool,SCHEME_BOOLP,
    507. 

  507.                                SCHEME_TRUEP,swig_make_boolean,
    508. 

  508.                                std::string,SCHEME_STRINGP,
    509. 

  509.                                swig_scm_to_string,swig_make_string);
    510. 

  510.     specialize_std_pair_on_both(int,SCHEME_INTP,
    511. 

  511.                                SCHEME_INT_VAL,scheme_make_integer_value,
    512. 

  512.                                bool,SCHEME_BOOLP,
    513. 

  513.                                SCHEME_TRUEP,swig_make_boolean);
    514. 

  514.     specialize_std_pair_on_both(int,SCHEME_INTP,
    515. 

  515.                                SCHEME_INT_VAL,scheme_make_integer_value,
    516. 

  516.                                int,SCHEME_INTP,
    517. 

  517.                                SCHEME_INT_VAL,scheme_make_integer_value);
    518. 

  518.     specialize_std_pair_on_both(int,SCHEME_INTP,
    519. 

  519.                                SCHEME_INT_VAL,scheme_make_integer_value,
    520. 

  520.                                short,SCHEME_INTP,
    521. 

  521.                                SCHEME_INT_VAL,scheme_make_integer_value);
    522. 

  522.     specialize_std_pair_on_both(int,SCHEME_INTP,
    523. 

  523.                                SCHEME_INT_VAL,scheme_make_integer_value,
    524. 

  524.                                long,SCHEME_INTP,
    525. 

  525.                                SCHEME_INT_VAL,scheme_make_integer_value);
    526. 

  526.     specialize_std_pair_on_both(int,SCHEME_INTP,
    527. 

  527.                                SCHEME_INT_VAL,scheme_make_integer_value,
    528. 

  528.                                unsigned int,SCHEME_INTP,
    529. 

  529.                                SCHEME_INT_VAL,scheme_make_integer_value);
    530. 

  530.     specialize_std_pair_on_both(int,SCHEME_INTP,
    531. 

  531.                                SCHEME_INT_VAL,scheme_make_integer_value,
    532. 

  532.                                unsigned short,SCHEME_INTP,
    533. 

  533.                                SCHEME_INT_VAL,scheme_make_integer_value);
    534. 

  534.     specialize_std_pair_on_both(int,SCHEME_INTP,
    535. 

  535.                                SCHEME_INT_VAL,scheme_make_integer_value,
    536. 

  536.                                unsigned long,SCHEME_INTP,
    537. 

  537.                                SCHEME_INT_VAL,scheme_make_integer_value);
    538. 

  538.     specialize_std_pair_on_both(int,SCHEME_INTP,
    539. 

  539.                                SCHEME_INT_VAL,scheme_make_integer_value,
    540. 

  540.                                double,SCHEME_REALP,
    541. 

  541.                                scheme_real_to_double,scheme_make_double);
    542. 

  542.     specialize_std_pair_on_both(int,SCHEME_INTP,
    543. 

  543.                                SCHEME_INT_VAL,scheme_make_integer_value,
    544. 

  544.                                float,SCHEME_REALP,
    545. 

  545.                                scheme_real_to_double,scheme_make_double);
    546. 

  546.     specialize_std_pair_on_both(int,SCHEME_INTP,
    547. 

  547.                                SCHEME_INT_VAL,scheme_make_integer_value,
    548. 

  548.                                std::string,SCHEME_STRINGP,
    549. 

  549.                                swig_scm_to_string,swig_make_string);
    550. 

  550.     specialize_std_pair_on_both(short,SCHEME_INTP,
    551. 

  551.                                SCHEME_INT_VAL,scheme_make_integer_value,
    552. 

  552.                                bool,SCHEME_BOOLP,
    553. 

  553.                                SCHEME_TRUEP,swig_make_boolean);
    554. 

  554.     specialize_std_pair_on_both(short,SCHEME_INTP,
    555. 

  555.                                SCHEME_INT_VAL,scheme_make_integer_value,
    556. 

  556.                                int,SCHEME_INTP,
    557. 

  557.                                SCHEME_INT_VAL,scheme_make_integer_value);
    558. 

  558.     specialize_std_pair_on_both(short,SCHEME_INTP,
    559. 

  559.                                SCHEME_INT_VAL,scheme_make_integer_value,
    560. 

  560.                                short,SCHEME_INTP,
    561. 

  561.                                SCHEME_INT_VAL,scheme_make_integer_value);
    562. 

  562.     specialize_std_pair_on_both(short,SCHEME_INTP,
    563. 

  563.                                SCHEME_INT_VAL,scheme_make_integer_value,
    564. 

  564.                                long,SCHEME_INTP,
    565. 

  565.                                SCHEME_INT_VAL,scheme_make_integer_value);
    566. 

  566.     specialize_std_pair_on_both(short,SCHEME_INTP,
    567. 

  567.                                SCHEME_INT_VAL,scheme_make_integer_value,
    568. 

  568.                                unsigned int,SCHEME_INTP,
    569. 

  569.                                SCHEME_INT_VAL,scheme_make_integer_value);
    570. 

  570.     specialize_std_pair_on_both(short,SCHEME_INTP,
    571. 

  571.                                SCHEME_INT_VAL,scheme_make_integer_value,
    572. 

  572.                                unsigned short,SCHEME_INTP,
    573. 

  573.                                SCHEME_INT_VAL,scheme_make_integer_value);
    574. 

  574.     specialize_std_pair_on_both(short,SCHEME_INTP,
    575. 

  575.                                SCHEME_INT_VAL,scheme_make_integer_value,
    576. 

  576.                                unsigned long,SCHEME_INTP,
    577. 

  577.                                SCHEME_INT_VAL,scheme_make_integer_value);
    578. 

  578.     specialize_std_pair_on_both(short,SCHEME_INTP,
    579. 

  579.                                SCHEME_INT_VAL,scheme_make_integer_value,
    580. 

  580.                                double,SCHEME_REALP,
    581. 

  581.                                scheme_real_to_double,scheme_make_double);
    582. 

  582.     specialize_std_pair_on_both(short,SCHEME_INTP,
    583. 

  583.                                SCHEME_INT_VAL,scheme_make_integer_value,
    584. 

  584.                                float,SCHEME_REALP,
    585. 

  585.                                scheme_real_to_double,scheme_make_double);
    586. 

  586.     specialize_std_pair_on_both(short,SCHEME_INTP,
    587. 

  587.                                SCHEME_INT_VAL,scheme_make_integer_value,
    588. 

  588.                                std::string,SCHEME_STRINGP,
    589. 

  589.                                swig_scm_to_string,swig_make_string);
    590. 

  590.     specialize_std_pair_on_both(long,SCHEME_INTP,
    591. 

  591.                                SCHEME_INT_VAL,scheme_make_integer_value,
    592. 

  592.                                bool,SCHEME_BOOLP,
    593. 

  593.                                SCHEME_TRUEP,swig_make_boolean);
    594. 

  594.     specialize_std_pair_on_both(long,SCHEME_INTP,
    595. 

  595.                                SCHEME_INT_VAL,scheme_make_integer_value,
    596. 

  596.                                int,SCHEME_INTP,
    597. 

  597.                                SCHEME_INT_VAL,scheme_make_integer_value);
    598. 

  598.     specialize_std_pair_on_both(long,SCHEME_INTP,
    599. 

  599.                                SCHEME_INT_VAL,scheme_make_integer_value,
    600. 

  600.                                short,SCHEME_INTP,
    601. 

  601.                                SCHEME_INT_VAL,scheme_make_integer_value);
    602. 

  602.     specialize_std_pair_on_both(long,SCHEME_INTP,
    603. 

  603.                                SCHEME_INT_VAL,scheme_make_integer_value,
    604. 

  604.                                long,SCHEME_INTP,
    605. 

  605.                                SCHEME_INT_VAL,scheme_make_integer_value);
    606. 

  606.     specialize_std_pair_on_both(long,SCHEME_INTP,
    607. 

  607.                                SCHEME_INT_VAL,scheme_make_integer_value,
    608. 

  608.                                unsigned int,SCHEME_INTP,
    609. 

  609.                                SCHEME_INT_VAL,scheme_make_integer_value);
    610. 

  610.     specialize_std_pair_on_both(long,SCHEME_INTP,
    611. 

  611.                                SCHEME_INT_VAL,scheme_make_integer_value,
    612. 

  612.                                unsigned short,SCHEME_INTP,
    613. 

  613.                                SCHEME_INT_VAL,scheme_make_integer_value);
    614. 

  614.     specialize_std_pair_on_both(long,SCHEME_INTP,
    615. 

  615.                                SCHEME_INT_VAL,scheme_make_integer_value,
    616. 

  616.                                unsigned long,SCHEME_INTP,
    617. 

  617.                                SCHEME_INT_VAL,scheme_make_integer_value);
    618. 

  618.     specialize_std_pair_on_both(long,SCHEME_INTP,
    619. 

  619.                                SCHEME_INT_VAL,scheme_make_integer_value,
    620. 

  620.                                double,SCHEME_REALP,
    621. 

  621.                                scheme_real_to_double,scheme_make_double);
    622. 

  622.     specialize_std_pair_on_both(long,SCHEME_INTP,
    623. 

  623.                                SCHEME_INT_VAL,scheme_make_integer_value,
    624. 

  624.                                float,SCHEME_REALP,
    625. 

  625.                                scheme_real_to_double,scheme_make_double);
    626. 

  626.     specialize_std_pair_on_both(long,SCHEME_INTP,
    627. 

  627.                                SCHEME_INT_VAL,scheme_make_integer_value,
    628. 

  628.                                std::string,SCHEME_STRINGP,
    629. 

  629.                                swig_scm_to_string,swig_make_string);
    630. 

  630.     specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
    631. 

  631.                                SCHEME_INT_VAL,scheme_make_integer_value,
    632. 

  632.                                bool,SCHEME_BOOLP,
    633. 

  633.                                SCHEME_TRUEP,swig_make_boolean);
    634. 

  634.     specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
    635. 

  635.                                SCHEME_INT_VAL,scheme_make_integer_value,
    636. 

  636.                                int,SCHEME_INTP,
    637. 

  637.                                SCHEME_INT_VAL,scheme_make_integer_value);
    638. 

  638.     specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
    639. 

  639.                                SCHEME_INT_VAL,scheme_make_integer_value,
    640. 

  640.                                short,SCHEME_INTP,
    641. 

  641.                                SCHEME_INT_VAL,scheme_make_integer_value);
    642. 

  642.     specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
    643. 

  643.                                SCHEME_INT_VAL,scheme_make_integer_value,
    644. 

  644.                                long,SCHEME_INTP,
    645. 

  645.                                SCHEME_INT_VAL,scheme_make_integer_value);
    646. 

  646.     specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
    647. 

  647.                                SCHEME_INT_VAL,scheme_make_integer_value,
    648. 

  648.                                unsigned int,SCHEME_INTP,
    649. 

  649.                                SCHEME_INT_VAL,scheme_make_integer_value);
    650. 

  650.     specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
    651. 

  651.                                SCHEME_INT_VAL,scheme_make_integer_value,
    652. 

  652.                                unsigned short,SCHEME_INTP,
    653. 

  653.                                SCHEME_INT_VAL,scheme_make_integer_value);
    654. 

  654.     specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
    655. 

  655.                                SCHEME_INT_VAL,scheme_make_integer_value,
    656. 

  656.                                unsigned long,SCHEME_INTP,
    657. 

  657.                                SCHEME_INT_VAL,scheme_make_integer_value);
    658. 

  658.     specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
    659. 

  659.                                SCHEME_INT_VAL,scheme_make_integer_value,
    660. 

  660.                                double,SCHEME_REALP,
    661. 

  661.                                scheme_real_to_double,scheme_make_double);
    662. 

  662.     specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
    663. 

  663.                                SCHEME_INT_VAL,scheme_make_integer_value,
    664. 

  664.                                float,SCHEME_REALP,
    665. 

  665.                                scheme_real_to_double,scheme_make_double);
    666. 

  666.     specialize_std_pair_on_both(unsigned int,SCHEME_INTP,
    667. 

  667.                                SCHEME_INT_VAL,scheme_make_integer_value,
    668. 

  668.                                std::string,SCHEME_STRINGP,
    669. 

  669.                                swig_scm_to_string,swig_make_string);
    670. 

  670.     specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
    671. 

  671.                                SCHEME_INT_VAL,scheme_make_integer_value,
    672. 

  672.                                bool,SCHEME_BOOLP,
    673. 

  673.                                SCHEME_TRUEP,swig_make_boolean);
    674. 

  674.     specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
    675. 

  675.                                SCHEME_INT_VAL,scheme_make_integer_value,
    676. 

  676.                                int,SCHEME_INTP,
    677. 

  677.                                SCHEME_INT_VAL,scheme_make_integer_value);
    678. 

  678.     specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
    679. 

  679.                                SCHEME_INT_VAL,scheme_make_integer_value,
    680. 

  680.                                short,SCHEME_INTP,
    681. 

  681.                                SCHEME_INT_VAL,scheme_make_integer_value);
    682. 

  682.     specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
    683. 

  683.                                SCHEME_INT_VAL,scheme_make_integer_value,
    684. 

  684.                                long,SCHEME_INTP,
    685. 

  685.                                SCHEME_INT_VAL,scheme_make_integer_value);
    686. 

  686.     specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
    687. 

  687.                                SCHEME_INT_VAL,scheme_make_integer_value,
    688. 

  688.                                unsigned int,SCHEME_INTP,
    689. 

  689.                                SCHEME_INT_VAL,scheme_make_integer_value);
    690. 

  690.     specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
    691. 

  691.                                SCHEME_INT_VAL,scheme_make_integer_value,
    692. 

  692.                                unsigned short,SCHEME_INTP,
    693. 

  693.                                SCHEME_INT_VAL,scheme_make_integer_value);
    694. 

  694.     specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
    695. 

  695.                                SCHEME_INT_VAL,scheme_make_integer_value,
    696. 

  696.                                unsigned long,SCHEME_INTP,
    697. 

  697.                                SCHEME_INT_VAL,scheme_make_integer_value);
    698. 

  698.     specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
    699. 

  699.                                SCHEME_INT_VAL,scheme_make_integer_value,
    700. 

  700.                                double,SCHEME_REALP,
    701. 

  701.                                scheme_real_to_double,scheme_make_double);
    702. 

  702.     specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
    703. 

  703.                                SCHEME_INT_VAL,scheme_make_integer_value,
    704. 

  704.                                float,SCHEME_REALP,
    705. 

  705.                                scheme_real_to_double,scheme_make_double);
    706. 

  706.     specialize_std_pair_on_both(unsigned short,SCHEME_INTP,
    707. 

  707.                                SCHEME_INT_VAL,scheme_make_integer_value,
    708. 

  708.                                std::string,SCHEME_STRINGP,
    709. 

  709.                                swig_scm_to_string,swig_make_string);
    710. 

  710.     specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
    711. 

  711.                                SCHEME_INT_VAL,scheme_make_integer_value,
    712. 

  712.                                bool,SCHEME_BOOLP,
    713. 

  713.                                SCHEME_TRUEP,swig_make_boolean);
    714. 

  714.     specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
    715. 

  715.                                SCHEME_INT_VAL,scheme_make_integer_value,
    716. 

  716.                                int,SCHEME_INTP,
    717. 

  717.                                SCHEME_INT_VAL,scheme_make_integer_value);
    718. 

  718.     specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
    719. 

  719.                                SCHEME_INT_VAL,scheme_make_integer_value,
    720. 

  720.                                short,SCHEME_INTP,
    721. 

  721.                                SCHEME_INT_VAL,scheme_make_integer_value);
    722. 

  722.     specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
    723. 

  723.                                SCHEME_INT_VAL,scheme_make_integer_value,
    724. 

  724.                                long,SCHEME_INTP,
    725. 

  725.                                SCHEME_INT_VAL,scheme_make_integer_value);
    726. 

  726.     specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
    727. 

  727.                                SCHEME_INT_VAL,scheme_make_integer_value,
    728. 

  728.                                unsigned int,SCHEME_INTP,
    729. 

  729.                                SCHEME_INT_VAL,scheme_make_integer_value);
    730. 

  730.     specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
    731. 

  731.                                SCHEME_INT_VAL,scheme_make_integer_value,
    732. 

  732.                                unsigned short,SCHEME_INTP,
    733. 

  733.                                SCHEME_INT_VAL,scheme_make_integer_value);
    734. 

  734.     specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
    735. 

  735.                                SCHEME_INT_VAL,scheme_make_integer_value,
    736. 

  736.                                unsigned long,SCHEME_INTP,
    737. 

  737.                                SCHEME_INT_VAL,scheme_make_integer_value);
    738. 

  738.     specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
    739. 

  739.                                SCHEME_INT_VAL,scheme_make_integer_value,
    740. 

  740.                                double,SCHEME_REALP,
    741. 

  741.                                scheme_real_to_double,scheme_make_double);
    742. 

  742.     specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
    743. 

  743.                                SCHEME_INT_VAL,scheme_make_integer_value,
    744. 

  744.                                float,SCHEME_REALP,
    745. 

  745.                                scheme_real_to_double,scheme_make_double);
    746. 

  746.     specialize_std_pair_on_both(unsigned long,SCHEME_INTP,
    747. 

  747.                                SCHEME_INT_VAL,scheme_make_integer_value,
    748. 

  748.                                std::string,SCHEME_STRINGP,
    749. 

  749.                                swig_scm_to_string,swig_make_string);
    750. 

  750.     specialize_std_pair_on_both(double,SCHEME_REALP,
    751. 

  751.                                scheme_real_to_double,scheme_make_double,
    752. 

  752.                                bool,SCHEME_BOOLP,
    753. 

  753.                                SCHEME_TRUEP,swig_make_boolean);
    754. 

  754.     specialize_std_pair_on_both(double,SCHEME_REALP,
    755. 

  755.                                scheme_real_to_double,scheme_make_double,
    756. 

  756.                                int,SCHEME_INTP,
    757. 

  757.                                SCHEME_INT_VAL,scheme_make_integer_value);
    758. 

  758.     specialize_std_pair_on_both(double,SCHEME_REALP,
    759. 

  759.                                scheme_real_to_double,scheme_make_double,
    760. 

  760.                                short,SCHEME_INTP,
    761. 

  761.                                SCHEME_INT_VAL,scheme_make_integer_value);
    762. 

  762.     specialize_std_pair_on_both(double,SCHEME_REALP,
    763. 

  763.                                scheme_real_to_double,scheme_make_double,
    764. 

  764.                                long,SCHEME_INTP,
    765. 

  765.                                SCHEME_INT_VAL,scheme_make_integer_value);
    766. 

  766.     specialize_std_pair_on_both(double,SCHEME_REALP,
    767. 

  767.                                scheme_real_to_double,scheme_make_double,
    768. 

  768.                                unsigned int,SCHEME_INTP,
    769. 

  769.                                SCHEME_INT_VAL,scheme_make_integer_value);
    770. 

  770.     specialize_std_pair_on_both(double,SCHEME_REALP,
    771. 

  771.                                scheme_real_to_double,scheme_make_double,
    772. 

  772.                                unsigned short,SCHEME_INTP,
    773. 

  773.                                SCHEME_INT_VAL,scheme_make_integer_value);
    774. 

  774.     specialize_std_pair_on_both(double,SCHEME_REALP,
    775. 

  775.                                scheme_real_to_double,scheme_make_double,
    776. 

  776.                                unsigned long,SCHEME_INTP,
    777. 

  777.                                SCHEME_INT_VAL,scheme_make_integer_value);
    778. 

  778.     specialize_std_pair_on_both(double,SCHEME_REALP,
    779. 

  779.                                scheme_real_to_double,scheme_make_double,
    780. 

  780.                                double,SCHEME_REALP,
    781. 

  781.                                scheme_real_to_double,scheme_make_double);
    782. 

  782.     specialize_std_pair_on_both(double,SCHEME_REALP,
    783. 

  783.                                scheme_real_to_double,scheme_make_double,
    784. 

  784.                                float,SCHEME_REALP,
    785. 

  785.                                scheme_real_to_double,scheme_make_double);
    786. 

  786.     specialize_std_pair_on_both(double,SCHEME_REALP,
    787. 

  787.                                scheme_real_to_double,scheme_make_double,
    788. 

  788.                                std::string,SCHEME_STRINGP,
    789. 

  789.                                swig_scm_to_string,swig_make_string);
    790. 

  790.     specialize_std_pair_on_both(float,SCHEME_REALP,
    791. 

  791.                                scheme_real_to_double,scheme_make_double,
    792. 

  792.                                bool,SCHEME_BOOLP,
    793. 

  793.                                SCHEME_TRUEP,swig_make_boolean);
    794. 

  794.     specialize_std_pair_on_both(float,SCHEME_REALP,
    795. 

  795.                                scheme_real_to_double,scheme_make_double,
    796. 

  796.                                int,SCHEME_INTP,
    797. 

  797.                                SCHEME_INT_VAL,scheme_make_integer_value);
    798. 

  798.     specialize_std_pair_on_both(float,SCHEME_REALP,
    799. 

  799.                                scheme_real_to_double,scheme_make_double,
    800. 

  800.                                short,SCHEME_INTP,
    801. 

  801.                                SCHEME_INT_VAL,scheme_make_integer_value);
    802. 

  802.     specialize_std_pair_on_both(float,SCHEME_REALP,
    803. 

  803.                                scheme_real_to_double,scheme_make_double,
    804. 

  804.                                long,SCHEME_INTP,
    805. 

  805.                                SCHEME_INT_VAL,scheme_make_integer_value);
    806. 

  806.     specialize_std_pair_on_both(float,SCHEME_REALP,
    807. 

  807.                                scheme_real_to_double,scheme_make_double,
    808. 

  808.                                unsigned int,SCHEME_INTP,
    809. 

  809.                                SCHEME_INT_VAL,scheme_make_integer_value);
    810. 

  810.     specialize_std_pair_on_both(float,SCHEME_REALP,
    811. 

  811.                                scheme_real_to_double,scheme_make_double,
    812. 

  812.                                unsigned short,SCHEME_INTP,
    813. 

  813.                                SCHEME_INT_VAL,scheme_make_integer_value);
    814. 

  814.     specialize_std_pair_on_both(float,SCHEME_REALP,
    815. 

  815.                                scheme_real_to_double,scheme_make_double,
    816. 

  816.                                unsigned long,SCHEME_INTP,
    817. 

  817.                                SCHEME_INT_VAL,scheme_make_integer_value);
    818. 

  818.     specialize_std_pair_on_both(float,SCHEME_REALP,
    819. 

  819.                                scheme_real_to_double,scheme_make_double,
    820. 

  820.                                double,SCHEME_REALP,
    821. 

  821.                                scheme_real_to_double,scheme_make_double);
    822. 

  822.     specialize_std_pair_on_both(float,SCHEME_REALP,
    823. 

  823.                                scheme_real_to_double,scheme_make_double,
    824. 

  824.                                float,SCHEME_REALP,
    825. 

  825.                                scheme_real_to_double,scheme_make_double);
    826. 

  826.     specialize_std_pair_on_both(float,SCHEME_REALP,
    827. 

  827.                                scheme_real_to_double,scheme_make_double,
    828. 

  828.                                std::string,SCHEME_STRINGP,
    829. 

  829.                                swig_scm_to_string,swig_make_string);
    830. 

  830.     specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
    831. 

  831.                                swig_scm_to_string,swig_make_string,
    832. 

  832.                                bool,SCHEME_BOOLP,
    833. 

  833.                                SCHEME_TRUEP,swig_make_boolean);
    834. 

  834.     specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
    835. 

  835.                                swig_scm_to_string,swig_make_string,
    836. 

  836.                                int,SCHEME_INTP,
    837. 

  837.                                SCHEME_INT_VAL,scheme_make_integer_value);
    838. 

  838.     specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
    839. 

  839.                                swig_scm_to_string,swig_make_string,
    840. 

  840.                                short,SCHEME_INTP,
    841. 

  841.                                SCHEME_INT_VAL,scheme_make_integer_value);
    842. 

  842.     specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
    843. 

  843.                                swig_scm_to_string,swig_make_string,
    844. 

  844.                                long,SCHEME_INTP,
    845. 

  845.                                SCHEME_INT_VAL,scheme_make_integer_value);
    846. 

  846.     specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
    847. 

  847.                                swig_scm_to_string,swig_make_string,
    848. 

  848.                                unsigned int,SCHEME_INTP,
    849. 

  849.                                SCHEME_INT_VAL,scheme_make_integer_value);
    850. 

  850.     specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
    851. 

  851.                                swig_scm_to_string,swig_make_string,
    852. 

  852.                                unsigned short,SCHEME_INTP,
    853. 

  853.                                SCHEME_INT_VAL,scheme_make_integer_value);
    854. 

  854.     specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
    855. 

  855.                                swig_scm_to_string,swig_make_string,
    856. 

  856.                                unsigned long,SCHEME_INTP,
    857. 

  857.                                SCHEME_INT_VAL,scheme_make_integer_value);
    858. 

  858.     specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
    859. 

  859.                                swig_scm_to_string,swig_make_string,
    860. 

  860.                                double,SCHEME_REALP,
    861. 

  861.                                scheme_real_to_double,scheme_make_double);
    862. 

  862.     specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
    863. 

  863.                                swig_scm_to_string,swig_make_string,
    864. 

  864.                                float,SCHEME_REALP,
    865. 

  865.                                scheme_real_to_double,scheme_make_double);
    866. 

  866.     specialize_std_pair_on_both(std::string,SCHEME_STRINGP,
    867. 

  867.                                swig_scm_to_string,swig_make_string,
    868. 

  868.                                std::string,SCHEME_STRINGP,
    869. 

  869.                                swig_scm_to_string,swig_make_string);
    870. 

  870. }
    871. 

  871.