head     56.3;
access   paws bayes jws quist brad dew jwh;
symbols  ;
locks    ; strict;
comment  @# @;


56.3
date     93.01.27.13.27.24;  author jwh;  state Exp;
branches ;
next     56.2;

56.2
date     93.01.27.12.05.37;  author jwh;  state Exp;
branches ;
next     56.1;

56.1
date     91.11.05.09.48.14;  author jwh;  state Exp;
branches ;
next     55.1;

55.1
date     91.08.25.10.24.46;  author jwh;  state Exp;
branches ;
next     54.1;

54.1
date     91.03.18.15.28.09;  author jwh;  state Exp;
branches ;
next     53.1;

53.1
date     91.03.11.19.28.44;  author jwh;  state Exp;
branches ;
next     52.1;

52.1
date     91.02.19.09.12.42;  author jwh;  state Exp;
branches ;
next     51.1;

51.1
date     91.01.30.16.12.29;  author jwh;  state Exp;
branches ;
next     50.1;

50.1
date     90.10.29.16.27.07;  author jwh;  state Exp;
branches ;
next     49.1;

49.1
date     90.08.14.14.11.22;  author jwh;  state Exp;
branches ;
next     48.1;

48.1
date     90.07.26.11.17.38;  author jwh;  state Exp;
branches ;
next     47.1;

47.1
date     90.05.14.11.00.51;  author dew;  state Exp;
branches ;
next     46.1;

46.1
date     90.05.07.08.47.54;  author jwh;  state Exp;
branches ;
next     45.1;

45.1
date     90.04.19.15.55.47;  author jwh;  state Exp;
branches ;
next     44.1;

44.1
date     90.04.01.22.12.51;  author jwh;  state Exp;
branches ;
next     43.1;

43.1
date     90.03.20.14.04.50;  author jwh;  state Exp;
branches ;
next     42.1;

42.1
date     90.01.23.17.49.42;  author jwh;  state Exp;
branches ;
next     41.1;

41.1
date     89.12.22.11.31.33;  author jwh;  state Exp;
branches ;
next     40.1;

40.1
date     89.09.29.11.53.24;  author jwh;  state Exp;
branches ;
next     39.1;

39.1
date     89.09.26.16.37.41;  author dew;  state Exp;
branches ;
next     38.1;

38.1
date     89.08.29.11.29.42;  author jwh;  state Exp;
branches ;
next     37.1;

37.1
date     89.05.12.11.42.24;  author dew;  state Exp;
branches ;
next     36.1;

36.1
date     89.02.06.10.20.37;  author dew;  state Exp;
branches ;
next     35.1;

35.1
date     89.02.02.13.35.43;  author dew;  state Exp;
branches ;
next     34.1;

34.1
date     89.01.23.16.10.51;  author jwh;  state Exp;
branches ;
next     33.1;

33.1
date     89.01.16.11.42.42;  author dew;  state Exp;
branches ;
next     32.1;

32.1
date     89.01.10.11.51.26;  author bayes;  state Exp;
branches ;
next     31.1;

31.1
date     88.12.14.18.12.33;  author bayes;  state Exp;
branches ;
next     30.1;

30.1
date     88.12.09.13.49.26;  author dew;  state Exp;
branches ;
next     29.1;

29.1
date     88.10.31.15.34.23;  author bayes;  state Exp;
branches ;
next     28.1;

28.1
date     88.10.06.11.00.59;  author dew;  state Exp;
branches ;
next     27.1;

27.1
date     88.09.29.11.38.03;  author bayes;  state Exp;
branches ;
next     26.1;

26.1
date     88.09.28.13.16.54;  author bayes;  state Exp;
branches ;
next     25.2;

25.2
date     88.03.30.09.03.15;  author bayes;  state Exp;
branches ;
next     25.1;

25.1
date     88.03.02.09.33.25;  author bayes;  state Exp;
branches ;
next     24.1;

24.1
date     87.08.31.09.55.02;  author jws;  state Exp;
branches ;
next     23.1;

23.1
date     87.08.26.10.33.59;  author bayes;  state Exp;
branches ;
next     22.1;

