From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001 From: Joe Hunkeler Date: Tue, 11 Aug 2015 16:51:37 -0400 Subject: Repatch (from linux) of OSX IRAF --- sys/gio/cursor/grcinit.x | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 sys/gio/cursor/grcinit.x (limited to 'sys/gio/cursor/grcinit.x') diff --git a/sys/gio/cursor/grcinit.x b/sys/gio/cursor/grcinit.x new file mode 100644 index 00000000..3160203c --- /dev/null +++ b/sys/gio/cursor/grcinit.x @@ -0,0 +1,32 @@ +# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc. + +include +include "grc.h" + +# GRC_INIT -- Initialize the rcursor descriptor. Allocate storage for the +# descriptor and initialize all variables and the keystroke mapping. + +procedure grc_init (rc) + +pointer rc #U grc descriptor (pointer) + +int ip, ch +string keys KEYSTROKES +errchk malloc + +begin + if (rc == NULL) + call malloc (rc, LEN_RCSTRUCT, TY_STRUCT) + call aclri (Memi[rc], LEN_RCSTRUCT) + + # Initialize variables. + RC_CASE(rc) = YES + RC_MARKCUR(rc) = NO + RC_PHYSOPEN(rc) = NO + + # Initialize keystrokes. + for (ip=1; keys[ip] != EOS; ip=ip+1) { + ch = keys[ip] + RC_KEYS(rc,keys[ip]) = ch + } +end -- cgit