cmdr
Check-in [5a480bf9d8]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Extended the shells to note their activity in a root common block named *in-shell*. Bumped version to 0.11.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:5a480bf9d8f1485e930092946f52a1ad5668e0d2
User & Date: andreask 2013-11-15 23:10:04
Context
2013-11-16
23:15
Moved dictsort utility into util for wider use. Sort parts of the help structures for easier testing. Fixed bugs in the help generation (1) Skip imported helper commands which are not formats. (2) Rendering of list inputs was off. -- Bumped version to 0.12, help (json, sql) to 0.2, fixed requirements -- Updated embedded documentation. check-in: 0ed8f3610b user: aku tags: trunk
2013-11-15
23:10
Extended the shells to note their activity in a root common block named *in-shell*. Bumped version to 0.11. check-in: 5a480bf9d8 user: andreask tags: trunk
07:41
Completed the split of the DSL documents. Regenerated the embedded docs. check-in: b7d756fe00 user: aku tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to actor.tcl.

   309    309   
   310    310       ##
   311    311       # # ## ### ##### ######## #############
   312    312   }
   313    313   
   314    314   # # ## ### ##### ######## ############# #####################
   315    315   ## Ready
   316         -package provide cmdr::actor 0.10
          316  +package provide cmdr::actor 0.11

Changes to cmdr.tcl.

    71     71   proc ::cmdr::interactive? {} {
    72     72       variable interactive
    73     73       return  $interactive
    74     74   }
    75     75   
    76     76   # # ## ### ##### ######## ############# #####################
    77     77   ## Ready
    78         -package provide cmdr 0.10
           78  +package provide cmdr 0.11

Changes to config.tcl.

  1013   1013   	set myreplok     0 ; # Flag: We can't commit properly
  1014   1014   	set myreplcommit 0 ; # Flag: We are not asked to commit yet.
  1015   1015   	set myreplskip   0 ; # Flag: Do not report.
  1016   1016   
  1017   1017   	my ShowState
  1018   1018   
  1019   1019   	$shell history 1
         1020  +	[context root] set *in-shell* true
  1020   1021   	try {
  1021   1022   	    $shell repl
  1022   1023   	} trap {CMDR CONFIG INTERACT CANCEL} {e o} {
  1023   1024   	    return 0
  1024   1025   	} trap {CMDR CONFIG INTERACT OK} {e o} {
  1025   1026   	    if {!$myreplok} {
  1026   1027   		# Bad commit with incomplete data.
  1027   1028   		my raise "Unable to perform \"[context fullname]\", incomplete or bad arguments" \
  1028   1029   		    CMDR CONFIG COMMIT FAIL
  1029   1030   	    }
  1030   1031   	    return 1
  1031   1032   	} finally {
         1033  +	    [context root] set *in-shell* false
  1032   1034   	    $shell destroy
  1033   1035   	}
  1034   1036   
  1035   1037   	# Regular return indicates abort (^D), treat as cancellation.
  1036   1038   	return 0
  1037   1039       }
  1038   1040   
................................................................................
  1350   1352       }
  1351   1353   
  1352   1354       # # ## ### ##### ######## #############
  1353   1355   }
  1354   1356   
  1355   1357   # # ## ### ##### ######## ############# #####################
  1356   1358   ## Ready
  1357         -package provide cmdr::config 0.10
         1359  +package provide cmdr::config 0.11

Changes to help.tcl.

   510    510   
   511    511       return $categories
   512    512   }
   513    513   
   514    514   
   515    515   # # ## ### ##### ######## ############# #####################
   516    516   ## Ready
   517         -package provide cmdr::help 0.10
          517  +package provide cmdr::help 0.11

Changes to officer.tcl.

   324    324   	if {![llength $args] && ![my hasdefault] && [cmdr interactive?]} {
   325    325   	    # Drop into a shell where the user can enter her commands
   326    326   	    # interactively.
   327    327   
   328    328   	    set shell [linenoise::facade new [self]]
   329    329   	    set myreplexit 0 ; # Initialize stop signal, no stopping
   330    330   	    $shell history 1
          331  +	    [my root] set *in-shell* true
   331    332   	    $shell repl
          333  +	    [my root] set *in-shell* false
   332    334   	    $shell destroy
   333    335   	    return
   334    336   	}
   335    337   
   336    338   	my Do {*}$args
   337    339   	return
   338    340       }

Changes to parameter.tcl.

  1185   1185   	myisundefined
  1186   1186   
  1187   1187       # # ## ### ##### ######## #############
  1188   1188   }
  1189   1189   
  1190   1190   # # ## ### ##### ######## ############# #####################
  1191   1191   ## Ready
  1192         -package provide cmdr::parameter 0.10
         1192  +package provide cmdr::parameter 0.11

Changes to private.tcl.

   165    165       variable myarguments mycmd myinit myconfig myhandler
   166    166   
   167    167       # # ## ### ##### ######## #############
   168    168   }
   169    169   
   170    170   # # ## ### ##### ######## ############# #####################
   171    171   ## Ready
   172         -package provide cmdr::private 0.10
          172  +package provide cmdr::private 0.11

Changes to util.tcl.

    58     58       set res {}
    59     59       foreach str $list { lappend res [format "%-*s" $maxl $str] }
    60     60       return $res
    61     61   }
    62     62   
    63     63   # # ## ### ##### ######## ############# #####################
    64     64   ## Ready
    65         -package provide cmdr::util 0.10
           65  +package provide cmdr::util 0.11

Changes to validate.tcl.

   317    317       if {![file readable    $path]} {return 0}
   318    318       if {![file writable    $path]} {return 0}
   319    319       return 1
   320    320   }
   321    321   
   322    322   # # ## ### ##### ######## ############# #####################
   323    323   ## Ready
   324         -package provide cmdr::validate 0.10
          324  +package provide cmdr::validate 0.11
   325    325   return

Changes to vcommon.tcl.

   105    105   
   106    106       debug.cmdr/validate/common {= [join $candidates "\n= "]} 10
   107    107       return $candidates
   108    108   }
   109    109   
   110    110   # # ## ### ##### ######## ############# #####################
   111    111   ## Ready
   112         -package provide cmdr::validate::common 0.10
          112  +package provide cmdr::validate::common 0.11
   113    113   return