TransferableGraphUtils.getObjects2 for fixing not-found handling
[simantics/platform.git] / bundles / org.simantics.scl.compiler / src / org / simantics / scl / compiler / internal / header / ModuleHeader.java
1 package org.simantics.scl.compiler.internal.header;
2
3 import java.util.List;
4
5 import org.simantics.scl.compiler.elaboration.expressions.EVar;
6 import org.simantics.scl.compiler.elaboration.expressions.annotations.AnnotationUtils;
7 import org.simantics.scl.compiler.elaboration.expressions.records.FieldAssignment;
8 import org.simantics.scl.compiler.errors.ErrorLog;
9
10 public class ModuleHeader {
11     public String classLoader;
12     public long classLoaderLocation;
13     public String defaultLocalName;
14     public List<EVar> export;
15     // Features
16     public boolean chr;
17     public boolean fields;
18     
19     private void read(ErrorLog errorLog, FieldAssignment[] fields) {
20         for(FieldAssignment assignment : fields)
21             switch(assignment.name) {
22             case "bundle":
23                 if(assignment.value == null)
24                     errorLog.log(assignment.location, "Property classLoader needs to be given a string value.");
25                 else {
26                     classLoader = AnnotationUtils.extractString(assignment.value);
27                     if(classLoader == null)
28                         errorLog.log(assignment.value.location, "Expected bundle name here.");
29                     else 
30                         classLoaderLocation = assignment.location;
31                 }
32                 break;
33             case "export":
34                 if(assignment.value == null)
35                     errorLog.log(assignment.location, "Property export needs to be given a string list value.");
36                 else {
37                     export = AnnotationUtils.extractIdentifierList(assignment.value);
38                     if(export == null)
39                         errorLog.log(assignment.value.location, "Expected a list of exported items.");
40                 }
41                 break;
42             case "defaultLocalName":
43                 if(assignment.value == null)
44                     errorLog.log(assignment.location, "Property defaultLocalName needs to be given a string value.");
45                 else {
46                         defaultLocalName = AnnotationUtils.extractString(assignment.value);
47                         if(defaultLocalName == null)
48                                 errorLog.log(assignment.value.location, "Expected string here.");
49                 }
50                 break;
51             case "fields":
52                 if(assignment.value != null)
53                     errorLog.log(assignment.location, "No value expected for property fields.");
54                 this.fields = true;
55                 break;
56             case "chr":
57                 if(assignment.value != null)
58                     errorLog.log(assignment.location, "No value expected for property chr.");
59                 this.chr = true;
60                 break;                
61             default:
62                 errorLog.logWarning(assignment.location, "Unknown module header field was skipped.");
63             }
64     }
65     
66     public static ModuleHeader process(ErrorLog errorLog, FieldAssignment[] fields) {
67         if(fields == null)
68             return null;
69         ModuleHeader result = new ModuleHeader();
70         result.read(errorLog, fields);
71         return result;
72     }
73 }