Import Upstream version 1.9.0

2019-04-29 15:42:59 +02:00
commit a60b7c6315
@@ -0,0 +1,29 @@
+K 25
+svn:wc:ra_dav:version-url
+V 65
+/svnroot/g15daemon/!svn/ver/103/trunk/g15daemon-wip/lang-bindings
+END
+perl-G15Daemon-0.2.tar.gz
+K 25
+svn:wc:ra_dav:version-url
+V 91
+/svnroot/g15daemon/!svn/ver/103/trunk/g15daemon-wip/lang-bindings/perl-G15Daemon-0.2.tar.gz
+END
+pyg15daemon-0.0.tar.bz2
+K 25
+svn:wc:ra_dav:version-url
+V 89
+/svnroot/g15daemon/!svn/ver/103/trunk/g15daemon-wip/lang-bindings/pyg15daemon-0.0.tar.bz2
+END
+G15Daemon.pm
+K 25
+svn:wc:ra_dav:version-url
+V 78
+/svnroot/g15daemon/!svn/ver/103/trunk/g15daemon-wip/lang-bindings/G15Daemon.pm
+END
+README
+K 25
+svn:wc:ra_dav:version-url
+V 72
+/svnroot/g15daemon/!svn/ver/103/trunk/g15daemon-wip/lang-bindings/README
+END
@@ -0,0 +1,80 @@
+8
+
+dir
+251
+https://svn.sourceforge.net/svnroot/g15daemon/trunk/g15daemon-wip/lang-bindings
+https://svn.sourceforge.net/svnroot/g15daemon
+
+
+
+2006-11-09T21:23:46.211835Z
+103
+mlampard
+
+
+svn:special svn:externals svn:needs-lock
+
+
+
+
+
+
+
+
+
+
+
+ab83d0d9-5618-0410-a047-8efd564e0644
+
+perl-G15Daemon-0.2.tar.gz
+file
+
+
+
+
+2006-12-25T21:02:07.000000Z
+e4a60ccd47ceeb28a9322a12ddc3eae0
+2006-11-09T21:23:46.211835Z
+103
+mlampard
+has-props
+
+pyg15daemon-0.0.tar.bz2
+file
+
+
+
+
+2006-12-25T21:02:07.000000Z
+dbf57324f0bef4625b9fb75d8122c86a
+2006-11-09T21:23:46.211835Z
+103
+mlampard
+has-props
+
+G15Daemon.pm
+file
+
+
+
+
+2006-12-25T21:02:07.000000Z
+6c2a3e258866b77162a3e758bf03ce2e
+2006-11-09T21:23:46.211835Z
+103
+mlampard
+has-props
+
+README
+file
+
+
+
+
+2006-12-25T21:02:07.000000Z
+e353e41bc9d3d686a4258961bbf48331
+2006-11-09T21:23:46.211835Z
+103
+mlampard
+has-props
+
@@ -0,0 +1 @@
+8
@@ -0,0 +1,13 @@
+K 13
+svn:eol-style
+V 6
+native
+K 12
+svn:keywords
+V 23
+Author Date Id Revision
+K 13
+svn:mime-type
+V 10
+text/plain
+END
@@ -0,0 +1,13 @@
+K 13
+svn:eol-style
+V 6
+native
+K 12
+svn:keywords
+V 23
+Author Date Id Revision
+K 13
+svn:mime-type
+V 10
+text/plain
+END
@@ -0,0 +1,5 @@
+K 13
+svn:mime-type
+V 24
+application/octet-stream
+END
@@ -0,0 +1,5 @@
+K 13
+svn:mime-type
+V 24
+application/octet-stream
+END
@@ -0,0 +1,99 @@
+package G15Daemon;
+use base 'Exporter';
+use warnings;
+use strict;
+
+use 5.008007;
+our $VERSION = '0.2';
+
+require Exporter;
+
+our @EXPORT = qw( $g15wbmp $g15pbuf $g15txt );
+
+use Inline C =>
+        DATA => 
+        LIBS => '-lg15daemon_client';
+
+our $WIDTH = '160';
+our $HEIGHT = '43';
+
+*g15pbuf = \0;
+*g15txt = \1;
+*g15wbmp = \2;
+
+sub apiversion {
+  my $self = shift;
+  return g15version();
+}
+
+sub width {
+  my $self = shift;
+  return $WIDTH;
+}
+sub height {
+  my $self = shift;
+  return $HEIGHT;
+}
+
+sub new
+{
+  my ($class, $screentype) = @_;
+  my $sock = g15newscreen ($screentype);
+  my $self = {socket => $sock};
+  bless $self, $_[0];
+}
+
+sub DESTROY {
+  my $self = shift;
+  return g15closescreen($self->{socket});
+}
+
+sub closescreen {
+  my $self = shift;
+  return g15closescreen($self->{socket});
+}
+
+sub send {
+  my $self = shift;
+  my ($buffer) = @_;
+  my $len = length($buffer);
+  return g15send($self->{socket}, $buffer, $len);
+}
+
+sub recv{
+  my $self = shift;
+  my ($buffer, $len) = @_;
+  return g15recv($self->{socket}, $buffer, $len);
+}
+
+1;
+
+__DATA__
+__C__
+
+#include <g15daemon_client.h>
+
+SV* g15version() {
+  return newSVpvf("%s\n", G15DAEMON_VERSION);
+}
+
+int g15newscreen (int screentype) {
+  return new_g15_screen(screentype);
+}
+
+int g15closescreen(int sockfd) {
+  return g15_close_screen(sockfd);
+}
+
+int g15send(int sockfd, char *buf, unsigned int len) {
+  int retval = g15_send(sockfd, buf, len);
+  memset(buf,0,len);
+  return retval;
+}
+
+char * g15recv(int sockfd, char *buf, unsigned int len) {
+  g15_recv(sockfd, buf, len);
+  return buf;
+}
+
+__END__
@@ -0,0 +1,16 @@
+***** Perl bindings *****
+To use the perl language bindings for libg15daemon_client, copy the
+G15Daemon.pm file into a perl include folder, or untar the archive and run
+the makefile with:
+
+perl Makefile.PL && make && make install
+
+You'll need to have the
+Inline:: perl module installed, which is (as usual) available on CPAN.
+
+The bindings are pretty basic, see the contribs folder for an example of
+use.
+
+***** Python Bindings *****
+The pyg15daemon bindings are available in this folder, or the latest release
+of these bindings are available at http://abraumhal.de/pyg15daemon/
@@ -0,0 +1,99 @@
+package G15Daemon;
+use base 'Exporter';
+use warnings;
+use strict;
+
+use 5.008007;
+our $VERSION = '0.2';
+
+require Exporter;
+
+our @EXPORT = qw( $g15wbmp $g15pbuf $g15txt );
+
+use Inline C =>
+        DATA => 
+        LIBS => '-lg15daemon_client';
+
+our $WIDTH = '160';
+our $HEIGHT = '43';
+
+*g15pbuf = \0;
+*g15txt = \1;
+*g15wbmp = \2;
+
+sub apiversion {
+  my $self = shift;
+  return g15version();
+}
+
+sub width {
+  my $self = shift;
+  return $WIDTH;
+}
+sub height {
+  my $self = shift;
+  return $HEIGHT;
+}
+
+sub new
+{
+  my ($class, $screentype) = @_;
+  my $sock = g15newscreen ($screentype);
+  my $self = {socket => $sock};
+  bless $self, $_[0];
+}
+
+sub DESTROY {
+  my $self = shift;
+  return g15closescreen($self->{socket});
+}
+
+sub closescreen {
+  my $self = shift;
+  return g15closescreen($self->{socket});
+}
+
+sub send {
+  my $self = shift;
+  my ($buffer) = @_;
+  my $len = length($buffer);
+  return g15send($self->{socket}, $buffer, $len);
+}
+
+sub recv{
+  my $self = shift;
+  my ($buffer, $len) = @_;
+  return g15recv($self->{socket}, $buffer, $len);
+}
+
+1;
+
+__DATA__
+__C__
+
+#include <g15daemon_client.h>
+
+SV* g15version() {
+  return newSVpvf("%s\n", G15DAEMON_VERSION);
+}
+
+int g15newscreen (int screentype) {
+  return new_g15_screen(screentype);
+}
+
+int g15closescreen(int sockfd) {
+  return g15_close_screen(sockfd);
+}
+
+int g15send(int sockfd, char *buf, unsigned int len) {
+  int retval = g15_send(sockfd, buf, len);
+  memset(buf,0,len);
+  return retval;
+}
+
+char * g15recv(int sockfd, char *buf, unsigned int len) {
+  g15_recv(sockfd, buf, len);
+  return buf;
+}
+
+__END__
@@ -0,0 +1,16 @@
+***** Perl bindings *****
+To use the perl language bindings for libg15daemon_client, copy the
+G15Daemon.pm file into a perl include folder, or untar the archive and run
+the makefile with:
+
+perl Makefile.PL && make && make install
+
+You'll need to have the
+Inline:: perl module installed, which is (as usual) available on CPAN.
+
+The bindings are pretty basic, see the contribs folder for an example of
+use.
+
+***** Python Bindings *****
+The pyg15daemon bindings are available in this folder, or the latest release
+of these bindings are available at http://abraumhal.de/pyg15daemon/