sage
/
pebblisp
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
pebblisp/src/web.c

141 lines
3.8 KiB
C
Raw Normal View History

Add simple web server implementation. Adjust global Environment implementation. Example `webby.pl` is now a simple server program. Only limit stringNObj outside of STANDALONE implementations. Larger catObjects sizes. Parsing files ignores semicolons inside of quotes.
2022-03-15 21:43:53 -04:00
/* Feel free to use this example code in any way
you see fit (Public Domain) */
#include <sys/types.h>
//#ifndef _WIN32
#include <sys/select.h>
#include <sys/socket.h>
//#else
//#include <winsock2.h>
//#endif
#include <string.h>
#include <microhttpd.h>
#include <stdio.h>
#include "web.h"
#include "pebblisp.h"
Fix web struct handling. Typedef to handle different versions of libmicrohttpd. Add getStructIndex(). Fix small print() mem leak.
2022-03-18 11:23:19 -04:00
#ifdef _MHD_FLAGS_ENUM
typedef enum MHD_Result HttpResult;
#else
typedef int HttpResult;
#endif
int requestDefinition = -1;
Add simple web server implementation. Adjust global Environment implementation. Example `webby.pl` is now a simple server program. Only limit stringNObj outside of STANDALONE implementations. Larger catObjects sizes. Parsing files ignores semicolons inside of quotes.
2022-03-15 21:43:53 -04:00
int routeCount = 0;
struct Route routes[10];
int addRoute(struct Route route) {
routes[routeCount] = route;
routeCount += 1;
return 0;
}
Add POST method. Rename `addroute` to `get`.
2022-03-15 23:22:28 -04:00
int methodMatches(const char* method, struct Route* route)
{
switch (route->type) {
case GET:
return method[0] == 'G' || method[0] == 'g';
case POST:
return method[0] == 'P' || method[0] == 'p';
default:
return 0;
}
}
Fix web struct handling. Typedef to handle different versions of libmicrohttpd. Add getStructIndex(). Fix small print() mem leak.
2022-03-18 11:23:19 -04:00
static HttpResult
print_out_key(void *queryParamsV, enum MHD_ValueKind kind, const char *key,
const char *value)
Start work on adding queryParams, etc.
2022-03-17 16:59:08 -04:00
{
(void) kind; /* Unused. Silent compiler warning. */
Object* queryParams = queryParamsV;
Object pair = startList(stringFromSlice(key, strlen(key)));
nf_addToList(&pair, parseEval(value, NULL));
nf_addToList(queryParams, pair);
return MHD_YES;
}
Fix web struct handling. Typedef to handle different versions of libmicrohttpd. Add getStructIndex(). Fix small print() mem leak.
2022-03-18 11:23:19 -04:00
static HttpResult
Add simple web server implementation. Adjust global Environment implementation. Example `webby.pl` is now a simple server program. Only limit stringNObj outside of STANDALONE implementations. Larger catObjects sizes. Parsing files ignores semicolons inside of quotes.
2022-03-15 21:43:53 -04:00
answer_to_connection(void *cls, struct MHD_Connection *connection,
const char *url, const char *method,
const char *version, const char *upload_data,
size_t *upload_data_size, void **con_cls)
{
Fix web struct handling. Typedef to handle different versions of libmicrohttpd. Add getStructIndex(). Fix small print() mem leak.
2022-03-18 11:23:19 -04:00
char *page = NULL;
printf("%s URL: '%s' :: ", method, url);
printf("version: %s\n", version);
printf("upload_data: %s\n", upload_data);
for (int i = 0; i < routeCount; i++) {
if (methodMatches(method, &routes[i]) && strcmp(url, routes[i].path) == 0) {
Object queryParams = listObject();
MHD_get_connection_values(connection, MHD_GET_ARGUMENT_KIND, print_out_key, &queryParams);
Object res = structObject(requestDefinition);
res.structObject->fields[0] = queryParams;
Object route = cloneObject(routes[i].routeAction);
Object result = listEvalLambda(&route, &res, routes[i].env);
cleanObject(&res);
page = result.string;
break;
}
Add simple web server implementation. Adjust global Environment implementation. Example `webby.pl` is now a simple server program. Only limit stringNObj outside of STANDALONE implementations. Larger catObjects sizes. Parsing files ignores semicolons inside of quotes.
2022-03-15 21:43:53 -04:00
}
Fix web struct handling. Typedef to handle different versions of libmicrohttpd. Add getStructIndex(). Fix small print() mem leak.
2022-03-18 11:23:19 -04:00
if (!page) {
printf("no route found!\n");
page = "<html><body><h1>404, Dumbass.</h1></body></html>";
}
Add simple web server implementation. Adjust global Environment implementation. Example `webby.pl` is now a simple server program. Only limit stringNObj outside of STANDALONE implementations. Larger catObjects sizes. Parsing files ignores semicolons inside of quotes.
2022-03-15 21:43:53 -04:00
Fix web struct handling. Typedef to handle different versions of libmicrohttpd. Add getStructIndex(). Fix small print() mem leak.
2022-03-18 11:23:19 -04:00
struct MHD_Response *response;
HttpResult ret;
(void) cls; /* Unused. Silent compiler warning. */
(void) url; /* Unused. Silent compiler warning. */
(void) method; /* Unused. Silent compiler warning. */
(void) version; /* Unused. Silent compiler warning. */
(void) upload_data; /* Unused. Silent compiler warning. */
(void) upload_data_size; /* Unused. Silent compiler warning. */
(void) con_cls; /* Unused. Silent compiler warning. */
response =
MHD_create_response_from_buffer(strlen(page), (void *) page,
MHD_RESPMEM_PERSISTENT);
ret = MHD_queue_response(connection, MHD_HTTP_OK, response);
MHD_destroy_response(response);
// if (needsFree) {
// free(page);
// }
return ret;
}
int initialized = 0;
void initialize()
{
if (!initialized) {
Object o = parseEval("(struct Request (queryParams))", global());
cleanObject(&o);
requestDefinition = getStructIndex(global(), "Request");
}
initialized = 1;
Add simple web server implementation. Adjust global Environment implementation. Example `webby.pl` is now a simple server program. Only limit stringNObj outside of STANDALONE implementations. Larger catObjects sizes. Parsing files ignores semicolons inside of quotes.
2022-03-15 21:43:53 -04:00
}
int start(int port)
{
Fix web struct handling. Typedef to handle different versions of libmicrohttpd. Add getStructIndex(). Fix small print() mem leak.
2022-03-18 11:23:19 -04:00
initialize();
struct MHD_Daemon *daemon = MHD_start_daemon(
MHD_USE_AUTO | MHD_USE_INTERNAL_POLLING_THREAD,
port, NULL, NULL, &answer_to_connection, NULL, MHD_OPTION_END);
Add simple web server implementation. Adjust global Environment implementation. Example `webby.pl` is now a simple server program. Only limit stringNObj outside of STANDALONE implementations. Larger catObjects sizes. Parsing files ignores semicolons inside of quotes.
2022-03-15 21:43:53 -04:00
Fix web struct handling. Typedef to handle different versions of libmicrohttpd. Add getStructIndex(). Fix small print() mem leak.
2022-03-18 11:23:19 -04:00
if (NULL == daemon)
return 1;
Add simple web server implementation. Adjust global Environment implementation. Example `webby.pl` is now a simple server program. Only limit stringNObj outside of STANDALONE implementations. Larger catObjects sizes. Parsing files ignores semicolons inside of quotes.
2022-03-15 21:43:53 -04:00
Fix web struct handling. Typedef to handle different versions of libmicrohttpd. Add getStructIndex(). Fix small print() mem leak.
2022-03-18 11:23:19 -04:00
// (void) getchar();
Add simple web server implementation. Adjust global Environment implementation. Example `webby.pl` is now a simple server program. Only limit stringNObj outside of STANDALONE implementations. Larger catObjects sizes. Parsing files ignores semicolons inside of quotes.
2022-03-15 21:43:53 -04:00
Fix web struct handling. Typedef to handle different versions of libmicrohttpd. Add getStructIndex(). Fix small print() mem leak.
2022-03-18 11:23:19 -04:00
// MHD_stop_daemon(daemon);
return 0;
Add simple web server implementation. Adjust global Environment implementation. Example `webby.pl` is now a simple server program. Only limit stringNObj outside of STANDALONE implementations. Larger catObjects sizes. Parsing files ignores semicolons inside of quotes.
2022-03-15 21:43:53 -04:00
}