🚀 go-pugleaf

Dr John Stockton wrote:
> 
> JRS:  In article <3C1A4B5C.40DD76DE@yahoo.com>, seen in news:borland.pub
> lic.turbopascal, CBFalconer <cbfalconer@yahoo.com> wrote at Fri, 14 Dec
  ^^^^^^^^^^^^^^^
Nope. comp.lang.pascal.misc :-)

> >  PROCEDURE write2digs(VAR f : text; n : integer)
> >
> >     BEGIN
> >     n := abs(n);  /* just in case */
> >     IF (n < 10) THEN write(f, '0', n : 1)
> >     ELSE             write(f, n : 2);
> >     END;
> 
> IMHO, a routine which can write a wrong value (because of abs) is most
> undesirable.  Just make "n" a word.

If you want to define "word = 0..maxint:" allright.  Else it is
not portable.

I prefer to have a routine usable for many purposes.  For signed,
we could call it with:

   IF (n < 0) THEN write(f, '-');
   write2digs(f, n);

but maybe the name could be improved :-)

> 
> >  PROCEDURE writedate(VAR f : text; dd, mm, yy, field: integer);
> >  (* in ISO form yyyy-mm-dd with leading zeroes *)
> <G>.  Alas, will not give leading year zeroes in the First Millennium -
> though I doubt whether ISO-8601 requires that!
> 
> IMHO, a string function is more widely useful than a write procedure.

If you have a system with such extensions.  Ok, writedate has a (Y
< 1k) bug.  We shall restrict its usage to post-Norman-Conquest. 
I think it also has problems on or after 10,000 AD.

-- 
Chuck F (cbfalconer@yahoo.com) (cbfalconer@XXXXworldnet.att.net)
   Available for consulting/temporary embedded and systems.
   (Remove "XXXX" from reply address. yahoo works unmodified)
   mailto:uce@ftc.gov  (for spambots to harvest)