Oberon/A2/Oberon.TFTPTool.Mod

MODULE TFTPTool IN Oberon; (** be **) IMPORT In, Out, IP IN A2, TFTP IN A2; PROCEDURE Send*; VAR fnl, fnr: ARRAY 128 OF CHAR; fipstr: ARRAY 64 OF CHAR; fip: IP.Adr; BEGIN In.Open; In.String(fnl); In.String(fnr); In.String(fipstr); IF In.Done THEN fip := IP.StrToAdr(fipstr); IF (~IP.IsNilAdr(fip)) THEN Out.String("Sending '"); Out.String(fnl); Out.String("' to "); Out.String(fipstr); Out.String("..."); IF TFTP.Send(fnl, fnr, fip) THEN Out.String(" success.") ELSE Out.String("error; check kernel log.") END ELSE Out.String("Invalid IP") END ELSE Out.String('Invalid parameters. Syntax: TestTFTP.Send "<localfilename>" "<remotefilename>" "<ip>"') END; Out.Ln END Send; PROCEDURE Receive*; VAR fnl, fnr: ARRAY 128 OF CHAR; fipstr: ARRAY 64 OF CHAR; fip: IP.Adr; BEGIN In.Open; In.String(fnr); In.String(fnl); In.String(fipstr); IF In.Done THEN fip := IP.StrToAdr(fipstr); IF (~IP.IsNilAdr(fip)) THEN Out.String("Receiving '"); Out.String(fnl); Out.String("' from "); Out.String(fipstr); Out.String("..."); IF TFTP.Receive(fnr, fnl, fip) THEN Out.String(" success.") ELSE Out.String("error; check kernel log.") END ELSE Out.String("Invalid IP") END ELSE Out.String('Invalid parameters. Syntax: TestTFTP.Receive "<remotefilename>" "<localfilename>" "<ip>"') END; Out.Ln END Receive; END TFTPTool. System.Free TestTFTP TFTP ~ TFTP.TraceLevel1 TFTP.TraceLevel2 TFTP.TraceLevel3 TFTPTool.Send "AOS:AosOberon.zip" "FAT:/AosOberon.zip" "10.0.0.4" ~ TFTPTool.Receive "FAT:/AosOberon.zip" "AOS:AosOberon.zip" "10.0.0.4" ~