void
mudflap_enqueue_decl (tree obj ATTRIBUTE_UNUSED)
{
nogo ();
}
/*
** emulate_setcolnum - Called to set the text forground or
** background colour to the colour number 'colnum'.
*/
void emulate_setcolnum(int32 background, int32 colnum) {
nogo();
}
/*
** 'emulate_defcolour' handles the Basic 'COLOUR <colour>,<red>,<green>,<blue>'
** statement
*/
void emulate_defcolour(int32 colour, int32 red, int32 green, int32 blue) {
nogo();
}
/*
** 'emulate_mapcolour' handles the Basic 'COLOUR <colour>,<physical colour>'
** statement.
*/
void emulate_mapcolour(int32 colour, int32 physcolour) {
nogo();
}
/*
** 'emulate_setcolour' handles the Basic 'COLOUR <red>,<green>,<blue>'
** statement
*/
void emulate_setcolour(int32 red, int32 green, int32 blue) {
nogo();
}
int
mf_marked_p (tree t ATTRIBUTE_UNUSED)
{
nogo ();
return 0;
}
/*
** 'emulate_vpos' returns the number of the row in which the text cursor
** is located in the text window
*/
int32 emulate_vpos(void) {
nogo();
return 0;
}
/*
** 'emulate_off' deals with the Basic 'OFF' statement which turns
** off the text cursor
*/
void emulate_off(void) {
nogo();
}
/*
** 'emulate_on' emulates the Basic 'ON' statement, which turns on
** the text cursor
*/
void emulate_on(void) {
nogo();
}
/*
** 'emulate_wait' deals with the Basic 'WAIT' statement
*/
void emulate_wait(void) {
nogo();
}
/*
** 'emulate_tab' moves the text cursor to the position column 'x' row 'y'
** in the current text window
*/
void emulate_tab(int32 x, int32 y) {
nogo();
}
/*
** 'emulate_modestr' deals with the Basic 'MODE' command when the
** parameter is a string. This version does nothing
*/
void emulate_modestr(int32 xres, int32 yres, int32 colours, int32 greys, int32 xeig, int32 yeig, int32 rate) {
nogo();
}
/*
* emulate_newmode - Change the screen mode using OS_ScreenMode.
* This is for the new form of the MODE statement
*/
void emulate_newmode(int32 xres, int32 yres, int32 bpp, int32 rate) {
nogo();
}
/*
** 'emulate_mode' deals with the Basic 'MODE' command when the parameter
** is a number. This version does nothing
*/
void emulate_mode(int32 mode) {
nogo();
}
void
mudflap_enqueue_constant (tree obj ATTRIBUTE_UNUSED)
{
nogo ();
}
/*
** 'exec_tint' is called to handle the Basic 'TINT' statement which
** sets the 'tint' value for the current text or graphics foreground
** or background colour to 'tint'.
*/
void emulate_tint(int32 action, int32 tint) {
nogo();
}
void
mudflap_finish_file (void)
{
nogo ();
}
/*
** 'emulate_colourtint' deals with the Basic 'COLOUR <colour> TINT' statement
*/
void emulate_colourtint(int32 colour, int32 tint) {
nogo();
}
tree
mf_mark (tree t ATTRIBUTE_UNUSED)
{
nogo ();
return NULL;
}
/*
** 'emulate_vdu' is a simple emulation of the RISC OS VDU driver. It
** accepts characters as per the RISC OS driver and uses them to imitate
** some of the VDU commands. Most of these are ignored
*/
void emulate_vdu(int32 charvalue) {
charvalue = charvalue & BYTEMASK; /* Deal with any signed char type problems */
if (vduneeded==0) { /* VDU queue is empty */
if (charvalue>=' ') { /* Most common case - print something */
if (charvalue==DEL) charvalue = ' ';
putchar(charvalue);
if (echo) fflush(stdout);
return;
}
else { /* Control character - Found start of new VDU command */
if (!echo) fflush(stdout);
vducmd = charvalue;
vduneeded = vdubytes[charvalue];
vdunext = 0;
}
}
else { /* Add character to VDU queue for current command */
vduqueue[vdunext] = charvalue;
vdunext++;
}
if (vdunext<vduneeded) return;
vduneeded = 0;
/* There are now enough entries in the queue for the current command */
switch (vducmd) { /* Emulate the various control codes */
case VDU_NULL: /* 0 - Do nothing */
case VDU_PRINT: /* 1 - Send next character to the print stream */
case VDU_ENAPRINT: /* 2 - Enable the sending of characters to the printer (ignored) */
case VDU_DISPRINT: /* 3 - Disable the sending of characters to the printer (ignored) */
case VDU_TEXTCURS: /* 4 - Print text at text cursor (ignored) */
case VDU_ENABLE: /* 6 - Enable the VDU driver (ignored) */
case VDU_ENAPAGE: /* 14 - Enable page mode (ignored) */
case VDU_DISPAGE: /* 15 - Disable page mode (ignored) */
case VDU_DISABLE: /* 21 - Disable the VDU driver (ignored) */
break;
case VDU_GRAPHICURS: /* 5 - Print text at graphics cursor */
case VDU_CLEARGRAPH: /* 16 - Clear graphics window */
case VDU_GRAPHCOL: /* 18 - Change current graphics colour */
case VDU_DEFGRAPH: /* 24 - Define graphics window */
case VDU_PLOT: /* 25 - Issue graphics command */
case VDU_ORIGIN: /* 29 - Define graphics origin */
error(ERR_NOGRAPHICS);
break;
case VDU_CURFORWARD: /* 9 - Move cursor right one character */
case VDU_CURUP: /* 11 - Move cursor up one line */
case VDU_CLEARTEXT: /* 12 - Clear text window (formfeed) */
case VDU_TEXTCOL: /* 17 - Change current text colour */
case VDU_LOGCOL: /* 19 - Map logical colour to physical colour */
case VDU_RESTCOL: /* 20 - Restore logical colours to default values */
case VDU_SCRMODE: /* 22 - Change screen mode */
case VDU_COMMAND: /* 23 - Assorted VDU commands */
case VDU_RESTWIND: /* 26 - Restore default windows */
case VDU_DEFTEXT: /* 28 - Define text window */
case VDU_HOMETEXT: /* 30 - Send cursor to top left-hand corner of screen */
case VDU_MOVETEXT: /* 31 - Send cursor to column x, row y on screen */
nogo();
break;
case VDU_BEEP: /* 7 - Sound the bell */
case VDU_CURBACK: /* 8 - Move cursor left one character */
case VDU_CURDOWN: /* 10 - Move cursor down one line (linefeed) */
case VDU_RETURN: /* 13 - Carriage return */
case VDU_ESCAPE: /* 27 - Do nothing (but char is sent to screen anyway) */
putchar(vducmd);
break;
}
}
