Skip to content
This repository was archived by the owner on Jun 16, 2025. It is now read-only.

Api inteface to freepascal #1

Open
rchaer wants to merge 3 commits into
base: master
Choose a base branch
from
Open

Api inteface to freepascal #1

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
8610dc1
freepascal api and example
rchaer Jan 17, 2021
2a21ca5
ignore some files
rchaer Jan 17, 2021
34af36a
comments improved
rchaer Jan 17, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 8 additions & 0 deletions examples/freepascal/.gitignore
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,8 @@
*.ppu
*.ppl
*.o
*.or
*.lps
*.compiled
backup
Test_GLPK
32 changes: 32 additions & 0 deletions examples/freepascal/25fv47.txt
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,32 @@
Problem:
Rows: 0
Columns: 0
Non-zeros: 0
Status: OPTIMAL
Objective: 0 (MINimum)

No. Row name St Activity Lower bound Upper bound Marginal
------ ------------ -- ------------- ------------- ------------- -------------

No. Column name St Activity Lower bound Upper bound Marginal
------ ------------ -- ------------- ------------- ------------- -------------

Karush-Kuhn-Tucker optimality conditions:

KKT.PE: max.abs.err = 0,00e+00 on row 0
max.rel.err = 0,00e+00 on row 0
High quality

KKT.PB: max.abs.err = 0,00e+00 on row 0
max.rel.err = 0,00e+00 on row 0
High quality

KKT.DE: max.abs.err = 0,00e+00 on column 0
max.rel.err = 0,00e+00 on column 0
High quality

KKT.DB: max.abs.err = 0,00e+00 on row 0
max.rel.err = 0,00e+00 on row 0
High quality

End of output
Binary file added examples/freepascal/Test_GLPK.ico
View file
Open in desktop
Binary file not shown.
78 changes: 78 additions & 0 deletions examples/freepascal/Test_GLPK.lpi
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,78 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="Test_GLPK"/>
<Scaled Value="True"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<XPManifest>
<DpiAware Value="True"/>
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0"/>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="3">
<Unit0>
<Filename Value="Test_GLPK.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="utestglpk.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit1>
<Unit2>
<Filename Value="glpk.pp"/>
<IsPartOfProject Value="True"/>
</Unit2>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="Test_GLPK"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
</SearchPaths>
<Linking>
<Debugging>
<GenerateDebugInfo Value="False"/>
</Debugging>
</Linking>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>
22 changes: 22 additions & 0 deletions examples/freepascal/Test_GLPK.lpr
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,22 @@
program Test_GLPK;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, utestglpk
{ you can add units after this };

{$R *.res}

begin
RequireDerivedFormResource:=True;
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

48 changes: 48 additions & 0 deletions examples/freepascal/Test_GLPK.lps
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,48 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<Version Value="11"/>
<BuildModes Active="Default"/>
<Units Count="3">
<Unit0>
<Filename Value="Test_GLPK.lpr"/>
<IsPartOfProject Value="True"/>
<UsageCount Value="21"/>
</Unit0>
<Unit1>
<Filename Value="utestglpk.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<IsVisibleTab Value="True"/>
<CursorPos X="41" Y="3"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
<LoadedDesigner Value="True"/>
</Unit1>
<Unit2>
<Filename Value="glpk.pp"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="1"/>
<TopLine Value="586"/>
<CursorPos Y="586"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
</Unit2>
</Units>
<JumpHistory Count="2" HistoryIndex="1">
<Position1>
<Filename Value="utestglpk.pas"/>
</Position1>
<Position2>
<Filename Value="glpk.pp"/>
<Caret Line="4"/>
</Position2>
</JumpHistory>
<RunParams>
<FormatVersion Value="2"/>
<Modes Count="0" ActiveMode=""/>
</RunParams>
</ProjectSession>
</CONFIG>
Binary file added examples/freepascal/Test_GLPK.res
View file
Open in desktop
Binary file not shown.
Loading