OpenEuphoria

2. Re: show subscripts in dump - help and ideas requested

• Posted by jmduro May 14, 2015
• 1663 views

Hi Pete,

Would this do the job?

symtab =  
.  [1] 1 
.  [2] 0 
.  [3] 3 
.  [4] 4 
.  [5] 0 
.  [6] 0 
.  [7] 0 
.  [8] 8 
.  [9] 0 
.  [10] 0 
.  [11] 0 
.  [12] 12 
.  [13] 0 
.  [14] 0 
.  [15] 15 
.  [16] 
.  .  [1] "C:\Program Files (x86)\Phix\builtins\" 
.  .  [2] "C:\Program Files (x86)\Phix\" 
.  .  [3] "C:\Program Files (x86)\Phix\demo\misc\eubins-mingw32\" 
.  [17] 
.  .  [1] 
.  .  .  [1] 3 
.  .  .  [2] "someotherfile.exw" 
.  .  [2] 
.  .  .  [1] 3 
.  .  .  [2] "somefile.e" 
.  .  [3] 
.  .  .  [1] 1 
.  .  .  [2] "prtnid2.e" 
.  .  [4] 
.  .  .  [1] 1 
.  .  .  [2] "psprint.e" 
.  .  [5] 
.  .  .  [1] 1 
.  .  .  [2] "pprntf.e" 
.  [18] 26 
.  [19] 2 
.  [20] {-1073741819,0,32463637,32017528,253,32049420,0,0} 
.  [21] 
.  .  [1] -1 
.  .  [2] 8 
.  .  [3] 1 
.  .  [4] 2304 
.  .  [5] 0 
.  .  [6] 253 
.  .  [7] "P" 
.  .  [8] 0 
.  .  [9] 0 
.  .  [10] 0 
.  .  [11] 32452560 
.  .  [12] {0,-77,28,35,38,-1,41,46,-1,49,52,55,-1,58,-1,124,155,163,210,256,259,280,291,307,345,352,396,434,-1,436,478,483,-2,501,550,-1,561,-3,577,625,662,700,712,727,738,-1,744,782,790,808,852,890,905,950,-2,957,962,970,972,983,-2,991,1033,1038,1048} 
.  .  [13] 1 
.  .  [14] 0 
.  [22] 0 

You can even add a user-defined translation routine for whole or parts of the sequence

symtab =  
.  [1] 1 
.  [2] 0 
.  [3] 3 
.  [4] 4 
.  [5] 0 
.  [6] 0 
.  [7] 0 
.  [8] 8 
.  [9] 0 
.  [10] 0 
.  [11] 0 
.  [12] 12 
.  [13] 0 
.  [14] 0 
.  [15] 15 
.  [FOLDERS] 
.  .  [1] "C:\Program Files (x86)\Phix\builtins\" 
.  .  [2] "C:\Program Files (x86)\Phix\" 
.  .  [3] "C:\Program Files (x86)\Phix\demo\misc\eubins-mingw32\" 
.  [FILE_TABLE] 
.  .  [1] 
.  .  .  [ID] 3 
.  .  .  [FILENAME] "someotherfile.exw" 
.  .  [2] 
.  .  .  [ID] 3 
.  .  .  [FILENAME] "somefile.e" 
.  .  [3] 
.  .  .  [ID] 1 
.  .  .  [FILENAME] "prtnid2.e" 
.  .  [4] 
.  .  .  [ID] 1 
.  .  .  [FILENAME] "psprint.e" 
.  .  [5] 
.  .  .  [ID] 1 
.  .  .  [FILENAME] "pprntf.e" 
.  [18] 26 
.  [19] 2 
.  [20] {-1073741819,0,32463637,32017528,253,32049420,0,0} 
.  [21] 
.  .  [1] -1 
.  .  [2] 8 
.  .  [3] 1 
.  .  [4] 2304 
.  .  [5] 0 
.  .  [6] 253 
.  .  [7] "P" 
.  .  [8] 0 
.  .  [9] 0 
.  .  [10] 0 
.  .  [11] 32452560 
.  .  [12] {0,-77,28,35,38,-1,41,46,-1,49,52,55,-1,58,-1,124,155,163,210,256,259,280,291,307,345,352,396,434,-1,436,478,483,-2,501,550,-1,561,-3,577,625,662,700,712,727,738,-1,744,782,790,808,852,890,905,950,-2,957,962,970,972,983,-2,991,1033,1038,1048} 
.  .  [13] 1 
.  .  [14] 0 
.  [22] 0 

