Initial commit

1 files changed, 30 insertions, 0 deletions

diff --git a/pkg/cl/cl.x b/pkg/cl/cl.x
new file mode 100644
index 00000000..c792d371
--- /dev/null
+++ b/pkg/cl/cl.x
@@ -0,0 +1,30 @@
+# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+
+task	cl = t_cl
+procedure t_cl()
+begin
+end
+
+# CL -- The main entry point of the CL.  Unlike most IRAF tasks, the CL task
+# occupies a process all by itself and takes control immediately when the task
+# is executed; the in-task interpreter never runs.  The ONENTRY procedure is
+# used to achieve this.  ONENTRY gains control from the IRAF main at process
+# startup, before the in task interpreter is entered.  The t_cl procedure is
+# not called by the interpreter as the TASK statement suggests.  The purpose
+# of the task statement is to give us an IRAF main.
+
+int procedure onentry (prtype, bkgfile, cmd)
+
+int	prtype			# process type flag (not used)
+char	bkgfile[ARB]		# bkgfilename if detached process (not used)
+char	cmd[ARB]		# optional host command line
+
+char	pk_bkgfile[SZ_PATHNAME]
+char	pk_cmd[SZ_COMMAND]
+int	c_main()
+
+begin
+	call strpak (bkgfile, pk_bkgfile, SZ_PATHNAME)
+	call strpak (cmd, pk_cmd, SZ_COMMAND)
+	return (c_main (prtype, pk_bkgfile, pk_cmd))
+end