diff options
author | phk <phk@FreeBSD.org> | 1998-12-27 12:52:46 +0000 |
---|---|---|
committer | phk <phk@FreeBSD.org> | 1998-12-27 12:52:46 +0000 |
commit | eb15c87aad94ce69d22c6cbaf4c91c7678b3f397 (patch) | |
tree | ccc8377c79b41e897bf40d83561b0f8e19fa8f8a /sys/i386/isa/pcvt/pcvt_out.c | |
parent | 2225f39db313f8cdb0b0f115337955924684df79 (diff) | |
download | FreeBSD-src-eb15c87aad94ce69d22c6cbaf4c91c7678b3f397.zip FreeBSD-src-eb15c87aad94ce69d22c6cbaf4c91c7678b3f397.tar.gz |
Pre 3.0 branch cleanup casualty #4: pcvt
Diffstat (limited to 'sys/i386/isa/pcvt/pcvt_out.c')
-rw-r--r-- | sys/i386/isa/pcvt/pcvt_out.c | 2182 |
1 files changed, 0 insertions, 2182 deletions
diff --git a/sys/i386/isa/pcvt/pcvt_out.c b/sys/i386/isa/pcvt/pcvt_out.c deleted file mode 100644 index 09cc75c..0000000 --- a/sys/i386/isa/pcvt/pcvt_out.c +++ /dev/null @@ -1,2182 +0,0 @@ -/* - * Copyright (c) 1992, 1995 Hellmuth Michaelis and Joerg Wunsch. - * - * Copyright (c) 1992, 1993 Brian Dunford-Shore. - * - * All rights reserved. - * - * This code is derived from software contributed to Berkeley by - * William Jolitz and Don Ahn. - * - * Redistribution and use in source and binary forms, with or without - * modification, are permitted provided that the following conditions - * are met: - * 1. Redistributions of source code must retain the above copyright - * notice, this list of conditions and the following disclaimer. - * 2. Redistributions in binary form must reproduce the above copyright - * notice, this list of conditions and the following disclaimer in the - * documentation and/or other materials provided with the distribution. - * 3. All advertising materials mentioning features or use of this software - * must display the following acknowledgement: - * This product includes software developed by Hellmuth Michaelis, - * Brian Dunford-Shore and Joerg Wunsch. - * 4. The name authors may not be used to endorse or promote products - * derived from this software without specific prior written permission. - * - * THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR - * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES - * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. - * IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, - * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT - * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, - * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY - * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT - * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF - * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - * - * - * @(#)pcvt_out.c, 3.20, Last Edit-Date: [Sun Apr 2 18:59:11 1995] - * - */ - -/*---------------------------------------------------------------------------* - * - * pcvt_out.c VT220 Terminal Emulator - * --------------------------------------- - * -hm ------------ Release 3.00 -------------- - * -hm integrating NetBSD-current patches - * -hm integrating patch from Thomas Gellekum - * -hm bugfix: clear last line when hpmode 28lines and force 24 - * -hm right fkey labels after soft/hard reset - * -hm patch from Joerg for comconsole operation - * -hm patch from Lon Willet to preserve the initial cursor shape - * -hm if FAT_CURSOR is defined, you get the old cursor type back .. - * -hm patch from Lon Willett regarding winsize settings - * -hm applying patch from Joerg fixing Crtat bug, non VGA startup bug - * -hm setting variable color for CGA and MDA/HGC in coldinit - * -hm fixing bug initializing cursor position on startup - * -hm fixing support for EGA boards in vt_coldinit() - * - *---------------------------------------------------------------------------*/ - -#include "vt.h" -#if NVT > 0 - -#define PCVT_INCLUDE_VT_SELATTR /* get inline function from pcvt_hdr.h */ - -#include <i386/isa/pcvt/pcvt_hdr.h> /* global include */ -#include <vm/vm.h> -#include <vm/vm_param.h> -#include <vm/pmap.h> - -extern u_short csd_ascii[]; /* pcvt_tbl.h */ -extern u_short csd_supplemental[]; - -static void write_char (struct video_state *svsp, int attrib, int ch); -static void check_scroll ( struct video_state *svsp ); -static void hp_entry ( U_char ch, struct video_state *svsp ); -static void vt_coldinit ( void ); -static void wrfkl ( int num, u_char *string, struct video_state *svsp ); -static void writefkl ( int num, u_char *string, struct video_state *svsp ); - - -/*---------------------------------------------------------------------------* - * do character set transformation and write to display memory (inline) - *---------------------------------------------------------------------------*/ - -#define video (svsp->Crtat + svsp->cur_offset) - -static __inline void write_char (svsp, attrib, ch) -struct video_state *svsp; -u_short attrib, ch; /* XXX inefficient interface */ -{ - if ((ch >= 0x20) && (ch <= 0x7f)) /* use GL if ch >= 0x20 */ - { - if(!svsp->ss) /* single shift G2/G3 -> GL ? */ - { - *video = attrib | (*svsp->GL)[ch-0x20]; - } - else - { - *video = attrib | (*svsp->Gs)[ch-0x20]; - svsp->ss = 0; - } - } - else - { - svsp->ss = 0; - - if(ch >= 0x80) /* display controls C1 */ - { - if(ch >= 0xA0) /* use GR if ch >= 0xA0 */ - { - *video = attrib | (*svsp->GR)[ch-0xA0]; - } - else - { - if(vgacs[svsp->vga_charset].secondloaded) - { - *video = attrib | ((ch-0x60) | CSH); - } - else /* use normal ibm charset for - control display */ - { - *video = attrib | ch; - } - } - } - else /* display controls C0 */ - { - if(vgacs[svsp->vga_charset].secondloaded) - { - *video = attrib | (ch | CSH); - } - else /* use normal ibm charset for control display*/ - { - *video = attrib | ch; - } - } - } -} - -/*---------------------------------------------------------------------------* - * emulator main entry - *---------------------------------------------------------------------------*/ -void -sput (u_char *s, U_char kernel, int len, int page) -{ - register struct video_state *svsp; - u_short attrib; - u_short ch; - - if(page >= PCVT_NSCREENS) /* failsafe */ - page = 0; - - svsp = &vs[page]; /* pointer to current screen state */ - - if(do_initialization) /* first time called ? */ - vt_coldinit(); /* yes, we have to init ourselves */ - - if(svsp == vsp) /* on current displayed page ? */ - { - cursor_pos_valid = 0; /* do not update cursor */ - -#if PCVT_SCREENSAVER - if(scrnsv_active) /* screen blanked ? */ - pcvt_scrnsv_reset(); /* unblank NOW ! */ - else - reset_screen_saver = 1; /* do it asynchronously */ -#endif /* PCVT_SCREENSAVER */ - - } - - attrib = kernel ? kern_attr : svsp->c_attr; - - while (len-- > 0) - if (ch = *(s++)) - { - if(svsp->sevenbit) - ch &= 0x7f; - - if(((ch <= 0x1f) || (ch == 0x7f)) && (svsp->transparent == 0)) - { - - /* always process control-chars in the range 0x00..0x1f, 0x7f !!! */ - - if(svsp->dis_fnc) - { - if(svsp->lastchar && svsp->m_awm - && (svsp->lastrow == svsp->row)) - { - svsp->cur_offset++; - svsp->col = 0; - svsp->lastchar = 0; - check_scroll(svsp); - } - - if(svsp->irm) - bcopy((svsp->Crtat + svsp->cur_offset), - (svsp->Crtat + svsp->cur_offset) + 1, - (((svsp->maxcol)-1) - svsp->col)*CHR); - - write_char(svsp, attrib, ch); - - vt_selattr(svsp); - - if(svsp->col >= ((svsp->maxcol)-1) - && ch != 0x0a && ch != 0x0b && ch != 0x0c) - { - svsp->lastchar = 1; - svsp->lastrow = svsp->row; - } - else if(ch == 0x0a || ch == 0x0b || ch == 0x0c) - { - svsp->cur_offset -= svsp->col; - svsp->cur_offset += svsp->maxcol; - svsp->col = 0; - svsp->lastchar = 0; - check_scroll(svsp); /* check scroll up */ - } - else - { - svsp->cur_offset++; - svsp->col++; - svsp->lastchar = 0; - } - } - else - { - switch(ch) - { - case 0x00: /* NUL */ - case 0x01: /* SOH */ - case 0x02: /* STX */ - case 0x03: /* ETX */ - case 0x04: /* EOT */ - case 0x05: /* ENQ */ - case 0x06: /* ACK */ - break; - - case 0x07: /* BEL */ - if(svsp->bell_on) - sysbeep(PCVT_SYSBEEPF/1500, hz/4); - break; - - case 0x08: /* BS */ - if(svsp->col > 0) - { - svsp->cur_offset--; - svsp->col--; - } - break; - - case 0x09: /* TAB */ - while(svsp->col < ((svsp->maxcol)-1)) - { - svsp->cur_offset++; - if(svsp-> - tab_stops[++svsp->col]) - break; - } - break; - - case 0x0a: /* LF */ - case 0x0b: /* VT */ - case 0x0c: /* FF */ - if(svsp->lnm) - { - svsp->cur_offset -= svsp->col; - svsp->cur_offset += - svsp->maxcol; - svsp->col = 0; - } - else - { - svsp->cur_offset += - svsp->maxcol; - } - check_scroll(svsp); - break; - - case 0x0d: /* CR */ - svsp->cur_offset -= svsp->col; - svsp->col = 0; - break; - - case 0x0e: /* SO */ - svsp->GL = &svsp->G1; - break; - - case 0x0f: /* SI */ - svsp->GL = &svsp->G0; - break; - - case 0x10: /* DLE */ - case 0x11: /* DC1/XON */ - case 0x12: /* DC2 */ - case 0x13: /* DC3/XOFF */ - case 0x14: /* DC4 */ - case 0x15: /* NAK */ - case 0x16: /* SYN */ - case 0x17: /* ETB */ - break; - - case 0x18: /* CAN */ - svsp->state = STATE_INIT; - clr_parms(svsp); - break; - - case 0x19: /* EM */ - break; - - case 0x1a: /* SUB */ - svsp->state = STATE_INIT; - clr_parms(svsp); - break; - - case 0x1b: /* ESC */ - svsp->state = STATE_ESC; - clr_parms(svsp); - break; - - case 0x1c: /* FS */ - case 0x1d: /* GS */ - case 0x1e: /* RS */ - case 0x1f: /* US */ - case 0x7f: /* DEL */ - break; - } - } - } - else - { - - /* char range 0x20...0x73, 0x80...0xff processing */ - /* depends on current state */ - - switch(svsp->state) - { - case STATE_INIT: - if(svsp->lastchar && svsp->m_awm && - (svsp->lastrow == svsp->row)) - { - svsp->cur_offset++; - svsp->col = 0; - svsp->lastchar = 0; - check_scroll(svsp); - } - - if(svsp->irm) - bcopy ((svsp->Crtat - + svsp->cur_offset), - (svsp->Crtat - + svsp->cur_offset) + 1, - (((svsp->maxcol)-1) - - svsp->col) * CHR); - - write_char(svsp, attrib, ch); - - vt_selattr(svsp); - - if(svsp->col >= ((svsp->maxcol)-1)) - { - svsp->lastchar = 1; - svsp->lastrow = svsp->row; - } - else - { - svsp->lastchar = 0; - svsp->cur_offset++; - svsp->col++; - } - break; - - case STATE_ESC: - switch(ch) - { - case ' ': /* ESC sp family */ - svsp->state = STATE_BLANK; - break; - - case '#': /* ESC # family */ - svsp->state = STATE_HASH; - break; - - case '&': /* ESC & family (HP) */ - if(svsp->vt_pure_mode == - M_HPVT) - { - svsp->state = - STATE_AMPSND; - svsp->hp_state = - SHP_INIT; - } - else - svsp->state = - STATE_INIT; - break; - - case '(': /* ESC ( family */ - svsp->state = STATE_BROPN; - break; - - case ')': /* ESC ) family */ - svsp->state = STATE_BRCLO; - break; - - case '*': /* ESC * family */ - svsp->state = STATE_STAR; - break; - - case '+': /* ESC + family */ - svsp->state = STATE_PLUS; - break; - - case '-': /* ESC - family */ - svsp->state = STATE_MINUS; - break; - - case '.': /* ESC . family */ - svsp->state = STATE_DOT; - break; - - case '/': /* ESC / family */ - svsp->state = STATE_SLASH; - break; - - case '7': /* SAVE CURSOR */ - vt_sc(svsp); - svsp->state = STATE_INIT; - break; - - case '8': /* RESTORE CURSOR */ - vt_rc(svsp); - if (!kernel) - attrib = svsp->c_attr; - svsp->state = STATE_INIT; - break; - - case '=': /* keypad application mode */ -#if !PCVT_INHIBIT_NUMLOCK - vt_keyappl(svsp); -#endif - svsp->state = STATE_INIT; - break; - - case '>': /* keypad numeric mode */ -#if !PCVT_INHIBIT_NUMLOCK - vt_keynum(svsp); -#endif - svsp->state = STATE_INIT; - break; - - case 'D': /* INDEX */ - vt_ind(svsp); - svsp->state = STATE_INIT; - break; - - case 'E': /* NEXT LINE */ - vt_nel(svsp); - svsp->state = STATE_INIT; - break; - - case 'H': /* set TAB at current col */ - svsp->tab_stops[svsp->col] = 1; - svsp->state = STATE_INIT; - break; - - case 'M': /* REVERSE INDEX */ - vt_ri(svsp); - svsp->state = STATE_INIT; - break; - - case 'N': /* SINGLE SHIFT G2 */ - svsp->Gs = &svsp->G2; - svsp->ss = 1; - svsp->state = STATE_INIT; - break; - - case 'O': /* SINGLE SHIFT G3 */ - svsp->Gs = &svsp->G3; - svsp->ss = 1; - svsp->state = STATE_INIT; - break; - - case 'P': /* DCS detected */ - svsp->dcs_state = DCS_INIT; - svsp->state = STATE_DCS; - break; - - case 'Z': /* What are you = ESC [ c */ - vt_da(svsp); - svsp->state = STATE_INIT; - break; - - case '[': /* CSI detected */ - clr_parms(svsp); - svsp->state = STATE_CSI; - break; - - case '\\': /* String Terminator */ - svsp->state = STATE_INIT; - break; - - case 'c': /* hard reset */ - vt_ris(svsp); - if (!kernel) - attrib = svsp->c_attr; - svsp->state = STATE_INIT; - break; - -#if PCVT_SETCOLOR - case 'd': /* set color sgr */ - if(color) - { - /* set shiftwidth=4 */ - sgr_tab_color - [svsp-> - vtsgr] = - svsp->c_attr - >> 8; - user_attr = - sgr_tab_color - [0] << 8; - } - svsp->state = STATE_INIT; - break; -#endif /* PCVT_SETCOLOR */ - case 'n': /* Lock Shift G2 -> GL */ - svsp->GL = &svsp->G2; - svsp->state = STATE_INIT; - break; - - case 'o': /* Lock Shift G3 -> GL */ - svsp->GL = &svsp->G3; - svsp->state = STATE_INIT; - break; - - case '}': /* Lock Shift G2 -> GR */ - svsp->GR = &svsp->G2; - svsp->state = STATE_INIT; - break; - - case '|': /* Lock Shift G3 -> GR */ - svsp->GR = &svsp->G3; - svsp->state = STATE_INIT; - break; - - case '~': /* Lock Shift G1 -> GR */ - svsp->GR = &svsp->G1; - svsp->state = STATE_INIT; - break; - - default: - svsp->state = STATE_INIT; - break; - } - break; - - case STATE_BLANK: /* ESC space [FG], which are */ - svsp->state = STATE_INIT; /* currently ignored*/ - break; - - case STATE_HASH: - switch(ch) - { - case '3': /* double height top half */ - case '4': /*double height bottom half*/ - case '5': /*single width sngle height*/ - case '6': /*double width sngle height*/ - svsp->state = STATE_INIT; - break; - - case '8': /* fill sceen with 'E's */ - vt_aln(svsp); - svsp->state = STATE_INIT; - break; - - default: /* anything else */ - svsp->state = STATE_INIT; - break; - } - break; - - case STATE_BROPN: /* designate G0 */ - case STATE_BRCLO: /* designate G1 */ - case STATE_STAR: /* designate G2 */ - case STATE_PLUS: /* designate G3 */ - case STATE_MINUS: /* designate G1 (96) */ - case STATE_DOT: /* designate G2 (96) */ - case STATE_SLASH: /* designate G3 (96) */ - svsp->which[svsp->whichi++] = ch; - if(ch >= 0x20 && ch <= 0x2f - && svsp->whichi <= 2) - break; - else if(ch >=0x30 && ch <= 0x7e) - { - svsp->which[svsp->whichi] = '\0'; - vt_designate(svsp); - } - svsp->whichi = 0; - svsp->state = STATE_INIT; - break; - - case STATE_CSIQM: /* DEC private modes */ - switch(ch) - { - case '0': - case '1': - case '2': - case '3': - case '4': - case '5': - case '6': - case '7': - case '8': - case '9': /* parameters */ - svsp->parms[svsp->parmi] *= 10; - svsp->parms[svsp->parmi] += - (ch -'0'); - break; - - case ';': /* next parameter */ - svsp->parmi = - (svsp->parmi+1 < MAXPARMS) ? - svsp->parmi+1 : svsp->parmi; - break; - - case 'h': /* set mode */ - vt_set_dec_priv_qm(svsp); - svsp->state = STATE_INIT; - break; - - case 'l': /* reset mode */ - vt_reset_dec_priv_qm(svsp); - svsp->state = STATE_INIT; - break; - - case 'n': /* Reports */ - vt_dsr(svsp); - svsp->state = STATE_INIT; - break; - - case 'K': /* selective erase in line */ - vt_sel(svsp); - svsp->state = STATE_INIT; - break; - - case 'J':/*selective erase in display*/ - vt_sed(svsp); - svsp->state = STATE_INIT; - break; - - default: - svsp->state = STATE_INIT; - break; - - } - break; - - case STATE_CSI: - switch(ch) - { - case '0': - case '1': - case '2': - case '3': - case '4': - case '5': - case '6': - case '7': - case '8': - case '9': /* parameters */ - svsp->parms[svsp->parmi] *= 10; - svsp->parms[svsp->parmi] += - (ch -'0'); - break; - - case ';': /* next parameter */ - svsp->parmi = - (svsp->parmi+1 < MAXPARMS) ? - svsp->parmi+1 : svsp->parmi; - break; - - case '?': /* ESC [ ? family */ - svsp->state = STATE_CSIQM; - break; - - case '@': /* insert char */ - vt_ic(svsp); - svsp->state = STATE_INIT; - break; - - case '"': /* select char attribute */ - svsp->state = STATE_SCA; - break; - - case '\'': /* for DECELR/DECSLE */ -/* XXX */ /* another state needed -hm */ - break; - - case '!': /* soft terminal reset */ - svsp->state = STATE_STR; - break; - - case 'A': /* cursor up */ - vt_cuu(svsp); - svsp->state = STATE_INIT; - break; - - case 'B': /* cursor down */ - vt_cud(svsp); - svsp->state = STATE_INIT; - break; - - case 'C': /* cursor forward */ - vt_cuf(svsp); - svsp->state = STATE_INIT; - break; - - case 'D': /* cursor backward */ - vt_cub(svsp); - svsp->state = STATE_INIT; - break; - - case 'H': /* direct cursor addressing*/ - vt_curadr(svsp); - svsp->state = STATE_INIT; - break; - - case 'J': /* erase screen */ - vt_clreos(svsp); - svsp->state = STATE_INIT; - break; - - case 'K': /* erase line */ - vt_clreol(svsp); - svsp->state = STATE_INIT; - break; - - case 'L': /* insert line */ - vt_il(svsp); - svsp->state = STATE_INIT; - break; - - case 'M': /* delete line */ - vt_dl(svsp); - svsp->state = STATE_INIT; - break; - - case 'P': /* delete character */ - vt_dch(svsp); - svsp->state = STATE_INIT; - break; - - case 'S': /* scroll up */ - vt_su(svsp); - svsp->state = STATE_INIT; - break; - - case 'T': /* scroll down */ - vt_sd(svsp); - svsp->state = STATE_INIT; - break; - - case 'X': /* erase character */ - vt_ech(svsp); - svsp->state = STATE_INIT; - break; - - case 'c': /* device attributes */ - vt_da(svsp); - svsp->state = STATE_INIT; - break; - - case 'f': /* direct cursor addressing*/ - vt_curadr(svsp); - svsp->state = STATE_INIT; - break; - - case 'g': /* clear tabs */ - vt_clrtab(svsp); - svsp->state = STATE_INIT; - break; - - case 'h': /* set mode(s) */ - vt_set_ansi(svsp); - svsp->state = STATE_INIT; - break; - - case 'i': /* media copy */ - vt_mc(svsp); - svsp->state = STATE_INIT; - break; - - case 'l': /* reset mode(s) */ - vt_reset_ansi(svsp); - svsp->state = STATE_INIT; - break; - - case 'm': /* select graphic rendition*/ - vt_sgr(svsp); - if (!kernel) - attrib = svsp->c_attr; - svsp->state = STATE_INIT; - break; - - case 'n': /* reports */ - vt_dsr(svsp); - svsp->state = STATE_INIT; - break; - - case 'r': /* set scrolling region */ - vt_stbm(svsp); - svsp->state = STATE_INIT; - break; - - case 'x': /*request/report parameters*/ - vt_reqtparm(svsp); - svsp->state = STATE_INIT; - break; - - case 'y': /* invoke selftest(s) */ - vt_tst(svsp); - svsp->state = STATE_INIT; - break; - - case 'z': /* DECELR, ignored */ - case '{': /* DECSLE, ignored */ - svsp->state = STATE_INIT; - break; - - default: - svsp->state = STATE_INIT; - break; - } - break; - - case STATE_AMPSND: - hp_entry(ch,svsp); - break; - - case STATE_DCS: - vt_dcsentry(ch,svsp); - break; - - case STATE_SCA: - switch(ch) - { - case 'q': - vt_sca(svsp); - svsp->state = STATE_INIT; - break; - - default: - svsp->state = STATE_INIT; - break; - } - break; - - case STATE_STR: - switch(ch) - { - case 'p': /* soft terminal reset */ - vt_str(svsp); - if (!kernel) - attrib = svsp->c_attr; - svsp->state = STATE_INIT; - break; - - default: - svsp->state = STATE_INIT; - break; - } - break; - - default: /* failsafe */ - svsp->state = STATE_INIT; - break; - - } - } - - svsp->row = svsp->cur_offset / svsp->maxcol; /* current row update */ - - /* take care of last character on line behaviour */ - - if(svsp->lastchar && (svsp->col < ((svsp->maxcol)-1))) - svsp->lastchar = 0; - } - - if(svsp == vsp) /* on current displayed page ? */ - cursor_pos_valid = 1; /* position is valid now */ -} - -/*---------------------------------------------------------------------------* - * this is the absolute cold initialization of the emulator - *---------------------------------------------------------------------------*/ -static void -vt_coldinit(void) -{ - u_short volatile *cp; - u_short was; - int nscr, charset; - int equipment; - u_short *SaveCrtat; - struct video_state *svsp; - - Crtat = (u_short *)MONO_BUF; /* XXX assume static relocation works */ - SaveCrtat = Crtat; - cp = Crtat + (CGA_BUF-MONO_BUF)/CHR; - - do_initialization = 0; /* reset init necessary flag */ - - /* get the equipment byte from the RTC chip */ - - equipment = ((rtcin(RTC_EQUIPMENT)) >> 4) & 0x03; - - switch(equipment) - { - case EQ_EGAVGA: - - /* set memory start to CGA == B8000 */ - - Crtat = Crtat + (CGA_BUF-MONO_BUF)/CHR; - - /* find out, what monitor is connected */ - - was = *cp; - *cp = (u_short) 0xA55A; - if (*cp != 0xA55A) - { - addr_6845 = MONO_BASE; - color = 0; - } - else - { - *cp = was; - addr_6845 = CGA_BASE; - color = 1; - } - - if(vga_test()) /* EGA or VGA ? */ - { - adaptor_type = VGA_ADAPTOR; - totalfonts = 8; - - if(color == 0) - { - mda2egaorvga(); - Crtat = SaveCrtat; /* mono start */ - } - - /* find out which chipset we are running on */ - vga_type = vga_chipset(); - } - else - { - adaptor_type = EGA_ADAPTOR; - totalfonts = 4; - - if(color == 0) - { - mda2egaorvga(); - Crtat = SaveCrtat; /* mono start */ - } - } - - /* decouple ega/vga charsets and intensity */ - set_2ndcharset(); - - break; - - case EQ_40COLOR: /* XXX should panic in 40 col mode ! */ - case EQ_80COLOR: - Crtat = Crtat + (CGA_BUF-MONO_BUF)/CHR; - addr_6845 = CGA_BASE; - adaptor_type = CGA_ADAPTOR; - color = 1; - totalfonts = 0; - break; - - case EQ_80MONO: - addr_6845 = MONO_BASE; - adaptor_type = MDA_ADAPTOR; - color = 0; - totalfonts = 0; - break; - } - - /* establish default colors */ - - if(color) - { - kern_attr = (COLOR_KERNEL_FG | COLOR_KERNEL_BG) << 8; - user_attr = sgr_tab_color[0] << 8; - } - else - { - kern_attr = (MONO_KERNEL_FG | MONO_KERNEL_BG) << 8; - if(adaptor_type == MDA_ADAPTOR) - user_attr = sgr_tab_imono[0] << 8; - else - user_attr = sgr_tab_mono[0] << 8; - } - - totalscreens = 1; /* for now until malloced */ - - for(nscr = 0, svsp = vs; nscr < PCVT_NSCREENS; nscr++, svsp++) - { - svsp->Crtat = Crtat; /* all same until malloc'ed */ - svsp->Memory = Crtat; /* until malloc'ed */ - svsp->cur_offset = 0; /* cursor offset */ - svsp->c_attr = user_attr; /* non-kernel attributes */ - svsp->bell_on = 1; /* enable bell */ - svsp->sevenbit = 0; /* set to 8-bit path */ - svsp->dis_fnc = 0; /* disable display functions */ - svsp->transparent = 0; /* disable internal tranparency */ - svsp->lastchar = 0; /* VTxxx behaviour of last */ - /* char on line */ - svsp->report_chars = NULL; /* VTxxx reports init */ - svsp->report_count = 0; /* VTxxx reports init */ - svsp->state = STATE_INIT; /* main state machine init */ - svsp->m_awm = 1; /* enable auto wrap mode */ - svsp->m_om = 0; /* origin mode = absolute */ - svsp->sc_flag = 0; /* init saved cursor flag */ - svsp->which_fkl = SYS_FKL; /* display system fkey-labels */ - svsp->labels_on = 1; /* if in HP-mode, display */ - /* fkey-labels */ - svsp->attribute = 0; /* HP mode init */ - svsp->key = 0; /* HP mode init */ - svsp->l_len = 0; /* HP mode init */ - svsp->s_len = 0; /* HP mode init */ - svsp->m_len = 0; /* HP mode init */ - svsp->i = 0; /* HP mode init */ - svsp->vt_pure_mode = M_PUREVT; /* initial mode: pure VT220*/ - svsp->vga_charset = CH_SET0; /* use bios default charset */ - -#if PCVT_24LINESDEF /* true compatibility */ - svsp->screen_rows = 24; /* default 24 rows on screen */ -#else /* full screen */ - svsp->screen_rows = 25; /* default 25 rows on screen */ -#endif /* PCVT_24LINESDEF */ - - svsp->screen_rowsize = 25; /* default 25 rows on screen */ - svsp->scrr_beg = 0; /* scrolling region begin row*/ - svsp->scrr_len = svsp->screen_rows; /* scrolling region length*/ - svsp->scrr_end = svsp->scrr_len - 1;/* scrolling region end */ - - if(nscr == 0) - { - if(adaptor_type == VGA_ADAPTOR) - { - /* only VGA can read cursor shape registers ! */ - /* Preserve initial cursor shape */ - outb(addr_6845,CRTC_CURSTART); - svsp->cursor_start = inb(addr_6845+1); - outb(addr_6845,CRTC_CUREND); - svsp->cursor_end = inb(addr_6845+1); - } - else - { - /* MDA,HGC,CGA,EGA registers are write-only */ - svsp->cursor_start = 0; - svsp->cursor_end = 15; - } - } - else - { - svsp->cursor_start = vs[0].cursor_start; - svsp->cursor_end = vs[0].cursor_end; - } - -#ifdef FAT_CURSOR - svsp->cursor_start = 0; - svsp->cursor_end = 15; /* cursor lower scanline */ -#endif - - svsp->cursor_on = 1; /* cursor is on */ - svsp->ckm = 1; /* normal cursor key mode */ - svsp->irm = 0; /* replace mode */ - svsp->lnm = 0; /* CR only */ - svsp->selchar = 0; /* selective attribute off */ - svsp->G0 = csd_ascii; /* G0 = ascii */ - svsp->G1 = csd_ascii; /* G1 = ascii */ - svsp->G2 = csd_supplemental; /* G2 = supplemental */ - svsp->G3 = csd_supplemental; /* G3 = supplemental */ - svsp->GL = &svsp->G0; /* GL = G0 */ - svsp->GR = &svsp->G2; /* GR = G2 */ - svsp->whichi = 0; /* char set designate init */ - svsp->which[0] = '\0'; /* char set designate init */ - svsp->hp_state = SHP_INIT; /* init HP mode state machine*/ - svsp->dcs_state = DCS_INIT; /* init DCS mode state machine*/ - svsp->ss = 0; /* init single shift 2/3 */ - svsp->Gs = NULL; /* Gs single shift 2/3 */ - svsp->maxcol = SCR_COL80; /* 80 columns now (MUST!!!) */ - svsp->wd132col = 0; /* help good old WD .. */ - svsp->scroll_lock = 0; /* scrollock off */ - -#if PCVT_INHIBIT_NUMLOCK - svsp->num_lock = 0; /* numlock off */ -#else - svsp->num_lock = 1; /* numlock on */ -#endif - - svsp->caps_lock = 0; /* capslock off */ - svsp->shift_lock = 0; /* shiftlock off */ - -#if PCVT_24LINESDEF /* true compatibility */ - svsp->force24 = 1; /* force 24 lines */ -#else /* maximum screen size */ - svsp->force24 = 0; /* no 24 lines force yet */ -#endif /* PCVT_24LINESDEF */ - - vt_clearudk(svsp); /* clear vt220 udk's */ - - vt_str(svsp); /* init emulator */ - - if(nscr == 0) - { - /* - * Preserve data on the startup screen that - * precedes the cursor position. Leave the - * cursor where it was found. - */ - unsigned cursorat; - int filllen; - - /* CRTC regs 0x0e and 0x0f are r/w everywhere */ - - outb(addr_6845, CRTC_CURSORH); - cursorat = inb(addr_6845+1) << 8; - outb(addr_6845, CRTC_CURSORL); - cursorat |= inb(addr_6845+1); - - /* - * Reject cursors that are more than one row off a - * 25-row screen. syscons sets the cursor offset - * to 0xffff. The scroll up fixup fails for this - * because the assignment to svsp->row overflows - * and perhaps for other reasons. - */ - if (cursorat > 25 * svsp->maxcol) - cursorat = 25 * svsp->maxcol; - - svsp->cur_offset = cursorat; - svsp->row = cursorat / svsp->maxcol; - svsp->col = cursorat % svsp->maxcol; - - if (svsp->row >= svsp->screen_rows) - { - - /* - * Scroll up; this should only happen when - * PCVT_24LINESDEF is set - */ - int nscroll = - svsp->row + 1 - - svsp->screen_rows; - bcopy (svsp->Crtat - + nscroll*svsp->maxcol, - svsp->Crtat, - svsp->screen_rows - * svsp->maxcol * CHR); - svsp->row -= nscroll; - svsp->cur_offset -= - nscroll * svsp->maxcol; - } - - filllen = (svsp->maxcol * svsp->screen_rowsize) - - svsp->cur_offset; - - if (filllen > 0) - fillw(user_attr | ' ', - svsp->Crtat+svsp->cur_offset, - filllen); - } - -#if PCVT_USL_VT_COMPAT - svsp->smode.mode = VT_AUTO; - svsp->smode.relsig = svsp->smode.acqsig = - svsp->smode.frsig = 0; - svsp->proc = 0; - svsp->pid = svsp->vt_status = 0; -#endif /* PCVT_USL_VT_COMPAT */ - - } - - for(charset = 0;charset < NVGAFONTS;charset++) - { - vgacs[charset].loaded = 0; /* not populated yet */ - vgacs[charset].secondloaded = 0; /* not populated yet */ - - switch(adaptor_type) - { - case VGA_ADAPTOR: - - /* - * for a VGA, do not assume any - * constant - instead, read the actual - * values. This avoid problems with - * LCD displays that apparently happen - * to use font matrices up to 19 - * scan lines and 475 scan lines - * total in order to make use of the - * whole screen area - */ - - outb(addr_6845, CRTC_VDE); - vgacs[charset].scr_scanlines = - inb(addr_6845 + 1); - outb(addr_6845, CRTC_MAXROW); - vgacs[charset].char_scanlines = - inb(addr_6845 + 1); - break; - - case EGA_ADAPTOR: - /* 0x5D for 25 lines */ - vgacs[charset].scr_scanlines = 0x5D; - /* 0x4D for 25 lines */ - vgacs[charset].char_scanlines = 0x4D; - break; - - case CGA_ADAPTOR: - case MDA_ADAPTOR: - default: - /* These shouldn't be used for CGA/MDA */ - vgacs[charset].scr_scanlines = 0; - vgacs[charset].char_scanlines = 0; - break; - } - vgacs[charset].screen_size = SIZ_25ROWS; /* set screen size */ - } - - vgacs[0].loaded = 1; /* The BIOS loaded this at boot */ - - /* set cursor for first screen */ - - outb(addr_6845,CRTC_CURSTART); /* cursor start reg */ - outb(addr_6845+1,vs[0].cursor_start); - outb(addr_6845,CRTC_CUREND); /* cursor end reg */ - outb(addr_6845+1,vs[0].cursor_end); - - /* this is to satisfy ddb */ - - if(!keyboard_is_initialized) - kbd_code_init1(); -} - -/*---------------------------------------------------------------------------* - * get kernel memory for virtual screens - * - * CAUTION: depends on "can_do_132col" being set properly, or - * depends on vga_type() being run before calling this !!! - * - *---------------------------------------------------------------------------*/ -void -vt_coldmalloc(void) -{ - int nscr; - int screen_max_size; - - /* we need to initialize in case we are not the console */ - - if(do_initialization) - vt_coldinit(); - - switch(adaptor_type) - { - default: - case MDA_ADAPTOR: - case CGA_ADAPTOR: - screen_max_size = MAXROW_MDACGA * MAXCOL_MDACGA * CHR; - break; - - case EGA_ADAPTOR: - screen_max_size = MAXROW_EGA * MAXCOL_EGA * CHR; - break; - - case VGA_ADAPTOR: - if(can_do_132col) - screen_max_size = - MAXROW_VGA * MAXCOL_SVGA * CHR; - else - screen_max_size = - MAXROW_VGA * MAXCOL_VGA * CHR; - } - - for(nscr = 0; nscr < PCVT_NSCREENS; nscr++) - { - if((vs[nscr].Memory = - (u_short *)malloc(screen_max_size * 2, M_DEVBUF, M_WAITOK)) - == NULL) - { - printf("pcvt: screen memory malloc failed, " - "NSCREEN=%d, nscr=%d\n", - PCVT_NSCREENS, nscr); - break; - } - if(nscr != 0) - { - vs[nscr].Crtat = vs[nscr].Memory; - fillw(user_attr | ' ', - vs[nscr].Crtat, - vs[nscr].maxcol * vs[nscr].screen_rowsize); - totalscreens++; - } - } -} - -/*---------------------------------------------------------------------------* - * check if we must scroll up screen - *---------------------------------------------------------------------------*/ -static void -check_scroll(struct video_state *svsp) -{ - if(!svsp->abs_write) - { - /* we write within scroll region */ - - if(svsp->cur_offset >= ((svsp->scrr_end + 1) * svsp->maxcol)) - { - /* the following piece of code has to be protected */ - /* from trying to switch to another virtual screen */ - /* while being in there ... */ - - critical_scroll = 1; /* flag protect ON */ - - roll_up(svsp, 1); /* rolling up .. */ - - svsp->cur_offset -= svsp->maxcol;/* update position */ - - if(switch_page != -1) /* someone wanted to switch ? */ - { - vgapage(switch_page); /* yes, then switch ! */ - switch_page = -1; /* reset switch flag */ - } - - critical_scroll = 0; /* flag protect OFF */ - } - } - else - { - /* clip, if outside of screen */ - - if (svsp->cur_offset >= svsp->screen_rows * svsp->maxcol) - svsp->cur_offset -= svsp->maxcol; - } -} - -/*---------------------------------------------------------------------------* - * write to one user function key label - *---------------------------------------------------------------------------*/ -static void -writefkl(int num, u_char *string, struct video_state *svsp) -{ - if((num < 0) || (num > 7)) /* range ok ? */ - return; - - strncpy(svsp->ufkl[num], string, 16); /* save string in static array */ - - if(svsp->which_fkl == USR_FKL) - wrfkl(num,string,svsp); -} - -/*---------------------------------------------------------------------------* - * write to one system function key label - *---------------------------------------------------------------------------*/ -void -swritefkl(int num, u_char *string, struct video_state *svsp) -{ - if((num < 0) || (num > 7)) /* range ok ? */ - return; - - strncpy(svsp->sfkl[num], string, 16); /* save string in static array */ - - if(svsp->which_fkl == SYS_FKL) - wrfkl(num,string,svsp); -} - -/*---------------------------------------------------------------------------* - * write function key label onto screen - *---------------------------------------------------------------------------*/ -static void -wrfkl(int num, u_char *string, struct video_state *svsp) -{ - register u_short *p; - register u_short *p1; - register int cnt = 0; - - if(!svsp->labels_on || (svsp->vt_pure_mode == M_PUREVT)) - return; - - p = (svsp->Crtat - + (svsp->screen_rows * svsp->maxcol)); /* screen_rows+1 line */ - - if(svsp->maxcol == SCR_COL80) - { - if(num < 4) /* labels 1 .. 4 */ - p += (num * LABEL_LEN); - else /* labels 5 .. 8 */ - p += ((num * LABEL_LEN) + LABEL_MID + 1); - } - else - { - if(num < 4) /* labels 1 .. 4 */ - p += (num * (LABEL_LEN + 6)); - else /* labels 5 .. 8 */ - p += ((num * (LABEL_LEN + 6)) + LABEL_MID + 11); - - } - p1 = p + svsp->maxcol; /* second label line */ - - while((*string != '\0') && (cnt < 8)) - { - *p = ((0x70 << 8) + (*string & 0xff)); - p++; - string++; - cnt++; - } - while(cnt < 8) - { - *p = ((0x70 << 8) + ' '); - p++; - cnt++; - } - - while((*string != '\0') && (cnt < 16)) - { - *p1 = ((0x70 << 8) + (*string & 0xff)); - p1++; - string++; - cnt++; - } - while(cnt < 16) - { - *p1 = ((0x70 << 8) + ' '); - p1++; - cnt++; - } -} - -/*---------------------------------------------------------------------------* - * remove (=blank) function key labels, row/col and status line - *---------------------------------------------------------------------------*/ -void -fkl_off(struct video_state *svsp) -{ - register u_short *p; - register int num; - register int size; - - svsp->labels_on = 0; - - if((vgacs[svsp->vga_charset].screen_size==SIZ_28ROWS) && svsp->force24) - size = 4; - else - size = 3; - - p = (svsp->Crtat + (svsp->screen_rows * svsp->maxcol)); - - for(num = 0; num < (size * svsp->maxcol); num++) - *p++ = ' '; -} - -/*---------------------------------------------------------------------------* - * (re-) display function key labels, row/col and status line - *---------------------------------------------------------------------------*/ -void -fkl_on(struct video_state *svsp) -{ - svsp->labels_on = 1; - - if(svsp->which_fkl == SYS_FKL) - sw_sfkl(svsp); - else if(svsp->which_fkl == USR_FKL) - sw_ufkl(svsp); -} - -/*---------------------------------------------------------------------------* - * set emulation mode, switch between pure VTxxx mode and HP/VTxxx mode - *---------------------------------------------------------------------------*/ -void -set_emulation_mode(struct video_state *svsp, int mode) -{ - if(svsp->vt_pure_mode == mode) - return; - - clr_parms(svsp); /* escape parameter init */ - svsp->state = STATE_INIT; /* initial state */ - svsp->scrr_beg = 0; /* start of scrolling region */ - svsp->sc_flag = 0; /* invalidate saved cursor position */ - svsp->transparent = 0; /* disable control code processing */ - - if(mode == M_HPVT) /* vt-pure -> hp/vt-mode */ - { - svsp->screen_rows = svsp->screen_rowsize - 3; - if (svsp->force24 && svsp->screen_rows == 25) - svsp->screen_rows = 24; - - if (svsp->row >= svsp->screen_rows) { - /* Scroll up */ - int nscroll = svsp->row + 1 - svsp->screen_rows; - bcopy (svsp->Crtat + nscroll * svsp->maxcol, - svsp->Crtat, - svsp->screen_rows * svsp->maxcol * CHR); - svsp->row -= nscroll; - svsp->cur_offset -= nscroll * svsp->maxcol; - } - - svsp->vt_pure_mode = M_HPVT; - - if (svsp->vs_tty) - svsp->vs_tty->t_winsize.ws_row = svsp->screen_rows; - - svsp->scrr_len = svsp->screen_rows; - svsp->scrr_end = svsp->scrr_len - 1; - - update_hp(svsp); - } - else if(mode == M_PUREVT) /* hp/vt-mode -> vt-pure */ - { - fillw(user_attr | ' ', - svsp->Crtat + svsp->screen_rows * svsp->maxcol, - (svsp->screen_rowsize - svsp->screen_rows) - * svsp->maxcol); - - svsp->vt_pure_mode = M_PUREVT; - - svsp->screen_rows = svsp->screen_rowsize; - if (svsp->force24 && svsp->screen_rows == 25) - svsp->screen_rows = 24; - - if (svsp->vs_tty) - svsp->vs_tty->t_winsize.ws_row = svsp->screen_rows; - - svsp->scrr_len = svsp->screen_rows; - svsp->scrr_end = svsp->scrr_len - 1; - } - -#if PCVT_SIGWINCH - if (svsp->vs_tty && svsp->vs_tty->t_pgrp) - pgsignal(svsp->vs_tty->t_pgrp, SIGWINCH, 1); -#endif /* PCVT_SIGWINCH */ - -} - -/*---------------------------------------------------------------------------* - * initialize user function key labels - *---------------------------------------------------------------------------*/ -void -init_ufkl(struct video_state *svsp) -{ - writefkl(0,(u_char *)" f1",svsp); /* init fkey labels */ - writefkl(1,(u_char *)" f2",svsp); - writefkl(2,(u_char *)" f3",svsp); - writefkl(3,(u_char *)" f4",svsp); - writefkl(4,(u_char *)" f5",svsp); - writefkl(5,(u_char *)" f6",svsp); - writefkl(6,(u_char *)" f7",svsp); - writefkl(7,(u_char *)" f8",svsp); -} - -/*---------------------------------------------------------------------------* - * initialize system user function key labels - *---------------------------------------------------------------------------*/ -void -init_sfkl(struct video_state *svsp) -{ - /* 1234567812345678 */ - if(can_do_132col) - /* 1234567812345678 */ - swritefkl(0,(u_char *)"132 COLUMNS ",svsp); - else - swritefkl(0,(u_char *)" ",svsp); - - /* 1234567812345678 */ - swritefkl(1,(u_char *)"SOFT-RSTTERMINAL",svsp); - - if(svsp->force24) - swritefkl(2,(u_char *)"FORCE24 ENABLE *",svsp); - else - swritefkl(2,(u_char *)"FORCE24 ENABLE ",svsp); - -#if PCVT_SHOWKEYS /* 1234567812345678 */ - if(svsp == &vs[0]) - swritefkl(3,(u_char *)"KEYBSCANDISPLAY ",svsp); - else - swritefkl(3,(u_char *)" ",svsp); -#else - swritefkl(3,(u_char *)" ",svsp); -#endif /* PCVT_SHOWKEYS */ - - /* 1234567812345678 */ - if(svsp->bell_on) - swritefkl(4,(u_char *)"BELL ENABLE *",svsp); - else - swritefkl(4,(u_char *)"BELL ENABLE ",svsp); - - if(svsp->sevenbit) - swritefkl(5,(u_char *)"8-BIT ENABLE ",svsp); - else - swritefkl(5,(u_char *)"8-BIT ENABLE *",svsp); - - swritefkl(6,(u_char *)"DISPLAY FUNCTNS ",svsp); - - swritefkl(7,(u_char *)"AUTOWRAPENABLE *",svsp); - /* 1234567812345678 */ -} - -/*---------------------------------------------------------------------------* - * switch display to user function key labels - *---------------------------------------------------------------------------*/ -void -sw_ufkl(struct video_state *svsp) -{ - int i; - svsp->which_fkl = USR_FKL; - for(i = 0; i < 8; i++) - wrfkl(i,svsp->ufkl[i],svsp); -} - -/*---------------------------------------------------------------------------* - * switch display to system function key labels - *---------------------------------------------------------------------------*/ -void -sw_sfkl(struct video_state *svsp) -{ - int i; - svsp->which_fkl = SYS_FKL; - for(i = 0; i < 8; i++) - wrfkl(i,svsp->sfkl[i],svsp); -} - -/*---------------------------------------------------------------------------* - * toggle force 24 lines - *---------------------------------------------------------------------------*/ -void -toggl_24l(struct video_state *svsp) -{ - if(svsp->which_fkl == SYS_FKL) - { - if(svsp->force24) - { - svsp->force24 = 0; - swritefkl(2,(u_char *)"FORCE24 ENABLE ",svsp); - } - else - { - svsp->force24 = 1; - swritefkl(2,(u_char *)"FORCE24 ENABLE *",svsp); - } - set_screen_size(svsp, vgacs[(svsp->vga_charset)].screen_size); - } -} - -#if PCVT_SHOWKEYS -/*---------------------------------------------------------------------------* - * toggle keyboard scancode display - *---------------------------------------------------------------------------*/ -void -toggl_kbddbg(struct video_state *svsp) -{ - if((svsp->which_fkl == SYS_FKL) && (svsp == &vs[0])) - { - if(keyboard_show) - { - keyboard_show = 0; - swritefkl(3,(u_char *)"KEYBSCANDISPLAY ",svsp); - } - else - { - keyboard_show = 1; - swritefkl(3,(u_char *)"KEYBSCANDISPLAY*",svsp); - } - } -} -#endif /* PCVT_SHOWKEYS */ - -/*---------------------------------------------------------------------------* - * toggle display functions - *---------------------------------------------------------------------------*/ -void -toggl_dspf(struct video_state *svsp) -{ - if(svsp->which_fkl == SYS_FKL) - { - if(svsp->dis_fnc) - { - svsp->dis_fnc = 0; - swritefkl(6,(u_char *)"DISPLAY FUNCTNS ",svsp); - } - else - { - svsp->dis_fnc = 1; - swritefkl(6,(u_char *)"DISPLAY FUNCTNS*",svsp); - } - } -} - -/*---------------------------------------------------------------------------* - * auto wrap on/off - *---------------------------------------------------------------------------*/ -void -toggl_awm(struct video_state *svsp) -{ - if(svsp->which_fkl == SYS_FKL) - { - if(svsp->m_awm) - { - svsp->m_awm = 0; - swritefkl(7,(u_char *)"AUTOWRAPENABLE ",svsp); - } - else - { - svsp->m_awm = 1; - swritefkl(7,(u_char *)"AUTOWRAPENABLE *",svsp); - } - } -} - -/*---------------------------------------------------------------------------* - * bell on/off - *---------------------------------------------------------------------------*/ -void -toggl_bell(struct video_state *svsp) -{ - if(svsp->which_fkl == SYS_FKL) - { - if(svsp->bell_on) - { - svsp->bell_on = 0; - swritefkl(4,(u_char *)"BELL ENABLE ",svsp); - } - else - { - svsp->bell_on = 1; - swritefkl(4,(u_char *)"BELL ENABLE *",svsp); - } - } -} - -/*---------------------------------------------------------------------------* - * 7/8 bit usage - *---------------------------------------------------------------------------*/ -void -toggl_sevenbit(struct video_state *svsp) -{ - if(svsp->which_fkl == SYS_FKL) - { - if(svsp->sevenbit) - { - svsp->sevenbit = 0; - swritefkl(5,(u_char *)"8-BIT ENABLE *",svsp); - } - else - { - svsp->sevenbit = 1; - swritefkl(5,(u_char *)"8-BIT ENABLE ",svsp); - } - } -} - -/*---------------------------------------------------------------------------* - * 80 / 132 columns - *---------------------------------------------------------------------------*/ -void -toggl_columns(struct video_state *svsp) -{ - if(svsp->which_fkl == SYS_FKL) - { - if(svsp->maxcol == SCR_COL132) - { - if(vt_col(svsp, SCR_COL80)) - svsp->maxcol = 80; - } - else - { - if(vt_col(svsp, SCR_COL132)) - svsp->maxcol = 132; - } - } -} - -/*---------------------------------------------------------------------------* - * toggle vga 80/132 column operation - *---------------------------------------------------------------------------*/ -int -vt_col(struct video_state *svsp, int cols) -{ - if(vga_col(svsp, cols) == 0) - return(0); - - if(cols == SCR_COL80) - swritefkl(0,(u_char *)"132 COLUMNS ",svsp); - else - swritefkl(0,(u_char *)"132 COLUMNS*",svsp); - - fillw(user_attr | ' ', - svsp->Crtat, - svsp->maxcol * svsp->screen_rowsize); - - clr_parms(svsp); /* escape parameter init */ - svsp->state = STATE_INIT; /* initial state */ - svsp->col = 0; /* init row */ - svsp->row = 0; /* init col */ - svsp->cur_offset = 0; /* cursor offset init */ - svsp->sc_flag = 0; /* invalidate saved cursor position */ - svsp->scrr_beg = 0; /* reset scrolling region */ - svsp->scrr_len = svsp->screen_rows; /*reset scrolling region legnth */ - svsp->scrr_end = svsp->scrr_len - 1; - svsp->transparent = 0; /* disable control code processing */ - svsp->selchar = 0; /* selective attr off */ - vt_initsel(svsp); /* re-init sel attr */ - - update_hp(svsp); /* update labels, row/col, page ind */ - - /* Update winsize struct to reflect screen size */ - - if(svsp->vs_tty) - { - svsp->vs_tty->t_winsize.ws_row = svsp->screen_rows; - svsp->vs_tty->t_winsize.ws_col = svsp->maxcol; - - svsp->vs_tty->t_winsize.ws_xpixel = - (cols == SCR_COL80)? 720: 1056; - svsp->vs_tty->t_winsize.ws_ypixel = 400; - -#if PCVT_SIGWINCH - if(svsp->vs_tty->t_pgrp) - pgsignal(svsp->vs_tty->t_pgrp, SIGWINCH, 1); -#endif /* PCVT_SIGWINCH */ - } - - return(1); -} - -/*---------------------------------------------------------------------------* - * update HP stuff on screen - *---------------------------------------------------------------------------*/ -void -update_hp(struct video_state *svsp) -{ - if(svsp->vt_pure_mode != M_HPVT) - return; - - fillw (user_attr | ' ', - svsp->Crtat + svsp->screen_rows * svsp->maxcol, - (svsp->screen_rowsize - svsp->screen_rows) * svsp->maxcol); - - if (!svsp->labels_on) - return; - - /* update fkey labels */ - - fkl_off(svsp); - fkl_on(svsp); - - if(vsp == svsp) - { - /* update current displayed screen indicator */ - - *((svsp->Crtat + ((svsp->screen_rows + 2) * svsp->maxcol)) - + svsp->maxcol - 3) = user_attr | '['; - *((svsp->Crtat + ((svsp->screen_rows + 2) * svsp->maxcol)) - + svsp->maxcol - 2) = user_attr | current_video_screen + '0'; - *((svsp->Crtat + ((svsp->screen_rows + 2) * svsp->maxcol)) - + svsp->maxcol - 1) = user_attr | ']'; - } -} - -/*---------------------------------------------------------------------------* - * initialize ANSI escape sequence parameter buffers - *---------------------------------------------------------------------------*/ -void -clr_parms(struct video_state *svsp) -{ - register int i; - for(i=0; i < MAXPARMS; i++) - svsp->parms[i] = 0; - svsp->parmi = 0; -} - - -/*---------------------------------------------------------------------------* - * - * partial HP 2392 ANSI mode Emulator - * ================================== - * - * this part takes over the emulation of some escape sequences - * needed to handle the function key labels - * - * They are modeled after the corresponding escape sequences - * introduced with the HP2392 terminals from Hewlett-Packard. - * - * see: - * "HP2392A, Display Terminal Reference Manual", - * HP Manual Part Number 02390-90001 - * and: - * Reference Manual Supplement - * "2392A Display Terminal Option 049, ANSI Operation" - * HP Manual Part Number 02390-90023EN - * - *---------------------------------------------------------------------------*/ - -static void -hp_entry(U_char ch, struct video_state *svsp) -{ - switch(svsp->hp_state) - { - case SHP_INIT: - switch(ch) - { - case 'f': - svsp->hp_state = SHP_AND_F; - svsp->attribute = 0; - svsp->key = 0; - svsp->l_len = 0; - svsp->s_len = 0; - svsp->i = 0; - break; - - case 'j': - svsp->m_len = 0; - svsp->hp_state = SHP_AND_J; - break; - - case 's': - svsp->hp_state = SHP_AND_ETE; - break; - - default: - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - break; - } - break; - - case SHP_AND_F: - if((ch >= '0') && (ch <= '8')) - { - svsp->attribute = ch; - svsp->hp_state = SHP_AND_Fa; - } - else - { - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - } - break; - - case SHP_AND_Fa: - if(ch == 'a') - svsp->hp_state = SHP_AND_Fak; - else if(ch == 'k') - { - svsp->key = svsp->attribute; - svsp->hp_state = SHP_AND_Fakd; - } - else - { - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - } - break; - - case SHP_AND_Fak: - if((ch >= '1') && (ch <= '8')) - { - svsp->key = ch; - svsp->hp_state = SHP_AND_Fak1; - } - else - { - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - } - break; - - case SHP_AND_Fak1: - if(ch == 'k') - svsp->hp_state = SHP_AND_Fakd; - else - { - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - } - break; - - case SHP_AND_Fakd: - if(svsp->l_len > 16) - { - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - } - else if(ch >= '0' && ch <= '9') - { - svsp->l_len *= 10; - svsp->l_len += (ch -'0'); - } - else if(ch == 'd') - svsp->hp_state = SHP_AND_FakdL; - else - { - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - } - break; - - case SHP_AND_FakdL: - if(svsp->s_len > 80) - { - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - } - else if(ch >= '0' && ch <= '9') - { - svsp->s_len *= 10; - svsp->s_len += (ch -'0'); - } - else if(ch == 'L') - { - svsp->hp_state = SHP_AND_FakdLl; - svsp->transparent = 1; - } - else - { - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - } - break; - - case SHP_AND_FakdLl: - svsp->l_buf[svsp->i] = ch; - if(svsp->i >= svsp->l_len-1) - { - svsp->hp_state = SHP_AND_FakdLls; - svsp->i = 0; - if(svsp->s_len == 0) - { - svsp->state = STATE_INIT; - svsp->hp_state = SHP_INIT; - svsp->transparent = 0; - svsp->i = 0; - svsp->l_buf[svsp->l_len] = '\0'; - svsp->s_buf[svsp->s_len] = '\0'; - writefkl((svsp->key - '0' -1), - svsp->l_buf, svsp); - } - } - else - svsp->i++; - break; - - case SHP_AND_FakdLls: - svsp->s_buf[svsp->i] = ch; - if(svsp->i >= svsp->s_len-1) - { - svsp->state = STATE_INIT; - svsp->hp_state = SHP_INIT; - svsp->transparent = 0; - svsp->i = 0; - svsp->l_buf[svsp->l_len] = '\0'; - svsp->s_buf[svsp->s_len] = '\0'; - writefkl((svsp->key - '0' -1), svsp->l_buf, - svsp); - } - else - svsp->i++; - break; - - case SHP_AND_J: - switch(ch) - { - case '@': /* enable user keys, remove */ - /* all labels & status from */ - /* screen */ - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - fkl_off(svsp); - break; - - case 'A': /* enable & display "modes" */ - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - fkl_on(svsp); - sw_sfkl(svsp); - break; - - case 'B': /* enable & display "user" */ - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - fkl_on(svsp); - sw_ufkl(svsp); - break; - - case 'C': /* remove (clear) status line*/ - /* and restore current labels*/ - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - fkl_on(svsp); - break; - - case 'R': /* enable usr/menu keys */ - /* and fkey label modes */ - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - break; - - case 'S': /* disable usr/menu keys */ - /* and fkey label modes */ - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - break; - - case '0': - case '1': - case '2': - case '3': - case '4': - case '5': - case '6': - case '7': - case '8': - case '9': /* parameters for esc & j xx L mm */ - svsp->m_len *= 10; - svsp->m_len += (ch -'0'); - break; - - case 'L': - svsp->hp_state = SHP_AND_JL; - svsp->i = 0; - svsp->transparent = 1; - break; - - default: - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - break; - - } - break; - - - case SHP_AND_JL: - svsp->m_buf[svsp->i] = ch; - if(svsp->i >= svsp->m_len-1) - { - svsp->state = STATE_INIT; - svsp->hp_state = SHP_INIT; - svsp->transparent = 0; - svsp->i = 0; - svsp->m_buf[svsp->m_len] = '\0'; - /* display status line */ - /* needs to be implemented */ - /* see 2392 man, 3-14 */ - - } - else - svsp->i++; - break; - - case SHP_AND_ETE: /* eat chars until uppercase */ - if(ch >= '@' && ch <= 'Z') - { - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - svsp->transparent = 0; - } - break; - - default: - svsp->hp_state = SHP_INIT; - svsp->state = STATE_INIT; - svsp->transparent = 0; - break; - } -} - -#endif /* NVT > 0 */ - -/* ------------------------- E O F ------------------------------------------*/ - |