Here is the code

include std/text.e 
include std/io.e 
include std/search.e 
 
global integer f_debug 
 
------------------------------------------------------------------------------ 
 
global type string(object x) 
-- checks if a sequence is a string 
  atom is_string 
  if sequence(x) then 
    is_string = 1 
    for i = 1 to length(x) do 
      if sequence(x[i]) then 
        is_string = 0 
      else 
        if (x[i] < ' ') and (x[i] != 9) and (x[i] != 13) and (x[i] != 10) then is_string = 0 end if 
        if x[i]> 254 then is_string = 0 end if 
      end if 
    end for 
  else 
    is_string = 0 
  end if 
  return is_string 
end type 
 
------------------------------------------------------------------------------ 
 
global function showPrintable(object s) 
-- returns only printable characters of a sequence 
-- non printable characters are replace by a dot 
  sequence res 
 
  res = "" 
  for i = 1 to length(s) do 
    if integer(s[i]) then 
      if (s[i] > 31) and (s[i] < 255) then 
        res &= s[i] 
      elsif s[i] = 9 then 
        res &= "\\t" 
      elsif s[i] = 13 then 
        res &= "\\r" 
      elsif s[i] = 10 then 
        res &= "\\n" 
      else 
        res &= "." 
      end if 
    else 
      res &= "." 
    end if 
  end for 
  return res 
end function 
 
------------------------------------------------------------------------------ 
 
procedure analyzeSequence(object x, sequence Name, integer Output=1, integer translator=0, sequence path={}, integer level=0, sequence prefix="") 
-- prints a sequence structure in a human readable way 
  integer subSequence 
  sequence s, offset 
 
  if level=0 then printf(Output, "%s = ", {Name}) end if 
  offset = "" 
  for i = 1 to level do offset &= ".  " end for 
  s = "" 
  if integer(x) then 
    s = sprintf(" %d", {x}) 
    puts(Output, offset&prefix&s&"\n") 
  elsif atom(x) then 
    if (x >= 0) and (x = floor(x)) then 
      s = sprintf(" %.0f", {x}) 
    elsif (x < 0) and (x = floor(x+1)) then 
      s = sprintf(" %.0f", {x}) 
    else 
      s = sprintf(" %f", {x}) 
    end if 
    puts(Output, offset&prefix&s&"\n") 
  elsif string(x) then 
    if length(x) = 0 then 
      s = "\"\"" 
    else 
      s = sprintf(" \"%s\"", {showPrintable(x)}) 
    end if 
    puts(Output, offset&prefix&s&"\n") 
  else 
    subSequence = 0 
    for i=1 to length(x) do 
      if sequence(x[i]) then 
        subSequence = 1 
        exit 
      end if 
    end for 
    if subSequence = 0 then 
      s = sprintf(" %s", {sprint(x)}) 
      puts(Output, offset&prefix&s&"\n") 
    else 
      if length(s) = 0 then 
        puts(Output, offset&prefix&"\n") 
      end if 
      for i=1 to length(x) do 
        if translator > 0 then 
          prefix = sprintf("[%s]", { call_func(translator, {path, level, i}) }) 
        else 
          prefix = sprintf("[%d]", i) 
        end if 
        analyzeSequence(x[i], Name, Output, translator, path&sprintf("[%d]", i), level+1, prefix) 
      end for 
    end if 
  end if 
  if Output=f_debug then flush(f_debug) end if 
end procedure 

Here is the test program

constant symtab = {1,0,3,4,0,0,0,8,0,0,0,12,0,0,15,  
                   {"C:\\Program Files (x86)\\Phix\\builtins\\",  
                    "C:\\Program Files (x86)\\Phix\\",  
                    "C:\\Program Files (x86)\\Phix\\demo\\misc\\eubins-mingw32\\"},  
                   {{3, "someotherfile.exw"}, {3, "somefile.e"},  
                    {1, "prtnid2.e"}, {1, "psprint.e"}, {1, "pprntf.e"}},  
                   26,2,  
                   {-1073741819,0,32463637,32017528,253,32049420,0,0},  
                   {-1,8,1,2304,0,253, "P", 0,0,0,32452560,  
                    {0,-77,28,35,38,-1,41,46,-1,49,52,  
                     55,-1,58,-1,124,155,163,210,256,259,280,  
                     291,307,345,352,396,434,-1,436,478,483,-2,501,550,  
                     -1,561,-3,577,625,662,700,712,727,738,-1,744,782,  
                     790,808,852,890,905,950,-2,957,962,970,972,983,-2,  
                     991,1033,1038,1048},  
                    1,0},  
                    0}  
 
