comparison: libpurple/plugins/perl/perl-common.c
libpurple/plugins/perl/perl-common.c
- branch
- soc.2013.gobjectification
- changeset 34785
- 99bcdb44c75f
- parent 34784
- d0eafa17c727
- child 34798
- c1cb4cd0543d
equal
deleted
inserted
replaced
| 34784:d0eafa17c727 | 34785:99bcdb44c75f |
|---|---|
| 425 stash = "Purple::Plugin"; | 425 stash = "Purple::Plugin"; |
| 426 else if (type == PURPLE_TYPE_BLIST_NODE) | 426 else if (type == PURPLE_TYPE_BLIST_NODE) |
| 427 stash = "Purple::BuddyList::Node"; | 427 stash = "Purple::BuddyList::Node"; |
| 428 else if (type == PURPLE_TYPE_CIPHER) | 428 else if (type == PURPLE_TYPE_CIPHER) |
| 429 stash = "Purple::Cipher"; | 429 stash = "Purple::Cipher"; |
| 430 else if (type == PURPLE_TYPE_STATUS) /* TODO */ | 430 else if (type == PURPLE_TYPE_STATUS) |
| 431 stash = "Purple::Status"; | 431 stash = "Purple::Status"; |
| 432 else if (type == PURPLE_TYPE_SAVEDSTATUS) /* TODO */ | 432 else if (type == PURPLE_TYPE_SAVEDSTATUS) |
| 433 stash = "Purple::SavedStatus"; | 433 stash = "Purple::SavedStatus"; |
| 434 else if (type == PURPLE_TYPE_LOG) /* TODO */ | 434 else if (type == PURPLE_TYPE_LOG) |
| 435 stash = "Purple::Log"; | 435 stash = "Purple::Log"; |
| 436 else if (type == PURPLE_TYPE_XFER) /* TODO */ | 436 else if (type == PURPLE_TYPE_XFER) |
| 437 stash = "Purple::Xfer"; | 437 stash = "Purple::Xfer"; |
| 438 else if (type == PURPLE_TYPE_XMLNODE) /* TODO */ | 438 else if (type == PURPLE_TYPE_XMLNODE) |
| 439 stash = "Purple::XMLNode"; | 439 stash = "Purple::XMLNode"; |
| 440 else if (type == PURPLE_TYPE_USERINFO) /* TODO */ | 440 else if (type == PURPLE_TYPE_USERINFO) |
| 441 stash = "Purple::NotifyUserInfo"; | 441 stash = "Purple::NotifyUserInfo"; |
| 442 else if (type == PURPLE_TYPE_STORED_IMAGE) /* TODO */ | 442 else if (type == PURPLE_TYPE_STORED_IMAGE) |
| 443 stash = "Purple::StoredImage"; | 443 stash = "Purple::StoredImage"; |
| 444 else if (type == PURPLE_TYPE_CERTIFICATEPOOL) /* TODO */ | 444 else if (type == PURPLE_TYPE_CERTIFICATEPOOL) |
| 445 stash = "Purple::Certificate::Pool"; | 445 stash = "Purple::Certificate::Pool"; |
| 446 | 446 |
| 447 return sv_2mortal(purple_perl_bless_object(arg, stash)); | 447 return sv_2mortal(purple_perl_bless_object(arg, stash)); |
| 448 } | 448 } |
| 449 | 449 |
