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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,e86b97ab50813172
X-Google-Attributes: gid103376,public
From: nasser@apldbio.com (Nasser Abbasi)
Subject: Re: Looking for calc. package in Ada
Date: 1996/06/27
Message-ID: <nh4tnxof7l.fsf@paralysys>#1/1
X-Deja-AN: 162328622
sender: news@biosys.apldbio.COM
references: <4qp7vu$c9f$1@mhafn.production.compuserve.com>
to: Strategies SA <100747.2001@CompuServe.COM>
organization: Applied BioSystems
newsgroups: comp.lang.ada
Date: 1996-06-27T00:00:00+00:00
List-Id: <comp.lang.ada>


   From: Strategies SA <100747.2001@CompuServe.COM>
   Newsgroups: comp.lang.ada
   Date: 25 Jun 1996 17:34:54 GMT

   Hello
   I'm looking for a package looking like :

   package CALCULATOR is 
      ...
      procedure STORE_VARIABLE is (NAME : STRING;
				   VALUE : FLOAT);

      function CALCULATE (EXPRESSION : STRING) 
	   return FLOAT;
      ...
   end CALCULATOR;

   ..snip..


you might want to look at the Beitz calculator package, one of the
ARA Ada contest programs, I dont know if it does what you want, but
you might be abe to steal some code or idea from it. this is the
main line of it: (it is a Xwindows Ada application)
ps. the programs are located in  ftp://ocsystems.com/pub/ara-contest/2.

with Value.Input.X_GUI;

procedure XAdaCalc is

    --| OVERVIEW
    --|
    --| This is the main procedure for the AdaCalculator.
    --|
    --| IMPLEMENTATION
    --|
    --| 1. call the creation routine for the GUI (a complex of buttons, mostly)
    --| 2. run
    --| 3. wait for the TurnOffCalculator exception

begin
    Value.Input.X_GUI.Create_Calculator;
    Value.Input.X_GUI.Run_Calculator;
exception
    when Value.Input.X_GUI.Turn_Calculator_Off => null;
end XAdaCalc;
-- 
Nasser Abbasi. C/C++/Ada Solaris. GeneAssist - A client/server application 
for Nucleic acid and protein sequence search and analysis. 
PE-Applied BioSystem division. email:  nasser@apldbio.com   
MSEE(control), MSCS, MSCE, FM(Fide Chess Master 1.e4 !!   1-0 )