GRASS GIS 8 Programmer's Manual  8.5.0dev(2024)-d6dec75dd4
xshiftl.c
Go to the documentation of this file.
1 #include <grass/gis.h>
2 #include <grass/raster.h>
3 #include <grass/calc.h>
4 
5 /****************************************************************
6 shiftl(a,b) = a << b
7 ****************************************************************/
8 
9 int f_shiftl(int argc, const int *argt, void **args)
10 {
11  CELL *res = args[0];
12  CELL *arg1 = args[1];
13  CELL *arg2 = args[2];
14  int i;
15 
16  if (argc < 2)
17  return E_ARG_LO;
18  if (argc > 2)
19  return E_ARG_HI;
20 
21  if (argt[1] != CELL_TYPE || argt[2] != CELL_TYPE)
22  return E_ARG_TYPE;
23 
24  if (argt[0] != CELL_TYPE)
25  return E_RES_TYPE;
26 
27  for (i = 0; i < columns; i++) {
28  if (IS_NULL_C(&arg1[i]) || IS_NULL_C(&arg2[i]))
29  SET_NULL_C(&res[i]);
30  else
31  res[i] = arg1[i] << arg2[i];
32  }
33 
34  return 0;
35 }
@ E_RES_TYPE
Definition: calc.h:14
@ E_ARG_TYPE
Definition: calc.h:13
@ E_ARG_HI
Definition: calc.h:12
@ E_ARG_LO
Definition: calc.h:11
#define IS_NULL_C(x)
Definition: calc.h:26
int columns
Definition: calc.c:11
#define SET_NULL_C(x)
Definition: calc.h:30
int CELL
Definition: gis.h:628
#define CELL_TYPE
Definition: raster.h:11
int f_shiftl(int argc, const int *argt, void **args)
Definition: xshiftl.c:9