From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1499) id 8F08E383F097; Sun, 11 Dec 2022 15:09:57 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 8F08E383F097 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1670771397; bh=UuWOb8wEd+RmVsokTMLkco80qzyJuj4r5oT6jHoWGjA=; h=From:To:Subject:Date:From; b=V2gHoB4K4FBbOOHzwAGgTqXu62XRBNl+pje9voTROvAbwH0OAzD87vHa1e9XLYn6B IvBe+nQ6pEN7nnnEt+5IxBs7e/qdMgv+gH/e+BlKSp4ZsNRZ+WCp3MK8uD1DKkW8cd 2s1T4lHcHbtmGlD4KXn0Rfo6enFQnxLpS24QPIXY= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit From: Gaius Mulley To: gcc-cvs@gcc.gnu.org Subject: [gcc/devel/modula-2] Remove ServerSocket.def and ServerSocket.mod X-Act-Checkin: gcc X-Git-Author: Gaius Mulley X-Git-Refname: refs/heads/devel/modula-2 X-Git-Oldrev: 74d1529a3636ad3ea0ff24aa5bba8320fc550c01 X-Git-Newrev: 5a359399d8f7f2c6fc22d69fffd428a75999e200 Message-Id: <20221211150957.8F08E383F097@sourceware.org> Date: Sun, 11 Dec 2022 15:09:57 +0000 (GMT) List-Id: https://gcc.gnu.org/g:5a359399d8f7f2c6fc22d69fffd428a75999e200 commit 5a359399d8f7f2c6fc22d69fffd428a75999e200 Author: Gaius Mulley Date: Sun Dec 11 15:07:58 2022 +0000 Remove ServerSocket.def and ServerSocket.mod Remove the two source files. gcc/m2/ChangeLog: * gm2-libs-iso/ServerSocket.def: Remove file. * gm2-libs-iso/ServerSocket.mod: Remove file. Signed-off-by: Gaius Mulley Diff: --- gcc/m2/gm2-libs-iso/ServerSocket.def | 84 ------------------------------------ gcc/m2/gm2-libs-iso/ServerSocket.mod | 83 ----------------------------------- 2 files changed, 167 deletions(-) diff --git a/gcc/m2/gm2-libs-iso/ServerSocket.def b/gcc/m2/gm2-libs-iso/ServerSocket.def deleted file mode 100644 index c207d781467..00000000000 --- a/gcc/m2/gm2-libs-iso/ServerSocket.def +++ /dev/null @@ -1,84 +0,0 @@ -(* ServerSocket.def provides the ability to open a socket as a Channel. - -Copyright (C) 2008-2021 Free Software Foundation, Inc. -Contributed by Gaius Mulley . - -This file is part of GNU Modula-2. - -GNU Modula-2 is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 3, or (at your option) -any later version. - -GNU Modula-2 is distributed in the hope that it will be useful, but -WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -General Public License for more details. - -Under Section 7 of GPL version 3, you are granted additional -permissions described in the GCC Runtime Library Exception, version -3.1, as published by the Free Software Foundation. - -You should have received a copy of the GNU General Public License and -a copy of the GCC Runtime Library Exception along with this program; -see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -. *) - -DEFINITION MODULE ServerSocket ; - -(* - Title : ServerSocket - Author : Gaius Mulley - System : GNU Modula-2 - Date : Fri Oct 3 14:30:52 2008 - Revision : $Version$ - Description: provides a mechanism to open a server socket - as an ISO Modula-2 channel. -*) - -FROM IOChan IMPORT ChanId ; -FROM ChanConsts IMPORT FlagSet, OpenResults ; - - -(* - OpenSocketBindListen - opens a TCP server socket. The socket - is bound to, port, and will allow, listen, - pending connections. The result of these - combined operations is returned in, res. -*) - -PROCEDURE OpenSocketBindListen (VAR socketid: ChanId; - port: CARDINAL; listen: CARDINAL; - VAR res: OpenResults) ; - - -(* - OpenAccept - attempts to open a new channel whose - input/output capability is determined by, - flags. The result of this attempt is returned - in res. -*) - -PROCEDURE OpenAccept (VAR cid: ChanId; socketid: ChanId; - flags: FlagSet; VAR res: OpenResults) ; - - -(* - Close - if the channel identified by cid was not opened as - a server socket stream, the exception wrongDevice is - raised; otherwise closes the channel, and assigns - the value identifying the invalid channel to cid. -*) - -PROCEDURE Close (VAR cid: ChanId) ; - - -(* - IsSocket - tests if the channel identified by cid is open as - a server socket stream. -*) - -PROCEDURE IsSocket (cid: ChanId) : BOOLEAN ; - - -END ServerSocket. diff --git a/gcc/m2/gm2-libs-iso/ServerSocket.mod b/gcc/m2/gm2-libs-iso/ServerSocket.mod deleted file mode 100644 index 1ba393a786b..00000000000 --- a/gcc/m2/gm2-libs-iso/ServerSocket.mod +++ /dev/null @@ -1,83 +0,0 @@ -(* ServerSocket.mod implements the ability to open a socket as a Channel. - -Copyright (C) 2008-2021 Free Software Foundation, Inc. -Contributed by Gaius Mulley . - -This file is part of GNU Modula-2. - -GNU Modula-2 is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 3, or (at your option) -any later version. - -GNU Modula-2 is distributed in the hope that it will be useful, but -WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -General Public License for more details. - -Under Section 7 of GPL version 3, you are granted additional -permissions described in the GCC Runtime Library Exception, version -3.1, as published by the Free Software Foundation. - -You should have received a copy of the GNU General Public License and -a copy of the GCC Runtime Library Exception along with this program; -see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -. *) - -IMPLEMENTATION MODULE ServerSocket ; - - -(* - OpenSocketBindListen - opens a TCP server socket. The socket - is bound to, port, and will allow, listen, - pending connections. The result of these - combined operations is returned in, res. -*) - -PROCEDURE OpenSocketBindListen (VAR socketid: ChanId; - port: CARDINAL; listen: CARDINAL; - VAR res: OpenResults) ; -BEGIN - -END OpenSocketBindListen ; - - -(* - OpenAccept - attempts to open a new channel whose - input/output capability is determined by, - flags. The result of this attempt is returned - in res. -*) - -PROCEDURE OpenAccept (VAR cid: ChanId; socketid: ChanId; - flags: FlagSet; VAR res: OpenResults) ; -BEGIN - -END OpenAccept ; - - -(* - Close - if the channel identified by cid was not opened as - a server socket stream, the exception wrongDevice is - raised; otherwise closes the channel, and assigns - the value identifying the invalid channel to cid. -*) - -PROCEDURE Close (VAR cid: ChanId) ; -BEGIN - -END Close ; - - -(* - IsSocket - tests if the channel identified by cid is open as - a server socket stream. -*) - -PROCEDURE IsSocket (cid: ChanId) : BOOLEAN ; -BEGIN - RETURN TRUE -END IsSocket ; - - -END ServerSocket.