Subversion Repositories SvarDOS

Rev

Rev 2006 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2006 Rev 2007
Line 62... Line 62...
62 
    v = svarlang_dict[x * 2];
 62 
    v = svarlang_dict[x * 2];
63 
 
 63 
 
64 
    if (id == v) return(svarlang_mem + svarlang_dict[x * 2 + 1]);
 64 
    if (id == v) return(svarlang_mem + svarlang_dict[x * 2 + 1]);
65 
 
 65 
 
66 
    if (id > v) {
 66 
    if (id > v) {
67 
      if (x < 65535) left = x + 1;
 67 
      if (x == 65535) goto not_found;
68 
      else goto not_found;
 68 
      left = x + 1;
69 
    } else {
 69 
    } else {
70 
      if (x > 0) right = x - 1;
 70 
      if (x == 0) goto not_found;
71 
      else goto not_found;
 71 
      right = x - 1;
72 
    }
 72 
    }
73 
  }
 73 
  }
74 
 
 74 
 
75 
not_found:
 75 
not_found:
76 
  return("");
 76 
  return("");