File: tget_string.c

package info (click to toggle)
sollya 7.0%2Bds-3
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, buster
  • size: 13,864 kB
  • sloc: ansic: 117,441; yacc: 8,822; lex: 2,419; makefile: 870; cpp: 76
file content (38 lines) | stat: -rw-r--r-- 912 bytes parent folder | download | duplicates (4)
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
#include <sollya.h>

int main(void) {
  sollya_obj_t a;
  char *s;


  sollya_lib_init();

  a = sollya_lib_parse_string("\"Hello, World!\"");
  if(!sollya_lib_get_string(&s, a)) sollya_lib_printf("%b is not a string\n\n", a);
  else {
    sollya_lib_printf("%b has been converted to \"%s\"\n\n", a, s);
    sollya_lib_free(s);
  }
  sollya_lib_clear_obj(a);


  a = sollya_lib_parse_string("[1; 2]");
  if(!sollya_lib_get_string(&s, a)) sollya_lib_printf("%b is not a string\n\n", a);
  else {
    sollya_lib_printf("%b has been converted to \"%s\"\n\n", a, s);
    sollya_lib_free(s);
  }
  sollya_lib_clear_obj(a);


  a = sollya_lib_parse_string("\"\"");
  if(!sollya_lib_get_string(&s, a)) sollya_lib_printf("%b is not a string\n\n", a);
  else {
    sollya_lib_printf("%b has been converted to \"%s\"\n\n", a, s);
    sollya_lib_free(s);
  }
  sollya_lib_clear_obj(a);

  sollya_lib_close();
  return 0;
}