@@ -0,0 +1,706 @@
+/*%0A * This file is released under terms of BSD license%0A * See LICENSE file for more information%0A */%0Apackage claw.tatsu.xcodeml.xnode.fortran;%0A%0Aimport java.util.HashMap;%0Aimport java.util.Map;%0A%0A/**%0A * Intrinsic function name as enumeration.%0A *%0A * @author clementval%0A */%0Apublic enum Xintrinsic %7B%0A  PRESENT;%0A%0A  private static final Map%3CString, Xintrinsic%3E _stringToEnum = new HashMap%3C%3E();%0A%0A  static %7B%0A    for(Xintrinsic value : values()) %7B%0A      _stringToEnum.put(value.toString().toLowerCase(), value);%0A    %7D%0A  %7D%0A%0A  public static Xintrinsic fromString(String value) %7B%0A    return (value == null %7C%7C !_stringToEnum.containsKey(value.toLowerCase())) ?%0A        null : _stringToEnum.get(value.toLowerCase());%0A  %7D%0A%7D%0A

Add enum holding intrinsic function name (need to be populated)