function identifySymtabComponents(sequence path, integer level, integer n) 
-- printf(f_debug, "  path: '%s', level: %d, n: %d\n", {path, level, n}) 
  if level = 0 then 
    if    n = 16 then return "FOLDERS" 
    elsif n = 17 then return "FILE_TABLE" 
    end if 
  elsif (level = 2) and begins("[17]", path) then 
    if    n = 1 then return "ID" 
    elsif n = 2 then return "FILENAME" 
    end if 
  end if 
  return sprintf("%d",n) 
end function 
 
f_debug = open("ex.err", "w") 
 
puts(f_debug, "without translator routine\n") 
analyzeSequence(symtab, "symtab", f_debug, 0) 
puts(f_debug, "\nwith translator routine\n") 
analyzeSequence(symtab, "symtab", f_debug, routine_id("identifySymtabComponents")) 
 
close(f_debug) 

Best Regards

Jean-Marc

4. Re: show subscripts in dump - help and ideas requested

• Posted by jmduro May 14, 2015
• 1619 views

Sorry, I did not respect the specifications. I still don't because I use object first and object name second.

If you rename analyzeSequence in clever_dump, here is what you get as asked.

clever_dump(symtab, "symtab") 
clever_dump(1, "simple")  
clever_dump("text","text")  
clever_dump({-1,0,1},"shortsq")  

symtab =  
.  [1] 1 
.  [2] 0 
.  [3] 3 
.  [4] 4 
.  [5] 0 
.  [6] 0 
.  [7] 0 
.  [8] 8 
.  [9] 0 
.  [10] 0 
.  [11] 0 
.  [12] 12 
.  [13] 0 
.  [14] 0 
.  [15] 15 
.  [16] 
.  .  [1] "C:\Program Files (x86)\Phix\builtins\" 
.  .  [2] "C:\Program Files (x86)\Phix\" 
.  .  [3] "C:\Program Files (x86)\Phix\demo\misc\eubins-mingw32\" 
.  [17] 
.  .  [1] 
.  .  .  [1] 3 
.  .  .  [2] "someotherfile.exw" 
.  .  [2] 
.  .  .  [1] 3 
.  .  .  [2] "somefile.e" 
.  .  [3] 
.  .  .  [1] 1 
.  .  .  [2] "prtnid2.e" 
.  .  [4] 
.  .  .  [1] 1 
.  .  .  [2] "psprint.e" 
.  .  [5] 
.  .  .  [1] 1 
.  .  .  [2] "pprntf.e" 
.  [18] 26 
.  [19] 2 
.  [20] {-1073741819,0,32463637,32017528,253,32049420,0,0} 
.  [21] 
.  .  [1] -1 
.  .  [2] 8 
.  .  [3] 1 
.  .  [4] 2304 
.  .  [5] 0 
.  .  [6] 253 
.  .  [7] "P" 
.  .  [8] 0 
.  .  [9] 0 
.  .  [10] 0 
.  .  [11] 32452560 
.  .  [12] {0,-77,28,35,38,-1,41,46,-1,49,52,55,-1,58,-1,124,155,163,210,256,259,280,291,307,345,352,396,434,-1,436,478,483,-2,501,550,-1,561,-3,577,625,662,700,712,727,738,-1,744,782,790,808,852,890,905,950,-2,957,962,970,972,983,-2,991,1033,1038,1048} 
.  .  [13] 1 
.  .  [14] 0 
.  [22] 0 
simple =  1 
text =  "text" 
shortsq =  {-1,0,1} 

You can still specify a debug_file and a user-defined translation as stated before.

clever_dump(symtab, "symtab", f_debug) 
clever_dump(symtab, "symtab", f_debug, routine_id("identifySymtabComponents")) 

6. Re: show subscripts in dump - help and ideas requested - solved

• Posted by petelomax May 14, 2015
• 1645 views

Minor cleanup, same output:

constant MAXLINELEN = 77 
 
