public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
From: Gaius Mulley <gaius@gcc.gnu.org>
To: gcc-cvs@gcc.gnu.org
Subject: [gcc/devel/modula-2] Remove ServerSocket.def and ServerSocket.mod
Date: Sun, 11 Dec 2022 15:09:57 +0000 (GMT) [thread overview]
Message-ID: <20221211150957.8F08E383F097@sourceware.org> (raw)
https://gcc.gnu.org/g:5a359399d8f7f2c6fc22d69fffd428a75999e200
commit 5a359399d8f7f2c6fc22d69fffd428a75999e200
Author: Gaius Mulley <gaiusmod2@gmail.com>
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 <gaiusmod2@gmail.com>
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 <gaius.mulley@southwales.ac.uk>.
-
-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
-<http://www.gnu.org/licenses/>. *)
-
-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 <gaius.mulley@southwales.ac.uk>.
-
-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
-<http://www.gnu.org/licenses/>. *)
-
-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.
reply other threads:[~2022-12-11 15:09 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20221211150957.8F08E383F097@sourceware.org \
--to=gaius@gcc.gnu.org \
--cc=gcc-cvs@gcc.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).