lloeki/cblocks-clobj
1
0
Fork 0
mirror of https://github.com/lloeki/cblocks-clobj.git synced 2025-12-06 10:44:40 +01:00
Code Issues Projects Releases Packages Wiki Activity

spread the word on exec

Browse source
This commit is contained in:
Loic Nageleisen 2013-02-01 16:54:21 +01:00
parent fd7c38d16b
commit 8751323eb2
1 changed files with 41 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

66
main.c
View file

@ -24,28 +24,33 @@
* *
* Requires (obviously) clang or Apple's GCC block patches. * Requires (obviously) clang or Apple's GCC block patches.
* *
*
* --- And now for something completely different --- * --- And now for something completely different ---
* */
* The venerable master Qc Na was walking with his student, Anton. Hoping to
* prompt the master into a discussion, Anton said "Master, I have heard that #define BODY \
* objects are a very good thing - is this true?" Qc Na looked pityingly at his " The venerable master Qc Na was walking with his student, Anton. Hoping to "\
* student and replied, "Foolish pupil - objects are merely a poor man's " prompt the master into a discussion, Anton said “Master, I have heard that "\
* closures." " objects are a very good thing - is this true?” Qc Na looked pityingly at "\
* " his student and replied, “Foolish pupil - objects are merely a poor man's "\
* Chastised, Anton took his leave from his master and returned to his cell, " closures.” "\
* intent on studying closures. He carefully read the entire "Lambda: The " \n\n"\
* Ultimate..." series of papers and its cousins, and implemented a small " Chastised, Anton took his leave from his master and returned to his cell, "\
* Scheme interpreter with a closure-based object system. He learned much, and " intent on studying closures. He carefully read the entire ”Lambda: The "\
* looked forward to informing his master of his progress. " Ultimate...” series of papers and its cousins, and implemented a small "\
* " Scheme interpreter with a closure-based object system. He learned much, and"\
* On his next walk with Qc Na, Anton attempted to impress his master by saying " looked forward to informing his master of his progress. "\
* "Master, I have diligently studied the matter, and now understand that " \n\n"\
* objects are truly a poor man's closures." Qc Na responded by hitting Anton " On his next walk with Qc Na, Anton attempted to impress his master by "\
* with his stick, saying "When will you learn? Closures are a poor man's " saying “Master, I have diligently studied the matter, and now understand "\
* object." At that moment, Anton became enlightened. " that objects are truly a poor man's closures.” Qc Na responded by hitting "\
* " Anton with his stick, saying ”When will you learn? Closures are a poor "\
* from: http://people.csail.mit.edu/gregs/ll1-discuss-archive-html/msg03277.html " man's object.“ At that moment, Anton became enlightened. "\
*
#define AUTHOR "Anton van Straaten"
/*
* from http://people.csail.mit.edu/gregs/ll1-discuss-archive-html/msg03277.html
*/ */
@ -70,7 +75,18 @@ void Post_init(Post *self) {
} }
void Post_printf(Post *self) { void Post_printf(Post *self) {
printf("%s\n\n%s\n", self->author, self->body); for(char *buf = self->body; *buf != '\0'; buf++) {
if (*buf != ' ') {
printf("%c", *buf);
} else {
if (*(buf+1) != ' ' &&
*(buf+1) != '\0' &&
*(buf+1) != '\n') {
printf(" ");
}
}
}
printf("\n\n-- %s\n", self->author);
} }
void Post_dealloc(Post *self) { void Post_dealloc(Post *self) {
@ -86,7 +102,7 @@ void Post_dealloc(Post *self) {
Post *Post_alloc() { Post *Post_alloc() {
Post *new = malloc(sizeof(Post)); Post *new = malloc(sizeof(Post));
new->author = malloc(255); new->author = malloc(255);
new->body = malloc(1024); new->body = malloc(2048);
new->init = Block_copy( ^ { Post_init(new); }); new->init = Block_copy( ^ { Post_init(new); });
new->printf = Block_copy( ^ { Post_printf(new); }); new->printf = Block_copy( ^ { Post_printf(new); });
@ -99,8 +115,8 @@ int main(void) {
Post *post = Post_alloc(); Post *post = Post_alloc();
post->init(); post->init();
strcpy(post->author, "Foo Bar"); strcpy(post->author, AUTHOR);
strcpy(post->body, "Lorem ipsum dolor sit amet"); strcpy(post->body, BODY);
post->printf(); post->printf();
post->dealloc(); post->dealloc();