Ejemplo n.º 1
0
Archivo: syme.c Proyecto: pdo/aldor 
SefoList
symeCondition(Syme syme)
{
	/* Ignore the conditions if needed for syme equality tests. */
	if (symePopConds(syme)) return listNil(Sefo);
	return (SefoList) symeGetField(syme, SYFI_Condition);
}
Ejemplo n.º 2
0
Lib
symeConstLib(Syme syme)
{
	if (symeSameLibs(syme))
		return symeLib(syme);

	return (Lib) symeGetField(syme, SYFI_ConstLib);
}
Ejemplo n.º 3
0
StabLevel
symeDefLevel(Syme syme)
{
	if (symeLibLevel(syme) && symeLib(syme))
		return car(symeLib(syme)->stab);

	return (StabLevel) symeGetField(syme, SYFI_DefLevel);
}
Ejemplo n.º 4
0
Syme
symeOriginal(Syme syme)
{
	/* Use symeFull(syme) unless an explicit value is present. */
	while (!symeHasLocal(syme, SYFI_Original)) {
		if (!symeFull(syme)) return syme;
		syme = symeFull(syme);
	}

	return (Syme) symeGetField(syme, SYFI_Original);
}
Ejemplo n.º 5
0
AInt
symeGetFieldX(Syme s, AInt f) { return symeGetField(s, f); }
Ejemplo n.º 6
0
Syme
symeExtensionFirst(Syme syme)
{
	Syme ext = (Syme) symeGetField(syme, SYFI_Extension);
	return ext;
}
Ejemplo n.º 7
0
TForm
symeExporter(Syme syme)
{
	assert(symeIsImport(syme));
	return (TForm) symeGetField(symeExportingSyme(syme), SYFI_Exporter);
}