XSB: C:/dev/sandbox/xsb_release/XSB/emu/orastuff/close_xsb

00001 /*  -*-c-*-  Make sure this file comes up in the C mode of emacs */ 
00002 /* File:      close.i
00003 ** Author(s): Ernie Johnson
00004 ** Contact:   xsb-contact@cs.sunysb.edu
00005 ** 
00006 ** Copyright (C) The Research Foundation of SUNY, 1997-1998
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: close_xsb_i.h,v 1.1 1999/10/25 06:00:28 kifer Exp $
00023 ** 
00024 */
00025 
00026 /*
00027  * CLOSE a Cursor
00028  * --------------
00029  *  CLOSEing a cursor disables it.  What resources are freed depends on
00030  *  the settings of the HOLD_CURSOR and RELEASE_CURSOR precompiler options.
00031  */
00032 
00033 switch (cursorHandle) {
00034  case  0:  EXEC SQL CLOSE C0;  break;
00035  case  1:  EXEC SQL CLOSE C1;  break;
00036  case  2:  EXEC SQL CLOSE C2;  break;
00037  case  3:  EXEC SQL CLOSE C3;  break;
00038  case  4:  EXEC SQL CLOSE C4;  break;
00039  case  5:  EXEC SQL CLOSE C5;  break;
00040  case  6:  EXEC SQL CLOSE C6;  break;
00041  case  7:  EXEC SQL CLOSE C7;  break;
00042  case  8:  EXEC SQL CLOSE C8;  break;
00043  case  9:  EXEC SQL CLOSE C9;  break;
00044  case 10:  EXEC SQL CLOSE C10;  break;
00045  case 11:  EXEC SQL CLOSE C11;  break;
00046  case 12:  EXEC SQL CLOSE C12;  break;
00047  case 13:  EXEC SQL CLOSE C13;  break;
00048  case 14:  EXEC SQL CLOSE C14;  break;
00049  case 15:  EXEC SQL CLOSE C15;  break;
00050  case 16:  EXEC SQL CLOSE C16;  break;
00051  case 17:  EXEC SQL CLOSE C17;  break;
00052  case 18:  EXEC SQL CLOSE C18;  break;
00053  case 19:  EXEC SQL CLOSE C19;  break;
00054  case 20:  EXEC SQL CLOSE C20;  break;
00055 }