// FtpCliInit.bcpl
// Copyright Xerox Corporation 1979, 1980, 1982
// Last modified May 13, 1982  2:28 PM by Boggs

get "FtpProt.decl"
get "FtpUser.decl"

external
[
// outgoing procedures
InitFtpCli

// incoming procedures
CreateKeywordTable; LoadKT
CliByte; CliClose; CliComment; CliCompare; CliConnect
CliDebug; CliDelete; CliDevice; CliDirectory; CliDump
CliEol; CliList; CliLoad; CliLogin; CliOpen; CliRename
CliRetrieve; CliStore; CliType; CliVersion
BlockEq; UBlockEq

// outgoing statics
cliKT

// incoming statics
ramFlag
]

static cliKT

//-----------------------------------------------------------------------------------------
let InitFtpCli() be
//-----------------------------------------------------------------------------------------
[
cliKT = CreateKeywordTable(20, 2)
LoadKT(cliKT, "Byte-size", CliByte, false)
LoadKT(cliKT, "Close", CliClose, true)
LoadKT(cliKT, "Comment", CliComment, false)
LoadKT(cliKT, "Compare", CliCompare, true)
LoadKT(cliKT, "Connect", CliConnect, false)
LoadKT(cliKT, "Debug", CliDebug, false)
LoadKT(cliKT, "Delete", CliDelete, true)
LoadKT(cliKT, "Device", CliDevice, false)
LoadKT(cliKT, "Directory", CliDirectory, false)
LoadKT(cliKT, "Dump", CliDump, true)
LoadKT(cliKT, "EOL", CliEol, false)
LoadKT(cliKT, "List", CliList, true)
LoadKT(cliKT, "Load", CliLoad, true)
LoadKT(cliKT, "Login", CliLogin, false)
LoadKT(cliKT, "Open", CliOpen, false)
LoadKT(cliKT, "Rename", CliRename, true)
LoadKT(cliKT, "Retrieve", CliRetrieve, true)
LoadKT(cliKT, "Store", CliStore, true)
LoadKT(cliKT, "Type", CliType, false)
LoadKT(cliKT, "Version", CliVersion, false)

if ramFlag then BlockEq = UBlockEq
]