topic Re: setting the cursor position in a console window in Intel® Fortran Compiler

setting the cursor position in a console window

jim_cox — Mon, 09 Nov 2009 22:39:41 GMT

In a console window

SETTEXTPOSITION doesnt work

So how is it possible to set (and retrieve) the cursor position?

Thankx

Jim

(Our old code does it by using assembler routines to pass ansi.sys command strings - True)

Re: setting the cursor position in a console window

DavidWhite — Mon, 09 Nov 2009 23:41:53 GMT

Quoting - jim.cox

Jim,

this won't work in a simple console window. Have alook at the Graphics Library Routines under the QuickWin section of the documentation to find out more about using these features. You will need to create a TextWindow instead of a console window.

Regards,

David

Re: setting the cursor position in a console window

jim_cox — Tue, 10 Nov 2009 00:29:46 GMT

Quoting - David White

Thought that might be the case :(

So how do I include the Quickwin stuff properly into my program?

If in the code I

USE IFQWIN

and later

CALL SETTEXTWINDOW(1,1,24,80)

At linking I get an unresolved external for _SETTEXTWINDOW

Change the Fortran runtime libraries from debug multithreaded to debug quickwin generates a _winMain already defined error as well as _SETTEXTWINDOW and _DIR being unresolved

And adding IFQWIN.LIB to the linker's dependency list creates a whole stack of unresolved externals

(The new progam started life as an SDI code windowing application if that makes any difference)

Cheers

Jim

Re: setting the cursor position in a console window

Steven_L_Intel1 — Tue, 10 Nov 2009 00:31:18 GMT

There are Win32 APIs for manipulating a console window and setting the position. See Console Functions In particular, SetConsoleCursorPosition. You'll need to call GetStdHandle first to get a handle to the console.

ANSI.SYS doesn't work in 32-bit Windows.

Re: setting the cursor position in a console window

jim_cox — Tue, 10 Nov 2009 00:59:49 GMT

Quoting - Steve Lionel (Intel)

GetStdHandle or GetConsoleWindow? or are they the same given an AllocConsole() ?

> ANSI.SYS doesn't work in 32-bit Windows.

Well, it works fine in an XP command window - but its really really clunky - which is one reason I'm having to rewrite both the frontend and libraries for this particular baby

Re: setting the cursor position in a console window

Steven_L_Intel1 — Tue, 10 Nov 2009 01:18:28 GMT

GetConsoleWindow will work. ANSI.SYS works only for 16-bit apps. We got this complaint a LOT with CVF from people moving from DOS.

Re: setting the cursor position in a console window

jim_cox — Tue, 10 Nov 2009 02:36:55 GMT

Having trouble with the second paramter to the SetConsoleCursorPosition call.

According to the documentation the call looks like

BOOL WINAPI SetConsoleCursorPosition(
HANDLE hConsoleOutput,
COORD dwCursorPosition
);

where a COORD is

typedef struct _COORD { SHORT X; SHORT Y;
} COORD, *PCOORD;

I'm trying a structure that looks like

TYPE COORD
INTEGER(2) X
INTEGER(2) Y
END TYPE

TYPE (COORD) C

but I keep getting

error #6633: The type of the actual argument differs from the type of the dummy argument.

Any thoughts?

Re: setting the cursor position in a console window

jparsly1 — Tue, 10 Nov 2009 16:35:13 GMT

Here's a routine I did in CVF that sets the cursor position. Proabably pretty close to what
you'd need in IVF.

subroutine gotoxy(irow,icol)
use dflib
use dfwin
integer fhandle
logical lstat
Type(T_COORD) wpos
fhandle = GetStdHandle(STD_OUTPUT_HANDLE)
wpos.x = icol
wpos.y = irow
lstat = SetConsoleCursorPosition(fhandle, wpos)

return
end

Re: setting the cursor position in a console window

Steven_L_Intel1 — Tue, 10 Nov 2009 16:58:02 GMT

You need to use type T_COORD, not a type that "looks like" it.

Re: setting the cursor position in a console window

jim_cox — Tue, 10 Nov 2009 20:42:14 GMT

Quoting - Steve Lionel (Intel)

You need to use type T_COORD, not a type that "looks like" it.

Thankx, that did the trick :)

Is there a good source for documentation of the ifort view of the winapi interface and the libraries?

Cheers

Jim

Re: setting the cursor position in a console window

Steven_L_Intel1 — Tue, 10 Nov 2009 21:05:36 GMT

The sources for the modules are in the compiler's INCLUDE folder.