Item1156: Create Release01x00 branch

git-svn-id: http://svn.foswiki.org/branches/Release01x00@2731 0b4bb1d4-4e5a-0410-9cc4-b2b747904278

SpreadSheetPlugin/data/System/VarCALC.txt

@@ -0,0 +1,12 @@
+%META:TOPICINFO{author="ProjectContributor" date="1180825069" format="1.0" version="1.1"}%
+%META:TOPICPARENT{name="Macros"}%
+#VarCALC
+---+++ CALC{"formula"} -- add spreadsheet calculations to tables and outside tables
+	* The =%<nop>CALC{"formula"}%= macro is handled by the SpreadSheetPlugin. There are around 80 formulae, such as =$ABS()=, =$EXACT()=, =$EXISTS()=, =$GET()/$SET()=, =$IF()=, =$LOG()=, =$LOWER()=, =$PERCENTILE()=, =$TIME()=, =$VALUE()=.
+	* Syntax: =%<nop>CALC{"formula"}%=
+	* Examples:
+		* =%<nop>CALC{"$SUM($ABOVE())"}%= returns the sum of all cells above the current cell
+		* =%<nop>CALC{"$EXISTS(<nop>Web.SomeTopic)"}%= returns =1= if the topic exists
+		* =%<nop>CALC{"$UPPER(Collaboration)"}%= returns =COLLABORATION=
+	* Related: [[#VarIF][IF]], SpreadSheetPlugin
+

SpreadSheetPlugin/lib/Foswiki/Plugins/SpreadSheetPlugin.pm

@@ -0,0 +1,95 @@
+# Plugin for Foswiki - The Free and Open Source Wiki, http://foswiki.org/
+#
+# Copyright (C) 2001-2007 Peter Thoeny, peter@thoeny.org
+# Copyright (C) 2008 Foswiki Contributors
+#
+# This program is free software; you can redistribute it and/or
+# modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 2
+# of the License, or (at your option) any later version. For
+# more details read LICENSE in the root of this distribution.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details, published at
+# http://www.gnu.org/copyleft/gpl.html
+#
+# As per the GPL, removal of this notice is prohibited.
+#
+# =========================
+#
+# This is Foswiki's Spreadsheet Plugin.
+#
+
+package Foswiki::Plugins::SpreadSheetPlugin;
+
+
+# =========================
+use vars qw(
+        $web $topic $user $installWeb $VERSION $RELEASE $debug $skipInclude $doInit
+    );
+
+# This should always be $Rev: 13748 $ so that Foswiki can determine the checked-in
+# status of the plugin. It is used by the build automation tools, so
+# you should leave it alone.
+$VERSION = '$Rev: 13748 $';
+
+# This is a free-form string you can use to "name" your own plugin version.
+# It is *not* used by the build automation tools, but is reported as part
+# of the version number in PLUGINDESCRIPTIONS.
+$RELEASE = '06 Jan 2009';
+
+$doInit = 0;
+
+# =========================
+sub initPlugin
+{
+    ( $topic, $web, $user, $installWeb ) = @_;
+
+    # check for Plugins.pm versions
+    if( $Foswiki::Plugins::VERSION < 1 ) {
+        Foswiki::Func::writeWarning( "Version mismatch between SpreadSheetPlugin and Plugins.pm" );
+        return 0;
+    }
+
+    # Get plugin debug flag
+    $debug = Foswiki::Func::getPreferencesFlag( "SPREADSHEETPLUGIN_DEBUG" );
+
+    # Flag to skip calc if in include
+    $skipInclude = Foswiki::Func::getPreferencesFlag( "SPREADSHEETPLUGIN_SKIPINCLUDE" );
+
+    # Plugin correctly initialized
+    Foswiki::Func::writeDebug( "- Foswiki::Plugins::SpreadSheetPlugin::initPlugin( $web.$topic ) is OK" ) if $debug;
+    $doInit = 1;
+    return 1;
+}
+
+# =========================
+sub commonTagsHandler
+{
+### my ( $text, $topic, $web ) = @_;   # do not uncomment, use $_[0], $_[1]... instead
+
+    Foswiki::Func::writeDebug( "- SpreadSheetPlugin::commonTagsHandler( $_[2].$_[1] )" ) if $debug;
+
+    if( ( $_[3] ) && ( $skipInclude ) ) {
+        # bail out, handler called from an %INCLUDE{}%
+        return;
+    }
+    unless( $_[0] =~ /%CALC\{.*?\}%/ ) {
+        # nothing to do
+        return;
+    }
+
+    require Foswiki::Plugins::SpreadSheetPlugin::Calc;
+
+    if( $doInit ) {
+        $doInit = 0;
+        Foswiki::Plugins::SpreadSheetPlugin::Calc::init( $web, $topic, $debug );
+    }
+    Foswiki::Plugins::SpreadSheetPlugin::Calc::CALC( @_ );
+}
+
+1;
+
+# EOF