Skip to content
This repository
tag: v783
Fetching contributors…

Cannot retrieve contributors at this time

file 70 lines (67 sloc) 2.3 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70
% -*-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
Something went wrong with that request. Please try again.