Changeset 171e6a0 in tol for vbtol/source/datatype.cpp


Ignore:
Timestamp:
Jan 12, 2016, 1:05:05 PM (11 years ago)
Author:
Pedro Gea <pgea@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
eb0481b
Parents:
8685395
Message:

Refs #1910
Se incorporan los CMakeLists.txt
Se modifica el código para incorpora rlas diferencias entre los dos compiladores en Windows.

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@7188 be4846ae-f051-483a-831f-b64e7d08527f

File:
1 edited

Legend:

Unmodified
Added
Removed

  • vbtol/source/datatype.cpp

    r8685395 r171e6a0  
    2222 */
    2323
    24 #include <config.h>
    25 #include <tol_init.h>
    26 #include <tol_bgrammar.h>
     24#if defined(_MSC_VER)
     25  #include <config.h>
     26  #include <tol_init.h>
     27  #include <tol_bgrammar.h>
     28#else
     29  #include <tol/config.h>
     30  #include <tol/tol_init.h>
     31  #include <tol/tol_bgrammar.h>
     32#endif
     33
    2734#include <tol/tol_bdat.h>
    2835#include <tol/tol_bdatgra.h>
    … …  
    3138#include <tol/tol_bmatgra.h>
    3239
    33 #include "VButils.h"
     40#include "vbutils.h"
    3441
    3542/*
    … …  
    4249 */
    4350//---------------------------------------------------------------------------
    44 short __declspec(dllexport) CALLBACK TolGetText(BSTR lvalue, BSTR * retvalue)
     51extern "C" __declspec(dllexport) short __stdcall TolGetText(BSTR lvalue, BSTR * retvalue)
    4552//---------------------------------------------------------------------------
    4653{
    … …  
    6976 */
    7077//---------------------------------------------------------------------------
    71 short __declspec(dllexport) CALLBACK TolCreateText(BSTR name, BSTR value)
     78extern "C" __declspec(dllexport) short __stdcall TolCreateText(BSTR name, BSTR value)
    7279//---------------------------------------------------------------------------
    7380{
    … …  
    110117 */
    111118//---------------------------------------------------------------------------
    112 short __declspec(dllexport) CALLBACK TolGetReal(BSTR lvalue, stolreal * retvalue)
     119extern "C" __declspec(dllexport) short __stdcall TolGetReal(BSTR lvalue, stolreal * retvalue)
    113120//---------------------------------------------------------------------------
    114121{
    … …  
    146153 */
    147154//---------------------------------------------------------------------------
    148 short __declspec(dllexport) CALLBACK TolCreateReal(BSTR name, stolreal * value)
     155extern "C" __declspec(dllexport) short __stdcall TolCreateReal(BSTR name, stolreal * value)
    149156//---------------------------------------------------------------------------
    150157{
    … …  
    343350 */
    344351//---------------------------------------------------------------------------
    345 short __declspec(dllexport) CALLBACK TolGetRange(BSTR lvalue,
     352extern "C" __declspec(dllexport) short __stdcall TolGetRange(BSTR lvalue,
    346353                                                 long frow, long lrow,
    347354                                                 long fcol, long lcol,
    … …  
    368375 */
    369376//---------------------------------------------------------------------------
    370 short __declspec(dllexport) CALLBACK TolGetMatrix(BSTR lvalue,
     377extern "C" __declspec(dllexport) short __stdcall TolGetMatrix(BSTR lvalue,
    371378                                                  LPSAFEARRAY FAR * retvalue,
    372379                                                  LPSAFEARRAY FAR * retmask)
    … …  
    391398 */
    392399//---------------------------------------------------------------------------
    393 short __declspec(dllexport) CALLBACK TolGetRow(BSTR lvalue, long row,
     400extern "C" __declspec(dllexport) short __stdcall TolGetRow(BSTR lvalue, long row,
    394401                                               LPSAFEARRAY FAR * retvalue,
    395402                                               LPSAFEARRAY FAR * retmask)
    … …  
    416423 */
    417424//---------------------------------------------------------------------------
    418 short __declspec(dllexport) CALLBACK TolGetColumn(BSTR lvalue, long col,
     425extern "C" __declspec(dllexport) short __stdcall TolGetColumn(BSTR lvalue, long col,
    419426                                                  LPSAFEARRAY FAR * retvalue,
    420427                                                  LPSAFEARRAY FAR * retmask)
    … …  
    437444 */
    438445//---------------------------------------------------------------------------
    439 short __declspec(dllexport) CALLBACK TolGetCell(BSTR lvalue, long row, long col,
     446extern "C" __declspec(dllexport) short __stdcall TolGetCell(BSTR lvalue, long row, long col,
    440447                                                stolreal * retvalue)
    441448//---------------------------------------------------------------------------
    … …  
    610617 */
    611618//---------------------------------------------------------------------------
    612 short __declspec(dllexport) CALLBACK TolPutRange(BSTR lvalue, long row, long col,
     619extern "C" __declspec(dllexport) short __stdcall TolPutRange(BSTR lvalue, long row, long col,
    613620                                                 LPSAFEARRAY FAR * value,
    614621                                                 LPSAFEARRAY FAR * mask)
    … …  
    635642 */
    636643//---------------------------------------------------------------------------
    637 short __declspec(dllexport) CALLBACK TolPutRow(BSTR lvalue, long row,
     644extern "C" __declspec(dllexport) short __stdcall TolPutRow(BSTR lvalue, long row,
    638645                                               LPSAFEARRAY FAR * value,
    639646                                               LPSAFEARRAY FAR * mask)
    … …  
    660667 */
    661668//---------------------------------------------------------------------------
    662 short __declspec(dllexport) CALLBACK TolPutColumn(BSTR lvalue, long col,
     669extern "C" __declspec(dllexport) short __stdcall TolPutColumn(BSTR lvalue, long col,
    663670                                                  LPSAFEARRAY FAR * value,
    664671                                                  LPSAFEARRAY FAR * mask)
    … …  
    681688 */
    682689//---------------------------------------------------------------------------
    683 short __declspec(dllexport) CALLBACK TolPutCell(BSTR lvalue, long row, long col,
     690extern "C" __declspec(dllexport) short __stdcall TolPutCell(BSTR lvalue, long row, long col,
    684691                                                stolreal * value)
    685692//---------------------------------------------------------------------------
    … …  
    732739 */
    733740//---------------------------------------------------------------------------
    734 short __declspec(dllexport) CALLBACK TolCreateMatrix(BSTR name,
     741extern "C" __declspec(dllexport) short __stdcall TolCreateMatrix(BSTR name,
    735742                                                     LPSAFEARRAY FAR * value,
    736743                                                     LPSAFEARRAY FAR * mask)
Note: See TracChangeset for help on using the changeset viewer.