Cross Reference: /ast/src/cmd/dsslib/fix/fix.c

Lines Matching defs:expr
81 fix_beg(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc)
177 	expr->data = state;
185 fix_act(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc)
187 	register State_t*	state = (State_t*)expr->data;
215 fix_end(Cx_t* cx, Cxexpr_t* expr, void* data, Cxdisc_t* disc)
217 	register State_t*	state = (State_t*)expr->data;
272 	sfprintf(expr->op, "<METHOD>flat</>\n");
273 	sfprintf(expr->op, "<FLAT>\n");
274 	sfprintf(expr->op, "	<NAME>%s</>\n", DSS(cx)->meth->name);
278 	sfprintf(expr->op, "	<DESCRIPTION>%-*.*s fixed width binary format.</>\n", w, w, s);
281 	sfprintf(expr->op, "	<IDENT>@(#)$Id: %s bin %s $</>\n", DSS(cx)->meth->name, state->stamp);
282 	sfprintf(expr->op, "	<MAGIC>\n");
283 	sfprintf(expr->op, "		<STRING>%s</>\n", DSS(cx)->meth->name);
284 	sfprintf(expr->op, "		<VERSION>");
287 			sfputc(expr->op, *s);
288 	sfprintf(expr->op, "</>\n");
289 	sfprintf(expr->op, "		<SWAP>be</>\n");
290 	sfprintf(expr->op, "	</>\n");
291 	sfprintf(expr->op, "	<COMPRESS>pzip %s-bin</>\n", DSS(cx)->meth->name);
296 			sfprintf(expr->op, "	<LIBRARY>%s</>\n", lib->name);
301 		sfprintf(expr->op, "	<LIBRARY>num_t</>\n");
304 		sfprintf(expr->op, "	<FIELD>\n");
305 		sfprintf(expr->op, "		<NAME>%s</>\n", field->variable->name);
306 		sfprintf(expr->op, "		<DESCRIPTION>%s</>\n", field->variable->description);
307 		sfprintf(expr->op, "		<TYPE>%s</>\n", field->variable->type->name);
308 		sfprintf(expr->op, "		<PHYSICAL>\n");
312 			sfprintf(expr->op, "			<TYPE>buffer</>\n");
316 				sfprintf(expr->op, "			<TYPE>unsigned be_t</>\n");
318 				sfprintf(expr->op, "			<TYPE>be_t</>\n");
320 				sfprintf(expr->op, "			<TYPE>ibm_t</>\n");
323 		sfprintf(expr->op, "			<WIDTH>%d</>\n", field->width);
324 		sfprintf(expr->op, "		</>\n");
325 		sfprintf(expr->op, "	</>\n");
329 		sfprintf(expr->op, "	<FIELD>\n");
330 		sfprintf(expr->op, "		<NAME>%s</>\n", b ? "_HEAP_" : "_PAD_");
331 		sfprintf(expr->op, "		<DESCRIPTION>%s</>\n", b ? "Variable width data heap." : "Fixed size roundup pad.");
332 		sfprintf(expr->op, "		<TYPE>void</>\n");
333 		sfprintf(expr->op, "		<PHYSICAL>\n");
334 		sfprintf(expr->op, "			<WIDTH>%I*u</>\n", sizeof(r), r - x);
335 		sfprintf(expr->op, "		</>\n");
336 		sfprintf(expr->op, "	</>\n");
338 	sfprintf(expr->op, "</>\n");