22.1
date     87.08.17.11.19.10;  author bayes;  state Exp;
branches ;
next     21.1;

21.1
date     87.08.12.14.01.45;  author bayes;  state Exp;
branches ;
next     20.1;

20.1
date     87.07.30.11.14.51;  author bayes;  state Exp;
branches ;
next     19.1;

19.1
date     87.06.01.08.29.39;  author jws;  state Exp;
branches ;
next     18.1;

18.1
date     87.05.20.15.30.02;  author bayes;  state Exp;
branches ;
next     17.1;

17.1
date     87.04.30.10.40.33;  author jws;  state Exp;
branches ;
next     16.1;

16.1
date     87.04.26.15.52.11;  author jws;  state Exp;
branches ;
next     15.1;

15.1
date     87.04.13.09.28.15;  author jws;  state Exp;
branches ;
next     14.1;

14.1
date     87.04.01.15.34.14;  author jws;  state Exp;
branches ;
next     13.1;

13.1
date     87.02.28.18.37.06;  author jws;  state Exp;
branches ;
next     12.1;

12.1
date     87.02.02.13.28.10;  author jws;  state Exp;
branches ;
next     11.1;

11.1
date     87.01.19.09.54.49;  author jws;  state Exp;
branches ;
next     10.1;

10.1
date     86.12.24.11.03.47;  author jws;  state Exp;
branches ;
next     9.1;

9.1
date     86.12.12.14.46.37;  author bayes;  state Exp;
branches ;
next     8.1;

8.1
date     86.11.27.12.02.16;  author jws;  state Exp;
branches ;
next     7.1;

7.1
date     86.11.20.13.53.26;  author hal;  state Exp;
branches ;
next     6.1;

6.1
date     86.11.04.18.04.37;  author paws;  state Exp;
branches ;
next     5.2;

5.2
date     86.10.29.12.59.21;  author geli;  state Exp;
branches ;
next     5.1;

5.1
date     86.10.28.16.53.28;  author hal;  state Exp;
branches ;
next     4.1;

4.1
date     86.09.30.19.52.17;  author hal;  state Exp;
branches ;
next     3.4;

3.4
date     86.09.26.12.45.31;  author hal;  state Exp;
branches ;
next     3.3;

3.3
date     86.09.26.08.41.24;  author hal;  state Exp;
branches ;
next     3.2;

3.2
date     86.09.04.11.11.19;  author hal;  state Exp;
branches ;
next     3.1;

3.1
date     86.09.01.12.02.23;  author hal;  state Exp;
branches ;
next     2.1;

2.1
date     86.07.30.14.50.06;  author hal;  state Exp;
branches ;
next     1.1;

1.1
date     86.06.30.15.28.04;  author danm;  state tmp;
branches ;
next     ;


desc
@Base file for PWS 3.2 release.

@


56.3
log
@
pws2rcs automatic delta on Wed Jan 27 13:14:25 MST 1993
@
text
@{                                                                           }
{ Graphics Low End                                                          }
{                                                                           }
{ Module    = DGL_CONFG_IN                                                  }
{ Programer = BJS                                                           }
{ Date      = 10-10-82                                                      }
{                                                                           }
{ Purpose: To provide selection of differnt input device handlers.          }

{ Rev history                                                               }
{  Created  - 10-10-82                                                      }
{  Modified - 02-17-84 BDS - Changed from dynamic allocations to global     }

{     (c) Copyright Hewlett-Packard Company, 1985.
      All rights are reserved.  Copying or other
      reproduction of this program except for archival
      purposes is prohibited without the prior
      written consent of Hewlett-Packard Company.


		  RESTRICTED RIGHTS LEGEND

      Use, duplication, or disclosure by the Government
      is subject to restrictions as set forth in
      paragraph (b) (3) (B) of the Rights in Technical
      Data and Computer Software clause in
      DAR 7-104.9(a).

      HEWLETT-PACKARD COMPANY
      Fort Collins, Colorado                              }


