pilot-link/pilot-link-0.11.2-malsync.patch
cvsdist bcfb1cfa4e auto-import changelog data from pilot-link-0.11.2-1.src.rpm
Tue Aug 06 2002 Than Ngo <than@redhat.com> 0.11.2-1
- 0.11.2 (bug #70889)
- add missing static library
Mon Jul 22 2002 Tim Powers <timp@redhat.com> 0.11.0-4
- rebuild using gcc-3.2-0.1
Thu Jul 18 2002 Tim Powers <timp@redhat.com> 0.11.0-3
- add %{_libdir}/libpisock++.so and %{_libdir}/libpisock++.so.* to the file
    lists to fix the broken deps
Thu Jul 18 2002 Than Ngo <than@redhat.com> 0.11.0-2
- Added missing some symlinks
Thu Jul 18 2002 Than Ngo <than@redhat.com> 0.11.0-1
- 0.11.0 (bug #69135)
- Adapted patches into 0.11.0
Fri Jun 21 2002 Tim Powers <timp@redhat.com>
- automated rebuild
Wed Jun 19 2002 Than Ngo <than@redhat.com> 0.9.5-19
- don't forcibly strip binaries
Tue Jun 11 2002 Than Ngo <than@redhat.com> 0.9.5-18
- get rid of tcl/tk dependency (bug #66480)
Wed Jun 05 2002 Than Ngo <than@redhat.com> 0.9.5-17
- add rpmlint filter rpmlint bug #66008
- add malsync-supporting bug #64882
Thu May 23 2002 Tim Powers <timp@redhat.com>
- automated rebuild
2004-09-09 10:29:29 +00:00

96 lines
2.2 KiB
Diff

--- pilot-link-0.11.2/bindings/Perl/Makefile.PL.in.malsync 2002-08-06 22:04:46.000000000 +0200
+++ pilot-link-0.11.2/bindings/Perl/Makefile.PL.in 2002-08-06 22:08:12.000000000 +0200
@@ -11,7 +11,7 @@
WriteMakefile(
'NAME' => 'PDA::Pilot',
'VERSION' => '@PILOT_LINK_VERS@.@PILOT_LINK_MAJOR@.@PILOT_LINK_MINOR@',
- 'LIBS' => $lib,
+ 'LDFROM' => "Pilot.o $lib",
'XSPROTOARG' => '-noprototypes',
'INC' => '-I../../include',
);
--- pilot-link-0.11.2/bindings/Perl/Pilot.pm.malsync 2001-12-30 21:26:00.000000000 +0100
+++ pilot-link-0.11.2/bindings/Perl/Pilot.pm 2002-08-06 22:04:46.000000000 +0200
@@ -755,8 +755,16 @@
Returns last DLP error, resetting error to zero.
+=item PDA::Pilot::DLP::socket()
+
+Returns DLP socket.
+
=item PDA::Pilot::DLP::GetSysDateTime(socket)
+=item PDA::Pilot::DLP::socket()
+
+Returns the socket in use by DLP.
+
Same as DLP call dlp_GetSysDateTime. If successfull, returns time, otherwise
returns undef.
--- pilot-link-0.11.2/bindings/Perl/Pilot.xs.malsync 2002-08-06 22:04:46.000000000 +0200
+++ pilot-link-0.11.2/bindings/Perl/Pilot.xs 2002-08-06 22:04:46.000000000 +0200
@@ -23,6 +23,10 @@
#include "XSUB.h"
#include "patchlevel.h"
+#include <netinet/in.h>
+#include <sys/socket.h>
+#include <netinet/tcp.h>
+
#include "pi-macros.h"
#include "pi-file.h"
#include "pi-datebook.h"
@@ -2270,7 +2274,7 @@
if (len > sizeof(mybuf))
len = sizeof(mybuf);
result = pi_read(socket, mybuf, len);
- if (result >=0)
+ if (result > 0)
RETVAL = newSVpv(mybuf, result);
else
RETVAL = &PL_sv_undef;
@@ -2353,6 +2357,26 @@
OUTPUT:
RETVAL
+int
+connect(port)
+ char * port
+ CODE:
+ {
+ struct pi_sockaddr a;
+ int socket;
+
+ socket = pi_socket(PI_AF_PILOT, PI_SOCK_STREAM, PI_PF_PADP);
+ strcpy(a.pi_device, port);
+ a.pi_family = PI_AF_PILOT;
+
+ if (pi_connect(socket, (struct sockaddr*)&a, sizeof(a)))
+ RETVAL = 0;
+ else
+ RETVAL = socket;
+ }
+ OUTPUT:
+ RETVAL
+
SV *
accept(socket)
int socket
@@ -3020,6 +3044,15 @@
OUTPUT:
RETVAL
+int
+socket(self)
+ PDA::Pilot::DLP * self
+ CODE:
+ RETVAL = self->socket;
+ OUTPUT:
+ RETVAL
+
+
SV *
getTime(self)
PDA::Pilot::DLP * self