From 3778ce9f777a0ab5c5f0cfb66138fd7f600d2bac Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Thu, 19 May 2016 12:51:24 +0200 Subject: Initialer Commit --- .gitignore | 10 ++++++++ gpggraph.lpi | 79 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gpggraph.lpr | 17 +++++++++++++ gpggraph.lps | 79 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ gpggraph.res | Bin 0 -> 1422 bytes 5 files changed, 185 insertions(+) create mode 100644 .gitignore create mode 100644 gpggraph.lpi create mode 100644 gpggraph.lpr create mode 100644 gpggraph.lps create mode 100644 gpggraph.res diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..9d8af59 --- /dev/null +++ b/.gitignore @@ -0,0 +1,10 @@ +gpggraph +*.bak +*.ppu +*.o +*.zip +*.tar.gz +*.out +lib +*~ +Log* diff --git a/gpggraph.lpi b/gpggraph.lpi new file mode 100644 index 0000000..2cce007 --- /dev/null +++ b/gpggraph.lpi @@ -0,0 +1,79 @@ + + + + + + + + + + + + + <ResourceType Value="res"/> + <UseXPManifest Value="True"/> + </General> + <i18n> + <EnableI18N LFM="False"/> + </i18n> + <VersionInfo> + <StringTable ProductVersion=""/> + </VersionInfo> + <BuildModes Count="1"> + <Item1 Name="Default" Default="True"/> + </BuildModes> + <PublishOptions> + <Version Value="2"/> + </PublishOptions> + <RunParams> + <local> + <FormatVersion Value="1"/> + </local> + </RunParams> + <Units Count="1"> + <Unit0> + <Filename Value="gpggraph.lpr"/> + <IsPartOfProject Value="True"/> + </Unit0> + </Units> + </ProjectOptions> + <CompilerOptions> + <Version Value="11"/> + <Target> + <Filename Value="gpggraph"/> + </Target> + <SearchPaths> + <IncludeFiles Value="$(ProjOutDir)"/> + <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> + </SearchPaths> + <CodeGeneration> + <Checks> + <IOChecks Value="True"/> + <RangeChecks Value="True"/> + <OverflowChecks Value="True"/> + <StackChecks Value="True"/> + </Checks> + <VerifyObjMethodCallValidity Value="True"/> + </CodeGeneration> + <Linking> + <Options> + <Win32> + <GraphicApplication Value="True"/> + </Win32> + </Options> + </Linking> + </CompilerOptions> + <Debugging> + <Exceptions Count="3"> + <Item1> + <Name Value="EAbort"/> + </Item1> + <Item2> + <Name Value="ECodetoolError"/> + </Item2> + <Item3> + <Name Value="EFOpenError"/> + </Item3> + </Exceptions> + </Debugging> +</CONFIG> diff --git a/gpggraph.lpr b/gpggraph.lpr new file mode 100644 index 0000000..7c8ce3f --- /dev/null +++ b/gpggraph.lpr @@ -0,0 +1,17 @@ +program gpggraph; + +{$R *.res} + +uses + mystringlistunit; + +var + sl: tMyStringList; + +begin + sl:=tMyStringList.create; + sl.loadFromPipe('gpg --homedir /var/cache/kernelKeys/.gnupg --list-sigs --no-auto-check-trustdb --fast-list-mode --fixed-list-mode'); + writeln(sl.count); + sl.free; +end. + diff --git a/gpggraph.lps b/gpggraph.lps new file mode 100644 index 0000000..b154eba --- /dev/null +++ b/gpggraph.lps @@ -0,0 +1,79 @@ +<?xml version="1.0" encoding="UTF-8"?> +<CONFIG> + <ProjectSession> + <Version Value="9"/> + <BuildModes Active="Default"/> + <Units Count="3"> + <Unit0> + <Filename Value="gpggraph.lpr"/> + <IsPartOfProject Value="True"/> + <IsVisibleTab Value="True"/> + <CursorPos X="16" Y="14"/> + <UsageCount Value="20"/> + <Loaded Value="True"/> + </Unit0> + <Unit1> + <Filename Value="../units/mystringlistunit.pas"/> + <EditorIndex Value="1"/> + <TopLine Value="108"/> + <CursorPos X="25" Y="113"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> + </Unit1> + <Unit2> + <Filename Value="../units/fileunit.pas"/> + <EditorIndex Value="2"/> + <TopLine Value="154"/> + <CursorPos X="28" Y="172"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> + </Unit2> + </Units> + <JumpHistory Count="11" HistoryIndex="10"> + <Position1> + <Filename Value="gpggraph.lpr"/> + <Caret Line="14" Column="19"/> + </Position1> + <Position2> + <Filename Value="gpggraph.lpr"/> + <Caret Line="13" Column="6"/> + </Position2> + <Position3> + <Filename Value="../units/mystringlistunit.pas"/> + <Caret Line="22" Column="25" TopLine="7"/> + </Position3> + <Position4> + <Filename Value="../units/mystringlistunit.pas"/> + <Caret Line="120" Column="24" TopLine="94"/> + </Position4> + <Position5> + <Filename Value="../units/fileunit.pas"/> + <Caret Line="30" Column="26" TopLine="8"/> + </Position5> + <Position6> + <Filename Value="../units/fileunit.pas"/> + <Caret Line="157" Column="18" TopLine="136"/> + </Position6> + <Position7> + <Filename Value="../units/fileunit.pas"/> + <Caret Line="169" Column="18" TopLine="136"/> + </Position7> + <Position8> + <Filename Value="../units/mystringlistunit.pas"/> + <Caret Line="123" Column="9" TopLine="94"/> + </Position8> + <Position9> + <Filename Value="../units/mystringlistunit.pas"/> + <Caret Line="120" Column="26" TopLine="100"/> + </Position9> + <Position10> + <Filename Value="../units/mystringlistunit.pas"/> + <Caret Line="113" Column="25" TopLine="93"/> + </Position10> + <Position11> + <Filename Value="../units/mystringlistunit.pas"/> + <Caret Line="23" Column="15" TopLine="3"/> + </Position11> + </JumpHistory> + </ProjectSession> +</CONFIG> diff --git a/gpggraph.res b/gpggraph.res new file mode 100644 index 0000000..e1df0e9 Binary files /dev/null and b/gpggraph.res differ -- cgit v1.2.3-54-g00ecf