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=-0.6 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	FROM_STARTS_WITH_NUMS,INVALID_MSGID autolearn=no autolearn_force=no
	version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,e86b97ab50813172,start
X-Google-Attributes: gid103376,public
From: Strategies SA <100747.2001@CompuServe.COM>
Subject: Looking for calc. package in Ada
Date: 1996/06/25
Message-ID: <4qp7vu$c9f$1@mhafn.production.compuserve.com>#1/1
X-Deja-AN: 162108993
organization: CompuServe, Inc. (1-800-689-0736)
newsgroups: comp.lang.ada
Date: 1996-06-25T00:00:00+00:00
List-Id: <comp.lang.ada>


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;

In order to use it the following way 
   ...
   CALCULATOR.STORE_VARIABLE ("A", 10.0);
   ...
   RESULT := CALCULATOR.EVALUATE ("10*COS(A)");
   ...
Does anybody know where I can find (good) inspiration ? 
Thank You in advance

Jerome HAGUET
Strategies 
France