Vector.cpp 2.0 KB
Newer Older
Y
Yu Yang 已提交
1 2 3 4 5 6 7 8 9 10 11 12 13 14
/* Copyright (c) 2016 PaddlePaddle Authors. All Rights Reserve.

Licensed 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. */

Y
Yu Yang 已提交
15 16 17
#include "PaddleCAPI.h"
#include "PaddleCAPIPrivate.h"

Y
Yu Yang 已提交
18 19
using paddle::capi::cast;

Y
Yu Yang 已提交
20
extern "C" {
Y
Yu Yang 已提交
21

Y
Yu Yang 已提交
22
PD_IVector PDIVecCreateNone() { return new paddle::capi::CIVector(); }
Y
Yu Yang 已提交
23

Y
Yu Yang 已提交
24
PD_IVector PDIVectorCreate(int* array, uint64_t size, bool copy, bool useGPU) {
L
livc 已提交
25 26
  auto ptr = new paddle::capi::CIVector();
  if (copy) {
Y
Yu Yang 已提交
27
    ptr->vec = paddle::IVector::create(size, useGPU);
L
livc 已提交
28 29
    ptr->vec->copyFrom(array, size);
  } else {
Y
Yu Yang 已提交
30
    ptr->vec = paddle::IVector::create(array, size, useGPU);
L
livc 已提交
31
  }
Y
Yu Yang 已提交
32
  return ptr;
Y
Yu Yang 已提交
33 34
}

Y
Yu Yang 已提交
35
PD_Error PDIVecDestroy(PD_IVector ivec) {
Y
Yu Yang 已提交
36 37 38
  if (ivec == nullptr) return kPD_NULLPTR;
  delete cast<paddle::capi::CIVector>(ivec);
  return kPD_NO_ERROR;
Y
Yu Yang 已提交
39 40
}

Y
Yu Yang 已提交
41
PD_Error PDIVectorGet(PD_IVector ivec, int** buffer) {
Y
Yu Yang 已提交
42 43 44 45 46
  if (ivec == nullptr || buffer == nullptr) return kPD_NULLPTR;
  auto v = cast<paddle::capi::CIVector>(ivec);
  if (v->vec == nullptr) return kPD_NULLPTR;
  *buffer = v->vec->getData();
  return kPD_NO_ERROR;
Y
Yu Yang 已提交
47
}
Y
Yu Yang 已提交
48

Y
Yu Yang 已提交
49
PD_Error PDIVectorResize(PD_IVector ivec, uint64_t size) {
L
livc 已提交
50 51 52 53 54
  if (ivec == nullptr) return kPD_NULLPTR;
  auto v = cast<paddle::capi::CIVector>(ivec);
  if (v->vec == nullptr) return kPD_NULLPTR;
  v->vec->resize(size);
  return kPD_NO_ERROR;
Y
Yu Yang 已提交
55 56
}

Y
Yu Yang 已提交
57
PD_Error PDIVectorGetSize(PD_IVector ivec, uint64_t* size) {
L
livc 已提交
58 59 60 61 62
  if (ivec == nullptr) return kPD_NULLPTR;
  auto v = cast<paddle::capi::CIVector>(ivec);
  if (v->vec == nullptr) return kPD_NULLPTR;
  *size = v->vec->getSize();
  return kPD_NO_ERROR;
Y
Yu Yang 已提交
63
}
Y
Yu Yang 已提交
64
}