comp.lang.ada
 help / color / mirror / Atom feed
From: case@shamash.cdc.com (Steven V. Case)
Subject: Re: integer'image
Date: 21 Jan 91 19:41:56 GMT	[thread overview]
Message-ID: <29979@shamash.cdc.com> (raw)
In-Reply-To: 13874@encore.Encore.COM

In article <13874@encore.Encore.COM>, jcallen@Encore.COM (Jerry Callen) writes:
> In article <1991Jan20.025451.29808@ucselx.sdsu.edu> hoysch@ucselx.sdsu.edu (      Hoysch) writes:
> >
> >	I think a big thing is being made out of something that is not very
> >hard to do.  For example INTEGER'IMAGE(I)(2..INTEGER'IMAGE(I)'LAST) will
> >do it or a very simple routine if this is too hard on the eyes.
> 
> It will also chop off the minus sign if the value happens to be negative.
> Furthermore, the generated code will almost certainly gag a maggot. 

I have encountered this situation frequently enough that I work around it
by calling a subprogram to strip leading spaces.  I suspect that most of you
have some sort of string manipulation package that you have either 
developed or purchased.  I made sure that mine has support for removing 
leading and trailing spaces (in addition to other operations).  Then when I
want to get rid of the trailing space, I don't have to embed statements
like INTEGER'IMAGE(I)(2..INTEGER'IMAGE(I)'LAST), but can use a statement
such as REMOVE_LEADING_SPACES(FROM => INTEGER'IMAGE(I)).  This is probably
more readable, therefore it won't 'gag a maggot'.  I suspect this is the
general idea that Mr. Hoysch was suggesting when he said 'or a very simple
routine if this is too hard on the eyes.'

-- 
  ____  ____        Steve Case - HQG526           email: case@shamash.cdc.com
 / ___||___ \       Control Data Corporation      AT&T : (612) 853-3345
| |___  ___| |      3101 East 80th Street                 
 \____||____/       Bloomington, MN 55425

  reply	other threads:[~1991-01-21 19:41 UTC|newest]

Thread overview: 23+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
     [not found] <2563@sparko.gwu.edu>
1991-01-18 19:13 ` integer'image Arthur Evans
1991-01-18 20:32   ` integer'image Michael Feldman
1991-01-20  2:54   ` integer'image       Hoysch
1991-01-20 23:10     ` integer'image Michael Feldman
1991-01-21 15:23     ` integer'image Jerry Callen
1991-01-21 19:41       ` Steven V. Case [this message]
1991-01-21 21:54         ` integer'image Jerry Callen
1991-01-22 19:21         ` integer'image Michael Feldman
1991-01-22 21:37           ` integer'image Richard Pattis
1991-01-23 16:29             ` integer'image Michael Feldman
1991-01-18 23:05 ` integer'image (George C. Harrison) Norfolk State University
1991-01-19 10:51 ` integer'image Jean Pierre Rosen
1991-01-28  3:27 integer'image Jim West (Stealth Contractor)
1991-01-28 15:04 ` integer'image Michael Feldman
1991-01-28 23:09   ` integer'image (George C. Harrison) Norfolk State University
1991-01-29 19:55     ` integer'image stephen edwards
  -- strict thread matches above, loose matches on Subject: below --
2000-04-17  0:00 integer'image NANCY HEHIR
2000-04-17  0:00 ` integer'image tmoran
2000-04-17  0:00 ` integer'image Ted Dennison
2000-04-18  0:00   ` integer'image Marin D. Condic
2000-04-18  0:00     ` integer'image Ted Dennison
2000-04-18  0:00       ` integer'image Marin D. Condic
2000-04-19  0:00 ` integer'image MaggieJohn
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox