SETACNM |
Fixe ACNM |
|---|---|
| TRS-80 Pascal | |
Syntaxe
| PROCEDURE SETACNM(VAR logical:filetype;physical:STRING); 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 de bibliothèque SETACNM a le même objectif que SET$ACNM mais est plus simple à utiliser. La procédure ne prend que deux paramètres, la variable de fichier logique Pascal et le nom de fichier physique ou de périphérique à associer. Le type de données Filetype est n'importe quel type de fichier Pascal autorisé. Le paramètre de nom physical est une chaîne de caractères dynamique. La procédure SETACNM supprime cette chaîne de caractères avant de quitter, pour récupérer l'espace.
- Si plusieurs types de fichiers sont utilisés dans un programme, l'opérateur de transfert de type (::) peut être utilisé pour permettre à SETACNM d'être appelé avec différents types de fichiers. La déclaration externe de SETACNM peut spécifier l'un des types de fichiers utilisés. L'opérateur de transfert de type doit ensuite être utilisé avec les autres types de fichiers pour éviter une erreur d'incompatibilité de type lors de la compilation. Chacun des autres fichiers doit être de type transféré vers le même type que celui utilisé dans la déclaration.
Exemple
L'exemple suivant illustre l'utilisation de SETACNM :
- (*$NO INOUT*) {éliminer le prompt pour INPUT & OUTPUT}
- PROGRAM SETACNMSamples;
- VAR
- printer:TEXT;
- out:FILE OF INTEGER;
-
- PROCEDURE SETACNM(VAR f : TEXT; name : STRING); EXTERNAL;
-
- BEGIN { Corps du programme SETACNMSamples }
- { cartographie le fichier logique "printer" à l'imprimante en ligne }
- SETACNM(printer,BLDSTR(':L'));
- { aucun prompt ne se produira lorsque REWRITE(printer) est exécuté }
- REWRITE(printer);
- { cartographie le fichier logique "out" au fichier disque "OUT/DAT" }
- SETACNM(out::TEXT,BLDSTR('OUT/DAT'));
- { aucune prompt ne se produira lorsque REWRITE (out) est exécuté }
- REWRITE(out);
- {...}
- END. { Fin du programme SETACNMSamples}
Dernière mise à jour : Vendredi, le 31 Juillet 2020