$SEARCH 'GLE_LIB',
	'TYPES',
	'DGL_VARS',
	'DGL_TOOLS',
	'DGL_KNOB',
	'DGL_HPGLI',
	'DGL_HILI',
	'D_HILREL'$

$modcal$
$include 'OPTIONS'$  { ***************** COMPILER OPTIONS **************** }
$LINENUM 12000$

module DGL_CONFG_IN;

import gle_types;

export
  procedure configure_input_gle (  gcbi : graphics_input_control_block_ptr );

implement

import gle_hpgl_in,  { hpgl plotter support }
       gle_hpib_io,  { plotter HPIB support }
       gle_knob_in,  { knob support }
       gle_utls,     { general gle tools }
       gle_hphil_absi, {hphil abs locator support SFB 3/29/85}
       gle_hphil_reli, {hphil rel locator support SFB 9/09/85}
       dgl_tools,    { general gle and dgl tools }
       dgl_vars,     { global dgl variables }
       dgl_types,    { SFB 4/8/85 }
       sysglobals,   { global pascal information }
       dgl_knob,     { knob device dependent DGL code }
       dgl_hpgli,    { plotter device dependent DGL code }
       dgl_hphil_absi, { DGL hphil abs locator support SFB 3/29/85 }
       dgl_hphil_reli, { DGL hphil rel locator support SFB 9/09/85 }
       sysdevs;      { access to hphil data comm rec list SFB 3/29/85 }

var
       ascii_buffer_space    : ascii_buffer;
       knob_device_rec_space : knob_device_rec;
       hpib_iocb_space       : hpib_iocb;
       hphil_rec_ptr         : hphil_comm_rec_ptr_type; {SFB 3/29/85}

function find_hphil_data_rec(dvrtype : integer) : hphil_comm_rec_ptr_type;
var
 tlink : hphil_comm_rec_ptr_type;
 done  : boolean;
begin
 tlink := hphil_data_link;
 done  := false;
 while (tlink <> nil) and (not done) do
  begin
   if tlink^.dvr_type = dvrtype then
    done  := true
   else
    tlink := tlink^.link;
  end;
 find_hphil_data_rec := tlink;
end;

procedure termhphil_dvr ( anyvar iocb_ptr : anyptr );   {SFB 9/09/85}
begin
 with hphil_rec_ptr^ do
  begin
   reading := true;
   active  := false;
   reading := false;
  end;
end;

procedure setuphphil_rel (  gcbi : graphics_input_control_block_ptr );
			{SFB 9/09/85}
var
 address : integer;
 cnt     : gle_shortint;
begin
  with gcbi^ do
    begin
      error_return := 1;
      address := gle_read_integer(device_info_char_count,device_info,cnt);
      if (address = 202) and {SFB} HIL_PRESENT then
       begin
	hphil_rec_ptr := find_hphil_data_rec(rellocator);
	if hphil_rec_ptr <> NIL then
	 begin
	  io_term  := termhphil_dvr;
	  error_return := 0;
	  gcbi^.info_ptr1 := hphil_rec_ptr;
	  gle_init_hphil_rel_input(gcbi);
	  if error_return = 0 then
	   dgl_hphili_rel_init;
	 end;
       end;
    end;
end;

procedure setuphphil_abs (  gcbi : graphics_input_control_block_ptr );{SFB 3/29/85}
var
 address : integer;
 cnt     : gle_shortint;
begin
  with gcbi^ do
    begin
      error_return := 1;
      address := gle_read_integer(device_info_char_count,device_info,cnt);
      if (address = 201) and {SFB} HIL_PRESENT then
       begin
	hphil_rec_ptr := find_hphil_data_rec(abslocator);
	if hphil_rec_ptr <> NIL then
	 begin
	  io_term  := termhphil_dvr;
	  error_return := 0;
	  gcbi^.info_ptr1 := hphil_rec_ptr;
	  gle_init_hphil_abs_input(gcbi);
	  if error_return = 0 then
	   dgl_hphili_abs_init;
	 end;
       end;
    end;
end;

procedure termknob ( anyvar iocb_ptr : anyptr );

var
  knob_rec : knob_device_rec_ptr;

