|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Insight, seg_0132b5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
package Insight is
--
-- Insight has two parts; the data manager running on the R1000 and the
-- illustrator running on the workstation. These parts can be invoked in
-- several ways:
--
-- o via Insight.Invoke which starts both the Insight data manager on the
-- R1000 and the Insight illustrator on the workstation. This is the
-- normal mode of use.
--
-- o via Insight.Invoke which only starts the Insight data manager on the
-- R1000. The Insight illustrator must be invoked manually on the
-- workstation. For example, if remote shell from the R1000 to the
-- workstation is not allowed, then this mode must be used.
--
-- o via package Insight_Batch operations. These operations are batch
-- operations that do not require workstation window interaction.
-- See the Insight_Batch package for more details.
procedure Invoke (Object_Context : String := "$";
Diagram_Context : String := "$";
Remote_Machine : String := "<DEFAULT>";
X_Display : String := "<DEFAULT>";
Remote_Username : String := "<DEFAULT>";
Response : String := "<PROFILE>");
--
-- Invoke Insight for the current session.
--
-- This command starts Insight. Subsequent Insight operations are run from
-- the menus in the illustrator window.
--
-- Object_Context Environment context for resolving Environment naming
-- expressions; defaults to the current directory.
--
-- Diagram_Context Environment context for storing and retrieving
-- diagrams; defaults to the current directory.
--
-- Remote_Machine Workstation for running the illustrator.
--
-- X_Display X device or server for displaying the diagram;
-- defaults to the remote machine's display.
--
-- Remote_Username Username on the workstation; defaults to username for
-- the current Environment session.
--
-- Response Response profile for Environment messages.
--
procedure Invoke_Data_Manager (Object_Context : String := "$";
Diagram_Context : String := "$";
Response : String := "<PROFILE>");
--
-- Invoke the Insight data manager for the current session.
--
-- This command starts the Insight data manager (R1000 host) only. The
-- Insight illustrator must be invoked manually on the workstation.
--
-- After starting the data manager, several lines will be logged to an
-- environment window:
--
-- 92/05/07 15:50:11 ::: [Insight (Object_Context => "$", Diagram_Context =>
-- 92/05/07 15:50:11 ... "$", Remote_Machine => "<DEFAULT>", X_Display =>
-- 92/05/07 15:50:11 ... "<DEFAULT>", Remote_Username => "<DEFAULT>",
-- 92/05/07 15:50:11 ... Start_Server_Only => "TRUE", Response => "<PROFILE>")].
-- 92/05/07 15:50:13 --- Using port number => 9888.
-- 92/05/07 15:50:13 --- Server host name => BACKUS.
-- 92/05/07 15:50:13 --- Server tcp/ip address => 89.64.7.9.
--
-- Then manually run the following on the workstation:
--
-- /vendor/rational/insight/release.x_y_z/illustrator r1000_name 9888
--
-- where:
--
-- x_y_x is the current Insight release.
--
-- r1000_name (in this case backus) can be either the string name or
-- the decimal dotted IP address
--
-- the port numner is used as the second argument
--
-- At this point, an Insight window should appear and all Insight operations
-- should work as described in the manual. No explicit finalization is
-- required to halt the illustrator i.e. the Exit command will halt both -- the illustrator and data manager.
--
-- Object_Context Environment context for resolving Environment naming
-- expressions; defaults to the current directory.
--
-- Diagram_Context Environment context for storing and retrieving
-- diagrams; defaults to the current directory.
--
-- Response Response profile for Environment messages.
--
end Insight;
nblk1=5
nid=0
hdr6=a
[0x00] rec0=18 rec1=00 rec2=01 rec3=01a
[0x01] rec0=14 rec1=00 rec2=02 rec3=068
[0x02] rec0=17 rec1=00 rec2=03 rec3=02a
[0x03] rec0=16 rec1=00 rec2=04 rec3=002
[0x04] rec0=0d rec1=00 rec2=05 rec3=000
tail 0x2170e880882f302f970be 0x42a00088462060003