GAP 4.8.9 installation with standard packages -- copy to your CoCalc project to get it

1
#ifdef __cplusplus
2
extern "C" {
3
#endif
4

5

6
#ifndef _GETPUT_H_
7
#define _GETPUT_H_
8

9
#ifndef _CARAT_TYPEDEF_H_
10
#include"typedef.h"
11
#endif
12

13
#ifdef __STDC__
14
/*-------------------------------------------------------------*\
15
| FILE: get_bravais.c 
16
\*-------------------------------------------------------------*/
17
extern bravais_TYP *get_bravais (char *file_name);
18

19
/*-------------------------------------------------------------*\
20
| FILE: get_mat.c 
21
\*-------------------------------------------------------------*/
22
extern matrix_TYP *fget_mat (FILE *infile);
23
extern matrix_TYP *get_mat (char *file_name);
24
extern matrix_TYP **mget_mat (char *file_name, int *anz);
25
extern matrix_TYP **fmget_mat (FILE *infile, int *anz);
26

27
/*-------------------------------------------------------------*\
28
| FILE: put_bravais.c 
29
\*-------------------------------------------------------------*/
30
extern void fput_bravais(FILE *outfile, bravais_TYP *G,  char *comment);
31
extern void put_bravais(bravais_TYP *G, char *filename, char *comment);
32

33
/*-------------------------------------------------------------*\
34
| FILE: put_mat.c 
35
\*-------------------------------------------------------------*/
36
#define PM_RATIONAL_BIT 0
37
#define PM_SHORTCUT_BIT 1
38
#define PM_RATIONAL (1UL << PM_RATIONAL_BIT)
39
#define PM_SHORTCUT (1UL << PM_SHORTCUT_BIT)
40

41
extern void put_mat ( matrix_TYP *mat, char file_name[], char comment[],
42
     unsigned long options);
43
extern void fput_mat (FILE *outfile, matrix_TYP *mat, char comment[],
44
     unsigned long options);
45

46
/*-------------------------------------------------------------*\
47
| FILE: put_order.c 
48
\*-------------------------------------------------------------*/
49
extern void fput_order( FILE *outfile,  int *divisors,  int ord);
50

51
/*-------------------------------------------------------------*\
52
| FILE: read_header.c 
53
\*-------------------------------------------------------------*/
54
extern char **FILENAMES;
55
extern int FILEANZ;
56
extern char *OPTIONS;
57
extern int *OPTIONNUMBERS;
58
extern int OPTIONANZ;
59

60
extern void read_header( int argc, char *argv[]);
61
extern int is_option( char c);
62
extern int optionnumber(char c);
63

64
#else
65
/*-------------------------------------------------------------*\
66
| FILE: get_bravais.c 
67
\*-------------------------------------------------------------*/
68
extern bravais_TYP *get_bravais ();
69

70
/*-------------------------------------------------------------*\
71
| FILE: get_mat.c 
72
\*-------------------------------------------------------------*/
73
extern matrix_TYP *fget_mat ();
74
extern matrix_TYP *get_mat ();
75
extern matrix_TYP **mget_mat ();
76
extern matrix_TYP **fmget_mat ();
77

78
/*-------------------------------------------------------------*\
79
| FILE: put_bravais.c 
80
\*-------------------------------------------------------------*/
81
extern void fput_bravais();
82
extern void put_bravais();
83

84
/*-------------------------------------------------------------*\
85
| FILE: put_mat.c 
86
\*-------------------------------------------------------------*/
87
#define PM_RATIONAL_BIT 0
88
#define PM_SHORTCUT_BIT 1
89
#define PM_RATIONAL (1UL << PM_RATIONAL_BIT)
90
#define PM_SHORTCUT (1UL << PM_SHORTCUT_BIT)
91

92
extern void put_mat ();
93
extern void fput_mat ();
94

95
/*-------------------------------------------------------------*\
96
| FILE: put_order.c 
97
\*-------------------------------------------------------------*/
98
extern void fput_order();
99

100
/*-------------------------------------------------------------*\
101
| FILE: read_header.c 
102
\*-------------------------------------------------------------*/
103
extern char **FILENAMES;
104
extern int FILEANZ;
105
extern char *OPTIONS;
106
extern int *OPTIONNUMBERS;
107
extern int OPTIONANZ;
108

109
extern void read_header();
110
extern int is_option();
111
extern int optionnumber();
112

113
#endif
114
#endif
115

116

117
#ifdef __cplusplus
118
}
119
#endif
120

121

122

123