Changeset 3159 for trunk/src/kmk/function.c

Timestamp:

Mar 19, 2018, 2:37:13 PM (7 years ago)

Author:

bird

Message:

kmk/win: Some fixes & docs.

File:

• trunk/src/kmk/function.c (modified) (3 diffs)

trunk/src/kmk/function.c

@@ -3058 +3058 @@
     {
       FILE *fp;
+#ifdef KMK_FOPEN_NO_INHERIT_MODE
+      const char *mode = "w" KMK_FOPEN_NO_INHERIT_MODE;
+#else
       const char *mode = "w";
+#endif
 
       /* We are writing a file.  */
@@ -3064 +3068 @@
       if (fn[0] == '>')
         {
+#ifdef KMK_FOPEN_NO_INHERIT_MODE
+          mode = "a" KMK_FOPEN_NO_INHERIT_MODE;
+#else
           mode = "a";
+#endif
           ++fn;
         }
@@ -3100 +3108 @@
         O (fatal, *expanding_var, _("file: too many arguments"));
 
+#ifdef KMK_FOPEN_NO_INHERIT_MODE
+      ENULLLOOP (fp, fopen (fn, "r" KMK_FOPEN_NO_INHERIT_MODE));
+#else
       ENULLLOOP (fp, fopen (fn, "r"));
+#endif
       if (fp == NULL)
         {