You are viewing a plain text version of this content. The canonical link for it is here.
Posted to site-cvs@tcl.apache.org by mx...@apache.org on 2016/09/08 11:30:45 UTC
svn commit: r1759781 - in /tcl/rivet/branches/2.3: ChangeLog
rivet/rivet-tcl/catch.tcl rivet/rivet-tcl/tclIndex rivet/rivet-tcl/try.tcl
rivet/rivet-tcl/url_query.tcl
Author: mxmanghi
Date: Thu Sep 8 11:30:44 2016
New Revision: 1759781
URL: http://svn.apache.org/viewvc?rev=1759781&view=rev
Log:
* Changelog: removed spurious duplicated entry
* rivet/rivet-tcl/try.tcl: enable Id svn keyword
* rivet/rivet-tcl/catch.tcl: fixed wrong script invocation, enable Id svn keyword
* rivet/rivet-tcl/url_query.tcl: add new command ::rivet::url_query
Added:
tcl/rivet/branches/2.3/rivet/rivet-tcl/url_query.tcl
Modified:
tcl/rivet/branches/2.3/ChangeLog
tcl/rivet/branches/2.3/rivet/rivet-tcl/catch.tcl (contents, props changed)
tcl/rivet/branches/2.3/rivet/rivet-tcl/tclIndex
tcl/rivet/branches/2.3/rivet/rivet-tcl/try.tcl (contents, props changed)
Modified: tcl/rivet/branches/2.3/ChangeLog
URL: http://svn.apache.org/viewvc/tcl/rivet/branches/2.3/ChangeLog?rev=1759781&r1=1759780&r2=1759781&view=diff
==============================================================================
--- tcl/rivet/branches/2.3/ChangeLog (original)
+++ tcl/rivet/branches/2.3/ChangeLog Thu Sep 8 11:30:44 2016
@@ -1,3 +1,9 @@
+2016-09-08 Massimo Manghi <mx...@apache.org>
+ * Changelog: removed spurious duplicated entry
+ * rivet/rivet-tcl/try.tcl: enable Id svn keyword
+ * rivet/rivet-tcl/catch.tcl: fixed wrong script invocation, enable Id svn keyword
+ * rivet/rivet-tcl/url_query.tcl: add new command ::rivet::url_query
+
2016-09-07 Massimo Manghi <mx...@apache.org>
* rivet/rivet-tcl/catch.tcl: fixed argument management in ::catch call
@@ -23,10 +29,7 @@
2016-04-05 Massimo Manghi <mx...@apache.org>
* rivet/packages/form/form.tcl: wrong element created by 'file' method
- * doc/xml/examples.xml: conflicting target fixed
-
-2016-04-05 Massimo Manghi <mx...@apache.org>
- * rivet/packages/form/form2.tcl: wrong element created by 'file' method
+ * doc/xml/examples.xml: conflicting targets fixed
2016-04-04 Massimo Manghi <mx...@apache.org>
* doc/rivet.xml: Add 2016 to copyright notice
Modified: tcl/rivet/branches/2.3/rivet/rivet-tcl/catch.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/branches/2.3/rivet/rivet-tcl/catch.tcl?rev=1759781&r1=1759780&r2=1759781&view=diff
==============================================================================
--- tcl/rivet/branches/2.3/rivet/rivet-tcl/catch.tcl (original)
+++ tcl/rivet/branches/2.3/rivet/rivet-tcl/catch.tcl Thu Sep 8 11:30:44 2016
@@ -5,7 +5,7 @@
# or [::rivet::exit]. In case the error is thrown again to allow
# the interpreter to interrupt and pass execution to AbortScript
#
-# $Id: $
+# $Id $
#
namespace eval ::rivet {
Propchange: tcl/rivet/branches/2.3/rivet/rivet-tcl/catch.tcl
------------------------------------------------------------------------------
svn:keywords = Id
Modified: tcl/rivet/branches/2.3/rivet/rivet-tcl/tclIndex
URL: http://svn.apache.org/viewvc/tcl/rivet/branches/2.3/rivet/rivet-tcl/tclIndex?rev=1759781&r1=1759780&r2=1759781&view=diff
==============================================================================
--- tcl/rivet/branches/2.3/rivet/rivet-tcl/tclIndex (original)
+++ tcl/rivet/branches/2.3/rivet/rivet-tcl/tclIndex Thu Sep 8 11:30:44 2016
@@ -30,3 +30,4 @@ set auto_index(::rivet::xml) [list sourc
set auto_index(::rivet::redirect) [list source [file join $dir redirect.tcl]]
set auto_index(::rivet::catch) [list source [file join $dir catch.tcl]]
set auto_index(::rivet::try) [list source [file join $dir try.tcl]]
+set auto_index(::rivet::url_query) [list source [file join $dir url_query.tcl]]
Modified: tcl/rivet/branches/2.3/rivet/rivet-tcl/try.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/branches/2.3/rivet/rivet-tcl/try.tcl?rev=1759781&r1=1759780&r2=1759781&view=diff
==============================================================================
--- tcl/rivet/branches/2.3/rivet/rivet-tcl/try.tcl (original)
+++ tcl/rivet/branches/2.3/rivet/rivet-tcl/try.tcl Thu Sep 8 11:30:44 2016
@@ -2,7 +2,7 @@
#
# Wrapper of the core [try] command
#
-# $Id: $
+# $Id $
#
namespace eval ::rivet {
Propchange: tcl/rivet/branches/2.3/rivet/rivet-tcl/try.tcl
------------------------------------------------------------------------------
svn:keywords = Id
Added: tcl/rivet/branches/2.3/rivet/rivet-tcl/url_query.tcl
URL: http://svn.apache.org/viewvc/tcl/rivet/branches/2.3/rivet/rivet-tcl/url_query.tcl?rev=1759781&view=auto
==============================================================================
--- tcl/rivet/branches/2.3/rivet/rivet-tcl/url_query.tcl (added)
+++ tcl/rivet/branches/2.3/rivet/rivet-tcl/url_query.tcl Thu Sep 8 11:30:44 2016
@@ -0,0 +1,24 @@
+# -- url_query
+#
+# Build a URL query starting from a list of parameter-value
+# pairs. If the list size is odd the last element in the list
+# is discarded. Values in the list are escaped using
+# ::rivet::escape_string
+
+
+namespace eval ::rivet {
+
+ proc url_query {args} {
+
+ set args_list $args
+
+ set urlarg ""
+ while {[llength $args_list] > 1} {
+ set args_list [lassign $args_list par val]
+ lappend urlarg "$par=[::rivet::escape_string $val]"
+ }
+ return [join $urlarg "&"]
+
+ }
+
+}
---------------------------------------------------------------------
To unsubscribe, e-mail: site-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: site-cvs-help@tcl.apache.org