
  PROCEDURE [INLINE] pfp$get_allowed_device_classes
    (    p_attachment_options: {input} ^fst$attachment_options;
     VAR allowed_device_classes: fst$device_classes);

?? PUSH (LISTEXT := ON) ??

    VAR
      options_index: ost$positive_integers;

    allowed_device_classes :=  - $fst$device_classes [];

    IF p_attachment_options <> NIL THEN
      FOR options_index := 1 TO UPPERBOUND (p_attachment_options^) DO
        IF p_attachment_options^ [options_index].selector = fsc$allowed_device_classes THEN
          allowed_device_classes := p_attachment_options^ [options_index].allowed_device_classes;
        IFEND;
      FOREND;
    IFEND;

  PROCEND pfp$get_allowed_device_classes;

*copyc fst$attachment_options
*copyc fst$device_classes
*copyc osd$integer_limits
?? POP ??
