Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tag: v1574
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.