Changeset 12700 in project for chicken


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

removed remaining support for DJGPP, Metrowerks and Watcom

Location:
chicken/trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/TODO

    r12630 r12700  
    140140** branches
    141141*** test irregular branch, merge if performance is acceptable
     142*** try to improve performance in lazy-gensyms
    142143
    143144** expander
     
    162163
    163164** compiler
    164 *** use ##core#db information
    165     either automatically add use/require code (tricky) or at least warn and suggest
    166     use
    167165*** generate object-files in /tmp (or TMPDIR)?
    168166
     
    182180
    183181** build
    184 *** running "chicken-install -u" may be problematic with changed DESTDIR
    185182*** rules.make should really be generated by a script
    186183*** need script to process import libraries for generating indices for doc.callcc.org
     
    212209** when inlining, consing arg-list with "list" may make get-keyword possible foldable
    213210
    214 ** local flow analysis
     211** compiler-support for get-keyword ?
    215212
    216213** lambda-fusion / "fuse-and-dispatch" (suggested by Alex)
  • chicken/trunk/chicken.h

    r12631 r12700  
    176176#endif
    177177
    178 #if defined(_MSC_VER) || defined(__MWERKS__) || defined(__DJGPP__) || defined(__MINGW32__) || defined(__WATCOMC__)
     178#if defined(_MSC_VER) || defined(__MINGW32__)
    179179# define C_NONUNIX
    180180#endif
     
    939939#define C_qfree(ptr)                    (C_free(C_c_pointer_nn(ptr)), C_SCHEME_UNDEFINED)
    940940
    941 #if defined(__MWERKS__) && !defined(__INTEL__)
    942 # define C_tty_portp(p)                 C_SCHEME_FALSE
    943 #else
    944 # define C_tty_portp(p)                 C_mk_bool(isatty(fileno(C_port_file(p))))
    945 #endif
     941#define C_tty_portp(p)                 C_mk_bool(isatty(fileno(C_port_file(p))))
    946942
    947943#define C_emit_eval_trace_info(x, y, z) C_emit_trace_info2("<eval>", x, y, z)
  • chicken/trunk/library.scm

    r12331 r12700  
    4646#endif
    4747
    48 #if !defined(_MSC_VER) && !defined(__DJGPP__) && !defined(__MWERKS__)
     48#if !defined(_MSC_VER)
    4949# include <unistd.h>
    5050#endif
  • 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));
  • chicken/trunk/setup-utils.scm

    r11680 r12700  
    129129    (if sudo
    130130        (system* "sudo rm -f '~a'" path)
    131         (delete-file path)))
     131        (delete-file* path)))
    132132
    133133)
Note: See TracChangeset for help on using the changeset viewer.