Swap is a simple program to transfer files.

Swap requires Tcl/Tk version 8.3 or later.

Source code: swap.tcl

Screenshot: swap.png

Start Swap with:
      wish swap.tcl
and click on "Share..." to select the folder you want to share. Nothing is shared by default, and you don't need to share anything if you don't want to.

To connect to a peer, enter its IP or host name and click "Connect...". You are shown the files made available by the peer. Select the files you want to fetch and click "Fetch selected", or click "Fetch all" to fetch all files. Existing local files are automatically resumed if they are smaller than the corresponding remote file.

You can simultaneously connect to different peers and transfer files in parallel from any number of peers.

Share a directory from the command-line:
      ./swap.tcl -share Directory
Connect from the command-line:
      ./swap.tcl -connect IP
Share directory without X:
      tclsh swap.tcl -share Directory -nogui
Fetch specific files without X:
      tclsh swap.tcl -nogui -connect IP -fetch file1 file2 file3 ...
Fetch all files without X:
      tclsh swap.tcl -nogui -connect IP -fetchall

Main page