SET$ACNM |
Fixe ACNM |
|---|---|
| TRS-80 Pascal | |
Syntaxe
|
TYPE FILENM=PACKED ARRAY[1..XX] OF CHAR; ALPHA=PACKED ARRAY[1..8] OF CHAR; { ou XX est une longueur assez longue pour le nom de fichier } PROCEDURE SET$ACNM(VAR F:TEXT; VAR filename:FILENM; NAMELENGTH:INTEGER; VAR FILEID:ALPHA); EXTERNAL; |
Description
Cette procédure permet de définir le nom du fichier physique ou du périphérique à associer à un fichier Pascal.
Remarques
- La procédure SET$ACNM est utilisé pour définir le nom du fichier physique ou du périphérique à associer à un fichier Pascal. Il permet à un programme de calculer les noms de fichiers en interne. Par exemple, un programme de base de données peut connaître le nom du fichier contenant la base de données. Cette procédure permet au programme de spécifier le nom du fichier plutôt que de le demander au clavier.
- Le paramètre F peut être un fichier de n'importe quel type. La déclaration externe de SET$ACNM étant incluse dans le programme source doit spécifier un type pour F correspondant au type de fichier réel à utiliser. Le nom de fichier est une chaîne de caractères contenant le texte du nom de fichier. Cette chaîne de caractères doit être compatible avec la syntaxe du système d'exploitation pour les noms de fichiers. Le paramètre NAMELENGTH est un entier spécifiant la longueur du nom de fichier. Le paramètre FILEID est une chaîne de 8 caractères utilisée pour identifier le nom Pascal du fichier, tel que INPUT ou OUTPUT. Le premier caractère de FILEID doit être une lettre majuscule.
- Si SET$ACNM est appelé avant un RESET ou REWRITE sur un fichier, le Pascal ne demandera pas au CRT le nom du fichier. Tous les RESET ou REWRITES suivants ne provoqueront pas de demande à moins qu'un CLOSE (nom de fichier) ne soit effectué sur le fichier. L'association de nom de fichier restera telle que définie précédemment par SET$ACNM.
Exemple
Voici un exemple de l'utilisation de cette procédure :
- TYPE
- FILENAME=PACKED ARRAY [1..15] OF CHAR;
- ALPHA=PACKED ARRAY [1..8] OF CHAR;
- VAR
- FNAME:FILENAME;
- FILEID:ALPHA;
- F:TEXT;
-
- PROCEDURE SET$ACNM(VAR F:TEXT; VAR FNAME:FILENAME; LEN:INTEGER;VAR FILEID:ALPHA); EXTERNAL;
-
- BEGIN
- (* cette déclaration d'affectation nécessite que le nom soit laissé *)
- (* justifié et vide rempli à la bonne longueur de tableau *)
- FNAME:='DATA/TXT:0';
- FILEID:='F';
- SET$ACNM(F,FNAME,10,FILEID);
- RESET(F);
- READ(F,CH);
- (* ET...*)
- END.
Dernière mise à jour : Vendredi, le 31 Juillet 2020