Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://spexeah.com:8443/svn/Asuro@733 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

Browse Source
This commit is contained in:
kieron
2018-05-13 10:35:04 +00:00
parent 168eb35b54
commit beb04a225a
36 changed files with 120 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/prog/terminal.pas
View File

@ -20,7 +20,8 @@ uses
strings,
tracer,
asuro,
serial;
serial,
netutils, nettypes;
type
THaltCallback = procedure();
@ -507,7 +508,20 @@ begin
end;
procedure teapot(Params : PParamList);
var
ip1, ip2, ip3 : pchar;
begin
if paramCount(Params) > 2 then begin
ip1:= getParam(0, Params);
ip2:= getParam(1, Params);
ip3:= getParam(2, Params);
if sameSubnetIPv4(stringToIPv4(ip1), stringToIPv4(ip2), stringToIPv4(ip3)) then begin
console.writeStringlnWND('Same.', getTerminalHWND);
end else begin
console.writeStringlnWND('Different', getTerminalHWND);
end;
end;
terminal.halt(555, @teapot_halt);
end;