source: style.c @ 70b53ec

barnowl_perlaimdebianowlrelease-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 70b53ec was a7a42b9, checked in by Erik Nygren <nygren@mit.edu>, 18 years ago
I'm an idiot. Jer noticed that I'd made curlen a char rather than an int.
  • Property mode set to 100644
File size: 2.4 KB
RevLine 
[bd3f232]1#include "owl.h"
2
3static const char fileIdent[] = "$Id$";
4
[f1e629d]5void owl_style_create_internal(owl_style *s, char *name, void (*formatfunc) (owl_fmtext *fm, owl_message *m), char *description)
[bd3f232]6{
7  s->type=OWL_STYLE_TYPE_INTERNAL;
8  s->name=owl_strdup(name);
[f1e629d]9  if (description) {
10    s->description=owl_strdup(description);
11  } else {
12    s->description=owl_sprintf("Owl internal style %s", name);
13  }
[bd3f232]14  s->perlfuncname=NULL;
15  s->formatfunc=formatfunc;
16}
17
[f1e629d]18void owl_style_create_perl(owl_style *s, char *name, char *perlfuncname, char *description)
[bd3f232]19{
20  s->type=OWL_STYLE_TYPE_PERL;
21  s->name=owl_strdup(name);
22  s->perlfuncname=owl_strdup(perlfuncname);
[f1e629d]23  if (description) {
24    s->description=owl_strdup(description);
25  } else {
26    s->description=owl_sprintf("User-defined perl style that calls %s", 
27                               perlfuncname);
28  }
[bd3f232]29  s->formatfunc=NULL;
30}
31
32int owl_style_matches_name(owl_style *s, char *name)
33{
34  if (!strcmp(s->name, name)) return(1);
35  return(0);
36}
37
[ef56a67]38char *owl_style_get_name(owl_style *s)
39{
40  return(s->name);
41}
42
[f1e629d]43char *owl_style_get_description(owl_style *s)
44{
45  return(s->description);
46}
47
[5639bf2]48/* Use style 's' to format message 'm' into fmtext 'fm'.
49 * 'fm' should already be be initialzed
50 */
[bd3f232]51void owl_style_get_formattext(owl_style *s, owl_fmtext *fm, owl_message *m)
52{
53  if (s->type==OWL_STYLE_TYPE_INTERNAL) {
54    (* s->formatfunc)(fm, m);
55  } else if (s->type==OWL_STYLE_TYPE_PERL) {
[a7a42b9]56    char *body, *indent;
57    int curlen;
[bd3f232]58
59    /* run the perl function */
[f1e629d]60    body=owl_perlconfig_getmsg(m, 1, s->perlfuncname);
[bd3f232]61   
[282ec9b]62    /* indent and ensure ends with a newline */
63    indent=owl_malloc(strlen(body)+(owl_text_num_lines(body))*OWL_TAB+10);
[bd3f232]64    owl_text_indent(indent, body, OWL_TAB);
[282ec9b]65    curlen = strlen(indent);
66    if (curlen==0 || indent[curlen-1] != '\n') {
67      indent[curlen] = '\n';
68      indent[curlen+1] = '\0';
69    }
70
[bd3f232]71    /* fmtext_append.  This needs to change */
72    owl_fmtext_append_ztext(fm, indent);
73   
74    owl_free(indent);
75    owl_free(body);
76  }
77}
78
[f1e629d]79int owl_style_validate(owl_style *s) {
80  if (!s) {
81    return -1;
82  } else if (s->type==OWL_STYLE_TYPE_INTERNAL) {
83    return 0;
84  } else if (s->type==OWL_STYLE_TYPE_PERL
85             && s->perlfuncname
86             && owl_perlconfig_is_function(s->perlfuncname)) {
87    return 0;
88  } else {
89    return -1;
90  }
91}
92
[bd3f232]93void owl_style_free(owl_style *s)
94{
95  if (s->name) owl_free(s->name);
[f1e629d]96  if (s->description) owl_free(s->description);
[bd3f232]97  if (s->type==OWL_STYLE_TYPE_PERL && s->perlfuncname) {
98    owl_free(s->perlfuncname);
99  }
100}
Note: See TracBrowser for help on using the repository browser.