harn-stdlib 0.8.26

Embedded Harn standard library source catalog
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94

// std/worktree — isolated git worktree helpers built on exec_at/shell_at.
//
// Import: import "std/worktree"
/**
 * worktree_default_path.
 *
 * @effects: []
 * @allocation: heap
 * @errors: []
 * @api_stability: stable
 * @example: worktree_default_path(repo, name)
 */
pub fn worktree_default_path(repo, name) {
  return repo + "/.harn/worktrees/" + name
}

/**
 * worktree_create.
 *
 * @effects: []
 * @allocation: heap
 * @errors: []
 * @api_stability: stable
 * @example: worktree_create(repo, name, base_ref, path)
 */
pub fn worktree_create(repo, name, base_ref, path) {
  let target = if path == nil || path == "" {
    worktree_default_path(repo, name)
  } else {
    path
  }
  mkdir(repo + "/.harn")
  mkdir(repo + "/.harn/worktrees")
  let result = exec_at(repo, "git", "worktree", "add", "-B", name, target, base_ref)
  return {repo: repo, name: name, path: target, base_ref: base_ref, result: result, success: result?.success}
}

/**
 * worktree_remove.
 *
 * @effects: []
 * @allocation: heap
 * @errors: []
 * @api_stability: stable
 * @example: worktree_remove(repo, path, force)
 */
pub fn worktree_remove(repo, path, force) {
  if force {
    return exec_at(repo, "git", "worktree", "remove", "--force", path)
  }
  return exec_at(repo, "git", "worktree", "remove", path)
}

/**
 * worktree_status.
 *
 * @effects: []
 * @allocation: heap
 * @errors: []
 * @api_stability: stable
 * @example: worktree_status(path)
 */
pub fn worktree_status(path) {
  return exec_at(path, "git", "status", "--short", "--branch")
}

/**
 * worktree_diff.
 *
 * @effects: []
 * @allocation: heap
 * @errors: []
 * @api_stability: stable
 * @example: worktree_diff(path, base_ref)
 */
pub fn worktree_diff(path, base_ref) {
  if base_ref == nil || base_ref == "" {
    return exec_at(path, "git", "diff", "--stat")
  }
  return exec_at(path, "git", "diff", base_ref + "...HEAD")
}

/**
 * worktree_shell.
 *
 * @effects: []
 * @allocation: heap
 * @errors: []
 * @api_stability: stable
 * @example: worktree_shell(path, script)
 */
pub fn worktree_shell(path, script) {
  return shell_at(path, script)
}