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 full text search [http://www.sqlite.org/fts3.html]. 

Searches not ending with a `*` are done on page titles only. Searches ending with a * are done on page titles and page 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
   }
   
----