Procházet zdrojové kódy

* adds examples dir with basic loadlibrary example to openssl

git-svn-id: trunk@7890 -
Almindor před 18 roky
rodič
revize
096d5b8485

+ 2 - 0
.gitattributes

@@ -3011,6 +3011,8 @@ packages/extra/opengl/tinygl.inc -text
 packages/extra/opengl/tinyglh.inc -text
 packages/extra/openssl/Makefile svneol=native#text/plain
 packages/extra/openssl/Makefile.fpc svneol=native#text/plain
+packages/extra/openssl/examples/Makefile svneol=native#text/plain
+packages/extra/openssl/examples/test1.pas svneol=native#text/plain
 packages/extra/openssl/fpmake.inc svneol=native#text/plain
 packages/extra/openssl/fpmake.pp svneol=native#text/plain
 packages/extra/openssl/openssl.pas -text svneol=unset#text/plain

+ 9 - 0
packages/extra/openssl/examples/Makefile

@@ -0,0 +1,9 @@
+PP=fpc
+ARGS=-O2 -XX -Xs
+DELP=delp
+
+all:
+	$(PP) $(ARGS) test1.pas
+
+clean:
+	$(DELP) .

+ 14 - 0
packages/extra/openssl/examples/test1.pas

@@ -0,0 +1,14 @@
+program test1;
+
+{$mode objfpc}{$H+}
+
+uses
+  OpenSSL;
+
+begin
+  if InitSSLInterface then
+    Writeln('Success')
+  else
+    Writeln('Holy shit!');
+end.
+