diff options
| author | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
|---|---|---|
| committer | Joseph Hunkeler <jhunkeler@gmail.com> | 2015-07-08 20:46:52 -0400 |
| commit | fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 (patch) | |
| tree | bdda434976bc09c864f2e4fa6f16ba1952b1e555 /sys/gio/cursor/grcstatus.x | |
| download | iraf-linux-fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4.tar.gz | |
Initial commit
Diffstat (limited to 'sys/gio/cursor/grcstatus.x')
| -rw-r--r-- | sys/gio/cursor/grcstatus.x | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/sys/gio/cursor/grcstatus.x b/sys/gio/cursor/grcstatus.x new file mode 100644 index 00000000..55f44f18 --- /dev/null +++ b/sys/gio/cursor/grcstatus.x @@ -0,0 +1,49 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include <gio.h> +include "gtr.h" +include "grc.h" + +# GRC_STATUS -- Called by ":.show" to print the values of the cursor mode +# parameters. + +procedure grc_status (fd, rc) + +int fd # output file +pointer rc # rcursor descriptor + +int ip, ch +string keys KEYSTROKES +include "gtr.com" + +begin + call fprintf (fd, "\tcase\t= %b\n") + call pargi (RC_CASE(rc)) + call fprintf (fd, "\tmarkcur\t= %b\n") + call pargi (RC_MARKCUR(rc)) + call fprintf (fd, "\taxes\t= %b\n") + call pargi (RC_AXES(rc)) + + if (wstranset == YES) { + call fprintf (fd, "\tview\t= %5.3f %5.3f %5.3f %5.3f\n") + call pargr (vx1) + call pargr (vx2) + call pargr (vy1) + call pargr (vy2) + } else + call fprintf (fd, "\tview\t= full screen\n") + + call fprintf (fd, "\tkeys\t= %s\n") + call pargstr (keys) + call fprintf (fd, "\t\t->") + + for (ip=1; keys[ip] != EOS; ip=ip+1) { + ch = RC_KEYS(rc,keys[ip]) + if (ch != 0) + call putci (fd, ch) + else + call putci (fd, ' ') + } + + call fprintf (fd, "\n") +end |