Lines Matching refs:tos
50 stdout - put stdout marker on TOS
51 stderr - put stderr marker on TOS
52 print - print TOS-1 on TOS (eg: "hello\n" stdout print)
55 copy_past_newline - append input, up to and including newline into TOS
57 drop - discard TOS
59 remchar - delete last character from TOS
61 do_fancy_stuff - translate <<foo>> to @code{foo} in TOS
62 bulletize - if "o" lines found, prepend @itemize @bullet to TOS
284 string_type *tos;
320 if (tos < stack)
322 if (tos >= stack + STACK)
393 if (tos->write_idx)
394 tos->write_idx--;
401 while ((isspace ((unsigned char) at (tos, tos->write_idx - 1))
402 || at (tos, tos->write_idx - 1) == '\n')
403 && tos->write_idx > 0)
404 tos->write_idx--;
421 tos++;
423 init_string (tos);
425 cattext (tos, *((char **) pc));
491 (long) (tos - stack));
519 || find (tos, "PARAMS") || find (tos, "PROTO") || !find (tos, "("))
521 catstr (&out, tos);
526 for (openp = 0; at (tos, openp) != '(' && at (tos, openp); openp++)
532 while (fname && isspace ((unsigned char) at (tos, fname)))
535 && !isspace ((unsigned char) at (tos,fname))
536 && at (tos,fname) != '*')
545 if (!isspace ((unsigned char) at (tos, len - 1)))
549 catchar (&out, at (tos, idx));
557 if (!isspace ((unsigned char) at (tos, len - 1)))
561 catchar (&out, at (tos, idx));
565 for (idx = openp; at (tos, idx) && at (tos, idx) != ';'; idx++)
566 catchar (&out, at (tos, idx));
570 overwrite_string (tos, &out);
585 while (at (tos, idx))
587 if (at (tos, idx) == '{' && at (tos, idx + 1) == '*')
592 else if (at (tos, idx) == '*' && at (tos, idx + 1) == '}')
599 catchar (&out, at (tos, idx));
604 overwrite_string (tos, &out);
609 /* Mod tos so that only lines with leading dots remain */
617 while (at (tos, idx))
620 if (at (tos, idx) == '.')
626 while ((c = at (tos, idx)) && c != '\n')
628 if (c == '{' && at (tos, idx + 1) == '*')
633 else if (c == '*' && at (tos, idx + 1) == '}')
650 idx = skip_past_newline_1 (tos, idx);
654 overwrite_string (tos, &out);
658 /* Find lines starting with . and | and put example around them on tos */
668 while (at (tos, idx))
670 if (at (tos, idx) == '\n'
671 && (at (tos, idx +1 ) == '.'
672 || at (tos, idx + 1) == '|'))
679 while (at (tos, idx) && at (tos, idx) != '\n')
685 if (at (tos, idx) == '{')
687 else if (at (tos, idx) == '}')
692 if (at (tos, idx) == '{')
694 else if (!islower ((unsigned char) at (tos, idx)))
697 else if (at (tos, idx) == '@'
698 && islower ((unsigned char) at (tos, idx + 1)))
702 else if (at (tos, idx) == '{' && at (tos, idx + 1) == '*')
708 else if (at (tos, idx) == '*' && at (tos, idx + 1) == '}')
714 else if (at (tos, idx) == '{'
715 || at (tos, idx) == '}')
720 catchar (&out, at (tos, idx));
725 while (at (tos, idx) == '\n'
726 && ((at (tos, idx + 1) == '.')
727 || (at (tos, idx + 1) == '|')))
733 catchar (&out, at (tos, idx));
738 overwrite_string (tos, &out);
744 itemize, inplace at TOS*/
754 while (at (tos, idx))
756 if (at (tos, idx) == '@'
757 && at (tos, idx + 1) == '*')
762 else if (at (tos, idx) == '\n'
763 && at (tos, idx + 1) == 'o'
764 && isspace ((unsigned char) at (tos, idx + 2)))
777 catchar (&out, at (tos, idx));
778 if (on && at (tos, idx) == '\n'
779 && at (tos, idx + 1) == '\n'
780 && at (tos, idx + 2) != 'o')
794 delete_string (tos);
795 *tos = out;
799 /* Turn <<foo>> into @code{foo} in place at TOS*/
807 while (at (tos, idx))
809 if (at (tos, idx) == '<'
810 && at (tos, idx + 1) == '<'
811 && !isspace ((unsigned char) at (tos, idx + 2)))
816 while (at (tos, idx)
817 && at (tos, idx) != '>' )
819 catchar (&out, at (tos, idx));
828 catchar (&out, at (tos, idx));
832 delete_string (tos);
833 *tos = out;
901 tos++;
903 init_string (tos);
904 idx = copy_past_newline (ptr, idx, tos);
923 while (at (tos, idx) == '\n')
931 if (at (tos, idx) == '.')
935 while (at (tos, idx))
943 while (idx && isspace ((unsigned char) at (tos, idx)))
953 if (at (tos, c) == '\n'
954 && at (tos, c + 1) == '\n'
955 && at (tos, c + 2) == '.')
960 else if (at (tos, c) == '.' && sl)
965 else if (at (tos, c) == '\n'
966 && at (tos, c + 1) == '\n'
973 catchar (&out, at (tos, c));
974 if (at (tos, c) == '\n')
993 delete_string (tos);
994 *tos = out;
1006 while (at (tos, idx))
1008 switch (at (tos, idx))
1013 if (tab && at (tos, idx))
1035 catchar (&out, at (tos, idx));
1044 delete_string (tos);
1045 *tos = out;
1052 tos++;
1054 init_string (tos);
1060 idx = copy_past_newline (ptr, idx, tos);
1070 t = tos[0];
1071 tos[0] = tos[-1];
1072 tos[-1] = t;
1079 tos++;
1081 init_string (tos);
1082 catstr (tos, tos - 1);
1089 tos--;
1105 tos--;
1107 catstr (tos, tos + 1);
1108 delete_string (tos + 1);
1133 catstr (tos - 1, tos);
1135 delete_string (tos);
1136 tos--;
1249 tos = stack;
1442 write_buffer (tos, stdout);
1444 write_buffer (tos, stderr);
1448 tos--;
1502 tos = stack + 1;
1578 if (tos != stack)
1581 (long) (tos - stack));
