?? RIGHT := 110 ??
?? NEWTITLE := 'NOS/VE Interpreter : SCL Options Manager' ??
MODULE clm$scl_options_manager;

{
{ PURPOSE:
{   This module contains the procedures and variables that maintain the
{   "SCL options" for the job.
{

?? NEWTITLE := 'Global Declarations', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc clt$environment_object_contents
*copyc clt$environment_object_size
*copyc clt$scl_options
*copyc ost$status
?? POP ??
*copyc clp$find_scl_options
?? TITLE := 'clp$eo_size_scl_options', EJECT ??

  FUNCTION [XDCL] clp$eo_size_scl_options: clt$environment_object_size;


    clp$eo_size_scl_options := #SIZE (clt$scl_options);

  FUNCEND clp$eo_size_scl_options;
?? TITLE := 'clp$eo_init_scl_options', EJECT ??

  PROCEDURE [XDCL] clp$eo_init_scl_options
    (    object: ^clt$environment_object_contents);

    VAR
      scl_options: ^clt$scl_options;


    scl_options := object;

    scl_options^.line_style_correction_prompts.selected := TRUE;
    scl_options^.line_style_correction_prompts.prompting_style := osc$line_interaction;
    scl_options^.screen_style_correction_prompts.selected := TRUE;
    scl_options^.name_folding_level := clc$standard_folding;
    scl_options^.wild_card_pattern_type := clc$wc_extended_pattern;

  PROCEND clp$eo_init_scl_options;
?? TITLE := 'clp$change_scl_options', EJECT ??

  PROCEDURE [XDCL, #GATE] clp$change_scl_options
    (    options: clt$scl_options;
     VAR status: ost$status);

    VAR
      scl_options: ^clt$scl_options;


    status.normal := TRUE;

    clp$find_scl_options (scl_options);

    scl_options^ := options;

  PROCEND clp$change_scl_options;

MODEND clm$scl_options_manager;
