Editor factory

The editor factory will create some editor. At the moment this editor is the IBM supplied release 5 CMS editor. The command system will request an editor from this factory if it fails to find EDITOR in its directory. The editor produced by this factory may change in the future.

EDITF(531;SB,M,SB==>c;EDITOR) the spacebank SB and meter M are used to create an editor EDIT. NOTE the order code of 531 becomes the alleged key type of the editor. This key type is used by the command system to distinguish this editor from it predecessor. If used outside of the command system, any order code is acceptable (except of course kt and kt+1, etc).

EDITF(kt;==>x'113')

EDITOR(0;SIK,SOK,N==>c;SIK,SOK) editor communication is via the SIK SOK keys. N is a node containing CCK and STRU. CCK is for the SIK SOK provided, STRU is any Gnosis data structure supported by the OS simulator that may be empty. Note that STRU must exist before calling the editor.

Editor invocation factory

EDIT(0;PSB,M,SB,SIK6,SOK6,CCK6,FILE,EDITF==>c,str)
This call uses EDITF to create an editor, invockes it with the terminal and file keys passed , destroyes it when it returns and returns to the caller.
c = 0 - All ok, str in null

c = 1 or 2 - As from any factory requestors key

c = 9 - A non-zero return code, rc, from EDITF. str is (4,rc)

c = kt+2 - Extended jump protocol not followed or oc ne 0.

EDIT(kt==>X'313')