RTEMS: add zoneset()

modules/libcom/RTEMS/rtems_init.c

@@ -509,6 +509,25 @@ static void nfsMountCallFunc(const iocshArgBuf *args)
 }
 #endif
 
+
+void zoneset(const char *zone)
+{
+    if(zone)
+        setenv("TZ", zone, 1);
+    else
+        unsetenv("TZ");
+    tzset();
+}
+
+static const iocshArg zonesetArg0 = {"zone string", iocshArgString};
+static const iocshArg * const zonesetArgs[1] = {&zonesetArg0};
+static const iocshFuncDef zonesetFuncDef = {"zoneset",1,zonesetArgs};
+static void zonesetCallFunc(const iocshArgBuf *args)
+{
+    zoneset(args[0].sval);
+}
+
+
 /*
  * Register RTEMS-specific commands
  */
@@ -519,6 +538,7 @@ static void iocshRegisterRTEMS (void)
 #ifndef OMIT_NFS_SUPPORT
     iocshRegister(&nfsMountFuncDef, nfsMountCallFunc);
 #endif
+    iocshRegister(&zonesetFuncDef, &zonesetCallFunc);
 }
 
 /*