Interlisp.medley/library/UNIXCOMM.TEDIT

1

Lisp Library Modules, Medley Release 2.0, UNIXCOMM
1

Lisp Library Modules, Medley Release 2.0, UNIXCOMM
UNIXCOMM
1

UNIXCOMM
1


UNIXCOMM	
6

UNIXComm(UNIXCOMM NIL UNIXComm NIL NIL 305) starts up a UNIX process on a Sun Workstation.  UNIXComm, with two functions, provides the user with a stream interface to the SunOS(SUNOS NIL SunOS NIL NIL 305 SUBNAME interface% to) Bourne shell. 
Installation
1

Load UNIXCOMM.LCOM from the library.
User Interface
1

Two functions allow you to open and close SunOS subprocess streams.
(IL:CREATE-PROCESS-STREAM(CREATE-PROCESS-STREAM (Function) NIL NIL NIL 305) STRING)	[Function]
Interfaces to the SunOS system function (see Chapter 3 of the SunOS Reference Manual). This causes a subprocess running the Bourne shell to be spawned; STRING is passed as a command to it.  A bidirectional stream is returned with input reading data which the process writes to its standard output (stdout(STDOUT NIL stdout NIL NIL 305)) and standard error (stderr(STDERR NIL stderr NIL NIL 305)).  Output writes data which the process can read from its standard input (stdin(STDIN NIL stdin NIL NIL 305)).  EOFP does not return a meaningful value for those streams; instead, you must change the default EOF mechanism for the end of stream. 
(IL:UNIX-STREAM-CLOSE(UNIX-STREAM-CLOSE (Function) NIL NIL NIL 305) STREAM)	[Function]
Returns the numeric status value of the process created by IL:CREATE-PROCESS-STREAM if it has exited; otherwise, kills the process. IL:CLOSE(CLOSE (Function) NIL NIL NIL 305) can be used instead of IL:UNIX-STREAM-CLOSE if the process status value is not of interest.
[This page intentionally left blank]
(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "") STARTINGPAGE# 305) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (TEXT NIL NIL (54 54 504 702) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD LEFT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (54 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGV) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE VERSOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "B-" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "B-" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE RECTOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL)))))
3HH
<01>


<01>

T2ll
<01>


<01>
-
<01>

T8<00>
<01>
<00>
<00>
<01>
2HH
<01>



<01>
2HH
<01>


<01>
2
<01>


<01>
5
<01><00>
<01>
-
<01>
<00>
<01>
TF
<01>


<01>
PAGEHEADING	VERSOHEADF
<01>

<01>
PAGEHEADING	RECTOHEADE
<01>



<01>
PAGEHEADINGFOOTINGVE
<01>




<01>
PAGEHEADINGFOOTINGR	HELVETICA
MODERN	HELVETICA	HELVETICACLASSIC

CLASSICCLASSIC
CLASSIC
CLASSICOPTIMA
TITAN
OPTIMA


HRULE.GETFN
CLASSIC


3

HRULE.GETFN
CLASSIC

3
	

HRULE.GETFN
CLASSIC


	


HRULE.GETFN
CLASSIC


HRULE.GETFN
CLASSIC
#
IM.INDEX.GETFN<00>3
IM.INDEX.GETFN


HRULE.GETFN
CLASSIC




HRULE.GETFN
CLASSIC
D
2
IM.INDEX.GETFN
OPTIMA



>D<00>
IM.INDEX.GETFN
IM.INDEX.GETFND
IM.INDEX.GETFN<00>
.
IM.INDEX.GETFN
OPTIMA



;
/
"
IM.INDEX.GETFN

/
	%	
whz<68>