Skip to content

Commit

Permalink
Simplifying structure of repository.
Browse files Browse the repository at this point in the history
  • Loading branch information
jwdietrich committed May 9, 2020
0 parents commit 91960e2
Show file tree
Hide file tree
Showing 135 changed files with 23,239 additions and 0 deletions.
Binary file added Unit converter 1.2.0/UnitConverterTests.ico
Binary file not shown.
91 changes: 91 additions & 0 deletions Unit converter 1.2.0/UnitConverterTests.lpi
Original file line number Diff line number Diff line change
@@ -0,0 +1,91 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="UnitConverterTests"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<UseVersionInfo Value="True"/>
<AutoIncrementBuild Value="True"/>
<MajorVersionNr Value="1"/>
<MinorVersionNr Value="2"/>
<BuildNr Value="19"/>
<StringTable CompanyName="FORMATIO RETICULARIS " ProductVersion="PUMA Repository"/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="3">
<Item1>
<PackageName Value="FPCUnitTestRunner"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
<Item3>
<PackageName Value="FCL"/>
</Item3>
</RequiredPackages>
<Units Count="3">
<Unit0>
<Filename Value="UnitConverterTests.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="UnitConverterTests"/>
</Unit0>
<Unit1>
<Filename Value="unitconvertertestcase.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="UnitConverterTestCase"/>
</Unit1>
<Unit2>
<Filename Value="unitconverter.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="UnitConverter"/>
</Unit2>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
</SearchPaths>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>
33 changes: 33 additions & 0 deletions Unit converter 1.2.0/UnitConverterTests.lpr
Original file line number Diff line number Diff line change
@@ -0,0 +1,33 @@
program UnitConverterTests;

{ PUMA Repository }

{ Pascal Units for Medical Applications }

{ Unit Converter }

{ Version 1.2.0 }

{ (c) J. W. Dietrich, 1994 - 2013 }
{ (c) Ludwig Maximilian University of Munich 1995 - 2002 }
{ (c) University of Ulm Hospitals 2002-2004 }
{ (c) Ruhr University of Bochum 2005 - 2013 }

{ Parser and converter for measurement units }

{ Source code released under the BSD License }
{ See http://puma-repository.sf.net for details }

{$mode objfpc}{$H+}

uses
Interfaces, Forms, GuiTestRunner, UnitConverterTestCase, unitconverter;

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TGuiTestRunner, TestRunner);
Application.Run;
end.

