Description

Contributor: Lutz Westermann, October 2012

Small Model of Type : Delphi

Category : GAMS API library

Main file : DOex1.gms

$TITLE 'Test expert level Delphi (object) API to read and write GDX' (DOEX1,SEQ=7)

$ontext
Contributor: Lutz Westermann, October 2012
$offtext


$set srcRoot %gams.sysdir%apifiles%system.dirsep%Delphi%system.dirsep%

$if not set dcomp $set dcomp MSBuild
$if %system.platform% == WEX
$if not set flags $set flags  -t:rebuild -p:Configuration=Release -p:Platform="Win64"

$call rm -rf demanddata.gdx

$call %dcomp% "%srcRoot%xp_example1do.dproj" %flags%
$if errorlevel 1 $abort 'Problem compiling xp_example1do.dpr'
$call ="%srcRoot%xp_example1do" "%gams.sysdir%."
$if errorlevel 1 $abort 'Problem executing xp_example1do writing GDX file'
$call gdxdiff demanddata.gdx demandwant.gdx
$if errorlevel 1 $abort 'Demanddata not as expected'
$call ="%srcRoot%xp_example1do" "%gams.sysdir%." trnsport.gdx
$if errorlevel 1 $abort 'Problem executing xp_example1do reading GDX file'