Jump to content United States-English
HP.com Home Products and Services Support and Drivers Solutions How to Buy
» Contact HP
More options
HP.com home
 Starbase Display List Programmer's Manual: HP 9000 Series 700 Computers > Appendix A Quick References

Pascal Quick Reference
» 

Technical documentation

» Feedback
Content starts here

 » Table of Contents

 » Glossary

 » Index

spacerspacerspacer
spacer
spacer
  		 
 
NOTE: Some of the Display List routines expect "pseudo-boolean" parameters; i.e., integers with zero or nonzero values. The Pascal boolean type cannot be passed to these routines. Therefore, when reading the following information, assume that two integer constants have been defined:
const
  FALSE      0
  TRUE       1

See the Note at the beginning of this Appendix for more details.

a

adapt_clip_to_extent 

procedure adapt_clip_to_extent(fildes, enable: integer);

The legal values of enable are FALSE_ and TRUE_.

add_names_to_set 

procedure add_names_to_set(fildes, count:            integer;
                       var names[lo..hi: integer] of integer);

application_data 

procedure application_data(fildes,
                           count:  integer;
                       var data:   packed array[lo..hi: integer] of char);

c

call_segment 

procedure call_segment(fildes, segno: integer);

change_segment_references 

procedure change_segment_references(fildes, old_segno, new_segno: integer);

close_segment 

procedure close_segment(fildes: integer);

cond_call_segment 

procedure cond_call_segment(fildes,
                            cond_index_select,
                            comp_flag, segno:  integer);

The legal values of cond_index_select are CI_FALSE, CI_PRUNE, and CI_CULL. The legal values of comp_flag are FALSE_ and TRUE_.

cond_execute_segment 

procedure cond_execute_segment(fildes,
                               cond_index_select,
                               comp_flag, segno: integer);

The legal values of cond_index_select are CI_FALSE, CI_PRUNE, and CI_CULL. The legal values of comp_flag are FALSE_ and TRUE_.

cond_return 

procedure cond_return(fildes,
                      cond_index_select,
                      comp_flag:         integer);

The legal values of cond_index_select are CI_FALSE, CI_PRUNE, and CI_CULL. The legal values of comp_flag are FALSE_ and TRUE_.

copy_segment 

procedure copy_segment(fildes, segno: integer);

d

delete_eles 

procedure delete_eles(fildes, count: integer);

delete_segment 

procedure delete_all_segments(fildes: integer);
 
procedure delete_segment(fildes, segno: integer);
 
procedure delete_segment_and_references(fildes, segno: integer);

display_element 

procedure display_element(fildes, devdes: integer);

display_segment 

procedure display_segment(fildes, segno, devdes: integer);
 
procedure display_segment_hsr(fildes, segno, devdes: integer);

dl_label 

procedure dl_label(fildes, label_id: integer);

dl_control 

