From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 5 May 1992 06:34:14 +0000 (+0000)
Subject: Split into prosterm.c and prospty.c.
X-Git-Tag: 20090517-FFI~9438
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=38223d2d9a895d438dc9905633b7bbaa5ae4acb7;p=mit-scheme.git

Split into prosterm.c and prospty.c.
---

diff --git a/v7/src/microcode/prosterm.c b/v7/src/microcode/prosterm.c
index 22b426a6d..c98732062 100644
--- a/v7/src/microcode/prosterm.c
+++ b/v7/src/microcode/prosterm.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosterm.c,v 1.11 1992/01/20 17:31:47 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosterm.c,v 1.12 1992/05/05 06:34:14 jinx Exp $
 
 Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
@@ -38,10 +38,8 @@ MIT in each case. */
 #include "prims.h"
 #include "osterm.h"
 #include "osio.h"
-
-extern Tchannel EXFUN (arg_channel, (int));
 
-static Tchannel
+Tchannel
 DEFUN (arg_terminal, (argument_number), int argument_number)
 {
   Tchannel channel = (arg_channel (argument_number));
@@ -51,15 +49,6 @@ DEFUN (arg_terminal, (argument_number), int argument_number)
   return (channel);
 }
 
-static Tchannel
-DEFUN (arg_pty_master, (arg), unsigned int arg)
-{
-  Tchannel channel = (arg_channel (1));
-  if ((OS_channel_type (channel)) != channel_type_pty_master)
-    error_bad_range_arg (1);
-  return (channel);
-}
-
 DEFINE_PRIMITIVE ("TERMINAL-GET-ISPEED", Prim_terminal_get_ispeed, 1, 1, 0)
 {
   PRIMITIVE_HEADER (1);
@@ -192,85 +181,9 @@ DEFINE_PRIMITIVE ("OS-JOB-CONTROL?", Prim_os_job_control_p, 0, 0, 0)
   PRIMITIVE_HEADER (0);
   PRIMITIVE_RETURN (BOOLEAN_TO_OBJECT (OS_job_control_p ()));
 }
-
+
 DEFINE_PRIMITIVE ("HAVE-PTYS?", Prim_have_ptys_p, 0, 0, 0)
 {
   PRIMITIVE_HEADER (0);
   PRIMITIVE_RETURN (BOOLEAN_TO_OBJECT (OS_have_ptys_p ()));
 }
-
-DEFINE_PRIMITIVE ("OPEN-PTY-MASTER", Prim_open_pty_master, 0, 0,
-  "Open a PTY master, returning the master's channel and the slave's name.\n\
-Returns a vector #(CHANNEL MASTER-NAME SLAVE-NAME).")
-{
-  PRIMITIVE_HEADER (0);
-  {
-    Tchannel channel;
-    CONST char * master_name;
-    CONST char * slave_name =
-      (OS_open_pty_master ((&channel), (&master_name)));
-    transaction_begin ();
-    OS_channel_close_on_abort (channel);
-    {
-      SCHEME_OBJECT vector = (allocate_marked_vector (TC_VECTOR, 3, 1));
-      VECTOR_SET (vector, 0, (long_to_integer (channel)));
-      VECTOR_SET (vector, 1,
-		  (char_pointer_to_string ((unsigned char *) master_name)));
-      VECTOR_SET (vector, 2,
-		  (char_pointer_to_string ((unsigned char *) slave_name)));
-      transaction_commit ();
-      PRIMITIVE_RETURN (vector);
-    }
-  }
-}
-
-DEFINE_PRIMITIVE ("PTY-MASTER-SEND-SIGNAL", Prim_pty_master_send_signal, 2, 2,
-  "Send a signal to PTY-MASTER; second arg says which one.")
-{
-  PRIMITIVE_HEADER (2);
-  OS_pty_master_send_signal ((arg_pty_master (1)),
-			     (arg_nonnegative_integer (2)));
-  PRIMITIVE_RETURN (UNSPECIFIC);
-}
-
-DEFINE_PRIMITIVE ("PTY-MASTER-KILL", Prim_pty_master_kill, 1, 1, 0)
-{
-  PRIMITIVE_HEADER (1);
-  OS_pty_master_kill (arg_pty_master (1));
-  PRIMITIVE_RETURN (UNSPECIFIC);
-}
-
-DEFINE_PRIMITIVE ("PTY-MASTER-STOP", Prim_pty_master_stop, 1, 1, 0)
-{
-  PRIMITIVE_HEADER (1);
-  OS_pty_master_stop (arg_pty_master (1));
-  PRIMITIVE_RETURN (UNSPECIFIC);
-}
-
-DEFINE_PRIMITIVE ("PTY-MASTER-CONTINUE", Prim_pty_master_continue, 1, 1, 0)
-{
-  PRIMITIVE_HEADER (1);
-  OS_pty_master_continue (arg_pty_master (1));
-  PRIMITIVE_RETURN (UNSPECIFIC);
-}
-
-DEFINE_PRIMITIVE ("PTY-MASTER-INTERRUPT", Prim_pty_master_interrupt, 1, 1, 0)
-{
-  PRIMITIVE_HEADER (1);
-  OS_pty_master_interrupt (arg_pty_master (1));
-  PRIMITIVE_RETURN (UNSPECIFIC);
-}
-
-DEFINE_PRIMITIVE ("PTY-MASTER-QUIT", Prim_pty_master_quit, 1, 1, 0)
-{
-  PRIMITIVE_HEADER (1);
-  OS_pty_master_quit (arg_pty_master (1));
-  PRIMITIVE_RETURN (UNSPECIFIC);
-}
-
-DEFINE_PRIMITIVE ("PTY-MASTER-HANGUP", Prim_pty_master_hangup, 1, 1, 0)
-{
-  PRIMITIVE_HEADER (1);
-  OS_pty_master_hangup (arg_pty_master (1));
-  PRIMITIVE_RETURN (UNSPECIFIC);
-}