04/25/2011 Keven Miller

CSLEEPS is a Store-2-Disk (STD) file with these files

Fox 11:file d=csleeps;dev=disc
Fox 11:vstore *d;@.@.@;show

FILENAME GROUP    ACCOUNT  VOLUME RESTRICTIONS        SECTORS CODE   MEDIA
CSLEEPC .WWW     .KEVENM   DISC                    :C      64            1
CSLEEPD .WWW     .KEVENM   DISC                    :C      64            1
CSLEEPO .WWW     .KEVENM   DISC                    :C     272 NMOBJ      1
SLEEP01C.WWW     .KEVENM   DISC                    :C      32            1
SLEEP02 .WWW     .KEVENM   DISC                    :C     800 NMPRG      1
SLEEP02C.WWW     .KEVENM   DISC                    :C      32            1


CSLEEP is a fix to the sleep function which allows it to be interrupted
by the subsystem-break char (Control-Y) and return immediately;
returning the number of unslept seconds.

First, test sleep02 with original sleep function.
Then, build with the new sleep function.



Fox 12:
Fox 12:
Fox 12:setvar ccopts "-Aa +e +w1"
Fox 12:ccxllk sleep02c,sleep02
CCOPTS=-Aa +e +w1
MON APR 25 2011  5:15 PM  Copyright Hewlett-Packard Co.  1984.    PAGE   1
HP C/iX HP31506 A.05.19                                           "SLEEP02C"

    1  0   # 1 "SLEEP02C.WWW.KEVENM"
    1  0
    2  0
    3  0
    4  0   #pragma list off
Clean compile
HP Link Editor/iX (HP30315A.06.17) Copyright Hewlett-Packard Co 1986

LinkEd> link from=$oldpass;rl=libc.lib.sys,libcansi.lib.sys;TO=sleep02;
SHARE;CAP=IA,BA

Clean Link
Fox 12:
Fox 12:
Fox 12:sleep02
Sleep 10
!! Control-Y SIGINT 2 !!
!! Control-Y SIGINT 2 !!
Sleep unslept secs 0 (Actual secs 15)
Fox 12:
Fox 12:
Fox 12:
Fox 12:setvar ccopts "-Aa +e +w1"
Fox 12:ccxl csleepc,csleepo
CCOPTS=-Aa +e +w1
MON APR 25 2011  5:16 PM  Copyright Hewlett-Packard Co.  1984.    PAGE   1
HP C/iX HP31506 A.05.19                                           "CSLEEPC"

    1  0   # 1 "CSLEEPC.WWW.KEVENM"
    1  0
    2  0
    3  0
    4  0
    5  0   #pragma list off
Clean compile
Fox 12:
Fox 12:
Fox 12:setvar linkobj "csleepo"
Fox 12:setvar ccopts "-Aa +e +w1"
Fox 12:ccxllk sleep02c,sleep02
CCOPTS=-Aa +e +w1
MON APR 25 2011  5:17 PM  Copyright Hewlett-Packard Co.  1984.    PAGE   1
  1
HP C/iX HP31506 A.05.19                                           "SLEEP02C"

    1  0   # 1 "SLEEP02C.WWW.KEVENM"
    1  0
    2  0
    3  0
    4  0   #pragma list off
Clean compile
HP Link Editor/iX (HP30315A.06.17) Copyright Hewlett-Packard Co 1986

LinkEd> link from=$oldpass,csleepo;rl=libc.lib.sys,libcansi.lib.sys;
TO=sleep02;SHARE;CAP=IA,BA

Clean Link
Fox 12:
Fox 12:
Fox 12:sleep02
Sleep 10
!! Control-Y SIGINT 2 !!
Sleep unslept secs 7 (Actual secs 2)
Fox 12:
Fox 12: