All Downloads are FREE. Search and download functionalities are using the official Maven repository.

gen.lib.cdt.dtextract__c Maven / Gradle / Ivy

There is a newer version: 1.2025.0
Show newest version
// THIS FILE HAS BEEN GENERATED BY A PREPROCESSOR.
package gen.lib.cdt;
import static smetana.core.Macro.DT_BAG;
import static smetana.core.Macro.DT_FLATTEN;
import static smetana.core.Macro.DT_OBAG;
import static smetana.core.Macro.DT_OSET;
import static smetana.core.Macro.DT_SET;
import static smetana.core.Macro.UNSUPPORTED;
import static smetana.core.debug.SmetanaDebug.ENTERING;
import static smetana.core.debug.SmetanaDebug.LEAVING;

import gen.annotation.Original;
import gen.annotation.Reviewed;
import h.ST_dt_s;
import h.ST_dtlink_s;

public class dtextract__c {



/*	Extract objects of a dictionary.
**
**	Written by Kiem-Phong Vo (5/25/96).
*/
@Reviewed(when = "13/11/2020")
@Original(version="2.38.0", path="lib/cdt/dtextract.c", name="dtextract", key="ar89jjwhuitmbhut1o3ft3zpb", definition="Dtlink_t* dtextract(register Dt_t* dt)")
public static ST_dtlink_s dtextract(ST_dt_s dt) {
ENTERING("ar89jjwhuitmbhut1o3ft3zpb","dtextract");
try {
	ST_dtlink_s	list = null;
	ST_dtlink_s	s[], ends[];
	if((dt.data.type&(DT_OSET|DT_OBAG) )!=0)
		list = dt.data.here;
	else if((dt.data.type&(DT_SET|DT_BAG))!=0)
	{	UNSUPPORTED("list = dtflatten(dt)");
UNSUPPORTED("8i2mufw9f604gvj48u8nbdazp"); // 		for(ends = (s = dt->data->hh._htab) + dt->data->ntab; s < ends; ++s)
UNSUPPORTED("4sml4zdr938yth6x815jt1dlm"); // 			*s = ((Dtlink_t*)0);
	}
	else /*if(dt->data->type&(DT_LIST|DT_STACK|DT_QUEUE))*/
	{	list = dt.data._head;
		dt.data._head = null;
	}
	
	dt.data.type &= ~DT_FLATTEN;
	dt.data.size = 0;
	dt.data.here = null;
	return list;
} finally {
LEAVING("ar89jjwhuitmbhut1o3ft3zpb","dtextract");
}
}


}




© 2015 - 2025 Weber Informatics LLC | Privacy Policy