[Oberon] ETH Oberon, source NetSystem.SetUser*.

peter at easthope.ca peter at easthope.ca
Sun Jun 6 17:27:35 CEST 2021


== Reference ==
https://en.wikibooks.org/wiki/Oberon/ETH_Oberon/NetSystem.Mod

== Observation ==
Excerpt from the body of SetUser.

 BEGIN
	Texts.OpenReader(R, Oberon.Par.text, Oberon.Par.pos);
	ok := TRUE;  entered[0] := 0X;  verbose := FALSE;
	...
			IF host[0] # 0X THEN
				IF (usr[0] = 0X) OR ((pwd[0] = 0X) & (entered[0] = 0X)) THEN
	...
				IF pwd[0] = 0X THEN	(* no pwd specified *)
					IF entered[0] = 0X THEN	(* prompt first time *)
						InputStr("Enter password: ", FALSE, entered);

== Question ==
Isn't (entered[0] = 0X) inevitable when the IF statements are executed?

The two ests, entered[0] = 0X, are redundant?

Thanks,            ... P.



-- 
tel: +1 604 670 0140            Bcc: peter at easthope. ca



More information about the Oberon mailing list