コード例 #1
0
ファイル: GHCSystemLibrary.java プロジェクト: prark/eclipsefp
 public String getText() {
   ICompilerManager man = CompilerManager.getInstance();
   IHsImplementation impl = man.getCurrentHsImplementation();
   String name = UITexts.explorer_libraries_noimpl;
   if (impl != null) {
     name = impl.getName();
   }
   return NLS.bind(UITexts.explorer_libraries, name);
 }
コード例 #2
0
  public void contributeOnNewProject(final PackageDescription pd) {
    IHsImplementation impl = CompilerManager.getInstance().getCurrentHsImplementation();
    if (impl != null && impl.getType().equals(HsImplementationType.GHC)) {
      List<String> ls = new CompilerParams().construct(impl.getVersion());
      StringBuilder sbOptions = new StringBuilder();
      StringBuilder sbExtensions = new StringBuilder();
      for (String s : ls) {
        if (s != null) {
          if (s.startsWith("-X")) { // $NON-NLS-1$
            if (sbExtensions.length() > 0) {
              sbExtensions.append(" "); // $NON-NLS-1$
            }
            sbExtensions.append(s.substring(2));
          } else {
            if (sbOptions.length() > 0) {
              sbOptions.append(" "); // $NON-NLS-1$
            }

            sbOptions.append(s);
          }
        }
      }
      String valOptions = sbOptions.toString();
      String valExtensions = sbExtensions.toString();
      for (PackageDescriptionStanza pds : pd.getStanzas()) {
        if (CabalSyntax.SECTION_EXECUTABLE.equals(pds.getType())
            || CabalSyntax.SECTION_LIBRARY.equals(pds.getType())
            || CabalSyntax.SECTION_TESTSUITE.equals(pds.getType())) {
          if (valOptions.length() > 0) {
            pds.update(CabalSyntax.FIELD_GHC_OPTIONS, valOptions);
          }
          if (valExtensions.length() > 0) {
            pds.update(CabalSyntax.FIELD_EXTENSIONS, valExtensions);
          }
        }
      }
    }
  }