ooRexx logo streamclient.cls
/* ---------------------------------------------------------------- */
/* streamclient in cooperation with streamserver can be used to     */
/* redirect standard streams to other terminal windows              */
/* ---------------------------------------------------------------- */
/*                                                                  */
/* Originally by Ruurd J. Idenburg                                  */                                                            
/*                                                                  */
/* No copyright, no licence, no guarantees or warrantees, be it     */
/* explicit, implicit or whatever. Usage is totally and completely  */
/* at the users own risk, the author shall not be liable for any    */
/* damages whatsoever, for any reason whatsoever.                   */
/*                                                                  */
/* Please keep this comment block intact when modifying this code   */
/* and add a note with a date and a description.                    */
/*                                                                  */
/* ---------------------------------------------------------------- */
/*  Parameter(s):                                                   */
/*                                                                  */
/*    hostname - fully qualified or ip-address,                     */
/*               use loclhost for same machine.                     */
/*                                                                  */
/*    port - port number to use for the socket connection.          */
/*                                                                  */
/*  Usage for instance to redirect trace output to a new terminal   */
/*    out = .streamclient~new(localhost,726576))                    */
/*    out~open(.context~name "- ooRexx Standard Output")            */
/*    pdest = .traceoutput~destination(out)                         */
/*                                                                  */
/* ---------------------------------------------------------------- */
/* 2015/04/08 - Initial version                                     */
/* ---------------------------------------------------------------- */

::class streamclient public subclass streamsocket

::method init
  use strict arg hostname, port, bufsize = 4096
  -- pass arguments on to super class
  self~init:super(hostname, port, bufsize)
  -- check if streamserver is already running
  socket = .socket~new('AF_INET', 'SOCK_STREAM', 0)
  rc = socket~connect(.inetaddress~new(hostname,port))
  -- negative return code will start the streamserver.
  -- obviously, this will only work on localhost, NOT for a remote hostname
  -- and only on Windows, NOT on Linux etc. For those cases start the
  -- streamserver manually before using streamclient.
  if rc<0 then do
    parse source os .
    if os~pos("Windows")>0 & hostname=="localhost"
      then address CMD 'start rexxpaws streamserver.rex' hostname port
      else do
        socket~close
        raise syntax 93.900 array ("Could not connect to" hostname":"port"!")
      end
  end
  -- close the socket anyway
  socket~close

 
::method open
  use strict arg header = ''
  self~open:super
  self~say(header~center(80,'='))

::requires 'streamsocket.cls'
If you feel inclined to make corrections, suggestions etc., please mail me any.
All content © Ruurd Idenburg, 2007–2018, except where marked otherwise. All rights reserved. This page is primarily for non-commercial use only. The Idenburg website records no personal information and sets no ‘cookies’. This site is hosted on a VPS(Virtual Private System) rented from CloudVPS, a Dutch company, falling under Dutch (privacy) laws.

This page updated on Thu, 28 Apr 2016 14:59:56 +0200 by Ruurd Idenburg.