%
% TNT interface for GNU Emacs.
%
% Author:	Chris Maio
% Modified:	Don Hopkins
% Last edit:	Apr 10 1991

% PS -> C message tags
#define tMeasureWindow	1
#define tRepairWindow	2
#define tResizeWindow	3
#define tTypeKey	4
#define tTypeString	5
#define tInsertString	6
#define tExecuteCommand	7
#define tTrackEvent	8
#define tDebugMessage	9


cdef DefineTag(name, value)
    name value DT
cdef BeginRepair()
    BR
cdef EndRepair()
    ER
cdef ClearScreen()
    CL
cdef Flash()
    ^G
cdef ClearToEOL(x, y)
    x y CE
cdef InvertToEOL(x, y)
    x y FI
cdef InsertLines(y, n)
    y n IL
cdef InsertLines2(y, z, n)
    y z n IL2
cdef DeleteLines(y, n)
    y n DL
cdef DeleteLines2(y, z, n)
    y z n DL2
cdef DeleteChars(x, y, n)
    x y n DC
cdef InsertChars(x, y, n)
    x y n IC
cdef ToggleCursor(x, y)
    x y CT
cdef Show(x, y, cstring s)
    s x y S
cdef ShowInverted(x, y, cstring s)
    s x y SI
cdef ClearShow(x, y, n, y2, cstring s)
    s x y2 n x y CS
cdef ClearShowInverted(x, y, n, y2, cstring s)
    s x y2 n x y CSI
cdef SendPS (cstring s)
    s PS
cdef SendString (cstring s)
    s
cdef SendNumber (n)
    n
cdef SendBoolean (b)
    b 0 ne
cdef SetFont(cstring f, n)
    f n SF
cdef SetWindowLocation(x, y)
    x y SO
cdef SetWindowSize(w, h)
    w h SWS
cdef SetWindowLabel(cstring s)
    s SWL
cdef MapWindow()
    MW
cdef ResetCanvas()
    RC

cdef MeasureWindow(rows, cols)
    GW
=>  tMeasureWindow(rows, cols)

cdef RepairWindow(top, left, rows, cols)
=> tRepairWindow(top, left, rows, cols)

cdef ResizeWindow(rows, cols)
=>  tResizeWindow(rows, cols)

cdef TypeKey(c)
=> tTypeKey(c)

cdef TypeString(string s)
=> tTypeString(s)

cdef InsertString(string s)
=> tInsertString(s)

cdef ExecuteCommand(string s)
=> tExecuteCommand(s)

cdef TrackEvent(name, action, x, y)
=> tTrackEvent(name, action, x, y)

cdef DebugMessage(string s)
=> tDebugMessage(s)

cdef InitializeCable()
  % eventually ... rendezvous with emacs!

cdef InitializeWire()

  systemdict /knownpackage known {
      /NeWS 3 0 knownpackage not {
	  /NeWS 3 0 findpackage beginpackage
      } if

      /TNTCore 3 0 knownpackage not {
	  /TNTCore 3 0 findpackage beginpackage
	  /TNT     3 0 findpackage beginpackage
      } if
  } if

#if 1
  (/usr/emacs/src/tnt.ps) LoadFile not {
  %(% This must be a string so //name gets evaluated at the right time.
%#include "tnt.ps"
  %) cvx exec
  beep (Can't find /usr/emacs/src/tnt.ps\n) print flush quit
  } if
#else
#include "tnt.ps"
#endif

/EmacsTags dictbegin
  /MeasureWindow	tMeasureWindow def
  /RepairWindow		tRepairWindow def
  /ResizeWindow		tResizeWindow def
  /TypeKey		tTypeKey def
  /TypeString		tTypeString def
  /InsertString		tInsertString def
  /ExecuteCommand	tExecuteCommand def
  /TrackEvent		tTrackEvent def
  /DebugMessage		tDebugMessage def
dictend def

% create the initial window
EmacsTags /startemacswindow ClassEmacsCanvas send
% Emacs takes over here