*copyc osd$default_pragmats
?? RIGHT := 110 ??
?? NEWTITLE := ' NOS/VE File Server: Client: mtr_served_family_manager ', EJECT ??
MODULE dfm$mtr_served_family_manager;
{
{  This module provides for storing the pointer to the server family table
{  root, so that is is available both to monitor and task services.
{

?? NEWTITLE := '    Global Declarations ', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc dfs$server_wired
?? POP ??
*copyc dft$served_family_table
*copyc dft$read_write_lock
*copyc dft$served_family_table_index
?? TITLE := '    Global Variables ', EJECT ??

  VAR
    dfv$served_family_table_root: [XDCL, #GATE, dfs$server_wired]
          dft$served_family_table_root := [FALSE, 0, NIL];
  VAR
    { This is an integer to allow use with sym$system_constant_manager
    { The true value range is dft$family_pointer_index
    dfv$number_served_family_lists: [XDCL, #GATE, dfs$server_wired] integer := 3,
    dfv$served_family_table_lock: [XDCL, #GATE, dfs$server_wired] dft$read_write_lock := [0, 0, 0, [0]];

MODEND dfm$mtr_served_family_manager;

