Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

71 lines (67 sloc) 2.3 kb
% -*-erlang-*-
%
% Copyright © 2011 MLstate
%
% This file is part of Opa.
%
% Opa is free software: you can redistribute it and/or modify it under the
% terms of the GNU Affero General Public License, version 3, as published by
% the Free Software Foundation.
%
% Opa is distributed in the hope that it will be useful, but WITHOUT ANY
% WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
% FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License for
% more details.
%
% You should have received a copy of the GNU Affero General Public License
% along with Opa. If not, see <http://www.gnu.org/licenses/>.
%
-define Crlf = "\r\n"
%%%%%%%%%%%%%%%%%%%%%%
%% Client request %%
%%%%%%%%%%%%%%%%%%%%%%
-define User str = "USER "~ str "\r\n"
-define Pass str = "PASS "~ str "\r\n"
-define Acct str = "ACCT "~ str "\r\n"
-define List = "LIST\r\n"~
-define ListS str = "LIST " str "\r\n"
-define Nlst = "NLST\r\n"~
-define NlstS str = "NLST "~ str "\r\n"
-define Cwd str = "CWD "~ str "\r\n"
-define Cwd0 = "CWD\r\n"~
-define CwdX = "CWD \r\n"~
-define Cdup = "CDUP\r\n"~
-define Pwd = "PWD\r\n"~
-define Pasv = "PASV\r\n"~
-define Port str = "PORT "~ str "\r\n"
-define (Type str) = "TYPE "~ str "\r\n"
-define (Stru str:string) = "STRU "~ str "\r\n"
-define Mode str = "MODE "~ str "\r\n"
-define Retr str = "RETR "~ str "\r\n"
-define RetrX = "RETR \r\n"~
-define Stor str = "STOR "~ str "\r\n"
-define Appe str = "APPE "~ str "\r\n"
-define Stou = "STOU\r\n"~
-define StouS str = "STOU "~ str "\r\n"
-define Rest str = "REST "~ str "\r\n"
-define Rnfr str = "RNFR "~ str "\r\n"
-define Rnto str = "RNTO "~ str "\r\n"
-define Dele str = "DELE "~ str "\r\n"
-define Rmd str = "RMD "~ str "\r\n"
-define Mkd str = "MKD "~ str "\r\n"
-define SizeS str = "SIZE "~ str "\r\n"
-define Size = "SIZE \r\n"~
-define MdtmS str = "MDTM "~ str "\r\n"
-define Mdtm = "MDTM \r\n"~
-define Syst = "SYST\r\n"~
-define Stat = "STAT\r\n"~
-define StatS str = "STAT "~ str "\r\n"
-define Allo1 = "ALLO\r\n"~
-define Allo2 str = "ALLO "~ str "\r\n"
-define Allo3 str = "ALLO R "~ str "\r\n"
-define Noop = "NOOP\r\n"~
-define Help = "HELP\r\n"~
-define HelpS str = "HELP "~ str "\r\n"
-define Quit = "QUIT\r\n"~
-define Dummy str = "" str
-define Other str = str
Jump to Line
Something went wrong with that request. Please try again.