nvi/perl_api/perl.xs

168  *	Remove all refences to the screen to be destroyed
193  * perl_private is reset; When the screen goes away before
199 newVIrv(rv, screen)
201 	SCR *screen;
204 	if (!screen->perl_private) {
205 		screen->perl_private = newSV(0);
206 		sv_setiv(screen->perl_private, (IV) screen);
208 	else SvREFCNT_inc(screen->perl_private);
209 	SvRV(rv) = screen->perl_private;
448 Msg(screen, text)
449 	VI          screen
456 	api_imessage(screen, text);
459 #	End a screen.
465 EndScreen(screen)
466 	VI	screen
474 	rval = api_escreen(screen);
478 #	Create a new screen.  If a filename is specified then the screen
485 Edit(screen, ...)
486 	VI screen
501 	rval = api_edit(screen, file, &nsp, ix);
504 	RETVAL = ix ? nsp : screen;
510 #	Return the screen id associated with file name.
531 AppendLine(screen, linenumber, text)
532 	VI screen
544 	rval = api_aline(screen, linenumber, text, length);
554 DelLine(screen, linenumber)
555 	VI screen
564 	rval = api_dline(screen, (recno_t)linenumber);
574 GetLine(screen, linenumber)
575 	VI screen
586 	rval = api_gline(screen, (recno_t)linenumber, &p, &len);
599 SetLine(screen, linenumber, text)
600 	VI screen
612 	rval = api_sline(screen, linenumber, text, length);
622 InsertLine(screen, linenumber, text)
623 	VI screen
635 	rval = api_iline(screen, linenumber, text, length);
639 #	Return the last line in the screen.
645 LastLine(screen)
646 	VI screen
655 	rval = api_lline(screen, &last);
670 GetMark(screen, mark)
671 	VI screen
681 	rval = api_getmark(screen, (int)mark, &cursor);
695 SetMark(screen, mark, line, column)
696 	VI screen
710 	rval = api_setmark(screen, (int)mark, &cursor);
721 GetCursor(screen)
722 	VI screen
731 	rval = api_getcursor(screen, &cursor);
745 SetCursor(screen, line, column)
746 	VI screen
759 	rval = api_setcursor(screen, &cursor);
763 #	Change the current focus to screen.
789 MapKey(screen, key, perlproc)
790 	VI screen
806 	rval = api_map(screen, key, command, length);
816 UnmapKey(screen, key)
817 	VI screen
826 	rval = api_unmap(screen, key);
836 SetOpt(screen, setting)
837 	VI screen
849 	rval = api_run_str(screen, SvPV(svc, PL_na));
859 GetOpt(screen, option)
860 	VI screen
870 	rval = api_opts_get(screen, option, &value, NULL);
884 Run(screen, command)
885 	VI screen
894 	rval = api_run_str(screen, command);
898 DESTROY(screen)
899 	VI screen
902 	screen->perl_private = 0;
917 			newVIrv(newSV(0), screen)),\
922 Opt(screen)
923 	VI screen;
932 Map(screen)
933 	VI screen;
942 Mark(screen)
943 	VI screen
954 DESTROY(screen)
955 	VI::OPT screen
962 FETCH(screen, key)
963 	VI::OPT screen
974 	rval = api_opts_get(screen, key, &value, &boolvalue);
985 STORE(screen, key, value)
986 	VI::OPT	screen
996 	rval = api_opts_set(screen, key, SvPV(value, PL_na), SvIV(value),
1003 DESTROY(screen)
1004 	VI::MAP screen
1011 STORE(screen, key, perlproc)
1012 	VI::MAP screen
1028 	rval = api_map(screen, key, command, length);
1032 DELETE(screen, key)
1033 	VI::MAP screen
1042 	rval = api_unmap(screen, key);
1048 DESTROY(screen)
1049 	VI::MARK screen
1056 FETCH(screen, mark)
1057 	VI::MARK screen
1067 	rval = api_getmark(screen, (int)mark, &cursor);
1077 STORE(screen, mark, pos)
1078 	VI::MARK screen
1093 	rval = api_setmark(screen, (int)mark, &cursor);
1097 FIRSTKEY(screen, ...)
1098 	VI::MARK screen
1116 	if (api_nextmark(screen, next, key) != 1) {