'''o July 18, 2006'''

I'm a tcl/tk newbie. I'm still trying to learn the tcl way of programming which is kind of different to    what I'm used to.

I'm now working on a function/procedure that would convert '''NUMBERS TO WORDS'''. I'll put the link here as   soon as it is done.
----
[[[Wiki formatting rules]]]
----
CAU - Have you seen these : [Bag of number/time spellers] ?

Arlie - It looks similar to what I'm planning to work on.
----
'''o August 16, 2006'''

Arlie - I tried my hands on [Gadgets] and found it very interesting but I was not successfull in running the shorter version of [Larry Smith].

 proc gadget { unused type methods } {
  set typeproc {
    set typeproc {
      upvar @var self
      @type self $method $args
    }
    upvar $var self
    if { "$method" == "" } {
      return $self
    }
    switch $method {
      @methods
    }
    regsub @var $typeproc $var typeproc
    proc $var { { method "" } args } $typeproc
  }
  regsub @type $typeproc $type typeproc
  regsub @methods $typeproc $methods typeproc
  proc $type { var method args } $typeproc
 }

Running the test code I got this output:

  gadget type number {
      =     {set self [expr $args]}
      ++    {set self [expr $self+1]}
      round {set self [expr round($self)]}
      sqrt  {expr sqrt($self)}
   }
   gadget type int {
      =  {set self [expr round($args)]}
      ++ {incr self}
   }
   gadget type Array {
      = - += {eval array set self $args }
      -=     {catch {unset self($args)}}
      @      {set self($args)}
      empty  {expr [array size self]==0}
      names  {array names self}
      {}     {array get self}
   }
   gadget type List {
      =      {eval set self $args}
      +=     {lappend self $args}
      @      {lindex $self $args}
      empty  {expr [llength $self]==0}
      sort   {lsort $self}
      length {llength $self}
   }
   gadget type File {
     =     {set self [eval open $args]}
     >>    {upvar $args var; expr [gets $self var]+1}
     <<    {puts $self $args}
     eof   {eof $self}
     open? {expr ![catch {seek $self 0 current}]}
     close {close $self}
  }


  1 % number N = 1.5
  2 % Array A
  wrong # args: should be "Array var method args"
  3 % List L = {foo bar}
  4 % N = [N] * $N  
  5 % set A(cat) Katze
  Katze
  6 % A names 
  wrong # args: should be "Array var method args"
  7 % L += grill
  8 % L = [L sort]
  9 % puts "[L] has [L length] elements, second is [L @ 1]"
  {} has  elements, second is 
  10 % 
  10 %  File F = "c:/gadget.tcl"
  11 % int i = 1
  12 % while {[F >> line]} {
  >     puts [i]:$line
  >     i ++
  >  }
  variable "var" already exists
  13 %  F close
  14 % 

Can anyone help me on this?

----

#-------------------------
#installatie postgres 8.04
#-------------------------
#
#Hier heb ik geschreven welke stappen ik moest uitvoeren om postgres te kunnen laten werken op Ubuntu Hoary 4.05.
#Deze stappen zijn hetzelfde voor andere Linux distributies.
#
#Indien er problemen opduiken kan je op de volgende site meer lezen:
#http://www.postgresql.org/docs/8.0/interactive/
#



#download postgres 8.04:

ftp://ftp.be.postgresql.org/postgresql/source/v8.0.4/postgresql-8.0.4.tar.bz2




#uitpakken

bunzip2 postgresql-8.0.4.tar.bz2

tar -xvhf postgresql-8.0.4.tar

cd postgresql-8.0.4




#installatie

./configure

make

(optioneel) make check

(als root) make install




#initialisatie

(als root) creëer een postgres user (naam en andere zelf te kiezen)

voeg de volgende regels toe aan het ~/.bashrc bestand van de postgres user en de eigen user:
#PostgreSQL
export PATH="/usr/local/pgsql/bin:$PATH"
export MANPATH="/usr/local/pgsql/man:$MANPATH"

(als postgres) initdb -D datadirectory (datadirectory zelf te kiezen; dit is de map waar alle databases terecht zullen komen. Overal waar vanaf nu 'datadirectory staat' wordt deze zelf gekozen directory bedoeld. De datadirectory wordt aangemaakt, maar zorg ervoor dat de bovenliggende map de postgres user als eigenaar heeft.)




#gebruik

(als postgres) pg_ctl -D datadirectory -l logfile start (Als men voor logfile geen pad opgeeft zal het logfile in de werkdirectory gemaakt worden.)

Om niet telkens als postgres in te moeten loggen om de database server te starten kan men ook het volgende uitvoeren:
su -c 'pg_ctl -D datadirectory -l logfile start' postgres

(als postgres) createuser username (username te kiezen; Voor een database moet men apparte usernames - los van de Linux usernames - aanmaken.)

Nu kan je de postgres user terug uitloggen en als gewone gebruiker beginnen met de tutorial te volgen op http://www.postgresql.org/docs/8.0/interactive/tutorial-createdb.html




#afsluiten

(als postgres) Om PostgreSQL af te sluiten kan je een SIGINT signaal (signaalnummer te vinden met 'kill -l' sturen naar het juiste process id (te vinden met 'ps -a' of in datadir/postmaster.pid).




#uninstalleren

(als root) make uninstall