-/* $Id: macterm.c,v 1.28 2002/12/31 20:11:38 ben Exp $ */
+/* $Id: macterm.c,v 1.54 2003/01/25 16:16:44 ben Exp $ */
/*
* Copyright (c) 1999 Simon Tatham
* Copyright (c) 1999, 2002 Ben Harris
#include <MacTypes.h>
#include <Controls.h>
#include <ControlDefinitions.h>
+#include <FixMath.h>
#include <Fonts.h>
#include <Gestalt.h>
#include <LowMem.h>
#include <Scrap.h>
#include <Script.h>
#include <Sound.h>
-#include <StandardFile.h>
#include <TextCommon.h>
-#include <Threads.h>
#include <ToolUtils.h>
#include <UnicodeConverter.h>
#include "macresid.h"
#include "putty.h"
+#include "charset.h"
#include "mac.h"
-#include "storage.h"
#include "terminal.h"
#define NCOLOURS (lenof(((Config *)0)->colours))
#define do_text_for_device_upp do_text_for_device
#endif /* not TARGET_RT_MAC_CFM */
-static void inbuf_putc(Session *s, int c) {
- char ch = c;
-
- from_backend(s->term, 0, &ch, 1);
-}
-
-static void inbuf_putstr(Session *s, const char *c) {
-
- from_backend(s->term, 0, (char *)c, strlen(c));
-}
-
-static void display_resource(Session *s, unsigned long type, short id) {
- Handle h;
- int len;
- char *t;
-
- h = GetResource(type, id);
- if (h == NULL)
- fatalbox("Can't get test resource");
- len = GetResourceSizeOnDisk(h);
- DetachResource(h);
- HNoPurge(h);
- HLock(h);
- t = *h;
- from_backend(s->term, 0, t, len);
- term_out(s->term);
- DisposeHandle(h);
-}
-
-void mac_opensession(void) {
- Session *s;
- StandardFileReply sfr;
- static const OSType sftypes[] = { 'Sess', 0, 0, 0 };
- void *sesshandle;
-
- s = smalloc(sizeof(*s));
- memset(s, 0, sizeof(*s));
-
- StandardGetFile(NULL, 1, sftypes, &sfr);
- if (!sfr.sfGood) goto fail;
-
- sesshandle = open_settings_r_fsp(&sfr.sfFile);
- if (sesshandle == NULL) goto fail;
- load_open_settings(sesshandle, TRUE, &s->cfg);
- close_settings_r(sesshandle);
- s->back = &loop_backend;
- mac_startsession(s);
- return;
-
- fail:
- sfree(s);
- return;
-}
-
void mac_startsession(Session *s)
{
- UInt32 starttime;
- char msg[128];
+ char *errmsg;
+ int i;
+
+ init_ucs(s);
+
+ /*
+ * Select protocol. This is farmed out into a table in a
+ * separate file to enable an ssh-free variant.
+ */
+ s->back = NULL;
+ for (i = 0; backends[i].backend != NULL; i++)
+ if (backends[i].protocol == s->cfg.protocol) {
+ s->back = backends[i].backend;
+ break;
+ }
+ if (s->back == NULL)
+ fatalbox("Unsupported protocol number found");
/* XXX: Own storage management? */
if (HAVE_COLOR_QD())
s->window = GetNewWindow(wTerminal, NULL, (WindowPtr)-1);
SetWRefCon(s->window, (long)s);
s->scrollbar = GetNewControl(cVScroll, s->window);
- s->term = term_init(&s->cfg, s);
+ s->term = term_init(&s->cfg, &s->ucsdata, s);
- s->logctx = log_init(s);
+ mac_initfont(s);
+ mac_initpalette(s);
+ if (HAVE_COLOR_QD()) {
+ /* Set to FALSE to not get palette updates in the background. */
+ SetPalette(s->window, s->palette, TRUE);
+ ActivatePalette(s->window);
+ }
+
+ s->logctx = log_init(s, &s->cfg);
term_provide_logctx(s->term, s->logctx);
- s->back->init(s->term, &s->backhandle, "localhost", 23, &s->realhost, 0);
+ errmsg = s->back->init(s->term, &s->backhandle, &s->cfg, s->cfg.host,
+ s->cfg.port, &s->realhost, s->cfg.tcp_nodelay);
+ if (errmsg != NULL)
+ fatalbox("%s", errmsg);
s->back->provide_logctx(s->backhandle, s->logctx);
+ set_title(s, s->realhost);
term_provide_resize_fn(s->term, s->back->size, s->backhandle);
s->ldisc = ldisc_create(&s->cfg, s->term, s->back, s->backhandle, s);
ldisc_send(s->ldisc, NULL, 0, 0);/* cause ldisc to notice changes */
- mac_initfont(s);
- mac_initpalette(s);
- if (HAVE_COLOR_QD()) {
- /* Set to FALSE to not get palette updates in the background. */
- SetPalette(s->window, s->palette, TRUE);
- ActivatePalette(s->window);
- }
ShowWindow(s->window);
- starttime = TickCount();
- display_resource(s, 'pTST', 128);
- sprintf(msg, "Elapsed ticks: %d\015\012", TickCount() - starttime);
- inbuf_putstr(s, msg);
- term_out(s->term);
+ s->next = sesslist;
+ s->prev = &sesslist;
+ if (s->next != NULL)
+ s->next->prev = &s->next;
+ sesslist = s;
+}
+
+/*
+ * Try to work out a horizontal scaling factor for the current font
+ * that will give a chracter width of wantwidth. Return it in numer
+ * and denom (suitable for passing to StdText()).
+ */
+static void mac_workoutfontscale(Session *s, int wantwidth,
+ Point *numerp, Point *denomp)
+{
+ Point numer, denom, tmpnumer, tmpdenom;
+ int gotwidth, i;
+ const char text = 'W';
+ FontInfo fi;
+
+ numer.v = denom.v = 1; /* always */
+ numer.h = denom.h = 1;
+ for (i = 0; i < 3; i++) {
+ tmpnumer = numer;
+ tmpdenom = denom;
+ if (s->window->grafProcs != NULL)
+ gotwidth = InvokeQDTxMeasUPP(1, &text, &tmpnumer, &tmpdenom, &fi,
+ s->window->grafProcs->txMeasProc);
+ else
+ gotwidth = StdTxMeas(1, &text, &tmpnumer, &tmpdenom, &fi);
+ /* The result of StdTxMeas must be scaled by the factors it returns. */
+ gotwidth = FixRound(FixMul(gotwidth << 16,
+ FixRatio(tmpnumer.h, tmpdenom.h)));
+ if (gotwidth == wantwidth)
+ break;
+ numer.h *= wantwidth;
+ denom.h *= gotwidth;
+ }
+ *numerp = numer;
+ *denomp = denom;
}
static UnicodeToTextFallbackUPP uni_to_font_fallback_upp;
Str255 macfont;
FontInfo fi;
TextEncoding enc;
+ OptionBits fbflags;
SetPort(s->window);
- macfont[0] = sprintf((char *)&macfont[1], "%s", s->cfg.font);
+ c2pstrcpy(macfont, s->cfg.font);
GetFNum(macfont, &s->fontnum);
TextFont(s->fontnum);
TextFace(s->cfg.fontisbold ? bold : 0);
s->font_ascent = fi.ascent;
s->font_leading = fi.leading;
s->font_height = s->font_ascent + fi.descent + s->font_leading;
+ mac_workoutfontscale(s, s->font_width,
+ &s->font_stdnumer, &s->font_stddenom);
+ mac_workoutfontscale(s, s->font_width * 2,
+ &s->font_widenumer, &s->font_widedenom);
+ TextSize(s->cfg.fontheight * 2);
+ mac_workoutfontscale(s, s->font_width * 2,
+ &s->font_bignumer, &s->font_bigdenom);
+ TextSize(s->cfg.fontheight);
if (!s->cfg.bold_colour) {
TextFace(bold);
s->font_boldadjust = s->font_width - CharWidth('W');
if (s->uni_to_font != NULL)
DisposeUnicodeToTextInfo(&s->uni_to_font);
- if (mac_gestalts.encvvers == 0 ||
+ if (mac_gestalts.encvvers != 0 &&
UpgradeScriptInfoToTextEncoding(kTextScriptDontCare,
kTextLanguageDontCare,
kTextRegionDontCare, macfont,
- &enc) != noErr ||
- CreateUnicodeToTextInfoByEncoding(enc, &s->uni_to_font) != noErr) {
- s->uni_to_font = NULL;
- } else {
+ &enc) == noErr &&
+ CreateUnicodeToTextInfoByEncoding(enc, &s->uni_to_font) == noErr) {
if (uni_to_font_fallback_upp == NULL)
uni_to_font_fallback_upp =
NewUnicodeToTextFallbackProc(&uni_to_font_fallback);
+ fbflags = kUnicodeFallbackCustomOnly;
+ if (mac_gestalts.uncvattr & kTECAddFallbackInterruptMask)
+ fbflags |= kUnicodeFallbackInterruptSafeMask;
if (SetFallbackUnicodeToText(s->uni_to_font,
- uni_to_font_fallback_upp,
- kUnicodeFallbackCustomOnly | kUnicodeFallbackInterruptSafeMask,
- NULL) != noErr) {
+ uni_to_font_fallback_upp, fbflags, NULL) != noErr) {
DisposeUnicodeToTextInfo(&s->uni_to_font);
- s->uni_to_font = NULL;
+ goto no_encv;
}
+ } else {
+ no_encv:
+ s->uni_to_font = NULL;
+ s->font_charset =
+ charset_from_macenc(FontToScript(s->fontnum),
+ GetScriptManagerVariable(smRegionCode),
+ mac_gestalts.sysvers, s->cfg.font);
}
mac_adjustsize(s, s->term->rows, s->term->cols);
return noErr;
}
+/*
+ * Called every time round the event loop.
+ */
+void mac_pollterm(void)
+{
+ Session *s;
+
+ for (s = sesslist; s != NULL; s = s->next) {
+ term_out(s->term);
+ term_update(s->term);
+ }
+}
/*
* To be called whenever the window size changes.
if (!HAVE_COLOR_QD())
return;
-#if TARGET_RT_CFM /* XXX doesn't link (at least for 68k) */
+#if !TARGET_CPU_68K
if (mac_gestalts.windattr & gestaltWindowMgrPresent)
SetWindowContentColor(s->window,
&(*s->palette)->pmInfo[DEFAULT_BG].ciRGB);
long offset;
s = (Session *)GetWRefCon(window);
+ menu = GetMenuHandle(mFile);
+ DisableItem(menu, iSave); /* XXX enable if modified */
+ EnableItem(menu, iSaveAs);
+ EnableItem(menu, iDuplicate);
menu = GetMenuHandle(mEdit);
EnableItem(menu, 0);
DisableItem(menu, iUndo);
lastact == MA_3CLK ? MA_CLICK : MA_NOTHING);
else
lastact = MA_CLICK;
- /* Fake right button with shift key */
- term_mouse(s->term, event->modifiers & shiftKey ? MBT_RIGHT : MBT_LEFT,
+ term_mouse(s->term, MBT_LEFT,
+ event->modifiers & shiftKey ? MBT_EXTEND : MBT_SELECT,
lastact, col, row, event->modifiers & shiftKey,
event->modifiers & controlKey, event->modifiers & optionKey);
lastsess = s;
GetMouse(&localwhere);
col = PTOCC(localwhere.h);
row = PTOCR(localwhere.v);
- term_mouse(s->term,
- event->modifiers & shiftKey ? MBT_RIGHT : MBT_LEFT,
+ term_mouse(s->term, MBT_LEFT,
+ event->modifiers & shiftKey ? MBT_EXTEND : MBT_SELECT,
MA_DRAG, col, row, event->modifiers & shiftKey,
event->modifiers & controlKey,
event->modifiers & optionKey);
else if (row < 0)
term_scroll(s->term, 0, row);
}
- term_mouse(s->term, event->modifiers & shiftKey ? MBT_RIGHT : MBT_LEFT,
+ term_mouse(s->term, MBT_LEFT,
+ event->modifiers & shiftKey ? MBT_EXTEND : MBT_SELECT,
MA_RELEASE, col, row, event->modifiers & shiftKey,
event->modifiers & controlKey, event->modifiers & optionKey);
lastwhen = TickCount();
}
-Mouse_Button translate_button(void *frontend, Mouse_Button button)
-{
-
- switch (button) {
- case MBT_LEFT:
- return MBT_SELECT;
- case MBT_RIGHT:
- return MBT_EXTEND;
- default:
- return 0;
- }
-}
-
void write_clip(void *cookie, wchar_t *data, int len, int must_deselect) {
/*
static struct {
Rect msgrect;
Point msgorigin;
- Point startmouse;
+ Point zeromouse;
Session *s;
char oldmsg[20];
} growterm_state;
draghooksave = LMGetDragHook();
growterm_state.oldmsg[0] = '\0';
- growterm_state.startmouse = event->where;
+ growterm_state.zeromouse = event->where;
+ growterm_state.zeromouse.h -= s->term->cols * s->font_width;
+ growterm_state.zeromouse.v -= s->term->rows * s->font_height;
growterm_state.s = s;
GetPort(&portsave);
SetPort(s->window);
GrafPtr portsave;
Point mouse;
char buf[20];
+ unsigned char pbuf[20];
int newrows, newcols;
GetMouse(&mouse);
- newrows = (mouse.v - growterm_state.startmouse.v) / s->font_height +
- s->term->rows;
+ newrows = (mouse.v - growterm_state.zeromouse.v) / s->font_height;
if (newrows < 1) newrows = 1;
- newcols = (mouse.h - growterm_state.startmouse.h) / s->font_width +
- s->term->cols;
+ newcols = (mouse.h - growterm_state.zeromouse.h) / s->font_width;
if (newcols < 1) newcols = 1;
sprintf(buf, "%dx%d", newcols, newrows);
if (strcmp(buf, growterm_state.oldmsg) == 0)
return;
strcpy(growterm_state.oldmsg, buf);
- c2pstr(buf);
+ c2pstrcpy(pbuf, buf);
GetPort(&portsave);
SetPort(growterm_state.s->window);
EraseRect(&growterm_state.msgrect);
MoveTo(growterm_state.msgorigin.h, growterm_state.msgorigin.v);
- DrawString((StringPtr)buf);
+ DrawString(pbuf);
SetPort(portsave);
}
+void mac_closeterm(WindowPtr window)
+{
+ Session *s = (Session *)GetWRefCon(window);
+
+ /* XXX warn on close */
+ HideWindow(s->window);
+ *s->prev = s->next;
+ s->next->prev = s->prev;
+ ldisc_free(s->ldisc);
+ s->back->free(s->backhandle);
+ log_free(s->logctx);
+ if (s->uni_to_font != NULL)
+ DisposeUnicodeToTextInfo(&s->uni_to_font);
+ term_free(s->term);
+ DisposeWindow(s->window);
+ DisposePalette(s->palette);
+ sfree(s);
+}
+
void mac_activateterm(WindowPtr window, Boolean active) {
Session *s;
Session *s = ctx;
int style = 0;
struct do_text_args a;
- RgnHandle textrgn;
+ RgnHandle textrgn, saveclip;
char mactextbuf[1024];
UniChar unitextbuf[1024];
- int i;
+ wchar_t *unitextptr;
+ int i, fontwidth;
+ ByteCount iread, olen;
+ OSStatus err;
assert(len <= 1024);
SetPort(s->window);
-
+
+ fontwidth = s->font_width;
+ if ((lattr & LATTR_MODE) != LATTR_NORM)
+ fontwidth *= 2;
+
/* First check this text is relevant */
a.textrect.top = y * s->font_height;
a.textrect.bottom = (y + 1) * s->font_height;
- a.textrect.left = x * s->font_width;
- a.textrect.right = (x + len) * s->font_width;
+ a.textrect.left = x * fontwidth;
+ a.textrect.right = (x + len) * fontwidth;
+ if (a.textrect.right > s->term->cols * s->font_width)
+ a.textrect.right = s->term->cols * s->font_width;
if (!RectInRgn(&a.textrect, s->window->visRgn))
return;
- if (s->uni_to_font != NULL) {
- ByteCount iread, olen;
- OSStatus err;
+ /* Unpack Unicode from the mad format we get passed */
+ for (i = 0; i < len; i++)
+ unitextbuf[i] = (unsigned char)text[i] | (attr & CSET_MASK);
- for (i = 0; i < len; i++)
- unitextbuf[i] = (unsigned char)text[i] | (attr & CSET_MASK);
+ if (s->uni_to_font != NULL) {
err = ConvertFromUnicodeToText(s->uni_to_font, len * sizeof(UniChar),
unitextbuf, kUnicodeUseFallbacksMask,
0, NULL, NULL, NULL,
1024, &iread, &olen, mactextbuf);
- if (err == noErr || err == kTECUsedFallbacksStatus)
- text = mactextbuf; len = olen;
- }
+ if (err != noErr && err != kTECUsedFallbacksStatus)
+ olen = 0;
+ } else if (s->font_charset != CS_NONE) {
+ /* XXX this is bogus if wchar_t and UniChar are different sizes. */
+ unitextptr = (wchar_t *)unitextbuf;
+ olen = charset_from_unicode(&unitextptr, &len, mactextbuf, 1024,
+ s->font_charset, NULL, ".", 1);
+ } else
+ olen = 0;
a.s = s;
- a.text = text;
- a.len = len;
+ a.text = mactextbuf;
+ a.len = olen;
a.attr = attr;
a.lattr = lattr;
- a.numer.h = a.numer.v = a.denom.h = a.denom.v = 1;
+ switch (lattr & LATTR_MODE) {
+ case LATTR_NORM:
+ TextSize(s->cfg.fontheight);
+ a.numer = s->font_stdnumer;
+ a.denom = s->font_stddenom;
+ break;
+ case LATTR_WIDE:
+ TextSize(s->cfg.fontheight);
+ a.numer = s->font_widenumer;
+ a.denom = s->font_widedenom;
+ break;
+ case LATTR_TOP:
+ case LATTR_BOT:
+ TextSize(s->cfg.fontheight * 2);
+ a.numer = s->font_bignumer;
+ a.denom = s->font_bigdenom;
+ break;
+ }
SetPort(s->window);
TextFont(s->fontnum);
if (s->cfg.fontisbold || (attr & ATTR_BOLD) && !s->cfg.bold_colour)
if (attr & ATTR_UNDER)
style |= underline;
TextFace(style);
- TextSize(s->cfg.fontheight);
TextMode(srcOr);
if (HAVE_COLOR_QD())
if (style & bold) {
SpaceExtra(0);
CharExtra(0);
}
+ saveclip = NewRgn();
+ GetClip(saveclip);
+ ClipRect(&a.textrect);
textrgn = NewRgn();
RectRgn(textrgn, &a.textrect);
if (HAVE_COLOR_QD())
DeviceLoop(textrgn, &do_text_for_device_upp, (long)&a, 0);
else
do_text_for_device(1, 0, NULL, (long)&a);
+ SetClip(saveclip);
+ DisposeRgn(saveclip);
DisposeRgn(textrgn);
/* Tell the window manager about it in case this isn't an update */
ValidRect(&a.textrect);
}
EraseRect(&a->textrect);
- MoveTo(a->textrect.left, a->textrect.top + a->s->font_ascent);
+ switch (a->lattr & LATTR_MODE) {
+ case LATTR_NORM:
+ case LATTR_WIDE:
+ MoveTo(a->textrect.left, a->textrect.top + a->s->font_ascent);
+ break;
+ case LATTR_TOP:
+ MoveTo(a->textrect.left, a->textrect.top + a->s->font_ascent * 2);
+ break;
+ case LATTR_BOT:
+ MoveTo(a->textrect.left,
+ a->textrect.top - a->s->font_height + a->s->font_ascent * 2);
+ break;
+ }
/* FIXME: Sort out bold width adjustments on Original QuickDraw. */
if (a->s->window->grafProcs != NULL)
InvokeQDTextUPP(a->len, a->text, a->numer, a->denom,
(*s->scrollbar)->contrlMin = 0;
(*s->scrollbar)->contrlMax = total - page;
SetControlValue(s->scrollbar, start);
-#if TARGET_RT_CFM
- /* XXX: This doesn't link for me. */
+#if !TARGET_CPU_68K
if (mac_gestalts.cntlattr & gestaltControlMgrPresent)
SetControlViewSize(s->scrollbar, page);
#endif
Session *s = frontend;
Str255 mactitle;
- mactitle[0] = sprintf((char *)&mactitle[1], "%s", title);
+ c2pstrcpy(mactitle, title);
SetWTitle(s->window, mactitle);
}
void request_resize(void *frontend, int w, int h) {
Session *s = frontend;
- s->term->cols = w;
- s->term->rows = h;
+ term_size(s->term, h, w, s->cfg.savelines);
mac_initfont(s);
}
char *get_window_title(void *frontend, int icon)
{
Session *s = frontend;
+ Str255 ptitle;
+ static char title[256];
- /* Erm, we don't save this at the moment */
- return "";
+ GetWTitle(s->window, ptitle);
+ p2cstrcpy(title, ptitle);
+ return title;
}
/*
void logevent(void *frontend, char *str) {
- /* XXX Do something */
+ fprintf(stderr, "%s\n", str);
}
/* Dummy routine, only required in plink. */
projects / u / mdw / putty / blobdiff