feat: Describe change

packages/cli/contrib/build_appland_archive

@@ -0,0 +1,54 @@
+#!/usr/bin/env ruby
+
+require 'fileutils'
+
+revision = ARGV[0]
+no_test = true if ARGV[1..-1].member?('--no-test')
+
+cli_dir = Dir.pwd
+
+sys_command = ->(cmd, env = nil) do
+  Array(cmd).each do |c|
+    args = [ env, c ].compact
+    p args
+    system *args or raise "Command failed: #{c}"
+  end
+end
+
+node_version = `node -v`
+raise "Node version should be 16, got #{node_version}" unless node_version.index('v16.')
+
+Dir.chdir File.expand_path('~/source/appland/appland')
+appland_dir = Dir.pwd
+
+required_ruby_version = File.read('.ruby-version').strip
+ruby_version = `ruby -v`
+raise "Ruby version must be #{required_ruby_version}, is #{ruby_version}" unless ruby_version.index(required_ruby_version)
+
+sys_command.call [
+  "git checkout #{revision}",
+]
+
+unless no_test
+  sys_command.call 'git lfs track "*.tar"' \
+    unless File.read('.gitattributes').index('*.tar filter=lfs diff=lfs merge=lfs -text')
+
+  env = `bundle exec rake dev:db`.split("\n").select { |line| line.index('=') }.map { |line| k, v = line.split('='); [ k['export '.length..-1], v] }.to_h
+
+  FileUtils.rm_rf 'tmp/appmap'
+  FileUtils.mkdir_p 'tmp/appmap/rspec'
+  FileUtils.mkdir_p '.appmap/archive/full'
+
+  sys_command.call [
+    'npm install',
+    './bin/webpack',
+    'psql -U postgres -h localhost -c "create database appland_test" || true',
+    'rails db:migrate',
+    'rails db:test:prepare',
+    'bundle exec rspec'
+  ], env.merge('RAILS_ENV' => 'test', 'DISABLE_SPRING' => 'true')
+end
+
+Dir.chdir cli_dir
+
+system "node ./built/src/cli.js archive"

packages/cli/contrib/build_rails_sample_app_6th_ed_archive

@@ -0,0 +1,61 @@
+#!/usr/bin/env ruby
+
+require 'fileutils'
+
+revision = ARGV[0]
+no_test = true if ARGV[1..-1]&.member?('--no-test')
+
+cli_dir = Dir.pwd
+
+sys_command = ->(cmd, env = nil) do
+  Array(cmd).each do |c|
+    args = [ env, c ].compact
+    p args
+    system *args or raise "Command failed: #{c}"
+  end
+end
+
+node_version = `node -v`
+raise "Node version should be 14, got #{node_version}" unless node_version.index('v14.')
+
+Dir.chdir File.expand_path('~/source/land-of-apps/sample_app_6th_ed')
+project_dir = Dir.pwd
+
+required_ruby_version = '2.7.3'
+ruby_version = `ruby -v`
+raise "Ruby version must be #{required_ruby_version}, is #{ruby_version}" unless ruby_version.index(required_ruby_version)
+
+sys_command.call [
+  "git checkout #{revision}",
+]
+
+unless no_test
+  sys_command.call 'git lfs track "*.tar"' \
+    unless File.read('.gitattributes').index('*.tar filter=lfs diff=lfs merge=lfs -text')
+
+  File.write 'appmap.yml', <<~APPMAP_CONFIG
+name: sample_app_6th_ed
+language: ruby
+appmap_dir: tmp/appmap
+packages:
+  - path: app
+  - path: lib
+APPMAP_CONFIG
+
+  FileUtils.rm_rf 'tmp/appmap'
+  FileUtils.mkdir_p 'tmp/appmap/minitest'
+  FileUtils.mkdir_p '.appmap/archive/full'
+
+  sys_command.call [
+    'bundle update mimemagic puma',
+    'bundle info appmap || bundle add appmap',
+    'bundle update appmap',
+    'yarn install',
+    'rails db:test:prepare',
+    'rails test'
+  ], { 'RAILS_ENV' => 'test', 'DISABLE_SPRING' => 'true' }
+end
+
+Dir.chdir cli_dir
+
+system "node ./built/src/cli.js archive -d #{project_dir}"

packages/cli/package.json

@@ -79,6 +79,7 @@
     "@appland/sequence-diagram": "workspace:^1",
     "@sidvind/better-ajv-errors": "^0.9.1",
     "@types/moo": "^0.5.5",
+    "@zip.js/zip.js": "^2.6.75",
     "JSONStream": "^1.3.5",
     "ajv": "^8.6.3",
     "applicationinsights": "^2.1.4",

packages/cli/src/cli.ts

@@ -33,6 +33,10 @@ const SequenceDiagramCommand = require('./cmds/sequenceDiagram');
 const SequenceDiagramDiffCommand = require('./cmds/sequenceDiagramDiff');
 const StatsCommand = require('./cmds/stats/stats');
 import UploadCommand from './cmds/upload';
+const BuildArchive = require('./cmds/archive/archive');
+const RestoreArchive = require('./cmds/archive/restore');
+const UpdateAppMaps = require('./cmds/update');
+const DescribeChange = require('./cmds/describeChange');
 
 class DiffCommand {
   public appMapNames: any;
@@ -455,6 +459,10 @@ yargs(process.argv.slice(2))
   .command(SequenceDiagramDiffCommand)
   .command(PruneCommand)
   .command(UploadCommand)
+  .command(DescribeChange)
+  .command(BuildArchive)
+  .command(RestoreArchive)
+  .command(UpdateAppMaps)
   .strict()
   .demandCommand()
   .help().argv;

packages/cli/src/cmds/archive/Metadata.ts

@@ -0,0 +1,14 @@
+import { AppMapConfig } from '../../lib/loadAppMapConfig';
+
+export type Metadata = {
+  versions: Record<string, string>;
+  workingDirectory: string;
+  appMapDir: string;
+  commandArguments: Record<string, string | string[]>;
+  baseRevision?: string;
+  revision: string;
+  timestamp: string;
+  oversizedAppMaps: string[];
+  deletedAppMaps?: string[];
+  config: AppMapConfig;
+};