-- 
-- Of course the first notion is to print things as and when lines get full, however 
--  consider s = repeat(0,20); s[10] = repeat(0,20): if, as I do, you want to see: 
--  s[1..9] = {0,0,0,0,0,0,0,0,0} 
--  s[10] = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0} 
--  s[11..20] = {0,0,0,0,0,0,0,0,0,0,0} 
--  (assuming that 20 was enough to break past MAXLINELEN and force the linebreaks) 
--  then while printing (or splitting) s[10] you've got 9 elements in hand, somewhere 
--  higher up the call stack, that you haven't had reason to print yet, and of course  
--  with longer and more deeply nested structures things can get far worse. Instead, 
--  just append things to a "printstack" along with a key to sort everything into the 
--  right order before printing. The routines below chuck around a fair few partial 
--  results, start and current indexes, and return the same in subtly different ways 
--  depending on what just happened, that I would struggle to explain any better than 
--  the source code itself does. 
-- 
 
sequence printstack -- each element contains 3 items: 
                    --  indicii - for sorting, eg {21,1} 
                    --  name    - eg "symtab[21][1..11]" (matches that {21,1}) 
                    --  text    - the formatted value 
 
procedure addtostack(sequence idii, integer idxr, string name, string text) 
    idii[$] = idxr 
--  if idii={11} then ?9/0 end if 
    printstack = append(printstack,{idii,name,text}) 
end procedure 
 
function subscr(string prev, string name, integer prst, integer prdx) 
-- Helper routine for setting subscripts, typically for things  
--  that are just about to be chucked onto the printstack. 
-- Note this is not meant to be called for any [1..$] cases. 
    if prst=prdx then 
        name = sprintf("%s[%d]",{name,prst}) 
    else 
        name = sprintf("%s[%d..%d]",{name,prst,prdx}) 
        prev = "{"&prev&"}" 
    end if 
    return {prev,name} 
end function 
 
function cdi(string name, string prev, integer prst, integer prdx, object o, sequence idii) 
-- 
-- Clever display of i'th item. Recursive. 
--  name is eg "symtab", but may get "symtab[1]", "symtab[1][1]", etc. 
--  prev is previously collected stuff to output: concatenate to it, or split the line. 
--  prst is a staring index where (a non-empty) prev began. 
--  prdx is the element index of name that we just got passed in o. 
--  idii is a list of (start) indexes, to be used in the final sort. 
-- 
-- Returns extended or purged {prst,prev} 
-- 
-- ps: not totally sure I got return "1,2,3" vs return "{1,2,3}" precisely right,  
--      but, touch wood, it seems fine in all the cases I have tested so far... 
-- 
string this     -- Scratch var: string representation of o or next element of o. 
                -- In the key recursive call below, "this" gets passed to "prev", 
                -- and grows/shrinks from what that returns rather than directly. 
 
string namedx   -- Scratch var: name with some or other idx tacked on the end. 
 
