Discussion :

[llaurentt]

Bonjour à tous

Voila je débute sous Pascal, je commence à lire les tutoriels qui sont du reste très bien fait

Mais voila je me pose une question:
Comment peut on mettre une interprétation d'une commande linux, pour quel soit excuter lors de l'exécution du script?
Dans un script Bash il "suffit" de mettre un cd ou un cat

Merci d'avance pour votre aide

[Eric Sigoillot]

Bonjour,

Pour exécuter des commandes externes, il suffit d'utiliser la procédure Exec. Il y a un exemple d'utilisation dans la FAQ : http://pascal.developpez.com/faq/

@++

[llaurentt]

Merci pour ta réponse aussi rapide

Donc j'ai saisi un bout de code pour tester, il doit m'ouvrir un fichier :

Code :

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

1
2
3
4
5
6
7
 
program essais
BEGIN
           SwapVectors;
            Exec('cat monfichier', ' ') ;
            SwapVectors;
END.

Mais lors de la compilation, j'ai une message d'erreur

audiences.pas(3,1) Fatal: Syntax error, ";" expected but "BEGIN" found
audiences.pas(3,1) Fatal: Compilation aborted

Je sais pas trop d'où cela vient, d'un ";" pourtant il y sont non?

Merci d'avance

@+

[M.Dlb]

après

Code :

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

program essais;

[llaurentt]

Merci bien, même pas vu trop nul

Par contre j'ai de nouveau une erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
ree Pascal Compiler version 2.0.2 [2005/11/26] for i386
Copyright (c) 1993-2005 by Florian Klaempfl
Target OS: Linux for i386
Compiling daudience.pas
daudience.pas(3,12) Error: Identifier not found "SwapVectors"
daudience.pas(3,23) Error: Illegal expression
daudience.pas(4,13) Error: Identifier not found "Exec"
daudience.pas(4,41) Error: Illegal expression
daudience.pas(5,13) Error: Identifier not found "SwapVectors"
daudience.pas(5,24) Error: Illegal expression
daudience.pas(7) Fatal: There were 6 errors compiling module, stopping
daudience.pas(7) Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Il reconnait pas la fonction Swapvectors je crois , j'ai installé la bibliothèqye contenu dans freepascal pourtant

Si quelqu'un à la solution je veux bien

Merci

[M.Dlb]

Il faudrait peut-être mettre le bon uses ?

[Clandestino]

pour swapvectors on peut lire dans la doc :

SwapVectors


Declaration:
Procedure SwapVectors ;

Description:
SwapVectors swaps the contents of the internal table of interrupt vectors with the current contents of the interrupt vectors.

This is called typically in before and after an Exec call.


Errors:
Under LINUX this call does nothing, as the interrupt vectors are managed by the kernel.

bref ça n'a pas l'air très utile sous linux

Quand à l'utilisation de exec,
c'est une commande incluse dans l'unité dos, il faut donc ajouter comme te l'a indiqué wormful_sickfoot

Code :

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

Uses dos;

Bonne continuation...

[llaurentt]

Re

Excusez moi j'étais parti la semaine dernière

Donc en effet j'ai bien mis :

Code :

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

1
2
 
uses dos;

J'ai donc plus d'erreur pendant la compilation mais par contre lorsque j'exècute le programme, rien ne se passe

Il devrait m'afficher les lignes du fichier non?

Merci de nouveau pour votre aide [/code]

[Eric Sigoillot]

Bonjour,

Le nom de l'exécutable et ses paramètres doivent être spécifiés séparément. Il faut aussi récuperer le code d'erreur pour voir ce qui s'est passé...

@++