TclGPG  Check-in [9a3ebdb085]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed a harmless but annoying warning with integer to pointer conversion.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 9a3ebdb085d19ff26f60d78477690974e6002a93
User & Date: sgolovan 2015-12-26 10:13:43
Context
2015-12-26
13:32
Added new property pinentry-mode. It can be used with gpg 2.1 to use custom passphrase callbacks. Also, allowed the input message to sign and the passphrase to be supplied to gpg in any order (doesn't work without C helper). Added a few tests for pinentry-mode and documented it shortly in the manual page. check-in: cc12c7dc06 user: sgolovan tags: trunk
10:13
Fixed a harmless but annoying warning with integer to pointer conversion. check-in: 9a3ebdb085 user: sgolovan tags: trunk
07:25
Take the name of GnuPG executable from the $GPG_EXECUTABLE environment variable if it's set. check-in: 82ad8f2e80 user: sgolovan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.

1
2
3
4



5
6
7
8
9
10
11
2015-12-26  Sergei Golovan  <sgolovan@nes.ru>

	* doc/gpg.man, tclgpg.tcl: Take the name of GnuPG executable from
	  the $GPG_EXECUTABLE environment variable if it's set.




2015-10-08  Sergei Golovan  <sgolovan@nes.ru>

	* tclgpg.tcl: Fixed work with GnuPG 2.1 which doesn't require the
	  GPG_AGENT_INFO environment variable to be defined.

	* doc/gpg.man, tclgpg.tcl: Extended copyright period.




>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
2015-12-26  Sergei Golovan  <sgolovan@nes.ru>

	* doc/gpg.man, tclgpg.tcl: Take the name of GnuPG executable from
	  the $GPG_EXECUTABLE environment variable if it's set.

	* tclgpg.c: Fixed a harmless but annoying warning with integer to
	  pointer conversion.

2015-10-08  Sergei Golovan  <sgolovan@nes.ru>

	* tclgpg.tcl: Fixed work with GnuPG 2.1 which doesn't require the
	  GPG_AGENT_INFO environment variable to be defined.

	* doc/gpg.man, tclgpg.tcl: Extended copyright period.

Changes to tclgpg.c.

1
2
3
4
5
6
7
8
9
10
11
12
/* tclgpgme.c --
 *
 *      Tcl interface to GNU Privacy Guard -- wrapper around gpg call.
 *
 * Copyright (c) 2008-2009 Sergei Golovan <sgolovan@nes.ru>
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAMER OF ALL WARRANTIES.
 */

#include <tcl.h>
#include <stdio.h>




|







1
2
3
4
5
6
7
8
9
10
11
12
/* tclgpgme.c --
 *
 *      Tcl interface to GNU Privacy Guard -- wrapper around gpg call.
 *
 * Copyright (c) 2008-2015 Sergei Golovan <sgolovan@nes.ru>
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAMER OF ALL WARRANTIES.
 */

#include <tcl.h>
#include <stdio.h>
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Tcl_Obj *CloseAndCreateChan(Tcl_Interp *interp,
                            int         cpipe,
                            int         dpipe,
                            int         readOrWrite) {
    Tcl_Channel chan;

    close(cpipe);
    chan = Tcl_MakeFileChannel((ClientData) dpipe, readOrWrite);
    Tcl_RegisterChannel(interp, chan);
    return Tcl_NewStringObj(Tcl_GetChannelName(chan),-1);
}

/* Gpg_Exec --
 *
 *        Spawn GPG process and prepare several Tcl channels for communication.







|







65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
Tcl_Obj *CloseAndCreateChan(Tcl_Interp *interp,
                            int         cpipe,
                            int         dpipe,
                            int         readOrWrite) {
    Tcl_Channel chan;

    close(cpipe);
    chan = Tcl_MakeFileChannel((ClientData) (intptr_t) dpipe, readOrWrite);
    Tcl_RegisterChannel(interp, chan);
    return Tcl_NewStringObj(Tcl_GetChannelName(chan),-1);
}

/* Gpg_Exec --
 *
 *        Spawn GPG process and prepare several Tcl channels for communication.