Lua-cURL/Lua-cURLv3
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix. version_info returns protocol names in upper case.

Browse Source
This commit is contained in:
Alexey Melnichuk 2014-09-01 10:14:00 +05:00
parent 5fc09fae79
commit dcc027c29a
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/lcurl.c
View File

@ -50,6 +50,20 @@ static int lcurl_version(lua_State *L){
return 1;
}
static int push_upper(lua_State *L, const char *str){
char buffer[128];
size_t i, n = strlen(str);
char *ptr = (n < sizeof(buffer))?&buffer[0]:malloc(n + 1);
if (!ptr) return 1;
for(i = 0; i < n; ++i){
if( (str[i] > 96 ) && (str[i] < 123) ) ptr[i] = str[i] - 'a' + 'A';
else ptr[i] = str[i];
}
lua_pushlstring(L, ptr, n);
if(ptr != &buffer[0]) free(ptr);
return 0;
}
static int lcurl_version_info(lua_State *L){
const char * const*p;
curl_version_info_data *data = curl_version_info(CURLVERSION_NOW);
@ -92,7 +106,7 @@ static int lcurl_version_info(lua_State *L){
/* protocols is terminated by an entry with a NULL protoname */
lua_newtable(L);
for(p = data->protocols; *p; ++p){
lua_pushstring(L, *p); lua_pushboolean(L, 1); lua_rawset(L, -3);
push_upper(L, *p); lua_pushboolean(L, 1); lua_rawset(L, -3);
}
lua_setfield(L, -2, "protocols");