Re: Strange SA/NV behavior--BK is culprit

[Carl Distefano cld@xxxxxxxx]

Reply to note from Carl Distefano  Sat, 17 Oct 2009
00:09:32 -0400

OK, I've rewritten frame SA, and its variant, frame BK, so that
secondary copies of files (where the filenames are displayed in
[square brackets]) are not automatically SAved. These routines now
imitate the behavior of the native SAve command: If the filename is
displayed in brackets (other than an [UNTITLED] file) you must
command SA new_filename or BK new_filename. This
is the safer way to go, I think.

This one seemingly simple change turned out to be quite tricky to
do. Harry, let's see you parse the logic now!

XPLeNCODE v2.0
b-gin [UNTITLED]
{{;5sa}} SAve file and make backup copy in {<}VADR{>} [CLD re
v. 10/17/09][cr|lf]{002}{<}IF{<}VA$WS{>}==1{>}{<}SX01,0{>}[GT
_]{<}SV02,{>}{<}GT02{>}{<}SX02,{<}VA$FI{>}{>}{<}SV03,{>}{<}IF
{<}IS02{>}=={<}VA\264{>}{>}{<}SV02,{>}{<}IF{<}VA|50{>}>0{>}{<
}SX02,{<}IS50{>}{>}{<}EI{>}{<}IF{<}VA|02{>}<1{>}{<}SX02,{<}VA
$WN{>}{>}{<}SX02,"UNTITLED."+{<}IS02{>}{>}{<}SV03,!{>}{<}EI{>
}{<}EI{>}{<}SX04,{<}VABK{>}{>}{<}IF{<}PV04{>}>0{>}[BX_]d bk=0
[Q2_]{<}EI{>}{<}IF":"{238}{<}IS50{>}<0&"\"{238}{<}IS50{>}<0{>
}{<}SX02,{<}VADR{>}+{<}IS02{>}{>}{<}EI{>}[BX_]sa{<}IF{<}VA|50
{>}>0{>} {<}PV50{>}{<}EI{>}[Q2_]{<}IF{<}ER{>}&({<}VA|50{>}<1&
{<}VA|03{>}<1@XOR{<}VA|50{>}>0){>}{<}SX01,{<}VA$ER{>}{>}{<}EI
{>}[BX_]wt[Q2_]{<}IF{<}IS02{>}<>{<}VA$FP{>}{>}[BX_]sa/nv {<}P
V02{>}[Q2_]{<}IF{<}ER{>}&{<}PV01{>}<1{>}{<}SX01,{<}VA$ER{>}{>
}{<}EI{>}[BX_]wt[Q2_]{<}EI{>}{<}IF{<}PV04{>}>0{>}[BX_]d bk=1[
Q2_]{<}EI{>}{<}IF{<}PV01{>}>0{>}{<}PR\@01{>}{<}EX{>}{<}EI{>}{
<}PRSaved{>}{<}EX{>}{<}EI{>}{002}[cr|lf][cr|lf]{{;5bk}} SAve{032}
file after BacKing up last SAVed version in {<}VADR{>} [CLD r
ev. 10/17/09][cr|lf]{002}{<}IF{<}VA$WS{>}==1{>}{<}SX01,0{>}{<
}IF"["{238}{<}VA$FP{>}<0{>}{<}SX02,{<}VA$FP{>}{>}{<}SX03,{<}V
ADR{>}+{<}VA$FI{>}{>}{<}IF{<}IS02{>}<>{<}IS03{>}{>}[BX_]copy/
nv {<}PV02{>} {<}PV03{>}[Q2_]{<}IF{<}ER{>}{>}{<}SX01,{<}VA$ER
{>}{>}{<}EI{>}[BX_]wt[Q2_]{<}EI{>}{<}EI{>}[GT_]{<}SV02,{>}{<}
GT02{>}{<}SV03,{>}{<}IF{<}VA$FI{>}=={<}VA\264{>}{>}{<}IF{<}VA
|50{>}<1{>}{<}SX50,{<}VA$WN{>}{>}{<}SX50,"UNTITLED."+{<}IS50{
{062}}{>}{<}SV03,!{>}{<}EI{>}{<}IF":"{238}{<}IS50{>}<0&"\"{238}{<
}IS50{>}<0{>}{<}SX50,{<}VADR{>}+{<}IS50{>}{>}{<}EI{>}{<}EI{>}
{<}SX0
4,{<}VABK{>}{>}{<}IF{<}PV04{>}>0{>}[BX_]d bk=0[Q2_]{<}EI{>}[B
X_]sa{<}IF{<}VA|03{>}>0{>}/nv{<}EI{>}{<}IF{<}VA|50{>}>0{>} {<
}PV50{>}{<}EI{>}[Q2_]{<}IF{<}ER{>}{>}{<}SX01,{<}VA$ER{>}{>}{<
}EI{>}[BX_]wt[Q2_]{<}IF{<}PV04{>}>0{>}[BX_]d bk=1[Q2_]{<}EI{>
}{<}IF{<}PV01{>}>0{>}{<}PR\@01{>}{<}EX{>}{<}EI{>}{<}PRSaved{>
}{<}EX{>}{<}EI{>}{002}[cr|lf][cr|lf]
-nd
XPLeNCODE

--
Carl Distefano
cld@xxxxxxxx