home *** CD-ROM | disk | FTP | other *** search
/ PCNET 2006 September - Disc 1 / PCNET_CD_2006_09.iso / linux / puppy-barebones-2.01r2.iso / pup_201.sfs / usr / local / bin / agenda < prev    next >
Encoding:
Tcl/Tk script  |  2004-07-24  |  8.9 KB  |  432 lines
  1. #!/usr/bin/wish
  2.  
  3. #                 PARAMETERS
  4. #---------------------------------------------
  5.  
  6. #set EVENT_FILE "/dat/eventos.txt"
  7. set EVENT_FILE "/root/.events"
  8.  
  9. #                  VARIABLES
  10. #---------------------------------------------
  11.  
  12. # Current day/month/year
  13. set Cday 0
  14. set Cmonth 0
  15. set Cyear 0
  16.  
  17. # event array
  18. set event(0) {}
  19. set no_events 0
  20.  
  21. set file  0
  22. set fname $EVENT_FILE
  23.  
  24. # event record, array of fields
  25. set rec(0) 0
  26. set rec_size 0
  27.  
  28. set EditOk 0
  29.  
  30.  
  31. #            GENERAL PURPOSE PROCEDURES
  32. #------------------------------------------------
  33.  
  34. proc Abort message {
  35.   puts "## Error ##"
  36.   puts $message
  37.   puts "Aborting ..."
  38.   exit 
  39. }
  40.  
  41.  
  42. proc ShowBoolean { parent args } {
  43.  set b 0
  44.  foreach {lab item} $args {
  45.    checkbutton $parent.$b  -text $lab -variable $item 
  46.    pack $parent.$b -side left
  47.    incr b
  48.  }
  49. }
  50.  
  51.  
  52. proc ScrolledListbox { parent args } {
  53.   frame $parent
  54.   eval {listbox $parent.list \
  55.     -yscrollcommand [list $parent.sy set]  \
  56.     -xscrollcommand [list $parent.sx set]} $args
  57.   scrollbar $parent.sx -orient horizontal   -command [list $parent.list xview]
  58.   scrollbar $parent.sy -orient vertical     -command [list $parent.list yview]
  59.   pack $parent.sx -side bottom -fill x
  60.   pack $parent.sy -side right  -fill y
  61.   pack $parent.list -side left -fill both -expand true
  62.   return $parent.list
  63. }
  64.  
  65.  
  66. proc CommandEntry { name label width var args} {
  67.   frame $name
  68.   label $name.l -text $label -width 10
  69.   eval {entry $name.e -relief sunken -width $width -bg white -textvariable $var} $args
  70.   pack $name.l -side left
  71.   pack $name.e -side left 
  72.   pack  $name -fill x
  73.   return $name.e
  74. }  
  75.  
  76.  
  77. proc Line {n} {
  78.  frame $n -height 3 -borderwidth 2 -relief raised -background blue
  79.  pack $n -side top -fill both -pady 5 -padx 5
  80. } 
  81.  
  82.  
  83. proc MakeMenu { parent opts t } {
  84.  frame $parent.f
  85.  pack $parent.f -side top
  86.  set b 0
  87.  foreach {desc proced} $opts {
  88.   if { $t=="B"} then {
  89.     button $parent.f.$b -text $desc -command $proced -borderwidth 0
  90.     pack   $parent.f.$b -side left
  91.   } else {
  92.     button $parent.f.$b -text $desc -command $proced -borderwidth 2
  93.     pack   $parent.f.$b -side left -padx 3 -pady 0
  94.   }
  95.   incr b
  96.  }
  97. }
  98.  
  99.  
  100.  
  101. #             SPECIFIC PROCEDURES
  102. #------------------------------------------------
  103.  
  104. proc ParseAction a {
  105.   global flag
  106.   set flag(c) [expr [string first "c" $a] != -1]
  107.   set flag(o) [expr [string first "o" $a] != -1]
  108.   set flag(x) [expr [string first "x" $a] != -1]
  109. }
  110.  
  111.  
  112. proc BuildAction {} {
  113.   global flag
  114.   set r ""
  115.   if { $flag(c) } then {set r ${r}c}
  116.   if { $flag(o) } then {set r ${r}o}
  117.   if { $flag(x) } then {set r ${r}x}
  118.   return $r
  119. }
  120.  
  121.  
  122.  
  123. proc Parse {} {
  124. #---------------
  125. # Read file and parse it creating the data structure
  126. #
  127. global no_events event file
  128.  
  129. set level 0
  130. set line_no   1
  131. set no_events 0
  132. set n         0
  133. set Y 0
  134.  
  135. while {! [eof $file]} {
  136.  
  137. # Read line
  138.    set  l   [gets $file]
  139.    incr line_no
  140.    if { $l == ""} continue
  141.  
  142. # check if line continues
  143.    if {[string range $l end end] == "\\" } then {
  144.       set x 1
  145.       set l  [string range $l 0 [expr [string length $l]-2 ]]
  146.    } else { set x 0 }
  147.  
  148.  
  149.   if { $Y == 1 } then {
  150.      lappend event($n)  "$l"
  151.      if { $x } then {
  152.         set Y 1
  153.      } else { 
  154.         set Y 0
  155.         incr n
  156.      }
  157.      continue
  158.   }
  159.  
  160.   set event($n) [split $l :]
  161.  
  162.   # check for correct number of parameters
  163.   if { [llength $event($n)] < 8 } {
  164.         Abort "Incorrect number of parameters at line $line_no"
  165.   }  
  166.  
  167.  if { $x } then { 
  168.     set Y 1 
  169.   } else { 
  170.     set Y 0  
  171.     incr n
  172.   }
  173.  }
  174.  set no_events $n
  175. }
  176.  
  177.  
  178.  
  179.  
  180. proc ConvertText2Rec t {
  181.   global rec rec_size
  182.   set d [$t get 1.0 end]
  183.   if { $d == "\n" } then {set l {x}}  else  {set l [split $d "\n"]}
  184.   set size [expr [llength $l] - 1]
  185.   for {set j 0} {$j < $size } {incr j} { set rec([expr 8+$j]) [lindex $l $j] }
  186.   set rec_size [expr 8 + $size ]
  187. }
  188.  
  189.  
  190.  
  191. proc EditEvent {} {
  192. #------------------
  193. # Call the edit window and edit the rec variable
  194. #
  195. global rec rec_size flag EventOk
  196.  
  197.  destroy .t
  198.  toplevel .t
  199.  wm title .t  "Event Editor"
  200.    #add some space
  201.    label .t.xx -text ""
  202.    pack  .t.xx 
  203.  CommandEntry  .t.ev    Event 50  rec(7)
  204.  CommandEntry  .t.day   Day   3   rec(0)
  205.  CommandEntry  .t.month Month 3   rec(1)
  206.  CommandEntry  .t.year  Year  5   rec(2)
  207.  Line .t.l1
  208.  CommandEntry  .t.bef   Before 3  rec(3)
  209.  CommandEntry  .t.aft   After  3  rec(4)
  210.  
  211.  ParseAction $rec(5)
  212.  frame .t.o
  213.  pack  .t.o -side top 
  214.  ShowBoolean .t.o "Ciclic" flag(c) "Once" flag(o) "Don't Show" flag(x)
  215.  
  216.  CommandEntry  .t.cmd  Command 40 rec(6)
  217.  Line .t.l2 
  218.  
  219.  frame .t.e
  220.  pack  .t.e -side top
  221.  label .t.e.l -text "Comments"
  222.  pack  .t.e.l
  223.  set _event [text .t.e.ev -width 60 -height 5 -bg white \
  224.     -borderwidth 3 -relief sunken -setgrid true \
  225.     -yscrollcommand {.t.e.s set}]
  226.  scrollbar .t.e.s -command {.t.e.ev yview}
  227.  pack .t.e.s -side right -fill y
  228.  pack .t.e.ev -side left -fill both -expand true
  229.  set line 1
  230.   
  231.  for {set n 8} {$n < $rec_size} {incr n; incr line} {
  232.     .t.e.ev insert end $rec($n)
  233.     if { $n+1 < $rec_size } then {
  234.       .t.e.ev insert end \n
  235.     }
  236.  }
  237.  
  238.  frame .t.z 
  239.  pack  .t.z -side top
  240.  button .t.z.ok  -text "Ok" \
  241.  -command { 
  242.    set EventOk 1 
  243.    set rec(5) [BuildAction]
  244.    ConvertText2Rec .t.e.ev
  245.    destroy .t 
  246.    } 
  247.  button .t.z.cancel -text "Cancel"  \
  248.   -command {
  249.    set EventOk 0
  250.    destroy .t 
  251.    }
  252.  pack   .t.z.ok .t.z.cancel -padx 20 -pady 8 -side left
  253.  tkwait window .t
  254. }
  255.  
  256.  
  257.  
  258. proc CopyToRec n {
  259. #-----------------
  260. # Copy event(n) to rec. Before EditEvent
  261. #
  262.  global rec rec_size event 
  263.  set rec_size [llength $event($n)]
  264.  for {set i 0} {$i < $rec_size} {incr i} { set  rec($i)  [lindex $event($n) $i] }
  265. }
  266.  
  267.  
  268.  
  269. proc CopyFromRec n {
  270. #-------------------
  271. # Copy rec to event(n). After EditEvent
  272. #
  273.  global rec rec_size event
  274.  set event($n) {}
  275.  for {set i 0} {$i < $rec_size} {incr i} { lappend event($n) $rec($i) }
  276. }
  277.  
  278.  
  279.  
  280. #               MENU PROCEDURES
  281. #------------------------------------------------
  282.  
  283. proc Ev_Add {} {
  284.  global Cday Cmonth Cyear rec rec_size EventOk no_events
  285.  set  rec(0) $Cday
  286.  set  rec(1) $Cmonth
  287.  set  rec(2) $Cyear
  288.  set  rec(3) "0"
  289.  set  rec(4) "0"
  290.  set  rec(5) ""
  291.  set  rec(6) ""
  292.  set  rec(7) "Event here"
  293.  set  rec_size 8
  294.  EditEvent
  295.  if { $EventOk } {
  296.     CopyFromRec $no_events
  297.     .fr.box.list insert end " $rec(7)"
  298.     incr no_events
  299.  }
  300. }     
  301.  
  302.  
  303.  
  304. proc Ev_Edit {} {
  305.  global event rec EventOk no_events
  306.  set i [.fr.box.list index active]
  307.  CopyToRec $i
  308.  EditEvent
  309.  if { $EventOk } {
  310.     CopyFromRec $i
  311.     .fr.box.list delete $i
  312.     .fr.box.list insert $i  " $rec(7)"
  313.     .fr.box.list activate $i
  314.  }
  315. }
  316.  
  317.  
  318.  
  319. proc Ev_Delete {} {
  320.  set i [.fr.box.list index active]
  321.  set d [.fr.box.list get $i]
  322.  .fr.box.list delete $i
  323.  if { [string index $d 0] == "(" } then {
  324.    set d " [string range $d 4 end]"
  325.  } else { set d "(D) [string range $d 1 end]"  }
  326.  .fr.box.list insert $i  $d
  327.  .fr.box.list activate [expr $i + 1]
  328. }
  329.  
  330.  
  331.  
  332. proc Ev_Write {} {
  333.  global event no_events file fname
  334.  
  335.  if [catch "open $fname w" file] {Abort "File $fname could not be created"}
  336.  set i 0
  337.  while { $i < $no_events } {
  338.    set d [.fr.box.list get $i] 
  339.    if { [string index $d 0] == "(" } { incr i; continue }
  340.  
  341.    for {set k 0} {$k < 7} {incr k} {
  342.      puts -nonewline $file [lindex $event($i) $k]:
  343.    }
  344.    puts -nonewline $file [lindex $event($i) $k]
  345.    incr k
  346.    set s [llength $event($i)]
  347.  
  348.    while { $k < $s } {
  349.       puts $file "\\"
  350.       puts -nonewline $file [lindex $event($i) $k]
  351.       incr k
  352.    }
  353.    puts $file ""
  354.    incr i
  355.   }      
  356.  close $file  
  357. }
  358.  
  359.  
  360.  
  361. #                  MODULES
  362. #------------------------------------------------
  363.  
  364. proc Init_Vars {} {
  365.  global Cday Cmonth Cyear fname
  366.  set number [clock seconds]
  367.  set Cday   [clock format $number -format "%d"]
  368.  set Cmonth [clock format $number -format "%m"]
  369.  set Cyear  [clock format $number -format "%Y"]
  370. }
  371.  
  372.  
  373. proc Open_Event_File {} {
  374.  global file fname
  375.  if [catch "open $fname r" file] then { Abort "File $fname not found" }
  376. }
  377.  
  378.  
  379. proc About {} {
  380.  destroy .about
  381.  toplevel  .about
  382.  wm title .about "About"
  383.  label .about.label -text \
  384.     "\nAGENDA 2.0\n\nhttp://www.geocities.com/Silicon/Valley/6333/Agenda\
  385. \n\nRui Anastacio (ranastacio@mail.telepac.pt)\nMarch 1998\n" \
  386.     -borderwidth 0
  387.  pack  .about.label -padx 6
  388.  Line .about.sep
  389.  button .about.ok -text "Ok" -command { destroy .about }
  390.  pack .about.ok -side top -pady 4
  391. }
  392.  
  393.  
  394.  
  395. proc Manage_Events {} {
  396.   global event no_events
  397.   ScrolledListbox .fr.box -width 50 -height 25
  398.   for  {set n 0} {$n < $no_events} {incr n} {
  399.      .fr.box.list insert end " [lindex $event($n) 7]"
  400.   }
  401.   pack .fr.box
  402.   frame .fr.cmds
  403.   set menu_opts {"Edit" Ev_Edit  "Add"  Ev_Add  "Mark/Unmark as delete" Ev_Delete "Write to file" Ev_Write}
  404. #  Line .fr.l1 10
  405.   MakeMenu .fr.cmds  $menu_opts x
  406.   pack .fr.cmds -pady 10
  407. }
  408.  
  409.  
  410.  
  411. proc Build_GUI {} {
  412.  wm title . "Agenda 2.0"
  413.  frame  .menubar
  414.  button .menubar.about  -text About  -command About  -borderwidth 0
  415.  button .menubar.quit   -text Quit   -command exit   -borderwidth 0
  416.  pack   .menubar.about .menubar.quit -side right
  417.  pack   .menubar -side top -fill x
  418.  frame  .fr
  419.  pack   .fr -side top
  420. }
  421.  
  422.  
  423.  
  424. #                  MAIN 
  425. #------------------------------------------------
  426.  
  427. Init_Vars
  428. Open_Event_File
  429. Parse
  430. Build_GUI
  431. Manage_Events
  432.