sage
/
pebblisp
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

More comprehensive webby.pl 

Allow for longer strings, but there's still another limiting element somewhere.
This commit is contained in:
Sage Vaillancourt 2022-03-15 16:03:13 -04:00 committed by Sage Vaillancourt
parent 1d5621923c
commit a59ce1646f
3 changed files with 22 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/examples/webby.pl Normal file → Executable file
View File

@ -1,17 +1,26 @@
#!/usr/bin/pl
(struct post
(title body))
(def x (post "Hey" "This is a post"))
(def html (fn (text) (cat "<html>" text "</html>")))
(def body (fn (text) (cat "<body>" text "</body>")))
(def h1 (fn (text) (cat "<h1>" text "</h1>")))
(def p (fn (text) (cat "<p>" text "</p>")))
(def h1 (fn (text) (cat "<h1>" text "</h1>
")))
(def h2 (fn (text) (cat "<h2>" text "</h2>")))
(def p (fn (text) (cat "<p>" text "</p>
")))
(def htmlize (fn (po)
(html
(body (cat
(h1 po's title)
(p po's body))))))
(cat
(h2 po's title)
(p po's body))))
(prnl (htmlize x))
(def p1 (post "Hey" "This is a post"))
(def p2 (post "This" "Is ALSO a post"))
(prnl (html (body (cat
(h1 "This is Sage's Blog")
(htmlize p1)
(htmlize p2)
))))

2
src/object.c
View File

@ -427,7 +427,7 @@ void _printObj(const Object* obj, int newline)
return;
}
char temp[100] = "";
char temp[200] = "";
stringObj(temp, obj);
if (newline) {
printf("%s\n", temp);

5
src/pebblisp.c
View File

@ -413,8 +413,9 @@ Object catObjects(const Object obj1, const Object obj2, struct Environment* env)
Object evalObj1 = eval(&obj1, env);
Object evalObj2 = eval(&obj2, env);
char str1[100] = "";
char str2[100] = "";
#define CAT_MAX 200
char str1[CAT_MAX] = "";
char str2[CAT_MAX] = "";
stringObj(str1, &evalObj1);
stringObj(str2, &evalObj2);
cleanObject(&evalObj1);