source: style.c @ 516c27e

release-1.10release-1.6release-1.7release-1.8release-1.9
Last change on this file since 516c27e was 516c27e, checked in by Anders Kaseorg <andersk@mit.edu>, 14 years ago
Add owl_style_delete to fix leaks. Signed-off-by: Anders Kaseorg <andersk@mit.edu> Reviewed-by: Alejandro R. Sedeño <asedeno@mit.edu>
  • Property mode set to 100644
File size: 2.2 KB
Line 
1#define OWL_PERL
2#include "owl.h"
3
4/* Assumes owenership of one existing ref on `obj`*/
5void owl_style_create_perl(owl_style *s, const char *name, SV *obj)
6{
7  s->name=owl_strdup(name);
8  s->perlobj = obj;
9}
10
11int owl_style_matches_name(const owl_style *s, const char *name)
12{
13  if (!strcmp(s->name, name)) return(1);
14  return(0);
15}
16
17const char *owl_style_get_name(const owl_style *s)
18{
19  return(s->name);
20}
21
22const char *owl_style_get_description(const owl_style *s)
23{
24  SV *sv = NULL;
25  OWL_PERL_CALL_METHOD(s->perlobj,
26                       "description",
27                       ;,
28                       "Error in style_get_description: %s",
29                       0,
30                       sv = SvREFCNT_inc(POPs);
31                       );
32  if(sv) {
33    return SvPV_nolen(sv_2mortal(sv));
34  } else {
35    return "[error getting description]";
36  }
37}
38
39/* Use style 's' to format message 'm' into fmtext 'fm'.
40 * 'fm' should already be be initialzed
41 */
42void owl_style_get_formattext(const owl_style *s, owl_fmtext *fm, const owl_message *m)
43{
44  const char *body;
45  char *indent;
46  int curlen;
47
48  SV *sv = NULL;
49 
50  /* Call the perl object */
51  OWL_PERL_CALL_METHOD(s->perlobj,
52                       "format_message",
53                       XPUSHs(sv_2mortal(owl_perlconfig_message2hashref(m)));,
54                       "Error in format_message: %s",
55                       0,
56                       sv = SvREFCNT_inc(POPs);
57                       );
58
59  if(sv) {
60    body = SvPV_nolen(sv);
61  } else {
62    body = "<unformatted message>";
63  }
64
65  /* indent and ensure ends with a newline */
66  indent=owl_malloc(strlen(body)+(owl_text_num_lines(body))*OWL_TAB+10);
67  owl_text_indent(indent, body, OWL_TAB);
68  curlen = strlen(indent);
69  if (curlen==0 || indent[curlen-1] != '\n') {
70    indent[curlen] = '\n';
71    indent[curlen+1] = '\0';
72  }
73
74  /* fmtext_append.  This needs to change */
75  owl_fmtext_append_ztext(fm, indent);
76
77  owl_free(indent);
78  if(sv)
79    SvREFCNT_dec(sv);
80}
81
82int owl_style_validate(const owl_style *s) {
83  if (!s || !s->perlobj || !SvOK(s->perlobj)) {
84    return -1;
85  }
86  return 0;
87}
88
89void owl_style_free(owl_style *s)
90{
91  if (s->name) owl_free(s->name);
92  SvREFCNT_dec(s->perlobj);
93}
94
95void owl_style_delete(owl_style *s)
96{
97  owl_style_free(s);
98  owl_free(s);
99}
Note: See TracBrowser for help on using the repository browser.