text: /*
   * Licensed to the Apache Software Foundation (ASF) under one
   * or more contributor license agreements.  See the NOTICE file
   * distributed with this work for additional information
   * regarding copyright ownership.  The ASF licenses this file
   * to you under the Apache License, Version 2.0 (the
   * "License"); you may not use this file except in compliance
   * with the License.  You may obtain a copy of the License at
   *
   *   http://www.apache.org/licenses/LICENSE-2.0
   *
   * Unless required by applicable law or agreed to in writing,
   * software distributed under the License is distributed on an
   * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
   * KIND, either express or implied.  See the License for the
   * specific language governing permissions and limitations
   * under the License.
   */
  
  /*!
   * \file intrin_rule.h
   * \brief Utility to generate intrinsic rules
   */
  #ifndef TVM_TARGET_INTRIN_RULE_H_
  #define TVM_TARGET_INTRIN_RULE_H_
  
  #include <tvm/runtime/registry.h>
  #include <tvm/tir/builtin.h>
  #include <tvm/tir/expr.h>
  
  #include <string>
  
  namespace tvm {
  namespace codegen {
  namespace intrin {
  using namespace tir;
  
  // Add float suffix to the intrinsics
  struct FloatSuffix {
    std::string operator()(DataType t, std::string name) const {
      if (t == DataType::Float(32)) {
        return name + 'f';
      } else if (t == DataType::Float(64)) {
        return name;
      } else {
        return "";
      }
    }
  };
  
  // Return the intrinsic name
  struct Direct {
    std::string operator()(DataType t, std::string name) const { return name; }
  };
  
  // Call pure extern function.
  template <typename T>
  inline void DispatchPureExtern(const TVMArgs& args, TVMRetValue* rv) {
    PrimExpr e = args[0];
    const CallNode* call = e.as<CallNode>();
    CHECK(call != nullptr);
    // Use string based dispatch to extern for backward compact
    // TODO(tvm-team) replace once the new dispatching system is inplace.
    const OpNode* op = call->op.as<OpNode>();
    CHECK(op != nullptr);
    std::string name = op->name;
    CHECK_EQ(name.substr(0, 4), "tir.");
    name = T()(call->dtype, name.substr(4));
  
    if (name.length() != 0) {
      Array<PrimExpr> new_args = {StringImm(name)};
      for (auto arg : call->args) {
        new_args.push_back(arg);
      }
      *rv = Call(call->dtype, tir::builtin::call_pure_extern(), new_args);
    } else {
      *rv = e;
    }
  }
  
  }  // namespace intrin
  }  // namespace codegen
  }  // namespace tvm
  #endif  // TVM_TARGET_INTRIN_RULE_H_
  