From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001 From: Joseph Hunkeler Date: Wed, 8 Jul 2015 20:46:52 -0400 Subject: Initial commit --- sys/psio/psjustify.x | 48 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100644 sys/psio/psjustify.x (limited to 'sys/psio/psjustify.x') diff --git a/sys/psio/psjustify.x b/sys/psio/psjustify.x new file mode 100644 index 00000000..367cc6fe --- /dev/null +++ b/sys/psio/psjustify.x @@ -0,0 +1,48 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include "psio.h" + + +# PS_RIGHTJUSTIFY -- Right justfify text on the given string and break. + +procedure ps_rightjustify (ps, str) + +pointer ps #I PSIO descriptor +char str[ARB] #I text line + +int mtemp, ps_rjPos() +errchk ps_output + +begin + mtemp = PS_CLMARGIN(ps) + PS_CLMARGIN(ps) = ps_rjpos (ps, str) + call ps_output (ps, str, NO) + PS_CLMARGIN(ps) = mtemp +end + + +# PS_RJPOS -- Get the X position of the right-justified string. + +int procedure ps_rjpos (ps, str) + +pointer ps #I PSIO descriptor +char str[ARB] #I text to justify + +int ps_textwidth() +errchk ps_textwidth + +begin + return (PS_CRMPOS(ps) - ps_textwidth (ps, str)) +end + + +# PS_SET_JUSTIFY -- Set the justification flag. + +procedure ps_setjustify (ps, justify) + +pointer ps #I PSIO descriptor +int justify #I justificaton flag + +begin + PS_JUSTIFY(ps) = justify +end -- cgit