Discussion :

[Marlan]

Bonjour à tous,

Je souhaitai savoir s'il était possible de convertir (sous FORTRAN) une chaine de caractères en opération.

Par exemple: j'écris dans un fichier l'opération suivante:

2*3/4*5

Je souhaiterai lire la dite-opération dans un programme puis l'appliquer...

Comment faire?

Merci d'avance,

Marlan

[FR119492]

Salut!
Si je comprends bien ta question, ça veut dire que tu souhaite écrire un bout de compilateur. Alors, bonne chance!
Jean-Marc Blanc

[Marlan]

Effectivement dit comme ça...

Tant pis, je ferai sans, merci quand même.

Embrayons sur une autre question (histoire de ne pas avoir créé un topic pour rien): je souhaiterai maintenant que le programme puisse lire le répertoire courant. Pour ce faire, j'utilise la syntaxe:

CALL system('pwd')

La question est la suivante: comment faire pour stocker la chaine de caractères qu'il me renvoit (par exemple: /chemin/repertoire_courant) dans une variable de type character?

Merci d'avance,

[Sylvain Bergeron]

Question 1

Ce que tu veux est un « expression parser ». J'en ai quelques uns (!) mais ils ne sont pas libres de droits.

Il y a différents types de parser :

• Ceux qui calculent directement le résultat d'expression contenant des valeurs et des fonctions (4*ln(10))
• Ceux qui prennent un tableau de variables en entrée (en plus de l'expression) et qui remplacent les variables de l'expression pour calculer le résultat.
• Ceux qui « compilent » l'expression contenant des variables et qui permettent ensuite de calculer l'expression en changeant successivement la valeur des variables.

Fais une recherche google avec « expression parser fortran ».

Il y en a un assez connu écrit par un australien (je crois), Stuart ????. Une recherche « expression parser fortran Stuart » devrait te permettre de le retrouver.

Si tu veux le faire par toi-même, commence par le premier type. La stratégie commune consiste à avoir une fonction récursive retournant le résultat numérique de l'expression. Cette fonction trouve l'opérateur à exécuter et s'appelle elle-même (récursivement) avec les sous-expressions de gauche et de droite afin d'appliquer l'opérateur. La recherche d'opérateur doit tenir compte des parenthèses, et retenir celui qui a la plus basse priorité. Par exemple :

decode("4*3 - 5*6") = decode("4*3") - decode("5*6")

decode("4*3") = decode("4") * decode("3")

Question 2

Tu dois faire un CALL system('pwd > fichier'), puis open(unit,fichier), puis un read du fichier... et finalement un close delete.

[Marlan]

Salut,

Tout d'abord, merci de tes réponses.

J'aimerai revenir sur la réponse de la question 2. Je réalise les opérations suivantes:

CHARACTER(40) :: NomFichier

...


call system('pwd > NomFichier')

print*, NomFichier

open(1,file=NomFichier//'TEST.dat')

...

CLOSE(1)

Le soucis est qu'il n'ouvre pas le dit fichier, voir même n'inscrit pas le chemin d'accès dans la variable NomFichier: l'erreur renvoyée est la suivante:

Image PC Routine Line Source
TEST *** Unknown Unknown Unknown
TEST *** Unknown Unknown Unknown
TEST *** Unknown Unknown Unknown
TEST *** Unknown Unknown Unknown
TEST *** Unknown Unknown Unknown
TEST *** Unknown Unknown Unknown
TEST *** Unknown Unknown Unknown
TEST *** Unknown Unknown Unknown
TEST *** Unknown Unknown Unknown

Où les *** sont des suites de nombres.

Sauriez vous pourquoi?

[Sylvain Bergeron]

Dans mon exemple, NomFichier se voulait le nom du fichier dans lequel la commande pwd allait écrire son résultat. Ce n'est pas une variable. Il n'est pas possible (à ma connaissance) de "piper" directement dans une variable le résultat d'une commande.

Si on remplace NomFichier par ton "test.dat", on obtient :

Code :

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

1
2
3
4
5
6
7
8
9
 
character (200) :: Ligne
...
call system('pwd > test.dat')
open(11,'test.dat')
read(11,'(a)',iostat=iostatus) Ligne
print *, trim(Ligne)
close(11, status='delete')
...

Je ne connais pas le format du résultat de la commande pwd (je suis sur Windows). Il est donc possible que le résultat intéressant ne soit pas sur la première ligne. Si c'est le cas, il faudrait ajuster le code en conséquence.

Dans ton code, tu utilises le unit 1 pour le fichier. Il est recommandé de ne jamais utiliser de unit < 10. J'ai donc utilisé 11 dans l'exemple.

[Marlan]

Oki merci bien!