/[ascend]/trunk/base/generic/compiler/interface.c
ViewVC logotype

Diff of /trunk/base/generic/compiler/interface.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 398 by johnpye, Wed Dec 7 15:44:43 2005 UTC revision 399 by johnpye, Fri Mar 31 08:52:57 2006 UTC
# Line 37  Line 37 
37  #if (defined(__alpha) || defined(sun))  #if (defined(__alpha) || defined(sun))
38  #include <malloc.h>  #include <malloc.h>
39  #endif  #endif
40  #include "utilities/ascConfig.h"  #include <utilities/ascConfig.h>
41  #include "utilities/ascMalloc.h"  #include <utilities/ascMalloc.h>
42  #include "utilities/ascPanic.h"  #include <utilities/ascPanic.h>
43  #include "utilities/ascSignal.h"  #include <utilities/ascSignal.h>
44  #include "general/pool.h"  #include <general/pool.h>
45  #include "general/list.h"  #include <general/list.h>
46  #include "general/dstring.h"  #include <general/dstring.h>
47  #include "compiler/compiler.h"  #include "compiler.h"
48  #include "compiler/symtab.h"  #include "symtab.h"
49  #include "compiler/notate.h"  #include "notate.h"
50  #include "compiler/braced.h"  #include "braced.h"
51  #include "compiler/ascCompiler.h"  #include "ascCompiler.h"
52  #include "compiler/commands.h"  #include "commands.h"
53  #include "compiler/termsetup.h"  #include "termsetup.h"
54  #include "compiler/fractions.h"  #include "fractions.h"
55  #include "compiler/dimen.h"  #include "dimen.h"
56  #include "compiler/functype.h"  #include "functype.h"
57  #include "compiler/types.h"  #include "types.h"
58  #include "compiler/instance_enum.h"  #include "instance_enum.h"
59  #include "compiler/cmpfunc.h"  #include "cmpfunc.h"
60  #include "compiler/visitinst.h"  #include "visitinst.h"
61  #include "compiler/name.h"  #include "name.h"
62  #include "compiler/bit.h"  #include "bit.h"
63  #include "compiler/instance_io.h"  #include "instance_io.h"
64  #include "compiler/module.h"  #include "module.h"
65  #include "compiler/library.h"  #include "library.h"
66  #include "compiler/prototype.h"  #include "prototype.h"
67  #include "compiler/child.h"  #include "child.h"
68  #include "compiler/type_desc.h"  #include "type_desc.h"
69  #include "compiler/type_descio.h"  #include "type_descio.h"
70  #include "compiler/name.h"      /* these three included to do */  #include "name.h"       /* these three included to do */
71  #include "compiler/stattypes.h"  #include "stattypes.h"
72  #include "compiler/statement.h"     /* Interactive processing */  #include "statement.h"      /* Interactive processing */
73  #include "compiler/vlist.h"  #include "vlist.h"
74  #include "compiler/vlistio.h"  #include "vlistio.h"
75  #include "compiler/slist.h"  #include "slist.h"
76  #include "compiler/statio.h"  #include "statio.h"
77  #include "compiler/setinstval.h"  #include "setinstval.h"
78  #include "compiler/extinst.h"  #include "extinst.h"
79  #include "compiler/arrayinst.h"  #include "arrayinst.h"
80  #include "compiler/instquery.h"  #include "instquery.h"
81  #include "compiler/copyinst.h"  #include "copyinst.h"
82  #include "compiler/parentchild.h"  #include "parentchild.h"
83  #include "compiler/mergeinst.h"  #include "mergeinst.h"
84  #include "compiler/refineinst.h"  #include "refineinst.h"
85  #include "compiler/mathinst.h"  #include "mathinst.h"
86  #include "compiler/atomvalue.h"  #include "atomvalue.h"
87  #include "compiler/destroyinst.h"  #include "destroyinst.h"
88  #include "compiler/instance_name.h"  #include "instance_name.h"
89  #include "compiler/instantiate.h"  #include "instantiate.h"
90  #include "compiler/value_type.h"  #include "value_type.h"
91  #include "compiler/watchpt.h"  #include "watchpt.h"
92  #include "compiler/proc.h"  #include "proc.h"
93  #include "compiler/initialize.h"  #include "initialize.h"
94  #include "compiler/check.h"  #include "check.h"
95  #include "compiler/pending.h"  #include "pending.h"
96  #include "compiler/license.h"  #include "license.h"
97  #include "compiler/extfunc.h"  #include "extfunc.h"
98  #include "compiler/packages.h"  #include "packages.h"
99  #include "compiler/find.h"  #include "find.h"
100  #include "compiler/relation_type.h"  #include "relation_type.h"
101  #include "compiler/relation.h"  #include "relation.h"
102  #include "compiler/relation_util.h"  #include "relation_util.h"
103  #include "compiler/relation_io.h"  #include "relation_io.h"
104  #include "compiler/logical_relation.h"  #include "logical_relation.h"
105  #include "compiler/logrelation.h"  #include "logrelation.h"
106  #include "compiler/logrel_util.h"  #include "logrel_util.h"
107  #include "compiler/logrel_io.h"  #include "logrel_io.h"
108  #include "compiler/setinstval.h"  #include "setinstval.h"
109  #include "compiler/syntax.h"  #include "syntax.h"
110  #include "compiler/anontype.h"  #include "anontype.h"
111  #include "compiler/actype.h"           /*  required for isidchar()  */  #include "actype.h"           /*  required for isidchar()  */
112  #include "compiler/simlist.h"  #include "simlist.h"
113  #include "compiler/tmpnum.h"  #include "tmpnum.h"
114  #include "compiler/bintoken.h"  #include "bintoken.h"
115  #include "compiler/interface.h"  #include "interface.h"
116    
117  #ifndef lint  #ifndef lint
118  static CONST char InterfaceRCSid[]="$Id: interface.c,v 1.53 1998/06/17 15:33:21 mthomas Exp $";  static CONST char InterfaceRCSid[]="$Id: interface.c,v 1.53 1998/06/17 15:33:21 mthomas Exp $";
# Line 727  void LeavesInstance(union argument *args Line 727  void LeavesInstance(union argument *args
727        PRINTF("Incorrect instance.\n");        PRINTF("Incorrect instance.\n");
728      }      }
729    }    }
730    if (i == NULL ||    if (i == NULL ||
731        (InstanceKind(i)!= ARRAY_INT_INST &&        (InstanceKind(i)!= ARRAY_INT_INST &&
732         InstanceKind(i)!= ARRAY_ENUM_INST)) {         InstanceKind(i)!= ARRAY_ENUM_INST)) {
733      Bell();      Bell();
734      PRINTF("Incorrect nonarray instance.\n");      PRINTF("Incorrect nonarray instance.\n");
735    }    }
736    ArrayVisitLocalLeaves(i,TestLeaf);    ArrayVisitLocalLeaves(i,TestLeaf);
737  }  }
738    
739  static  static
# Line 1033  void TypeNotes(union argument *args, int Line 1033  void TypeNotes(union argument *args, int
1033    struct TypeDescription *desc;    struct TypeDescription *desc;
1034    struct gl_list_t *nlist;    struct gl_list_t *nlist;
1035    if (argc==1) {    if (argc==1) {
1036      nlist =      nlist =
1037        GetNotes(LibraryNote(),GetName(args[0].desc),NOTESWILD,NOTESWILD,NOTESWILD,nd_empty);        GetNotes(LibraryNote(),GetName(args[0].desc),NOTESWILD,NOTESWILD,NOTESWILD,nd_empty);
1038      WriteNotes(nlist);      WriteNotes(nlist);
1039      gl_destroy(nlist);      gl_destroy(nlist);
# Line 1341  void RequireModule(union argument *args, Line 1341  void RequireModule(union argument *args,
1341      GetDefinitionList();      GetDefinitionList();
1342    }    }
1343    ascfree((char *)args[0].id); /* this id was made my strcpy, not addsymbol */    ascfree((char *)args[0].id); /* this id was made my strcpy, not addsymbol */
1344  }    }
1345    
1346    
1347  #define NEWINSTTEST 1  #define NEWINSTTEST 1
Legend:
Removed from v.398  
changed lines
  Added in v.399
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22