Cette fonction permet d'implémenter une gestion d'événement au sein d'un objet synthétique.
Pour cet exemple on ne peut gérer qu'une seule instance, étant donnée que la déclaration d'un événements personnalisé est globale :
[code:1]
function New-CustomObject {
Param(
[ValidateNotNullOrEmpty()]
[string]$VariableName,
[Scriptblock] $PreModification=$null,
[Scriptblock] $PostModification=$null)
#On crée un objet à partir des membres d'un module.
#Le module sert à encapsuler des membres privés.
$CustomObject=New-Module -AsCustomObject -ScriptBlock {
#Crée une variable en lecture seule
New-Variable Events -Option ReadOnly -Value ([String[]]@(
\"PSPreModification\",\"PSPostModification\"«»))
#On mémorise le nom de la variable hébergeant ce module
New-Variable Name -Option ReadOnly -Value ([String]\"$($args[0])\"«»)
#Crée des variables accessible dans la portée
#de ce module dynamique.
[int] $script:_Nombre=0
#Contient un scriptblock lié à
#l'événement personnel nommée PSPreModification.
[Scriptblock] $script:«»PreModification=$null
[Scriptblock] $script:«»PostModification=$null
$script:module= $ExecutionContext.SessionState.Module
#Accesseur, permet de se placer dans la portée du module.
function GetModuleMember{
param([String]$MemberName) invoke-expression \"Return `$script:$MemberName\"}
function SetModuleMember{
param([String]$MemberName,$Value) invoke-expression \"`$script:$MemberName=`$Value\"}
#Gestion de l'affectation des événements et de leur scriptblock associé.
#Cette fonction crée l'abonnement à l'événement spécifiée s'il n'existe pas.
#S'il existe, on l'annule puis on supprime le job associé avant de recréer
#l'abonnement.
#
#ex : La variable PostModification héberge une copie du scriptblock
# affecté à l'événement PSPostModification.
function AssignScriptBlock{
param([String]$Eventname,[ScriptBlock]$sb)
if ($Script:Events -notcontains $Eventname)
{Throw \"'$EventName' nom d'événement inconnu. La variable $($Script:Name) ne supporte que les événements suivants : \"+
\"$($oldOfs=$Ofs;$Ofs=', ';\"$Script:Events\";$ofs=$oldOfs)\"}
$JobResult=$null
#Le préfixe \"PS\" est une convention de nommage
#des événements personnel.
# 1 evénement personnel = \"PS\"+nom_de_la_propriété_scriptblock
$PropertyName=($Eventname -Split \"PS\"«»)[1]
#Syntaxe d'appel interne
#On affecte la valeur seulement si c'est nécessaire.
if (((GetModuleMember $PropertyName) -eq $null) -and $sb -eq $null) {return}
#Récupére l'abonné $Eventname s'il existe
$Subcriber=Get-EventSubscriber $Eventname -ea SilentlyContinue
if ($Subcriber)
{
$Job=$Subcriber.Action.Id
#on récupére, avant son arrêt, les possibles
#données émisent par le job.
$JobResult=Receive-Job $Job
#On arrête le job de l'abonnement,
#on se désabonne implicitement
Stop-Job $Job
#On supprime le job qui était associé
# l'abonnement de l'événement $Eventname
Remove-Job $Job
}
#Maj de la propriété privée
SetModuleMember $PropertyName $sb
if ($sb -ne $null)
{
#On se réabonne à l'événement avec
#le nouveau scriptblock
$null=Register-EngineEvent $Eventname $sb
}
# Si le scriptblock est à $null on a
# déjà annulé l'abonnement
#on réémet les possibles données précédement
#émisent par le job ($Subcriber.Action)
$JobResult
}
#Initialise si besoin les abonnements
if ($args[1] -ne $null)
{ AssignScriptBlock \"PSPreModification\" $args[1]}
if ($args[2] -ne $null)
{ AssignScriptBlock \"PSPostModification\" $args[2]}
Export-ModuleMember -Function AssignScriptBlock,GetModuleMember,SetModuleMember `
-Variable Name,Events,OnPreModification,OnPostModification
} -ArgumentList $VariableName,$PreModification,$PostModification
#On ajoute des propriété synthétiques pour bénéficier des accesseurs getter et setter.
#Elles accédent au propriétés privées du module à l'aide des fonctions publiques
# GetModuleMember et SetModuleMember.
#Leurs syntaxe d'appel différe lors d'un usage à l'extérieur du module.
$CustomObject|add-member -membertype ScriptProperty -Name Nombre -value {$this.GetModuleMember(\"_Nombre\"«»)} `
-secondvalue {
param([int]$Value)
$Oldvalue=$this.GetModuleMember(\"_Nombre\"«»)
$this.SetModuleMember(\"_Nombre\",$Value)
#Si un abonnement existe on déclenche l'événement
if (Get-EventSubscriber \"PSPreModification\"«»)
{ New-Event \"PSPreModification\" (gv $this.Name) @{Old=$OldValue} \"Valeur de la propriété Nombre avant modification \" }
if (Get-EventSubscriber \"PSPostModification\"«»)
{ New-Event \"PSPostModification\" (gv $this.Name) @{Old=$OldValue;New=$Value} \"Valeur de la propriété Nombre après modification \" }
} -pass|
#Propriété permettant d'affecter le traitement associé à un événement.
#On masque ainsi la gestion des abonnements d'événement tout en la facilitant.
add-member -membertype ScriptProperty -Name OnPreModification -value {$this.GetModuleMember(\"PreModification\"«»)} -secondvalue {
Param ([Scriptblock] $Value)
$this.AssignScriptBlock(\"PSPreModification\",$Value) } -pass|
add-member -membertype ScriptProperty -Name OnPostModification -value {$this.GetModuleMember(\"PostModification\"«»)} -secondvalue {
Param ([Scriptblock] $Value)
$this.AssignScriptBlock(\"PSPostModification\",$Value) } -pass|
add-member -membertype ScriptMethod -Name DisposeAndRemove -value {
#S'ils sont déclarés, on supprime
#les abonnements en cours
if ($this.OnPreModification -ne $null)
{$this.OnPreModification=$null}
if ($this.OnPostModification -ne $null)
{$this.OnPostModification=$null}
#Last but not least
#Supprime la variable dans la portée parente
Remove-Variable $this.Name -Scope 1
}
$CustomObject
}
[/code:1]
Un exemple d'utilisation :
[code:1]
#Initialisation
$sbPre={
Write-Host (\"[PreProcess] Old={0}\" –F $Event.SourceArgs[0].Old) -Fore green
}
$sbPost={
Write-Host (\"[PostProcess] Old={0}`tNew={1}\" –F $Event.SourceArgs[0].Old, $Event.SourceArgs[0].New) -Fore green
}
$ObjEvt=New-CustomObject \"ObjEvt\" $sbPre $sbPost
$ObjEvt
$ObjEvt.Nombre
$ObjEvt.Nombre=2
[/code:1]<br><br>Message édité par: Laurent Dardenne, à: 28/04/10 13:58
