开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > SQL Server > 查看源码
gsqltrn_xdr.c.preserve
资源名称：gnusql-0.7b5.1.tar.gz　[点击查看]
上传用户：dgyhgb
上传日期：2007-01-07
资源大小：676k
文件大小：8k
源码类别：

SQL Server

开发平台：

Unix_Linux

gsqltrn_xdr.c.preserve：源码内容
  1. /*
  2.  * Please do not edit this file.
  3.  * It was generated using rpcgen.
  4.  */
  6. #include "gsqltrn.h"
  8. bool_t
  9. xdr_string_t(xdrs, objp)
  10. register XDR *xdrs;
  11. string_t *objp;
  12. {
  14. register long *buf;
  16. if (!xdr_string(xdrs, objp, ~0))
  17. return (FALSE);
  18. return (TRUE);
  19. }
  21. bool_t
  22. xdr_init_params_t(xdrs, objp)
  23. register XDR *xdrs;
  24. init_params_t *objp;
  25. {
  27. register long *buf;
  29. if (!xdr_array(xdrs, (char **)&objp->init_params_t_val, (u_int *) &objp->init_params_t_len, ~0,
  30. sizeof (string_t), (xdrproc_t) xdr_string_t))
  31. return (FALSE);
  32. return (TRUE);
  33. }
  35. bool_t
  36. xdr_stmt_info_t(xdrs, objp)
  37. register XDR *xdrs;
  38. stmt_info_t *objp;
  39. {
  41. register long *buf;
  43. if (!xdr_string_t(xdrs, &objp->stmt))
  44. return (FALSE);
  45. if (!xdr_string_t(xdrs, &objp->stmt_name))
  46. return (FALSE);
  47. if (!xdr_int(xdrs, &objp->bline))
  48. return (FALSE);
  49. if (!xdr_pointer(xdrs, (char **)&objp->next, sizeof (stmt_info_t), (xdrproc_t) xdr_stmt_info_t))
  50. return (FALSE);
  51. return (TRUE);
  52. }
  54. bool_t
  55. xdr_prep_elem_t(xdrs, objp)
  56. register XDR *xdrs;
  57. prep_elem_t *objp;
  58. {
  60. register long *buf;
  62. if (!xdr_int(xdrs, &objp->type))
  63. return (FALSE);
  64. if (!xdr_int(xdrs, &objp->length))
  65. return (FALSE);
  66. if (!xdr_int(xdrs, &objp->scale))
  67. return (FALSE);
  68. if (!xdr_string_t(xdrs, &objp->name))
  69. return (FALSE);
  70. if (!xdr_string_t(xdrs, &objp->ind_name))
  71. return (FALSE);
  72. if (!xdr_int(xdrs, &objp->nullable))
  73. return (FALSE);
  74. return (TRUE);
  75. }
  77. bool_t
  78. xdr_descr_t(xdrs, objp)
  79. register XDR *xdrs;
  80. descr_t *objp;
  81. {
  83. register long *buf;
  85. if (!xdr_array(xdrs, (char **)&objp->descr_t_val, (u_int *) &objp->descr_t_len, ~0,
  86. sizeof (prep_elem_t), (xdrproc_t) xdr_prep_elem_t))
  87. return (FALSE);
  88. return (TRUE);
  89. }
  91. bool_t
  92. xdr_compiled_object_t(xdrs, objp)
  93. register XDR *xdrs;
  94. compiled_object_t *objp;
  95. {
  97. register long *buf;
  99. if (!xdr_pointer(xdrs, (char **)&objp->next, sizeof (compiled_object_t), (xdrproc_t) xdr_compiled_object_t))
  100. return (FALSE);
  101. if (!xdr_descr_t(xdrs, &objp->descr_in))
  102. return (FALSE);
  103. if (!xdr_descr_t(xdrs, &objp->descr_out))
  104. return (FALSE);
  105. if (!xdr_int(xdrs, &objp->object))
  106. return (FALSE);
  107. if (!xdr_string_t(xdrs, &objp->cursor_name))
  108. return (FALSE);
  109. if (!xdr_string_t(xdrs, &objp->table_name))
  110. return (FALSE);
  111. if (!xdr_string_t(xdrs, &objp->table_owner))
  112. return (FALSE);
  113. return (TRUE);
  114. }
  116. bool_t
  117. xdr_call_subst_t(xdrs, objp)
  118. register XDR *xdrs;
  119. call_subst_t *objp;
  120. {
  122. register long *buf;
  124. if (!xdr_string_t(xdrs, &objp->proc_name))
  125. return (FALSE);
  126. if (!xdr_descr_t(xdrs, &objp->interface))
  127. return (FALSE);
  128. if (!xdr_descr_t(xdrs, &objp->in_sql_parm))
  129. return (FALSE);
  130. if (!xdr_descr_t(xdrs, &objp->out_sql_parm))
  131. return (FALSE);
  132. if (!xdr_int(xdrs, &objp->object))
  133. return (FALSE);
  134. if (!xdr_int(xdrs, &objp->method))
  135. return (FALSE);
  136. if (!xdr_string_t(xdrs, &objp->jmp_on_error))
  137. return (FALSE);
  138. if (!xdr_string_t(xdrs, &objp->jmp_on_eofscan))
  139. return (FALSE);
  140. return (TRUE);
  141. }
  143. bool_t
  144. xdr_call_t(xdrs, objp)
  145. register XDR *xdrs;
  146. call_t *objp;
  147. {
  149. register long *buf;
  151. if (!xdr_pointer(xdrs, (char **)&objp->next, sizeof (call_t), (xdrproc_t) xdr_call_t))
  152. return (FALSE);
  153. if (!xdr_pointer(xdrs, (char **)&objp->subst, sizeof (call_subst_t), (xdrproc_t) xdr_call_subst_t))
  154. return (FALSE);
  155. return (TRUE);
  156. }
  158. bool_t
  159. xdr_file_buf_t(xdrs, objp)
  160. register XDR *xdrs;
  161. file_buf_t *objp;
  162. {
  164. register long *buf;
  166. if (!xdr_string_t(xdrs, &objp->ext))
  167. return (FALSE);
  168. if (!xdr_string_t(xdrs, &objp->text))
  169. return (FALSE);
  170. if (!xdr_pointer(xdrs, (char **)&objp->next, sizeof (file_buf_t), (xdrproc_t) xdr_file_buf_t))
  171. return (FALSE);
  172. return (TRUE);
  173. }
  175. bool_t
  176. xdr_comp_data_t(xdrs, objp)
  177. register XDR *xdrs;
  178. comp_data_t *objp;
  179. {
  181. register long *buf;
  183. if (!xdr_int(xdrs, &objp->comp_type))
  184. return (FALSE);
  185. switch (objp->comp_type) {
  186. case COMP_STATIC:
  187. if (!xdr_string_t(xdrs, &objp->comp_data_t_u.module))
  188. return (FALSE);
  189. break;
  190. case COMP_DYNAMIC_CURSOR:
  191. if (!xdr_int(xdrs, &objp->comp_data_t_u.seg_ptr))
  192. return (FALSE);
  193. break;
  194. case COMP_DYNAMIC_SIMPLE:
  195. if (!xdr_int(xdrs, &objp->comp_data_t_u.segm))
  196. return (FALSE);
  197. break;
  198. }
  199. return (TRUE);
  200. }
  202. bool_t
  203. xdr_compiled_t(xdrs, objp)
  204. register XDR *xdrs;
  205. compiled_t *objp;
  206. {
  208. register long *buf;
  210. if (!xdr_int(xdrs, &objp->errors))
  211. return (FALSE);
  212. if (!xdr_pointer(xdrs, (char **)&objp->bufs, sizeof (file_buf_t), (xdrproc_t) xdr_file_buf_t))
  213. return (FALSE);
  214. if (!xdr_pointer(xdrs, (char **)&objp->objects, sizeof (compiled_object_t), (xdrproc_t) xdr_compiled_object_t))
  215. return (FALSE);
  216. if (!xdr_pointer(xdrs, (char **)&objp->calls, sizeof (call_t), (xdrproc_t) xdr_call_t))
  217. return (FALSE);
  218. if (!xdr_comp_data_t(xdrs, &objp->stored))
  219. return (FALSE);
  220. return (TRUE);
  221. }
  223. bool_t
  224. xdr_link_cursor_t(xdrs, objp)
  225. register XDR *xdrs;
  226. link_cursor_t *objp;
  227. {
  229. register long *buf;
  231. if (!xdr_string_t(xdrs, &objp->cursor_name))
  232. return (FALSE);
  233. if (!xdr_string_t(xdrs, &objp->stmt_name))
  234. return (FALSE);
  235. if (!xdr_int(xdrs, &objp->segment))
  236. return (FALSE);
  237. return (TRUE);
  238. }
  240. bool_t
  241. xdr_seg_del_t(xdrs, objp)
  242. register XDR *xdrs;
  243. seg_del_t *objp;
  244. {
  246. register long *buf;
  248. if (!xdr_int(xdrs, &objp->segment))
  249. return (FALSE);
  250. if (!xdr_array(xdrs, (char **)&objp->seg_vadr.seg_vadr_val, (u_int *) &objp->seg_vadr.seg_vadr_len, ~0,
  251. sizeof (int), (xdrproc_t) xdr_int))
  252. return (FALSE);
  253. return (TRUE);
  254. }
  255. #include "sql_type.h"
  257. bool_t
  258. xdr_data(xdrs, objp)
  259. register XDR *xdrs;
  260. data *objp;
  261. {
  263. register long *buf;
  265. if (!xdr_int(xdrs, &objp->type))
  266. return (FALSE);
  267. switch (objp->type) {
  268. case SQLType_Char:
  269. if (!xdr_bytes(xdrs, (char **)&objp->data_u.Str.Str_val, (u_int *) &objp->data_u.Str.Str_len, ~0))
  270. return (FALSE);
  271. break;
  272. case SQLType_Short:
  273. if (!xdr_short(xdrs, &objp->data_u.Shrt))
  274. return (FALSE);
  275. break;
  276. case SQLType_Int:
  277. if (!xdr_int(xdrs, &objp->data_u.Int))
  278. return (FALSE);
  279. break;
  280. case SQLType_Long:
  281. if (!xdr_int(xdrs, &objp->data_u.Lng))
  282. return (FALSE);
  283. break;
  284. case SQLType_Real:
  285. if (!xdr_float(xdrs, &objp->data_u.Flt))
  286. return (FALSE);
  287. break;
  288. case SQLType_Double:
  289. if (!xdr_double(xdrs, &objp->data_u.Dbl))
  290. return (FALSE);
  291. break;
  292. }
  293. return (TRUE);
  294. }
  296. bool_t
  297. xdr_parm_t(xdrs, objp)
  298. register XDR *xdrs;
  299. parm_t *objp;
  300. {
  302. register long *buf;
  304. if (!xdr_data(xdrs, &objp->value))
  305. return (FALSE);
  306. if (!xdr_int(xdrs, &objp->indicator))
  307. return (FALSE);
  308. return (TRUE);
  309. }
  311. bool_t
  312. xdr_parm_row_t(xdrs, objp)
  313. register XDR *xdrs;
  314. parm_row_t *objp;
  315. {
  317. register long *buf;
  319. if (!xdr_array(xdrs, (char **)&objp->parm_row_t_val, (u_int *) &objp->parm_row_t_len, ~0,
  320. sizeof (parm_t), (xdrproc_t) xdr_parm_t))
  321. return (FALSE);
  322. return (TRUE);
  323. }
  325. bool_t
  326. xdr_return_data(xdrs, objp)
  327. register XDR *xdrs;
  328. return_data *objp;
  329. {
  331. register long *buf;
  333. if (!xdr_int(xdrs, &objp->rett))
  334. return (FALSE);
  335. switch (objp->rett) {
  336. case RET_COMP:
  337. if (!xdr_compiled_t(xdrs, &objp->return_data_u.comp_ret))
  338. return (FALSE);
  339. break;
  340. case RET_ROW:
  341. if (!xdr_parm_row_t(xdrs, &objp->return_data_u.row))
  342. return (FALSE);
  343. break;
  344. case RET_TBL:
  345. if (!xdr_array(xdrs, (char **)&objp->return_data_u.tbl.tbl_val, (u_int *) &objp->return_data_u.tbl.tbl_len, ~0,
  346. sizeof (parm_row_t), (xdrproc_t) xdr_parm_row_t))
  347. return (FALSE);
  348. break;
  349. case RET_SEG:
  350. if (!xdr_int(xdrs, &objp->return_data_u.segid))
  351. return (FALSE);
  352. break;
  353. }
  354. return (TRUE);
  355. }
  357. bool_t
  358. xdr_result_t(xdrs, objp)
  359. register XDR *xdrs;
  360. result_t *objp;
  361. {
  363. register long *buf;
  365. if (!xdr_int(xdrs, &objp->sqlcode))
  366. return (FALSE);
  367. if (!xdr_return_data(xdrs, &objp->info))
  368. return (FALSE);
  369. return (TRUE);
  370. }
  372. bool_t
  373. xdr_insn_t(xdrs, objp)
  374. register XDR *xdrs;
  375. insn_t *objp;
  376. {
  378. register long *buf;
  380. if (!xdr_int(xdrs, &objp->vadr_segm))
  381. return (FALSE);
  382. if (!xdr_int(xdrs, &objp->sectnum))
  383. return (FALSE);
  384. if (!xdr_int(xdrs, &objp->command))
  385. return (FALSE);
  386. if (!xdr_int(xdrs, &objp->options))
  387. return (FALSE);
  388. if (!xdr_parm_row_t(xdrs, &objp->parms))
  389. return (FALSE);
  390. if (!xdr_pointer(xdrs, (char **)&objp->next, sizeof (insn_t), (xdrproc_t) xdr_insn_t))
  391. return (FALSE);
  392. return (TRUE);
  393. }