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

00001 /* File:      odbc_xsb_i.h
00002 ** Author(s): Lily Dong
00003 ** Contact:   xsb-contact@cs.sunysb.edu
00004 **
00005 ** Copyright (C) The Research Foundation of SUNY, 1986, 1993-1998
00006 **
00007 ** XSB is free software; you can redistribute it and/or modify it under the
00008 ** terms of the GNU Library General Public License as published by the Free
00009 ** Software Foundation; either version 2 of the License, or (at your option)
00010 ** any later version.
00011 **
00012 ** XSB is distributed in the hope that it will be useful, but WITHOUT ANY
00013 ** WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
00014 ** FOR A PARTICULAR PURPOSE.  See the GNU Library General Public License for
00015 ** more details.
00016 **
00017 ** You should have received a copy of the GNU Library General Public License
00018 ** along with XSB; if not, write to the Free Software Foundation,
00019 ** Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
00020 **
00021 ** $Id: odbc_xsb_i.h,v 1.8 2005/06/28 15:46:58 vidrevich Exp $
00022 **
00023 */
00024 
00025 
00026 #ifdef XSB_ODBC
00027 
00028 case ODBC_EXEC_QUERY:
00029 switch (ptoc_int(CTXTc 1)) {
00030  case ODBC_CONNECT:
00031    ODBCConnect(CTXT);
00032    break;
00033  case ODBC_PARSE:
00034    Parse(CTXT);
00035    break;
00036  case ODBC_SET_BIND_VAR_NUM:
00037    SetBindVarNum(CTXT);
00038    break;
00039  case ODBC_FETCH_NEXT_ROW:
00040    FetchNextRow(CTXT);
00041    break;
00042  case ODBC_GET_COLUMN:
00043    return GetColumn(CTXT);
00044    break;
00045  case ODBC_SET_BIND_VAL:
00046    SetBindVal(CTXT);
00047    break;
00048  case ODBC_FIND_FREE_CURSOR:
00049    FindFreeCursor(CTXT);
00050    break;
00051  case ODBC_DISCONNECT:
00052    ODBCDisconnect(CTXT);
00053    break;
00054  case ODBC_SET_CURSOR_CLOSE: {
00055    Integer i = ptoc_int(CTXTc 2);
00056    SetCursorClose(i);
00057    break;
00058  }
00059  case ODBC_COMMIT:
00060    ODBCCommit(CTXT);
00061    break;
00062  case ODBC_ROLLBACK:
00063    ODBCRollback(CTXT);
00064    break;
00065  case ODBC_COLUMNS:
00066    ODBCColumns(CTXT);
00067    break;
00068  case ODBC_TABLES:
00069    ODBCTables(CTXT);
00070    break;
00071  case ODBC_USER_TABLES:
00072    ODBCUserTables(CTXT);
00073    break;
00074  case ODBC_DESCRIBE_SELECT:
00075    ODBCDescribeSelect(CTXT);
00076    break;
00077  case ODBC_CONNECT_OPTION:
00078    ODBCConnectOption(CTXT);
00079    break;
00080  case ODBC_DATA_SOURCES:
00081    ODBCDataSources(CTXT);
00082    break;
00083  case ODBC_GET_INFO:
00084    ODBCGetInfo(CTXT);
00085    break;
00086  case ODBC_ROW_COUNT:
00087    ODBCRowCount(CTXT);
00088    break;
00089  default:
00090    xsb_error("Unknown or unimplemented ODBC request type");
00091    /* Put an error message here */
00092    break;
00093 }
00094 break;
00095 
00096 #endif
00097 
00098