Oxygen Basic

Programming => Problems & Solutions => Topic started by: Mike Lobanovsky on November 05, 2014, 04:48:49 PM

Title: [DISMISSED] Help w/ Need More Params Error Pls
Post by: Mike Lobanovsky on November 05, 2014, 04:48:49 PM
Hi Charles,

I'm stuck with another error that I can't figure out the cause of:

Code: OxygenBasic
  1.   #console
  2.  
  3.   includepath "$\inc\"
  4.   include     "Console.inc"
  5.  
  6.   indexbase 0
  7.  
  8.   #define T_ATOM            16384   /* 0100000000000000 *//* only for gc */
  9.   #define CLRATOM           114687 /* 11011111111111111 *//* only for gc */
  10.   #define DOMARK            32768  /* 01000000000000000 */
  11.  
  12.   #define ctype(p)          *(p + sizeof(sys) + sizeof(sys))
  13.   #define isatom(p)         (ctype(p) & T_ATOM)
  14.   #define setatom(p)        ctype(p) |= T_ATOM
  15.   #define clratom(p)        ctype(p) &= CLRATOM
  16.   #define setmark(p)        ctype(p) |= DOMARK
  17.   #define ismark(p)         (ctype(p) & DOMARK)
  18.  
  19.   #define car(p)            *p
  20.   #define cdr(p)            *(p + sizeof(sys))
  21.  
  22.   sub gcmark(sys a)
  23.     sys t, q, p
  24.    
  25.     t = 0
  26.     p = a
  27. E2:
  28.     setmark(p)
  29.     if (isatom(p)) then goto E6
  30.     q = car(p)
  31.     if ((q != 0) && (ismark(q) != 0)) then
  32.       setatom(p)
  33.       car(p) = t
  34.       t = p
  35.       p = q
  36.       goto E2
  37.     end if
  38. E5:
  39.     q = cdr(p)
  40.     if ((q != 0) && (ismark(q) != 0)) then
  41.       cdr(p) = t
  42.       t = p
  43.       p = q
  44.       goto E2
  45.     end if
  46. E6:
  47.     if (t == 0) then exit sub
  48.     q = t
  49.     if (isatom(q)) then
  50.       clratom(q)
  51.       t = car(q)
  52.       car(q) = p
  53.       p = q
  54.       goto E5
  55.     else
  56.       t = cdr(q)
  57.       cdr(q) = p
  58.       p = q
  59.       goto E6
  60.     end if
  61.   end sub

It throws the following exception:

ERROR: Need more params
WORD: *
LINE: 50
FILE: main source
PASS: 1

Can you help me with that please?
Title: [DISMISSED] Re: Help w/ Need More Params Error Pls
Post by: Mike Lobanovsky on November 05, 2014, 05:04:26 PM
Sorry Charles,

That was a false alarm. Here I have an upper/lower case name clash. Sorry again to have bothered you for nothing. :-[
Title: Re: [DISMISSED] Help w/ Need More Params Error Pls
Post by: Charles Pegge on November 06, 2014, 12:18:44 AM
Hi Mike,

If there are clashes between captialised names and others then #case capital might be useful.

#case capital sensitises the parser to fully capitalised names

Title: Re: [DISMISSED] Help w/ Need More Params Error Pls
Post by: Mike Lobanovsky on November 06, 2014, 12:28:37 AM
Thanks for the tip, Charles. In fact, that one together with QUOTE that clashed with Oxygen's native quote were the only ones I had to resolve. But I'll try to remember it for the future. :)