
(********************************************************************)
(*                                                                  *)
(*  filebits.s7i  File mode bits used by archive file systems.      *)
(*  Copyright (C) 2020  Thomas Mertes                               *)
(*                                                                  *)
(*  This file is part of the Seed7 Runtime Library.                 *)
(*                                                                  *)
(*  The Seed7 Runtime Library is free software; you can             *)
(*  redistribute it and/or modify it under the terms of the GNU     *)
(*  Lesser General Public License as published by the Free Software *)
(*  Foundation; either version 2.1 of the License, or (at your      *)
(*  option) any later version.                                      *)
(*                                                                  *)
(*  The Seed7 Runtime Library 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 Lesser General Public License for more    *)
(*  details.                                                        *)
(*                                                                  *)
(*  You should have received a copy of the GNU Lesser General       *)
(*  Public License along with this program; if not, write to the    *)
(*  Free Software Foundation, Inc., 51 Franklin Street,             *)
(*  Fifth Floor, Boston, MA  02110-1301, USA.                       *)
(*                                                                  *)
(********************************************************************)


include "bin32.s7i";


const bin32: MODE_FILE_TYPE_MASK is bin32(8#170000); # Mask for the file type bits.
const bin32: MODE_FILE_REGULAR   is bin32(8#100000);
const bin32: MODE_FILE_DIR       is bin32(8#040000);
const bin32: MODE_FILE_CHAR      is bin32(8#020000);
const bin32: MODE_FILE_BLOCK     is bin32(8#060000);
const bin32: MODE_FILE_FIFO      is bin32(8#010000);
const bin32: MODE_FILE_SYMLINK   is bin32(8#120000);
const bin32: MODE_FILE_SOCKET    is bin32(8#140000);

const bin32: MODE_SUID_BIT             is bin32(8#004000);
const bin32: MODE_SGID_BIT             is bin32(8#002000);
const bin32: MODE_STICKY_BIT           is bin32(8#001000);

const bin32: MODE_FILE_PERMISSION_MASK is bin32(8#000777);
