/*
 * Scol Voyager
 * 
 * Author : The Scol Team : http://www.scolring.org/
 * 
 * This file is a part of the Scol Voyager
 * 
 * This program is free software; you can redistribute it and/or modify it under
 * the terms of the GNU Lesser General Public License as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option) any later
 * version.
 * 
 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
 * FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.
 * 
 * You should have received a copy of the GNU Lesser General Public License along with
 * this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 * Place - Suite 330, Boston, MA 02111-1307, USA, or go to
 * http://www.gnu.org/copyleft/lesser.txt
 * 
 * For others informations, please contact us from http://www.scolring.org/
 *
 */

  
typeof p=Conn;;

fun _connected()=
 set p=mkConn [0 nil "" 0 0 nil nil 0];
 _SRVconnected p;;
 
fun _closed()=_SRVclosed p;;
fun __getpack()=_SRVgetpack p;;
fun __version(i)=_SRVversion p i;;
fun __nextpack()=_SRVnextpack p;;
fun __next()=_SRVnext p;;
fun __skip()=_SRVskip p;;
fun __downl()=_SRVdownl p;;