- ; /hrename <hashtable #1> <hashtable #2>
- ; Renommer une hashtable facilement...
-
- ; Ouverture de l'alias
- alias hrename {
- var %x = $+(",$mircdir,$ticks,.hsh,")
- ; Si la hashtable ($1) n'existe pas, arrêt des procédures
- if (!$hget($1)) { return }
- ; Sauvegarde des données de la hashtable ($1) dans un fichier (%x)
- hsave $1 %x
- ; Création de la nouvelle hashtable ($2)
- hmake $2 $hget($1).size
- ; Chargement des données vers la nouvelle hashtable ($2)
- hload $2 %x
- ; Effacement du fichier de sauvegarde (%x)
- .remove %x
- ; Effacement de l'ancienne hashtable ($1)
- hfree $1
- }
; /hrename <hashtable #1> <hashtable #2>
; Renommer une hashtable facilement...
; Ouverture de l'alias
alias hrename {
var %x = $+(",$mircdir,$ticks,.hsh,")
; Si la hashtable ($1) n'existe pas, arrêt des procédures
if (!$hget($1)) { return }
; Sauvegarde des données de la hashtable ($1) dans un fichier (%x)
hsave $1 %x
; Création de la nouvelle hashtable ($2)
hmake $2 $hget($1).size
; Chargement des données vers la nouvelle hashtable ($2)
hload $2 %x
; Effacement du fichier de sauvegarde (%x)
.remove %x
; Effacement de l'ancienne hashtable ($1)
hfree $1
}