? linuxmag
? linuxmag.pl
? testapdu
Index: Makefile
===================================================================
RCS file: /cvsroot/gprolog/contribs/gplpcsc/Makefile,v
retrieving revision 1.2
diff -u -r1.2 Makefile
--- Makefile	13 May 2003 07:39:33 -0000	1.2
+++ Makefile	1 Oct 2008 19:46:14 -0000
@@ -1,10 +1,10 @@
-MUSCLE_HDRS = -I/usr/local/include
-MUSCLE_LIBS = -L/usr/local/lib -lpcsclite -lcrypto -lpthread
+MUSCLE_HDRS = `pkg-config --cflags libpcsclite`
+MUSCLE_LIBS = `pkg-config --libs libpcsclite` -lcrypto -lpthread
 
-CFLAGS='-Wall -g $(MUSCLE_HDRS)'
-LFLAGS='$(MUSCLE_LIBS)'
+CFLAGS="-Wall -g $(MUSCLE_HDRS)"
+LFLAGS="$(MUSCLE_LIBS)"
 
-EXECS = testapdu
+EXECS = testapdu linuxmag
 
 all: $(EXECS)
 
@@ -13,6 +13,9 @@
 	gplc -c -C $(CFLAGS)  pcsc/muscle_c.c
 
 
+linuxmag: linuxmag.pl pcsc/muscle_c.o
+	gplc -o linuxmag pcsc/muscle_c.o  -L $(LFLAGS)  linuxmag.pl util_pcsc/util.pl
+
 testapdu: testapdu.pl pcsc/muscle_c.o
 	gplc -o testapdu pcsc/muscle_c.o  -L $(LFLAGS)  testapdu.pl util_pcsc/util.pl
 
Index: pcsc/muscle_c.c
===================================================================
RCS file: /cvsroot/gprolog/contribs/gplpcsc/pcsc/muscle_c.c,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 muscle_c.c
--- pcsc/muscle_c.c	12 Apr 2002 13:24:46 -0000	1.1.1.1
+++ pcsc/muscle_c.c	1 Oct 2008 19:46:14 -0000
@@ -32,7 +32,7 @@
   LONG rv;
 
 	Set_C_Bip_Name("scard_establish_context", 2);
-	 rv = SCardEstablishContext( SCARD_SCOPE_GLOBAL, pcHost, NULL, hContext );
+	 rv = SCardEstablishContext( SCARD_SCOPE_SYSTEM, pcHost, NULL, hContext );
   if ( rv != SCARD_S_SUCCESS ) {
 		raise_sys_error(rv);
   }
@@ -125,7 +125,7 @@
 }
 
 Bool 
-scard_status_C(long hCard, long* state, PlTerm atrL)
+scard_status_C(long hCard, unsigned long* state, PlTerm atrL)
 {
   LONG rv;
 	DWORD dwProtocol, cbAtrLen, dwReaders = MAX_READERNAME;