begin
  with gle_gcbi^ do
    begin
      knob_rec := dev_dep_stuff;
    end;
end;

procedure setupknob (  gcbi : graphics_input_control_block_ptr );

var
  knob_rec : knob_device_rec_ptr;
  cnt      : gle_shortint;
  address  : integer;

begin
  with gcbi^ do
    begin
      address := gle_read_integer(device_info_char_count,device_info,cnt);
      if (address = 2) and (not sysflag.nokeyboard) then
	begin
	  io_term := termknob;
	  knob_rec := addr(knob_device_rec_space);
	  dev_dep_stuff := knob_rec;
	  knob_rec^.knob_type := return_machine_type;
	  gle_init_knob_input ( gcbi);
	  if error_return = 0 then
	    dgl_knob_init;
	end
      else
	error_return := 1;
    end;
end;

procedure termhpgl ( anyvar iocb_ptr : anyptr );

var
  iocb_ptr_hpib   : hpib_iocb_ptr;
  buf             : ascii_buffer_ptr;

begin
  with gle_gcbi^ do
    begin
      hpib_term(iocb_ptr);         { perform io term then release mem }
      iocb_ptr_hpib := iocb;
      {dispose(iocb_ptr_hpib);}
      buf := device_buf;
      {dispose(buf);}
    end;
end;

procedure setuphpgl (  gcbi : graphics_input_control_block_ptr );

var
  iocb_ptr_hpib   : hpib_iocb_ptr;
  buf             : ascii_buffer_ptr;
  cnt             : gle_shortint;
  address         : integer;

begin
  with gcbi^ do
    begin
      error_return := 1;
      try
	address := gle_read_integer(device_info_char_count,device_info,cnt);

	buf := addr(ascii_buffer_space);
	device_buf := buf;
	iocb_ptr_hpib := addr(hpib_iocb_space);
	iocb := iocb_ptr_hpib;

	io_write := hpib_write;
	io_read := hpib_read;
	io_term := termhpgl;
	io_inq_timeout := hpib_inq_timeout;
	io_set_timeout := hpib_set_timeout;
	with iocb_ptr_hpib^ do
	  begin
	    device_addr := device_info;
	    name_size := device_info_char_count;
	    hpib_init ( iocb_ptr_hpib );
	    error_return := 0;
	    if error = 0 then gle_init_hpgl_input (gcbi)
	    else error_return := 1;
	    if error_return = 0 then dgl_hpgli_init
	     { otherwise clean up the hpib bus ( 2.1 bug fix ) }
	    else                     hpib_init ( iocb_ptr_hpib );
	  end;
      recover
	{ ignor io, and value range errors }
	if (escapecode <> -26) and (escapecode <> -8) then escape(escapecode);
      {if error_return <> 0 then
	begin}                                   { clean up }
	  {dispose(iocb_ptr_hpib); dispose(buf);
	end;}
    end;
end;

procedure configure_input_gle (  gcbi : graphics_input_control_block_ptr );

begin
  setupknob ( gcbi );
  if gcbi^.error_return <> 0 then setuphpgl ( gcbi );
  if gcbi^.error_return <> 0 then setuphphil_abs ( gcbi ); {SFB 3-29-85}
  if gcbi^.error_return <> 0 then setuphphil_rel ( gcbi ); {SFB 9-09-85}
end;

end. { of module }

@


56.2
log
@
pws2rcs automatic delta on Wed Jan 27 11:57:27 MST 1993
@
text
@d1 267
@


56.1
log
@Automatic bump of revision number for PWS version 3.25
@
text
@a0 267
{                                                                           }
{ Graphics Low End                                                          }
{                                                                           }
{ Module    = DGL_CONFG_IN                                                  }
{ Programer = BJS                                                           }
{ Date      = 10-10-82                                                      }
{                                                                           }
{ Purpose: To provide selection of differnt input device handlers.          }

{ Rev history                                                               }
{  Created  - 10-10-82                                                      }
{  Modified - 02-17-84 BDS - Changed from dynamic allocations to global     }

