Editer un article - Informaticien.be

Editer un article

Titre
Mots Clés
Texte	'" Copyright (c) 1998-1999 Scriptics Corportation '" '" See the file "license.terms" for information on usage and redistribution '" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '" '" RCS: @(#) $Id: Access.3,v 1.3 1999/05/06 19:14:39 stanton Exp $ '" '" The definitions below are for supplemental macros used in Tcl/Tk '" manual entries. '" '" .AP type name in/out ?indent? '" Start paragraph describing an argument to a library procedure. '" type is type of argument (int, etc.), in/out is either "in", "out", '" or "in/out" to describe whether procedure reads or modifies arg, '" and indent is equivalent to second arg of .IP (shouldn't ever be '" needed; use .AS below instead) '" '" .AS ?type? ?name? '" Give maximum sizes of arguments for setting tab stops. Type and '" name are examples of largest possible arguments that will be passed '" to .AP later. If args are omitted, default tab stops are used. '" '" .BS '" Start box enclosure. From here until next .BE, everything will be '" enclosed in one large box. '" '" .BE '" End of box enclosure. '" '" .CS '" Begin code excerpt. '" '" .CE '" End code excerpt. '" '" .VS ?version? ?br? '" Begin vertical sidebar, for use in marking newly-changed parts '" of man pages. The first argument is ignored and used for recording '" the version when the .VS was added, so that the sidebars can be '" found and removed when they reach a certain age. If another argument '" is present, then a line break is forced before starting the sidebar. '" '" .VE '" End of vertical sidebar. '" '" .DS '" Begin an indented unfilled display. '" '" .DE '" End of indented unfilled display. '" '" .SO '" Start of list of standard options for a Tk widget. The '" options follow on successive lines, in four columns separated '" by tabs. '" '" .SE '" End of list of standard options for a Tk widget. '" '" .OP cmdName dbName dbClass '" Start of description of a specific option. cmdName gives the '" option's name as specified in the class command, dbName gives '" the option's name in the option database, and dbClass gives '" the option's class in the option database. '" '" .UL arg1 arg2 '" Print arg1 underlined, then print arg2 normally. '" '" RCS: @(#) $Id: man.macros,v 1.3 1999/04/16 00:46:35 stanton Exp $ '" '" # Set up traps and other miscellaneous stuff for Tcl/Tk man pages. .if t .wh -1.3i ^B .nr ^l n(.l .ad b '" # Start an argument description .de AP .ie !"$4"" .TP $4 .el { . ie !"$2"" .TP ()Cu . el .TP 15 .ta ()Au ()Bu .ie !"$3"" { &$1 fI$2fP ($3) .el { [b][/b] .ie !"$2"" { &$1 fI$2fP .el { &fI$1fP .. '" # define tabbing values for .AP .de AS .nr )A 10n .if !"$1"" .nr )A w'$1'u+3n .nr )B ()Au+15n .if !"$2"" .nr )B w'$2'u+ ()Au+3n .nr )C ()Bu+w'(in/out)'u+2n .. .AS Tcl_Interp Tcl_CreateInterp in/out '" # BS - start boxed text '" # ^y = starting y location '" # ^b = 1 .de BS [b][/b] .mk ^y .nr ^b 1u .if n .nf .if n .ti 0 .if n l' (.lu(ul' .if n .fi .. '" # BE - end boxed text (draw box now) .de BE .nf .ti 0 .mk ^t .ie n l' (^lu(ul' .el { .ie ! (^b-1 { h'-1.5n'L'\| (^yu-1v'l' (^lu+3n(ul'L' (^tu+1v- (^yu'l'\|0u-1.5n(ul' .el } h'-1.5n'L'\| (^yu-1v'h' (^lu+3n'L' (^tu+1v- (^yu'l'\|0u-1.5n(ul' .fi [b][/b] .nr ^b 0 .. '" # VS - start vertical sidebar '" # ^Y = starting y location '" # ^v = 1 (for troff; for nroff this doesn't matter) .de VS .if !"$2"" .br .mk ^Y .ie n 'mc s12(brs0 .el .nr ^v 1u .. '" # VE - end of vertical sidebar .de VE .ie n 'mc .el { .ev 2 .nf .ti 0 .mk ^t h'\| (^lu+3n'L'\| (^Yu-1v(bv'v' (^tu+1v- (^Yu'h'-\| (^lu+3n' -1 .fi .ev .nr ^v 0 .. '" # Special macro to handle page bottom: finish off current '" # box/sidebar if in box/sidebar mode, then invoked standard '" # page bottom macro. .de ^B .ev 2 'ti 0 'nf .mk ^t .if (^b { .ie ! (^b-1 h'-1.5n'L'\| (^yu-1v'l' (^lu+3n(ul'L' (^tu+1v- (^yu'h'\|0u'c .el h'-1.5n'L'\| (^yu-1v'h' (^lu+3n'L' (^tu+1v- (^yu'h'\|0u'c .if (^v { .nr ^x (^tu+1v- (^Yu kxh'- xu'h'\| (^lu+3n'kyL'- (^xu'v' (^xu'h'\|0u'c .bp 'fi .ev .if (^b { .mk ^y .nr ^b 2 .if (^v { .mk ^Y .. '" # DS - begin display .de DS[table][row][col]    [/col][col] .nf .. '" # DE - end display .de DE .fi[/col][/row][/table] .. '" # SO - start of list of standard options .de SO [size=18] [b]Options[/b] [/size]     .nf .ta 4c 8c 12c .ft B .. '" # SE - end of list of standard options .de SE .fi .ft R     See the fBoptionsfR manual entry for details on the standard options. .. '" # OP - start of full description for a single option .de OP     .nf .ta 4c Command-Line Name: fB$1fR Database Name: fB$2fR Database Class: fB$3fR .fi [/col][/row][/table] .BS [size=18] [b]Nom[/b] [/size] Tcl_Access, Tcl_Stat - vérification des droits de fichier et d'autres attributs [size=18] [b]Résumé[/b] [/size] .nf [b]#include[/b] <tcl.h> int [b]Tcl_Access[/b]([i]path[/i], [i]mode[/i]) int [b]Tcl_Stat[/b]([i]path[/i], [i]statPtr[/i]) [size=18] [b]Arguments[/b] [/size] .AS stat statPtr in .AP char path in Nom du fichier (dans le système d'exploitation utilisé) dont vous désirez vérifier le statut. .AP int mode in Masque constitué de l'un ou plus des identifiants R_OK, W_OK, X_OK et F_OK. R_OK, W_OK et X_OK vérifie si le fichier existe et possède respectivement des droits en lecture, écriture et exécution. F_OK vérifie simplement l'existence du fichier. .AP stat *statPtr out La structure stat instanciée lors de l'appel à [b]Tcl_Stat[/b]. .BE [size=18] [b]Description[/b] [/size] Il y a deux raisons motivant l'appel à [b]Tcl_Access[/b] et [b]Tcl_Stat[/b] plutôt que l'utilisation directe des fonctions systèmes [b]access[/b] et [b]stat[/b]. Tout d'abord, l'implantation Windows de ces deux fonctions corrige certains bogues des appels systèmes. Deuxièmement, [b]Tcl_Access[/b] et [b]Tcl_Stat[/b] (tout autant que [b]Tcl_OpenFileChannelProc[/b]) sont attachés à une liste chaînée de fonctions. Ceci donne la possibilité de rediriger les accès fichiers vers d'autres types de média ou d'autres méthodes d'accès. [b]Tcl_Access[/b] vérifie si le processus possède un droit de lecture, d'écriture ou teste l'existence du fichier (ou de tout objet du système de fichier) dont le nom est pathname. Si pathname est un lien symbolique sous Unix, ce sont les permissions d'accès du fichier auquel se rapporte le lien qui sont vérifiées. En cas de succès (toutes les permissions demandées sont disponibles) la fonction retourne zéro. En cas d'erreur (l'une des permissions demandées n'est pas autorisée ou toute autre type d'erreur) la fonction retourne -1. [b]Tcl_Stat[/b] instancie la structure stat [i]statPtr[/i] avec les informations liées au fichier spécifié. Vous n'avez besoin d'aucun droit d'accès au fichier pour obtenir les informations, mais vous devez avoir le droit de parcours de tous les répertoires mentionnés dans le chemin menant au fichier. La structure stat renferme des informations sur le périphérique, l'i-noeud (ce champ est toujours égal à 0 sous Windows), les protections, le nombre de liens matériels (ce champ est toujours égal à 1 sous Windows), l'UID propriétaire (toujours à 0 sous Windows), le GID propriétaire (toujours à 0 sous Windows), le type de périphérique (identique au périphérique sous Windows), la taille, l'heure du dernier accès, l'heure de la dernière modification et l'heure de création du fichier. Si [i]path[/i] existe, [b]Tcl_Stat[/b] renvoie 0 et la structure stat est instanciée avec les informations décrites ci-dessus. Dans le cas contraire, la fonction renvoie -1 et la structure stat n'est pas instanciée. [size=18] [b]Mots-clÉs[/b] [/size] stat access
Fichier