OS/2 API

Message-ID: <20030911161504.GA16113@math.berkeley.edu>

p4raw-id: //depot/perl@21187

3 files changed, 397 insertions, 1 deletions

diff --git a/os2/OS2/Process/MANIFEST b/os2/OS2/Process/MANIFEST
index 0d90d15fca..125e55fd50 100644
--- a/os2/OS2/Process/MANIFEST
+++ b/os2/OS2/Process/MANIFEST
@@ -2,3 +2,6 @@ MANIFEST
 Makefile.PL
 Process.pm
 Process.xs
+t/os2_process.t
+t/os2_process_kid.t
+t/os2_process_text.t
diff --git a/os2/OS2/Process/Process.pm b/os2/OS2/Process/Process.pm
index bed50f3875..f849f490da 100644
--- a/os2/OS2/Process/Process.pm
+++ b/os2/OS2/Process/Process.pm
@@ -65,6 +65,22 @@ our @EXPORT = qw(
 	sidOf
 	scrsize
 	scrsize_set
+	kbdChar
+	kbdhChar
+	kbdStatus
+	_kbdStatus_set
+	kbdhStatus
+	kbdhStatus_set
+	vioConfig
+	viohConfig
+	vioMode
+	viohMode
+	viohMode_set
+	_vioMode_set
+	_vioState
+	_vioState_set
+	vioFont
+	vioFont_set
 	process_entry
 	process_entries
 	process_hentry
@@ -490,6 +506,74 @@ sub MessageBox2 ($;$$$$$) {
 *set_title = \&Title_set;
 *get_title = \&Title;
 
+# adapter; display; cbMemory; Configuration; VDHVersion; Flags; HWBufferSize;
+# FullSaveSize; PartSaveSize; EMAdaptersOFF; EMDisplaysOFF;
+sub vioConfig (;$$) {
+  my $data = &_vioConfig;
+  my @out = unpack 'x[S]SSLSSSLLLSS', $data;
+  # If present, offset points to S/S (with only the first work making sense)
+  my (@adaptersEMU, @displayEMU);
+  @displaysEMU = unpack("x[$out[10]]S/S", $data), pop @out if @out > 10;
+  @adaptersEMU = unpack("x[$out[ 9]]S/S", $data), pop @out if @out > 9;
+  $out[9] = $adaptersEMU[0] if @adaptersEMU;
+  $out[10] = $displaysEMU[0] if @displaysEMU;
+  @out;
+}
+
+my @vioConfig = qw(adapter display cbMemory Configuration VDHVersion Flags
+		   HWBufferSize FullSaveSize PartSaveSize EMAdapters EMDisplays);
+
+sub viohConfig (;$$) {
+  my %h;
+  @h{@vioConfig} = &vioConfig;
+  %h;
+}
+
+# fbType; color; col; row; hres; vres; fmt_ID; attrib; buf_addr; buf_length;
+# full_length; partial_length; ext_data_addr;
+sub vioMode() {unpack 'x[S]CCSSSSCCLLLLL', _vioMode}
+
+my @vioMode = qw( fbType color col row hres vres fmt_ID attrib buf_addr
+		  buf_length full_length partial_length ext_data_addr);
+
+sub viohMode() {
+  my %h;
+  @h{@vioMode} = vioMode;
+  %h;
+}
+
+sub viohMode_set {
+  my %h = (viohMode, @_);
+  my $o = pack 'x[S]CCSSSSCCLLLLL', @h{@vioMode};
+  $o = pack 'SCCSSSSCCLLLLL', length $o, @h{@vioMode};
+  _vioMode_set($o);
+}
+
+sub kbdChar (;$$) {unpack 'CCCCSL', &_kbdChar}
+
+my @kbdChar = qw(ascii scancode status nlsstate shifts time);
+sub kbdhChar (;$$) {
+  my %h;
+  @h{@kbdChar} = &kbdChar;
+  %h
+}
+
+sub kbdStatus (;$) {unpack 'x[S]SSSS', &_kbdStatus}
+my @kbdStatus = qw(state turnChar intCharFlags shifts);
+sub kbdhStatus (;$) {
+  my %h;
+  @h{@kbdStatus} = &kbdStatus;
+  %h
+}
+sub kbdhStatus_set {
+  my $h = (@_ % 2 ? shift @_ : 0);
+  my %h = (kbdhStatus($h), @_);
+  my $o = pack 'x[S]SSSS', @h{@kbdStatus};
+  $o = pack 'SSSSS', length $o, @h{@kbdStatus};
+  _kbdStatus_set($o,$h);
+}
+
+
 # Autoload methods go after __END__, and are processed by the autosplit program.
 
 1;
diff --git a/os2/OS2/Process/Process.xs b/os2/OS2/Process/Process.xs
index 97e5d2f695..cda4847c83 100644
--- a/os2/OS2/Process/Process.xs
+++ b/os2/OS2/Process/Process.xs
@@ -889,7 +889,286 @@ bufsize(void)
     return i[0]*i[1]*2;
 #endif	/* 0 */
 }
-    
+
+SV*
+_kbdChar(unsigned int nowait, int handle)
+{
+    KBDKEYINFO viob[2], *vio;
+    ULONG rc;
+
+    VIO_FROM_VIOB;
+
+    if (nowait > 2)
+	croak("unexpected nowait");
+    if (CheckOSError(nowait == 2
+		     ? KbdPeek( vio, handle )
+		     : KbdCharIn( vio, nowait == 1, handle )))
+	croak_with_os2error("Can't _kbdChar");
+    return newSVpvn((char*)vio, sizeof(*vio));
+}
+
+SV*
+_kbdStatus(int handle)
+{
+    KBDINFO viob[2], *vio;
+    ULONG rc;
+
+    VIO_FROM_VIOB;
+
+    vio->cb = sizeof(*vio);
+    if (CheckOSError(KbdGetStatus( vio, handle )))
+	croak_with_os2error("Can't _kbdStatus");
+    return newSVpvn((char*)vio, sizeof(*vio));
+}
+
+void
+_kbdStatus_set(SV* sv, int handle)
+{
+    KBDINFO viob[2], *vio;
+    ULONG rc;
+    STRLEN l;
+    char *s = SvPV(sv, l);
+
+    VIO_FROM_VIOB;
+
+    if (l != sizeof(*vio))
+	croak("unexpected datasize");
+    Copy((KBDINFO*)s, vio, 1, KBDINFO);
+    if (vio->cb != sizeof(*vio))
+	croak("unexpected datasize");
+    if (CheckOSError(KbdSetStatus( vio, handle )))
+	croak_with_os2error("Can't kbdStatus_set()");
+}
+
+SV*
+_vioConfig(int which, int handle)
+{
+    struct {VIOCONFIGINFO i; short a[20];} viob[2], *vio;
+    ULONG rc;
+
+    VIO_FROM_VIOB;
+
+    vio->i.cb = 2;
+    if (CheckOSError(VioGetConfig( which, &vio->i, handle )))
+	croak_with_os2error("Can't get VIO config size");
+    if (vio->i.cb > sizeof(*vio))
+	vio->i.cb = sizeof(*vio);
+    if (CheckOSError(VioGetConfig( which, &vio->i, handle )))
+	croak_with_os2error("Can't get VIO config");
+    return newSVpvn((char*)vio, vio->i.cb);
+}
+
+SV*
+_vioMode(void)
+{
+    VIOMODEINFO viob[2], *vio;
+    ULONG rc;
+
+    VIO_FROM_VIOB;
+
+    vio->cb = sizeof(*vio);
+    if (CheckOSError(VioGetMode( vio, 0 )))
+	croak_with_os2error("Can't get VIO mode");
+    return newSVpvn((char*)vio, sizeof(*vio));
+}
+
+void
+_vioMode_set(SV* sv)
+{
+    VIOMODEINFO viob[2], *vio;
+    ULONG rc;
+    STRLEN l;
+    char *s = SvPV(sv, l);
+
+    VIO_FROM_VIOB;
+
+    Copy((VIOMODEINFO*)s, vio, 1, VIOMODEINFO);
+    if (vio->cb != sizeof(*vio) || l != vio->cb)
+	croak("unexpected datasize");
+    if (CheckOSError(VioSetMode( vio, 0 )))
+	croak_with_os2error("Can't set VIO mode");
+}
+
+SV*
+vioFont(int type, int *w, int *h) /* 0 for actual RAM font, 1 for ROM font */
+{
+    VIOFONTINFO viob[2], *vio;
+    ULONG rc;
+    UCHAR b[1<<17];
+    UCHAR *buf = b;
+    SV *sv;
+
+    VIO_FROM_VIOB;
+
+    /* Should not cross 64K boundaries too: */
+    if (((ULONG)buf) & 0xFFFF)
+	buf += 0x10000 - (((ULONG)buf) & 0xFFFF);
+
+    vio->cb = sizeof(*vio);
+    vio->type = type;			/* BIOS or the loaded font. */
+    vio->cbData = 0xFFFF;		/* How large is my buffer? */
+    vio->pbData = _emx_32to16(buf);	/* Wants an 16:16 pointer */
+    if (CheckOSError(VioGetFont( vio, 0 )))
+	croak_with_os2error("Can't get VIO font");
+    *w = vio->cxCell;
+    *h = vio->cyCell;
+    return newSVpvn(buf,vio->cbData);
+}
+
+void
+vioFont_set(SV *sv, int cellwidth, int cellheight, int type)
+{
+    VIOFONTINFO viob[2], *vio;
+    ULONG rc;
+    UCHAR b[1<<17];
+    UCHAR *buf = b;
+    STRLEN l;
+    char *s = SvPV(sv, l);
+
+    VIO_FROM_VIOB;
+
+    /* Should not cross 64K boundaries too: */
+    if (((ULONG)buf) & 0xFFFF)
+	buf += 0x10000 - (((ULONG)buf) & 0xFFFF);
+
+    if (l > 0xFFFF)
+	croak("length overflow of VIO font");
+    if (l != (cellwidth + 7)/8 * cellheight * 256)
+	warn("unexpected length of VIO font");
+    vio->cb = sizeof(*vio);
+    vio->type = type;			/* BIOS or the loaded font. */
+    vio->cbData = l;			/* How large is my buffer? */
+    vio->pbData = _emx_32to16(buf);	/* Wants an 16:16 pointer */
+    vio->cxCell = cellwidth;
+    vio->cyCell = cellheight;
+    Copy(s, buf, l, char);
+
+    if (CheckOSError(VioSetFont( vio, 0 )))
+	croak_with_os2error("Can't set VIO font");
+}
+
+/*
+  uses use32,os2def,os2base,crt,defs;
+  var   Plt :Plt256;
+  const Pal :VioPalState=(Cb:sizeof(VioPalState);rType:0;iFirst:0;
+    Acolor:($FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF,$FF));
+        CReg:VioColorReg=(Cb:sizeof(VioColorReg);rType:3;FirstColorReg:0;
+    NumColorRegs:256; ColorRegAddr:@Plt);
+  var   ii:Pointer;
+  begin
+   VioGetState(Pal,0);
+   Pal.Acolor[09]:=$0F;
+   Pal.Acolor[10]:=$A;
+   Pal.Acolor[13]:=$2F;
+   VioSetState(Pal,0); // ce smena EGA registrov
+   asm
+  lea   eax,Plt
+     call  DosFlatToSel
+     mov   ii,eax
+   end;
+   CReg.ColorRegAddr:=ii;
+   VioGetState(CReg,0);
+   Plt[10,0]:=$00;
+   Plt[10,1]:=$32;
+   Plt[10,2]:=$2A;
+   VioSetState(CReg,0); // a ce - VGA registrov
+  end.
+*/
+
+typedef union {
+  VIOPALSTATE pal;
+  struct { VIOPALSTATE pal; USHORT a[15]; } pal_padded;
+  VIOOVERSCAN overscan;
+  VIOINTENSITY intensity;
+  VIOCOLORREG colorreg;
+  struct { VIOCOLORREG reg; char rgb[3*256]; } colorreg_padded;
+  VIOSETULINELOC lineloc;
+  VIOSETTARGET target;
+} my_VIOSTATE;
+
+int
+vio_state_size(int what)
+{
+    static const char sizes[] = {
+	sizeof(VIOPALSTATE),
+	sizeof(VIOOVERSCAN),
+	sizeof(VIOINTENSITY),
+	sizeof(VIOCOLORREG),
+	6,				/* Random number: Reserved entry */
+	sizeof(VIOSETULINELOC),
+	sizeof(VIOSETTARGET)
+    };
+    if (what < 0 || what >= sizeof(sizes))
+	croak("Unexpected VIO state type");
+    return sizes[what];
+}
+
+SV*
+_vioState(int what, int first, int count)
+{
+    my_VIOSTATE viob[2], *vio;
+    ULONG rc, size = vio_state_size(what);
+
+    VIO_FROM_VIOB;
+
+    vio->pal.cb = size;
+    vio->pal.type = what;
+    if (what == 0) {
+	vio->pal.iFirst = first;
+	if (first < 0 || first >= 16)
+	    croak("unexpected palette start value");
+	if (count < 0 || count > 16)
+	    croak("unexpected palette count");
+	vio->pal.cb = (size += (count - 1) * sizeof(short));
+    } else if (what == 3) {
+	/* Wants an 16:16 pointer */
+	if (count < 0 || count > 256)
+	    croak("unexpected palette count");
+	vio->colorreg.colorregaddr = (PCH)_emx_32to16(vio->colorreg_padded.rgb);
+	vio->colorreg.numcolorregs = count;		/* 256 is max */
+	vio->colorreg.firstcolorreg = first;
+	size += 3 * count;
+    }
+    if (CheckOSError(VioGetState( (void*)vio, 0 )))
+	croak_with_os2error("Can't get VIO state");
+    return newSVpvn((char*)vio, size);
+}
+
+void
+_vioState_set(SV *sv)
+{
+    my_VIOSTATE viob[2], *ovio = (my_VIOSTATE*)SvPV_nolen(sv), *vio = ovio;
+    int what = ovio->pal.type, cb = ovio->pal.cb;
+    ULONG rc, size = vio_state_size(what);
+    STRLEN l;
+    char *s = SvPV(sv, l);
+
+    VIO_FROM_VIOB;
+
+    switch (what) {
+    case 0:
+	if ( cb < size || cb > size + 15*sizeof(SHORT) || l != cb)
+	    croak("unexpected datasize");
+	size = l;
+	break;
+    case 3:
+	if (l != cb + 3 * ovio->colorreg.numcolorregs || cb != size)
+	    croak("unexpected datasize");
+	size = l;
+	break;
+    default:
+	if (l != cb || l != size )
+	    croak("unexpected datasize");
+	break;
+    }
+    Copy(s, (char*)vio, size, char);
+    if (what == 3)	/* We expect colors put after VIOCOLORREG */
+	vio->colorreg.colorregaddr = (PCH)_emx_32to16(vio->colorreg_padded.rgb);
+
+    if (CheckOSError(VioSetState( (void*)vio, 0 )))
+	croak_with_os2error("Can't set VIO state");
+}
+
 SV *
 screen(void)
 {
@@ -1216,6 +1495,36 @@ cursor(OUTLIST int stp, OUTLIST int ep, OUTLIST int wp, OUTLIST int ap)
 bool
 cursor_set(int s, int e, int w = cursor__(0), int a = cursor__(1))
 
+SV*
+_kbdChar(int nowait = 0, int handle = 0)
+
+SV*
+_kbdStatus(int handle = 0)
+
+void
+_kbdStatus_set(SV *sv, int handle = 0)
+
+SV*
+_vioConfig(int which = 0, int handle = 0)
+
+SV*
+_vioMode()
+
+void
+_vioMode_set(SV *buffer)
+
+SV*
+_vioState(int what, int first = -1, int count = -1)
+
+void
+_vioState_set(SV *buffer)
+
+SV*
+vioFont( int type = 0, OUTLIST int w, OUTLIST int h)
+
+void
+vioFont_set(SV *buffer, int cellwidth, int cellheight, int type = 0)
+
 NO_OUTPUT bool
 _ClipbrdData_set(unsigned long ulData, unsigned long fmt = CF_TEXT, unsigned long rgfFmtInfo = ((fmt == CF_TEXT || fmt == CF_DSPTEXT) ? CFI_POINTER : CFI_HANDLE), HAB hab = perl_hab_GET())
     PROTOTYPE: DISABLE