gstreamer/gst-libs/gst/gl/gstglshadervariables.c

1483 lines
33 KiB
C
Raw Normal View History

/*
* GStreamer
* Copyright (C) 2009 Luc Deschenaux <luc.deschenaux@freesurf.ch>
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Library General Public
* License as published by the Free Software Foundation; either
* version 2 of the License, or (at your option) any later version.
*
* This library 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
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* License along with this library; if not, write to the
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
* Boston, MA 02111-1307, USA.
*/
#include "gstglshadervariables.h"
#if !defined(strtok_r) && defined(G_OS_WIN32)
#if defined(_MSC_VER)
#define strtok_r strtok_s
#else
#define strtok_r(s,d,p) strtok(s,d)
#endif
#endif
#define trimleft(s,chars) while(s[0] && strchr(chars,s[0])) ++s;
#define trimright(s,chars) { \
char *end; \
end=s+strlen(s)-1; \
while(end>=s && strchr(chars,end[0])) (end--)[0]=0; \
}
char *gst_gl_shadervariable_datatype[] = {
"bool",
"int",
"uint",
"float",
"vec2",
"vec3",
"vec4",
"bvec2",
"bvec3",
"bvec4",
"ivec2",
"ivec3",
"ivec4",
"uvec2",
"uvec3",
"uvec4",
"mat2",
"mat3",
"mat4",
"mat2x2",
"mat2x3",
"mat2x4",
"mat3x2",
"mat3x3",
"mat3x4",
"mat4x2",
"mat4x3",
"mat4x4",
0
};
typedef enum
{
_bool,
_int,
_uint,
_float,
_vec2,
_vec3,
_vec4,
_bvec2,
_bvec3,
_bvec4,
_ivec2,
_ivec3,
_ivec4,
_uvec2,
_uvec3,
_uvec4,
_mat2,
_mat3,
_mat4,
_mat2x2,
_mat2x3,
_mat2x4,
_mat3x2,
_mat3x3,
_mat3x4,
_mat4x2,
_mat4x3,
_mat4x4,
_datatypecount
} gst_gl_shadervariable_datatypeindex;
typedef struct gst_gl_shadervariable_desc
{
gst_gl_shadervariable_datatypeindex type;
char *name;
int arraysize;
int count;
void *value;
} gst_gl_shadervariable_desc;
char *parsename (char **varname, int *arraysize, char **saveptr);
char *parsevalue (char *value, char *_saveptr,
struct gst_gl_shadervariable_desc *ret);
char *vec_parsevalue (int n, char *value, char *_saveptr,
struct gst_gl_shadervariable_desc *ret);
char *bvec_parsevalue (int n, char *value, char *_saveptr,
struct gst_gl_shadervariable_desc *ret);
char *ivec_parsevalue (int n, char *value, char *_saveptr,
struct gst_gl_shadervariable_desc *ret);
char *uvec_parsevalue (int n, char *value, char *_saveptr,
struct gst_gl_shadervariable_desc *ret);
char *mat_parsevalue (int n, int m, char *value, char *_saveptr,
struct gst_gl_shadervariable_desc *ret);
/*
Function:
gst_gl_shadervariables_parse
Description:
Parse uniform variables declarations and set their values in
the specified shader.
Arguments:
GstGLShader *shader:
Shader in which variables are to be set.
char *variables:
The text to be parsed.
int (*_setvariable)():
Defaults to gst_gl_shadervariable_set().
You can specify here a user function for managing the
parsed variable description.
return values:
0: No error.
-1: Error.
*/
int
gst_gl_shadervariables_parse (GstGLShader * shader, char *variables,
int (*_setvariable) (GstGLShader * shader,
struct gst_gl_shadervariable_desc * v))
{
char *p = 0;
char *p0;
char *e;
char e1 = 0;
char *t = 0;
char *varname;
char *vartype;
char *varvalue;
int arraysize = 0;
char *saveptr = variables;
int line = 1;
char *lim;
int i;
int len;
struct gst_gl_shadervariable_desc ret;
if (!_setvariable) {
_setvariable = gst_gl_shadervariable_set;
}
if (!variables)
return 0;
p0 = variables;
trimright (p0, " \t\n");
lim = variables + strlen (variables);
e = strchr (p0, ';');
while (p0 < lim) {
if (!e) {
if (p0[0])
goto parse_error;
break;
}
e1 = e[1];
e[1] = 0;
p = g_strdup (p0);
e[1] = e1;
trimright (p, " \t");
trimleft (p, " \t\n");
t = strtok_r (p, " \t", &saveptr);
if (!t)
goto parse_error;
trimleft (t, " \t");
trimright (t, " \t\n");
if (t[0]) {
if (!strcmp (t, "const")) {
t = strtok_r (0, " \t", &saveptr);
if (!t)
goto parse_error;
trimleft (t, " \t");
if (!t[0])
goto parse_error;
}
// parse data type
for (i = 0; i < _datatypecount; ++i) {
if (!strcmp (t, gst_gl_shadervariable_datatype[i])) {
ret.type = (gst_gl_shadervariable_datatypeindex) i;
break;
}
}
if (i == _datatypecount)
goto parse_error;
vartype = g_strdup (t);
GST_INFO ("vartype : '%s'\n", vartype);
trimleft (saveptr, " \t");
t = saveptr;
if (*saveptr == '=')
goto parse_error;
// parse variable name and array size
t = parsename (&varname, &arraysize, &saveptr);
if (t)
goto parse_error;
trimright (varname, " \t");
GST_INFO ("varname : '%s'\n", varname);
GST_INFO ("arraysize : %d\n", arraysize);
// check type cast after assignement operator
t = strtok_r (0, "(", &saveptr);
if (!t)
goto parse_error;
trimleft (t, " \t");
trimright (t, " \t");
if (arraysize) {
char *s = g_malloc (strlen (vartype) + 32);
sprintf (s, "%s[%d]", vartype, arraysize);
if (strcmp (t, s))
goto parse_error;
} else {
if (strcmp (t, vartype))
goto parse_error;
}
// extract variable value
t = strtok_r (0, ";", &saveptr);
if (!t)
goto parse_error;
trimleft (t, " \t");
trimright (t, " \t");
if (!t[0])
goto parse_error;
if (*(saveptr - 2) != ')')
goto parse_error;
*(saveptr - 2) = 0;
if (!t[0])
goto parse_error;
varvalue = g_strdup (t);
GST_INFO ("value: %s\n\n", varvalue);
t = saveptr;
if (t[0])
goto parse_error;
// parse variable value
len = strlen (varvalue);
ret.name = varname;
ret.arraysize = arraysize;
t = parsevalue (varvalue, saveptr, &ret);
if (t) {
t -= len;
goto parse_error;
}
// set variable value
_setvariable (shader, &ret);
fflush (0);
}
// Tell me why we cannot free(p) whithout segfault.
//g_free(p);
p0 = e + 1;
++line;
e = strchr (p0, ';');
}
return 0;
parse_error:
if (!t) {
t = saveptr;
}
if (!e) {
t = p = p0;
} else {
e[1] = 0;
trimleft (p0, " \t\n");
GST_ERROR ("\n%s", p0);
e[1] = e1;
for (i = 0; i < t - p; ++i)
fprintf (stderr, " ");
fprintf (stderr, "^\n");
}
GST_ERROR ("parse error on line %d, position %ld (%s)", line, (glong) (t - p),
t);
return -1;
}
/*
Function:
parsename
Description:
Parse text between the data type and the assignement operator
(ie: variable name and array size).
Arguments:
char **varname:
Text to parse.
int *arraysize:
Pointer to array size. Set to 0 if no array.
char **saveptr:
Address of char *saveptr for strtok_r()
return values:
0: No error.
!0: Pointer to parse error.
*/
char *
parsename (char **varname, int *arraysize, char **saveptr)
{
char *t;
char *i;
gint j;
*arraysize = 0;
t = strtok_r (0, "=", saveptr);
if (!t)
return *saveptr;
trimleft (t, " \t");
trimright (t, " \t");
i = strchr (t, '[');
if (!i) { // not an array
if (!t[0])
return t;
for (j = 0; j < (gint) strlen (t); ++j) {
if (!strchr (VALID_VARNAME_CHARS, t[j]))
return t + j;
}
*varname = g_strdup (t);
} else { // is an array
char *i2;
char *c;
i2 = strchr (i + 1, ']');
if (!i2)
return i + 1;
*i = 0;
if (!t[0])
return t;
for (j = 0; j < (gint) strlen (t); ++j) {
if (!strchr (VALID_VARNAME_CHARS, t[j]))
return t;
}
*varname = g_strdup (t);
*i = '[';
for (c = i + 1; c < i2; ++c)
if (*c < '0' || *c > '9')
return c;
*i2 = 0;
*arraysize = atoi (i + 1);
*i2 = ']';
if (!*arraysize)
return i + 1;
}
return 0;
}
/*
Function:
gst_gl_shadervariable_set
Description:
Set variable value in the specified shader
Arguments:
GstGlShader *shader:
The shader where to set the variable.
struct gst_gl_shadervariable_desc *ret:
The variable description.
return values:
0: No error.
!0: Variable type unknown/incorrect.
*/
int
gst_gl_shadervariable_set (GstGLShader * shader,
struct gst_gl_shadervariable_desc *ret)
{
switch (ret->type) {
case _bool:
if (ret->arraysize) {
gst_gl_shader_set_uniform_1iv (shader, ret->name, ret->count,
(int *) ret->value);
} else {
gst_gl_shader_set_uniform_1i (shader, ret->name,
((int *) ret->value)[0]);
}
break;
case _int:
if (ret->arraysize) {
gst_gl_shader_set_uniform_1iv (shader, ret->name, ret->count,
(int *) ret->value);
} else {
gst_gl_shader_set_uniform_1i (shader, ret->name,
((int *) ret->value)[0]);
}
break;
case _uint:
if (ret->arraysize) {
gst_gl_shader_set_uniform_1iv (shader, ret->name, ret->count,
(int *) ret->value);
} else {
gst_gl_shader_set_uniform_1i (shader, ret->name,
((unsigned int *) ret->value)[0]);
}
break;
case _float:
if (ret->arraysize) {
gst_gl_shader_set_uniform_1fv (shader, ret->name, ret->count,
(float *) ret->value);
} else {
gst_gl_shader_set_uniform_1f (shader, ret->name,
((float *) ret->value)[0]);
}
break;
case _vec2:
if (ret->arraysize) {
gst_gl_shader_set_uniform_2fv (shader, ret->name, ret->count,
(float *) ret->value);
} else {
gst_gl_shader_set_uniform_2f (shader, ret->name,
((float *) ret->value)[0], ((float *) ret->value)[1]);
}
break;
case _bvec2:
case _ivec2:
case _uvec2:
if (ret->arraysize) {
gst_gl_shader_set_uniform_2iv (shader, ret->name, ret->count,
(int *) ret->value);
} else {
gst_gl_shader_set_uniform_2i (shader, ret->name,
((int *) ret->value)[0], ((int *) ret->value)[1]);
}
break;
case _vec3:
if (ret->arraysize) {
gst_gl_shader_set_uniform_3fv (shader, ret->name, ret->count,
(float *) ret->value);
} else {
gst_gl_shader_set_uniform_3f (shader, ret->name,
((float *) ret->value)[0], ((float *) ret->value)[1],
((float *) ret->value)[2]);
}
break;
case _bvec3:
case _ivec3:
case _uvec3:
if (ret->arraysize) {
gst_gl_shader_set_uniform_3iv (shader, ret->name, ret->count,
(int *) ret->value);
} else {
gst_gl_shader_set_uniform_3i (shader, ret->name,
((int *) ret->value)[0], ((int *) ret->value)[1],
((int *) ret->value)[2]);
}
break;
case _vec4:
if (ret->arraysize) {
gst_gl_shader_set_uniform_4fv (shader, ret->name, ret->count,
(float *) ret->value);
} else {
gst_gl_shader_set_uniform_4f (shader, ret->name,
((float *) ret->value)[0], ((float *) ret->value)[1],
((float *) ret->value)[2], ((float *) ret->value)[3]);
}
break;
case _bvec4:
case _ivec4:
case _uvec4:
if (ret->arraysize) {
gst_gl_shader_set_uniform_4iv (shader, ret->name, ret->count,
(int *) ret->value);
} else {
gst_gl_shader_set_uniform_4i (shader, ret->name,
((int *) ret->value)[0], ((int *) ret->value)[1],
((int *) ret->value)[2], ((int *) ret->value)[3]);
}
break;
case _mat2:
case _mat2x2:
gst_gl_shader_set_uniform_matrix_2fv (shader, ret->name, ret->count, 0,
(float *) ret->value);
break;
case _mat2x3:
gst_gl_shader_set_uniform_matrix_2x3fv (shader, ret->name, ret->count, 0,
(float *) ret->value);
break;
case _mat3x2:
gst_gl_shader_set_uniform_matrix_3x2fv (shader, ret->name, ret->count, 0,
(float *) ret->value);
break;
case _mat2x4:
gst_gl_shader_set_uniform_matrix_2x4fv (shader, ret->name, ret->count, 0,
(float *) ret->value);
break;
case _mat4x2:
gst_gl_shader_set_uniform_matrix_4x2fv (shader, ret->name, ret->count, 0,
(float *) ret->value);
break;
case _mat3:
case _mat3x3:
gst_gl_shader_set_uniform_matrix_3fv (shader, ret->name, ret->count, 0,
(float *) ret->value);
break;
case _mat3x4:
gst_gl_shader_set_uniform_matrix_3x4fv (shader, ret->name, ret->count, 0,
(float *) ret->value);
break;
case _mat4x3:
gst_gl_shader_set_uniform_matrix_4x3fv (shader, ret->name, ret->count, 0,
(float *) ret->value);
break;
case _mat4:
case _mat4x4:
gst_gl_shader_set_uniform_matrix_4fv (shader, ret->name, ret->count, 0,
(float *) ret->value);
break;
default:
return -1;
}
return 0;
}
/*
Function:
parsevalue
Description:
Parse text coming after the assignement operator for scalar
variables or call the appropriate subroutine to parse vector
variables.
Arguments:
char *value:
Text to be parsed.
char *_saveptr:
Index of end of value.
struct gst_gl_shadervariable_desc *ret:
The variable description to be completed
At input time it contains the data type index (type),
variable name (name) and array size (arraysize).
return values:
0: No error.
!0: Pointer to parse error.
*/
char *
parsevalue (char *value, char *_saveptr, struct gst_gl_shadervariable_desc *ret)
{
int i, j;
char *t;
char *saveptr = value;
switch (ret->type) {
case _bool:
ret->count = (ret->arraysize) ? ret->arraysize : 1;
if (ret->count == 1) { // no array
if (strcmp (value, "true") && strcmp (value, "false"))
return _saveptr;
ret->value = (void *) g_malloc (sizeof (int));
((int *) ret->value)[0] = strcmp (value, "false");
} else { // array
ret->value = g_malloc (sizeof (int *) * ret->count);
t = strtok_r (value, ",", &saveptr);
for (i = 0; i < ret->count; ++i) {
if (!t)
return _saveptr + (saveptr - value);
trimleft (t, " \t");
trimright (t, " \t");
if (strcmp (t, "true") && strcmp (t, "false"))
return _saveptr + (saveptr - t);
((int *) ret->value)[i] = strcmp (t, "false");
t = strtok_r (0, ",", &saveptr);
}
}
break;
case _int:
ret->count = (ret->arraysize) ? ret->arraysize : 1;
if (ret->count == 1) {
for (j = 0; j < (gint) strlen (value); ++j) {
if (!strchr ("-0123456789", value[j]))
return _saveptr + j;
}
ret->value = (void *) g_malloc (sizeof (int));
*((int *) ret->value) = atoi (value);
} else {
ret->value = g_malloc (sizeof (int) * ret->count);
t = strtok_r (value, ",", &saveptr);
for (i = 0; i < ret->count; ++i) {
if (!t)
return _saveptr + (saveptr - value);
trimleft (t, " \t");
trimright (t, " \t");
if (!t[0])
return _saveptr + (saveptr - t);
for (j = 0; j < (gint) strlen (value); ++j) {
if (!strchr ("-0123456789", value[j]))
return _saveptr + (saveptr - t) + j;
}
((int *) ret->value)[i] = atoi (t);
t = strtok_r (0, ",", &saveptr);
}
}
break;
case _uint:
ret->count = (ret->arraysize) ? ret->arraysize : 1;
if (ret->count == 1) {
for (j = 0; j < (gint) strlen (value); ++j) {
if (!strchr ("0123456789", value[j]))
return _saveptr + j;
}
ret->value = (void *) g_malloc (sizeof (unsigned int));
*((unsigned int *) ret->value) = atoi (value);
} else {
ret->value = g_malloc (sizeof (unsigned int) * ret->count);
t = strtok_r (value, ",", &saveptr);
for (i = 0; i < ret->count; ++i) {
if (!t)
return _saveptr + (saveptr - value);
trimleft (t, " \t");
trimright (t, " \t");
if (!t[0])
return _saveptr + (saveptr - t);
for (j = 0; j < (gint) strlen (value); ++j) {
if (!strchr ("0123456789", value[j]))
return _saveptr + (saveptr - t) + j;
}
((unsigned int *) ret->value)[i] = atoi (t);
t = strtok_r (0, ",", &saveptr);
}
}
break;
case _float:
ret->count = (ret->arraysize) ? ret->arraysize : 1;
if (ret->count == 1) {
for (j = 0; j < (gint) strlen (value); ++j) {
if (!strchr ("0123456789.-", value[j]))
return _saveptr + j;
}
ret->value = (void *) g_malloc (sizeof (float));
*((float *) ret->value) = (float) atof (value);
} else {
ret->value = g_malloc (sizeof (float) * ret->count);
t = strtok_r (value, ",", &saveptr);
for (i = 0; i < ret->count; ++i) {
if (!t)
return _saveptr + (saveptr - value);
trimleft (t, " \t");
trimright (t, " \t");
if (!t[0])
return _saveptr + (saveptr - t);
for (j = 0; j < (gint) strlen (value); ++j) {
if (!strchr ("0123456789.-", value[j]))
return _saveptr + (saveptr - t) + j;
}
((float *) ret->value)[i] = (float) atof (t);
t = strtok_r (0, ",", &saveptr);
}
}
break;
case _vec2:
return vec_parsevalue (2, value, _saveptr, ret);
break;
case _bvec2:
return bvec_parsevalue (2, value, _saveptr, ret);
break;
case _ivec2:
return ivec_parsevalue (2, value, _saveptr, ret);
break;
case _uvec2:
return uvec_parsevalue (2, value, _saveptr, ret);
break;
case _vec3:
return vec_parsevalue (3, value, _saveptr, ret);
break;
case _bvec3:
return bvec_parsevalue (3, value, _saveptr, ret);
break;
case _ivec3:
return uvec_parsevalue (3, value, _saveptr, ret);
break;
case _uvec3:
return uvec_parsevalue (3, value, _saveptr, ret);
break;
case _vec4:
return vec_parsevalue (4, value, _saveptr, ret);
break;
case _bvec4:
return bvec_parsevalue (4, value, _saveptr, ret);
break;
case _ivec4:
return ivec_parsevalue (4, value, _saveptr, ret);
break;
case _uvec4:
return uvec_parsevalue (4, value, _saveptr, ret);
break;
case _mat2:
case _mat2x2:
return mat_parsevalue (2, 2, value, _saveptr, ret);
break;
case _mat2x3:
return mat_parsevalue (2, 3, value, _saveptr, ret);
break;
case _mat3x2:
return mat_parsevalue (3, 2, value, _saveptr, ret);
break;
case _mat2x4:
return mat_parsevalue (2, 4, value, _saveptr, ret);
break;
case _mat4x2:
return mat_parsevalue (4, 2, value, _saveptr, ret);
break;
case _mat3:
case _mat3x3:
return mat_parsevalue (3, 3, value, _saveptr, ret);
break;
case _mat3x4:
return mat_parsevalue (3, 4, value, _saveptr, ret);
break;
case _mat4x3:
return mat_parsevalue (4, 3, value, _saveptr, ret);
break;
case _mat4:
case _mat4x4:
return mat_parsevalue (4, 4, value, _saveptr, ret);
break;
default:
break;
}
return 0;
}
/*
Function:
vec_parsevalue
Description:
Parse text coming after the assignement operator for vec
type variables.
Arguments:
int n;
Vector dimension.
char *value:
Text to be parsed.
char *_saveptr:
Index of end of value.
struct gst_gl_shadervariable_desc *ret:
The variable description to be completed
At input time it contains the data type index (type),
variable name (name) and array size (arraysize).
return values:
0: No error.
!0: Pointer to parse error.
*/
char *
vec_parsevalue (int n, char *value, char *_saveptr,
struct gst_gl_shadervariable_desc *ret)
{
int i;
int j;
int k;
char *saveptr = value;
char *saveptr2;
char *t;
char *u;
ret->count = (ret->arraysize) ? ret->arraysize * n : n;
ret->value = g_malloc (sizeof (float) * ret->count);
if (!ret->arraysize) {
t = strtok_r (value, ",", &saveptr);
for (i = 0; i < ret->count; ++i) {
if (!t)
return _saveptr + (saveptr - value);
trimleft (t, " \t");
trimright (t, " \t");
if (!t[0])
return _saveptr + (saveptr - t);
for (j = 0; j < (gint) strlen (value); ++j) {
if (!strchr ("0123456789.-", value[j]))
return _saveptr + (saveptr - t) + j;
}
((float *) ret->value)[i] = (float) atof (t);
t = strtok_r (0, ",", &saveptr);
}
} else {
saveptr2 = value;
u = strtok_r (value, ")", &saveptr2);
for (k = 0; k < ret->arraysize; ++k) {
if (!u)
return _saveptr + (saveptr2 - value);
trimleft (u, " \t");
trimright (u, " \t");
if (k) {
if (u[0] != ',')
return _saveptr + (u - value);
++u;
trimleft (u, " \t");
}
if (strncmp (u, gst_gl_shadervariable_datatype[ret->type],
strlen (gst_gl_shadervariable_datatype[ret->type])))
return _saveptr + (u - value);
u += strlen (gst_gl_shadervariable_datatype[ret->type]);
trimleft (u, " \t");
if (u[0] != '(')
return _saveptr + (u - value);
++u;
t = strtok_r (u, ",", &saveptr);
if (!t)
return _saveptr + (u - value);
for (i = 0; i < n; ++i) {
trimleft (t, " \t");
trimright (t, " \t");
if (!t[0])
return _saveptr + (t - value);
for (j = 0; j < (gint) strlen (t); ++j) {
if (!strchr ("0123456789.-", t[j]))
return _saveptr + (t - value) + j;
}
((float *) ret->value)[k * n + i] = (float) atof (t);
t = strtok_r (0, ",", &saveptr);
if (i < (n - 1) && !t)
return _saveptr + (saveptr - value);
}
u = strtok_r (0, ")", &saveptr2);
}
}
return 0;
}
/*
Function:
bvec_parsevalue
Description:
Parse text coming after the assignement operator for bvec
type variables.
Arguments:
int n;
Vector dimension.
char *value:
Text to be parsed.
char *_saveptr:
Index of end of value.
struct gst_gl_shadervariable_desc *ret:
The variable description to be completed
At input time it contains the data type index (type),
variable name (name) and array size (arraysize).
return values:
0: No error.
!0: Pointer to parse error.
*/
char *
bvec_parsevalue (int n, char *value, char *_saveptr,
struct gst_gl_shadervariable_desc *ret)
{
int i;
int k;
char *saveptr = value;
char *saveptr2;
char *t;
char *u;
ret->count = (ret->arraysize) ? ret->arraysize * n : n;
ret->value = g_malloc (sizeof (char **) * ret->count);
if (!ret->arraysize) {
t = strtok_r (value, ",", &saveptr);
for (i = 0; i < ret->count; ++i) {
if (!t)
return _saveptr + (saveptr - value);
trimleft (t, " \t");
trimright (t, " \t");
if (!t[0])
return _saveptr + (saveptr - t);
if (strcmp ("true", value) || strcmp ("false", value))
return _saveptr + (saveptr - t);
((int *) ret->value)[i] = strcmp (t, "false");
t = strtok_r (0, ",", &saveptr);
}
} else {
saveptr2 = value;
u = strtok_r (value, ")", &saveptr2);
for (k = 0; k < ret->arraysize; ++k) {
if (!u)
return _saveptr + (saveptr2 - value);
trimleft (u, " \t");
trimright (u, " \t");
if (k) {
if (u[0] != ',')
return _saveptr + (u - value);
++u;
trimleft (u, " \t");
}
if (strncmp (u, gst_gl_shadervariable_datatype[ret->type],
strlen (gst_gl_shadervariable_datatype[ret->type])))
return _saveptr + (u - value);
u += strlen (gst_gl_shadervariable_datatype[ret->type]);
trimleft (u, " \t");
if (u[0] != '(')
return _saveptr + (u - value);
++u;
t = strtok_r (u, ",", &saveptr);
if (!t)
return _saveptr + (u - value);
for (i = 0; i < n; ++i) {
trimleft (t, " \t");
trimright (t, " \t");
if (!t[0])
return _saveptr + (t - value);
if (strcmp ("true", t) || strcmp ("false", t))
return _saveptr + (saveptr - t);
((int *) ret->value)[k * n + i] = strcmp (t, "false");
t = strtok_r (0, ",", &saveptr);
if (i < (n - 1) && !t)
return _saveptr + (saveptr - value);
}
u = strtok_r (0, ")", &saveptr2);
}
}
return 0;
}
/*
Function:
ivec_parsevalue
Description:
Parse text coming after the assignement operator for ivec
type variables.
Arguments:
int n;
Vector dimension.
char *value:
Text to be parsed.
char *_saveptr:
Index of end of value.
struct gst_gl_shadervariable_desc *ret:
The variable description to be completed
At input time it contains the data type index (type),
variable name (name) and array size (arraysize).
return values:
0: No error.
!0: Pointer to parse error.
*/
char *
ivec_parsevalue (int n, char *value, char *_saveptr,
struct gst_gl_shadervariable_desc *ret)
{
int i;
int j;
int k;
char *saveptr = value;
char *saveptr2;
char *t;
char *u;
ret->count = (ret->arraysize) ? ret->arraysize * n : n;
ret->value = g_malloc (sizeof (int) * ret->count);
if (!ret->arraysize) {
t = strtok_r (value, ",", &saveptr);
for (i = 0; i < ret->count; ++i) {
if (!t)
return _saveptr + (saveptr - value);
trimleft (t, " \t");
trimright (t, " \t");
if (!t[0])
return _saveptr + (saveptr - t);
for (j = 0; j < (gint) strlen (value); ++j) {
if (!strchr ("0123456789-", value[j]))
return _saveptr + (saveptr - t) + j;
}
((int *) ret->value)[i] = atoi (t);
t = strtok_r (0, ",", &saveptr);
}
} else {
saveptr2 = value;
u = strtok_r (value, ")", &saveptr2);
for (k = 0; k < ret->arraysize; ++k) {
if (!u)
return _saveptr + (saveptr2 - value);
trimleft (u, " \t");
trimright (u, " \t");
if (k) {
if (u[0] != ',')
return _saveptr + (u - value);
++u;
trimleft (u, " \t");
}
if (strncmp (u, gst_gl_shadervariable_datatype[ret->type],
strlen (gst_gl_shadervariable_datatype[ret->type])))
return _saveptr + (u - value);
u += strlen (gst_gl_shadervariable_datatype[ret->type]);
trimleft (u, " \t");
if (u[0] != '(')
return _saveptr + (u - value);
++u;
t = strtok_r (u, ",", &saveptr);
if (!t)
return _saveptr + (u - value);
for (i = 0; i < n; ++i) {
trimleft (t, " \t");
trimright (t, " \t");
if (!t[0])
return _saveptr + (t - value);
for (j = 0; j < (gint) strlen (t); ++j) {
if (!strchr ("0123456789-", t[j]))
return _saveptr + (t - value) + j;
}
((int *) ret->value)[k * n + i] = atoi (t);
t = strtok_r (0, ",", &saveptr);
if (i < (n - 1) && !t)
return _saveptr + (saveptr - value);
}
u = strtok_r (0, ")", &saveptr2);
}
}
return 0;
}
/*
Function:
uvec_parsevalue
Description:
Parse text coming after the assignement operator for uvec
type variables.
Arguments:
int n;
Vector dimension.
char *value:
Text to be parsed.
char *_saveptr:
Index of end of value.
struct gst_gl_shadervariable_desc *ret:
The variable description to be completed
At input time it contains the data type index (type),
variable name (name) and array size (arraysize).
return values:
0: No error.
!0: Pointer to parse error.
*/
char *
uvec_parsevalue (int n, char *value, char *_saveptr,
struct gst_gl_shadervariable_desc *ret)
{
int i;
int j;
int k;
char *saveptr = value;
char *saveptr2;
char *t;
char *u;
ret->count = (ret->arraysize) ? ret->arraysize * n : n;
ret->value = g_malloc (sizeof (unsigned int) * ret->count);
if (!ret->arraysize) {
t = strtok_r (value, ",", &saveptr);
for (i = 0; i < ret->count; ++i) {
if (!t)
return _saveptr + (saveptr - value);
trimleft (t, " \t");
trimright (t, " \t");
if (!t[0])
return _saveptr + (saveptr - t);
for (j = 0; j < (gint) strlen (value); ++j) {
if (!strchr ("0123456789", value[j]))
return _saveptr + (saveptr - t) + j;
}
((unsigned int *) ret->value)[i] = atoi (t);
t = strtok_r (0, ",", &saveptr);
}
} else {
saveptr2 = value;
u = strtok_r (value, ")", &saveptr2);
for (k = 0; k < ret->arraysize; ++k) {
if (!u)
return _saveptr + (saveptr2 - value);
trimleft (u, " \t");
trimright (u, " \t");
if (k) {
if (u[0] != ',')
return _saveptr + (u - value);
++u;
trimleft (u, " \t");
}
if (strncmp (u, gst_gl_shadervariable_datatype[ret->type],
strlen (gst_gl_shadervariable_datatype[ret->type])))
return _saveptr + (u - value);
u += strlen (gst_gl_shadervariable_datatype[ret->type]);
trimleft (u, " \t");
if (u[0] != '(')
return _saveptr + (u - value);
++u;
t = strtok_r (u, ",", &saveptr);
if (!t)
return _saveptr + (u - value);
for (i = 0; i < n; ++i) {
trimleft (t, " \t");
trimright (t, " \t");
if (!t[0])
return _saveptr + (t - value);
for (j = 0; j < (gint) strlen (t); ++j) {
if (!strchr ("0123456789", t[j]))
return _saveptr + (t - value) + j;
}
((unsigned int *) ret->value)[k * n + i] = atoi (t);
t = strtok_r (0, ",", &saveptr);
if (i < (n - 1) && !t)
return _saveptr + (saveptr - value);
}
u = strtok_r (0, ")", &saveptr2);
}
}
return 0;
}
/*
Function:
mat_parsevalue
Description:
Parse text coming after the assignement operator for matrix
type variables.
Arguments:
int n,m;
Matrix dimensions.
char *value:
Text to be parsed.
char *_saveptr:
Index of end of value.
struct gst_gl_shadervariable_desc *ret:
The variable description to be completed
At input time it contains the data type index (type),
variable name (name) and array size (arraysize).
return values:
0: No error.
!0: Pointer to parse error.
*/
char *
mat_parsevalue (int n, int m, char *value, char *_saveptr,
struct gst_gl_shadervariable_desc *ret)
{
int i;
int j;
int k;
char *saveptr = value;
char *saveptr2;
char *t;
char *u;
ret->count = (ret->arraysize) ? ret->arraysize * n * m : n * m;
ret->value = g_malloc (sizeof (float) * ret->count);
if (!ret->arraysize) {
t = strtok_r (value, ",", &saveptr);
for (i = 0; i < ret->count; ++i) {
if (!t)
return _saveptr + (saveptr - value);
trimleft (t, " \t");
trimright (t, " \t");
if (!t[0])
return _saveptr + (saveptr - t);
for (j = 0; j < (gint) strlen (value); ++j) {
if (!strchr ("0123456789.-", value[j]))
return _saveptr + (saveptr - t) + j;
}
((float *) ret->value)[i] = (float) atof (t);
t = strtok_r (0, ",", &saveptr);
}
} else {
saveptr2 = value;
u = strtok_r (value, ")", &saveptr2);
for (k = 0; k < ret->arraysize; ++k) {
if (!u)
return _saveptr + (saveptr2 - value);
trimleft (u, " \t");
trimright (u, " \t");
if (k) {
if (u[0] != ',')
return _saveptr + (u - value);
++u;
trimleft (u, " \t");
}
if (strncmp (u, gst_gl_shadervariable_datatype[ret->type],
strlen (gst_gl_shadervariable_datatype[ret->type])))
return _saveptr + (u - value);
u += strlen (gst_gl_shadervariable_datatype[ret->type]);
trimleft (u, " \t");
if (u[0] != '(')
return _saveptr + (u - value);
++u;
t = strtok_r (u, ",", &saveptr);
if (!t)
return _saveptr + (u - value);
for (i = 0; i < n * m; ++i) {
trimleft (t, " \t");
trimright (t, " \t");
if (!t[0])
return _saveptr + (t - value);
for (j = 0; j < (gint) strlen (t); ++j) {
if (!strchr ("0123456789.-", t[j]))
return _saveptr + (t - value) + j;
}
((float *) ret->value)[k * n * m + i] = (float) atof (t);
t = strtok_r (0, ",", &saveptr);
if (i < (n * m - 1) && !t)
return _saveptr + (saveptr - value);
}
u = strtok_r (0, ")", &saveptr2);
}
}
return 0;
}