lOracle.c Source File

00001 /******************************************************************************/
00002 /*                                                                            */
00003 /* POLiTe - Persistent Object Library Test                                    */
00004 /*                                        Ph.D. Thesis by Mgr. Michal Kopecky */
00005 /*                                                                            */
00006 /* Charles University Prague                                                  */
00007 /*                                                                            */
00008 /******************************************************************************/
00009 /*                                                                            */
00010 /* File name: ...                                                             */
00011 /* Module: ......                                                             */
00012 /*                                                                            */
00013 /******************************************************************************/
00014 
00015 /* Standard Header(s) */
00016 #include <stdio.h>
00017 #include <string.h>
00018 #include <malloc.h>
00019 
00020 /* Own Header */
00021 #include <lOracle.h>
00022 
00023 #ifdef NO_DATABASE_PRESENT
00024 static Lda_Def *_lda_def_p;
00025 static Cda_Def *_cda_def_p;
00026 static ub1 *_ub1_p;
00027 static OraText *_text_p;
00028 static sb2 *_sb2_p;
00029 static ub2 *_ub2_p;
00030 static ub4 _ub4;
00031 static sb4 _sb4;
00032 static sword _sword;
00033 
00034 /* Login */
00035 sword olog(Lda_Def *lda,ub1 *hda,OraText *uid,sword uidl,OraText *pswd,sword pswdl,OraText *conn,sword connl,ub4 mode)
00036 {
00037         _lda_def_p = lda;
00038         _ub1_p = hda;
00039         _text_p = uid;
00040         _sword = uidl;
00041         _text_p = pswd;
00042         _sword = pswdl;
00043         _text_p = conn;
00044         _sword = connl;
00045         _ub4 = mode;
00046         return 0;
00047 };
00048 
00049 /* Logout */
00050 sword ologof(Lda_Def *lda)
00051 {
00052         _lda_def_p = lda;
00053         return 0;
00054 };
00055 
00056 /* Commit */
00057 sword ocom(Lda_Def *lda)
00058 {
00059         _lda_def_p = lda;
00060         return 0;
00061 };
00062 
00063 /* Rollback */
00064 sword orol(Lda_Def *lda)
00065 {
00066         _lda_def_p = lda;
00067         return 0;
00068 };
00069 
00070 /* Autocommit ON */
00071 sword ocon(Lda_Def *lda)
00072 {
00073         _lda_def_p = lda;
00074         return 0;
00075 };
00076 
00077 /* Autocommit OFF */
00078 sword ocof(Lda_Def *lda)
00079 {
00080         _lda_def_p = lda;
00081         return 0;
00082 };
00083 
00084 /* Open Cursor */
00085 sword oopen(Cda_Def *cursor,Lda_Def *lda,OraText *dbn,sword dbnl,sword arrsize,OraText *uid,sword uidl)
00086 {
00087         _cda_def_p = cursor;
00088         _lda_def_p = lda;
00089         _text_p = dbn;
00090         _sword = dbnl;
00091         _sword = arrsize;
00092         _text_p = uid;
00093         _sword = uidl;
00094         return 0;
00095 };
00096 
00097 /* Parse statement */
00098 sword oparse(Cda_Def *cursor,OraText *sqlstm,sb4 sqll,sword defflg,ub4 lngflg)
00099 {
00100         _cda_def_p = cursor;
00101         _text_p = sqlstm;
00102         _sb4 = sqll;
00103         _sword = defflg;
00104         _ub4 = lngflg;
00105         return 0;
00106 };
00107 
00108 /* Bind input variable */
00109 sword obndrv(Cda_Def *cursor,OraText *sqlvar,sword sqlvl,ub1 *progv,sword progvl,sword ftype,sword scale,sb2 *indp,OraText *fmt,sword fmtl,sword fmtt)
00110 {
00111         _cda_def_p = cursor;
00112         _text_p = sqlvar;
00113         _sword = sqlvl;
00114         _ub1_p = progv;
00115         _sword = progvl;
00116         _sword = ftype;
00117         _sword = scale;
00118         _sb2_p = indp;
00119         _text_p = fmt;
00120         _sword = fmtl;
00121         _sword = fmtt;
00122         return 0;
00123 };
00124 
00125 /* Execute command */
00126 sword oexec(Cda_Def *cursor)
00127 {
00128         _cda_def_p = cursor;
00129         return 0;
00130 };
00131 
00132 /* Bind output variable */
00133 sword odefin(Cda_Def *cursor,sword pos,ub1 *buf,sword bufl,sword ftype,sword scale,sb2 *indp,OraText *fmt,sword fmtl,sword fmtt,ub2 *rlen,ub2 *rcode)
00134 {
00135         _cda_def_p = cursor;
00136         _sword = pos;
00137         _ub1_p = buf;
00138         _sword = bufl;
00139         _sword = ftype;
00140         _sword = scale;
00141         _sb2_p = indp;
00142         _text_p = fmt;
00143         _sword = fmtl;
00144         _sword = fmtt;
00145         _ub2_p = rlen;
00146         _ub2_p = rcode;
00147         return 0;
00148 };
00149 
00150 /* Fetch next row */
00151 sword ofetch(Cda_Def *cursor)
00152 {
00153         _cda_def_p = cursor;
00154         return 0;
00155 };
00156 
00157 /* Close Cursor */
00158 sword oclose(Cda_Def *cursor)
00159 {
00160         _cda_def_p = cursor;
00161         return 0;
00162 };
00163 
00164 #endif /* NO_DATABASE_PRESENT */
00165 
00166