{     (c) Copyright Hewlett-Packard Company, 1985.
      All rights are reserved.  Copying or other
      reproduction of this program except for archival
      purposes is prohibited without the prior
      written consent of Hewlett-Packard Company.


		  RESTRICTED RIGHTS LEGEND

      Use, duplication, or disclosure by the Government
      is subject to restrictions as set forth in
      paragraph (b) (3) (B) of the Rights in Technical
      Data and Computer Software clause in
      DAR 7-104.9(a).

      HEWLETT-PACKARD COMPANY
      Fort Collins, Colorado                              }


$SEARCH 'GLE_LIB',
	'TYPES',
	'DGL_VARS',
	'DGL_TOOLS',
	'DGL_KNOB',
	'DGL_HPGLI',
	'DGL_HILI',
	'D_HILREL'$

$modcal$
$include 'OPTIONS'$  { ***************** COMPILER OPTIONS **************** }
$LINENUM 12000$

module DGL_CONFG_IN;

import gle_types;

export
  procedure configure_input_gle (  gcbi : graphics_input_control_block_ptr );

implement

import gle_hpgl_in,  { hpgl plotter support }
       gle_hpib_io,  { plotter HPIB support }
       gle_knob_in,  { knob support }
       gle_utls,     { general gle tools }
       gle_hphil_absi, {hphil abs locator support SFB 3/29/85}
       gle_hphil_reli, {hphil rel locator support SFB 9/09/85}
       dgl_tools,    { general gle and dgl tools }
       dgl_vars,     { global dgl variables }
       dgl_types,    { SFB 4/8/85 }
       sysglobals,   { global pascal information }
       dgl_knob,     { knob device dependent DGL code }
       dgl_hpgli,    { plotter device dependent DGL code }
       dgl_hphil_absi, { DGL hphil abs locator support SFB 3/29/85 }
       dgl_hphil_reli, { DGL hphil rel locator support SFB 9/09/85 }
       sysdevs;      { access to hphil data comm rec list SFB 3/29/85 }

var
       ascii_buffer_space    : ascii_buffer;
       knob_device_rec_space : knob_device_rec;
       hpib_iocb_space       : hpib_iocb;
       hphil_rec_ptr         : hphil_comm_rec_ptr_type; {SFB 3/29/85}

function find_hphil_data_rec(dvrtype : integer) : hphil_comm_rec_ptr_type;
var
 tlink : hphil_comm_rec_ptr_type;
 done  : boolean;
begin
 tlink := hphil_data_link;
 done  := false;
 while (tlink <> nil) and (not done) do
  begin
   if tlink^.dvr_type = dvrtype then
    done  := true
   else
    tlink := tlink^.link;
  end;
 find_hphil_data_rec := tlink;
end;

procedure termhphil_dvr ( anyvar iocb_ptr : anyptr );   {SFB 9/09/85}
begin
 with hphil_rec_ptr^ do
  begin
   reading := true;
   active  := false;
   reading := false;
  end;
end;

procedure setuphphil_rel (  gcbi : graphics_input_control_block_ptr );
			{SFB 9/09/85}
var
 address : integer;
 cnt     : gle_shortint;
begin
  with gcbi^ do
    begin
      error_return := 1;
      address := gle_read_integer(device_info_char_count,device_info,cnt);
      if (address = 202) and {SFB} HIL_PRESENT then
       begin
	hphil_rec_ptr := find_hphil_data_rec(rellocator);
	if hphil_rec_ptr <> NIL then
	 begin
	  io_term  := termhphil_dvr;
	  error_return := 0;
	  gcbi^.info_ptr1 := hphil_rec_ptr;
	  gle_init_hphil_rel_input(gcbi);
	  if error_return = 0 then
	   dgl_hphili_rel_init;
	 end;
       end;
    end;
end;

procedure setuphphil_abs (  gcbi : graphics_input_control_block_ptr );{SFB 3/29/85}
var
 address : integer;
 cnt     : gle_shortint;
