OS2/OS2-Process/Process.xs

853 /* Force vio to not cross 64K-boundary: */
855     vio = viob;				\
856     if (!_THUNK_PTR_STRUCT_OK(vio))	\
857 	vio++
862     VIOMODEINFO viob[2], *vio;
869     vio->cb = sizeof(*vio);
870     if (CheckOSError(VioGetMode( vio, 0 )))
874       vio->col = (USHORT)w;
877       vio->row = (USHORT)h;
879     vio->cb = 8;
880     if (CheckOSError(VioSetMode( vio, 0 )))
888     VIOCURSORINFO viob[2], *vio;
893     if (CheckOSError(VioGetCurType( vio, 0 )))
896     *sp = vio->yStart;
897     *ep = vio->cEnd;
898     *wp = vio->cx;
899     *ep = vio->attr;
917     VIOCURSORINFO viob[2], *vio;
922     vio->yStart = s;
923     vio->cEnd = e;
924     vio->cx = w;
925     vio->attr = a;
926     return !CheckOSError(VioSetCurType( vio, 0 ));
933     VIOMODEINFO viob[2], *vio;
938     vio->cb = sizeof(*vio);
939     if (CheckOSError(VioGetMode( vio, 0 )))
942     croak("Lengths: buf=%d, full=%d, partial=%d",vio->buf_length,vio->full_length,vio->partial_length);
943     return newSVpvn((char*)vio->buf_addr, vio->full_length);
945     return vio->col * vio->row * 2;	/* How to get bytes/cell?  2 or 4? */
957     KBDKEYINFO viob[2], *vio;
965 		     ? KbdPeek( vio, handle )
966 		     : KbdCharIn( vio, nowait == 1, handle )))
968     return newSVpvn((char*)vio, sizeof(*vio));
974     KBDINFO viob[2], *vio;
979     vio->cb = sizeof(*vio);
980     if (CheckOSError(KbdGetStatus( vio, handle )))
982     return newSVpvn((char*)vio, sizeof(*vio));
988     KBDINFO viob[2], *vio;
995     if (l != sizeof(*vio))
997     Copy((KBDINFO*)s, vio, 1, KBDINFO);
998     if (vio->cb != sizeof(*vio))
1000     if (CheckOSError(KbdSetStatus( vio, handle )))
1007     struct {VIOCONFIGINFO i; short a[20];} viob[2], *vio;
1012     vio->i.cb = 2;
1013     if (CheckOSError(VioGetConfig( which, &vio->i, handle )))
1015     if (vio->i.cb > sizeof(*vio))
1016 	vio->i.cb = sizeof(*vio);
1017     if (CheckOSError(VioGetConfig( which, &vio->i, handle )))
1019     return newSVpvn((char*)vio, vio->i.cb);
1025     VIOMODEINFO viob[2], *vio;
1030     vio->cb = sizeof(*vio);
1031     if (CheckOSError(VioGetMode( vio, 0 )))
1033     return newSVpvn((char*)vio, sizeof(*vio));
1039     VIOMODEINFO viob[2], *vio;
1046     Copy((VIOMODEINFO*)s, vio, 1, VIOMODEINFO);
1047     if (vio->cb != sizeof(*vio) || l != vio->cb)
1049     if (CheckOSError(VioSetMode( vio, 0 )))
1056     VIOFONTINFO viob[2], *vio;
1068     vio->cb = sizeof(*vio);
1069     vio->type = type;			/* BIOS or the loaded font. */
1070     vio->cbData = 0xFFFF;		/* How large is my buffer? */
1071     vio->pbData = _emx_32to16(buf);	/* Wants an 16:16 pointer */
1072     if (CheckOSError(VioGetFont( vio, 0 )))
1074     *w = vio->cxCell;
1075     *h = vio->cyCell;
1076     return newSVpvn(buf,vio->cbData);
1082     VIOFONTINFO viob[2], *vio;
1099     vio->cb = sizeof(*vio);
1100     vio->type = type;			/* BIOS or the loaded font. */
1101     vio->cbData = l;			/* How large is my buffer? */
1102     vio->pbData = _emx_32to16(buf);	/* Wants an 16:16 pointer */
1103     vio->cxCell = cellwidth;
1104     vio->cyCell = cellheight;
1107     if (CheckOSError(VioSetFont( vio, 0 )))
1170     my_VIOSTATE viob[2], *vio;
1175     vio->pal.cb = size;
1176     vio->pal.type = what;
1178 	vio->pal.iFirst = first;
1183 	vio->pal.cb = (size += (count - 1) * sizeof(short));
1188 	vio->colorreg.colorregaddr = (PCH)_emx_32to16(vio->colorreg_padded.rgb);
1189 	vio->colorreg.numcolorregs = count;		/* 256 is max */
1190 	vio->colorreg.firstcolorreg = first;
1193     if (CheckOSError(VioGetState( (void*)vio, 0 )))
1195     return newSVpvn((char*)vio, size);
1201     my_VIOSTATE viob[2], *ovio = (my_VIOSTATE*)SvPV_nolen(sv), *vio = ovio;
1225     Copy(s, (char*)vio, size, char);
1227 	vio->colorreg.colorregaddr = (PCH)_emx_32to16(vio->colorreg_padded.rgb);
1229     if (CheckOSError(VioSetState( (void*)vio, 0 )))