Commit a43f1635dee4b393e149325f80403b161e754db1

Deleted extraneous lines and variables.

After switching to the use of s.SignOnTime in s.Status many lines of
code and many variables were no longer necessary.  I had left them in
temporarily in the event I needed to shift back.
src/s.mod
(5 / 75)
  
5858(* larger time units are changed to reflect that. *)
5959(***************************************************************)
6060VAR
61 second, minute, hour, day, month, year,
62 string, temp, temp2 : Message.strType;
61 string, temp : Message.strType;
6362 elapsed : TimeFunc.elapsedT;
64 tempcard,
65 currentTime : CARDINAL;
66 nowTime : SysClock.DateTime;
67 minuteadjust : BOOLEAN;
6863
6964BEGIN
7065 string := "I signed on at ";
……
341341END SpellsSorcerer;
342342
343343(***********************************************************)
344(* Need to start using Timers.signOnTimeCard - and work directly with seconds. *)
344(* 24 Dec 08 - changed to use s.SignOnTime *)
345345PROCEDURE Status(parse : Message.Parse);
346346VAR
347 string, trueString : Message.strType;
348 sent, read, temp : ARRAY[0..9] OF CHAR;
349 trueTime, nowTime, soTime : SysClock.DateTime;
350 months, days, hours, minutes, seconds, adjust,
351 startSeconds, nowSeconds, trueSeconds: CARDINAL;
347 string : Message.strType;
348 sent, read : ARRAY[0..9] OF CHAR;
352349
353350BEGIN
354351 SignOnTime(parse);
355 (*
356 soTime := Timers.signOnTime;
357 (* do the time bit *)
358 SysClock.GetClock(nowTime);
359
360
361
362 (* Days *)
363 string := "Online for ";
364 IF nowTime.day - soTime.day > 0 THEN
365 WholeStr.CardToStr(nowTime.day-soTime.day, temp);
366 Strings.Concat(string, temp, string);
367 IF nowTime.day-soTime.day = 1 THEN
368 Strings.Concat(string, " day, ", string);
369 ELSE
370 Strings.Concat(string, " days, ", string);
371 END;
372 END;
373 (* Hours *)
374 IF nowTime.hour < soTime.hour THEN
375 adjust := 24;
376 ELSE
377 adjust := 0;
378 END;
379 IF (nowTime.hour+adjust) - soTime.hour > 0 THEN
380 WholeStr.CardToStr((nowTime.hour+adjust)-soTime.hour, temp);
381 Strings.Concat(string, temp, string);
382
383 IF (nowTime.hour+adjust) - soTime.hour = 1 THEN
384 Strings.Concat(string, " hour, ", string);
385 ELSE
386 Strings.Concat(string, " hours, ", string);
387 END;
388 END;
389 (* Minutes *)
390
391 IF nowTime.minute < soTime.minute THEN
392 adjust := 60;
393 ELSE
394 adjust := 0;
395 END;
396 WholeStr.CardToStr((nowTime.minute+adjust)-soTime.minute, temp);
397 Strings.Concat(string, temp, string);
398 IF (nowTime.minute+adjust) - soTime.minute = 1 THEN
399 Strings.Concat(string, " minute, and ", string);
400 ELSE
401 Strings.Concat(string, " minutes, and ", string);
402 END;
403 (* Seconds *)
404 IF nowTime.second < soTime.second THEN
405 adjust := 60;
406 ELSE
407 adjust := 0;
408 END;
409 WholeStr.CardToStr((nowTime.second+adjust)-soTime.second, temp);
410 Strings.Concat(string, temp, string);
411 IF (nowTime.second+adjust) - soTime.second = 1 THEN
412 Strings.Concat(string, " second. ", string);
413 ELSE
414 Strings.Concat(string, " seconds. ", string);
415 END;
416 *)
352 string := "";
417353 WholeStr.CardToStr(Message.linesSent, sent);
418354 WholeStr.CardToStr(Message.linesRead, read);
419355
……
380380
381381
382382BEGIN
383
384383 IF NOT FileSys.Exists("/home/terry/p6dat/tmp/spellcount") THEN
385384 IF NOT FileSys.CreateDirectory("/home/terry/p6dat/tmp/spellcount/") THEN
386385 STextIO.WriteString("Error: Unable to create directory /home/terry/p6dat/tmp/spellcount/");