224 changes: 224 additions & 0 deletions Unit converter 1.2.0/UnitConverterTests.lps
Original file line number Diff line number Diff line change
@@ -0,0 +1,224 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectSession>
<Version Value="9"/>
<BuildModes Active="Default"/>
<Units Count="6">
<Unit0>
<Filename Value="UnitConverterTests.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="UnitConverterTests"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="2"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
<Filename Value="unitconvertertestcase.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="UnitConverterTestCase"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="25" Y="29"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="unitconverter.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="UnitConverter"/>
<EditorIndex Value="0"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="1" Y="2"/>
<ExtraEditorCount Value="1"/>
<UsageCount Value="24"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="/Developer/lazarus/components/fpcunit/guitestrunner.pas"/>
<UnitName Value="GuiTestRunner"/>
<WindowIndex Value="0"/>
<TopLine Value="72"/>
<CursorPos X="1" Y="72"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="/usr/local/share/fpcsrc/packages/fcl-fpcunit/src/fpcunit.pp"/>
<UnitName Value="fpcunit"/>
<WindowIndex Value="0"/>
<TopLine Value="80"/>
<CursorPos X="21" Y="98"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="/usr/local/share/fpcsrc/rtl/objpas/sysutils/sysstrh.inc"/>
<WindowIndex Value="0"/>
<TopLine Value="8"/>
<CursorPos X="52" Y="25"/>
<UsageCount Value="10"/>
</Unit5>
</Units>
<General>
<ActiveWindowIndexAtStart Value="0"/>
</General>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="unitconverter.pas"/>
<Caret Line="177" Column="1" TopLine="152"/>
</Position1>
<Position2>
<Filename Value="unitconverter.pas"/>
<Caret Line="199" Column="38" TopLine="185"/>
</Position2>
<Position3>
<Filename Value="unitconverter.pas"/>
<Caret Line="360" Column="1" TopLine="192"/>
</Position3>
<Position4>
<Filename Value="unitconverter.pas"/>
<Caret Line="208" Column="1" TopLine="193"/>
</Position4>
<Position5>
<Filename Value="unitconverter.pas"/>
<Caret Line="209" Column="12" TopLine="193"/>
</Position5>
<Position6>
<Filename Value="unitconverter.pas"/>
<Caret Line="211" Column="32" TopLine="192"/>
</Position6>
<Position7>
<Filename Value="unitconverter.pas"/>
<Caret Line="214" Column="38" TopLine="187"/>
</Position7>
<Position8>
<Filename Value="unitconvertertestcase.pas"/>
<Caret Line="417" Column="1" TopLine="395"/>
</Position8>
<Position9>
<Filename Value="unitconverter.pas"/>
<Caret Line="452" Column="1" TopLine="433"/>
</Position9>
<Position10>
<Filename Value="unitconverter.pas"/>
<Caret Line="453" Column="1" TopLine="433"/>
</Position10>
<Position11>
<Filename Value="unitconverter.pas"/>
<Caret Line="457" Column="1" TopLine="433"/>
</Position11>
<Position12>
<Filename Value="unitconverter.pas"/>
<Caret Line="458" Column="1" TopLine="433"/>
</Position12>
<Position13>
<Filename Value="unitconverter.pas"/>
<Caret Line="459" Column="1" TopLine="433"/>
</Position13>
<Position14>
<Filename Value="unitconverter.pas"/>
<Caret Line="460" Column="1" TopLine="433"/>
</Position14>
<Position15>
<Filename Value="unitconverter.pas"/>
<Caret Line="350" Column="1" TopLine="335"/>
</Position15>
<Position16>
<Filename Value="unitconverter.pas"/>
<Caret Line="363" Column="1" TopLine="353"/>
</Position16>
<Position17>
<Filename Value="unitconverter.pas"/>
<Caret Line="372" Column="1" TopLine="359"/>
</Position17>
<Position18>
<Filename Value="unitconverter.pas"/>
<Caret Line="374" Column="1" TopLine="359"/>
</Position18>
<Position19>
<Filename Value="unitconverter.pas"/>
<Caret Line="376" Column="1" TopLine="359"/>
</Position19>
<Position20>
<Filename Value="unitconverter.pas"/>
<Caret Line="393" Column="118" TopLine="358"/>
</Position20>
<Position21>
<Filename Value="unitconverter.pas"/>
<Caret Line="379" Column="1" TopLine="359"/>
</Position21>
<Position22>
<Filename Value="unitconverter.pas"/>
<Caret Line="381" Column="1" TopLine="359"/>
</Position22>
<Position23>
<Filename Value="unitconverter.pas"/>
<Caret Line="461" Column="1" TopLine="433"/>
</Position23>
<Position24>
<Filename Value="unitconverter.pas"/>
<Caret Line="463" Column="1" TopLine="433"/>
</Position24>
<Position25>
<Filename Value="unitconvertertestcase.pas"/>
<Caret Line="418" Column="54" TopLine="395"/>
</Position25>
<Position26>
<Filename Value="unitconvertertestcase.pas"/>
<Caret Line="419" Column="18" TopLine="395"/>
</Position26>
<Position27>
<Filename Value="unitconvertertestcase.pas"/>
<Caret Line="418" Column="1" TopLine="395"/>
</Position27>
<Position28>
<Filename Value="unitconvertertestcase.pas"/>
<Caret Line="419" Column="50" TopLine="395"/>
</Position28>
<Position29>
<Filename Value="unitconvertertestcase.pas"/>
<Caret Line="418" Column="57" TopLine="394"/>
</Position29>
<Position30>
<Filename Value="unitconverter.pas"/>
<Caret Line="363" Column="1" TopLine="346"/>
</Position30>
</JumpHistory>
</ProjectSession>
<Debugging>
<Watches Count="9">
<Item1>
<Expression Value="fromUnitElements.MassPrefix"/>
</Item1>
<Item2>
<Expression Value="fromUnitElements.MassUnit"/>
</Item2>
<Item3>
<Expression Value="fromUnitElements.VolumePrefix"/>
</Item3>
<Item4>
<Expression Value="fromUnitElements.VolumeUnit"/>
</Item4>
<Item5>
<Expression Value="toUnitElements.MassPrefix"/>
</Item5>
<Item6>
<Expression Value="toUnitElements.MassUnit"/>
</Item6>
<Item7>
<Expression Value="toUnitElements.VolumePrefix"/>
</Item7>
<Item8>
<Expression Value="toUnitElements.VolumeUnit"/>
</Item8>
<Item9>
<Expression Value="ConvertedUnitF"/>
<DisplayStyle Value="wdfString"/>
</Item9>
</Watches>
</Debugging>
</CONFIG>
Binary file added Unit converter 1.2.0/UnitConverterTests.res
Binary file not shown.
16 changes: 16 additions & 0 deletions Unit converter 1.2.0/readme.txt
Original file line number Diff line number Diff line change
@@ -0,0 +1,16 @@
Unit Converter Notes

The Unit Converter is a Pascal unit that provides functions for parsing measurements consisting of measurement values and units. It also supports conversion of measurements from one unit to another one.

In order to use the Unit Converter in your own enterprises you simply have to add the file "unitconverter.pas" to your project. The other files in this directory are for unit testing with FPCUnit. They are not necessary for normal use, except for the case that you want to improve and test the Unit Converter.


About the PUMA repository

The PUMA repository is a collection of units for development of medical applications in Pascal. See http://puma-repository.sf.net for details.


License:
Files of the PUMA repository are licensed with a BSD license. This facilitates their usage in both free open source software and commercial applications.

J. W. Dietrich
Loading

0 comments on commit 91960e2

Please sign in to comment.