Subversion Repositories SvarDOS

Rev

Rev 1783 | Rev 2006 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1783 Rev 2005
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 
      left = x + 1;
 67 
      if (left < 65535) left = x + 1;
- 
 
 68 
      else goto not_found;
68 
    } else {
 69 
    } else {
69 
      right = x - 1;
 70 
      if (right > 0) right = x - 1;
- 
 
 71 
      else goto not_found;
70 
    }
 72 
    }
71 
  }
 73 
  }
72 
 
 74 
 
- 
 
 75 
not_found:
73 
  return("");
 76 
  return("");
74 
}
 77 
}
75 
 
 78 
 
76 
 
 79 
 
77 
/* routines below are simplified (dos-based) versions of the libc FILE-related
80 
/* routines below are simplified (dos-based) versions of the libc FILE-related