Swap is a simple program to transfer files.
Swap requires Tcl/Tk version 8.3 or later.
Source code: swap.tcl
Start Swap with:
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