OpenEuphoria

2. Re: Standard Lib Func for string type?

• Posted by unkmar Apr 20, 2009
• 873 views

I don't know if there is one in the standard libs. Might be. But I know I wrote one many years ago. In fact, something very close is in my math lib. bigfixed - http://malcom.unkmar.com/hol/FilesEu/bigfixed-0.6704.zip

global type string(object x) 
  -- check for flatness. 
  -- Any embedded sequences? 
  if atom(x) then 
    return 0 
  end if 
  for index = 1 to length(x) do 
    if sequence(x[index]) or not integer(x[index]) or (0 > x[index])or (x[index] > 255) then 
      return 0 
    end if 
  end for 
 
  return 1 
end type 

The code above was modified from the bigfixed lib to add the restriction of integer values between 0 and 255.

Unkmar

4. Re: Standard Lib Func for string type?

• Posted by DerekParnell (admin) Apr 20, 2009
• 855 views

I should have matched the library API and your requirements more carefully ... the t_ascii and t_bytearray types are not what you need after all. And there is already the types ...

• t_text - data must be a sequence of non-negative integers (this allows for Unicode characters)
• integer_array - data must be a sequence of integers.
• number_array - data must be a sequence of numbers (atoms).

So I won't add the types I said I would but instead add ...

• ascii_string - data must be an array of integers in the range [0 .. 127]
• string - data must be an array of integers in the range [0 .. 255]

In future there will also be ...

• utf8 - data is a sequence of UTF8 code points.
• utf16 - data is a sequence of UTF16 code points.
• utf32 - data is a sequence of UTF32 code points.

6. Re: Standard Lib Func for string type?

• Posted by bernie Apr 20, 2009
• 850 views

-- Thats easy to determine 
 
include std/sequence.e 
 
procedure check(sequence s) 
if atom(s[$]) then 
puts(1,"It is a sequence\n") 
elsif sequence(s[$])  then 
puts(1,"It is a sequence in a sequence\n") 
else 
puts(1,"Do not know ?\n") 
end if 
end procedure 
 
sequence s1 = {"abcdefghi"}, s2 = "abcdefghi" 
 
check(s1) 
 
check(s2) 
 
if getc(0) then end if -- pause 

8. Re: Standard Lib Func for string type?

• Posted by euphoric (admin) Apr 20, 2009
• 839 views

Those can be used like standard functions, right?

if string(s) then 
  s = {s} 
end if 

10. Re: Standard Lib Func for string type?

• Posted by DerekParnell (admin) Apr 20, 2009
• 851 views
• Last edited Apr 21, 2009

-- Thats easy to determine 
 
include std/sequence.e 
 
procedure check(sequence s) 
if atom(s[$]) then 
puts(1,"It is a sequence\n") 
elsif sequence(s[$])  then 
puts(1,"It is a sequence in a sequence\n") 
else 
puts(1,"Do not know ?\n") 
end if 
end procedure 
 
sequence s1 = {"abcdefghi"}, s2 = "abcdefghi" 
 
check(s1) 
 
check(s2) 
 
if getc(0) then end if -- pause 

Hmmm... but that is not going to check all possiblities. For example ...

check({"abcdef", 'a'}) -- Says this is a sequence. 

But the procedure only accepts sequences anyway. It does not report that there is a sequence within the sequence.

It really does need to check every element not just the last one.