ING_DB
This commit is contained in:
Oliver Lehmann
parent
03a3431437
commit
63d53fc8fe
|
|
@ -0,0 +1,360 @@
|
|||
000 can't write string value "%s"~
|
||||
001 cannot create tmp stream~
|
||||
002 invalid type %d of variable `%s'~
|
||||
004 Interrupt~
|
||||
005 You are not a valid %s user~
|
||||
006 BACKUP: peek buffer overflow~
|
||||
007 database `%s' not accessable~
|
||||
008 FIND relation `%s'~
|
||||
009 database `%s' does not exist~
|
||||
010 can't get core for relation `%s'~
|
||||
012 `%s' protected~
|
||||
013 cannot open tmp stream~
|
||||
014 `%s' has integrities~
|
||||
015 can't get core for symbol `%s'~
|
||||
016 `%s' is a view~
|
||||
017 cannot read scan stream~
|
||||
018 FIND index `%s'~
|
||||
019 cannot create scan stream~
|
||||
020 GET index `%s'~
|
||||
021 missing %d doms in `%s'~
|
||||
022 FIND attributes for `%s'~
|
||||
023 dom %d in `%s' redeclared~
|
||||
024 invalid dom #`%d' in `%s'~
|
||||
025 AArelease(AA_%d);
|
||||
~
|
||||
026 } /@ %2d @@ end of local RETRIEVE block @/
|
||||
~
|
||||
# ifdef MSC
|
||||
028 IX entry~
|
||||
# else
|
||||
028 int AAuid = %s;
|
||||
~
|
||||
# endif
|
||||
# ifdef MSC
|
||||
029 IX entry~
|
||||
# else
|
||||
029 int AAgid = %s;
|
||||
~
|
||||
# endif
|
||||
# ifdef MSC
|
||||
030 char @Usercode = "%s";
|
||||
# else
|
||||
030 char @AAusercode = "%s";
|
||||
# endif
|
||||
~
|
||||
# ifdef MSC
|
||||
031 char @Pathname = "%s";
|
||||
# else
|
||||
031 char @AApath = "%s";
|
||||
# endif
|
||||
~
|
||||
# ifdef MSC
|
||||
032 char @Dbpath[] =
|
||||
{
|
||||
# else
|
||||
032 char @AAdbpath = "%s";
|
||||
# endif
|
||||
~
|
||||
# ifdef IXF
|
||||
033 MAIN__()
|
||||
{
|
||||
extern int xargc;
|
||||
extern char @@xargv;
|
||||
# else
|
||||
033 main(xargc,xargv,e)
|
||||
int xargc;
|
||||
char @xargv[];
|
||||
char @e[];
|
||||
{
|
||||
# endif
|
||||
~
|
||||
035 static int AAbufs[%d];
|
||||
~
|
||||
036 AAmain(AAbufs,%d,%d);
|
||||
~
|
||||
037 AAmain((char@)0,0,%d);
|
||||
~
|
||||
# ifdef IXF
|
||||
038 amx_();
|
||||
# else
|
||||
038 amx(xargc,xargv,e);
|
||||
# endif
|
||||
# ifndef MSC
|
||||
fflush(stdout);
|
||||
# endif
|
||||
exit(0);
|
||||
}
|
||||
~
|
||||
040 AAbmove(%s,&AA_var,%d);
|
||||
~
|
||||
041 %s&AA_var) = %s&AA_var);
|
||||
~
|
||||
042 %s&AA_var) = %s;
|
||||
~
|
||||
043 AAset%s(AA_%d,AA_s%ckey,%s,%d,0%o);
|
||||
~
|
||||
045 AAopenr(&AA_%d,AA_%dn);
|
||||
~
|
||||
046 AAcloser(&AA_%d,AA_%dn);
|
||||
~
|
||||
047 AAbmove(&AA_STUP[%d],&AA_var,%d);
|
||||
~
|
||||
049 # include "%s/lib/amx.h"
|
||||
~
|
||||
050 non terminated comment~
|
||||
051 long AA_htid;
|
||||
~
|
||||
052 { /@ %2d @@ begin of local REPLACE block @/
|
||||
~
|
||||
# ifdef MSC
|
||||
054 IX entry~
|
||||
# else
|
||||
054 GET `protect'~
|
||||
# endif
|
||||
055 AAsetind(AA_%d,AA_i1key,&AA_s1key[%d],%d,0%o);
|
||||
~
|
||||
057 AArequest(AA_%d,AA_%dn);
|
||||
~
|
||||
# ifdef MSC
|
||||
058 IX entry~
|
||||
059 IX entry~
|
||||
# else
|
||||
058 can't get core for permits of relation `%s'~
|
||||
# endif
|
||||
# ifdef MSC
|
||||
060 IX entry~
|
||||
# else
|
||||
060 AAPuser();
|
||||
~
|
||||
# endif
|
||||
# ifdef MSC
|
||||
061 IX entry~
|
||||
# else
|
||||
061 AAPgroup();
|
||||
~
|
||||
# endif
|
||||
062 %s = AAtupcount(AA_%d);
|
||||
~
|
||||
063 cannot convert char to numeric~
|
||||
064 AAsetind(AA_%d,AA_i2key,&AA_s2key[%d],%d,0%o);
|
||||
~
|
||||
# ifdef MSC
|
||||
066 tTrace(xargv,'A',tT,100);
|
||||
# else
|
||||
066 AAtTrace(&xargc,xargv,'A');
|
||||
# endif
|
||||
~
|
||||
067 cannot open index catalog~
|
||||
068 AAlock(AA_%d,AA_%dn,%d);
|
||||
~
|
||||
069 AAunlock(1);
|
||||
~
|
||||
070 variable `%s' not declared~
|
||||
071 too many variables used for amx (variable `%s')~
|
||||
073 duplicate declaration of variable `%s'~
|
||||
075 no scan relation for domain `%s'~
|
||||
077 domain `%s.$%s' not declared~
|
||||
078 no scan relation for domain `%d'~
|
||||
080 domain `%s.$%d' not declared~
|
||||
081 name `%s' too long~
|
||||
082 relation `%s' not declared~
|
||||
083 if (AADEADLOCK)
|
||||
~
|
||||
084 number too long~
|
||||
085 floating conversion error `%s'~
|
||||
086 integer conversion error `%s'~
|
||||
087 unknown operator `%s'~
|
||||
088 syntax error~
|
||||
089 cannot scan relation `%s' over `%s'~
|
||||
091 illegal conditions:%s%s~
|
||||
092 string too long~
|
||||
093 non terminated string~
|
||||
094 system catalog `%s': cannot %s~
|
||||
095 AA_STUP = AA_stup;
|
||||
~
|
||||
096 index `%s': cannot %s~
|
||||
097 relation `%s': cannot %s~
|
||||
098 } /@ end of SCAN @/
|
||||
~
|
||||
099 goto AA%05d;
|
||||
~
|
||||
100 cannot assign scan domain to `%s'~
|
||||
102 cannot open index `%s'~
|
||||
103 cannot exec %s~
|
||||
104 cannot close index `%s'~
|
||||
105 AA_%ctid = AA_LOW;
|
||||
~
|
||||
106 unknown flag `%s'~
|
||||
107 AA_htid = AA_HIGH;
|
||||
~
|
||||
108 bad flag format `%s'~
|
||||
109 AA_stid = AA_LOW;
|
||||
~
|
||||
110 tuplecount variable `%s' must be numeric~
|
||||
112 `char %s' not supported~
|
||||
113 AA_STUP = AA_ptup;
|
||||
~
|
||||
114 `%s @%s' not supported~
|
||||
115 AA_stup = AA_STUP;
|
||||
~
|
||||
116 `%s %s[]' not supported~
|
||||
117 char AA_i2key[%d];
|
||||
~
|
||||
118 AAabort();
|
||||
~
|
||||
119 char AA_i1key[%d];
|
||||
~
|
||||
# if S_ALIGN > 0
|
||||
120 short AA_align;
|
||||
~
|
||||
# endif
|
||||
# if L_ALIGN > 0
|
||||
120 long AA_align;
|
||||
~
|
||||
# endif
|
||||
# if D_ALIGN > 0
|
||||
120 double AA_align;
|
||||
~
|
||||
# endif
|
||||
121 char AA_s2key[%d];
|
||||
~
|
||||
122 missing RETRIEVE for NEXTRETRIEVE~
|
||||
124 missing RETRIEVE for ENDRETRIEVE~
|
||||
126 double AA_var;
|
||||
~
|
||||
127 long AA_LOW;
|
||||
~
|
||||
128 long AA_HIGH;
|
||||
~
|
||||
129 char @AA_STUP;
|
||||
~
|
||||
130 char AA_s1key[%d];
|
||||
~
|
||||
131 ))
|
||||
if (AAgetid(AA_%d,&AA_stid,AA_sgiven~
|
||||
133 while (AAgetup(AA_%d,AA_%cgiven,&AA_%ctid,&AA_htid~
|
||||
135 cannot fork %s~
|
||||
136 %s terminated abnormal~
|
||||
137 AAhisam(AA_%d,&AA_htid,AA_%cgiven,AA_%c1key);
|
||||
~
|
||||
139 AAlisam(AA_%d,&AA_%ctid,AA_%cgiven,AA_%c1key~
|
||||
141 AAisam(AA_%d,&AA_%ctid,&AA_htid,AA_%cgiven,AA_%c1key);
|
||||
~
|
||||
143 AAhash(AA_%d,&AA_%ctid,&AA_htid,AA_%c1key);
|
||||
~
|
||||
145 AAbmove(AA_%d+%d,AA_igiven,%d);
|
||||
~
|
||||
147 AAbmove(AA_%d+%d,AA_sgiven,%d);
|
||||
~
|
||||
149 char AA_igiven[%d];
|
||||
~
|
||||
150 { /@ %2d @@ begin of local APPEND block @/
|
||||
~
|
||||
152 char AA_ptup[%d];
|
||||
~
|
||||
153 AAbmove(AA_STUP,AA_ptup,%d);
|
||||
~
|
||||
154 AAappend(AA_%d,AA_%dn,AA_ptup);
|
||||
~
|
||||
156 AAopeni(&AA_%d,AA_%dn,AA_%di);
|
||||
~
|
||||
157 %s = AAtuplength(AA_%d);
|
||||
~
|
||||
158 } /@ %2d @@ end of local APPEND block @/
|
||||
~
|
||||
160 { /@ %2d @@ begin of local DELETE block @/
|
||||
~
|
||||
162 AAdelete(AA_%d,AA_%dn,&AA_stid);
|
||||
~
|
||||
164 } /@ %2d @@ end of local DELETE block @/
|
||||
~
|
||||
166 char AA_%di[] = "~
|
||||
167 extern char AA_%di[];
|
||||
~
|
||||
168 char @AA_%d;
|
||||
~
|
||||
169 extern char @AA_%d;
|
||||
~
|
||||
170 char AA_%dn[] = "%s";
|
||||
~
|
||||
171 extern char AA_%dn[];
|
||||
~
|
||||
172 { /@ %2d @@ begin of local RETRIEVE block @/
|
||||
~
|
||||
174 char @AA_stup;
|
||||
~
|
||||
175 long AA_stid;
|
||||
~
|
||||
176 AAreplace(AA_%d,AA_%dn,&AA_stid,AA_ptup,"%s");
|
||||
~
|
||||
178 } /@ %2d @@ end of local REPLACE block @/
|
||||
~
|
||||
180 AAclearkeys(AA_%d,AA_%dn);
|
||||
~
|
||||
181 long AA_itid;
|
||||
~
|
||||
182 invalid no of args~
|
||||
183 AAclrtup(AA_%d,AA_%dn,AA_ptup);
|
||||
~
|
||||
185 cannot open %s~
|
||||
186 compiling aborted~
|
||||
187 char AA_sgiven[%d];
|
||||
~
|
||||
188 cannot open input `%s'~
|
||||
189 missing RETRIEVE for APPEND~
|
||||
190 missing RETRIEVE for DELETE~
|
||||
191 cannot change mode of %s to %d~
|
||||
192 cannot compile because of AMX errors~
|
||||
194 can't get core for arguments `%d'~
|
||||
196 cannot convert numeric to char~
|
||||
197 tuplelength variable `%s' must be numeric~
|
||||
199 missing RETRIEVE for REPLACE~
|
||||
200 AA_%d=(char@)0;
|
||||
~
|
||||
# ifdef MSC
|
||||
201 (char@)0
|
||||
};
|
||||
~
|
||||
# else
|
||||
201 MSC entry~
|
||||
# endif
|
||||
202 AA%05d:
|
||||
~
|
||||
203 ))
|
||||
{ /@ begin of SCAN @/
|
||||
~
|
||||
# ifdef MSC
|
||||
204 char @Database = "%s";
|
||||
~
|
||||
# else
|
||||
204 MSC entry~
|
||||
# endif
|
||||
# ifdef MSC
|
||||
205 short tT[100];
|
||||
~
|
||||
# else
|
||||
205 MSC entry~
|
||||
# endif
|
||||
# ifdef MSC
|
||||
206 "%s",
|
||||
~
|
||||
# else
|
||||
206 MSC entry~
|
||||
# endif
|
||||
207 Illegal ISAM-relation %.12s
|
||||
~
|
||||
208 { /@ AMX-BEGIN @/
|
||||
~
|
||||
209 } /@ AMX-END @/
|
||||
~
|
||||
210 AAexit();
|
||||
~
|
||||
211 missing RETRIEVE for PRINT~
|
||||
212 EXIT inside a RETRIEVE~
|
||||
213 AA_stid = %s;
|
||||
if (AAget(AA_%d,&AA_stid~
|
||||
215 variable `%s' must be of tid type~
|
||||
217 %s = AA_stid;
|
||||
~
|
||||
218 DUMMY entry for msg()~
|
||||
|
|
@ -0,0 +1,140 @@
|
|||
# include "amx.h"
|
||||
|
||||
/*
|
||||
** SYMBOL TABLE HANDLING
|
||||
**
|
||||
** SYMENT: enter a symbol into the symbol table
|
||||
*/
|
||||
char *syment(sym, len)
|
||||
register char *sym;
|
||||
register int len;
|
||||
{
|
||||
register struct s_entry *newent;
|
||||
extern char *talloc();
|
||||
extern char *AAbmove();
|
||||
|
||||
len = ALIGNMENT(len);
|
||||
newent = (struct s_entry *) talloc(len + ALIGNMENT(sizeof (struct s_entry *)));
|
||||
if (!newent)
|
||||
yyexit(15, sym);
|
||||
newent->nextsym = Symtab;
|
||||
Symtab = newent;
|
||||
AAbmove(sym, newent->symbl, len);
|
||||
return ((char *) newent->symbl);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
** SYM_FREE: free last entry in the symbol table
|
||||
*/
|
||||
sym_free()
|
||||
{
|
||||
register struct s_entry *ent;
|
||||
|
||||
Symtab = (ent = Symtab)->nextsym;
|
||||
tfree(ent);
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
** FREE_SYM: free all entries in the symbol table
|
||||
*/
|
||||
free_sym()
|
||||
{
|
||||
register struct s_entry *sent;
|
||||
register struct s_entry *stab;
|
||||
|
||||
stab = Symtab;
|
||||
while (stab)
|
||||
{
|
||||
sent = stab;
|
||||
stab = stab->nextsym;
|
||||
tfree(sent);
|
||||
}
|
||||
Symtab = (struct s_entry *) 0;
|
||||
|
||||
if (File_src)
|
||||
{
|
||||
tfree(File_src);
|
||||
File_src = (char *) 0;
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
AMX_REL *getrel(uniq, which)
|
||||
register int uniq;
|
||||
int which; /* which marks the relation buffer: */
|
||||
/* == 0: temp relation buffer */
|
||||
/* == 1: actual relation buffer */
|
||||
/* == 2: scan relation buffer */
|
||||
{
|
||||
register AMX_REL *t;
|
||||
register int i;
|
||||
register AMX_REL *relbuffer;
|
||||
extern int read();
|
||||
extern char *AAbmove();
|
||||
|
||||
/* check if nothing to do */
|
||||
if (uniq >= Relcount)
|
||||
{
|
||||
relbuffer = (AMX_REL *) 0;
|
||||
goto in_core;
|
||||
}
|
||||
relbuffer = &Temp_rel[which];
|
||||
if (relbuffer->rel_uniq == uniq)
|
||||
goto in_core;
|
||||
|
||||
/* search if relation `uniq' is already in core */
|
||||
for (i = 0, t = Temp_rel; i < 3; i++, t++)
|
||||
if (t->rel_uniq == uniq)
|
||||
break;
|
||||
|
||||
if (i == 3)
|
||||
{
|
||||
/* not found, get relation `uniq' into core */
|
||||
relbuffer->rel_uniq = uniq;
|
||||
swaprel(relbuffer, read);
|
||||
}
|
||||
else /* i != which */
|
||||
{
|
||||
/* found, copy relation into right relation buffer */
|
||||
AAbmove(t, relbuffer, sizeof (AMX_REL));
|
||||
}
|
||||
in_core:
|
||||
return (relbuffer);
|
||||
}
|
||||
|
||||
|
||||
swaprel(r, rd_wr_func)
|
||||
register AMX_REL *r;
|
||||
int (*rd_wr_func)(); /* read/write function */
|
||||
{
|
||||
register int i;
|
||||
register AMX_REL *t;
|
||||
long reloff;
|
||||
extern int errno;
|
||||
extern long lseek();
|
||||
extern char *AAbmove();
|
||||
|
||||
errno = 0;
|
||||
reloff = r->rel_uniq * sizeof (AMX_REL);
|
||||
if (lseek(FILE_rel, reloff, 0) != reloff)
|
||||
goto error;
|
||||
if ((*rd_wr_func)(FILE_rel, r, sizeof (AMX_REL)) != sizeof (AMX_REL))
|
||||
{
|
||||
error:
|
||||
printf("SWAP ERROR <%d> rel %s\n", errno, r->rel_id);
|
||||
abort_amx();
|
||||
}
|
||||
|
||||
if (rd_wr_func == read)
|
||||
return;
|
||||
|
||||
for (i = 0, t = Temp_rel; i < 3; i++, t++)
|
||||
{
|
||||
if (t == r)
|
||||
continue;
|
||||
if (t->rel_uniq == r->rel_uniq)
|
||||
AAbmove(r, t, sizeof (AMX_REL));
|
||||
}
|
||||
}
|
||||
Loading…
Reference in New Issue