Changeset 12700 in project for chicken/trunk/runtime.c


Ignore:
Timestamp:
12/01/08 11:22:37 (12 years ago)
Author:
felix winkelmann
Message:

removed remaining support for DJGPP, Metrowerks and Watcom

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/runtime.c

    r12644 r12700  
    5555#endif
    5656
    57 #ifdef __WATCOMC__
    58 # define NSIG (_SIGMAX - _SIGMIN + 1)
    59 #endif
    60 
    61 #if defined(__MWERKS__) && !defined(__INTEL__)
    62 
    63 # include <stat.h>
    64 # ifndef MACINTOSH_GUI
    65 #  include <console.h>
    66 #  include <SIOUX.h>
    67 # endif
    68 
    69 # define NSIG                          32
    70 # define EINVAL                        ERANGE
    71 static C_TLS int timezone;
    72 
    73 #elif !defined(C_NONUNIX)
     57#if !defined(C_NONUNIX)
    7458
    7559# include <sys/types.h>
     
    556540  C_word h, s, n;
    557541
    558 #if defined(__MWERKS__) && !defined(__INTEL__) && !defined(MACINTOSH_GUI)
    559   argc = ccommand(&argv);
    560   SIOUXSettings.asktosaveonclose = 0;
    561   SIOUXSettings.autocloseonquit = 1;
    562 #elif defined(C_WINDOWS_GUI)
     542#if defined(C_WINDOWS_GUI)
    563543  parse_argv(GetCommandLine());
    564544  argc = C_main_argc;
     
    613593
    614594
    615 #if defined(__MWERKS__) && !defined(__INTEL__)
    616 int strncasecmp(const C_char *one, const C_char *two, size_t n)
    617 {
    618   int c;
    619 
    620   while(n--) {
    621     if((c = C_tolower(*(one++)) - C_tolower(*(two++))) < 0) return -1;
    622     else if(c > 0) return 1;
    623   }
    624 
    625   return 0;
    626 }
    627 #endif
    628 
    629 
    630595/* Initialize runtime system: */
    631596
     
    640605  /* Make sure _tzname, _timezone, and _daylight are set */
    641606  _tzset();
    642 # elif defined(__WATCOMC__) || defined(__DJGPP__)
    643   /* Make sure tzname, timezone, and daylight are set */
    644   tzset();
    645607# endif
    646608#else
     
    14071369  C_fprintf(C_stderr, C_text("\n%s - execution terminated\n\n%s"), msg, dmp);
    14081370 
    1409 # if defined(__MWERKS__) && !defined(__INTEL__) && !defined(MACINTOSH_GUI)
    1410   C_printf("\n[press RETURN to exit...]");
    1411   C_fflush(C_stdout);
    1412   C_getchar();
    1413 # endif
    1414 
    14151371  C_exit(1);
    14161372#endif
     
    14301386  C_fprintf(C_stderr, C_text("\n%s - execution terminated"), msg);
    14311387 
    1432 # if defined(__MWERKS__) && !defined(__INTEL__) && !defined(MACINTOSH_GUI)
    1433   C_printf("\n[press RETURN to exit...]");
    1434   C_fflush(C_stdout);
    1435   C_getchar();
    1436 # endif
    1437 
    14381388  C_exit(1);
    14391389#endif
     
    83418291  a = C_alloc(2 + C_bytestowords(3));
    83428292  s = C_string2(&a, "gnu");
    8343 #elif defined(__MWERKS__)
    8344   a = C_alloc(2 + C_bytestowords(10));
    8345   s = C_string2(&a, "metrowerks");
    83468293#elif defined(__INTEL_COMPILER)
    83478294  a = C_alloc(2 + C_bytestowords(5));
    83488295  s = C_string2(&a, "intel");
    8349 #elif defined(__WATCOMC__)
    8350   a = C_alloc(2 + C_bytestowords(7));
    8351   s = C_string2(&a, "watcom");
    83528296#else
    83538297  a = C_alloc(2 + C_bytestowords(7));
Note: See TracChangeset for help on using the changeset viewer.