scilab/modules/gui/sci_gateway/cpp/sci_loadGui.cpp

   1 /*
   2  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3  * Copyright (C) 2014 - Scilab Enterprises - Antoine ELIAS
   4  *
   5  * This file must be used under the terms of the CeCILL.
   6  * This source file is licensed as described in the file COPYING, which
   7  * you should have received as part of this distribution.  The terms
   8  * are also available at
   9  * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
  10  *
  11  */
  12
  13 extern "C" {
  14 #include "gw_gui.h"
  15 #include "api_scilab.h"
  16 #include "Scierror.h"
  17 #include "localization.h"
  18 #include "createGraphicObject.h"
  19 #include "getGraphicObjectProperty.h"
  20 #include "graphicObjectProperties.h"
  21 #include "HandleManagement.h"
  22 }
  23
  24 int sci_loadGui(char *fname, unsigned long fname_len)
  25 {
  26     SciErr sciErr;
  27     int* piAddr = NULL;
  28     char* pstFile = NULL;
  29
  30     int iRhs = nbInputArgument(pvApiCtx);
  31
  32     CheckInputArgument(pvApiCtx, 1, 1);
  33     CheckOutputArgument(pvApiCtx, 1, 1);
  34
  35     sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddr);
  36     if (sciErr.iErr)
  37     {
  38         printError(&sciErr, 0);
  39         return 1;
  40     }
  41
  42     sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddr);
  43     if (sciErr.iErr)
  44     {
  45         printError(&sciErr, 0);
  46         return 1;
  47     }
  48
  49     if (isStringType(pvApiCtx, piAddr) == 0 || isScalar(pvApiCtx, piAddr) == 0)
  50     {
  51         Scierror(999, _("%s: Wrong size for input argument #%d: A string expected.\n"), fname, 1);
  52         return 1;
  53     }
  54
  55
  56     if (getAllocatedSingleString(pvApiCtx, piAddr, &pstFile))
  57     {
  58         if (pstFile)
  59         {
  60             freeAllocatedSingleString(pstFile);
  61         }
  62
  63         Scierror(202, _("%s: Wrong type for argument #%d: A string expected.\n"), fname, 2);
  64         return 1;
  65     }
  66
  67     int iFig = xmldomload(pstFile);
  68     if (iFig < 1)
  69     {
  70         Scierror(999, _("%s: can not read file %s.\n"), fname, pstFile);
  71         freeAllocatedSingleString(pstFile);
  72         return 0;
  73     }
  74
  75     freeAllocatedSingleString(pstFile);
  76
  77     long long h = (long long)getHandle(iFig);
  78     createScalarHandle(pvApiCtx, iRhs + 1, h);
  79     AssignOutputVariable(pvApiCtx, 1) = iRhs + 1;
  80     ReturnArguments(pvApiCtx);
  81     return 0;
  82 }