Support for set last modified

For #120
mfikes · Apr 18, 2021 · f9907dd · f9907dd
1 parent e13166f
commit f9907dd
Show file tree

Hide file tree

Showing 6 changed files with 50 additions and 2 deletions.
diff --git a/Clojure/src/ambly/core.clj b/Clojure/src/ambly/core.clj
@@ -609,7 +609,12 @@
                   expected-clojurescript-version ".\n"))))))
       (repl/evaluate-form repl-env env "<cljs repl>"
         '(set! *print-newline* true))
-      {:merge-opts {:output-dir webdav-mount-point}})
+      {:merge-opts {:output-dir        webdav-mount-point
+                    :set-last-modified (fn [^File file last-modified]
+                                         (repl/evaluate-form repl-env env "<cljs repl>"
+                                           `(js/AMBLY_SET_LAST_MODIFIED
+                                              ~(subs (str file) (count webdav-mount-point))
+                                              ~last-modified)))}})
     (catch Throwable t
       (tear-down repl-env)
       (throw t))))

diff --git a/ObjectiveC/Ambly Demo/Ambly Demo CLI/App.m b/ObjectiveC/Ambly Demo/Ambly Demo CLI/App.m
@@ -36,6 +36,7 @@ - (BOOL)setup {
     [self.contextManager setUpConsoleLog];
     [self.contextManager setUpTimerFunctionality];
     [self.contextManager setUpAmblyImportScript];
+    [self.contextManager setUpAmblySetLastModified];
 
     self.replServer = [[ABYServer alloc] initWithContext:self.contextManager.context
                                  compilerOutputDirectory:compilerOutputDirectory];

diff --git a/ObjectiveC/Ambly Demo/Ambly Demo/AppDelegate.m b/ObjectiveC/Ambly Demo/Ambly Demo/AppDelegate.m
@@ -42,6 +42,7 @@ - (BOOL)application:(UIApplication *)application didFinishLaunchingWithOptions:(
     [self.contextManager setUpConsoleLog];
     [self.contextManager setUpTimerFunctionality];
     [self.contextManager setUpAmblyImportScript];
+    [self.contextManager setUpAmblySetLastModified];
 
     self.replServer = [[ABYServer alloc] initWithContext:self.contextManager.context
                                  compilerOutputDirectory:compilerOutputDirectory];

diff --git a/ObjectiveC/src/ABYContextManager.h b/ObjectiveC/src/ABYContextManager.h
@@ -42,6 +42,11 @@
  */
 - (void)setUpAmblyImportScript;
 
+/**
+ Sets up `AMBLY_SET_LAST_MODIFIED` capability for the managed context.
+ */
+-(void)setUpAmblySetLastModified;
+
 /**
  Bootstraps the JavaScript environment so that goog require is set up to work properly.
  Intended for use in dev when an app bundles up JavaScript files compiled using :optimizations :none.

diff --git a/ObjectiveC/src/ABYContextManager.m b/ObjectiveC/src/ABYContextManager.m
@@ -140,6 +140,42 @@ -(void)setUpAmblyImportScript
 
 }
 
+-(void)setUpAmblySetLastModified
+{
+    NSString* compilerOutputDirectoryPath = self.compilerOutputDirectory.path;
+
+    [ABYUtils installGlobalFunctionWithBlock:
+
+     ^JSValueRef(JSContextRef ctx, size_t argc, const JSValueRef argv[]) {
+
+         if (argc == 2
+             && JSValueGetType (ctx, argv[0]) == kJSTypeString
+             && JSValueGetType (ctx, argv[1]) == kJSTypeNumber)
+         {
+             JSStringRef pathStrRef = JSValueToStringCopy(ctx, argv[0], NULL);
+             NSString* path = (__bridge_transfer NSString *) JSStringCopyCFString( kCFAllocatorDefault, pathStrRef );
+             JSStringRelease(pathStrRef);
+
+             double timestamp = JSValueToNumber(ctx, argv[1], NULL);
+             NSDate* lastModifiedDate = [NSDate dateWithTimeIntervalSince1970:timestamp/1000.0];
+
+             NSString* fullPath = [NSString stringWithFormat:@"%@/%@", compilerOutputDirectoryPath, path];
+
+             NSLog(@"SetLastModified: %@ %f", fullPath, timestamp);
+
+             NSDictionary* attr = [NSDictionary dictionaryWithObjectsAndKeys: lastModifiedDate, NSFileModificationDate, NULL];
+
+             [[NSFileManager defaultManager] setAttributes: attr ofItemAtPath: fullPath error: NULL];
+         }
+
+         return JSValueMakeUndefined(ctx);
+     }
+                                        name:@"AMBLY_SET_LAST_MODIFIED"
+                                     argList:@"path,timestamp"
+                                   inContext:_context];
+
+}
+
 -(void)bootstrapWithDepsFilePath:(NSString*)depsFilePath googBasePath:(NSString*)googBasePath
 {    
     // Setup CLOSURE_IMPORT_SCRIPT

diff --git a/deps.edn b/deps.edn
@@ -1,4 +1,4 @@
 {:paths ["Clojure/src"]
  :deps
-  {org.clojure/clojurescript {:mvn/version "1.10.339"}
+  {org.clojure/clojurescript {:git/url "https://github.com/clojure/clojurescript" :sha "87b8177228132dce6eaf68524decafbee83f5b34"}
    org.jmdns/jmdns {:mvn/version "3.5.5"}}}