Changeset 942 for trunk

Timestamp:

03/07/2008 04:41:53 (5 months ago)

Author:

james

Message:

use proper array initialisation, now I know how!
reindent

Location:

trunk

Files:

• modules/plugins.tcl (modified) (1 diff)
• plugins/complex.tcl (modified) (3 diffs)

trunk/modules/plugins.tcl

@@ -23 +23 @@
 ## Simple plugins
 if [info exists bMotion_plugins_simple] { unset bMotion_plugins_simple }
-set bMotion_plugins_simple(dummy) "_{100,100}Š0Š/has a tremendous plugin-related error (wahey)$"
+array set bMotion_plugins_simple {}
 
 ## Admin plugins (.bmotion)
 if [info exists bMotion_plugins_admin] { unset bMotion_plugins_admin }
-set bMotion_plugins_admin(dummy) "none"
+array set bMotion_plugins_admin {}
 
 ## complex plugins
 if [info exists bMotion_plugins_complex] { unset bMotion_plugins_complex }
-set bMotion_plugins_complex(dummy) "none"
+array set bMotion_plugins_complex {}
 
 ## output plugins
 if [info exists bMotion_plugins_output] { unset bMotion_plugins_output }
-set bMotion_plugins_output(dummy) "none"
+array set bMotion_plugins_output {}
 
 ## action simple plugins
 if [info exists bMotion_plugins_action_simple] { unset bMotion_plugins_action_simple }
-set bMotion_plugins_action_simple(dummy) "none"
+array set bMotion_plugins_action_simple {}
 
 ## action complex plugins
 if [info exists bMotion_plugins_action_complex] { unset bMotion_plugins_action_complex }
-set bMotion_plugins_action_complex(dummy) "none"
+array set bMotion_plugins_action_complex {}
 
 ## irc_event plugins
 if [info exists bMotion_plugins_irc_event] { unset bMotion_plugins_irc_event }
-set bMotion_plugins_irc_event(dummy) "none"
+array set bMotion_plugins_irc_event {}
 
 ## management plugins
 if [info exists bMotion_plugins_management] { unset bMotion_plugins_management }
-set bMotion_plugins_management(dummy) "none"
+array set bMotion_plugins_management {}
 
 ##############################################################################################################################

trunk/plugins/complex.tcl

@@ -1 +1 @@
 ## bMotion plugins loader: complex
-#
-# $Id$
 #
 
 ###############################################################################
-# This is a bMotion plugin
-# Copyright (C) James Michael Seward 2000-2002
+# This is a bMotion module
+# Copyright (C) James Michael Seward 2000-2008
 #
 # This program is covered by the GPL, please refer the to LICENCE file in the
@@ -15 +13 @@
 set currentlang $bMotionInfo(language)
 set languages [split $bMotionSettings(languages) ","]
+
 foreach bMotion_language $languages {
-  set bMotionInfo(language) $bMotion_language
-  bMotion_putloglev 2 * "bMotion: loading complex plugins language = $bMotion_language"
-  set files [glob -nocomplain "$bMotionPlugins/$bMotion_language/complex_*.tcl"]
-  foreach f $files {
+        set bMotionInfo(language) $bMotion_language
+        bMotion_putloglev 2 * "bMotion: loading complex plugins language = $bMotion_language"
+        set files [glob -nocomplain "$bMotionPlugins/$bMotion_language/complex_*.tcl"]
+
+        foreach f $files {
                 set count [llength [array names bMotion_plugins_complex]]
                 set bMotion_noplugins 0
-    bMotion_putloglev 1 * "bMotion: loading ($bMotion_language) complex plugin file $f"
-    catch {
-      source $f
-    } err
+                bMotion_putloglev 1 * "bMotion: loading ($bMotion_language) complex plugin file $f"
+                catch {
+                        source $f
+                } err
                 set newcount [llength [array names bMotion_plugins_complex]]
                 if {($bMotion_testing == 0) && ($newcount == $count) && ($bMotion_noplugins == 0)} {
@@ -31 +31 @@
                         putlog "Possible error: $err"
                 }
-  }
+        }
 }
+
 set bMotionInfo(language) $currentlang
 unset currentlang