/*
This source file is part of Scol
For the latest info, see http://www.scolring.org

Copyright (c) 2010 Stephane Bisaro, aka Iri <iri@irizone.net>

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/
*/

#include "update.h"





int SCOLupdateScol (mmachine m)
{
    int mlistlocal, mlistdistant;

    MMechostr (MSKDEBUG, "SCOLupdateScol entering\n");

    mlistdistant = MMpull (m);
    mlistlocal = MMpull (m);

    if (mlistdistant == NIL)
    {
        MMechostr (MSKDEBUG, "SCOLupdateScol error : list nil\n");
        MMpush (m, NIL);
        return 0;
    }


    MMpush (m, MTOI (0));
    return 0;
}



char* updt_name[UPDATE_PKG_NB] =
{
    "_updateScol"
};

int (*updt_fun[UPDATE_PKG_NB]) (mmachine m) =
{
    SCOLupdateScol
};

int updt_narg[UPDATE_PKG_NB] =
{
    2           /* _updateScol */
};

char* updt_type[UPDATE_PKG_NB] =
{
    "fun [I I] I"                                       /* _updateScol */
};

int SCOLinitUPDATEclass (mmachine m)
{
    int k = 0;
    MMechostr (MSKDEBUG, "SCOLinitUPDATEclass library : entering\n");

    k = PKhardpak (m, "UPDATEengine", UPDATE_PKG_NB, updt_name, updt_fun, updt_narg, updt_type);
    return k;
}