- Removed -fwritable-string

SKIPPED:
	psi/dornier2.c
	psi/ecbdriv.c
	psi/el734hp.c
	psi/libpsi.a
	psi/make_gen
	psi/makefile_linux
	psi/pimotor.c
	psi/pipiezo.c
	psi/sinqhttp.c
	psi/tcpdornier.c
	psi/velodornier.c
This commit is contained in:
koennecke
2006-03-31 15:24:52 +00:00
parent 4081448055
commit 51a60375d6
38 changed files with 1232 additions and 154 deletions

21
tasub.c
View File

@ -65,6 +65,7 @@ static int tasUBSave(void *pData, char *name, FILE *fd){
self->cell.b, self->cell.c, self->cell.alpha,
self->cell.beta, self->cell.gamma);
saveReflections(self,name,fd);
fprintf(fd,"%s outofplane %d\n", name, self->outOfPlaneAllowed);
if(self->tasMode == KICONST){
fprintf(fd,"%s const ki\n",name);
}else if(self->tasMode == ELASTIC){
@ -136,6 +137,7 @@ static ptasUB MakeTasUB(){
pNew->tasMode = KICONST;
pNew->targetEn = .0;
pNew->actualEn = .0;
pNew->outOfPlaneAllowed = 1;
pNew->mustRecalculate = 1;
return pNew;
@ -1468,6 +1470,25 @@ int TasUBWrapper(SConnection *pCon,SicsInterp *pSics, void *pData,
SCWrite(pCon,pBueffel,eValue);
return 1;
}
} else if(strcmp(argv[1],"outofplane") == 0){
if(argc > 2){
strtolower(argv[2]);
if(!SCMatchRights(pCon,usUser)){
return 0;
}
status = Tcl_GetInt(InterpGetTcl(pSics),argv[2],&newSS);
if(status != TCL_OK){
SCWrite(pCon,"ERROR: failed to convert argument to number",eError);
return 0;
}
self->outOfPlaneAllowed = newSS;
SCSendOK(pCon);
return 1;
} else {
snprintf(pBueffel,131,"%s.outofplane = %d",argv[0],self->outOfPlaneAllowed);
SCWrite(pCon,pBueffel,eValue);
return 1;
}
} else {
snprintf(pBueffel,131,"ERROR: subcommand %s to %s not defined",argv[1],
argv[0]);