Return to db.k CVS log

Up to [local] / OpenXM / src / k097 / debug

Annotation of OpenXM/src/k097/debug/db.k, Revision 1.1.1.1

1.1       maekawa     1:
                      2: if (K00_verbose) {
                      3:   Println(" debug/db.k (db.ccc), 1997, 3/2 (Sun) : checking debug functions of kxx");
                      4:   Println(" Type in test0(). ");
                      5: }
                      6:
                      7: sm1(" /pushVariables {localVariables}  def ");
                      8: sm1(" /popVariables {restoreVariables} def ");
                      9: if (K00_verbose) {
                     10:   Println(" Overloaded on pushVariables and popVariables.");
                     11: }
                     12: sm1(" [(CatchCtrlC) 1] system_variable ");
                     13: sm1(" [(Strict) 1] system_variable ");
                     14: if (K00_verbose) {
                     15:   Println(" ctrl-C signal is caught in KSexecuteString() and <<Warning>> is regarded as an error.");
                     16: }
                     17:
                     18: def test0() {
                     19:   sm1(" [(ErrorMessageMode) 2] system_variable ");
                     20:   sm1(" [(WarningMessageMode) 2] system_variable ");
                     21:   fib(15);
                     22:   sm1(" db.where.es ");  /* This line will not be executed. */
                     23: }
                     24:
                     25: def void Where() {
                     26:   Println("CurrentContext is ...");
                     27:   sm1(" [(CurrentContextp)] system_variable {message} primmsg ");
                     28:   Println("VariableStack trace is....");
                     29:   sm1(" db.where ");
                     30:   Println("DebugStack trace is ....");
                     31:   sm1(" db.where.ds ");
                     32:   Println("To clear VariableStack, DebugStack and ErrorStack, type in Cleards().");
                     33: }
                     34:
                     35: def void Cleards() {
                     36:   Print("Clearing DebugStack and ErrorStack...");
                     37:   sm1(" db.clear.ds db.clear.es ");
                     38:   Println(" ");
                     39:   Print("Restoring variables....");
                     40:   sm1(" db.restore  ");
                     41:   sm1(" [  ] localVariables ");
                     42:   /* push [ ] for this function, otherwise this function exits with error.*/
                     43:   Println("Done");
                     44: }
                     45:
                     46: def fib(n) {
                     47:   local ans,a,b;
                     48:   Print("fib of "); Println(n);
                     49:   if (n < 2) {return(1);}
                     50:   a = n-1; b = n-2;
                     51:   if (a == 11) {
                     52:     a[i] = 2;  /* We cause an error. */
                     53:   }
                     54:   ans = fib(a) + fib(b);
                     55:   return(ans);
                     56: }
                     57:
                     58:
                     59:
                     60:
                     61: