Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 7924 → Rev 7925

/programs/develop/ktcc/trunk/samples/build_all.sh
3,4 → 3,5
../tcc consoleio.c /kolibrios/develop/tcc/lib/libck.a -o consoleio
../tcc files.c /kolibrios/develop/tcc/lib/libck.a -o files
../tcc winbasics.c /kolibrios/develop/tcc/lib/libck.a -o winbasics
../tcc dynamic.c -lconsole -lhttp -linputbox
exit
/programs/develop/ktcc/trunk/samples/dynamic.c
0,0 → 1,19
#include <kos/console.h>
#include <kos/http.h>
#include <kos/inputbox.h>
 
int main() {
con_set_title("Dynamicaly linked app");
con_write_asciiz("Wait, I'll ask you... when I'll done to fetch one site");
http_msg *h = get("http://boppan.org", 0, HTTP_FLAG_BLOCK, "");
if (!receive(h)) {
con_printf("%s\n", h->content_ptr);
} else {
con_write_asciiz("Danmit! Can't access to the page.");
}
char buffer[256];
InputBox(buffer, "Hay!", "How do you do?", "Everything sucks", 0, 256, 0);
con_write_asciiz(buffer);
con_exit(0);
return 0;
}