(*
  Title:	OSNames
  $Header: OSNames.def,v 1.1 84/11/30 16:16:32 mjj Exp $
  		Copyright (C) 1984 by Acorn Research Centre
*)

DEFINITION MODULE OSNames;
(* This module hides the mapping from module names to filenames 
for a given system
*)

FROM Strings IMPORT String;
FROM GenGraph IMPORT Class;

EXPORT QUALIFIED
  IsModuleName, GenFileName, GenPathName;

PROCEDURE IsModuleName(
  file: ARRAY OF CHAR; 
  VAR m2mod: ARRAY OF CHAR;
  VAR class: Class): BOOLEAN;
(* Returns TRUE if 'file' is a Modula-2 definition module
or implementation module, placing the module name in 'm2mod' 
and the class in 'class'.
*)

PROCEDURE GenFileName(
  m2mod: String; class: Class;
  VAR file: ARRAY OF CHAR);
(* Performs the reverse operation to ModuleName
*)

PROCEDURE GenPathName(
    dirName, fileName: String;
    VAR pathName: ARRAY OF CHAR);
(* contructs a full pathname, from a directory name
and a filename within a directory
*)

END OSNames.

(*
$Log:	OSNames.def,v $
Revision 1.1  84/11/30  16:16:32  mjj
Initial revision

*)

