gcc/m2/mc-boot-ch/Gnetwork.h

   1 /* Gnetwork.h provides prototypes to htonl and htons.
   2
   3 Copyright (C) 2016-2022 Free Software Foundation, Inc.
   4 Contributed by Gaius Mulley <gaius@glam.ac.uk>.
   5
   6 This file is part of GNU Modula-2.
   7
   8 GNU Modula-2 is free software; you can redistribute it and/or modify
   9 it under the terms of the GNU General Public License as published by
  10 the Free Software Foundation; either version 3, or (at your option)
  11 any later version.
  12
  13 GNU Modula-2 is distributed in the hope that it will be useful, but
  14 WITHOUT ANY WARRANTY; without even the implied warranty of
  15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16 General Public License for more details.
  17
  18 You should have received a copy of the GNU General Public License
  19 along with GNU Modula-2; see the file COPYING3.  If not see
  20 <http://www.gnu.org/licenses/>.  */
  21
  22 #if !defined(_network_H)
  23 #define _network_H
  24
  25 #ifdef __cplusplus
  26 extern "C" {
  27 #endif
  28 #if !defined(PROC_D)
  29 #define PROC_D
  30 typedef void (*PROC_t) (void);
  31 typedef struct
  32 {
  33   PROC_t proc;
  34 } PROC;
  35 #endif
  36
  37 #if defined(_network_C)
  38 #define EXTERN
  39 #else
  40 #define EXTERN extern
  41 #endif
  42
  43 /* htons returns a network ordered SHORTCARD.  */
  44
  45 EXTERN short unsigned int network_htons (short unsigned int s);
  46
  47 /* htonl returns a network ordered CARDINAL.  */
  48
  49 EXTERN unsigned int network_htonl (unsigned int s);
  50
  51 #ifdef __cplusplus
  52 }
  53 #endif
  54
  55 #undef EXTERN
  56 #endif