gcc/testsuite/gm2/examples/map/pass/RoomMap.def

   1 (* Copyright (C) 2005-2024 Free Software Foundation, Inc. *)
   2 (* This file is part of GNU Modula-2.
   3
   4 GNU Modula-2 is free software; you can redistribute it and/or modify it under
   5 the terms of the GNU General Public License as published by the Free
   6 Software Foundation; either version 3, or (at your option) any later
   7 version.
   8
   9 GNU Modula-2 is distributed in the hope that it will be useful, but WITHOUT ANY
  10 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  11 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  12 for more details.
  13
  14 You should have received a copy of the GNU General Public License along
  15 with gm2; see the file COPYING.  If not, write to the Free Software
  16 Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *)
  17 DEFINITION MODULE RoomMap ;
  18
  19 (*
  20    Title      : RoomMap
  21    Author     : Gaius Mulley
  22    Date       : 20/8/88
  23    LastEdit   : 20/8/88
  24    System     : LOGITECH MODULA-2/86
  25    Description: Generates rooms from a list of boxes.
  26 *)
  27
  28 EXPORT QUALIFIED MaxNoOfRooms,
  29                  MaxNoOfTreasures,
  30                  Rooms,
  31                  NoOfRooms,
  32                  DoorStatus,
  33                  Treasure, TreasureInfo, Door, Line,
  34                  CreateRoomMap ;
  35
  36 CONST
  37    MaxNoOfRooms           = 350 ;  (* An upper limit *)
  38    WallsPerRoom           =   8 ;  (* An upper limit *)
  39    DoorsPerRoom           =   6 ;  (* An upper limit *)
  40    MaxNoOfTreasures       =  15 ;  (* An upper limit *)
  41
  42 TYPE
  43    Line         = RECORD
  44                      X1 : CARDINAL ;
  45                      Y1 : CARDINAL ;
  46                      X2 : CARDINAL ;
  47                      Y2 : CARDINAL
  48                   END ;
  49
  50    DoorStatus   = (Open, Closed, Secret) ;
  51
  52    Door         = RECORD
  53                      Position    : Line ;
  54                      StateOfDoor : DoorStatus ;
  55                      LeadsTo     : CARDINAL
  56                   END ;
  57
  58    TreasureInfo = RECORD
  59                      Xpos         : CARDINAL ;
  60                      Ypos         : CARDINAL ;
  61                      Rm           : CARDINAL ;
  62                      Tweight      : CARDINAL ;
  63                      TreasureName : ARRAY [0..12] OF CHAR
  64                   END ;
  65
  66    Room         = RECORD
  67                      RoomNo      : CARDINAL ;
  68                      NoOfWalls   : CARDINAL ;
  69                      NoOfDoors   : CARDINAL ;
  70                      Walls       : ARRAY [1..WallsPerRoom] OF Line ;
  71                      Doors       : ARRAY [1..DoorsPerRoom] OF Door ;
  72                      (* Treasures   : BITSET ; *)
  73                   END ;
  74
  75
  76
  77 VAR
  78    NoOfRooms       : CARDINAL ;
  79    Treasure        : ARRAY [1..MaxNoOfTreasures] OF TreasureInfo ;
  80    Rooms           : ARRAY [1..MaxNoOfRooms] OF Room ;
  81
  82
  83 (*
  84    CreateRoomMap - creates rooms from a list of boxes in BoxMap.
  85 *)
  86
  87 PROCEDURE CreateRoomMap ;
  88
  89
  90
  91 END RoomMap.