2  * Copyright (C) 1984-2025  Mark Nudelman
14  * selected by the -m/-M options.
37 extern constant char *editor;
38 extern constant char *editproto;
45 static constant char s_proto[] =
46   "?n?f%f .?m(%T %i of %m) ..?e(END) ?x- Next\\: %x..%t";
47 static constant char m_proto[] =
48   "?n?f%f .?m(%T %i of %m) ..?e(END) ?x- Next\\: %x.:?pB%pB\\%:byte %bB?s/%s...%t";
49 static constant char M_proto[] =
50 …"?f%f .?n?m(%T %i of %m) ..?ltlines %lt-%lb?L/%L. :byte %bB?s/%s. .?e(END) ?x- Next\\: %x.:?pB%pB\…
51 static constant char e_proto[] =
52   "?f%f .?m(%T %i of %m) .?ltlines %lt-%lb?L/%L. .byte %bB?s/%s. ?e(END) :?pB%pB\\%..%t";
53 static constant char h_proto[] =
54   "HELP -- ?eEND -- Press g to see it again:Press RETURN for more., or q when done";
55 static constant char w_proto[] =
57 static constant char more_proto[] =
58   "--More--(?eEND ?x- Next\\: %x.:?pB%pB\\%:byte %bB?s/%s...%t)";
61 public char constant *eqproto = e_proto;
62 public char constant *hproto = h_proto;
63 public char constant *wproto = w_proto;
86 static void ap_estr(constant char *s, lbool nprt)  in ap_estr()
88 	constant char *es = s + strlen(s);  in ap_estr()
92 		constant char *ps;  in ap_estr()
115 static void ap_str(constant char *s)  in ap_str()
173  * Return the "current" byte offset in the file.
180 	while (pos == NULL_POSITION && where >= 0 && where < sc_height-1)  in curr_byte()
201 	case 'b': /* Current byte offset known? */  in cond()
209 		return (strcmp(get_filename(curr_ifile), "-") != 0);  in cond()
266 #define PAGE_NUM(linenum)  ((((linenum) - 1) / (sc_height - header_lines - 1)) + 1)  in protochar()
270 	case 'b': /* Current byte offset */  in protochar()
280 	case 'd': /* Current page number */  in protochar()
288 		/* Find the page number of the last byte in the file (len-1). */  in protochar()
297 			linenum = find_linenum(len - 1);  in protochar()
315 	case 'g': /* Shell-escaped file name */  in protochar()
328 	case 'l': /* Current line number */  in protochar()
341 			ap_linenum(vlinenum(linenum-1));  in protochar()
386 		while (mp > message && mp[-1] == ' ')  in protochar()
387 			mp--;  in protochar()
415 static constant char * skipcond(constant char *p)  in skipcond()
448 		if (--iflevel == 0)  in skipcond()
464 		return (p-1);  in skipcond()
472 static constant char * wherechar(char constant *p, int *wp)  in wherechar()
484 		default:    *wp = TOP;  p--;            break;  in wherechar()
493 public constant char * pr_expand(constant char *proto)  in pr_expand()
495 	constant char *p;  in pr_expand()
517 				--p;  in pr_expand()
533 				--p;  in pr_expand()
552 public constant char * eq_message(void)  in eq_message()
563 public constant char * pr_string(void)  in pr_string()
565 	constant char *prompt;  in pr_string()
578 public constant char * wait_message(void)  in wait_message()