1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
/*
* libtib - Read, write, and evaluate TI BASIC programs
* Copyright (C) 2015-2016 Delwink, LLC
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU Affero General Public License as published by
* the Free Software Foundation, version 3 only.
*
* 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 Affero General Public License for more details.
*
* You should have received a copy of the GNU Affero General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
#ifndef DELWINK_TIB_TIBEXPR_H
#define DELWINK_TIB_TIBEXPR_H
#include <gsl/gsl_complex.h>
#define tib_expr_foreach(E,I) for ((I) = 0; (I) < (E)->len; ++(I))
struct tib_expr
{
int *data;
int len;
int bufsize;
};
int
tib_expr_init (struct tib_expr *self);
void
tib_expr_destroy (struct tib_expr *self);
int
tib_exprcpy (struct tib_expr *dest, const struct tib_expr *src);
int
tib_exprcat (struct tib_expr *dest, const struct tib_expr *src);
char *
tib_expr_tostr_f (const struct tib_expr *self,
const char *(*get_special) (int));
char *
tib_expr_tostr (const struct tib_expr *self);
int
tib_expr_parse_complex (const struct tib_expr *self, gsl_complex *out);
int
tib_expr_delete (struct tib_expr *self, int i);
int
tib_expr_insert (struct tib_expr *self, int i, int c);
int
tib_expr_push (struct tib_expr *self, int c);
int
tib_expr_indexof (const struct tib_expr *self, int c);
int
tib_expr_indexof_r (const struct tib_expr *self, int c);
int
tib_subexpr (struct tib_expr *dest, const struct tib_expr *src, int beg,
int end);
#endif
|
