about summary refs log blame commit diff stats
path: root/arc/.traces/sleep-scoped-location
blob: 3e110c29856545d1f7cd9a0ca8303ae905a0548c (plain) (tree)

















































































                                                                          
c{0: 0 (((10 integer)) <- ((copy)) ((5 literal))) -- nil
c{0: 1 (((default-space space-address)) <- ((copy)) ((10 literal))) -- nil
c{0: 2 (((1 integer)) <- ((copy)) ((23 literal))) -- nil
c{0: 3 (((sleep)) ((until-location-changes literal)) ((1 integer))) -- nil
c{0: 4 (((2 integer)) <- ((add)) ((1 integer)) ((1 literal))) -- nil
c{1: 0 ✓ (((10 integer)) <- ((copy)) ((5 literal)))
c{1: 1 ✓ (((default-space space-address)) <- ((copy)) ((10 literal)))
c{1: 2 ✓ (((1 integer)) <- ((copy)) ((23 literal)))
c{1: 3 ✓ (((sleep)) ((until-location-changes literal)) ((1 integer)))
c{1: 4 ✓ (((2 integer)) <- ((add)) ((1 integer)) ((1 literal)))
c{0: 0 (((sleep)) ((for-some-cycles literal)) ((30 literal))) -- nil
c{0: 1 (((12 integer)) <- ((copy)) ((3 literal))) -- nil
c{1: 0 ✓ (((sleep)) ((for-some-cycles literal)) ((30 literal)))
c{1: 1 ✓ (((12 integer)) <- ((copy)) ((3 literal)))
cn0: convert-names in f1
cn0: (((10 integer)) <- ((copy)) ((5 literal))) nil nil
cn0: checking arg ((5 literal))
cn0: checking oarg ((10 integer))
maybe-add: ((10 integer))
cn0: (((default-space space-address)) <- ((copy)) ((10 literal))) nil nil
cn0: checking arg ((10 literal))
cn0: checking oarg ((default-space space-address))
maybe-add: ((default-space space-address))
cn0: (((1 integer)) <- ((copy)) ((23 literal))) nil nil
cn0: checking arg ((23 literal))
cn0: checking oarg ((1 integer))
maybe-add: ((1 integer))
cn0: (((sleep)) ((until-location-changes literal)) ((1 integer))) nil nil
cn0: checking arg ((until-location-changes literal))
cn0: checking arg ((1 integer))
maybe-add: ((1 integer))
cn0: (((2 integer)) <- ((add)) ((1 integer)) ((1 literal))) nil nil
cn0: checking arg ((1 integer))
maybe-add: ((1 integer))
cn0: checking arg ((1 literal))
cn0: checking oarg ((2 integer))
maybe-add: ((2 integer))
cn0: convert-names in f2
cn0: (((sleep)) ((for-some-cycles literal)) ((30 literal))) nil nil
cn0: checking arg ((for-some-cycles literal))
cn0: checking arg ((30 literal))
cn0: (((12 integer)) <- ((copy)) ((3 literal))) nil nil
cn0: checking arg ((3 literal))
cn0: checking oarg ((12 integer))
maybe-add: ((12 integer))
cn1: (((10 integer)) <- ((copy)) ((5 literal)))
cn1: (((default-space space-address)) <- ((copy)) ((10 literal)))
cn1: (((1 integer)) <- ((copy)) ((23 literal)))
cn1: (((sleep)) ((until-location-changes literal)) ((1 integer)))
cn1: (((2 integer)) <- ((add)) ((1 integer)) ((1 literal)))
cn1: (((sleep)) ((for-some-cycles literal)) ((30 literal)))
cn1: (((12 integer)) <- ((copy)) ((3 literal)))
schedule: f1
run: f1 0: (((10 integer)) <- ((copy)) ((5 literal)))
run: f1 0: 5 => ((10 integer))
mem: ((10 integer)): 10 <= 5
run: f1 1: (((default-space space-address)) <- ((copy)) ((10 literal)))
run: f1 1: 10 => ((default-space space-address))
run: f1 2: (((1 integer)) <- ((copy)) ((23 literal)))
run: f1 2: 23 => ((1 integer))
mem: ((1 integer)): 12 <= 23
run: f1 3: (((sleep)) ((until-location-changes literal)) ((1 integer)))
mem: ((1 integer)) => 23
schedule: pushing f1 to sleep queue
schedule: f2
run: f2 0: (((sleep)) ((for-some-cycles literal)) ((30 literal)))
run: f2 0: sleeping until 35
schedule: pushing f2 to sleep queue
schedule: skipping to cycle 36
schedule: waking up f2
schedule: f2
run: f2 1: (((12 integer)) <- ((copy)) ((3 literal)))
run: f2 1: 3 => ((12 integer))
mem: ((12 integer)): 12 <= 3
schedule: done with routine nil
schedule: waking up f1
schedule: f1
run: f1 4: (((2 integer)) <- ((add)) ((1 integer)) ((1 literal)))
mem: ((1 integer)) => 3
run: f1 4: 4 => ((2 integer))
mem: ((2 integer)): 13 <= 4
schedule: done with routine nil
8aa ^
62946ff ^
513e8aa ^
62946ff ^
513e8aa ^






62946ff ^
513e8aa ^
62946ff ^
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



                
            
                 
 
                                          
                                         


     
                          

 

                             
             


                                   
                                           


                             
                                                                             
                                       










                                              

 
                                                                         
                          
                                                          
         



                              

                                             
                            
                                 

                                                                            
                        
                                            
                 






                                                
         
                  
 
package commands

import (
	"errors"
	"os"
	"strings"

	"git.sr.ht/~sircmpwn/aerc/widgets"
	"github.com/mitchellh/go-homedir"
)

var (
	previousDir string
)

type ChangeDirectory struct{}

func init() {
	register(ChangeDirectory{})
}

func (ChangeDirectory) Aliases() []string {
	return []string{"cd"}
}

func (ChangeDirectory) Complete(aerc *widgets.Aerc, args []string) []string {
	path := strings.Join(args, " ")
	completions := CompletePath(path)

	var dirs []string
	for _, c := range completions {
		// filter out non-directories
		if strings.HasSuffix(c, "/") {
			dirs = append(dirs, c)
		}
	}

	return dirs
}

func (ChangeDirectory) Execute(aerc *widgets.Aerc, args []string) error {
	if len(args) < 1 {
		return errors.New("Usage: cd [directory]")
	}
	cwd, err := os.Getwd()
	if err != nil {
		return err
	}
	target := strings.Join(args[1:], " ")
	if target == "" {
		target = "~"
	} else if target == "-" {
		if previousDir == "" {
			return errors.New("No previous folder to return to")
		} else {
			target = previousDir
		}
	}
	target, err = homedir.Expand(target)
	if err != nil {
		return err
	}
	if err := os.Chdir(target); err == nil {
		previousDir = cwd
	}
	return err
}