- 论坛徽章:
- 0
|
回复 #2 simhare 的帖子
===========================================用proc编译生成的gg.c文件
[oracle@oracle11gTux1 lessons]$ vi gg.c
1
2 /* Result Sets Interface */
3 #ifndef SQL_CRSR
4 # define SQL_CRSR
5 struct sql_cursor
6 {
7 unsigned int curocn;
8 void *ptr1;
9 void *ptr2;
10 unsigned int magic;
11 };
12 typedef struct sql_cursor sql_cursor;
13 typedef struct sql_cursor SQL_CURSOR;
14 #endif /* SQL_CRSR */
15
16 /* Thread Safety */
17 typedef void * sql_context;
18 typedef void * SQL_CONTEXT;
19
20 /* Object support */
21 struct sqltvn
22 {
23 unsigned char *tvnvsn;
24 unsigned short tvnvsnl;
25 unsigned char *tvnnm;
26 unsigned short tvnnml;
27 unsigned char *tvnsnm;
28 unsigned short tvnsnml;
29 };
30 typedef struct sqltvn sqltvn;
31
32 struct sqladts
33 {
34 unsigned int adtvsn;
35 unsigned short adtmode;
36 unsigned short adtnum;
37 sqltvn adttvn[1];
38 };
39 typedef struct sqladts sqladts;
40
41 static struct sqladts sqladt = {
42 1,1,0,
43 };
44
45 /* Binding to PL/SQL Records */
46 struct sqltdss
47 {
48 unsigned int tdsvsn;
49 unsigned short tdsnum;
50 unsigned char *tdsval[1];
51 };
52 typedef struct sqltdss sqltdss;
53 static struct sqltdss sqltds =
54 {
55 1,
56 0,
57 };
58
59 /* File name & Package Name */
60 struct sqlcxp
61 {
62 unsigned short fillen;
63 char filnam[6];
64 };
65 static const struct sqlcxp sqlfpn =
66 {
67 5,
68 "gg.pc"
69 };
70
71
72 static unsigned int sqlctx = 2115;
73
74
75 static struct sqlexd {
76 unsigned int sqlvsn;
77 unsigned int arrsiz;
78 unsigned int iters;
79 unsigned int offset;
80 unsigned short selerr;
81 unsigned short sqlety;
82 unsigned int occurs;
83 const short *cud;
84 unsigned char *sqlest;
85 const char *stmt;
86 sqladts *sqladtp;
87 sqltdss *sqltdsp;
88 void **sqphsv;
89 unsigned int *sqphsl;
90 int *sqphss;
91 void **sqpind;
92 int *sqpins;
93 unsigned int *sqparm;
94 unsigned int **sqparc;
95 unsigned short *sqpadto;
96 unsigned short *sqptdso;
97 unsigned int sqlcmax;
98 unsigned int sqlcmin;
99 unsigned int sqlcincr;
100 unsigned int sqlctimeout;
101 unsigned int sqlcnowait;
102 int sqfoff;
103 unsigned int sqcmod;
104 unsigned int sqfmod;
105 void *sqhstv[1];
106 unsigned int sqhstl[1];
107 int sqhsts[1];
108 void *sqindv[1];
109 int sqinds[1];
110 unsigned int sqharm[1];
111 unsigned int *sqharc[1];
112 unsigned short sqadto[1];
113 unsigned short sqtdso[1];
114 } sqlstm = {12,1};
115
116 // Prototypes
117 extern "C" {
118 void sqlcxt (void **, unsigned int *,
119 struct sqlexd *, const struct sqlcxp *);
120 void sqlcx2t(void **, unsigned int *,
121 struct sqlexd *, const struct sqlcxp *);
122 void sqlbuft(void **, char *);
123 void sqlgs2t(void **, char *);
124 void sqlorat(void **, unsigned int *, void *);
125 }
126
127 // Forms Interface
128 static const int IAPSUCC = 0;
129 static const int IAPFAIL = 1403;
130 static const int IAPFTL = 535;
131 extern "C" { void sqliem(unsigned char *, signed int *); }
132
133 typedef struct { unsigned short len; unsigned char arr[1]; } VARCHAR;
134 typedef struct { unsigned short len; unsigned char arr[1]; } varchar;
135
136 /* cud (compilation unit data) array */
137 static const short sqlcud0[] =
138 {12,4130,1,0,0,
139 };
140
141
142 #include <stdio.h>
143 #include <stdlib.h>
144
145 int main()
146 {
147 printf("result");
148 return 0;
149 }
[oracle@oracle11gTux1 lessons]$
[ 本帖最后由 simhare 于 2009-6-25 08:46 编辑 ] |
|