begin
  with gcbi^ do
    begin
      error_return := 1;
      address := gle_read_integer(device_info_char_count,device_info,cnt);
      if (address = 201) and {SFB} HIL_PRESENT then
       begin
	hphil_rec_ptr := find_hphil_data_rec(abslocator);
	if hphil_rec_ptr <> NIL then
	 begin
	  io_term  := termhphil_dvr;
	  error_return := 0;
	  gcbi^.info_ptr1 := hphil_rec_ptr;
	  gle_init_hphil_abs_input(gcbi);
	  if error_return = 0 then
	   dgl_hphili_abs_init;
	 end;
       end;
    end;
end;

procedure termknob ( anyvar iocb_ptr : anyptr );

var
  knob_rec : knob_device_rec_ptr;

begin
  with gle_gcbi^ do
    begin
      knob_rec := dev_dep_stuff;
    end;
end;

procedure setupknob (  gcbi : graphics_input_control_block_ptr );

var
  knob_rec : knob_device_rec_ptr;
  cnt      : gle_shortint;
  address  : integer;

begin
  with gcbi^ do
    begin
      address := gle_read_integer(device_info_char_count,device_info,cnt);
      if (address = 2) and (not sysflag.nokeyboard) then
	begin
	  io_term := termknob;
	  knob_rec := addr(knob_device_rec_space);
	  dev_dep_stuff := knob_rec;
	  knob_rec^.knob_type := return_machine_type;
	  gle_init_knob_input ( gcbi);
	  if error_return = 0 then
	    dgl_knob_init;
	end
      else
	error_return := 1;
    end;
end;

procedure termhpgl ( anyvar iocb_ptr : anyptr );

var
  iocb_ptr_hpib   : hpib_iocb_ptr;
  buf             : ascii_buffer_ptr;

begin
  with gle_gcbi^ do
    begin
      hpib_term(iocb_ptr);         { perform io term then release mem }
      iocb_ptr_hpib := iocb;
      {dispose(iocb_ptr_hpib);}
      buf := device_buf;
      {dispose(buf);}
    end;
end;

procedure setuphpgl (  gcbi : graphics_input_control_block_ptr );

var
  iocb_ptr_hpib   : hpib_iocb_ptr;
  buf             : ascii_buffer_ptr;
  cnt             : gle_shortint;
  address         : integer;

begin
  with gcbi^ do
    begin
      error_return := 1;
      try
	address := gle_read_integer(device_info_char_count,device_info,cnt);

	buf := addr(ascii_buffer_space);
	device_buf := buf;
	iocb_ptr_hpib := addr(hpib_iocb_space);
	iocb := iocb_ptr_hpib;

	io_write := hpib_write;
	io_read := hpib_read;
	io_term := termhpgl;
	io_inq_timeout := hpib_inq_timeout;
	io_set_timeout := hpib_set_timeout;
	with iocb_ptr_hpib^ do
	  begin
	    device_addr := device_info;
	    name_size := device_info_char_count;
	    hpib_init ( iocb_ptr_hpib );
	    error_return := 0;
	    if error = 0 then gle_init_hpgl_input (gcbi)
	    else error_return := 1;
	    if error_return = 0 then dgl_hpgli_init
	     { otherwise clean up the hpib bus ( 2.1 bug fix ) }
	    else                     hpib_init ( iocb_ptr_hpib );
	  end;
      recover
	{ ignor io, and value range errors }
	if (escapecode <> -26) and (escapecode <> -8) then escape(escapecode);
      {if error_return <> 0 then
	begin}                                   { clean up }
	  {dispose(iocb_ptr_hpib); dispose(buf);
	end;}
    end;
end;

procedure configure_input_gle (  gcbi : graphics_input_control_block_ptr );

begin
  setupknob ( gcbi );
  if gcbi^.error_return <> 0 then setuphpgl ( gcbi );
  if gcbi^.error_return <> 0 then setuphphil_abs ( gcbi ); {SFB 3-29-85}
  if gcbi^.error_return <> 0 then setuphphil_rel ( gcbi ); {SFB 9-09-85}
end;

end. { of module }

@


55.1
log
@Automatic bump of revision number for PWS version 3.25A
@
text
@@


