Branch: Tag:

2018-01-12

2018-01-12 12:42:47 by Stephen R. van den Berg <srb@cuci.nl>

Rip out final remains of OS2 and AmigaOS.

1609:   /*! @decl string combine_path(string path, string ... paths)    *! @decl string combine_path_unix(string path, string ... paths)    *! @decl string combine_path_nt(string path, string ... paths) -  *! @decl string combine_path_amigaos(string path, string ... paths) +     *!    *! Concatenate a number of paths to a straightforward path without    *! any @expr{"//"@}, @expr{"/.."@} or @expr{"/."@}. If any path
1626:    *! absolute paths start with "/"). @[combine_path_nt()]    *! concatenates according to NT filesystem conventions ("/" and "\"    *! separates path components and there might be a drive letter in -  *! front of absolute paths). @[combine_path_amigaos()] concatenates -  *! according to AmigaOS filesystem conventions. +  *! front of absolute paths).    *!    *! @[combine_path()] is equivalent to @[combine_path_unix()] on UNIX-like    *! operating systems, and equivalent to @[combine_path_nt()] on NT-like -  *! operating systems, and equivalent to @[combine_path_amigaos()] on -  *! AmigaOS-like operating systems. +  *! operating systems.    *!    *! @seealso    *! @[getcwd()], @[Stdio.append_path()]
1644:   #define UNIX_COMBINE_PATH   #include "combine_path.h"    - #define AMIGAOS_COMBINE_PATH - #include "combine_path.h" -  -  -  +    /*! @decl int zero_type(mixed a)    *!    *! Return the type of zero.
9274:    /* function(string...:string) */    ADD_EFUN("combine_path_nt",f_combine_path_nt,tFuncV(tNone,tStr,tStr),0);    ADD_EFUN("combine_path_unix",f_combine_path_unix,tFuncV(tNone,tStr,tStr),0); -  ADD_EFUN("combine_path_amigaos",f_combine_path_amigaos,tFuncV(tNone,tStr,tStr),0); +    #if defined(__NT__)    ADD_EFUN("combine_path",f_combine_path_nt,tFuncV(tNone,tStr,tStr),0);   #else - #ifdef __amigaos__ -  ADD_EFUN("combine_path",f_combine_path_amigaos,tFuncV(tNone,tStr,tStr),0); - #else +     ADD_EFUN("combine_path",f_combine_path_unix,tFuncV(tNone,tStr,tStr),0);   #endif - #endif +        ADD_EFUN("compile", f_compile,    tFunc(tStr tOr(tObj, tVoid) tOr(tInt, tVoid) tOr(tInt, tVoid) tOr(tPrg(tObj), tVoid) tOr(tObj, tVoid) ,tPrg(tObj)),