path: root/pdsvn/pdsvn.pd

#N canvas 567 27 176 278 10;
#X declare -lib moonlib;
#N canvas 396 488 401 328 \$0commitWindow 0;
#X obj 29 235 cnv 15 150 60 empty empty empty 20 12 0 14 -204786 -66577
0;
#X obj 38 246 cnv 15 30 40 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 48 256 bng 20 250 50 0 \$0confirmCommit \$0confirmCommitR empty
14 7 0 8 -4032 -13381 -1;
#X obj 69 247 cnv 15 100 40 empty empty OMMIT 0 20 0 30 -262144 -66577
0;
#X obj 218 235 cnv 15 150 60 empty empty empty 20 12 0 14 -204786 -66577
0;
#X obj 227 247 cnv 15 30 40 empty empty empty 20 12 0 14 -1 -66577
0;
#X obj 237 257 bng 20 250 50 0 \$0cancelCommit \$0cancelCommitR empty
14 7 0 8 -191407 -1 -1;
#X obj 258 247 cnv 15 100 40 empty empty ANCEL 0 20 0 30 -262144 -66577
0;
#X obj 192 284 bng 12 250 50 0 \$0diff \$0diffR Diff -2 18 0 8 -260097
-1 -1;
#X obj 29 8 r \$0getLogMessage;
#X obj 29 8 cnv 17 339 17 empty empty empty 20 12 0 14 -261234 -66577
0;
#X obj 29 210 s \$0logPrepare;
#X obj 29 210 cnv 17 339 17 empty empty empty 20 12 0 14 -261234 -66577
0;
#X obj 29 26 entry 340 184 white black;
#X connect 9 0 13 0;
#X connect 13 0 11 0;
#X restore 11 58 pd \$0commitWindow;
#X obj 11 11 bng 15 250 50 0 \$0action \$0actionR empty 14 7 0 8 -4032
-1 -1;
#X obj 11 11 cnv 15 15 15 empty \$0svndisplay * 4 8 0 13 -166441 -1
0;
#X obj 27 11 bng 15 250 50 0 \$0status \$0statusR empty 18 9 0 8 -203904
-1 -1;
#X obj 34 11 bng 15 250 50 0 \$0status \$0statusR empty 18 9 0 8 -203904
-1 -1;
#X obj 27 11 cnv 15 22 15 empty empty SVN 2 8 0 10 -104625 -262144
0;
#N canvas 170 531 245 194 captureParentSave 0;
#X msg 26 59 capture 1;
#X obj 68 109 route menusave;
#X obj 26 33 loadbang;
#X obj 26 85 tot .parent;
#X obj 68 134 s \$0status;
#X connect 0 0 3 0;
#X connect 1 0 4 0;
#X connect 2 0 0 0;
#X connect 3 2 1 0;
#X restore 11 150 pd captureParentSave;
#N canvas 98 527 446 510 updateStatus 0;
#X obj 33 98 list;
#X obj 54 73 r \$0parentFile;
#X obj 33 143 list trim;
#X obj 52 287 list split 1;
#X obj 52 435 s \$0svndisplay;
#X obj 33 24 r \$0status;
#X obj 52 327 sel M ? A C;
#X obj 33 164 popen;
#X obj 52 263 symbol2list;
#X obj 33 123 list prepend svn st;
#X obj 87 214 spigot 1;
#X msg 83 239 0;
#X obj 60 185 t b b;
#X msg 132 186 1;
#X text 128 237 ^^ voodoo for svn's silent "no changes" and popen's
left-to-right behavior;
#X obj 59 307 s \$0addable?;
#X msg 52 415 label M \, color 16 -1;
#X msg 67 395 label ? \, color 5 -1;
#X msg 83 375 label A \, color 17 -1;
#X msg 99 355 label C \, color 13 -1;
#X msg 153 287 label _ \, color 8 -1;
#X obj 243 88 s \$0svndisplay;
#X msg 243 62 label * \, color 1 -1;
#X obj 33 45 t b b;
#X obj 118 165 print SVNStatus;
#X obj 72 165 spigot;
#X obj 105 143 r \$0notFirstRun?;
#X obj 33 475 s \$0notFirstRun?;
#X obj 33 215 t b a b;
#X msg 33 455 1;
#X text 206 144 don't print initial status check;
#X connect 0 0 9 0;
#X connect 1 0 0 1;
#X connect 2 0 7 0;
#X connect 3 0 6 0;
#X connect 3 0 15 0;
#X connect 5 0 23 0;
#X connect 6 0 16 0;
#X connect 6 1 17 0;
#X connect 6 2 18 0;
#X connect 6 3 19 0;
#X connect 7 0 25 0;
#X connect 7 0 28 0;
#X connect 7 1 12 0;
#X connect 8 0 3 0;
#X connect 9 0 2 0;
#X connect 10 0 20 0;
#X connect 11 0 10 1;
#X connect 12 0 13 0;
#X connect 12 1 10 0;
#X connect 13 0 10 1;
#X connect 16 0 4 0;
#X connect 17 0 4 0;
#X connect 18 0 4 0;
#X connect 19 0 4 0;
#X connect 20 0 4 0;
#X connect 22 0 21 0;
#X connect 23 0 0 0;
#X connect 23 1 22 0;
#X connect 25 0 24 0;
#X connect 26 0 25 1;
#X connect 28 0 29 0;
#X connect 28 1 8 0;
#X connect 28 2 11 0;
#X connect 29 0 27 0;
#X restore 11 127 pd updateStatus;
#N canvas 0 22 262 231 diff 0;
#X obj 29 73 list;
#X obj 50 48 r \$0parentFile;
#X obj 29 118 list trim;
#X obj 29 21 r \$0diff;
#X obj 29 98 list prepend svn diff;
#X obj 29 169 print DIFF;
#X obj 29 139 popen;
#X connect 0 0 4 0;
#X connect 1 0 0 1;
#X connect 2 0 6 0;
#X connect 3 0 0 0;
#X connect 4 0 2 0;
#X connect 6 0 5 0;
#X restore 11 219 pd diff;
#N canvas 0 22 472 227 init 0;
#X obj 62 103 list append;
#X obj 42 21 loadbang;
#X obj 62 128 list2symbol /;
#X obj 62 152 s \$0parentFile;
#X obj 42 44 t b b b;
#X obj 42 178 s \$0status;
#X obj 125 77 getpatchname 2;
#X obj 62 77 getdir 2;
#X text 124 29 In a subpatch \, so up 1 level is pdsvn \, up 2 levels
is pdsvn's parent;
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 2 0 3 0;
#X connect 4 0 5 0;
#X connect 4 1 7 0;
#X connect 4 2 6 0;
#X connect 6 0 0 1;
#X connect 7 0 0 0;
#X restore 11 104 pd init;
#N canvas 200 357 303 281 add 0;
#X obj 46 77 list;
#X obj 67 52 r \$0parentFile;
#X obj 46 122 list trim;
#X obj 46 25 r \$0add;
#X obj 46 102 list prepend svn add;
#X obj 73 184 print SVNAdd;
#X obj 46 143 popen;
#X obj 46 204 s \$0status;
#X obj 46 164 t b a b;
#X msg 121 205 vis 0;
#X obj 121 228 s pd-\$0addWindow;
#X connect 0 0 4 0;
#X connect 1 0 0 1;
#X connect 2 0 6 0;
#X connect 3 0 0 0;
#X connect 4 0 2 0;
#X connect 6 0 8 0;
#X connect 8 0 7 0;
#X connect 8 1 5 0;
#X connect 8 2 9 0;
#X connect 9 0 10 0;
#X restore 11 196 pd add;
#N canvas 0 22 384 652 commit 0;
#X obj -192 24 r \$0confirmCommit;
#X obj -192 228 list;
#X obj -162 228 r \$0parentFile;
#X obj -192 343 list trim;
#X obj -192 278 list append -m;
#X obj -192 322 list append;
#X obj -178 390 print SVNCommit;
#X obj -192 54 s \$0getLogMessage;
#N canvas 276 372 385 456 enquote-log 0;
#X obj 39 52 s \$0getLogMessage;
#X obj 39 30 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 112 196 list split 1;
#X obj 266 230 list-splat -1;
#X obj 112 379 list append;
#X obj 112 336 list append;
#X text 165 105 Quotes the entered log message;
#X obj 112 407 outlet;
#X obj 49 77 inlet;
#X msg 112 281 "\$1;
#X msg 303 277 \$1";
#X obj 76 123 list length;
#X obj 49 101 t a a;
#X obj 49 160 demultiplex;
#X msg 49 219 "\$1";
#X obj 112 140 != 1;
#X connect 1 0 0 0;
#X connect 2 0 9 0;
#X connect 2 1 3 0;
#X connect 3 0 5 1;
#X connect 3 1 10 0;
#X connect 4 0 7 0;
#X connect 5 0 4 0;
#X connect 8 0 12 0;
#X connect 9 0 5 0;
#X connect 10 0 4 1;
#X connect 11 0 15 0;
#X connect 12 0 13 0;
#X connect 12 1 11 0;
#X connect 13 0 14 0;
#X connect 13 1 2 0;
#X connect 14 0 7 0;
#X connect 15 0 13 1;
#X restore -192 115 pd enquote-log;
#X obj -192 89 r \$0logPrepare;
#X obj -192 142 s \$0logMessage;
#X obj -192 364 popen;
#X obj -192 253 list prepend svn ci;
#X obj -192 415 symbol2list;
#X obj -192 603 s \$0status;
#X obj -192 438 list split 1;
#X obj -192 204 t b a;
#X obj -192 176 r \$0logMessage;
#X msg -56 555 vis 0;
#X obj -56 574 s pd-\$0commitWindow;
#X obj -165 574 s \$0getLogMessage;
#X obj -165 520 t b b;
#X obj -192 460 sel Committed;
#X msg -165 555 set;
#X obj -192 481 t b b;
#X connect 0 0 7 0;
#X connect 1 0 12 0;
#X connect 2 0 1 1;
#X connect 3 0 11 0;
#X connect 4 0 5 0;
#X connect 5 0 3 0;
#X connect 8 0 10 0;
#X connect 9 0 8 0;
#X connect 11 0 13 0;
#X connect 11 0 6 0;
#X connect 12 0 4 0;
#X connect 13 0 15 0;
#X connect 15 0 22 0;
#X connect 16 0 1 0;
#X connect 16 1 5 1;
#X connect 17 0 16 0;
#X connect 18 0 19 0;
#X connect 21 0 23 0;
#X connect 21 1 18 0;
#X connect 22 0 24 0;
#X connect 23 0 20 0;
#X connect 24 0 14 0;
#X connect 24 1 21 0;
#X restore 11 242 pd commit;
#N canvas 0 22 395 169 \$0addWindow 0;
#X text 15 18 This patch is unversioned. Would you like to add it to
the repository?;
#X obj 178 75 cnv 15 150 60 empty empty empty 20 12 0 14 -204786 -66577
0;
#X obj 187 87 cnv 15 30 40 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 197 97 bng 20 250 50 0 \$0cancelAdd \$0cancelAddR empty 14 7
0 8 -191407 -1 -1;
#X obj 218 87 cnv 15 100 40 empty empty ANCEL 0 20 0 30 -262144 -66577
0;
#X obj 58 75 cnv 15 90 60 empty empty empty 20 12 0 14 -204786 -66577
0;
#X obj 67 87 cnv 15 30 40 empty empty empty 20 12 0 14 -1 -66577 0
;
#X obj 98 87 cnv 15 40 40 empty empty DD 0 20 0 30 -262144 -66577 0
;
#X obj 72 94 bng 20 250 50 0 \$0add \$0addR empty -1 18 0 8 -204800
-1 -1;
#X obj 72 123 cnv 4 20 4 empty empty empty 0 20 0 30 -262144 -66577
0;
#X restore 11 81 pd \$0addWindow;
#N canvas 855 513 305 323 addOrCommit 0;
#X obj -167 25 r \$0action;
#X obj -57 54 sel ?;
#X obj -57 31 r \$0addable?;
#X obj -167 54 t b b;
#X obj -110 119 spigot;
#X obj -134 97 unpack f f;
#X msg -57 80 0 1;
#X msg -30 80 1 0;
#X msg -167 249 vis 1;
#X msg -93 248 vis 0;
#X obj -93 225 r \$0cancelCommit;
#X obj -167 274 s pd-\$0commitWindow;
#X msg -110 159 vis 1;
#X msg -36 158 vis 0;
#X obj -36 135 r \$0cancelAdd;
#X obj -110 184 s pd-\$0addWindow;
#X obj -167 119 spigot 1;
#X connect 0 0 3 0;
#X connect 1 0 6 0;
#X connect 1 1 7 0;
#X connect 2 0 1 0;
#X connect 3 0 16 0;
#X connect 3 1 4 0;
#X connect 4 0 12 0;
#X connect 5 0 16 1;
#X connect 5 1 4 1;
#X connect 6 0 5 0;
#X connect 7 0 5 0;
#X connect 8 0 11 0;
#X connect 9 0 11 0;
#X connect 10 0 9 0;
#X connect 12 0 15 0;
#X connect 13 0 15 0;
#X connect 14 0 13 0;
#X connect 16 0 8 0;
#X restore 11 173 pd addOrCommit;
#X obj 12 35 import moonlib;
#X coords 0 -1 1 1 40 17 2 10 10;