# 1 "tnt.c" # 1 "/usr/include/signal.h" 1 # 1 "/usr/include/sys/signal.h" 1 # 1 "/usr/include/vm/faultcode.h" 1 typedef int faultcode_t; # 17 "/usr/include/sys/signal.h" 2 # 32 "/usr/include/sys/signal.h" # 51 "/usr/include/sys/signal.h" # 66 "/usr/include/sys/signal.h" # 82 "/usr/include/sys/signal.h" # 98 "/usr/include/sys/signal.h" void (*signal())(); void (*sigset())(); int sighold(); int sigrelse(); int sigignore(); struct sigvec { void (*sv_handler)(); int sv_mask; int sv_flags; }; struct sigstack { char *ss_sp; int ss_onstack; }; struct sigcontext { int sc_onstack; int sc_mask; # 225 "/usr/include/sys/signal.h" # 230 "/usr/include/sys/signal.h" int sc_sp; int sc_pc; int sc_npc; int sc_psr; int sc_g1; int sc_o0; int sc_wbcnt; char *sc_spbuf[31]; int sc_wbuf[31][16]; # 249 "/usr/include/sys/signal.h" }; # 265 "/usr/include/sys/signal.h" # 277 "/usr/include/sys/signal.h" # 1 "/usr/include/sys/stdtypes.h" 1 typedef int sigset_t; typedef unsigned int speed_t; typedef unsigned long tcflag_t; typedef unsigned char cc_t; typedef int pid_t; typedef unsigned short mode_t; typedef short nlink_t; typedef long clock_t; typedef long time_t; typedef int size_t; typedef int ptrdiff_t; typedef unsigned short wchar_t; # 295 "/usr/include/sys/signal.h" 2 struct sigaction { void (*sa_handler)(); sigset_t sa_mask; int sa_flags; }; void (*signal())(); int kill(); int sigaction( ); int sigaddset(); int sigdelset(); int sigemptyset(); int sigfillset(); int sigismember(); int sigpending(); int sigprocmask(); int sigsuspend(); # 16 "/usr/include/signal.h" 2 # 90 "/usr/include/signal.h" # 10 "tnt.c" 2 # 1 "./config.h" 1 # 1 "./s-sunos4.h" 1 # 1 "./s-bsd4-2.h" 1 # 2 "./s-sunos4.h" 2 # 4 "./s-sunos4.h" # 6 "./s-sunos4.h" # 27 "./config.h" 2 # 1 "./m-sparc.h" 1 # 48 "./m-sparc.h" # 54 "./m-sparc.h" # 1 "/usr/include/alloca.h" 1 # 84 "./m-sparc.h" 2 # 103 "./m-sparc.h" # 34 "./config.h" 2 # 44 "./config.h" # 102 "./config.h" # 11 "tnt.c" 2 # 1 "/home/cirrus/hopkins/links/nightly/include/NeWS/wire/wire.h" 1 # 1 "/home/cirrus/hopkins/links/nightly/include/NeWS/c_varieties.h" 1 # 173 "/home/cirrus/hopkins/links/nightly/include/NeWS/c_varieties.h" # 187 "/home/cirrus/hopkins/links/nightly/include/NeWS/c_varieties.h" # 199 "/home/cirrus/hopkins/links/nightly/include/NeWS/c_varieties.h" # 37 "/home/cirrus/hopkins/links/nightly/include/NeWS/wire/wire.h" 2 # 1 "/usr/include/sys/types.h" 1 # 1 "/usr/include/sys/stdtypes.h" 1 # 32 "/usr/include/sys/stdtypes.h" # 17 "/usr/include/sys/types.h" 2 # 1 "/usr/include/sys/sysmacros.h" 1 # 20 "/usr/include/sys/types.h" 2 typedef unsigned char u_char; typedef unsigned short u_short; typedef unsigned int u_int; typedef unsigned long u_long; typedef unsigned short ushort; typedef unsigned int uint; # 37 "/usr/include/sys/types.h" # 43 "/usr/include/sys/types.h" typedef struct _physadr_t { int r[1]; } *physadr_t; typedef struct label_t { int val[2]; } label_t; # 55 "/usr/include/sys/types.h" typedef struct _quad_t { long val[2]; } quad_t; typedef long daddr_t; typedef char * caddr_t; typedef unsigned long ino_t; typedef short dev_t; typedef long off_t; typedef unsigned short uid_t; typedef unsigned short gid_t; typedef long key_t; typedef char * addr_t; typedef long fd_mask; # 85 "/usr/include/sys/types.h" typedef struct fd_set { fd_mask fds_bits[(((256)+(( (sizeof (fd_mask) * 8))-1))/( (sizeof (fd_mask) * 8)))]; } fd_set; # 113 "/usr/include/sys/types.h" # 38 "/home/cirrus/hopkins/links/nightly/include/NeWS/wire/wire.h" 2 # 1 "/usr/local/openwin/include/NeWS/psmacros.h" 1 # 1 "/usr/include/stdio.h" 1 extern struct _iobuf { int _cnt; unsigned char *_ptr; unsigned char *_base; int _bufsiz; short _flag; char _file; } _iob[]; # 36 "/usr/include/stdio.h" extern struct _iobuf *fopen(); extern struct _iobuf *fdopen(); extern struct _iobuf *freopen(); extern struct _iobuf *popen(); extern struct _iobuf *tmpfile(); extern long ftell(); extern char *fgets(); extern char *gets(); extern char *sprintf(); extern char *ctermid(); extern char *cuserid(); extern char *tempnam(); extern char *tmpnam(); # 8 "/usr/local/openwin/include/NeWS/psmacros.h" 2 # 1 "/usr/local/openwin/include/NeWS/psio.h" 1 # 64 "/usr/local/openwin/include/NeWS/psio.h" struct psiobuf { int cnt; unsigned char *ptr; unsigned char *base; int bufsiz; short flag; short file; int protected; union { struct psiobuf *outputside; unsigned next_user_token; } assoc; }; extern struct psiobuf *psio_open( ); extern struct psiobuf *psio_fdopen( ); extern struct psiobuf *psio_sopen( ); extern psio_close( ); extern struct psiobuf *psio_stdin; extern struct psiobuf *psio_stdout; extern struct psiobuf *psio_stderr; extern int psio_bufsiz; extern long psio_bufspace; extern int psio_bufcount; # 11 "/usr/local/openwin/include/NeWS/psmacros.h" 2 extern struct psiobuf *PostScript, *PostScriptInput; struct psiobuf *ps_open_PostScript(); struct psiobuf *ps_open_server(); extern char _CPS_ps_moveto[]; extern char _CPS_ps_rmoveto[]; extern char _CPS_ps_lineto[]; extern char _CPS_ps_rlineto[]; extern char _CPS_ps_arc[]; extern char _CPS_ps_show[]; extern char _CPS_ps_cshow[]; extern char _CPS_ps_findfont[]; extern char _CPS_ps_scalefont[]; extern char _CPS_ps_DO_defuser[]; extern char _CPS_ps_DO_finddef[]; extern char _CPS_ps_DO_scaledef[]; extern char _CPS_ps_usetfont[]; # 39 "/home/cirrus/hopkins/links/nightly/include/NeWS/wire/wire.h" 2 # 1 "/home/cirrus/hopkins/links/nightly/include/NeWS/wire/wire_types.h" 1 typedef int wire_Wire; # 40 "/home/cirrus/hopkins/links/nightly/include/NeWS/wire/wire_types.h" typedef void (*wire_Handler)(); typedef void (*wire_FileHandler)(); typedef char boolean; typedef struct { int count; int *array; } wire_TokenArray; # 41 "/home/cirrus/hopkins/links/nightly/include/NeWS/wire/wire.h" 2 typedef caddr_t wire_RefAny; boolean wire_AddFileHandler(); boolean wire_AllocateNamedTags(); boolean wire_AllocateNamedTokens(); int wire_AllocateTags(); int wire_AllocateTokens(); boolean wire_Close(); wire_Wire wire_Current(); caddr_t wire_Data(); boolean wire_DeallocateTokens(); void wire_DeathDefault(); boolean wire_Disable(); void wire_DiseaseDefault(); boolean wire_DrainSync(); boolean wire_Enable(); void wire_EnterNotifier(); char *wire_ErrorString(); void wire_ExitNotifier(); boolean wire_ExpectSync(); void wire_GobbleAny(); boolean wire_InSync(); boolean wire_Notify(); wire_Wire wire_Open(); void wire_Perror(); boolean wire_Problems(); struct psiobuf *wire_PSinput(); struct psiobuf *wire_PSoutput(); int wire_ReadTag(); int wire_ReadInt(); float wire_ReadFloat(); char *wire_ReadString(); boolean wire_RegisterTag(); boolean wire_RegisterToken(); boolean wire_RemoveFileHandler(); boolean wire_ReserveTags(); boolean wire_ReserveTokens(); boolean wire_SetCurrent(); boolean wire_SetData(); boolean wire_SkipEvent(); caddr_t wire_TagData(); wire_Handler wire_TagProc(); caddr_t wire_TokenData(); void wire_UnknownTagDefault(); boolean wire_Valid(); boolean wire_WouldNotify(); extern int wire_Errno; # 14 "tnt.c" 2 # 1 "./tnt_cps.h" 1 static char _CPS_InitializeWire[] = "/is_v3?\246\310/knownpackage\246y\264is_v3? { /Courier\270\200\014\300\302/NeWS\200\003\200\000 knownpackage\246\217{ /NeWS\200\003\200\000 findpackage beginpackage }\246k/TNTCore\200\003\200\000 knownpackage\246\217{ /TNTCore\200\003\200\000 findpackage beginpackage /TNT\200\003\200\000 findpackage beginpackage }\246k}\246k\240\025/usr/emacs/src/tnt.psLoadFile\246\217{ beep\240!Can't find /usr/emacs/src/tnt.ps\n\246\225flush quit }\246k/startemacswindow ClassEmacsCanvas send "; static char _CPS_DefineTag[] = "%d%dDT "; static char _CPS_GetWinInfo[] = "GW "; static char _CPS_BeginRepair[] = "BR "; static char _CPS_EndRepair[] = "ER "; static char _CPS_ClearScreen[] = "CL "; static char _CPS_Flash[] = "^G "; static char _CPS_ClearToEOL[] = "%d%dCE "; static char _CPS_InvertToEOL[] = "%d%dFI "; static char _CPS_InsertLines[] = "%d%dIL "; static char _CPS_InsertLines2[] = "%d%d%dIL2 "; static char _CPS_DeleteLines[] = "%d%dDL "; static char _CPS_DeleteLines2[] = "%d%d%dDL2 "; static char _CPS_DeleteChars[] = "%d%d%dDC "; static char _CPS_InsertChars[] = "%d%d%dIC "; static char _CPS_ToggleCursor[] = "%d%dCT "; static char _CPS_Show[] = "%*s%d%dS "; static char _CPS_ShowInverted[] = "%*s%d%dSI "; static char _CPS_ClearShow[] = "%*s%d%d%d%d%dCS "; static char _CPS_ClearShowInverted[] = "%*s%d%d%d%d%dCSI "; static char _CPS_SendPS[] = "%*s%dDO "; static char _CPS_SetStuff[] = "%dST "; static char _CPS_SetFont[] = "%*s%dSF "; static char _CPS_SetOrigin[] = "%d%dSO "; static char _CPS_SetDimensions[] = "%d%dSD "; static char _CPS_SetFrameLabel[] = "%*sFL "; static char _CPS_SetSelection[] = "%d%d%*sSS "; static char _CPS_MapWindow[] = "MW "; static char _CPS_ReshapeWindow[] = "RW "; static char _CPS_InteractiveMove[] = "IM "; static char _CPS_RetainWindow[] = "%dRT "; static char _CPS_ResetCanvas[] = "RC "; # 95 "./tnt_cps.h" # 15 "tnt.c" 2 # 19 "tnt.c" # 1 "./lisp.h" 1 enum Lisp_Type { Lisp_Int, Lisp_Symbol, Lisp_Marker, Lisp_String, Lisp_Vector, Lisp_Cons, Lisp_Object_Unused_1, # 56 "./lisp.h" Lisp_Buffer, Lisp_Subr, Lisp_Internal, Lisp_Intfwd, Lisp_Boolfwd, Lisp_Process, Lisp_Objfwd, Lisp_Object_Unused_2, Lisp_Internal_Stream, Lisp_Buffer_Local_Value, Lisp_Some_Buffer_Local_Value, Lisp_Buffer_Objfwd, Lisp_Void, Lisp_Window, Lisp_Window_Configuration }; # 222 "./lisp.h" # 288 "./lisp.h" # 296 "./lisp.h" # 389 "./lisp.h" struct Lisp_Cons { int car, cdr; }; struct Lisp_Buffer_Cons { int car, cdr; struct buffer *buffer; int bufpos; }; struct Lisp_String { int size; unsigned char data[1]; }; struct Lisp_Vector { int size; struct Lisp_Vector *next; int contents[1]; }; struct Lisp_Symbol { struct Lisp_String *name; int value; int function; int plist; struct Lisp_Symbol *next; }; struct Lisp_Subr { int (*function) (); short min_args, max_args; char *symbol_name; char *prompt; char *doc; }; struct Lisp_Marker { struct buffer *buffer; int chain; int bufpos; }; # 483 "./lisp.h" # 533 "./lisp.h" # 542 "./lisp.h" extern void defsubr (); struct specbinding { int symbol, old_value; int (*func) (); int unused; }; extern struct specbinding *specpdl; extern struct specbinding *specpdl_ptr; extern int specpdl_size; struct handler { int handler; int var; int poll_suppress_count; struct catchtag *tag; struct handler *next; }; extern struct handler *handlerlist; extern int consing_since_gc; extern int gc_cons_threshold; extern int consing_at_last_truncate; extern struct gcpro *gcprolist; struct gcpro { struct gcpro *next; int *var; int nvars; }; void staticpro(); extern int Qnil, Qt, Qquote, Qlambda, Qsubr, Qunbound; extern int Qerror_conditions, Qerror_message, Qtop_level; extern int Qerror, Qquit, Qwrong_type_argument, Qargs_out_of_range; extern int Qvoid_variable, Qvoid_function; extern int Qsetting_constant, Qinvalid_read_syntax; extern int Qinvalid_function, Qwrong_number_of_arguments, Qno_catch; extern int Qend_of_file, Qarith_error; extern int Qbeginning_of_buffer, Qend_of_buffer, Qbuffer_read_only; extern int Qintegerp, Qnatnump, Qsymbolp, Qlistp, Qconsp; extern int Qstringp, Qarrayp, Qsequencep, Qbufferp; extern int Qchar_or_string_p, Qmarkerp, Qvectorp; extern int Qinteger_or_marker_p, Qboundp, Qfboundp; extern int Qcdr; extern int Feq (), Fnull (), Flistp (), Fconsp (), Fatom (), Fnlistp (); extern int Fintegerp (), Fnatnump (), Fsymbolp (); extern int Fvectorp (), Fstringp (), Farrayp (), Fsequencep (); extern int Fbufferp (), Fmarkerp (), Fsubrp (), Fchar_or_string_p (); extern int Finteger_or_marker_p (); extern int Fcar (), Fcar_safe(), Fcdr (), Fcdr_safe(); extern int Fsetcar (), Fsetcdr (); extern int Fboundp (), Ffboundp (), Fmakunbound (), Ffmakunbound (); extern int Fsymbol_function (), Fsymbol_plist (), Fsymbol_name (); extern int Ffset (), Fsetplist (); extern int Fsymbol_value (), Fset (); extern int Fdefault_value (), Fset_default (); extern int Faref (), Faset (), Farray_length (); extern int Fstring_to_int (), Fint_to_string (); extern int Feqlsign (), Fgtr (), Flss (), Fgeq (), Fleq (), Fneq (), Fzerop (); extern int Fplus (), Fminus (), Ftimes (), Fquo (), Frem (), Fmax (), Fmin (); extern int Flogand (), Flogior (), Flogxor (), Flognot (), Flsh (), Fash (); extern int Fadd1 (), Fsub1 (); extern int make_number (); extern void args_out_of_range (); extern void args_out_of_range_3 (); extern int wrong_type_argument (); extern int Qstring_lessp; extern int Vfeatures; extern int Fidentity (), Frandom (); extern int Flength (); extern int Fappend (), Fconcat (), Fvconcat (), Fcopy_sequence (); extern int Fsubstring (); extern int Fnthcdr (), Fmemq (), Fassq (), Fassoc (); extern int Frassq (), Fdelq (), Fsort (); extern int Freverse (), Fnreverse (), Fget (), Fput (), Fequal (); extern int Ffillarray (), Fnconc (), Fmapcar (), Fmapconcat (); extern int Fy_or_n_p (), Fyes_or_no_p (); extern int Ffeaturep (), Frequire () , Fprovide (); extern int concat2 (), nconc2 (); extern int assq_no_quit (); extern int Vpurify_flag; extern int Fcons (), Flist(), Fmake_list (); extern int Fmake_vector (), Fvector (), Fmake_symbol (), Fmake_marker (); extern int Fmake_string (), build_string (), make_string(); extern int Fpurecopy (), make_pure_string (); extern int pure_cons (), make_pure_vector (); extern int Fgarbage_collect (); extern int Vprin1_to_string_buffer; extern int Fprin1 (), Fprin1_to_string (), Fprinc (); extern int Fterpri (), Fprint (); extern int Vstandard_output, Qstandard_output; extern temp_output_buffer_setup (), temp_output_buffer_show (); extern int Qvariable_documentation, Qstandard_input; extern int Vobarray, Vstandard_input; extern int Fread (), Fread_from_string (); extern int Fintern (), Fintern_soft (), Fload (); extern int Fget_file_char (), Fread_char (); extern int Feval_current_buffer (), Feval_region (); extern int intern (), oblookup (); extern int Qautoload, Qexit, Qinteractive, Qcommandp, Qdefun, Qmacro; extern int Vinhibit_quit, Vquit_flag, Qinhibit_quit; extern int Vmocklisp_arguments, Qmocklisp, Qmocklisp_arguments; extern int Vautoload_queue; extern int Fand (), For (), Fif (), Fprogn (), Fprog1 (), Fprog2 (); extern int Fsetq (), Fquote (); extern int Fuser_variable_p (), Finteractive_p (); extern int Fdefun (), Flet (), FletX (), Fwhile (); extern int Fcatch (), Fthrow (), Funwind_protect (); extern int Fcondition_case (), Fsignal (); extern int Ffunction_type (), Fautoload (), Fcommandp (); extern int Feval (), Fapply (), Ffuncall (); extern int Fglobal_set (), Fglobal_value (), Fbacktrace (); extern int apply1 (), call0 (), call1 (), call2 (), call3 (); extern int apply_lambda (); extern int internal_catch (); extern int internal_condition_case (); extern void unbind_to (); extern void error (); extern int un_autoload (); extern int Vprefix_arg, Qminus, Vcurrent_prefix_arg; extern int Fgoto_char (); extern int Fpoint_min_marker (), Fpoint_max_marker (); extern int Fpoint_min (), Fpoint_max (); extern int Fpoint (), Fpoint_marker (), Fmark_marker (); extern int Ffollchar (), Fprevchar (), Fchar_after (), Finsert (); extern int Feolp (), Feobp (), Fbolp (), Fbobp (); extern int Fformat (), format1 (); extern int Fbuffer_substring (), Fbuffer_string (); extern int Fstring_equal (), Fstring_lessp (), Fbuffer_substring_lessp (); extern int save_excursion_save (), save_restriction_save (); extern int save_excursion_restore (), save_restriction_restore (); extern int Fchar_to_string (); extern int Vbuffer_alist; extern int Fget_buffer (), Fget_buffer_create (), Fset_buffer (); extern int Fbarf_if_buffer_read_only (); extern int Fcurrent_buffer (), Fswitch_to_buffer (), Fpop_to_buffer (); extern int Fother_buffer (); extern struct buffer *all_buffers; extern int Fmarker_position (), Fmarker_buffer (); extern int Fcopy_marker (); extern int Qfile_error; extern int Ffile_name_as_directory (); extern int Fexpand_file_name (), Ffile_name_nondirectory (); extern int Fsubstitute_in_file_name (); extern int Ffile_symlink_p (); extern int Vfundamental_mode_abbrev_table; extern unsigned char downcase_table[]; extern int Fstring_match (); extern int Fscan_buffer (); extern int last_minibuf_string; extern int read_minibuf (), Fcompleting_read (); extern int Fread_from_minibuffer (); extern int Fread_variable (); extern int Fread_minibuffer (), Feval_minibuffer (); extern int Fread_string (), Fread_file_name (); extern int Fread_no_blanks_input (); extern int Vcommand_history; extern int Qcall_interactively; extern int Fcall_interactively (); extern int Fprefix_numeric_value (); extern int Fdowncase (), Fupcase (), Fcapitalize (); extern int Vhelp_form, Vtop_level; extern int Fdiscard_input (), Frecursive_edit (); extern int Fcommand_execute (), Finput_pending_p (); extern int poll_suppress_count; extern int Qkeymap; extern int Fkey_description (), Fsingle_key_description (); extern int Fwhere_is_internal (); extern int access_keymap (), store_in_keymap (); extern int get_keyelt (), get_keymap(); extern int Fvertical_motion (), Findent_to (), Fcurrent_column (); extern int Qwindowp; extern int Fget_buffer_window (); extern int Fsave_window_excursion (); extern int Fset_window_configuration (), Fcurrent_window_configuration (); extern int decode_env_path (); extern int noninteractive; extern int inhibit_window_system; extern int Fget_process (), Fget_buffer_process (), Fprocessp (); extern int Fprocess_status (), Fkill_process (); extern int Vexec_path, Vexec_directory; # 965 "./lisp.h" extern int Vdoc_file_name; extern int Fsubstitute_command_keys (); extern int Fdocumentation (), Fdocumentation_property (); extern int Qbytecode; extern int Fexecute_kbd_macro (); extern int initialized; extern int immediate_quit; extern void debugger (); extern char *malloc (), *realloc (), *getenv (), *ctime (), *getwd (); extern long *xmalloc (), *xrealloc (); # 991 "./lisp.h" # 21 "tnt.c" 2 # 1 "./dispextern.h" 1 extern int screen_garbaged; extern int cursor_hpos, cursor_vpos; extern int display_completed; struct matrix { int height; int width; int *used; unsigned char **contents; unsigned char *total_contents; char *highlight; char *enable; }; extern struct matrix *current_screen; extern struct matrix *new_screen; extern struct matrix *temp_screen; unsigned char *get_display_line (); extern char *message_buf; # 22 "tnt.c" 2 # 1 "./termopts.h" 1 extern int visible_bell; extern int inverse_video; extern int flow_control; extern int interrupt_input; extern int interrupts_deferred; extern int meta_key; extern int truncate_partial_width_windows; # 23 "tnt.c" 2 # 1 "./termchar.h" 1 extern int baud_rate; extern int screen_width; extern int screen_height; extern int must_write_spaces; extern int min_padding_speed; extern int fast_clear_end_of_line; extern int line_ins_del_ok; extern int char_ins_del_ok; extern int scroll_region_ok; extern int memory_below_screen; extern int fast_clear_end_of_line; extern int dont_calculate_costs; extern int no_redraw_on_reenter; extern int *DC_ICcost; # 24 "tnt.c" 2 # 1 "./termhooks.h" 1 extern int (*move_cursor_hook) (); extern int (*raw_move_cursor_hook) (); extern int (*clear_to_end_hook) (); extern int (*clear_screen_hook) (); extern int (*clear_end_of_line_hook) (); extern int (*ins_del_lines_hook) (); extern int (*change_line_highlight_hook) (); extern int (*reassert_line_highlight_hook) (); extern int (*insert_chars_hook) (); extern int (*output_chars_hook) (); extern int (*delete_chars_hook) (); extern int (*ring_bell_hook) (); extern int (*reset_terminal_modes_hook) (); extern int (*set_terminal_modes_hook) (); extern int (*update_begin_hook) (); extern int (*update_end_hook) (); extern int (*set_terminal_window_hook) (); extern int (*read_socket_hook) (); extern int (*fix_screen_hook) (); extern int (*calculate_costs_hook) (); extern struct _iobuf *termscript; # 25 "tnt.c" 2 # 1 "./window.h" 1 struct window { int size; struct Lisp_Vector *vec_next; int next; int prev; int hchild, vchild; int parent; int left; int top; int height; int width; int buffer; int start; int pointm; int force_start; int hscroll; int use_time; int sequence_number; int temslot; int last_modified; int last_point; int last_point_x; int last_point_y; int last_mark_x; int last_mark_y; int window_end_pos; int window_end_valid; int window_end_vpos; int update_mode_line; int start_at_line_beg; }; extern int minibuf_window; extern int selected_window; extern int Vminibuf_scroll_window; extern int Fnext_window (); extern int Fselect_window (); extern int Fdisplay_buffer (); extern int Fset_window_buffer (); extern char *minibuf_prompt; extern char *echo_area_contents; extern int minibuf_level; extern int update_mode_lines; extern int beg_unchanged; extern int end_unchanged; extern int unchanged_modified; extern int clip_changed; extern int windows_or_buffers_changed; extern int buffer_shared; # 26 "tnt.c" 2 # 1 "/usr/include/fcntl.h" 1 # 1 "/usr/include/sys/fcntlcom.h" 1 # 1 "/usr/include/sys/stdtypes.h" 1 # 32 "/usr/include/sys/stdtypes.h" # 121 "/usr/include/sys/fcntlcom.h" 2 struct flock { short l_type; short l_whence; long l_start; long l_len; short l_pid; short l_xxx; }; struct eflock { short l_type; short l_whence; long l_start; long l_len; short l_pid; short l_xxx; long l_rpid; long l_rsys; }; # 1 "/usr/include/sys/stat.h" 1 # 1 "/usr/include/sys/types.h" 1 # 115 "/usr/include/sys/types.h" # 11 "/usr/include/sys/stat.h" 2 struct stat { dev_t st_dev; ino_t st_ino; mode_t st_mode; short st_nlink; uid_t st_uid; gid_t st_gid; dev_t st_rdev; off_t st_size; time_t st_atime; int st_spare1; time_t st_mtime; int st_spare2; time_t st_ctime; int st_spare3; long st_blksize; long st_blocks; long st_spare4[2]; }; int chmod(); int fstat(); int mkdir(); int mkfifo(); int stat(); mode_t umask(); # 148 "/usr/include/sys/fcntlcom.h" 2 int sys_open(); int creat(); int fcntl(); # 7 "/usr/include/fcntl.h" 2 # 27 "tnt.c" 2 # 1 "/usr/include/sys/ioctl.h" 1 # 1 "/usr/include/sys/ttychars.h" 1 struct ttychars { char tc_erase; char tc_kill; char tc_intrc; char tc_quitc; char tc_startc; char tc_stopc; char tc_eofc; char tc_brkc; char tc_suspc; char tc_dsuspc; char tc_rprntc; char tc_flushc; char tc_werasc; char tc_lnextc; }; # 17 "/usr/include/sys/ioctl.h" 2 # 1 "/usr/include/sys/ttydev.h" 1 # 49 "/usr/include/sys/ttydev.h" # 18 "/usr/include/sys/ioctl.h" 2 # 1 "/usr/include/sys/ttold.h" 1 struct tchars { char t_intrc; char t_quitc; char t_startc; char t_stopc; char t_eofc; char t_brkc; }; struct ltchars { char t_suspc; char t_dsuspc; char t_rprntc; char t_flushc; char t_werasc; char t_lnextc; }; struct sgttyb { char sg_ispeed; char sg_ospeed; char sg_erase; char sg_kill; short sg_flags; }; # 1 "/usr/include/sys/ioccom.h" 1 # 40 "/usr/include/sys/ttold.h" 2 # 1 "/usr/include/sys/ttycom.h" 1 struct winsize { unsigned short ws_row; unsigned short ws_col; unsigned short ws_xpixel; unsigned short ws_ypixel; }; struct ttysize { int ts_lines; int ts_cols; }; # 91 "/usr/include/sys/ttycom.h" # 168 "/usr/include/sys/ttold.h" 2 # 19 "/usr/include/sys/ioctl.h" 2 # 1 "/usr/include/sys/filio.h" 1 # 1 "/usr/include/sys/ioccom.h" 1 # 81 "/usr/include/sys/ioccom.h" # 17 "/usr/include/sys/filio.h" 2 # 69 "/usr/include/sys/ioctl.h" 2 # 1 "/usr/include/sys/sockio.h" 1 # 1 "/usr/include/sys/ioccom.h" 1 # 81 "/usr/include/sys/ioccom.h" # 17 "/usr/include/sys/sockio.h" 2 # 71 "/usr/include/sys/ioctl.h" 2 # 28 "tnt.c" 2 # 1 "/usr/include/sys/errno.h" 1 # 29 "tnt.c" 2 static int blockinputmask, scrollregion, SavedX, SavedY, VisibleX, VisibleY, updating, winheight, linewidth, lineheight, charwidth, baseline, repaint, highlight, mapped, retainwindow, keepalive, metadown, outputstarted, cursordown, nextevent, eventindex, eventcount, sbufstart, sbufend, use_reshapefromuser; wire_Wire wire, cable; int ps_fix_screen (), ps_move_cursor (), ps_clear_screen (), ps_clear_end_of_line (), ps_ins_del_lines (), ps_insert_chars (), ps_delete_chars (), ps_output_chars (), ps_change_line_highlight (), ps_reassert_line_highlight (); ps_feep (), ps_reset_terminal_modes (), ps_set_terminal_modes (), ps_update_begin (), ps_update_end (), ps_set_terminal_window (), ps_read_socket (); int ps_cols = 80; int ps_rows = 24; # 82 "tnt.c" int KEEPALIVE_THRESHHOLD = 10; StartPS () { if (cursordown) togglecursor (); if (!updating && outputstarted == 0) blockinputmask = sigblock ((1 << ((23)-1))); ++outputstarted; } EndPS () { if (--outputstarted < 1) if (!updating) { if (!cursordown) togglecursor (); (((PostScript)->flag |= 0x0400), psio_flush(PostScript)); sigsetmask(blockinputmask); keepalive = KEEPALIVE_THRESHHOLD; } } static brokenpipe () { signal (13, (void (*)())1); unrequest_sigio (); (void) sys_close (0); (void) sys_open ("/dev/null", 0); fprintf ((&_iob[2]), "emacs: lost connection to display.\n"); fatal_error_signal (1); abort (); } tnt_term_init () { meta_key = 1; metadown = 0; visible_bell = 1; interrupt_input = 1; inverse_video = 0; line_ins_del_ok = 1; char_ins_del_ok = 1; memory_below_screen = 0; dont_calculate_costs = 1; must_write_spaces = 0; # 167 "tnt.c" baud_rate = 2400; use_reshapefromuser = 0; outputstarted = 0; cursordown = 0; scrollregion = 0; repaint = 0; updating = 0; mapped = 0; nextevent = eventindex = eventcount = 0; sbufstart = sbufend = 0; keepalive = KEEPALIVE_THRESHHOLD; fix_screen_hook = ps_fix_screen; clear_screen_hook = ps_clear_screen; clear_end_of_line_hook = ps_clear_end_of_line; ins_del_lines_hook = ps_ins_del_lines; insert_chars_hook = ps_insert_chars; delete_chars_hook = ps_delete_chars; output_chars_hook = ps_output_chars; ring_bell_hook = ps_feep; set_terminal_modes_hook = ps_set_terminal_modes; reset_terminal_modes_hook = ps_reset_terminal_modes; update_begin_hook = ps_update_begin; update_end_hook = ps_update_end; set_terminal_window_hook = ps_set_terminal_window; read_socket_hook = ps_read_socket; move_cursor_hook = ps_move_cursor; change_line_highlight_hook = ps_change_line_highlight; reassert_line_highlight_hook = ps_reassert_line_highlight; (void) signal (13, brokenpipe); screen_height = ps_rows; screen_width = ps_cols; (void) sys_close (0); # 223 "tnt.c" if (ps_open_PostScript () == 0) { fprintf ((&_iob[2]), "Cannot connect to NeWS server\n"); exit (1); } StartPS (); pprintf(PostScript, _CPS_InitializeWire, 348); screen_height = ps_rows; screen_width = ps_cols; EndPS (); return 1; } ps_fix_screen () { if (--keepalive < 0) { pprintf (PostScript, "\n", 1); (((PostScript)->flag |= 0x0400), psio_flush(PostScript)); keepalive = KEEPALIVE_THRESHHOLD; } if (!mapped) { return; } if (repaint) { repaint = 0; StartPS (); ++screen_garbaged; change_screen_size (ps_rows, ps_cols, 0); EndPS (); # 270 "tnt.c" } if (screen_garbaged) redisplay_preserve_echo_area (); } ps_clear_screen () { cursordown = highlight = cursor_hpos = cursor_vpos = SavedX = SavedY = VisibleX = VisibleY = 0; StartPS(); pprintf(PostScript, _CPS_ClearScreen, 3); EndPS(); } ps_clear_end_of_line (first_blank) register int first_blank; { StartPS (); cleartoeol (cursor_hpos, cursor_vpos, highlight); EndPS (); } ps_change_line_highlight (new_highlight, vpos, first_unused_hpos) int new_highlight, vpos, first_unused_hpos; { highlight = new_highlight; StartPS (); ps_move_cursor (vpos, 0); ps_clear_end_of_line (0); EndPS (); } ps_reassert_line_highlight (new_highlight, vpos) int new_highlight, vpos; { highlight = new_highlight; } ps_insert_chars (start, len) register char *start; register int len; { if (len > 0) { StartPS (); pprintf(PostScript, _CPS_InsertChars, 9, VisibleX, VisibleY, len); if (start) xyshow (VisibleX, VisibleY, start, len); VisibleX += len; EndPS (); } } ps_output_chars (start, len) register char *start; register int len; { if (len > 0) { register int n; char *end; StartPS (); if (cursor_vpos >= 0 && cursor_vpos < screen_height) { if (updating) { clearshow (cursor_hpos, cursor_vpos, start, len); ps_move_cursor (cursor_vpos, cursor_hpos + len); } else { if (VisibleX >= 0 && VisibleX < screen_width && VisibleY >= 0 && VisibleY < screen_height) { if ((VisibleX + len) >= screen_width) len = screen_width - 1 - VisibleX; if (len > 0) xyshow (VisibleX, VisibleY, start, len); VisibleX += len; } } } EndPS (); } } ps_delete_chars (n) { StartPS (); pprintf(PostScript, _CPS_DeleteChars, 9, VisibleX, VisibleY, n); EndPS (); } ps_feep () { StartPS (); pprintf(PostScript, _CPS_Flash, 3); EndPS (); } ps_reset_terminal_modes () {} ps_set_terminal_modes () {} ps_set_terminal_window (n) int n; { if (n <= 0 || n >= screen_height) scrollregion = 0; else scrollregion = n - 1; } ps_update_begin () { highlight = 0; StartPS (); SavedX = cursor_hpos; SavedY = cursor_vpos; updating = 1; pprintf(PostScript, _CPS_ResetCanvas, 3); } ps_update_end () { updating = 0; ps_move_cursor (SavedY, SavedX); EndPS (); highlight = 0; } ps_ins_del_lines (vpos, n) register int vpos, n; { if ((vpos < 0) || ((vpos + (n > 0 ? n : -n)) >= screen_height)) return; StartPS (); ps_move_cursor (vpos, 0); if (n > 0) { if (scrollregion) pprintf(PostScript, _CPS_InsertLines2, 10, vpos-1, scrollregion, n); else pprintf(PostScript, _CPS_InsertLines, 7, vpos, n); } else if (n < 0) { n = -n; if (scrollregion) pprintf(PostScript, _CPS_DeleteLines2, 10, vpos-1, scrollregion, n); else pprintf(PostScript, _CPS_DeleteLines, 7, vpos, n); } EndPS (); } ps_move_cursor (row, col) register int row, col; { cursor_hpos = col; cursor_vpos = row; VisibleX = col; VisibleY = row; } typedef struct { int nelements; int list[32]; } selectionevent; static selectionevent selectionevents[32]; queue_event (what, rank, size, x, y) int what, rank, size, x, y; { selectionevent *se; if (eventcount >= 32) return 0; se = &selectionevents[eventindex]; se->nelements = 5; se->list[0] = (what); se->list[1] = (rank); se->list[2] = (size); se->list[3] = (x); se->list[4] = (y); eventindex = ((eventindex+1)&(32-1)); eventcount++; return 1; } static unsigned char sbuf[4096]; queue_string (s, exec) unsigned char *s; int exec; { int n = strlen (s); if (sbufend + n < sizeof sbuf) { strcpy (&sbuf[sbufend], s); if (queue_event (exec, sbufend, n, 0, 0)) { sbufend += n; return 1; } } return 0; } ps_read_socket (fd, buffer, length) int fd, length; unsigned char *buffer; { int x, y, x1, y1, i, n, a, c; x = y = i = 0; c = -1; do { if ((((PostScriptInput)->flag&0x0010)!=0) || (((PostScriptInput)->flag&0x0020)!=0)) brokenpipe (); if ((ps_lookingat(PostScriptInput, 4) > 0 && (pscanf(PostScriptInput,"d", &n), 1))) { buffer[i] = n; if (meta_key && metadown) buffer[i] |= 0200; i++; } else if ((ps_lookingat(PostScriptInput, 5) > 0 && (pscanf(PostScriptInput,"d", &n), 1))) { metadown = n; } else if ((ps_lookingat(PostScriptInput, 9) > 0 && (pscanf(PostScriptInput,"dddd", &n, &a, &x, &y), 1))) { unsigned char *cp = &buffer[i]; x = ((((x)<( screen_width - 1) ? (x) : ( screen_width - 1)))>( 0) ? (((x)<( screen_width - 1) ? (x) : ( screen_width - 1))) : ( 0)); y = ((((y)<( screen_height - 1) ? (y) : ( screen_height - 1)))>( 0) ? (((y)<( screen_height - 1) ? (y) : ( screen_height - 1))) : ( 0)); if (queue_event (2, n, a, x, y)) { buffer[i++] = 'x' & 037; buffer[i++] = 0; } } else if ((ps_lookingat(PostScriptInput, 10) > 0 && (pscanf(PostScriptInput,"dddd", &n, &a, &x, &y), 1))) { unsigned char *cp = &buffer[i]; x = ((((x)<( screen_width - 1) ? (x) : ( screen_width - 1)))>( 0) ? (((x)<( screen_width - 1) ? (x) : ( screen_width - 1))) : ( 0)); y = ((((y)<( screen_height - 1) ? (y) : ( screen_height - 1)))>( 0) ? (((y)<( screen_height - 1) ? (y) : ( screen_height - 1))) : ( 0)); if (queue_event (3, n, a, x, y)) { buffer[i++] = 'x' & 037; buffer[i++] = 0; } } else if ((ps_lookingat(PostScriptInput, 6) > 0 && (pscanf(PostScriptInput,"s", &buffer[i]), 1))) { i += strlen (&buffer[i]); } else if ((ps_lookingat(PostScriptInput, 7) > 0 && (pscanf(PostScriptInput,"s", &buffer[i]), 1))) { if (queue_string (&buffer[i], 0)) { buffer[i++] = 'x' & 037; buffer[i++] = 0; } } else if ((ps_lookingat(PostScriptInput, 8) > 0 && (pscanf(PostScriptInput,"s", &buffer[i]), 1))) { if (queue_string (&buffer[i], 1)) { buffer[i++] = 'x' & 037; buffer[i++] = 0; } } else if ((ps_lookingat(PostScriptInput, 1) > 0 && (pscanf(PostScriptInput,"dddd", &y1, &x1, &y, &x), 1))) { repaint++; screen_garbaged++; fprintf((&_iob[2]), "RepairWindow %d %d %d %d\n",x, y, x1, y1); change_screen_size (ps_rows, ps_cols, 0); StartPS (); pprintf(PostScript, _CPS_ResetCanvas, 3); EndPS (); } else if ((ps_lookingat(PostScriptInput, 3) > 0 && (pscanf(PostScriptInput,"dd", &ps_rows, &ps_cols), 1))) { fprintf((&_iob[2]), "Changing screen size to %d %d\n",ps_rows,ps_cols); change_screen_size (ps_rows, ps_cols, 0); StartPS (); pprintf(PostScript, _CPS_ResetCanvas, 3); EndPS (); } else if ((ps_lookingat(PostScriptInput, 11) > 0 && (pscanf(PostScriptInput,"s", &buffer[i]), 1))) { fprintf ((&_iob[2]), "debug: %s\n", &buffer[i]); } else { if (c == -1) fprintf((&_iob[2]), "emacs: received invalid message from NeWS server:\n"); c = (--(PostScriptInput)->cnt>=0? ((int)*(PostScriptInput)->ptr++): (((PostScriptInput)->flag |= 0x0400), psio_filbuf(PostScriptInput))); fprintf ((&_iob[2]), "%c", c); } } while (((PostScriptInput)->cnt) != 0); return i; } xyshow (x, y, s, n) int x, y, n; char *s; { if (highlight) pprintf(PostScript, _CPS_ShowInverted, 10, n, s, x, y); else pprintf(PostScript, _CPS_Show, 9, n, s, x, y); } clearshow (x, y, s, n) int x, y, n; char *s; { if (highlight) pprintf(PostScript, _CPS_ClearShowInverted, 17, n, s, x, y, n, x, y); else pprintf(PostScript, _CPS_ClearShow, 16, n, s, x, y, n, x, y); } cleartoeol(x,y,highlight) int x, y, highlight; { if (highlight) pprintf(PostScript, _CPS_InvertToEOL, 7, x, y); else pprintf(PostScript, _CPS_ClearToEOL, 7, x, y); } togglecursor () { if (VisibleX >= 0 && VisibleX < screen_width && VisibleY >= 0 && VisibleY < screen_height) { pprintf(PostScript, _CPS_ToggleCursor, 7, VisibleX, VisibleY); cursordown = !cursordown; } } CheckPS () { if (!PostScript) error ("Not connected to NeWS server"); } # 689 "tnt.c" int Ftnt_map_window (); struct Lisp_Subr Stnt_map_window = { Ftnt_map_window, 0, 0, "tnt-map-window", 0, 0}; int Ftnt_map_window () { CheckPS (); if (mapped) return; if (retainwindow) pprintf(PostScript, _CPS_RetainWindow, 5, retainwindow); pprintf(PostScript, _CPS_MapWindow, 3); mapped = 1; setpgrp (0, getpid ()); init_sigio (); request_sigio (); { extern int old_fcntl_owner; old_fcntl_owner = fcntl (0, 5, 0); fcntl (0, 6, getpid ()); } return Qnil; } # 717 "tnt.c" int Ftnt_set_font (); struct Lisp_Subr Stnt_set_font = { Ftnt_set_font, 2, 2, "tnt-set-font", "sFont: \nnSize: ", 0}; int Ftnt_set_font (font,size) int font, size; { { if (((enum Lisp_Type) (((font)) >> 24)) != Lisp_String) font = wrong_type_argument (Qstringp, (font)); }; { if (((enum Lisp_Type) (((size)) >> 24)) != Lisp_Int) size = wrong_type_argument (Qintegerp, (size)); }; if ((((size) << 32-24) >> 32-24) < 1) args_out_of_range (font, size); CheckPS (); StartPS (); pprintf(PostScript, _CPS_SetFont, 8, strlen (((struct Lisp_String *) ((font) & ((1<<24) - 1)))->data), ((struct Lisp_String *) ((font) & ((1<<24) - 1)))->data, size); pprintf(PostScript, _CPS_SetDimensions, 7, screen_width, screen_height); EndPS (); return Qnil; } # 739 "tnt.c" int Ftnt_set_origin (); struct Lisp_Subr Stnt_set_origin = { Ftnt_set_origin, 2, 2, "tnt-set-origin", "nX: \nnY: ", 0}; int Ftnt_set_origin (x, y) int x, y; { { if (((enum Lisp_Type) (((x)) >> 24)) != Lisp_Int) x = wrong_type_argument (Qintegerp, (x)); }; { if (((enum Lisp_Type) (((y)) >> 24)) != Lisp_Int) y = wrong_type_argument (Qintegerp, (y)); }; if ((((x) << 32-24) >> 32-24) < 0 || (((y) << 32-24) >> 32-24) < 0) args_out_of_range (x, y); CheckPS (); StartPS (); pprintf(PostScript, _CPS_SetOrigin, 7, (x), (y)); EndPS (); return Qnil; } # 755 "tnt.c" int Ftnt_set_dimensions (); struct Lisp_Subr Stnt_set_dimensions = { Ftnt_set_dimensions, 2, 2, "tnt-set-dimensions", "nColumns: \nnRows: ", 0}; int Ftnt_set_dimensions (cols, rows) int cols, rows; { { if (((enum Lisp_Type) (((cols)) >> 24)) != Lisp_Int) cols = wrong_type_argument (Qintegerp, (cols)); }; { if (((enum Lisp_Type) (((rows)) >> 24)) != Lisp_Int) rows = wrong_type_argument (Qintegerp, (rows)); }; if ((((cols) << 32-24) >> 32-24) < 1 || (((cols) << 32-24) >> 32-24) >= 10000 || (((rows) << 32-24) >> 32-24) < 1 || (((cols) << 32-24) >> 32-24) >= 10000) args_out_of_range (cols, rows); CheckPS (); StartPS (); pprintf(PostScript, _CPS_SetDimensions, 7, (cols), (rows)); EndPS (); return Qnil; } # 772 "tnt.c" int Ftnt_set_framelabel (); struct Lisp_Subr Stnt_set_framelabel = { Ftnt_set_framelabel, 1, 1, "tnt-set-framelabel", "sFrame Label: ", 0}; int Ftnt_set_framelabel (s) int s; { { if (((enum Lisp_Type) (((s)) >> 24)) != Lisp_String) s = wrong_type_argument (Qstringp, (s)); }; CheckPS (); StartPS (); pprintf(PostScript, _CPS_SetFrameLabel, 6, ((struct Lisp_String *) ((s) & ((1<<24) - 1)))->size, ((struct Lisp_String *) ((s) & ((1<<24) - 1)))->data); EndPS (); return Qnil; } # 785 "tnt.c" int Ftnt_set_option (); struct Lisp_Subr Stnt_set_option = { Ftnt_set_option, 2, 2, "tnt-set-option", 0, 0}; int Ftnt_set_option (option, value) int option, value; { { if (((enum Lisp_Type) (((option)) >> 24)) != Lisp_Int) option = wrong_type_argument (Qintegerp, (option)); }; CheckPS (); switch ((((option) << 32-24) >> 32-24)) { case 1: line_ins_del_ok = !((value) == (Qnil)); break; case 2: char_ins_del_ok = !((value) == (Qnil)); break; case 3: scroll_region_ok = !((value) == (Qnil)); if (!scroll_region_ok) scrollregion = 0; break; case 4: retainwindow = !((value) == (Qnil)); if (mapped) { StartPS (); pprintf(PostScript, _CPS_RetainWindow, 5, retainwindow); EndPS (); } break; case 5: StartPS (); pprintf(PostScript, _CPS_SetStuff, 5, !((value) == (Qnil))); EndPS (); break; default: args_out_of_range (option, value); } return Qnil; } # 831 "tnt.c" int Ftnt_next_event (); struct Lisp_Subr Stnt_next_event = { Ftnt_next_event, 0, 0, "tnt-next-event", 0, 0}; int Ftnt_next_event () { selectionevent *se; unrequest_sigio (); se = &selectionevents[nextevent]; if (eventcount-- < 1) return Qnil; switch ((se->list[0])) { case 0: case 1: se->list[1] = make_string (&sbuf[(se->list[1])], (se->list[2])); sbufstart += (se->list[2]); if (sbufstart >= sbufend) sbufstart = sbufend = 0; se->nelements = 2; } nextevent = ((nextevent+1)&(32-1)); request_sigio (); return Flist (se->nelements, se->list); } # 857 "tnt.c" int Ftnt_set_selection (); struct Lisp_Subr Stnt_set_selection = { Ftnt_set_selection, 3, 3, "tnt-set-selection", 0, 0}; int Ftnt_set_selection (rank, size, str) int rank, size, str; { struct Lisp_String *s; { if (((enum Lisp_Type) (((rank)) >> 24)) != Lisp_Int) rank = wrong_type_argument (Qintegerp, (rank)); }; { if (((enum Lisp_Type) (((size)) >> 24)) != Lisp_Int) size = wrong_type_argument (Qintegerp, (size)); }; { if (((enum Lisp_Type) (((str)) >> 24)) != Lisp_String) str = wrong_type_argument (Qstringp, (str)); }; s = ((struct Lisp_String *) ((str) & ((1<<24) - 1))); if ((((rank) << 32-24) >> 32-24) < 0 || (((size) << 32-24) >> 32-24) < 0) args_out_of_range (rank, size); CheckPS (); StartPS (); pprintf(PostScript, _CPS_SetSelection, 10, (((rank) << 32-24) >> 32-24), (((size) << 32-24) >> 32-24), s->size, s->data); EndPS (); return Qnil; } # 877 "tnt.c" int Ftnt_send_PostScript (); struct Lisp_Subr Stnt_send_PostScript = { Ftnt_send_PostScript, 1, 2, "tnt-send-PostScript", 0, 0}; int Ftnt_send_PostScript (s, response) int s, response; { { if (((enum Lisp_Type) (((s)) >> 24)) != Lisp_String) s = wrong_type_argument (Qstringp, (s)); }; CheckPS (); StartPS (); pprintf(PostScript, _CPS_SendPS, 8, ((struct Lisp_String *) ((s) & ((1<<24) - 1)))->size, ((struct Lisp_String *) ((s) & ((1<<24) - 1)))->data, !((response) == (Qnil))); EndPS (); return Qnil; } # 894 "tnt.c" int Fwindow_at (); struct Lisp_Subr Swindow_at = { Fwindow_at, 2, 2, "window-at", 0, 0}; int Fwindow_at (x, y) int x, y; { int window = selected_window; { if (((enum Lisp_Type) (((x)) >> 24)) != Lisp_Int) x = wrong_type_argument (Qintegerp, (x)); }; { if (((enum Lisp_Type) (((y)) >> 24)) != Lisp_Int) y = wrong_type_argument (Qintegerp, (y)); }; x = (((x) << 32-24) >> 32-24); y = (((y) << 32-24) >> 32-24); do { struct window *w = ((struct window *) ((window) & ((1<<24) - 1))); int wx = w->left, wy = w->top; if (x >= wx && x < wx + w->width && y >= wy && y < wy + w->height) { int list[3]; list[0] = window; (list[1]) = x - wx; (list[2]) = y - wy; return Flist (3, list); } } while ((window = Fnext_window (window, Qnil)) != selected_window); return Qnil; } syms_of_TNT () { defsubr (&Stnt_map_window); defsubr (&Stnt_set_font); defsubr (&Stnt_set_origin); defsubr (&Stnt_set_dimensions); defsubr (&Stnt_set_framelabel); defsubr (&Stnt_set_option); defsubr (&Stnt_next_event); defsubr (&Stnt_set_selection); defsubr (&Stnt_send_PostScript); defsubr (&Swindow_at); }