| Current Path : /proc/thread-self/root/usr/include/gap/src/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : //proc/thread-self/root/usr/include/gap/src/sysfiles.h |
/****************************************************************************
**
*W sysfiles.h GAP source Frank Celler
*W & Martin Schönert
*W & Burkhard Höfling (MAC)
**
**
*Y Copyright (C) 1996, Lehrstuhl D für Mathematik, RWTH Aachen, Germany
*Y (C) 1998 School Math and Comp. Sci., University of St Andrews, Scotland
*Y Copyright (C) 2002 The GAP Group
**
** The file 'system.c' declares all operating system dependent functions
** except file/stream handling which is done in "sysfiles.h".
*/
#ifndef GAP_SYSFILES_H
#define GAP_SYSFILES_H
#include "system.h"
/****************************************************************************
**
*F * * * * * * * * * * * * * * dynamic loading * * * * * * * * * * * * * * *
*/
/****************************************************************************
**
*F SyFindOrLinkGapRootFile( <filename>, <result> ) . . . . . . load or link
**
** 'SyFindOrLinkGapRootFile' tries to find a GAP file in the root area and
** check if there is a corresponding statically linked module. If the CRC
** matches the statically linked module is loaded, and <result->module_info>
** is set to point to its StructInitInfo instance.
**
** The function returns:
**
** 0: no file or module was found
** 2: a statically linked module was found
** 3: only a GAP file was found; its path is stored in <result->path>
*/
typedef union {
Char path[GAP_PATH_MAX];
StructInitInfo * module_info;
} TypGRF_Data;
extern Int SyFindOrLinkGapRootFile (
const Char * filename,
TypGRF_Data * result );
/****************************************************************************
**
*F SyGAPCRC( <name> ) . . . . . . . . . . . . . . . . . . crc of a GAP file
**
** This function should be clever and handle white spaces and comments but
** one has to certain that such characters are not ignored in strings.
*/
extern Int4 SyGAPCRC(
const Char * name );
/****************************************************************************
**
*F SyLoadModule( <name>, <func> ) . . . . . . . . . load a compiled module
**
** This function attempts to load a compiled module <name>.
** If successful, it returns 0, and sets <func> to a pointer to the init
** function of the module. In case of an error, <func> is set to 0, and the
** return value indicates which error occurred.
*/
extern Int SyLoadModule( const Char * name, InitInfoFunc * func );
/****************************************************************************
**
*F * * * * * * * * * * finding location of executable * * * * * * * * * * * *
*/
// 'GAPExecLocation' is the path to the directory containing the running GAP
// executable, terminated by a slash, or contains the empty string is it could
// not be detect.
extern char GAPExecLocation[GAP_PATH_MAX];
// Fills in GAPExecLocation. Is called straight after 'main' starts.
void SetupGAPLocation(int argc, char ** argv);
/****************************************************************************
**
*F * * * * * * * * * * * * * * * window handler * * * * * * * * * * * * * * *
*/
/****************************************************************************
**
*F syWinPut( <fid>, <cmd>, <str> ) . . . . send a line to the window handler
**
** 'syWinPut' send the command <cmd> and the string <str> to the window
** handler associated with the file identifier <fid>. In the string <str>
** '@' characters are duplicated, and control characters are converted to
** '@<chr>', e.g., <newline> is converted to '@J'.
*/
extern void syWinPut (
Int fid,
const Char * cmd,
const Char * str );
/****************************************************************************
**
*F SyWinCmd( <str>, <len> ) . . . . . . . . . . . . . execute a window cmd
**
** 'SyWinCmd' send the command <str> to the window handler (<len> is
** ignored). In the string <str> '@' characters are duplicated, and control
** characters are converted to '@<chr>', e.g., <newline> is converted to
** '@J'. Then 'SyWinCmd' waits for the window handlers answer and returns
** that string.
*/
extern const Char * SyWinCmd (
const Char * str,
UInt len );
/****************************************************************************
**
*F * * * * * * * * * * * * * * * * open/close * * * * * * * * * * * * * * * *
*/
extern UInt SySetBuffering(UInt fid);
extern void SyRedirectStderrToStdOut(void);
/****************************************************************************
**
*F SyBufFileno( <fid> ) . . . . . . . . . . . . get operating system fileno
**
** Given a 'syBuf' buffer id, return the associated file descriptor, if any.
*/
extern int SyBufFileno(Int fid);
/****************************************************************************
**
*F SyBufIsTTY( <fid> ) . . . . . . . . . . . . determine if handle for a tty
**
** Given a 'syBuf' buffer id, return 1 if it references a TTY, else 0
*/
extern Int SyBufIsTTY(Int fid);
// HACK: set 'ateof' to true for the given 'syBuf' entry
extern void SyBufSetEOF(Int fid);
/****************************************************************************
**
*F SyFopen( <name>, <mode> ) . . . . . . . . open the file with name <name>
**
** The function 'SyFopen' is called to open the file with the name <name>.
** If <mode> is "r" it is opened for reading, in this case it must exist.
** If <mode> is "w" it is opened for writing, it is created if neccessary.
** If <mode> is "a" it is opened for appending, i.e., it is not truncated.
**
** 'SyFopen' returns an integer used by the scanner to identify the file.
** 'SyFopen' returns -1 if it cannot open the file.
**
** The following standard files names and file identifiers are guaranteed:
** 'SyFopen( "*stdin*", "r")' returns 0 identifying the standard input file.
** 'SyFopen( "*stdout*","w")' returns 1 identifying the standard outpt file.
** 'SyFopen( "*errin*", "r")' returns 2 identifying the brk loop input file.
** 'SyFopen( "*errout*","w")' returns 3 identifying the error messages file.
**
** If it is necessary to adjust the filename this should be done here.
** Right now GAP does not read nonascii files, but if this changes sometimes
** 'SyFopen' must adjust the mode argument to open the file in binary mode.
*/
extern Int SyFopen (
const Char * name,
const Char * mode );
/****************************************************************************
**
*F SyFclose( <fid> ) . . . . . . . . . . . . . . . . . close the file <fid>
**
** 'SyFclose' closes the file with the identifier <fid> which is obtained
** from 'SyFopen'.
*/
extern Int SyFclose (
Int fid );
/****************************************************************************
**
*F SyIsEndOfFile( <fid> ) . . . . . . . . . . . . . . . end of file reached
*/
extern Int SyIsEndOfFile (
Int fid );
/****************************************************************************
**
*F syStartraw( <fid> ) . . . . . . start raw mode on input file <fid>, local
**
** 'syStartraw' tries to put the file with the file identifier <fid> into
** raw mode. I.e., disabling echo and any buffering. It also finds a
** place to put the echoing for 'syEchoch'. If 'syStartraw' succedes it
** returns 1, otherwise, e.g., if the <fid> is not a terminal, it returns 0.
**
** 'syStopraw' stops the raw mode for the file <fid> again, switching it
** back into whatever mode the terminal had before 'syStartraw'.
**
*/
extern UInt syStartraw (
Int fid );
extern void syStopraw (
Int fid );
/****************************************************************************
**
*F SyFgets( <line>, <lenght>, <fid> ) . . . . . get a line from file <fid>
**
** 'SyFgets' is called to read a line from the file with identifier <fid>.
** 'SyFgets' (like 'fgets') reads characters until either <length>-1 chars
** have been read or until a <newline> or an <eof> character is encoutered.
** It retains the '\n' (unlike 'gets'), if any, and appends '\0' to <line>.
** 'SyFgets' returns <line> if any char has been read, otherwise '(char*)0'.
**
** 'SyFgets' allows to edit the input line if the file <fid> refers to a
** terminal with the following commands:
**
** <ctr>-A move the cursor to the beginning of the line.
** <esc>-B move the cursor to the beginning of the previous word.
** <ctr>-B move the cursor backward one character.
** <ctr>-F move the cursor forward one character.
** <esc>-F move the cursor to the end of the next word.
** <ctr>-E move the cursor to the end of the line.
**
** <ctr>-H, <del> delete the character left of the cursor.
** <ctr>-D delete the character under the cursor.
** <ctr>-K delete up to the end of the line.
** <esc>-D delete forward to the end of the next word.
** <esc>-<del> delete backward to the beginning of the last word.
** <ctr>-X delete entire input line, and discard all pending input.
** <ctr>-Y insert (yank) a just killed text.
**
** <ctr>-T exchange (twiddle) current and previous character.
** <esc>-U uppercase next word.
** <esc>-L lowercase next word.
** <esc>-C capitalize next word.
**
** <tab> complete the identifier before the cursor.
** <ctr>-L insert last input line before current character.
** <ctr>-P redisplay the last input line, another <ctr>-P will redisplay
** the line before that, etc. If the cursor is not in the first
** column only the lines starting with the string to the left of
** the cursor are taken. The history is limitied to ~8000 chars.
** <ctr>-N Like <ctr>-P but goes the other way round through the history
** <esc>-< goes to the beginning of the history.
** <esc>-> goes to the end of the history.
** <ctr>-O accept this line and perform a <ctr>-N.
**
** <ctr>-V enter next character literally.
** <ctr>-U execute the next command 4 times.
** <esc>-<num> execute the next command <num> times.
** <esc>-<ctr>-L repaint input line.
**
** Not yet implemented commands:
**
** <ctr>-S search interactive for a string forward.
** <ctr>-R search interactive for a string backward.
** <esc>-Y replace yanked string with previously killed text.
** <ctr>-_ undo a command.
** <esc>-T exchange two words.
*/
#ifdef HAVE_SELECT
extern Obj OnCharReadHookActive; /* if bound the hook is active */
extern Obj OnCharReadHookInFds; /* a list of UNIX file descriptors */
extern Obj OnCharReadHookInFuncs; /* a list of GAP functions */
extern Obj OnCharReadHookOutFds; /* a list of UNIX file descriptors */
extern Obj OnCharReadHookOutFuncs;/* a list of GAP functions with 0 args */
extern Obj OnCharReadHookExcFds; /* a list of UNIX file descriptors */
extern Obj OnCharReadHookExcFuncs;/* a list of GAP functions with 0 args */
#endif
extern Char * SyFgets (
Char * line,
UInt length,
Int fid );
/****************************************************************************
**
*F SyFputs( <line>, <fid> ) . . . . . . . . write a line to the file <fid>
**
** 'SyFputs' is called to put the <line> to the file identified by <fid>.
*/
extern void SyFputs (
const Char * line,
Int fid );
Int SyRead(Int fid, void * ptr, size_t len);
Int SyWrite(Int fid, const void * ptr, size_t len);
Int SyReadWithBuffer(Int fid, void * ptr, size_t len);
/****************************************************************************
**
*F SyIsIntr() . . . . . . . . . . . . . . . . check wether user hit <ctr>-C
**
** 'SyIsIntr' is called from the evaluator at regular intervals to check
** wether the user hit '<ctr>-C' to interrupt a computation.
**
** 'SyIsIntr' returns 1 if the user typed '<ctr>-C' and 0 otherwise.
*/
extern void SyInstallAnswerIntr ( void );
extern UInt SyIsIntr ( void );
/****************************************************************************
**
*F * * * * * * * * * * * * * * * * * output * * * * * * * * * * * * * * * * *
*/
/****************************************************************************
**
*F SyEchoch( <ch>, <fid> ) . . . . . . . . . . . echo a char to <fid>, local
*/
extern Int SyEchoch (
Int ch,
Int fid );
/****************************************************************************
**
*F * * * * * * * * * * * * * * * * * input * * * * * * * * * * * * * * * * *
*/
/****************************************************************************
**
*F SyFtell( <fid> ) . . . . . . . . . . . . . . . . . . position of stream
*/
extern Int SyFtell (
Int fid );
/****************************************************************************
**
*F SyFseek( <fid>, <pos> ) . . . . . . . . . . . seek a position of stream
*/
extern Int SyFseek (
Int fid,
Int pos );
/****************************************************************************
**
*F SyGetch( <fid> ) . . . . . . . . . . . . . . . . . get a char from <fid>
**
** 'SyGetch' reads a character from <fid>, which is switch to raw mode if it
** is *stdin* or *errin*.
*/
extern Int SyGetch (
Int fid );
/****************************************************************************
**
*F * * * * * * * * * * * * system error messages * * * * * * * * * * * * * *
*/
/****************************************************************************
**
*V SyLastErrorNo . . . . . . . . . . . . . . . . . . . . . last error number
*/
extern Int SyLastErrorNo;
/****************************************************************************
**
*V SyLastErrorMessage . . . . . . . . . . . . . . . . . last error message
*/
extern Char SyLastErrorMessage [ 1024 ];
/****************************************************************************
**
*F SyClearErrorNo() . . . . . . . . . . . . . . . . . clear error messages
*/
extern void SyClearErrorNo ( void );
/****************************************************************************
**
*F SySetErrorNo() . . . . . . . . . . . . . . . . . . . . set error message
*/
extern void SySetErrorNo ( void );
/****************************************************************************
**
*F * * * * * * * * * * * * * file and execution * * * * * * * * * * * * * * *
*/
/****************************************************************************
**
*F SyExecuteProcess( <dir>, <prg>, <in>, <out>, <args> ) . . . . new process
**
** Start <prg> in directory <dir> with standard input connected to <in>,
** standard output connected to <out> and arguments. No path search is
** performed, the return value of the process is returned if the operation
** system supports such a concept.
*/
extern UInt SyExecuteProcess (
Char * dir,
Char * prg,
Int in,
Int out,
Char * args[] );
/****************************************************************************
**
*F SyIsExistingFile( <name> ) . . . . . . . . . . . does file <name> exists
**
** 'SyIsExistingFile' returns 1 if the file <name> exists and 0 otherwise.
** It does not check if the file is readable, writable or excuteable. <name>
** is a system dependent description of the file.
*/
extern Int SyIsExistingFile(
const Char * name );
/****************************************************************************
**
*F SyIsReadableFile( <name> ) . . . . . . . . . . . is file <name> readable
**
** 'SyIsReadableFile' returns 0 if the file <name> is readable and
** -1 otherwise. <name> is a system dependent description of the file.
*/
extern Int SyIsReadableFile(
const Char * name );
/****************************************************************************
**
*F SyIsWritable( <name> ) . . . . . . . . . . . is the file <name> writable
**
** 'SyIsWriteableFile' returns 1 if the file <name> is writable and 0
** otherwise. <name> is a system dependent description of the file.
*/
extern Int SyIsWritableFile(
const Char * name );
/****************************************************************************
**
*F SyIsExecutableFile( <name> ) . . . . . . . . . is file <name> executable
**
** 'SyIsExecutableFile' returns 1 if the file <name> is executable and 0
** otherwise. <name> is a system dependent description of the file.
*/
extern Int SyIsExecutableFile(
const Char * name );
/****************************************************************************
**
*F SyIsDirectoryPath( <name> ) . . . . . . . . . is file <name> a directory
**
** 'SyIsDirectoryPath' returns 1 if the file <name> is a directory and 0
** otherwise. <name> is a system dependent description of the file.
*/
extern Int SyIsDirectoryPath (
const Char * name );
/****************************************************************************
**
*F SyRemoveFile( <name> ) . . . . . . . . . . . . . . . remove file <name>
*/
extern Int SyRemoveFile (
const Char * name );
/****************************************************************************
**
*F SyMkDir( <name> ) . . . . . . . . . . . . . . . remove file <name>
*/
extern Int SyMkdir (
const Char * name );
/****************************************************************************
**
*F SyRmdir( <name> ) . . . . . . . . . . . . . . . remove directory <name>
*/
extern Int SyRmdir (
const Char * name );
/****************************************************************************
**
*F SyIsDir( <name> ) . . . . . . . . . . . . . test if something is a dir
**
** Returns 'F' for a regular file, 'L' for a symbolic link and 'D'
** for a real directory, 'C' for a character device, 'B' for a block
** device 'P' for a FIFO (named pipe) and 'S' for a socket.
*/
extern Obj SyIsDir (
const Char * name );
/****************************************************************************
**
*F SyFindGapRootFile( <filename>, <buffer>, <bufferSize> ) . . . find file in system area
**
** <buffer> must point to a buffer of at least <bufferSize> characters.
** The returned pointer will either be NULL, or <buffer>
*/
extern Char *SyFindGapRootFile(const Char *filename, Char *buffer, size_t bufferSize);
/****************************************************************************
**
*F * * * * * * * * * * * * * * * directories * * * * * * * * * * * * * * * *
*/
/****************************************************************************
**
*F SyTmpname() . . . . . . . . . . . . . . . . . return a temporary filename
**
** 'SyTmpname' creates and returns a new temporary name.
*/
extern Char * SyTmpname ( void );
/****************************************************************************
**
*F SyTmpdir( <hint> ) . . . . . . . . . . . . return a temporary directory
**
** 'SyTmpdir' returns the directory for a temporary directory. This is
** guaranteed to be newly created and empty immediately after the call to
** 'SyTmpdir'. <hint> should be used by 'SyTmpdir' to construct the name of
** the directory (but 'SyTmpdir' is free to use only a part of <hint>), and
** must be a string of at most 8 alphanumerical characters. Under UNIX this
** would usually represent '/usr/tmp/<hint>_<proc_id>_<cnt>/', e.g.,
** '/usr/tmp/guava_17188_1/'.
*/
extern Char * SyTmpdir ( const Char * hint );
/****************************************************************************
**
*F void getwindowsize( void ) . probe the OS for the window size and
** set SyNrRows and SyNrCols accordingly
*/
extern void getwindowsize( void );
/***************************************************************************
**
*F HasAvailableBytes( <fid> ) returns positive if a subsequent read to <fid>
** will read at least one byte without blocking
*/
extern Int HasAvailableBytes( UInt fid );
extern Char *SyFgetsSemiBlock (
Char * line,
UInt length,
Int fid);
/***************************************************************************
**
*F SyReadStringFid( <fid> )
** - read file given by <fid> into a string
*F SyReadStringFile( <fid> )
** - read file given by <fid> into a string, only rely on read()
*F SyReadStringFileStat( <fid> )
** - read file given by <fid> into a string, use stat() to determine
** size of file before reading. This does not work for pipes
*/
extern Obj SyReadStringFid(Int fid);
extern Obj SyReadStringFile(Int fid);
extern Obj SyReadStringFileGeneric(Int fid);
#if !defined(SYS_IS_64_BIT) && defined(__GNU_LIBRARY__)
#define USE_CUSTOM_MEMMOVE 1
#endif
#ifdef USE_CUSTOM_MEMMOVE
// Internal implementation of memmove, to avoid issues with glibc
void * SyMemmove(void * dst, const void * src, size_t size);
#else
#define SyMemmove memmove
#endif
/****************************************************************************
**
*F * * * * * * * * * * * * * initialize module * * * * * * * * * * * * * * *
*/
// This function is called by 'InitSystem', before the usual module
// initialization.
extern void InitSysFiles(void);
/****************************************************************************
**
*F InitInfoSysFiles() . . . . . . . . . . . . . . . table of init functions
*/
StructInitInfo * InitInfoSysFiles ( void );
#endif // GAP_SYSFILES_H