ada

I'm a complete Ada newbie, though I've used Pascal for 2-3 years during HS. IIRC, it is possible to call Pascal compiled functions from C/C++. Is it possible to call procedures & functions written in Ada from C++? VonC According to this old tutorial , it should be possible. However, as illustrated by this thread , you must be careful with the c++ extern "C" definitions of your Ada functions. Here's an example using g++/gnatmake 5.3.0: NOTE: Be careful when passing data between C++ and Ada ada_pkg.ads package Ada_Pkg is procedure DoSomething (Number : in Integer); pragma Export (C, DoSomething,

I am currently teaching myself Ada and though I could begin by tackling some of the more conventional problems to get started. More specifically I try to calculate the factorial n!, whereas n>100. My implementation so far is: with Ada.Text_IO; with Ada.Integer_Text_IO; use Ada.Text_IO; procedure Factorial is -- define a type covering the range beginning at 1 up to which faculty is to -- be computed. subtype Argument is Long_Long_Integer range 1..100; -- define a type that is large enough to hold the result subtype Result is Long_Long_Integer range 1..Long_Long_Integer'Last; package Result_IO

From what I have understood by reading the documentation, the Ada real-time module works completely isolated from the OS. It's possible to have concurrency without having an underlying OS and a resource manager. Ada handles task dispatching, time management, task state transition, list managements, task priority, locking policies, scheduling policies, ISR, inter task communication, etc. If so then Ada real-time module is kind of a real-time operating system? Both yes and no. What an Ada program needs is its own RTS (Runtime System) - the fairly large chunk of code that (in another recent

Long time listener, first time caller. I'm aware this is a somewhat obscure question, and don't expect too much. :-) I have the following Ada files: greeter.ads package Greeter is procedure Hello; end Greeter; greeter.adb with Ada.Text_IO; use Ada.Text_IO; package body Greeter is procedure Hello is begin Put_Line ("Hello, world!"); end Hello; end Greeter; And compile them into a shared object like this: gnatmake -z -fPIC greeter.adb gcc -shared -o libgreeter.so greeter.o This compiles fine. nm shows the following symbols: $ nm -D libgreeter.so w _Jv_RegisterClasses 0000000000201028 A __bss

In Ada, I would like to separate out a number like 12.345 out into two distinct integers: whole : integer := 12; fraction : integer := 345; The Whole part is easy, but I don't know how to get the Fraction part. My starting idea is: 12.345 mod Integer(12.345) which will return 0.345, and could be multiplied by the inverse magnitude (in this case ×1000), but I don't know how to count the amount of digits either. Not a full Answer but this gets the fractional part as a string to enable further manipulation to retreive it as an integer: with Ada.Text_Io; procedure Remainder is package Fio is new