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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
(def HOME "/home/")
(def PORCH "/porch/")
(def BOWL "/porch/bowl/")
(def USER (first ($ "whoami")))
(def NAME "simon")
(def PRONOUN "he")
(def CAT "
|\ _,,,---,,_
/,`.-'`' -. ;-;;,_
|,4- ) )-,_..;\ ( `'-'
'---''(_/--' `-'\_)
")
; get a user from their /home/*/* path
(func user-from-path (inp)
(first (rest (rest (split inp "/")))))
; get all users who have a "porch"
(func get-porches ()
(map user-from-path (glob (concat HOME "*" PORCH))))
; add " * " to the beginning of the string
(func concat-star (inp)
(concat " * " inp))
; pretty-print all porches
(func print-porches ()
(print "Neighborhood porches")
(map print (map concat-star (get-porches))))
; get all eats available on a given porch
(func get-eats (porch)
(glob (concat HOME porch BOWL "*")))
; get all eats on all porches
(func get-porches-with-eats ()
(map get-eats (get-porches)))
; find the cat
(func locate-cat ()
(glob (concat HOME "*" PORCH NAME)))
(func locate ()
(def porch (locate-cat))
(if (empty? porch)
(print (concat "hmm, " PRONOUN "must have wandered off. maybe you should leave some food?"))
(print (concat "last I saw " NAME ", " PRONOUN " was on " (user-from-path (first porch)) "'s porch"))))
(func get-random-eats ()
; expected format ((porch1/eat1 porch1/eat2) (porch2/eat1)...)
(safe-first
(shuf
(safe-first
(shuf (get-porches-with-eats))))))
; prevent a panic on (first ())
(func safe-first (inp)
(if (empty? inp)
()
(first inp)))
(func wander ()
(print (concat "off " PRONOUN " goes!"))
(def current-location (locate-cat))
(if (not (empty? current-location))
(print (concat "need to unlink: " (first current-location))))
; if there's no eats, exit
(def target-eats (get-random-eats))
(if (and (list? target-eats) (empty? target-eat)) (exit))
; eat the food
;(unlink target-eats)
; go to the porch
(def target-eats-stem (last (split target-eats "/")))
;(def target-porch (user-from-path target-eats))
(def target-porch "mryouse")
(with-write (concat HOME target-porch PORCH NAME)
(write CAT _file_)
(write (concat "thank you for the " target-eats-stem "!" (newline)) _file_)))
(func init ()
; create the new porch and bowl
;(def new_porch (concat HOME USER PORCH))
(def new_porch "newporch")
(if (not (exists? new_porch))
($ (concat "mkdir -m 777 " new_porch)))
;(def new_bowl (concat HOME USER BOWL))
(def new_bowl "newporch/newbowl")
(if (not (exists? new_bowl))
($ (concat "mkdir -m 777 " new_bowl)))
; get rid of the old stuff, if applicable
; TODO
(print "You're all set up!")
)
(func help ()
(print "neighborcat -- a neighborhood cat")
(print " -> 'init' : initialize your porch")
(print " -> 'locate' : locate the neighborcat")
(print " -> 'feed <food>' : locate the neighborcat")
(print " -> 'wander' : send the cat a-wandering"))
(func main (args)
(branch
((empty? args) (print-porches))
((eq? "init" (first args)) (init))
((eq? "help" (first args)) (help))
((eq? "wander" (first args)) (wander))
((eq? "locate" (first args)) (locate))
((eq? "feed" (first args)) (feed (rest args)))
(#true
(print (concat "unknown argument: " (first args))))))
(main (rest (argv)))
|
