DEFINITION MODULE wrapc ; (* Author : Gaius Mulley Title : wrapc Date : 93 Description: Provides an Modula-2 interface to the c library functionality. Last update: 20/1/96 *) FROM SYSTEM IMPORT ADDRESS ; EXPORT QUALIFIED strtime, filesize, getrand, getusername, filemtime, getnameuidgid ; (* strtime - returns the C string for the equivalent C asctime function. *) PROCEDURE strtime () : ADDRESS ; (* filesize - returns the size of a file, f. *) PROCEDURE filesize (f: INTEGER) : CARDINAL ; (* filemtime - returns the mtime of a file, f. *) PROCEDURE filemtime (f: INTEGER) : INTEGER ; (* getrand - returns a random number between 0..n-1 *) PROCEDURE getrand (n: INTEGER) : INTEGER ; (* getusername - returns a C string describing the current user. *) PROCEDURE getusername () : ADDRESS ; (* getnameuidgid - fills in the, uid, and, gid, which represents user, name. *) PROCEDURE getnameuidgid (name: ADDRESS; VAR uid, gid: INTEGER) ; END wrapc.