Subversion Repositories or1k

# Test file for:
#   auto_mkindex
#
# This file provides example cases for testing the Tcl autoloading
# facility.  Things are much more complicated with namespaces and classes.
# The "auto_mkindex" facility can no longer be built on top of a simple
# regular expression parser.  It must recognize constructs like this:
#
#   namespace eval foo {
#       class Internal { ... }
#       body Internal::func {x y} { ... }
#       namespace eval bar {
#           class Another { ... }
#       }
#   }
#
# Note that class definitions can be nested inside of namespaces.
#
# Copyright (c) 1993-1998  Lucent Technologies, Inc.

#
# Should be able to handle simple class definitions, even if
# they are prefaced with white space.
#
namespace import blt::*

class Simple1 {
    variable x 0
    public method bump {} {incr x}
}
  itcl::class Simple2 {
    variable x 0
    public variable by 1
    public method bump {}
  }

itcl_class OldStyle {
  public x 0
  method foo {args} {return $args}
}

itcl::ensemble ens {
    part one {x} {}
    part two {x y} {}
    part three {x y z} {}
}

#
# Should be able to handle "body" and "configbody" declarations.
#
body Simple2::bump {} {incr x $by}
configbody Simple2::by {if {$by <= 0} {error "bad increment}}

#
# Should be able to handle class declarations within namespaces,
# even if they have explicit namespace paths.
#
namespace eval buried {
    class inside {
        variable x 0
        public variable by 1
        public method bump {}
        method skip {x y z} {}
        proc find {args} {}
    }
    body inside::bump {} {incr x $by}
    configbody inside::by {if {$by <= 0} {error "bad increment}}

    class ::top {
        method skip {x y z} {}
        method ignore {} {}
        public proc find {args} {}
        protected proc notice {args} {}
    }

    ensemble ens {
        part one {x} {}
        part two {x y} {}
        part three {x y z} {}
    }

    namespace eval under {
        itcl::class neath { }
    }
    namespace eval deep {
        ::itcl::class within { }
    }
}