Discussion :

[tiresias54]

Bonjour à tous,
J'aimerais affecter une variable d'environnement dans un programme fortran.

Voici le code que je tente (je compile avec sunstudio f90 version 12):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
      program test
      implicit none
      character*20 var
      character*20 home
 
       call getenv('HOME',home)
       print *, "home = ",home
       call getenv('MON_ENV',var)
       print *, "MON_ENV = ",var
       call system('export MON_ENV="BONJOUR"')
       print *, "MON_ENV = ",var
 
       end program test

Et voici la sortie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 home = /home/tiresias54
 MON_ENV =
 MON_ENV =

Du coup mon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call system('export MON_ENV="BONJOUR"')

n'a pas l'air de fonctionner... A priori en fortran il existe des fonctione internes permettant de lire des variables d'environnement (getenv), mais pas d'écrire dedans (wtf!?).

Auriez-vous une dée svp ?

[Ehouarn]

Bonjour,

call system() lance un shell, qui se termine avec la fin de ce même call system().
La variable d'environnement MON_ENV est bien affectée, mais sa portée ne dépasse pas le temps de vie du shell dans lequel elle est définie.

[tiresias54]

Bonjour, et merci pour ta réponse.

Bon après moulte recherche, je pense qu'on ne peut pas faire ça en fortran :/

du coup j'ai linké avec une petite routine C que j'ai écrit à coté (on pourrais l'améliorer, mais pas besoin pour ce que je veux faire):

Code C :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
int set_var_(void)
{
    putenv("MON_ENV=BONJOUR");
    return 0;
}

[Ehouarn]

Bonjour,

Tant mieux si tu peux y parvenir via du C, mais je ne peux m'empêcher de poser la question: pourquoi diable vouloir affecter une variable d'environnement en cour d'exécution? C'est "très dangereux" au sens où si un autre processus modifier également la variable d'environnement pendant que ton programme s'exécute... et ce n'est pas du domaine de l'improbable: pense au cas où plusieurs instances de ton programme sont conjointement en cours d’exécution.

[tiresias54]

Désolé de ne pas avoir répondu avant.
Mon client est grande boite industrielle qui utilise des programmes ayant des couches, surcouches et sursurcouches, écrites en C, en C++, en fortran77, en fortran 90, etc .... J'avais signalé la dangerosité de la chose au client, qui a décidé (comme souvent, et après moultes discussions) "de faire au plus simple, de toute façon on n'a pas le budget" :/ Et au final on en arrive à être obligé de faire ce genre de m... car on ne peut pas faire autrement: c'est le client qui décide. Ceci dit, quand ça plantera ça nous fera du boulot, mais bon c'est pas très gratifiant de faire ça.