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


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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

6.1
date     86.11.04.18.13.38;  author paws;  state Exp;
branches ;
next     5.1;

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

4.1
date     86.09.30.19.58.27;  author hal;  state Exp;
branches ;
next     3.1;

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

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

1.1
date     86.06.30.15.55.30;  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    = GLE_UTLS                                                      }
{ Programer = BJS                                                           }
{ Date      = 11-15-82                                                      }
{                                                                           }
{ Purpose: To provide general GLE tools                                     }

{ Rev history                                                               }
{  Created  - 11-15-82                                                      }
{  Modified - XX-XX-XX                                                      }

{     (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_TYPES'$
$sysprog$
$include 'OPTIONS'$ { ***************** COMPILER OPTIONS ********************** }
$linenum 21000$

module gle_utls;

import gle_types;

export

function  gle_read_integer ( size : gle_shortint; s : anychar_ptr; var count : gle_shortint ) : gle_shortint;
procedure gle_write_integer ( value : gle_shortint; var size : gle_shortint; s : anychar_ptr );
procedure gle_copy_to_string ( s : anychar_ptr; sl : gle_shortint; var d : string );
function  gle_match ( size1 : gle_shortint; s1 : anychar_ptr;
		      size2 : gle_shortint; s2 : anychar_ptr ) : boolean;
function  gle_shortint_min ( p1,p2 : gle_shortint ) : gle_shortint;
function  gle_shortint_max ( p1,p2 : gle_shortint ) : gle_shortint;

$PAGE$
implement

function gle_shortint_min ( p1,p2 : gle_shortint ) : gle_shortint;

{ Purpose : To return the minimum 16 bit integer                           }

begin
  if p1 < p2 then gle_shortint_min := p1
  else gle_shortint_min := p2;
end;  { gle_shortint_min }

function gle_shortint_max ( p1,p2 : gle_shortint ) : gle_shortint;

{ Purpose : To return the maximum 16 bit integer                          }

begin
  if p1 > p2 then gle_shortint_max := p1
  else gle_shortint_max := p2;
end; { gle_shortint_max }

procedure gle_write_integer ( value : gle_shortint;
			  var  size : gle_shortint;
				  s : anychar_ptr );

{ Purpose : To convert a 16 bit signed integer to ASCII                   }

var
  t : packed array [1..20] of char;
  i : gle_shortint;
  temp_value : gle_shortint;
  digit : gle_shortint;

begin
  temp_value := abs(value);
  i := 0;
  repeat
    i := i + 1;
    digit := temp_value mod 10;
    t[i] := chr((digit) + 48);
    temp_value := temp_value div 10;
  until temp_value = 0;
  if value < 0 then
    begin
      i := i + 1;
      t[i] := '-';
    end;

  size := i;
  for i := i downto 1 do
    s^[size-i+1] := t[i];
end; { write_integer }

function gle_read_integer( size : gle_shortint; s : anychar_ptr; var count : gle_shortint ) : gle_shortint;

{ Purpose : To convert from ASCII to a 16 bit signed integer              }

var
  value : gle_shortint;
  neg   : boolean;
  digit : gle_shortint;
  i     : gle_shortint;
  start : gle_shortint;

begin
  i := 1;
  while (s^[i] = ' ') and ( i <= size  ) do i := i + 1;
  if i > size then escape(-8);

  if s^[i] = '-' then
    begin
      i := i + 1;
      neg := true;
    end
  else
    neg := false;
  value := 0;
  start := i;
  while (s^[i] >= '0') and (s^[i] <= '9') and (i <= size) do
    begin
      digit := ord(s^[i]) - 48;
      value := value * 10 + digit;
      i := i + 1;
    end;
  if (i > size+1) or (i = start) then escape(-8);
  count := i;  { next free byte }
  if neg then value := -value;
  gle_read_integer := value;
end; { read_integer }

procedure gle_copy_to_string ( s : anychar_ptr; sl : gle_shortint; var d : string );

{ Purpose : To convert from a packed array of char to string format       }

var i : gle_shortint;

begin
  setstrlen(d,sl);
  for i := 1 to sl do
    d[i] := s^[i];
end; { copy_to_string }

function  gle_match ( size1 : gle_shortint; s1 : anychar_ptr;
		      size2 : gle_shortint; s2 : anychar_ptr ) : boolean;

{ Purpose : To return true if the two packed array of char match          }

var i : gle_shortint;

begin
  if size1 = size2 then
    begin
      i := 1;
    $partial_eval on$
      while (i <= size1) and (s1^[i] = s2^[i]) do i := i + 1;
      gle_match := i > size1;
    end
  else gle_match := false;
end; { match }

end.

@


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


56.1
log
@Automatic bump of revision number for PWS version 3.25
@
text
@a0 172
{                                                                           }
{ Graphics Low End                                                          }
{                                                                           }
{ Module    = GLE_UTLS                                                      }
{ Programer = BJS                                                           }
{ Date      = 11-15-82                                                      }
{                                                                           }
{ Purpose: To provide general GLE tools                                     }

{ Rev history                                                               }
{  Created  - 11-15-82                                                      }
{  Modified - XX-XX-XX                                                      }

{     (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_TYPES'$
$sysprog$
$include 'OPTIONS'$ { ***************** COMPILER OPTIONS ********************** }
$linenum 21000$

module gle_utls;

import gle_types;

export

function  gle_read_integer ( size : gle_shortint; s : anychar_ptr; var count : gle_shortint ) : gle_shortint;
procedure gle_write_integer ( value : gle_shortint; var size : gle_shortint; s : anychar_ptr );
procedure gle_copy_to_string ( s : anychar_ptr; sl : gle_shortint; var d : string );
function  gle_match ( size1 : gle_shortint; s1 : anychar_ptr;
		      size2 : gle_shortint; s2 : anychar_ptr ) : boolean;
function  gle_shortint_min ( p1,p2 : gle_shortint ) : gle_shortint;
function  gle_shortint_max ( p1,p2 : gle_shortint ) : gle_shortint;

$PAGE$
implement

function gle_shortint_min ( p1,p2 : gle_shortint ) : gle_shortint;

{ Purpose : To return the minimum 16 bit integer                           }

begin
  if p1 < p2 then gle_shortint_min := p1
  else gle_shortint_min := p2;
end;  { gle_shortint_min }

function gle_shortint_max ( p1,p2 : gle_shortint ) : gle_shortint;

{ Purpose : To return the maximum 16 bit integer                          }

begin
  if p1 > p2 then gle_shortint_max := p1
  else gle_shortint_max := p2;
end; { gle_shortint_max }

procedure gle_write_integer ( value : gle_shortint;
			  var  size : gle_shortint;
				  s : anychar_ptr );

{ Purpose : To convert a 16 bit signed integer to ASCII                   }

var
  t : packed array [1..20] of char;
  i : gle_shortint;
  temp_value : gle_shortint;
  digit : gle_shortint;

begin
  temp_value := abs(value);
  i := 0;
  repeat
    i := i + 1;
    digit := temp_value mod 10;
    t[i] := chr((digit) + 48);
    temp_value := temp_value div 10;
  until temp_value = 0;
  if value < 0 then
    begin
      i := i + 1;
      t[i] := '-';
    end;

  size := i;
  for i := i downto 1 do
    s^[size-i+1] := t[i];
end; { write_integer }

function gle_read_integer( size : gle_shortint; s : anychar_ptr; var count : gle_shortint ) : gle_shortint;

{ Purpose : To convert from ASCII to a 16 bit signed integer              }

var
  value : gle_shortint;
  neg   : boolean;
  digit : gle_shortint;
  i     : gle_shortint;
  start : gle_shortint;

begin
  i := 1;
  while (s^[i] = ' ') and ( i <= size  ) do i := i + 1;
  if i > size then escape(-8);

  if s^[i] = '-' then
    begin
      i := i + 1;
      neg := true;
    end
  else
    neg := false;
  value := 0;
  start := i;
  while (s^[i] >= '0') and (s^[i] <= '9') and (i <= size) do
    begin
      digit := ord(s^[i]) - 48;
      value := value * 10 + digit;
      i := i + 1;
    end;
  if (i > size+1) or (i = start) then escape(-8);
  count := i;  { next free byte }
  if neg then value := -value;
  gle_read_integer := value;
end; { read_integer }

procedure gle_copy_to_string ( s : anychar_ptr; sl : gle_shortint; var d : string );

{ Purpose : To convert from a packed array of char to string format       }

var i : gle_shortint;

begin
  setstrlen(d,sl);
  for i := 1 to sl do
    d[i] := s^[i];
end; { copy_to_string }

function  gle_match ( size1 : gle_shortint; s1 : anychar_ptr;
		      size2 : gle_shortint; s2 : anychar_ptr ) : boolean;

{ Purpose : To return true if the two packed array of char match          }

var i : gle_shortint;

begin
  if size1 = size2 then
    begin
      i := 1;
    $partial_eval on$
      while (i <= size1) and (s1^[i] = s2^[i]) do i := i + 1;
      gle_match := i > size1;
    end
  else gle_match := false;
end; { match }

end.

@


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.1
log
@Automatic bump of revision number for PWS version 3.2j
@
text
@@


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


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


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


1.1
log
@Initial revision
@
text
@@
