<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<!-- Generated by HsColour, http://code.haskell.org/~malcolm/hscolour/ -->
<title>src/Darcs/Commands/TransferMode.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='hs-comment'>-- Copyright (C) 2008 David Roundy</span>
<a name="line-2"></a><span class='hs-comment'>--</span>
<a name="line-3"></a><span class='hs-comment'>-- This program is free software; you can redistribute it and/or modify</span>
<a name="line-4"></a><span class='hs-comment'>-- it under the terms of the GNU General Public License as published by</span>
<a name="line-5"></a><span class='hs-comment'>-- the Free Software Foundation; either version 2, or (at your option)</span>
<a name="line-6"></a><span class='hs-comment'>-- any later version.</span>
<a name="line-7"></a><span class='hs-comment'>--</span>
<a name="line-8"></a><span class='hs-comment'>-- This program is distributed in the hope that it will be useful,</span>
<a name="line-9"></a><span class='hs-comment'>-- but WITHOUT ANY WARRANTY; without even the implied warranty of</span>
<a name="line-10"></a><span class='hs-comment'>-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the</span>
<a name="line-11"></a><span class='hs-comment'>-- GNU General Public License for more details.</span>
<a name="line-12"></a><span class='hs-comment'>--</span>
<a name="line-13"></a><span class='hs-comment'>-- You should have received a copy of the GNU General Public License</span>
<a name="line-14"></a><span class='hs-comment'>-- along with this program; see the file COPYING. If not, write to</span>
<a name="line-15"></a><span class='hs-comment'>-- the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,</span>
<a name="line-16"></a><span class='hs-comment'>-- Boston, MA 02110-1301, USA.</span>
<a name="line-17"></a>
<a name="line-18"></a><span class='hs-comment'>{-# LANGUAGE CPP, PatternGuards #-}</span>
<a name="line-19"></a>
<a name="line-20"></a><span class='hs-comment'>-- The pragma above is only for pattern guards.</span>
<a name="line-21"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Commands</span><span class='hs-varop'>.</span><span class='hs-conid'>TransferMode</span> <span class='hs-layout'>(</span> <span class='hs-varid'>transferMode</span> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-22"></a>
<a name="line-23"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Prelude</span> <span class='hs-varid'>hiding</span> <span class='hs-layout'>(</span> <span class='hs-varid'>catch</span> <span class='hs-layout'>)</span>
<a name="line-24"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Exception</span><span class='hs-varop'>.</span><span class='hs-conid'>Extensible</span> <span class='hs-layout'>(</span> <span class='hs-varid'>catch</span> <span class='hs-layout'>)</span>
<a name="line-25"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>IO</span> <span class='hs-layout'>(</span> <span class='hs-varid'>stdout</span><span class='hs-layout'>,</span> <span class='hs-varid'>hFlush</span> <span class='hs-layout'>)</span>
<a name="line-26"></a>
<a name="line-27"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Utils</span> <span class='hs-layout'>(</span> <span class='hs-varid'>withCurrentDirectory</span><span class='hs-layout'>,</span> <span class='hs-varid'>prettyException</span> <span class='hs-layout'>)</span>
<a name="line-28"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Commands</span> <span class='hs-layout'>(</span> <span class='hs-conid'>DarcsCommand</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>nodefaults</span> <span class='hs-layout'>)</span>
<a name="line-29"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Arguments</span> <span class='hs-layout'>(</span> <span class='hs-conid'>DarcsFlag</span><span class='hs-layout'>,</span> <span class='hs-varid'>workingRepoDir</span> <span class='hs-layout'>)</span>
<a name="line-30"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Repository</span> <span class='hs-layout'>(</span> <span class='hs-varid'>amInRepository</span> <span class='hs-layout'>)</span>
<a name="line-31"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Progress</span> <span class='hs-layout'>(</span> <span class='hs-varid'>setProgressMode</span> <span class='hs-layout'>)</span>
<a name="line-32"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Darcs</span><span class='hs-varop'>.</span><span class='hs-conid'>Global</span> <span class='hs-layout'>(</span> <span class='hs-varid'>darcsdir</span> <span class='hs-layout'>)</span>
<a name="line-33"></a>
<a name="line-34"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>B</span> <span class='hs-layout'>(</span><span class='hs-varid'>hPut</span><span class='hs-layout'>,</span> <span class='hs-varid'>readFile</span><span class='hs-layout'>,</span> <span class='hs-varid'>length</span><span class='hs-layout'>,</span> <span class='hs-conid'>ByteString</span><span class='hs-layout'>)</span>
<a name="line-35"></a>
<a name="line-36"></a><a name="transferModeDescription"></a><span class='hs-definition'>transferModeDescription</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span>
<a name="line-37"></a><span class='hs-definition'>transferModeDescription</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"Internal command for efficient ssh transfers."</span>
<a name="line-38"></a>
<a name="line-39"></a><a name="transferModeHelp"></a><span class='hs-definition'>transferModeHelp</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span>
<a name="line-40"></a><span class='hs-definition'>transferModeHelp</span> <span class='hs-keyglyph'>=</span>
<a name="line-41"></a> <span class='hs-str'>"When pulling from or pushing to a remote repository over ssh, if both\n"</span> <span class='hs-varop'>++</span>
<a name="line-42"></a> <span class='hs-str'>"the local and remote ends have Darcs 2, the `transfer-mode' command\n"</span> <span class='hs-varop'>++</span>
<a name="line-43"></a> <span class='hs-str'>"will be invoked on the remote end. This allows Darcs to intelligently\n"</span> <span class='hs-varop'>++</span>
<a name="line-44"></a> <span class='hs-str'>"transfer information over a single ssh connection.\n"</span> <span class='hs-varop'>++</span>
<a name="line-45"></a> <span class='hs-str'>"\n"</span> <span class='hs-varop'>++</span>
<a name="line-46"></a> <span class='hs-str'>"If either end runs Darcs 1, a separate ssh connection will be created\n"</span> <span class='hs-varop'>++</span>
<a name="line-47"></a> <span class='hs-str'>"for each transfer. As well as being less efficient, this means users\n"</span> <span class='hs-varop'>++</span>
<a name="line-48"></a> <span class='hs-str'>"who do not run ssh-agent will be prompted for the ssh password tens or\n"</span> <span class='hs-varop'>++</span>
<a name="line-49"></a> <span class='hs-str'>"hundreds of times!\n"</span>
<a name="line-50"></a>
<a name="line-51"></a><a name="transferMode"></a><span class='hs-definition'>transferMode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DarcsCommand</span>
<a name="line-52"></a><span class='hs-definition'>transferMode</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DarcsCommand</span> <span class='hs-layout'>{</span><span class='hs-varid'>commandProgramName</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"darcs"</span><span class='hs-layout'>,</span>
<a name="line-53"></a> <span class='hs-varid'>commandName</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"transfer-mode"</span><span class='hs-layout'>,</span>
<a name="line-54"></a> <span class='hs-varid'>commandHelp</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>transferModeHelp</span><span class='hs-layout'>,</span>
<a name="line-55"></a> <span class='hs-varid'>commandDescription</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>transferModeDescription</span><span class='hs-layout'>,</span>
<a name="line-56"></a> <span class='hs-varid'>commandExtraArgs</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>0</span><span class='hs-layout'>,</span>
<a name="line-57"></a> <span class='hs-varid'>commandExtraArgHelp</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>[]</span><span class='hs-layout'>,</span>
<a name="line-58"></a> <span class='hs-varid'>commandGetArgPossibilities</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-conid'>[]</span><span class='hs-layout'>,</span>
<a name="line-59"></a> <span class='hs-varid'>commandCommand</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>transferModeCmd</span><span class='hs-layout'>,</span>
<a name="line-60"></a> <span class='hs-varid'>commandPrereq</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>amInRepository</span><span class='hs-layout'>,</span>
<a name="line-61"></a> <span class='hs-varid'>commandArgdefaults</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>nodefaults</span><span class='hs-layout'>,</span>
<a name="line-62"></a> <span class='hs-varid'>commandAdvancedOptions</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>[]</span><span class='hs-layout'>,</span>
<a name="line-63"></a> <span class='hs-varid'>commandBasicOptions</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span><span class='hs-varid'>workingRepoDir</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>}</span>
<a name="line-64"></a>
<a name="line-65"></a><a name="transferModeCmd"></a><span class='hs-definition'>transferModeCmd</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>DarcsFlag</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>String</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-66"></a><span class='hs-definition'>transferModeCmd</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <span class='hs-varid'>setProgressMode</span> <span class='hs-conid'>False</span>
<a name="line-67"></a> <span class='hs-varid'>putStrLn</span> <span class='hs-str'>"Hello user, I am darcs transfer mode"</span>
<a name="line-68"></a> <span class='hs-varid'>hFlush</span> <span class='hs-varid'>stdout</span>
<a name="line-69"></a> <span class='hs-varid'>withCurrentDirectory</span> <span class='hs-varid'>darcsdir</span> <span class='hs-varop'>$</span> <span class='hs-varid'>transfer</span>
<a name="line-70"></a>
<a name="line-71"></a><a name="transfer"></a><span class='hs-definition'>transfer</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-72"></a><span class='hs-definition'>transfer</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <span class='hs-chr'>'g'</span><span class='hs-conop'>:</span><span class='hs-chr'>'e'</span><span class='hs-conop'>:</span><span class='hs-chr'>'t'</span><span class='hs-conop'>:</span><span class='hs-chr'>' '</span><span class='hs-conop'>:</span><span class='hs-varid'>fn</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>getLine</span>
<a name="line-73"></a> <span class='hs-varid'>x</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>readfile</span> <span class='hs-varid'>fn</span>
<a name="line-74"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>x</span> <span class='hs-keyword'>of</span>
<a name="line-75"></a> <span class='hs-conid'>Right</span> <span class='hs-varid'>c</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-varid'>putStrLn</span> <span class='hs-varop'>$</span> <span class='hs-str'>"got "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>fn</span>
<a name="line-76"></a> <span class='hs-varid'>print</span> <span class='hs-varop'>$</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>length</span> <span class='hs-varid'>c</span>
<a name="line-77"></a> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>hPut</span> <span class='hs-varid'>stdout</span> <span class='hs-varid'>c</span>
<a name="line-78"></a> <span class='hs-varid'>hFlush</span> <span class='hs-varid'>stdout</span>
<a name="line-79"></a> <span class='hs-conid'>Left</span> <span class='hs-varid'>e</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-varid'>putStrLn</span> <span class='hs-varop'>$</span> <span class='hs-str'>"error "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>fn</span>
<a name="line-80"></a> <span class='hs-varid'>print</span> <span class='hs-varid'>e</span>
<a name="line-81"></a> <span class='hs-varid'>hFlush</span> <span class='hs-varid'>stdout</span>
<a name="line-82"></a> <span class='hs-varid'>transfer</span>
<a name="line-83"></a>
<a name="line-84"></a><a name="readfile"></a><span class='hs-definition'>readfile</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Either</span> <span class='hs-conid'>String</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-conid'>ByteString</span><span class='hs-layout'>)</span>
<a name="line-85"></a><span class='hs-definition'>readfile</span> <span class='hs-varid'>fn</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Right</span> <span class='hs-varop'>`fmap`</span> <span class='hs-conid'>B</span><span class='hs-varop'>.</span><span class='hs-varid'>readFile</span> <span class='hs-varid'>fn</span><span class='hs-layout'>)</span> <span class='hs-varop'>`catch`</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>e</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>Left</span> <span class='hs-layout'>(</span><span class='hs-varid'>prettyException</span> <span class='hs-varid'>e</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-86"></a>
</pre></body>
</html>
