1 import Capability
2 Class IndivaService
3
4 IndivaService instproc init {} {
5 $self instvar capabilities_
6 set capabilities_ {}
7 }
8
9
10 IndivaService instproc add_capability { cap action } {
11 $self instvar capabilities_
12 if {[lsearch $capabilities_ {$cap $action}] == -1} {
13 lappend capabilities_ $cap $action
14 }
15 }
16
17
18 IndivaService instproc get_capabilities { } {
19 $self instvar capabilities_
20 return $capabilities_
21 }
22
23 IndivaService instproc stop { args } {
24 # Subclass should override this with their own start methods.
25 # start are called by clients to initialize the service.
26 return ""
27 }
28
29 IndivaService instproc start { args } {
30 # Subclass should override this with their own start methods.
31 # start are called by clients to initialize the service.
32 return ""
33 }
34
35
36 IndivaService instproc gui { parent } {
37 # Subclass should override this with their own gui methods.
38 # config are called by clients to initialize the service.
39 return ""
40 }
41
42 IndivaService instproc do { args } {
43 eval [join $args]
44 }
45
46 IndivaService instproc event { event args } {
47 return ""
48 }
49
50 IndivaService instproc friendlyname { } {
51 # Sub-class should redefine this to return a user-friendly
52 # description of this service.
53 return ""
54 }
55
56 IndivaService instproc configure { args } {
57 # Sub-class should redefine this to return a user-friendly
58 # description of this service.
59 return ""
60 }
61
62 IndivaService instproc service_id { } {
63 # Sub-class should redefine this to return a user-friendly
64 # description of this service.
65 return "[pid]:[info hostname]:$self"
66 }
67
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.