procedure dl_control(fildes,funcode:integer;
var arg1,arg2:dl_control_arg;

e

ele_control 

procedure ele_control(fildes, control, on: integer);

The legal values of control are DISP_IGNORE and PICK_IGNORE, or ed together if desired. The legal values of on are TRUE_ and FALSE_.

execute_segment 

procedure execute_segment(fildes, segno: integer);

i

inq_application_data 

procedure inq_application_data(fildes: integer;
                           var data:   packed array[lo..hi: integer] of char);
 
procedure inq_application_data_size(fildes: integer;
                                var size:   integer);

inq_called_segno 

procedure inq_called_segno(fildes: integer;
                       var segno:  integer);

inq_calling_segment_count/list/exists 

procedure inq_calling_segment_count(fildes, segno: integer;
                                var seg_count:     integer);
 
procedure inq_calling_segment_list(fildes,
                                   segno:    integer;
                               var seg_list: array[lo..hi: integer] of integer);

inq_cond_index 

procedure inq_cond_index(fildes,
                         cond_index_select: integer;
                     var value:             integer);

The legal values of cond_index_select are CI_FALSE, CI_PRUNE, and CI_CULL. The returned value of value will be either FALSE_ or TRUE_.

inq_content 

procedure inq_content(fildes:      integer;
                  var param_types: array [lo1..hi1: integer] of integer;
                  var counts:      array [lo2..hi2: integer] of integer;
                  var int_array:   array [lo3..hi3: integer] of integer;
                  var float_array: array [lo4..hi4: integer] of real;
                  var char_array:  packed array [lo5..hi5: integer] of char);
 
procedure inq_content_sizes(fildes:
                            params,
                            num_ints,
                            num_floats,
                            num_chars:  integer);

The returned values of the elements in the param_types array will be TYPE_INT, TYPE_INT_ARRAY, TYPE_FLOAT, TYPE_FLOAT_ARRAY, TYPE_STRING, or TYPE_CHAR_ARRAY.

inq_ele 

procedure inq_ele(fildes: integer;
              var ele:    array[lo..hi: integer] of integer);
 
procedure inq_ele_size(fildes: integer;
                   var size:   integer);

inq_ele_control 

procedure inq_ele_control(fildes:  integer;
                      var control: integer);

The returned value of control will be the bitwise or of some combination of DISP_IGNORE and PICK_IGNORE.

inq_ele_ptr 

procedure inq_ele_ptr(fildes: integer;
                  var offset: integer);
 
procedure inq_ele_ptr_at_bound(fildes: integer;
                           var at_top,
                               at_bot: integer);

The returned values of at_top and at_bot will be either FALSE_ or TRUE_.

inq_ele_type 

procedure inq_ele_type(fildes:   integer;
                   var ele_type: integer);

The possible return values of ele_type are listed in the "include" file "dl.p1.h".

inq_extent_info 

type
  extent_diagonal=      array[1..2, 1..3] of real;
  extent_clip_mask=     array[1..2, 1..3] of integer;
 
procedure inq_extent_info(fildes:          integer;
                      var dc_extent:       extent_diagonal;
                      var clip_mask:       extent_clip_mask;
                      var diagonal_length: real);

The returned values in the elements of the clip_mask array will be either FALSE_ or TRUE_.

inq_highlighting_filter 

procedure inq_highlighting_filter(fildes:  integer;
                              var i_names: array[lo1..hi1: integer] of integer;
                              var x_names: array[lo2..hi2: integer] of integer);
 
procedure inq_highlighting_filter_sizes(fildes:  integer
                                    var i_count,
                                        x_count: integer);

inq_invisibility_filter 

procedure inq_invisibility_filter(fildes:  integer;
                              var i_names: array[lo1..hi1: integer] of integer;
                              var x_names: array[lo2..hi2: integer] of integer);
 
procedure inq_invisibility_filter_sizes(fildes:  integer;
                                    var i_count,
                                        x_count: integer);

inq_nameset 

procedure inq_nameset(fildes: integer;
                  var names:  array[lo..hi: integer] of integer);
 
procedure inq_nameset_size(fildes: integer;
                       var size:   integer);

inq_num_refs 

procedure inq_num_refs(fildes,
                       segno: integer;
                   var count: integer);

inq_open_segment 

procedure inq_open_segment(fildes:   integer;
                       var segno,
                           seg_open: integer);
 
procedure inq_open_segment_and_mode(fildes:   integer;
                                var segno,
                                    seg_open,
                                    mode:     integer);

The returned value of seg_open will be either FALSE_ or TRUE_. The returned value of mode will be DL_ONLY (FALSE_), DL_AND_DISPLAY (TRUE_), or DISPLAY_ONLY.

inq_pick_filter 

procedure inq_pick_filter(fildes:  integer;
                      var i_names: array[lo1..hi1: integer] of integer;
                      var x_names: array[lo2..hi2: integer] of integer);
 
procedure inq_pick_filter_sizes(fildes:  integer;
                            var i_count,
                                x_count: integer);

inq_pick_path 

procedure inq_pick_path(fildes: integer;
                    var path:   array[lo..hi: integer] of integer);
 
procedure inq_pick_path_depth(fildes: integer;
                          var depth:  integer);

inq_seg_control 

procedure inq_seg_control(fildes,
                          segno:   integer;
                      var control: integer);

The returned value of control will be the bitwise or of some combination of DISP_IGNORE, PICK_IGNORE, and HIGHLIGHT.

inq_segment_count/list/exists 

procedure inq_segment_count(fildes:  integer;
                        var count:   integer);
 
procedure inq_segment_list(fildes:   integer;
                       var list:     array[lo..hi: integer] of integer);
 
procedure inq_segment_exists(fildes,
                             segno:  integer;
                         var exists: integer);

The returned value of exists will be either FALSE_ or TRUE_.

inq_traversal_depth 

procedure inq_traversal_depth(fildes: integer;
                          var depth:  integer);

interpret_ele 

procedure interpret_ele(fildes: integer;
                    var ele:    array[lo..hi: integer] of integer);

o

open_segment 

procedure open_segment(fildes, segno,
                       append, display: integer);

The legal values of append are FALSE_ and TRUE_. The legal values of display are FALSE_, TRUE_, DL_ONLY, DL_AND_DISPLAY, and DISPLAY_ONLY.

p

pick_from_segment 

procedure pick_from_segment(fildes,
                            segno:  integer;
                        var found:  integer);

The returned value of found will be either FALSE_ or TRUE_.

pop_state 

procedure pop_state(fildes:  integer);

print_element 

procedure print_element(fildes, abbreviate_arrays: integer);

The legal values of abbreviate_arrays are FALSE_ and TRUE_.

push_state 

procedure push_state(fildes: integer);

r

refresh_element 

procedure refresh_element(fildes: integer);

refresh_segment 

procedure refresh_segment(fildes, segno:     integer);
 
procedure refresh_segment_hsr(fildes, segno: integer);

remove_names_from_set 

procedure remove_all_names_from_set(fildes: integer);
 
procedure remove_names_from_set(fildes,
                                count:  integer;
                            var names:  array[lo..hi: integer] of integer);

rename_segment 

procedure rename_segment(fildes,
                         old_segno, new_segno: integer);
 
procedure rename_segment_and_references(fildes,
                                        old_segno, new_segno: integer);

replace_ele 

procedure replace_ele(fildes: integer);

s

seg_control 

procedure seg_control(fildes, segno, control, on: integer);

The legal values of control are the bitwise or of some combination of DISP_IGNORE, PICK_IGNORE, and HIGHLIGHT. The legal values of on are TRUE_ and FALSE_.

set_cull_size 

procedure set_cull_size(fildes:    integer;
                        cull_size: real);

set_disp_traversal_control 

procedure set_disp_traversal_control(fildes, control: integer);

The legal values of control are TRAVERSAL_RETURN, TRAVERSAL_ABORT, and TRAVERSAL_CONTINUE.

set_ele_ptr 

procedure set_ele_ptr(fildes, offset: integer);
 
procedure set_ele_ptr_relative(fildes, offset: integer);
 
procedure set_ele_ptr_relative_to_label(fildes, label_id, offset: integer);
 
procedure set_ele_ptr_at_end(fildes: integer);

set_extent 

type
  extent_diagonal=      array[1..2, 1..3] of real;
  extent_displacements= array[1..2, 1..3] of real;
 
procedure set_extent(fildes:    integer;
                 var mc_extent: extent_diagonal);
 
procedure set_extent_displacements(fildes:            integer;
                               var vdc_displacements: extent_displacements;
                               var dc_displacements:  extent_displacements);

set_highlighting_filter 

procedure set_highlighting_filter(fildes,
                                  i_count: integer;
                              var i_names: array[lo1..hi1: integer] of integer;
                                  x_count: integer;
                              var x_names: array[lo2..hi2: integer] of integer);

set_invisibility_filter 

procedure set_invisibility_filter(fildes,
                                  i_count: integer;
                              var i_names[lo1..hi1: integer] of integer;
                                  x_count: integer;
                              var x_names[lo2..hi2: integer] of integer);

set_pick_filter 

procedure set_pick_filter(fildes,
                          i_count: integer;
                      var i_names[lo1..hi1: integer] of integer;
                          x_count: integer;
                      var x_names[lo2..hi2: integer] of integer);

set_pick_mode

procedure set_pick_mode(fildes: integer; procedure check_hit: integer);

procedure check_hit(var fildes,
                        result: integer);

set_pick_sense 

procedure set_pick_sense(fildes, sense: integer);

The legal values of sense areFALSE_ and TRUE_.

set_pick_traversal_control 

procedure set_pick_traversal_control(fildes, control: integer);

The legal values of control are TRAVERSAL_RETURN, TRAVERSAL_ABORT, and TRAVERSAL_CONTINUE.

set_traversal_depth 

procedure set_traversal_depth(fildes, depth: integer);

t

traversal_lock 

procedure traversal_lock(fildes, lock: integer);

The legal values of lock are TRUE_ and FALSE_.



FORTRAN Quick Reference
  		 


Appendix B Special Considerations  
Printable version
Privacy statement Using this site means you accept its terms Feedback to webmaster
© 1995 Hewlett-Packard Development Company, L.P.