pike.git/ src/ builtin_functions.c

Branch: Tag:

2018-01-12

2018-01-12 18:55:45 by Stephen R. van den Berg <srb@cuci.nl>

Restore part of AmigaOS support.

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
1625:    *! 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). +  *! front of absolute paths). @[combine_path_amigaos()] concatenates +  *! according to AmigaOS filesystem conventions.    *!    *! @[combine_path()] is equivalent to @[combine_path_unix()] on UNIX-like    *! operating systems, and equivalent to @[combine_path_nt()] on NT-like -  *! operating systems. +  *! operating systems, and equivalent to @[combine_path_amigaos()] on +  *! AmigaOS-like operating systems.    *!    *! @seealso    *! @[getcwd()], @[Stdio.append_path()]
1641:   #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.
9266:    /* 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)),