diff options
| author | fukachan <fukachan> | 2004-04-17 11:37:55 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2004-04-17 11:37:55 +0000 |
| commit | 75a535026971036b46294e3fa2842685790daf36 (patch) | |
| tree | 4d8c0278b01c36eb8a22718069dcbae382253785 /fml/lib/FML/PCB.pm | |
| parent | 6ede1f9fe4482a7733e3415d95c13f571ef7453b (diff) | |
| download | fml8-75a535026971036b46294e3fa2842685790daf36.tar.gz fml8-75a535026971036b46294e3fa2842685790daf36.tar.bz2 fml8-75a535026971036b46294e3fa2842685790daf36.zip | |
preparation of context switch (preliminary. not yet implemented)
Diffstat (limited to 'fml/lib/FML/PCB.pm')
| -rw-r--r-- | fml/lib/FML/PCB.pm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/fml/lib/FML/PCB.pm b/fml/lib/FML/PCB.pm index 58b59ab2..ff0262b2 100644 --- a/fml/lib/FML/PCB.pm +++ b/fml/lib/FML/PCB.pm @@ -4,14 +4,22 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: PCB.pm,v 1.16 2004/01/02 02:07:30 fukachan Exp $ +# $FML: PCB.pm,v 1.17 2004/01/02 14:50:28 fukachan Exp $ # package FML::PCB; use strict; use Carp; -use vars qw(%_fml_PCB); # PCB: Process Control Block (malloc it here) + +# PCB: Process Control Block (malloc it here) +use vars qw(%_fml_PCB $current_context); + + +# XXX context switching must be needed for listserv style emulator, +# XXX not fml4 emulation nor fml8 itself. +# XXX we set $current_context as $ml_name@$ml_domain for lisetserv. +$current_context = '__default__'; =head1 NAME |