54.1
log
@Automatic bump of revision number for PWS version 3.24
@
text
@@


53.1
log
@Automatic bump of revision number for PWS version 3.24B
@
text
@@


52.1
log
@Automatic bump of revision number for PWS version 3.24A
@
text
@@


51.1
log
@Automatic bump of revision number for PWS version 3.24d
@
text
@@


50.1
log
@Automatic bump of revision number for PWS version 3.23c
@
text
@@


49.1
log
@Automatic bump of revision number for PWS version 3.24b
@
text
@@


48.1
log
@Automatic bump of revision number for PWS version 3.24a
@
text
@@


47.1
log
@Automatic bump of revision number for PWS version 3.23
@
text
@@


46.1
log
@Automatic bump of revision number for PWS version 3.23
@
text
@@


45.1
log
@Automatic bump of revision number for PWS version 3.23C
@
text
@@


44.1
log
@Automatic bump of revision number for PWS version 3.23B
@
text
@@


43.1
log
@Automatic bump of revision number for PWS version 3.23aA
@
text
@@


42.1
log
@Automatic bump of revision number for PWS version 3.23e
@
text
@@


41.1
log
@Automatic bump of revision number for PWS version 3.23d
@
text
@@


40.1
log
@Automatic bump of revision number for PWS version 3.23c
@
text
@@


39.1
log
@Automatic bump of revision number for PWS version 3.23b
@
text
@@


38.1
log
@Automatic bump of revision number for PWS version 3.23a
@
text
@@


37.1
log
@Automatic bump of revision number for PWS version 3.3a
@
text
@@


36.1
log
@Automatic bump of revision number for PWS version 3.22
@
text
@@


35.1
log
@Automatic bump of revision number for PWS version 3.22
@
text
@@


34.1
log
@Automatic bump of revision number for PWS version 3.22
@
text
@@


33.1
log
@Automatic bump of revision number for PWS version 3.22D
@
text
@@


32.1
log
@Automatic bump of revision number for PWS version 3.22C
@
text
@@


31.1
log
@Automatic bump of revision number for PWS version 3.22B
@
text
@@


30.1
log
@Automatic bump of revision number for PWS version 3.22A
@
text
@@


29.1
log
@Automatic bump of revision number for PWS version 3.22b
@
text
@@


28.1
log
@Automatic bump of revision number for PWS version 3.3b
@
text
@@


27.1
log
@Automatic bump of revision number for PWS version 3.3a
@
text
@@


26.1
log
@Automatic bump of revision number for PWS version 3.3 Synch
@
text
@@


25.2
log
@For CATSEYE support
@
text
@@


25.1
log
@Automatic bump of revision number for PWS version 3.2Y
@
text
@@


24.1
log
@Automatic bump of revision number for PWS version 3.2
@
text
@@


23.1
log
@Automatic bump of revision number for PWS version 3.2P
@
text
@@


22.1
log
@Automatic bump of revision number for PWS version 3.2N
@
text
@@


21.1
log
@Automatic bump of revision number for PWS version 3.2M
@
text
@@


20.1
log
@Automatic bump of revision number for PWS version 3.2L
@
text
@@


19.1
log
@Automatic bump of revision number for PWS version 3.2K
@
text
@@


18.1
log
@Automatic bump of revision number for PWS version 3.2J
@
text
@@


17.1
log
@Automatic bump of revision number for PWS version 3.2I+
@
text
@@


16.1
log
@Automatic bump of revision number for PWS version 3.2I
@
text
@@


15.1
log
@Automatic bump of revision number for PWS version 3.2H
@
text
@@


14.1
log
@Automatic bump of revision number for PWS version 3.2G
@
text
@@


13.1
log
@Automatic bump of revision number for PWS version 3.2F
@
text
@@


12.1
log
@Automatic bump of revision number for PWS version 3.2E
@
text
@@


11.1
log
@Automatic bump of revision number for PWS version 3.2D
@
text
@@


10.1
log
@Automatic bump of revision number for PWS version 3.2C
@
text
@@


9.1
log
@Automatic bump of revision number for PWS version 3.2B
@
text
@@


