Changeset 215 in Main


Ignore:
Timestamp:
Oct 3, 2024, 4:24:43 AM (6 weeks ago)
Author:
Nishi
Message:

can be compiled using bcc32 now

Location:
trunk
Files:
2 added
17 edited

Legend:

Unmodified
Added
Removed

  • trunk/Common/Makefile

    r212 r215  
    44STATIC=a
    55AR_FLAGS=rcs
     6AR_PROC=cat
    67include $(PWD)/Platform/$(PLATFORM).mk
    78
    … …  
    1415
    1516common.$(STATIC): $(OBJS)
    16         $(AR) $(AR_FLAGS)$@ $(OBJS)
     17        $(AR) $(AR_FLAGS)$@ `echo $(OBJS) | $(AR_PROC)`
    1718
    1819.c.$(OBJ):
    … …  
    2021
    2122clean:
    22         rm -f *.o *.a *.lib
     23        rm -f *.o *.a *.lib *.obj

  • trunk/Common/dir.c

    r212 r215  
    1919
    2020char** cm_scandir(const char* path) {
    21 #ifdef _MSC_VER
     21#if defined(_MSC_VER) || defined(__BORLANDC__)
    2222        return NULL;
    2323#else

  • trunk/Module/Makefile

    r212 r215  
    1414
    1515.c.$(OBJ):
    16         $(CC) $(CFLAGS) -c -o $@ $<
     16        $(CC) $(CFLAGS) -I ../Server -c -o $@ $<
    1717
    1818clean:
    19         rm -f *.o *.so *.a *.dll *.dll
     19        rm -f *.o *.so *.a *.dll

  • trunk/Module/mod_cgi.c

    r41 r215  
    11/* $Id$ */
    22
    3 #include "../Server/tw_module.h"
     3#include <tw_module.h>
    44
    55#include <cm_string.h>

  • trunk/Module/mod_example.c

    r40 r215  
    22/* This module will accept all directives, and always return 403 on the access. */
    33
    4 #include "../Server/tw_module.h"
     4#include <tw_module.h>
    55
    66int mod_init(struct tw_config* config, struct tw_tool* tools) {

  • trunk/Module/mod_proxy.c

    r126 r215  
    11/* $Id$ */
    22
    3 #include "../Server/tw_module.h"
     3#include <tw_module.h>
    44
    55#include <cm_string.h>

  • trunk/Platform/vc6.mk

    r214 r215  
    1313LIBSUF = .dll
    1414OBJ = obj
     15PREOBJS = tewi_vc6.res

  • trunk/Server/Makefile

    r212 r215  
    1414tewi_strip$(EXEC): tewi$(EXEC)
    1515
    16 tewi$(EXEC): $(OBJS) ../Common/common.$(STATIC)
     16tewi$(EXEC): $(OBJS) ../Common/common.$(STATIC) $(REQOBJS)
    1717        $(CC) $(LDFLAGS) $(EXTLDFLAGS) -o $@ $(OBJS) $(EXTLIBS) ../Common/common.$(STATIC) $(LIBS)
    1818        $(SERVADD)
    … …  
    4949        $(WINDRES) tewi.rc -O coff -o $@
    5050
     51tewi_vc6.res: tewi.rc ../Binary/tewi.ico
     52        rc /fo$@ tewi.rc
     53
     54tewi_bcc.res: tewi.rc ../Binary/tewi.ico
     55        brc32 -r -fo$@ tewi.rc
     56
    5157clean:
    5258        rm -f *.o tewi *.exe *.res *.elf *.sfo *.pbp *.self *.pkg *.obj

  • trunk/Server/config.c

    r212 r215  
    1111#include <string.h>
    1212
    13 #ifndef _MSC_VER
     13#if !defined(_MSC_VER) && !defined(__BORLANDC__)
    1414#include <unistd.h>
    1515#endif
    1616
    17 #if defined(__MINGW32__) || defined(_MSC_VER)
     17#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
    1818#include <winsock2.h>
    1919#endif
    … …  
    267267                                        ) {
    268268                                                for(i = 1; r[i] != NULL; i++) {
    269 #ifdef _MSC_VER
     269#if defined(_MSC_VER) || defined(__BORLANDC__)
    270270                                                        uint32_t port = atoi(r[i]);
    271271#else
    … …  
    274274                                                        int j;
    275275                                                        cm_log("Config", "Going to listen at port %d%s", (int)port, cm_strcaseequ(r[0], "ListenSSL") ? " with SSL" : "");
    276 #ifdef _MSC_VER
     276#if defined(_MSC_VER) || defined(__BORLANDC__)
    277277                                                        if(cm_strcaseequ(r[0], "ListenSSL")) port |= (1UL << 31);
    278278#else

  • trunk/Server/http.c

    r213 r215  
    1616#include <string.h>
    1717
    18 #if defined(__MINGW32__) || defined(_MSC_VER)
     18#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
    1919#include <winsock2.h>
    2020#else

  • trunk/Server/main.c

    r213 r215  
    55#include "../config.h"
    66
    7 #ifndef _MSC_VER
     7#ifdef __BORLANDC__
     8
     9#pragma resource "tewi_bcc.res"
     10
     11#endif
     12
     13#if !defined(_MSC_VER) && !defined(__BORLANDC__)
    814#include <unistd.h>
    915#endif
    … …  
    2531#include "tw_version.h"
    2632
    27 #if defined(__MINGW32__) || defined(_MSC_VER)
     33#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
    2834#include <windows.h>
    2935#endif
    … …  
    6268#define printf(...) tt_printf(__VA_ARGS__)
    6369#define STDERR_LOG(...) tt_printf(__VA_ARGS__)
    64 #elif defined(_MSC_VER)
     70#elif defined(_MSC_VER) || defined(__BORLANDC__)
    6571void STDERR_LOG(const char* format, ...) {
    6672        va_list args;
    … …  
    784790        cm_force_log(r);
    785791        free(r);
    786 #if !defined(__MINGW32__) && !defined(_MSC_VER)
     792#if !defined(__MINGW32__) && !defined(_MSC_VER) && !defined(__BORLANDC__)
    787793        signal(SIGCHLD, SIG_IGN);
    788794        signal(SIGPIPE, SIG_IGN);

  • trunk/Server/module.c

    r212 r215  
    1212#include <string.h>
    1313#include <stdlib.h>
    14 #ifndef _MSC_VER
     14#if !defined(_MSC_VER) && !defined(__BORLANDC__)
    1515#include <unistd.h>
    1616#endif
    … …  
    2727#else
    2828
    29 #if defined(__MINGW32__) || defined(_MSC_VER)
     29#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
    3030#include <windows.h>
    3131#else
    … …  
    3737        void* lib;
    3838        chdir(config.server_root);
    39 #if defined(__MINGW32__) || defined(_MSC_VER)
     39#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
    4040        lib = LoadLibraryA(path);
    4141#else
    … …  
    5151
    5252void* tw_module_symbol(void* mod, const char* sym) {
    53 #if defined(__MINGW32__) || defined(_MSC_VER)
     53#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
    5454        return GetProcAddress(mod, sym);
    5555#else

  • trunk/Server/server.c

    r214 r215  
    1616#include "tw_version.h"
    1717
    18 #ifndef _MSC_VER
     18#if !defined(_MSC_VER) && !defined(__BORLANDC__)
    1919#include <unistd.h>
    2020#endif
    … …  
    3333#include <cm_dir.h>
    3434
    35 #if defined(__MINGW32__) || defined(_MSC_VER)
     35#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
    3636#ifndef NO_GETADDRINFO
    3737#include <ws2tcpip.h>
    … …  
    8484int sockets[MAX_PORTS];
    8585
    86 #if defined(__MINGW32__) || defined(_MSC_VER)
     86#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
    8787const char* reserved_names[] = {"CON", "PRN", "AUX", "NUL", "COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9", "LPT1", "LPT2", "LPT3", "LPT4", "LPT5", "LPT6", "LPT7", "LPT8", "LPT9"};
    8888#endif
    … …  
    111111
    112112void close_socket(int sock) {
    113 #if defined(__MINGW32__) || defined(_MSC_VER)
     113#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
    114114        closesocket(sock);
    115115#else
    … …  
    120120int tw_server_init(void) {
    121121        int i;
    122 #if defined(__MINGW32__) || defined(_MSC_VER)
     122#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
    123123        WSADATA wsa;
    124124        WSAStartup(MAKEWORD(2, 0), &wsa);
    … …  
    135135                int sock = socket(AF_INET6, SOCK_STREAM, IPPROTO_TCP);
    136136#endif
    137 #if defined(__MINGW32__) || defined(_MSC_VER)
     137#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
    138138                if(sock == INVALID_SOCKET)
    139139#else
    … …  
    238238                doc = NULL;
    239239        }
    240 #ifdef _MSC_VER
     240#if defined(_MSC_VER) || defined(__BORLANDC__)
    241241        sprintf(construct, "%lu", (unsigned long)size);
    242242#else
    … …  
    451451#if defined(__MINGW32__) || defined(_MSC_VER)
    452452unsigned int WINAPI tw_server_pass(void* ptr) {
     453#elif defined(__BORLANDC__)
     454void tw_server_pass(void* ptr) {
    453455#elif defined(__HAIKU__)
    454456int32_t tw_server_pass(void* ptr) {
    … …  
    456458int tw_server_pass(void* ptr) {
    457459#endif
    458 #if defined(__HAIKU__) || defined(__MINGW32__) || defined(_PSP) || defined(__PPU__) || defined(_MSC_VER)
     460#if defined(__HAIKU__) || defined(__MINGW32__) || defined(_PSP) || defined(__PPU__) || defined(_MSC_VER) || defined(__BORLANDC__)
    459461#define FREE_PTR
    460462        int sock = ((struct pass_entry*)ptr)->sock;
    … …  
    549551                                        struct tm* btm;
    550552                                        strptime(req.headers[i + 1], "%a, %d %b %Y %H:%M:%S GMT", &tm);
    551 #if defined(__MINGW32__) || defined(_PSP) || defined(__PPU__) || defined(__ps2sdk__) || defined(_MSC_VER)
     553#if defined(__MINGW32__) || defined(_PSP) || defined(__PPU__) || defined(__ps2sdk__) || defined(_MSC_VER) || defined(__BORLANDC__)
    552554                                        t = 0;
    553555                                        btm = localtime(&t);
    … …  
    612614                        char* rpath;
    613615                        struct stat st;
     616                        char* slash;
    614617                        cm_log("Server", "Document root is %s", vhost_entry->root == NULL ? "not set" : vhost_entry->root);
    615618                        path = cm_strcat(vhost_entry->root == NULL ? "" : vhost_entry->root, req.path);
    616619                        cm_log("Server", "Filesystem path is %s", path);
    617 #if defined(__MINGW32__) || defined(_MSC_VER)
     620#if defined(_MSC_VER) || defined(__BORLANDC__)
     621                        for(i = strlen(path) - 1; i >= 0; i--){
     622                                if(path[i] == '/'){
     623                                        path[i] = 0;
     624                                }else{
     625                                        break;
     626                                }
     627                        }
     628#endif
     629#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
    618630                        rpath = cm_strdup(path);
    619631                        for(i = strlen(rpath) - 1; i >= 0; i--) {
    … …  
    647659                                } else if(S_ISDIR(st.st_mode)) {
    648660                                        if(req.path[strlen(req.path) - 1] != '/') {
    649                                                 char* headers[3] = {"Location", cm_strcat(req.path, "/"), NULL};
     661                                                char* headers[3] = {"Location", NULL, NULL};
     662                                                headers[1] = cm_strcat(req.path, "/");
    650663                                                cm_log("Server", "Accessing directory without the slash at the end");
    651664                                                _tw_process_page(s, sock, tw_http_status(301), NULL, NULL, NULL, 0, headers, 0, 0);
    … …  
    885898#endif
    886899        close_socket(sock);
    887 #if defined(__MINGW32__) || defined(_MSC_VER)
    888         _endthread(0);
     900#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
     901        _endthread(
     902#ifndef __BORLANDC__
     903                0
     904#endif
     905        );
    889906#elif defined(__HAIKU__)
    890907                exit_thread(0);
    891908#endif
     909#ifndef __BORLANDC__
    892910        return 0;
     911#endif
    893912}
    894913
    … …  
    898917#endif
    899918
    900 #if defined(__MINGW32__) || defined(__HAIKU__) || defined(_MSC_VER)
     919#if defined(__MINGW32__) || defined(__HAIKU__) || defined(_MSC_VER) || defined(__BORLANDC__)
    901920struct thread_entry {
    902921#ifdef __HAIKU__
    … …  
    917936        struct timeval tv;
    918937#endif
    919 #if defined(__MINGW32__) || defined(__HAIKU__) || defined(_MSC_VER)
     938#if defined(__MINGW32__) || defined(__HAIKU__) || defined(_MSC_VER) || defined(__BORLANDC__)
    920939        struct thread_entry threads[2048];
    921940        for(i = 0; i < sizeof(threads) / sizeof(threads[0]); i++) {
    … …  
    948967#endif
    949968                if(ret == -1) {
    950 #if !defined(__MINGW32__) && !defined(_MSC_VER)
     969#if !defined(__MINGW32__) && !defined(_MSC_VER) && !defined(__BORLANDC__)
    951970                        cm_log("Server", "Select failure: %s", strerror(errno));
    952971#endif
    … …  
    972991                                        socklen_t clen = sizeof(claddr);
    973992                                        int sock = accept(sockets[i], (struct sockaddr*)&claddr, &clen);
    974 #if defined(__MINGW32__) || defined(__HAIKU__) || defined(_PSP) || defined(__PPU__) || defined(_MSC_VER)
     993#if defined(__MINGW32__) || defined(__HAIKU__) || defined(_PSP) || defined(__PPU__) || defined(_MSC_VER) || defined(__BORLANDC__)
    975994                                        int j;
    976995                                        struct pass_entry* e = malloc(sizeof(*e));
    977996                                        cm_log("Server", "New connection accepted");
    978997                                        e->sock = sock;
    979 #ifdef _MSC_VER
     998#if defined(_MSC_VER) || defined(__BORLANDC__)
    980999                                        e->ssl = config.ports[i] & (1UL << 31);
    9811000#else
    … …  
    9851004                                        e->addr = claddr;
    9861005#endif
    987 #if defined(__MINGW32__) || defined(_MSC_VER)
     1006#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
    9881007                                        _beginthread(tw_server_pass, 0, e);
    9891008#elif defined(_PSP) || defined(__PPU__)

  • trunk/Server/strptime.c

    r212 r215  
    3636//__RCSID("$NetBSD: strptime.c,v 1.62 2017/08/24 01:01:09 ginsbach Exp $");
    3737
    38 #if defined(__MINGW32__) || defined(_MSC_VER)
     38#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
    3939
    4040#include <ctype.h>
    … …  
    104104#define isleap_sum(a, b)        isleap((a) % 400 + (b) % 400)
    105105
    106 #ifdef _MSC_VER
     106#if defined(_MSC_VER) || defined(__BORLANDC__)
    107107#define tzname              _tzname
    108108#define strncasecmp         _strnicmp
     109#endif
     110
     111#ifdef __BORLANDC__
     112char* cm_strdup(const char* str);
     113
     114int _strnicmp(const char* _a, const char* _b, int len){
     115        char* a = cm_strdup(_a);
     116        char* b = cm_strdup(_b);
     117        int i;
     118        char* r;
     119        for(i = 0; a[i] != 0; i++){
     120                a[i] = tolower(a[i]);
     121        }
     122        for(i = 0; b[i] != 0; i++){
     123                b[i] = tolower(b[i]);
     124        }
     125        r = strncmp(a, b, len);
     126        free(a);
     127        free(b);
     128        return r;
     129}
    109130#endif
    110131
    … …  
    400421
    401422#ifndef TIME_MAX
    402 #ifdef _MSC_VER
     423#if defined(_MSC_VER) || defined(__BORLANDC__)
    403424#define TIME_MAX        INT32_MAX
    404425#else
    … …  
    409430            {
    410431                time_t sse = 0;
    411 #ifdef _MSC_VER
     432#if defined(_MSC_VER) || defined(__BORLANDC__)
    412433                uint32_t rulim = TIME_MAX;
    413434#else
    … …  
    426447                } while ((sse * 10 <= TIME_MAX) &&
    427448                     rulim && *bp >= '0' && *bp <= '9');
    428 #ifdef _MSC_VER
     449#if defined(_MSC_VER) || defined(__BORLANDC__)
    429450                if (sse < 0 || (uint32_t)sse > TIME_MAX) {
    430451#else
    … …  
    435456                }
    436457#ifdef _WIN32
    437 #ifdef _MSC_VER
     458#if defined(_MSC_VER) || defined(__BORLANDC__)
    438459                if (1)
    439460#else

  • trunk/Server/tw_config.h

    r212 r215  
    1515#include <stdbool.h>
    1616
    17 #if defined(__MINGW32__) || defined(_MSC_VER)
     17#if defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)
    1818#include <winsock2.h>
    1919#define NO_IPV6
    … …  
    4343#define MAX_README 8
    4444
    45 #ifdef _MSC_VER
     45#if defined(_MSC_VER) || defined(__BORLANDC__)
    4646#define NUM1024 1024UL
    4747#else
    … …  
    9595
    9696struct tw_config {
    97 #ifdef _MSC_VER
     97#if defined(_MSC_VER) || defined(__BORLANDC__)
    9898        uint32_t ports[MAX_PORTS + 1];
    9999#else

  • trunk/Server/version.c

    r214 r215  
    1818#elif defined(_MSC_VER)
    1919    "Windows-MSVC"
     20#elif defined(__BORLANDC__)
     21    "Windows-BCC"
    2022#elif defined(__HAIKU__)
    2123    "Haiku"

  • trunk/config.h.tmpl

    r212 r215  
    1818#endif
    1919
    20 #if (defined(__MINGW32__) || defined(_MSC_VER)) && defined(USE_POLL)
     20#if (defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)) && defined(USE_POLL)
    2121#undef USE_POLL
    2222/* Force select(2) for Windows */
    2323#endif
    2424
    25 #if (defined(__MINGW32__) || defined(_MSC_VER)) && defined(HAS_CHROOT)
     25#if (defined(__MINGW32__) || defined(_MSC_VER) || defined(__BORLANDC__)) && defined(HAS_CHROOT)
    2626#undef HAS_CHROOT
    2727/* Windows should not have chroot */
    2828#endif
    2929
    30 #if defined(_MSC_VER) && !defined(NO_GETADDRINFO)
     30#if (defined(_MSC_VER) || defined(__BORLANDC__)) && !defined(NO_GETADDRINFO)
    3131#define NO_GETADDRINFO
    3232/* Do not use getaddrinfo */
Note: See TracChangeset for help on using the changeset viewer.