XSB: C:/dev/sandbox/xsb_release/XSB/emu/oracle_xsb

00001 /* File:      oracle_xsb_i.h
00002 ** Author(s): Hasan Davulcu, Ernie Johnson
00003 ** Contact:   xsb-contact@cs.sunysb.edu
00004 ** 
00005 ** Copyright (C) The Research Foundation of SUNY, 1986, 1993-1998
00006 ** Copyright (C) ECRC, Germany, 1990
00007 ** 
00008 ** XSB is free software; you can redistribute it and/or modify it under the
00009 ** terms of the GNU Library General Public License as published by the Free
00010 ** Software Foundation; either version 2 of the License, or (at your option)
00011 ** any later version.
00012 ** 
00013 ** XSB is distributed in the hope that it will be useful, but WITHOUT ANY
00014 ** WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
00015 ** FOR A PARTICULAR PURPOSE.  See the GNU Library General Public License for
00016 ** more details.
00017 ** 
00018 ** You should have received a copy of the GNU Library General Public License
00019 ** along with XSB; if not, write to the Free Software Foundation,
00020 ** Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
00021 **
00022 ** $Id: oracle_xsb_i.h,v 1.2 2005/01/14 18:31:25 ruim Exp $
00023 ** 
00024 */
00025 
00026 
00027 
00028 #ifdef ORACLE
00029 
00030 case ORACLE_QUERY:
00031   switch (ptoc_int(1)) {
00032    case ORA_ORACLE_CONNECT:
00033      oracle_connect();
00034      break;
00035    case ORA_ORACLE_DISCONNECT:
00036      oracle_disconnect();
00037      break;
00038    case ORA_ALLOCATE_CURSOR:
00039      allocate_cursor();
00040      break;
00041    case ORA_DEALLOCATE_CURSOR:
00042      deallocate_cursor();
00043      break;
00044    case ORA_CLOSE_CURSOR:
00045      close_cursor();
00046      break;
00047    case ORA_RECLAIM_CURSORS:
00048      reclaim_cursors();
00049      break;
00050    case ORA_SET_INPUT_VALUE:
00051      set_input_value();
00052      break;
00053    case ORA_EXECUTE_CURSOR:
00054      execute_cursor();
00055      break;
00056    case ORA_FLUSH_CURSOR:
00057      flush_cursor();
00058      break;
00059    case ORA_FETCH_FROM_CURSOR:
00060      fetch_from_cursor();
00061      break;
00062    case ORA_GET_OUTPUT_VALUE:
00063      get_output_value();
00064      break;
00065    case ORA_EXECUTE_IMMEDIATE:
00066      execute_immediate();
00067      break;
00068    case ORA_SQLCAID:
00069      db_sqlcaid();
00070      break;
00071    case ORA_SQLABC:
00072      db_sqlabc();
00073      break;
00074    case ORA_SQLCODE:
00075      db_sqlcode();
00076      break;
00077    case ORA_SQLERRML:
00078      db_sqlerrml();
00079      break;
00080    case ORA_SQLERRMC:
00081      db_sqlerrmc();
00082      break;
00083    case ORA_SQLERRP:
00084      db_sqlerrp();
00085      break;
00086    case ORA_SQLERRD0:
00087      db_sqlerrd0();
00088      break;
00089    case ORA_SQLERRD1:
00090      db_sqlerrd1();
00091      break;
00092    case ORA_SQLERRD2:
00093      db_sqlerrd2();
00094      break;
00095    case ORA_SQLERRD3:
00096      db_sqlerrd3();
00097      break;
00098    case ORA_SQLERRD4:
00099      db_sqlerrd4();
00100      break;
00101    case ORA_SQLERRD5:
00102      db_sqlerrd5();
00103      break;
00104    case ORA_SQLWARN0:
00105      db_sqlwarn0();
00106      break;
00107    case ORA_SQLWARN1:
00108      db_sqlwarn1();
00109      break;
00110    case ORA_SQLWARN3:
00111      db_sqlwarn3();
00112      break;
00113    case ORA_SQLWARN4:
00114      db_sqlwarn4();
00115      break;
00116    case ORA_SQLWARN5:
00117      db_sqlwarn5();
00118      break;
00119    case ORA_SQLEXT:
00120      db_sqlext();
00121      break;
00122    default:
00123      /* Put an error message here */
00124      break;
00125   }
00126   break;
00127 
00128 #endif