From mboxrd@z Thu Jan  1 00:00:00 1970
From: Ian Roxborough <irox@redhat.com>
To: Rodger Hughes <rodger@synchronicity.com>
Cc: sourcenav@sources.redhat.com
Subject: Re: Source Navigator 5.0 and [incr TCL]
Date: Wed, 06 Jun 2001 17:33:00 -0000
Message-id: <3B1ECBCE.5C8746EC@redhat.com>
References: <3B1EC7E4.FFDC8B0E@synchronicity.com>
X-SW-Source: 2001-q2/msg00204.html

Yeah, this is a big downer, we only work with Itcl 1.0/2.0 and
not the 3.0 syntax (Yes, this does mean that we can't parser a
big chunk of Source-Navigator).

The required solution is either fix the current Itcl parser
to work with Itcl 3.0 or write a new one (or adapt an existing one).

When will this be done? Well, I was hoping to have an Itcl 3.0
parser by now, I started writing a new parser Tcl/Itcl in PCCTS,
but I've not done anything on it for a while.

Ian.


Rodger Hughes wrote:
> 
> Hello Source-Navigator Team.
> 
> I've just started playing with SN 5.0 and I can not get it to recognize
> classes, methods etc... in my ITCL source.  I've even tried a very
> simple
> itcl source (see below.)  I'm running under Window NT 4.0 SP6.
> 
> I also tried SN 4.5.2 and get the same results.  It ignores the classes,
> treats
> the methods as functions.  The only "classes" I can get it to recognize
> are
> tcl namespaces.
> 
> Also, if  add an inherit foo line to the Timer class I get an error when
> the code
> parses.
> 
> >From what I've seen, SN looks really useful.
> 
> Second Question:  whats the proper way to install 5.0 on windows?  The
> binaries (.zip file) doesn't have an installer like 4.5.2 does and there
> aren't
> any instructions.
> 
> Thanks
> Rodger Hughes.
> 
>   --------------------------------------------------------------------------------
>                Name: tmp.proj
>    tmp.proj    Type: unspecified type (application/octet-stream)
>            Encoding: base64
> 
>   --------------------------------------------------------------------------------
> 
> package require Itcl
> 
> ::itcl::class foo {
>   private variable f_up
>   private varible f_act
> 
>   public method fup {} {
>     puts $up
>   }
>   public method fact {} {
>     puts $act
>   }
>   constructor {up act} {
>     set f_up $up
>     set f_act $act
>   }
> }
> ::itcl::class Timer {
>   #inherit foo
>   private variable t_up
>   private varible t_act
> 
>   public method up {} {
>     puts $up
>   }
>   public method act {} {
>     puts $act
>   }
>   constructor {up act} {
>     set t_up $up
>     set t_act $act
>   }
> }