8.1
log
@Automatic bump of revision number for PWS version 3.2A
@
text
@@


7.1
log
@Automatic bump of revision number for PWS version 3.2l
@
text
@@


6.1
log
@Automatic bump of revision number for PWS version 3.2k
@
text
@@


5.2
log
@Changes from Scott Bayes.
@
text
@@


5.1
log
@Automatic bump of revision number for PWS version 3.2j
@
text
@a32 2
$SEARCH_SIZE 15$

d39 3
a41 1
	'DGL_HILI'        {SFB 3/29/85} $
d60 1
d68 1
d94 1
a94 1
procedure termhphil_abs ( anyvar iocb_ptr : anyptr );   {SFB 3/29/85}
d104 26
d139 1
a139 1
      if (address = 201) and (not sysflag.nokeyboard) then
d144 1
a144 1
	  io_term  := termhphil_abs;
d263 1
@


4.1
log
@Automatic bump of revision number for PWS version 3.2i
@
text
@@


3.4
log
@Revert to 3.1 version so we can turn 3.2i.
@
text
@@


3.3
log
@Search changes from Scott Bayes.
@
text
@d33 2
a34 1
{$SEARCH '*LIBRARY.', 'D_HILREL', 'G_HILREL' $}
d41 1
a41 3
	'DGL_HILI',
	'D_HILREL',
	'G_HILREL'$     {SFB}
a53 1
$SEARCH 'G_HILREL','D_HILREL'$
a59 1
       gle_hphil_reli, {hphil rel locator support SFB 9/09/85}
a66 1
       dgl_hphil_reli, { DGL hphil rel locator support SFB 9/09/85 }
a68 2
const  rellocator = 2;  {SFB}

d92 1
a92 1
procedure termhphil_dvr ( anyvar iocb_ptr : anyptr );   {SFB 9/09/85}
a101 26
procedure setuphphil_rel (  gcbi : graphics_input_control_block_ptr );
			{SFB 9/09/85}
var
 address : integer;
 cnt     : gle_shortint;
begin
  with gcbi^ do
    begin
      error_return := 1;
      address := gle_read_integer(device_info_char_count,device_info,cnt);
      if (address = 202) and {SFB} HIL_PRESENT then
       begin
	hphil_rec_ptr := find_hphil_data_rec(rellocator);
	if hphil_rec_ptr <> NIL then
	 begin
	  io_term  := termhphil_dvr;
	  error_return := 0;
	  gcbi^.info_ptr1 := hphil_rec_ptr;
	  gle_init_hphil_rel_input(gcbi);
	  if error_return = 0 then
	   dgl_hphili_rel_init;
	 end;
       end;
    end;
end;

d111 1
a111 1
      if (address = 201) and {SFB} HIL_PRESENT then
d116 1
a116 1
	  io_term  := termhphil_dvr;
a234 1
  if gcbi^.error_return <> 0 then setuphphil_rel ( gcbi ); {SFB 9-09-85}
@


3.2
log
@Changes from Scott Bayes involving HIL rel locator support.
@
text
@d33 10
a42 1
$SEARCH '*LIBRARY.', 'DGL_HILREL', 'GLE_HILREL' $
@


3.1
log
@Automatic bump of revision number for PWS version 3.2h
@
text
@d33 1
a33 9
$SEARCH_SIZE 15$

$SEARCH 'GLE_LIB',
	'TYPES',
	'DGL_VARS',
	'DGL_TOOLS',
	'DGL_KNOB',
	'DGL_HPGLI',
	'DGL_HILI'        {SFB 3/29/85} $
d46 1
d53 1
d61 1
d64 2
d89 1
a89 1
procedure termhphil_abs ( anyvar iocb_ptr : anyptr );   {SFB 3/29/85}
d99 26
d134 1
a134 1
      if (address = 201) and (not sysflag.nokeyboard) then
d139 1
a139 1
	  io_term  := termhphil_abs;
d258 1
@


2.1
log
@Auto bump rev number to 2.1 for sys 3.2e.
@
text
@@


1.1
log
@Initial revision
@
text
@@
