import org.simantics.scl.compiler.errors.ErrorLog;
public class ModuleHeader {
+ public String deprecated;
public String classLoader;
public long classLoaderLocation;
public String defaultLocalName;
public List<EVar> export;
+
// Features
public boolean chr;
public boolean fields;
+ public boolean edo;
private void read(ErrorLog errorLog, FieldAssignment[] fields) {
for(FieldAssignment assignment : fields)
break;
case "export":
if(assignment.value == null)
- errorLog.log(assignment.location, "Property export needs to be given a string list value.");
+ errorLog.log(assignment.location, "Property export needs to be given a list of exported symbols.");
else {
export = AnnotationUtils.extractIdentifierList(assignment.value);
if(export == null)
- errorLog.log(assignment.value.location, "Expected a list of exported items.");
+ errorLog.log(assignment.value.location, "Expected a list of exported symbols.");
+ }
+ break;
+ case "features":
+ if(assignment.value == null)
+ errorLog.log(assignment.location, "Property features needs to be given a list of features (identifiers).");
+ else {
+ List<EVar> features = AnnotationUtils.extractIdentifierList(assignment.value);
+ if(features == null)
+ errorLog.log(assignment.value.location, "Expected a list of features (identifiers).");
+ for(EVar feature : features)
+ handleFeature(errorLog, feature);
}
break;
case "defaultLocalName":
- if(assignment.value == null)
+ if(assignment.value == null)
errorLog.log(assignment.location, "Property defaultLocalName needs to be given a string value.");
- else {
- defaultLocalName = AnnotationUtils.extractString(assignment.value);
- if(defaultLocalName == null)
- errorLog.log(assignment.value.location, "Expected string here.");
- }
- break;
- case "fields":
- if(assignment.value != null)
- errorLog.log(assignment.location, "No value expected for property fields.");
- this.fields = true;
+ else {
+ defaultLocalName = AnnotationUtils.extractString(assignment.value);
+ if(defaultLocalName == null)
+ errorLog.log(assignment.value.location, "Expected string here.");
+ }
+ break;
+ case "deprecated":
+ if(assignment.value == null)
+ deprecated = "";
+ else {
+ deprecated = AnnotationUtils.extractString(assignment.value);
+ if(deprecated == null)
+ errorLog.log(assignment.value.location, "Expected string here.");
+ }
break;
- case "chr":
- if(assignment.value != null)
- errorLog.log(assignment.location, "No value expected for property chr.");
- this.chr = true;
- break;
default:
errorLog.logWarning(assignment.location, "Unknown module header field was skipped.");
}
}
+ private void handleFeature(ErrorLog errorLog, EVar feature) {
+ switch(feature.name) {
+ case "chr": chr = true; break;
+ case "fields": fields = true; break;
+ case "edo": edo = true; break;
+ default:
+ errorLog.log(feature.location, "Unknown feature " + feature.name + ".");
+ }
+ }
+
public static ModuleHeader process(ErrorLog errorLog, FieldAssignment[] fields) {
if(fields == null)
return null;