/*
 * ProviewR   Open Source Process Control.
 * Copyright (C) 2005-2025 SSAB EMEA AB.
 *
 * This file is part of ProviewR.
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License as
 * published by the Free Software Foundation, either version 2 of
 * the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with ProviewR. If not, see <http://www.gnu.org/licenses/>
 *
 * Linking ProviewR statically or dynamically with other modules is
 * making a combined work based on ProviewR. Thus, the terms and
 * conditions of the GNU General Public License cover the whole
 * combination.
 *
 * In addition, as a special exception, the copyright holders of
 * ProviewR give you permission to, from the build function in the
 * ProviewR Configurator, combine ProviewR with modules generated by the
 * ProviewR PLC Editor to a PLC program, regardless of the license
 * terms of these modules. You may copy and distribute the resulting
 * combined work under the terms of your choice, provided that every
 * copy of the combined work is accompanied by a complete copy of
 * the source code of ProviewR (the version used to produce the
 * combined work), being distributed under the terms of the GNU
 * General Public License plus this exception.
 */
/*		 Preprocessor routines for string operations	    */

#define GetSv_init(tp) tp->str_copy_lock = 1;

#define stosv_exec(obj, in)                                                    \
  lck_LockStr;                                                                 \
  strncpy(obj->ActualValue, in, sizeof(obj->ActualValue));                     \
  obj->ActualValue[sizeof(obj->ActualValue) - 1] = 0;                          \
  lck_UnlockStr;

#define cstosv_exec(obj, in, cond)                                             \
  if (cond) {                                                                  \
    lck_LockStr;                                                               \
    strncpy(obj->ActualValue, in, sizeof(obj->ActualValue));                   \
    obj->ActualValue[sizeof(obj->ActualValue) - 1] = 0;                        \
    lck_UnlockStr;                                                             \
  }

#define GetSi_init(tp) tp->str_copy_lock = 1;

#define stosi_exec(obj, in)                                                    \
  lck_LockStr;                                                                 \
  strncpy(obj->ActualValue, in, sizeof(obj->ActualValue));                     \
  obj->ActualValue[sizeof(obj->ActualValue) - 1] = 0;                          \
  lck_UnlockStr;

#define cstosi_exec(obj, in, cond)                                             \
  if (cond) {                                                                  \
    lck_LockStr;                                                               \
    strncpy(obj->ActualValue, in, sizeof(obj->ActualValue));                   \
    obj->ActualValue[sizeof(obj->ActualValue) - 1] = 0;                        \
    lck_UnlockStr;                                                             \
  }

#define GetSo_init(tp) tp->str_copy_lock = 1;

#define stoso_exec(obj, in)                                                    \
  lck_LockStr;                                                                 \
  strncpy(obj->ActualValue, in, sizeof(obj->ActualValue));                     \
  obj->ActualValue[sizeof(obj->ActualValue) - 1] = 0;                          \
  lck_UnlockStr;

#define cstoso_exec(obj, in, cond)                                             \
  if (cond) {                                                                  \
    lck_LockStr;                                                               \
    strncpy(obj->ActualValue, in, sizeof(obj->ActualValue));                   \
    obj->ActualValue[sizeof(obj->ActualValue) - 1] = 0;                        \
    lck_UnlockStr;                                                             \
  }

#define Strcat_exec(obj, str1, str2)                                           \
  strncpy(obj->ActVal, str1, sizeof(obj->ActVal));                             \
  if (strlen(str1) < sizeof(obj->ActVal))                                      \
    strncat(obj->ActVal, str2, sizeof(obj->ActVal) - strlen(str1));            \
  obj->ActVal[sizeof(obj->ActVal) - 1] = 0;

#define AtoStr_exec(obj, in) sprintf(obj->ActVal, obj->Format, in);

#define DtoStr_exec(obj, in) sprintf(obj->ActVal, obj->Format, in);

#define ItoStr_exec(obj, in) sprintf(obj->ActVal, obj->Format, in);

#define stosp_exec(ut, in, size)                                               \
  lck_LockStr;                                                                 \
  strncpy(ut, in, size);                                                       \
  ut[size - 1] = 0;                                                            \
  lck_UnlockStr;

#define cstosp_exec(ut, in, cond, size)                                        \
  if (cond) {                                                                  \
    lck_LockStr;                                                               \
    strncpy(ut, in, size);                                                     \
    ut[size - 1] = 0;                                                          \
    lck_UnlockStr;                                                             \
  }

#define stonumsp_exec(ut, in, size, num)                                       \
  lck_LockStr;                                                                 \
  strncpy(ut, in, num < size ? num : size);                                    \
  ut[size - 1] = 0;                                                            \
  lck_UnlockStr;

#define cstonumsp_exec(ut, in, cond, size, num)                                \
  if (cond) {                                                                  \
    lck_LockStr;                                                               \
    strncpy(ut, in, num < size ? num : size);                                  \
    ut[size - 1] = 0;                                                          \
    lck_UnlockStr;                                                             \
  }

#define GetSp_exec(object, in)                                                 \
  lck_LockStr;                                                                 \
  strncpy(object->ActVal, in, sizeof(object->ActVal));                         \
  lck_UnlockStr;

#define SubStr_exec(obj, in)                                                   \
  if (obj->Start < strlen(in)) {                                               \
    strncpy(                                                                   \
        obj->ActVal, &in[obj->Start], MIN(obj->Length, sizeof(obj->ActVal)));  \
    obj->ActVal[MIN(obj->Length, sizeof(obj->ActVal) - 1)] = 0;                \
  } else                                                                       \
    strcpy(obj->ActVal, "");

#define GetRefS_exec(obj, value)                                               \
  strncpy(obj->ActVal, value, sizeof(obj->ActVal));

#define StoRefS_exec(out, in, size) strncpy(out, in, size);

#define CStoRefS_exec(out, in, cond, size)                                     \
  if (cond)                                                                    \
    strncpy(out, in, size);