DIRECTORYBasicTime,FTP,IO,Rope,UserCredentials;TestFTPUser: CEDAR PROGRAMIMPORTS FTP, IO, Rope, UserCredentials = BEGIN ROPE: TYPE = Rope.ROPE;ConnectAndGoAway: PROCEDURE [hostName: ROPE] = {ftpHandle: FTP.Handle;remoteHerald: ROPE;[h: ftpHandle, remoteHerald: remoteHerald] _ FTP.CreateFromName[hostName: hostName, localHerald: "Cedar FTP Calling"] ;FTP.Destroy[ftpHandle];};listObject: TYPE = RECORD [directory: ROPE,name: ROPE,version: ROPE,create: BasicTime.GMT];ConnectListAndGoAway: PROCEDURE [hostName: ROPE, Directory: ROPE, Pattern: ROPE] = {ftpHandle: FTP.Handle;remoteHerald: ROPE;properties: FTP.PropertySet;name, password: Rope.ROPE;nameList: LIST OF REF listObject _ NIL;enumProc: PROCEDURE [h: FTP.Handle] = {create: BasicTime.GMT;directory: ROPE;name: ROPE;version: ROPE;item: REF listObject;create _ h.GetDateProperty[prop: createDate, list: remote];directory _ h.GetTextProperty[prop: directory, list: remote];name _ h.GetTextProperty[prop: nameBody, list: remote];version _ h.GetTextProperty[prop: version, list: remote];item _ NEW[listObject _ [directory, name, version, create]];nameList _ CONS[item, nameList];};[name, password] _ UserCredentials.Get[];[h: ftpHandle, remoteHerald: remoteHerald] _ FTP.CreateFromName[hostName: hostName, localHerald: "Cedar FTP Calling"] ;properties[createDate] _ TRUE;properties[directory] _ TRUE;properties[nameBody] _ TRUE;properties[version] _ TRUE;FTP.SetDesiredProperties[h: ftpHandle, props: properties, userDefinedProps:  NIL];FTP.SetTextProperty[ftpHandle, directory, Directory];FTP.SetTextProperty[ftpHandle, nameBody, Pattern];FTP.SetTextProperty[ftpHandle, userName, name];FTP.SetTextProperty[ftpHandle, userPassword, password];FTP.Enumerate[h: ftpHandle, noteFile: enumProc];FTP.Destroy[ftpHandle];};ConnectRetrieveAndGoAway: PROCEDURE [hostName: ROPE, directory: ROPE, file: ROPE, version: ROPE] RETURNS [fileRope: ROPE] = {ftpHandle: FTP.Handle;remoteHerald: ROPE;properties: FTP.PropertySet;name, password: Rope.ROPE;nameList: LIST OF REF listObject _ NIL;confirmProc: FTP.ConfirmProc = {confirm _ TRUE;};transferProc: FTP.TransferProc = {DOfileRope _ Rope.Concat[fileRope, stream.GetLineRope[ ! IO.EndOfStream => EXIT]];ENDLOOP;};completeProc: FTP.CompleteProc = {};[name, password] _ UserCredentials.Get[];[h: ftpHandle, remoteHerald: remoteHerald] _ FTP.CreateFromName[hostName: hostName, localHerald: "Cedar FTP Calling"] ;properties[createDate] _ TRUE;properties[directory] _ TRUE;properties[nameBody] _ TRUE;properties[version] _ TRUE;properties[size] _ TRUE;FTP.SetDesiredProperties[h: ftpHandle, props: properties, userDefinedProps:  NIL];FTP.SetTextProperty[ftpHandle, directory, directory];FTP.SetTextProperty[ftpHandle, nameBody, file];FTP.SetTextProperty[ftpHandle, userName, name];FTP.SetTextProperty[ftpHandle, userPassword, password];FTP.SetTextProperty[ftpHandle, version, version];FTP.Retrieve[h: ftpHandle, confirm: confirmProc, transfer: transferProc, complete: completeProc];FTP.Destroy[ftpHandle];};END.     Ø  TestFTPUser.mesaLast edited by:Bob Hagmann March 18, 1985 3:47:49 pm PST	PROCEDURE [h: Handle] RETURNS [confirm: BOOLEAN];	PROCEDURE [h: Handle, stream: IO.STREAM];	PROCEDURE [h: Handle, ok: BOOLEAN];  Ê  –"cedar" style˜ Jšœ™™Icode™)—unitšÏk	˜	Kšœ
˜
Kšœ˜K˜Kšœ˜Kšœ˜K˜ —defaultšœœ˜Mšœ!˜)Mšœ˜M˜ Mšœœœ˜—˜ šÏnœ	œœ˜0Mšœ˜Mšœœ˜Mšœ-œG˜wMšœ˜Mšœ˜—M˜ šœ˜Mšœœ˜Mšœœ˜Mšœ	œ˜Mšœ˜M˜M˜ —š
žœ	œœœœ˜TMšœœ˜Mšœœ˜Mšœ˜Mšœœ˜Mšœ'˜'šÏbœ	œœ˜'Mšœ˜Mšœœ˜Mšœœ˜Mšœ	œ˜Mšœ˜Mšœ;˜;Mšœ=˜=Mšœ7˜7Mšœ9˜9Mšœ<˜<Mšœ ˜ M˜—Mšœ)˜)Mšœ-œG˜wMšœ˜Mšœ˜Mšœ˜Mšœ˜MšœMœ˜RMšœ5˜5Mšœ2˜2Mšœ/˜/Mšœ7˜7Mšœ0˜0Mšœ˜Mšœ˜—M˜ šžœ	œœœœœœœ˜}Mšœœ˜Mšœœ˜Mšœœ˜Mšœœ˜Mš	œ
œœœœ˜'M˜ šŸœœ˜ Mš
œœœ™2Mšœ
œ˜M˜—šŸœœ˜"Mšœ	œœ™*š˜Mšœ7œÏrœœ˜PMšœ˜—M˜—šŸœœ˜"Mšœ	œœ™$M˜—Mšœ)˜)Mšœ-œG˜wMšœœ˜Mšœœ˜Mšœœ˜Mšœœ˜Mšœœ˜MšœJœ˜RMšœ2˜5Mšœ,˜/Mšœ,˜/Mšœ4˜7Mšœ.˜1Mšœ^˜aMšœ˜Mšœ˜—M˜ M˜ M˜ Mšœ˜—M™ Mšž™— …—      ò  