home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 August / PCO0897.ISO / filesbbs / os2 / fp1os2.arj / OS2 / DATA / 49 / C / 0 / F_26836 / JScriptCallStack.class (.txt) < prev    next >
Encoding:
Java Class File  |  1997-05-15  |  1.9 KB  |  63 lines
  1. class JScriptCallStack extends JSbxStack {
  2.    public JScriptCallStack() {
  3.    }
  4.  
  5.    public String DEBUG_GetInfoString(int var1) {
  6.       int var2 = var1;
  7.       if (var1 == 0) {
  8.          return new String("\tEMPTY");
  9.       } else {
  10.          StringBuffer var3 = new StringBuffer();
  11.          var3.append("LevelNr.\n");
  12.  
  13.          for(int var4 = 0; var4 < var2; ++var4) {
  14.             JScriptCallLevelInstance var6 = (JScriptCallLevelInstance)((JSbxVector)this).Get(var4);
  15.             String var5;
  16.             if (var6 == null) {
  17.                var5 = "ERROR: no CallLevelInstance";
  18.             } else {
  19.                JScriptMethod var7 = var6.GetMethod();
  20.                var5 = var7.GetName();
  21.                String[] var8 = var7.GetParameterList();
  22.                if (var8 != null) {
  23.                   JScriptArgumentsObject var9 = var6.GetArgumentsObject();
  24.                   var5 = var5 + "(";
  25.  
  26.                   for(int var10 = 0; var10 < var8.length; ++var10) {
  27.                      if (var10 > 0) {
  28.                         var5 = var5 + ",";
  29.                      }
  30.  
  31.                      var5 = var5 + var8[var10] + "=";
  32.                      if (var10 < var9.GetParamCount()) {
  33.                         JSbxProperty var11 = var9.Get(var10, false);
  34.                         var5 = var5 + var11.GetBrowserValueInfo();
  35.                      } else {
  36.                         var5 = var5 + "EMPTY";
  37.                      }
  38.                   }
  39.  
  40.                   for(int var17 = var8.length; var17 < var9.GetParamCount(); ++var17) {
  41.                      JSbxProperty var12 = var9.Get(var17, false);
  42.                      var5 = var5 + "," + var12.GetBrowserValueInfo();
  43.                   }
  44.  
  45.                   var5 = var5 + ")";
  46.                   var5 = var5 + " this=";
  47.                   JSbxObject var18 = var6.GetThisObj();
  48.                   if (var18 != null) {
  49.                      var5 = var5 + var18.GetJScriptString(true);
  50.                   } else {
  51.                      var5 = var5 + "null";
  52.                   }
  53.                }
  54.             }
  55.  
  56.             var3.append(var4 + " " + var5 + "\n");
  57.          }
  58.  
  59.          return new String(var3);
  60.       }
  61.    }
  62. }
  63.