sansom@trwrb.UUCP (Richard Sansom) (04/17/87)
I received a few requests for these macro definitions, so I decided to
post them. They're pretty easy to figure out, and not too terribly clever,
but they do work (I _think_ I've used them all at one time or another).
Enjoy.
-Rich
p.s. - I've _never_ used these in combination with GEM stuff, so I can't
tell you what to expect if that's what you intend to do with'em.
--- cut here, extract file vt52.h ---
/*
* vt52.h -- Atari ST VT52 "glass terminal" macros.
*
* Richard E. Sansom April 16, 1987
* sansom@trwrb.UUCP
*
* These macros are fairly easy to understand (in my opinion). Simply
* invoke them in your C source code, and they do what their names imply.
*
* For example, to clear the screen and turn inverse on, you would use:
*
* Clear_Home();
* Inverse_On();
*
* The only "tricky" ones are the ones dealing with color, since the ST
* can operate in 3 different resolution/color combinations. If you have a
* mono system, needless to say, you have no colors to work with (just B & W).
* If you like the low rez color screen, you have 16 colors to work with.
* As for me, I pretty much limit myself to the medium rez when I'm dealing
* with text on my color monitor, hence the 4 #defines you see below.
*
*/
/* define the real workhorse routines */
extern long bios();
extern long gemdos();
/*
* These four macros manipulate the cursor as you might
* expect - they move it 1 character in the indicated direction.
*/
#define Cursor_Up() gemdos(9,"\033A");
#define Cursor_Dn() gemdos(9,"\033B");
#define Cursor_Rt() gemdos(9,"\033C");
#define Cursor_Lf() gemdos(9,"\033D");
/*
* These move the cursor to the "home" position.
* The first one also clears the screen in the process.
*/
#define Clear_Home() gemdos(9,"\033E");
#define Cursor_Home() gemdos(9,"\033H");
/*
* These are pretty much self-explanatory. Scroll_Up()
* scrolls the entire screen up by one line, Clear_Eod()
* clears the screen from the current cursor position
* to the end of the display, and Clear_Eol() clears the
* current line from the cursor position.
*/
#define Scroll_Up() gemdos(9,"\033I");
#define Clear_Eod() gemdos(9,"\033J");
#define Clear_Eol() gemdos(9,"\033K");
/*
* These are pretty obvious.
*/
#define Insert_Line() gemdos(9,"\033L");
#define Delete_Line() gemdos(9,"\033M");
/*
* This is a handy one - it positions the cursor
* to the x, y position you specify.
*/
#define Pos_Cursor(x,y) gemdos(9,"\033Y"); bios(3,2,32+y); bios(3,2,32+x)
/*
* The color stuff - obviously, I do most of my color text in
* medium rez. Fg_Color() sets the foreground color (the color
* of the text), and Bg_Color() sets the background color (the
* color of the screen surrounding the text). You can get some
* pretty spiffy looking displays by playing with these guys.
*/
#define WHITE 0
#define RED 1
#define GREEN 2
#define BLACK 3
#define Fg_Color(x) gemdos(9, "\033b"); bios(3,2,x)
#define Bg_Color(x) gemdos(9, "\033c"); bios(3,2,x)
/*
* Some of these are a bit more obscure, but are also probably
* not used too much. Clear_Bod() clears the screen from the
* current cursor position to the beginning of the display,
* Save_Cursor() saves the current x, y coordinates of the
* cursor, and Restore_Cursor() restores the x, y coordinates
* to their saved values.
*/
#define Clear_Bod() gemdos(9, "\033d")
#define Show_Cursor() gemdos(9, "\033e")
#define Hide_Cursor() gemdos(9, "\033f")
#define Save_Cursor() gemdos(9, "\033j")
#define Restore_Cursor() gemdos(9, "\033k")
#define Clear_Line() gemdos(9, "\033l")
#define Clear_Bol() gemdos(9, "\033o")
/*
* These two begin and end inverse video mode.
*/
#define Inverse_On() gemdos(9, "\033p")
#define Inverse_Off() gemdos(9, "\033q")
/*
* Finally, these two toggle line wrap.
*/
#define Wrap_On() gemdos(9, "\033v")
#define Wrap_Off() gemdos(9, "\033w")
--- cut here ---
--
/////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
/// Richard E. Sansom TRW Electronics & Defense Sector \\\
\\\ {decvax,ucbvax,ihnp4}!trwrb!sansom Redondo Beach, CA ///
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/////////////////////////////////////sansom@trwrb.UUCP (04/17/87)
In article <1777@trwrb.UUCP> sansom@trwrb.UUCP (Richard Sansom) writes: >/* > * These four macros manipulate the cursor as you might > * expect - they move it 1 character in the indicated direction. > */ >#define Cursor_Up() gemdos(9,"\033A"); >#define Cursor_Dn() gemdos(9,"\033B"); >#define Cursor_Rt() gemdos(9,"\033C"); >#define Cursor_Lf() gemdos(9,"\033D"); <------| | I don't know how (or when) all of those ";"s got in there! They don't hurt anything, but they are kind of messy (every vt52 macro of the form "Something();" will expand to "gemdos(9,"something");;". If you care about such things, then you should remove them from every line in which they appear as the last character (don't remove the ones which appear in between two function calls though). Sorry for the trouble. -Rich -- /////////////////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ /// Richard E. Sansom TRW Electronics & Defense Sector \\\ \\\ {decvax,ucbvax,ihnp4}!trwrb!sansom Redondo Beach, CA /// \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/////////////////////////////////////