134 cmdssptr scmdssalloc(enum CMDcode (*cmdfn)(void*,cmdptr,char*),void *simvd,const char *root) {  in scmdssalloc()  argument
147 	cmds->simvd=simvd;  in scmdssalloc()
468 	void *voidptr,*simvd;  in scmdexecute()  local
474 	simvd=cmds->simvd;  in scmdexecute()
481 			code1=(*cmds->cmdfn)(cmds->simvd,cmd,cmd->str);  in scmdexecute()
483 				if(strlen(cmd->erstr)) SCMDPRINTF(simvd,7,"command '%s' error: %s\n",cmd->str,cmd->erstr);  in scmdexecute()
484 				else SCMDPRINTF(simvd,7,"error with command: '%s'\n",cmd->str); }  in scmdexecute()
499 			code1=(*cmds->cmdfn)(cmds->simvd,cmd,cmd->str);  in scmdexecute()
501 				if(strlen(cmd->erstr)) SCMDPRINTF(simvd,7,"command '%s' error: %s\n",cmd->str,cmd->erstr);  in scmdexecute()
502 				else SCMDPRINTF(simvd,7,"error with command: '%s'\n",cmd->str); }  in scmdexecute()
523 	return (*cmds->cmdfn)(cmds->simvd,cmd,string); }  in scmdcmdtype()
531 	void *voidptr,*simvd;  in scmdoutput()  local
534 	simvd=cmds?cmds->simvd:NULL;  in scmdoutput()
535 	SCMDPRINTF(simvd,2,"RUNTIME COMMAND INTERPRETER\n");  in scmdoutput()
537 		SCMDPRINTF(simvd,2," No command superstructure defined\n\n");  in scmdoutput()
539 	if(!cmds->cmdfn) SCMDPRINTF(simvd,10," ERROR: Command executer undefined");  in scmdoutput()
540 	if(!cmds->simvd) SCMDPRINTF(simvd,10," WARNING: No argument for command executer");  in scmdoutput()
541 	if(cmds->iter) SCMDPRINTF(simvd,2," Commands iteration counter: %i\n",cmds->iter);  in scmdoutput()
543 		SCMDPRINTF(simvd,2," Output file root: '%s%s'\n",cmds->root,cmds->froot);  in scmdoutput()
544 		SCMDPRINTF(simvd,2," Output file paths and names:\n"); }  in scmdoutput()
546 		SCMDPRINTF(simvd,2," No output files\n");  in scmdoutput()
549 			SCMDPRINTF(simvd,2,"  %s (file open): %s\n",cmds->fname[fid],cmds->fname[fid]);  in scmdoutput()
552 …SCMDPRINTF(simvd,2,"  %s (file %s): %s\n",cmds->fname[fid],cmds->fptr[fid]?"open":"closed",string)…  in scmdoutput()
554 		SCMDPRINTF(simvd,2," Output data table names:\n"); }  in scmdoutput()
556 		SCMDPRINTF(simvd,2," No output data tables\n");  in scmdoutput()
558 		SCMDPRINTF(simvd,2,"  %s\n",cmds->dname[did]);  in scmdoutput()
561 		SCMDPRINTF(simvd,2," No commands\n");  in scmdoutput()
563 		SCMDPRINTF(simvd,2," Commands:\n");  in scmdoutput()
567 			SCMDPRINTF(simvd,2,"  %c",timing);  in scmdoutput()
570 				SCMDPRINTF(simvd,2," time: %g",cmd->on);  in scmdoutput()
572 				SCMDPRINTF(simvd,2," iteration: %i",cmd->oni);  in scmdoutput()
574 				SCMDPRINTF(simvd,2," every: %i",cmd->dti);  in scmdoutput()
576 				SCMDPRINTF(simvd,2," from: %g to: %g step: %g",cmd->on,cmd->off,cmd->dt);  in scmdoutput()
578 				SCMDPRINTF(simvd,2," from: %i to: %i step: %i",cmd->oni,cmd->offi,cmd->dti);  in scmdoutput()
580 				SCMDPRINTF(simvd,2," from: %g to: %g step: %g mult: %g",cmd->on,cmd->off,cmd->dt,cmd->xt);  in scmdoutput()
581 			SCMDPRINTF(simvd,2," '%s' (%s)\n",cmd->str,scmdcode2string(scmdcmdtype(cmds,cmd),string)); }}  in scmdoutput()
585 		SCMDPRINTF(simvd,1," Time queue:\n");  in scmdoutput()
586 		SCMDPRINTF(simvd,1,"  %i queue spaces used of %i total\n",q_length(cmdq),q_maxlength(cmdq)-1);  in scmdoutput()
587 		SCMDPRINTF(simvd,1,"  Times to start, stop, and step, strings, and command type:\n");  in scmdoutput()
591 …SCMDPRINTF(simvd,1,"  %g %g%s%g '%s' (%s)\n",cmd->on,cmd->off,cmd->xt>1?" *":" ",cmd->xt>1?cmd->xt…  in scmdoutput()
594 		SCMDPRINTF(simvd,1," Integer queue:\n");  in scmdoutput()
595 		SCMDPRINTF(simvd,1,"  %i queue spaces used of %i total\n",q_length(cmdq),q_maxlength(cmdq)-1);  in scmdoutput()
596 		SCMDPRINTF(simvd,1,"  Iterations to start, stop, and step, strings, and command type:\n");  in scmdoutput()
602 …SCMDPRINTF(simvd,1,string2,cmd->oni,cmd->offi,cmd->dti,cmd->str,scmdcode2string(scmdcmdtype(cmds,c…  in scmdoutput()
605 …SCMDPRINTF(simvd,1,string2,cmd->oni,cmd->dti,cmd->str,scmdcode2string(scmdcmdtype(cmds,cmd),string…  in scmdoutput()
607 	SCMDPRINTF(simvd,2,"\n");  in scmdoutput()
866 				SCMDPRINTF(cmds->simvd,7,"Failed to open file '%s' for writing\n",cmds->fname[fid]);  in scmdopenfiles()