define {set,get}_context() method.context-switch-safe-base

1 files changed, 39 insertions, 1 deletions

diff --git a/fml/lib/FML/Config.pm b/fml/lib/FML/Config.pm
index 7864eec2..06d98eb0 100644
--- a/fml/lib/FML/Config.pm
+++ b/fml/lib/FML/Config.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Config.pm,v 1.100 2005/08/20 01:27:31 fukachan Exp $
+# $FML: Config.pm,v 1.101 2006/01/09 14:00:53 fukachan Exp $
 #
 
 package FML::Config;
@@ -1161,6 +1161,44 @@ sub get_hook
 }
 
 
+=head1 CONTEXT SWITCHING
+
+=head2 set_context($context)
+
+set up context identifier.
+
+=head2 get_context
+
+return context identifier.
+
+=cut
+
+
+# Descriptions: set up context.
+#    Arguments: OBJ($self) STR($context)
+# Side Effects: update $current_context variable.
+# Return Value: none
+sub set_context
+{
+    my ($self, $context) = @_;
+    my $saved_context    = $self->get_context();
+
+    # initialize;
+    $current_context = $context;
+}
+
+
+# Descriptions: get context.
+#    Arguments: OBJ($self) STR($context)
+# Side Effects: none
+# Return Value: STR
+sub get_context
+{
+    my ($self) = @_;
+    return $current_context;
+}
+
+
 =head1 TIEED HASH
 
 tie() operations for hash are binded to \%_fml_config.