Skip to content

PR #24

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
eblaudy wants to merge 5 commits into
base: master
Choose a base branch
from
Open

PR #24

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
2f5c44f
Remove lps because Lazarus Project Session files are regenerated by t…
eblaudy Mar 5, 2021
aa2e654
Fix for FPC compilation (use {H+} switch instead of AnsiStrings) + $5…
eblaudy Mar 5, 2021
45251de
Create lazarus lpk package
eblaudy Mar 5, 2021
62c2661
Create .gitignore
eblaudy Mar 5, 2021
5e26a9e
Use package in lazarus samples
eblaudy Mar 5, 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
7 changes: 7 additions & 0 deletions .gitignore
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,7 @@
backup/
*.bak
*.compiled
*.o
*.lps
*.ppu
*.exe
6 changes: 4 additions & 2 deletions Common/uSMBIOS.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -25,6 +25,9 @@ interface
{$IFDEF FPC}
{$DEFINE NOGENERICS}
{$MODE objfpc}
{$IFDEF MSWINDOWS}
{$H+}
{$ENDIF}
{$ELSE}
{$IFDEF LINUX}
{$DEFINE UNIX}
Expand All @@ -51,7 +54,6 @@ interface
uses
SysUtils,
{$IFDEF MSWINDOWS}
AnsiStrings,
Windows,
{$ENDIF}
{$IFNDEF NOGENERICS}
Expand Down Expand Up @@ -4038,7 +4040,7 @@ implementation
const
SMBIOS_ANCHOR_STRING_VALUE = $5F4D535F;
// '_DMI_'
SMBIOS_INTERMEDIATE_ANCHOR_STRING_VALUE = [$5F, $44, $4D, $49, $5F];
SMBIOS_INTERMEDIATE_ANCHOR_STRING_VALUE = [$5F, $44, $4D, $49];

function GetBit(const AValue: DWORD; const Bit: Byte): Boolean;
begin
Expand Down
37 changes: 37 additions & 0 deletions Packages/tsmbios.lpk
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,37 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Package Version="4">
<PathDelim Value="\"/>
<Name Value="tsmbios"/>
<Type Value="RunAndDesignTime"/>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="..\Common"/>
<Libraries Value="..\Common"/>
<OtherUnitFiles Value="..\Common"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
</CompilerOptions>
<Files Count="1">
<Item1>
<Filename Value="..\Common\uSMBIOS.pas"/>
<UnitName Value="uSMBIOS"/>
</Item1>
</Files>
<RequiredPkgs Count="1">
<Item1>
<PackageName Value="FCL"/>
</Item1>
</RequiredPkgs>
<UsageOptions>
<IncludePath Value="$(PkgIncPath)"/>
<UnitPath Value="$(PkgOutDir)"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
<UseFileFilters Value="True"/>
</PublishOptions>
</Package>
</CONFIG>
21 changes: 21 additions & 0 deletions Packages/tsmbios.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,21 @@
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
}

unit tsmbios;

{$warn 5023 off : no warning about unused units}
interface

uses
uSMBIOS, LazarusPackageIntf;

implementation

procedure Register;
begin
end;

initialization
RegisterPackage('tsmbios', @Register);
end.
20 changes: 10 additions & 10 deletions Samples Lazarus/List SMBIOS Tables/SMBiosTables.lpi
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<General>
<Flags>
Expand All @@ -17,22 +17,23 @@
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</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>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default"/>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="tsmbios"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="SMBiosTables.lpr"/>
Expand All @@ -52,7 +53,6 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="..\..\Common"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
</CompilerOptions>
Expand Down
172 changes: 0 additions & 172 deletions Samples Lazarus/List SMBIOS Tables/SMBiosTables.lps
View file
Open in desktop

This file was deleted.

30 changes: 11 additions & 19 deletions Samples Lazarus/Table 0 Bios Info/BIOSInfo.lpi
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
<?xml version="1.0"?>
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<General>
<Flags>
Expand All @@ -17,32 +17,31 @@
<i18n>
<EnableI18N LFM="False"/>
</i18n>
<VersionInfo>
<StringTable ProductVersion=""/>
</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>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default"/>
</Modes>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="tsmbios"/>
</Item1>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="BIOSInfo.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="BIOSInfo"/>
</Unit0>
<Unit1>
<Filename Value="..\..\Common\uSMBIOS.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="uSMBIOS"/>
</Unit1>
</Units>
</ProjectOptions>
Expand All @@ -54,15 +53,8 @@
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value="..\..\Common"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Other>
<CompilerMessages>
<MsgFileName Value=""/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
Expand Down
Loading