Git-Url:
http://git.frugalware.org/gitweb/gitweb.cgi?p=cfpm.git;a=commitdiff;h=23ad9607950caaaf2abeae7b7549575aa0d8508f
commit 23ad9607950caaaf2abeae7b7549575aa0d8508f
Author: James Buren <r...@frugalware.org>
Date: Mon Aug 3 06:34:33 2009 -0500
Test.pas
* remove
diff --git a/Test.pas b/Test.pas
deleted file mode 100644
index a3e637c..0000000
--- a/Test.pas
+++ /dev/null
@@ -1,39 +0,0 @@
-Program Test;
-
-Uses Pacman;
-
-Var
- Ret : Integer;
- Db : PPM_DB;
- Pkg : PPM_PKG;
- PkgName : AnsiString;
-
-Begin
-WriteLn('Initializing pacman, phase 1.');
-Ret := pacman_initialize(PM_ROOT);
-if Ret = 0 then
- WriteLn('Success.');
-WriteLn('Initializing pacman, phase 2.');
-Ret := pacman_initialize(PM_ROOT);
-if Ret = -1 then
- WriteLn('Failure.');
-WriteLn('Registering local database.');
-Db := pacman_db_register('local');
-If Db <> Nil Then
-Begin
- WriteLn('Specify a package.');
- Read(PkgName);
- Pkg := pacman_db_readpkg(Db,PChar(PkgName));
- If Pkg <> Nil Then
- Begin
- WriteLn('Package Name: ',PChar(pacman_pkg_getinfo(Pkg,PM_PKG_NAME)));
- WriteLn('Package Version:
',PChar(pacman_pkg_getinfo(Pkg,PM_PKG_VERSION)));
- End
- Else
- WriteLn('Package not found: ',PkgName);
-End
-Else
- WriteLn('Failure.');
-WriteLn('Releasing pacman.');
-pacman_release;
-End.
_______________________________________________
Frugalware-git mailing list
Frugalware-git@frugalware.org
http://frugalware.org/mailman/listinfo/frugalware-git
