source: git/modules/tools/typmap.h @ dcafdb

spielwiese
Last change on this file since dcafdb was 6c8772, checked in by Kai Krüger <krueger@…>, 25 years ago
Major rewrite of modgen git-svn-id: file:///usr/local/Singular/svn/trunk@2972 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 1.4 KB
Line 
1/*
2 *
3 */
4
5#ifndef _TYPMAP_H
6#define _TYPMAP_H
7char type_conv[MAX_TOK][32];
8
9void init_type_conv() 
10{
11  strcpy(type_conv[NONE], "none");
12  strcpy(type_conv[NONE], "void");
13  strcpy(type_conv[INT_CMD], "int");
14  strcpy(type_conv[RING_CMD], "ring");
15  strcpy(type_conv[QRING_CMD], "ring");
16  strcpy(type_conv[POLY_CMD], "poly");
17  strcpy(type_conv[NUMBER_CMD], "number");
18  strcpy(type_conv[MODUL_CMD], "ideal");
19  strcpy(type_conv[VECTOR_CMD], "ideal");
20  strcpy(type_conv[IDEAL_CMD], "ideal");
21  strcpy(type_conv[MAP_CMD], "map");
22  strcpy(type_conv[MATRIX_CMD], "matrix");
23  strcpy(type_conv[STRING_CMD], "char *");
24  strcpy(type_conv[INTMAT_CMD], "intvec *");
25  strcpy(type_conv[INTVEC_CMD], "intvec *");
26  strcpy(type_conv[LIST_CMD], "lists");
27  strcpy(type_conv[LINK_CMD], "si_link");
28  strcpy(type_conv[PACKAGE_CMD], "package");
29  strcpy(type_conv[PROC_CMD], "procinfo *");
30/*
31  strcpy(type_conv[], "");
32  strcpy(type_conv[], "");
33  strcpy(type_conv[], "");
34  strcpy(type_conv[], "");
35  strcpy(type_conv[], "");
36  strcpy(type_conv[], "");
37  strcpy(type_conv[], "");
38*/
39  printf("[%d] %s\n", INT_CMD, type_conv[INT_CMD]);
40  printf("[%d] %s\n", MODUL_CMD, type_conv[MODUL_CMD]);
41  printf("[%d] %s\n", STRING_CMD, type_conv[STRING_CMD]);
42  printf("[%d] %s\n", LINK_CMD, type_conv[LINK_CMD]);
43  printf("[%d] %s\n", PACKAGE_CMD, type_conv[PACKAGE_CMD]);
44  /**/
45}
46
47
48#endif /* _TYPMAP_H */
Note: See TracBrowser for help on using the repository browser.