felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-16 06:18:47 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Reset HighestTagSoFar when we rewrite the appendfile after deletion.

Browse Source
This commit is contained in:
Dianne Skoll
2020-01-12 13:52:17 -05:00
parent 73cf93d27b
commit ddfa44188b
1 changed files with 38 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
scripts/tkremind
View File

@@ -222,6 +222,8 @@ set PrintEncoding 0
set PrintMargins 36pt
set PrintSmallCalendars 1
set WarningHeaders [list "# Lines staring with REM TAG TKTAGnnn ... were created by tkremind" "# Do not edit them by hand or results may be unpredictable." ""]
# Highest tag seen so far. Array of tags is stored in ReminderTags()
set HighestTagSoFar 0
@@ -230,6 +232,23 @@ proc get_weekday { yyyymmdd } {
return [lindex $EnglishDayNames [clock format [clock scan $yyyymmdd] -format %w -locale C]]
}
proc write_warning_headers { out } {
global WarningHeaders
foreach h $WarningHeaders {
puts $out $h
}
}
proc is_warning_header { line } {
global WarningHeaders
foreach h $WarningHeaders {
if {"$line" == "$h"} {
return 1
}
}
return 0
}
#***********************************************************************
# %PROCEDURE: Initialize
# %ARGUMENTS:
@@ -287,7 +306,11 @@ proc Initialize {} {
if {$ans != 0} {
exit 1
}
catch {close [open "$ReminderFile" w]}
catch {
set out [open $ReminderFile w]
write_warning_headers $out
close $out
}
}
if {! [file readable $ReminderFile]} {
tk_dialog .error "TkRemind: Error" "Could not create reminder file `$ReminderFile'" error 0 "Exit"
@@ -295,7 +318,10 @@ proc Initialize {} {
}
if {[file isdirectory $ReminderFile] && ! [file exists $AppendFile]} {
if {![catch {close [open "$AppendFile" "a"]}]} {
if {![catch {
set out [open $AppendFile "a"]
write_warning_headers $out
close $out}]} {
tk_dialog .error "Created File" "Created blank file `$AppendFile'" info 0 "OK"
}
}
@@ -3017,15 +3043,20 @@ proc UniqueFileName { stem } {
#***********************************************************************
proc DeleteTaggedReminder { tag } {
global AppendFile
global HighestTagSoFar
set tmpfile [UniqueFileName $AppendFile]
set out [open $tmpfile "w"]
write_warning_headers $out
set in [open $AppendFile "r"]
set found 0
set tagno 0
while {[gets $in line] >= 0} {
if {[is_warning_header $line]} {
continue
}
if {[string match "REM TAG $tag *" $line]} {
set found 1
continue
@@ -3057,6 +3088,7 @@ proc DeleteTaggedReminder { tag } {
error "Did not find reminder with tag $tag"
}
set HighestTagSoFar $tagno
close $in
close $out
file rename -force -- $tmpfile $AppendFile
@@ -3078,11 +3110,15 @@ proc ReplaceTaggedReminder { tag rem opts } {
set tmpfile [UniqueFileName $AppendFile]
set out [open $tmpfile "w"]
write_warning_headers $out
set in [open $AppendFile "r"]
set found 0
while {[gets $in line] >= 0} {
if {[is_warning_header $line]} {
continue
}
if {[string match "REM TAG $tag *" $line]} {
# Write the new reminder
WriteReminder $out $tag $rem $opts