deleteNamedVariable 名前で指定した変数を削除する際に使用されるCゲートウェイ関数

## 呼び出し手順

    int deleteNamedVariable(void* _pvCtx, const char* _pstName)

## 引数

_pvCtx

  Scilab環境ポインタ, api_scilab.hで定義される "pvApiCtx" を指定

_pstName

  変数名.

## 説明

名前で指定した変数を削除する際に使用されるCゲートウェイ関数

## 例

## Scilabテストスクリプト

    fileData = ['#include ""api_scilab.h""'
    '#include ""MALLOC.h""'
    ''
    'int sci_deleteNamedVariable(char *fname, void* pvApiCtx)'
    '{'
    '    SciErr sciErr;'
    '    int iRet = 0;'
    '    int* piAddr = NULL;'
    '    char* pstVarName = NULL;'
    ''
    '    CheckRhs(1,1);'
    '    CheckLhs(0,1);'
    ''
    '    sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddr);'
    '    if(sciErr.iErr)'
    '    {'
    '        printError(&sciErr, 0);'
    '        return 1;'
    '    }'
    ''
    '    if(getAllocatedSingleString(pvApiCtx, piAddr, &pstVarName))'
    '    {'
    '        //error'
    '        return 1;'
    '    }'
    ''
    '    if(isNamedVarExist(pvApiCtx, pstVarName))'
    '    {'
    '        iRet = deleteNamedVariable(pvApiCtx, pstVarName);'
    '    }'
    ''
    '    createScalarBoolean(pvApiCtx, Rhs + 1, iRet);'
    '    AssignOutputVariable(pvApiCtx, 1) = Rhs + 1;'
    '    return 0;'
    '}'];
    currentPath = pwd();
    mkdir(TMPDIR + "/deleteNamedVariable");
    cd(TMPDIR + "/deleteNamedVariable");
    mputl(fileData, "deleteNamedVariable.c");
    ilib_verbose(0);
    files = ['deleteNamedVariable.c'];
    ilib_build('libdeleteNamedVariable', ['deleteNamedVariable', 'sci_deleteNamedVariable'], files, []);
    exec loader.sce;
    function test()
        assert_checkequal(exists("a"), 1);
        assert_checkequal(a, 1);
        a = 2;
        assert_checkequal(a, 2);
        assert_checktrue(deleteNamedVariable("a"));
        assert_checkequal(exists("a"), 1);
        assert_checkequal(a, 1);
    endfunction
    a = 1;
    test();
    assert_checkequal(a, 1);
    deleteNamedVariable("a");
    assert_checkequal(exists("a"), 0);