The Tclers Wiki search page is available at http://wiki.tcl.tk/_/search . This search corresponds to the ''search in titles'' box in the left column. It is based on [sqlite]'s [http://www.sqlite.org/fts3.html%|%full text search]. The search string is passed as `MATCH` argument, including the `*` characters. Check http://www.sqlite.org/fts3.html for more information about [sqlite] and full text search.

[jdc] 31-oct 2011 The `*` used in previous versions of the search to distinguish between searching in titles or page content is no longer supported. Searches are now always done on titles and page content. The results are listed sorted on the last-edited-data, most recent first. An extra column indicates where the match was found: in the page name or contents. 

The [sqlite] in use at the wiki has been compiled with `-DSQLITE_ENABLE_FTS3_PARENTHESIS` so the ''Enhanced Query Syntax'' is available. This makes is possible to do the searches with an implicit `AND` as before but also allows you to refine your search using the `AND`, `OR` and `NOT` keywords.
----

Here below, you'll find the old content of page 2.

----

During Feb, 2002, [Gerald Lester] posted some basic Tcl code to 
news:comp.lang.tcl implementing version 0.1 of a Tcl script level
package to perform packed decimal math.  For a C based solution to
precise math, see [mpexpr].

----

======
   package provide packedDecimal 0.1
   
   namespace eval packedDecimal {
       namespace export add subtract multiply divide setDecimals
   
       variable decimals 2
       variable formatString {%d.%2.2d}
       variable carry 100
   }
   
   proc packedDecimal::add {a b} {
       variable decimals
       variable formatString
   
       scan $a %d.%d a1 a2
       scan $b %d.%d b1 b2
       incr a2 $b2
       if {[string length $a2] > $decimals} then {
           incr a1 1
           set a2 [string range $a2 1 end]
       }
       incr a1 $b1
       return [format $formatString $a1 $a2]
   }
   
   proc packedDecimal::subtract {a b} {
       variable decimals
       variable formatString
       variable carry
   
       scan $a %d.%d a1 a2
       scan $b %d.%d b1 b2
       incr a2 -$b2
       if {$a2 < 0} then {
           incr b1 1
           set a2 [expr {$carry + $a2}]
       }
       incr a1 -$b1
       return [format $formatString $a1 $a2]
   }
   
   proc packedDecimal::multiple {a b} {
       variable decimals
       variable formatString
   
       return -code error {Sorry, Multiple is not yet implemented!}
   }
   
   proc packedDecimal::divide {a b} {
       variable decimals
       variable formatString
   
       return -code error {Sorry, Divide is not yet implemented!}
   }
   
   proc packedDecimal::setDecimals {a} {
       variable decimals
       variable formatString
       variable carry 100
   
       set formatString [format {%%d.%%%d.%dd} $a $a]
       set decimals $a
       set carry [format "1%${a}.${a}d" 0]
       return;
   }
   
   proc packedDecimal::getDecimals {} {
       variable decimals
   
       return $decimals
   }
======
   
<<categories>>Wikit