The following code is the complete implementation of the client. Enter it into the file my-hello-world-client.dylan in the My-Hello-World-Client project.
Module: my-hello-world-client.dylan
Synopsis: Distributed Hello World
Author: Me Myself I
define constant $hello-world-ior-file = "c:\\temp\\hello.ior";
define method main () => ()
let orb = corba/orb-init(make(corba/<arg-list>),
"Functional Developer ORB");
let world = as(<world>,
corba/orb/file-to-object(orb,
$hello-world-ior-file));
format-out("%s\n", world/hello(world));
end method main;
begin
main();
end;
// eof