Hi Lennart, On Sun, Mar 10, 2024 at 12:13:34AM +0000, Lennart Jablonka wrote: > This is useless. And also not what Alejandro wanted, presumably. > > Suggested-By: Alejandro Colomar <a...@kernel.org> > --- > I don’t wanna wait for April 1st.
Lol! It's not exactly what I wanted, but it's still an interesting
thing.
Thanks, or kudos, or whatever :D
Have a lovely night!
Alex
>
> .gitignore | 1 +
> Makefile.am | 1 +
> src/devices/grotrin/.gitignore | 5 ++
> src/devices/grotrin/grotrin.1.man | 82 +++++++++++++++++++
> src/devices/grotrin/grotrin.am | 14 ++++
> src/devices/grotrin/trin.cpp | 129 ++++++++++++++++++++++++++++++
> 6 files changed, 232 insertions(+)
> create mode 100644 src/devices/grotrin/.gitignore
> create mode 100644 src/devices/grotrin/grotrin.1.man
> create mode 100644 src/devices/grotrin/grotrin.am
> create mode 100644 src/devices/grotrin/trin.cpp
>
> diff --git a/.gitignore b/.gitignore
> index 2c749f1aa..8b271e54f 100644
> --- a/.gitignore
> +++ b/.gitignore
> @@ -32,6 +32,7 @@
> /grolj4
> /gropdf
> /grops
> +/grotrin
> /grotty
> /gxditview
> /hpftodit
> diff --git a/Makefile.am b/Makefile.am
> index e15a8ff0f..19c5f6a2c 100644
> --- a/Makefile.am
> +++ b/Makefile.am
> @@ -653,6 +653,7 @@ include $(top_srcdir)/src/devices/grolbp/grolbp.am
> include $(top_srcdir)/src/devices/grolj4/grolj4.am
> include $(top_srcdir)/src/devices/gropdf/gropdf.am
> include $(top_srcdir)/src/devices/grops/grops.am
> +include $(top_srcdir)/src/devices/grotrin/grotrin.am
> include $(top_srcdir)/src/devices/grotty/grotty.am
> include $(top_srcdir)/src/devices/xditview/xditview.am
> include $(top_srcdir)/src/preproc/eqn/eqn.am
> diff --git a/src/devices/grotrin/.gitignore b/src/devices/grotrin/.gitignore
> new file mode 100644
> index 000000000..4bca70d9e
> --- /dev/null
> +++ b/src/devices/grotrin/.gitignore
> @@ -0,0 +1,5 @@
> +# build artifacts
> +/.deps/
> +/.dirstamp
> +/grotrin.1
> +/trin.o
> diff --git a/src/devices/grotrin/grotrin.1.man
> b/src/devices/grotrin/grotrin.1.man
> new file mode 100644
> index 000000000..21e83856e
> --- /dev/null
> +++ b/src/devices/grotrin/grotrin.1.man
> @@ -0,0 +1,82 @@
> +.TH grotrin @MAN1EXT@ "@MDATE@" "groff @VERSION@"
> +.SH Name
> +grotrin \-
> +.I groff
> +output driver for
> +.I groff
> +.
> +.
> +.\" Save and disable compatibility mode (for, e.g., Solaris 10/11).
> +.do nr *groff_gropdf_1_man_C \n[.cp]
> +.cp 0
> +.
> +.\" Define fallback for groff 1.23's MR macro if the system lacks it.
> +.nr do-fallback 0
> +.if !\n(.f .nr do-fallback 1 \" mandoc
> +.if \n(.g .if !d MR .nr do-fallback 1 \" older groff
> +.if !\n(.g .nr do-fallback 1 \" non-groff *roff
> +.if \n[do-fallback] \{\
> +. de MR
> +. ie \\n(.$=1 \
> +. I \%\\$1
> +. el \
> +. IR \%\\$1 (\\$2)\\$3
> +. .
> +.\}
> +.rr do-fallback
> +.
> +.
> +.\" ====================================================================
> +.SH Synopsis
> +.\" ====================================================================
> +.
> +.SY grotrin
> +.RI [ file\~ .\|.\|.]
> +.YS
> +.
> +.
> +.\" ====================================================================
> +.SH Description
> +.\" ====================================================================
> +.
> +This GNU
> +.I roff
> +output driver translates the output of
> +.MR @g@troff @MAN1EXT@
> +into input suitable for
> +.MR @g@troff @MAN1EXT@ .
> +.
> +.
> +.\" ====================================================================
> +.SH Bugs
> +.\" ====================================================================
> +.
> +The output is only correct if the input has an
> +.B s
> +command before the first text or the text size scaling factor is\~1000.
> +.
> +.P
> +The processed output contains a stray blank page at the end.
> +.
> +.P
> +Both the output of
> +.I grotrin
> +and documents generated from it are likely much larger than the input.
> +.
> +.P
> +.I grotrin
> +does not support drawing commands.
> +.
> +.P
> +There is no reason to use
> +.I grotrin.
> +.
> +.
> +.\" ====================================================================
> +.SH "See also"
> +.\" ====================================================================
> +.
> +.MR groff @MAN1EXT@ ,
> +.MR @g@troff @MAN1EXT@ ,
> +.MR groff_out @MAN5EXT@ ,
> +.MR groff @MAN7EXT@
> diff --git a/src/devices/grotrin/grotrin.am b/src/devices/grotrin/grotrin.am
> new file mode 100644
> index 000000000..db012985e
> --- /dev/null
> +++ b/src/devices/grotrin/grotrin.am
> @@ -0,0 +1,14 @@
> +bin_PROGRAMS += grotrin
> +grotrin_SOURCES = src/devices/grotrin/trin.cpp
> +grotrin_LDADD = libdriver.a \
> + libgroff.a \
> + lib/libgnu.a
> +man1_MANS += src/devices/grotrin/grotrin.1
> +EXTRA_DIST += \
> + src/devices/grotrin/grotrin.1.man
> +
> +# Local Variables:
> +# fill-column: 72
> +# mode: makefile-automake
> +# End:
> +# vim: set autoindent filetype=automake textwidth=72:
> diff --git a/src/devices/grotrin/trin.cpp b/src/devices/grotrin/trin.cpp
> new file mode 100644
> index 000000000..5fa84cbc1
> --- /dev/null
> +++ b/src/devices/grotrin/trin.cpp
> @@ -0,0 +1,129 @@
> +#include "driver.h"
> +
> +#if __cplusplus < 201103L
> +# define override
> +#endif
> +
> +static void usage(FILE *stream);
> +
> +class trin_printer : public printer {
> + font *current_font;
> + // in scaled points
> + int current_size;
> + // next output byte is at the beginning of a line
> + bool at_newline;
> +public:
> + trin_printer();
> + void begin_page(int) override;
> + void end_page(int) override;
> +private:
> + void set_char(glyph *, font *, const environment *, int,
> + const char *) override;
> + void newline();
> +};
> +
> +trin_printer::trin_printer()
> +{
> + current_font = NULL;
> + // TODO: don’t depend on a certain scale factor
> + current_size = 10000;
> + at_newline = true;
> +
> + puts(
> + ".po 0\n"
> + ".nf\n"
> + ".hy 0\n"
> + ".lg 0\n"
> + ".vs 0");
> +}
> +
> +void trin_printer::begin_page(int)
> +{
> +}
> +
> +void trin_printer::end_page(int)
> +{
> + newline();
> + puts(".bp");
> +}
> +
> +void trin_printer::set_char(glyph *g, font *f, const environment *env, int
> w, const char *)
> +{
> + if (current_font != f) {
> + newline();
> + printf(".ft %s\n", f->get_name());
> + current_font = f;
> + }
> +
> + if (current_size != env->size) {
> + newline();
> + printf(
> + ".nr s %ds\n"
> + ".ps \\nsu\n",
> + env->size);
> + current_size = env->size;
> + }
> +
> + printf("\\v'|%du'\\h'%du-\\n(.ku'", env->vpos, env->hpos);
> +
> + int no;
> + const char *name;
> + if ((no = glyph_to_number(g)) != -1)
> + printf("\\N'%d'", no);
> + else if ((name = glyph_to_name(g)) != nullptr) {
> + if (name[0] == '\\')
> + name++;
> + printf("\\[%s]", name);
> + }
> + at_newline = false;
> +
> + newline();
> + puts(".br");
> +}
> +
> +/*
> + * Ensure the next byte printed is at the start of a line.
> + */
> +void trin_printer::newline()
> +{
> + if (!at_newline) {
> + at_newline = true;
> + putchar('\n');
> + }
> +}
> +
> +printer *make_printer()
> +{
> + return new trin_printer();
> +}
> +
> +int main(int argc, char **argv)
> +{
> + program_name = argv[0];
> + setlocale(LC_CTYPE, "");
> + int c;
> + while ((c = getopt(argc, argv, "")) != -1)
> + switch (c) {
> + case '?':
> + usage(stderr);
> + exit(EXIT_FAILURE);
> + }
> + if (optind == argc)
> + do_file("-");
> + else
> + for (int i = optind; i < argc; i++)
> + do_file(argv[i]);
> +}
> +
> +static void usage(FILE *stream)
> +{
> + fprintf(stream,
> +"usage: %s [file ...]\n",
> + program_name);
> +}
> +
> +// Local Variables:
> +// fill-column: 72
> +// mode: C++
> +// End:
> +// vim: set cindent noexpandtab shiftwidth=2 textwidth=72:
> --
> 2.44.0
>
--
<https://www.alejandro-colomar.es/>
signature.asc
Description: PGP signature
