From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,e38b3d31f83372db X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-05-25 14:23:49 PST Path: archiver1.google.com!newsfeed.google.com!newsfeed.stanford.edu!newsfeed.gamma.ru!Gamma.RU!news.algonet.se!algonet!newsfeed01.se.dataphone.net!nntp.se.dataphone.net!news.powertech.no!nntp.newmedia.no!newsfeed1.enitel.no!news.telia.no!not-for-mail Sender: ohk@maestro.clustra.com Newsgroups: comp.lang.ada Subject: Re: Natural to String without space? (newbie question) References: <3b0e0826$1@pull.gecm.com> From: Ole-Hjalmar Kristensen Message-ID: X-Newsreader: Gnus v5.5/Emacs 20.3 Date: Fri, 25 May 2001 21:23:47 GMT NNTP-Posting-Host: 195.204.160.194 X-Complaints-To: abuse@enitel.no X-Trace: news.telia.no 990825827 195.204.160.194 (Fri, 25 May 2001 23:23:47 CEST) NNTP-Posting-Date: Fri, 25 May 2001 23:23:47 CEST Organization: Enitel Internet Public Access Xref: archiver1.google.com comp.lang.ada:7780 Date: 2001-05-25T21:23:47+00:00 List-Id: "Martin Dowie" writes: You can even do the same when importing foreign functions, like : with Interfaces.C_Streams; use Interfaces.C_Streams; package Uio is type Oflag_T is mod 2**32; type Mode_T is mod 2**32; function Open(Path : chars; Oflag : Oflag_T; Mode : Mode_T := 8#777#) return int; pragma Import(C,open); pragma Import(C,close); pragma Import(C,fsync); pragma Import(C,read); pragma Import(C,write); end Uio; > You're welcome, it's a nice little feature, isn't it? I > was wuick surprised myself the first time I saw it. :-) > > Beard, Frank wrote in message > news:mailman.990741393.31666.comp.lang.ada@ada.eu.org... > > Well, you learn something new everyday. I didn't know you > > could do a rename and default a parameter when the parent > > function was not defaulted. > > > > Thanks for the info. > > > > Frank > > > > -----Original Message----- > > From: Martin Dowie [mailto:martin.dowie@nospam.baesystems.com] > > > > or, > > > > function Trim (Value : String; > > Side : Ada.Strings.Trim_End := Ada.Strings.Both) > > return String renames Ada.Strings.Fixed.Trim; > > > -- Kabelsalat ist gesund. Ole-Hj. Kristensen