Conversão De Códigos Ada Para C/c++

{2.1} Tipos
A conversão de variáveis do C/C++ para ada, ou de ada para C/C++, é relativamente simples:

C/C++
int a;
int i, j, k;
int b, c = 10;
int d = 1;


Ada
a : Integer;
i, j, k : Integer;
b, c : Integer := 10;
d : Integer := 1;




{2.2} Declaração de new types e subtypes

C/C++

typedef int INT;
INT i;
int j;

i=j; // funcionara perfeitamente, o compilador não ira detectar isso como um erro


Ada

type INT is new integer;
i : INT;
j : integer;

a := b; -- O Compilador ira detectar isso como um erro


A palavra-chave importante é new, o que realmente resume a forma como Ada está tratando essa linha, ele pode ser lido como "um novo tipo INT foi criado a partir do tipo inteiro", enquanto que a linha C pode ser interpretada como "um novo nome INT foi introduzida como um sinônimo para int ".
Esta tipagem forte pode ser um problema, e assim por Ada também oferece um recurso para reduzir a distância entre o novo tipo e o seu parente, considere o seguinte código:

Ada

subtype INT is Integer;
i : INT;
j : Integer;

i := j; -- O compilador não vai considerar isso errado.


{2.3} C/C++ statements para Ada

{2.3.0} IF

C/C++

if (expressão)
{
  statement
}
else if (expressão)
{
  statement
}
else
{
  statement
}



Ada

package Our_List is
  type List_Rep is private;

  function Create return List_Rep;

private
  type List_Rep is
    record
       -- código
    end record;
end Our_List;


{3.0} Exemplo

O código que será usado como exemplo de conversão será o código criado no começo do artigo:
Obs: a conversão será feita para C++.

caso você tenha deletado ele, ai vai ele novamente:

ola.adb

with Ada.Text_IO; use Ada.Text_IO;

procedure ola is
begin
        put("Ola");
end ola;


nome.adb

with Ada.Text_IO; use Ada.Text_IO;
with ola;
with idade;
with estado;

procedure nome is
        name : string(1 .. 50);
        n : natural;
        age : integer;
        es : string (1 .. 3);
begin
        put_line("Qual eh o seu nome ?");
        get_line(name, n);

        ola; -- chama a procedure do arquivo ola
        put_line(", " & name(1 .. n) & ". :)");
       
        age := idade(name, n);
        es := estado(name, n);
       
        if es = "bem" then
                put_line("Que bom!!!");
        elsif es = "mal" then
                put_line(":-(");
                put_line("Procure um médico");
        else
                put_line("Não conheço esse estado de saúde!!!!");
        end if;
end nome;


idade.adb

with Ada.Text_IO;         use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

function idade(nome : string; n : natural) return Integer is
        age : integer;
begin
        put_line(nome(nome'first .. n) & ", qual eh a sua idade ?");
        get(age);
        return age;
end idade;


estado.adb

with Ada.Text_IO; use Ada.Text_IO;

function estado(nome : string; n : natural) return String is
        es : string(1 .. 3); -- es = estado da saude;
begin
        put_line(nome(nome'first .. n) & ", como você está se sentindo [bem/mal] ?");
        get(es);
        return es;
end estado;


Para converter esse arquivo para C/C++, você primeiramente precisa conhecer alguns comandos do C/C++, tais como printf(), getchar(), cin, cout ...

Bom, então, para converter esse arquivo, vamos começar pelo começo, ou seja, pelo arquivo ola.adb

C/C++ { arquivo: ola.cpp }

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link] "comum.h"

void ola()
{
        cout << "Ola";
}


bom, como o código em C/C++, não se interage como o código em Ada, a gente vai ter que criar uma header, e nessa header tera as principais informações a serem trocadas entre os arquivos:

Então, crie uma header chamada comum.h

e nesse arquivo, já adicione a função ola:


// comum.h
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link] COMUM_H_
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link] COMUM_H_

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link] <iostream>
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link] <string>
using namespace std;

void ola();
int idade(char *nome);
string estado(char *nome);

[Tens de ter uma conta e sessão iniciada para poderes visualizar este link]


agora, vamos criar o main do projeto, que no vaso será o arquivo nome, mas no projeto em C/C++ ele vai receber o nome de main.c
então, crie o arquivo main.cpp, e escreva o seguinte código:


// main.cpp
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link] "comum.h"

int main(void)
{
        char name[50];
        string es;
        int age;

        cout << "Qual é o seu nome ?" << endl;
        cin.get(name, 50);

        ola();
        cout << ", " << name << ", :-)" << endl;

        age = idade(name);
        es = estado(name);

        if(es == "bem")
                cout << "Que bom!!!" << endl;
        else if(es == "mal")
                cout << "Procure um médico" << endl;
        else
                cout << "Não conheço esse estado de saúde!!!!" << endl;
        return 0;
}



// idade.cpp
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link] "comum.h"

int idade(char *nome)
{
        int age;
        cout << nome << ", qual eh a sua idade ?" << endl;
        cin >> age;
        return age;
}



// estado.cpp
[Tens de ter uma conta e sessão iniciada para poderes visualizar este link] "comum.h"

string estado(char *nome)
{
        string es;
        cout << nome << ", como você está se sentindo [bem/mal] ?" << endl;
        cin >> es;
        return es;

Créditos :

Bencz (Testar)

Hashy ( desenvolver & Divulgar)