integer newprst,                    -- Scratch/innner version of prst. 
        lo,                         -- length(o) shorthand 
        lp,                         -- length(prev) shorthand 
        lt,                         -- length(name)+4+lp+length(this) shorthand 
        wasstacklen = length(printstack)    -- to check if something got dumped 
 
    if atom(o) then 
        this = sprintf("%.10g", o) 
        if integer(o) then 
            if o>=#20 and o<=#FF then 
                this &= sprintf("'%s'",o) 
            end if 
        elsif not find('.',this) 
          and not find('e',this)        -- eg 1e308 
          and not find('n',this) then   -- (inf/nan) 
            -- 
            -- Ensure you can tell 5 and 5.000000000001 apart. 
            -- Note that while you can infer from the presence 
            -- of ".0" it is "not integer", in no way does the 
            -- /absence/ mean anything at all about whether a  
            -- variable was declared integer/atom/object/udt. 
            -- 
            this &= ".0" 
        end if 
    elsif string(o) then 
        this = '"'&o&'"' 
    else 
        if length(idii) then 
            namedx = sprintf("%s[%d]",{name,prdx}) 
        else 
            namedx = name 
        end if 
        this = "" 
        newprst = 1 
        for i=1 to length(o) do 
            {newprst,this} = cdi(namedx,this,newprst,i,o[i],idii&i) 
        end for 
        if newprst>1 
        or (length(idii) and 
            wasstacklen<length(printstack)) then 
            -- 
            -- Something just got printed, so empty prev and  
            -- force linebreaks all the way back up the call  
            -- stack (which is done by returning prdx+1) 
            -- 
            if length(prev) then 
                {prev,namedx} = subscr(prev,name,prst,prdx-1) 
                addtostack(idii,prst,namedx,prev) 
            end if 
            lo = length(o) 
            if newprst<=lo then 
                if prdx!=-1 then 
                    name = sprintf("%s[%d]",{name,prdx}) 
                end if 
                {this,name} = subscr(this,name,newprst,lo) 
                addtostack(idii&newprst,newprst,name,this) 
            end if 
            return {prdx+1,""} 
        end if 
        this = "{"&this&"}" 
    end if 
    lp = length(prev) 
    lt = length(name)+4+lp+length(this) -- (+4 is for " = " and a ',') 
    if lp=0 then 
        if not string(o)            -- (any splitting already done) 
        or lt<MAXLINELEN then       -- (or no need to split string) 
            return {prst,this} 
        end if 
    elsif lt<MAXLINELEN then 
        -- note that we are clearly returning a partial result here, 
        -- of say "1,2,3" rather than "{1,2,3}". 
        return {prst,prev&','&this} 
    else 
        {prev,namedx} = subscr(prev,name,prst,prdx-1) 
        addtostack(idii,prst,namedx,prev) 
    end if 
    if string(o) then 
        -- 
        -- One that wouldn't fit, so split if needed and 
        -- force linebreaks all the way back up the call  
        -- stack (which is done by returning prdx+1) 
        -- 
        if prdx!=-1 then 
            name = sprintf("%s[%d]",{name,prdx}) 
        end if 
        newprst = 1 
        idii &= 1 
        lo = length(o) 
        while lo-newprst+length(name)+13>MAXLINELEN do 
            lp = newprst+MAXLINELEN-14-length(name) 
            this = '"'&o[newprst..lp]&'"' 
            namedx = sprintf("%s[%d..%d]",{name,newprst,lp}) 
            addtostack(idii,newprst,namedx,this) 
            newprst = lp+1 
        end while 
        if newprst!=1 then 
            name = sprintf("%s[%d..%d]",{name,newprst,lo}) 
            this = '"'&o[newprst..lo]&'"' 
        end if 
        addtostack(idii,newprst,name,this) 
        return {prdx+1,""} 
    end if 
    return {prdx,this} 
end function 
 
procedure clever_dump(string name, object o) 
-- 
-- Display "name = sprint(o)" but with indexes  
-- as needed, together with smart line splitting. 
-- 
integer prst 
string s 
    printstack = {} 
    {prst,s} = cdi(name,"",1,-1,o,{}) 
    if length(s) then 
        addtostack({prst},prst,name,s) 
    end if 
    printstack = sort(printstack) 
    for i=1 to length(printstack) do 
        printf(1,"%s = %s\n",printstack[i][2..3]) 
    end for 
end procedure 
 
constant symtab = {1,0,3,4,0,0,0,8,0,0,0,12,0,0,15, 
                   {"C:\\Program Files (x86)\\Phix\\builtins\\", 
                    "C:\\Program Files (x86)\\Phix\\", 
                    "C:\\Program Files (x86)\\Phix\\demo\\misc\\eubins-mingw32\\"}, 
                   {{3, "someotherfile.exw"}, {3, "somefile.e"}, 
                    {1, "prtnid2.e"}, {1, "psprint.e"}, {1, "pprntf.e"}}, 
                   26,2, 
                   {-1073741819,0,32463637,32017528,253,32049420,0,0}, 
                   {-1,8,1,2304,0,253, "P", 0,0,0,32452560, 
                    {0,-77,28,35,38,-1,41,46,-1,49,52, 
                     55,-1,58,-1,124,155,163,210,256,259,280, 
                     291,307,345,352,396,434,-1,436,478,483,-2,501,550, 
                     -1,561,-3,577,625,662,700,712,727,738,-1,744,782, 
                     790,808,852,890,905,950,-2,957,962,970,972,983,-2, 
                     991,1033,1038,1048}, 
                    1,0}, 
                   0} 
 
    clever_dump("symtab",symtab) 
    clever_dump("simple",1) 
    clever_dump("text","text") 
    clever_dump("shortsq",{-1,0,1}) 
 
sequence t = repeat(0,10) 
    t[5] = repeat('t',200) 
    clever_dump("t",t) 
    t = repeat('t',200) 
    clever_dump("longtext",t) 
 
if getc(0) then end if 
abort(0)