squale92 a écrit :
les flotants, c plus dur
/******************************************************************************
*
* project name: C / AMS variables interface (static library).
* initial date: 08/05/2002
* author: Fabien Vinas -- fabienvin@voila.fr (zdrubal)
* description: main header file
*
* Note : You could use functions from 'estack.h' as GetStrnArg instead of those
* from 'vat.h' I used in the AMS String reading, but I found it more
* 'funny' :). But It seems that functions using ESI pointers (such as
* AMSIntToCInt) are more optimized and that they take less memory.
* So as to optimize the library, I will implement string and char
* functions aliases that use functions from 'estack.h'.
*
*******************************************************************************/
short AMSFracToCInts(const char *VarName, long *Numerator, long *Denominator) {
HSym HSymVar;
SYM_ENTRY *pSymEntry;
ESI Tag;
HSymVar = SymFind(SYMSTR(VarName));
if (HSymVar.folder == H_NULL) return FALSE;
if ((pSymEntry = DerefSym(HSymVar)) == NULL) return FALSE;
Tag = HToESI(pSymEntry->handle);
if (*Tag != POSFRAC_TAG && *Tag != NEGFRAC_TAG) return FALSE;
if (*Tag == POSFRAC_TAG) {
*Numerator = GetIntArg(Tag);
Tag++;
*Denominator = GetIntArg(Tag);
return TRUE;
}
else {
*Numerator = -GetIntArg(Tag);
Tag++;
*Denominator = GetIntArg(Tag);
return TRUE;
}
}
short PrettyPrintAMSVar(const char *VarName, short x, short y) {
HSym HSymVar;
SYM_ENTRY *pSymEntry;
ESI Tag;
HSymVar = SymFind(SYMSTR(VarName));
if (HSymVar.folder == H_NULL) return FALSE;
if ((pSymEntry = DerefSym(HSymVar)) == NULL) return FALSE;
Tag = HToESI(pSymEntry->handle);
Print2DExpr(Parse2DExpr(Tag,FALSE),DeskTop,x,y);
return TRUE;
}
short PrettyPrintWithScrollingAMSVar(const char *VarName) {
// Returns -1 if an error occurs.
// Returns 0 if the key ESC has been pressed.
// Returns 1 if the key ENTER, or APPS has been pressed.
HSym HSymVar;
SYM_ENTRY *pSymEntry;
ESI Tag, ParsedExpr;
short bottom, top, width;
short PossibleMoves = 0, Return = -1;
short ActPosX, ActPosY, TmpPosX = 0, TmpPosY = 0;
WINDOW Window;
INT_HANDLER SaveInt1;
SaveInt1 = GetIntVec (AUTO_INT_1);
SetIntVec (AUTO_INT_1, DUMMY_HANDLER);
WinOpen (&Window,MakeWinRect (0,0,240,128),WF_SAVE_SCR | WF_NOBORDER);
WinActivate (&Window);
HSymVar = SymFind(SYMSTR(VarName));
if (HSymVar.folder == H_NULL) return -1;
if ((pSymEntry = DerefSym(HSymVar)) == NULL) return -1;
Tag = HToESI(pSymEntry->handle);
ParsedExpr = Parse2DExpr(Tag,FALSE);
Parms2D (ParsedExpr,&width,&bottom,&top);
if (width > LCD_WIDTH) PossibleMoves += 1;
if (bottom + top > LCD_HEIGHT) PossibleMoves += 2;
ActPosX = 1;
ActPosY = 1 + top;
while(TRUE) {
if(ActPosX != TmpPosX || ActPosY != TmpPosY) {
WinClr(&Window);
Print2DExpr(ParsedExpr,&Window,ActPosX,ActPosY);
}
TmpPosX = ActPosX;
TmpPosY = ActPosY;
if (_89_KEY_ESC) { Return = 0; break; }
if (_89_KEY_UP && PossibleMoves >= 2) ActPosY += 2;
if (_89_KEY_DOWN && PossibleMoves >= 2) ActPosY -= 2;
if (_89_KEY_LEFT && (PossibleMoves % 2) == 1) ActPosX += 2;
if (_89_KEY_RIGHT && (PossibleMoves % 2) == 1) ActPosX -= 2;
if (_89_KEY_UP && _89_KEY_2ND && PossibleMoves >= 2) ActPosY += 10;
if (_89_KEY_DOWN && _89_KEY_2ND && PossibleMoves >= 2) ActPosY -= 10;
if (_89_KEY_LEFT && _89_KEY_2ND && (PossibleMoves % 2) == 1) ActPosX += 10;
if (_89_KEY_RIGHT && _89_KEY_2ND && (PossibleMoves % 2) == 1) ActPosX -= 10;
if (_89_KEY_ENTER || _89_KEY_APPS) { Return = 1; break; }
if (ActPosY + bottom <= LCD_HEIGHT - 5) ActPosY = TmpPosY;
if (ActPosY - top >= 5) ActPosY = TmpPosY;
if (ActPosX >= 5) ActPosX = TmpPosX;
if (ActPosX + width <= LCD_WIDTH - 5) ActPosX = TmpPosX;
}
WinClose (&Window);
SetIntVec (AUTO_INT_1,SaveInt1);
ngetchx();
return Return;
}
short PrintAMSVar(const char *VarName, char *Dest) {
HSym HSymVar;
SYM_ENTRY *pSymEntry;
ESI Tag;
HANDLE Handle;
HSymVar = SymFind(SYMSTR(VarName));
if (HSymVar.folder == H_NULL) return FALSE;
if ((pSymEntry = DerefSym(HSymVar)) == NULL) return FALSE;
Tag = HToESI(pSymEntry->handle);
Handle = Parse1DExpr(Tag,FALSE,0);
if (Handle == H_NULL) return FALSE;
strcpy(Dest,(char *)HeapDeref(Handle));
HeapFree(Handle);
return TRUE;
}
unsigned char AMSCharToCChar(const char *VarName, unsigned short position) {
HSym HSymVar;
SYM_ENTRY *pSymEntry;
HANDLE Handle;
if(!position) return FALSE;
HSymVar = SymFind(SYMSTR(VarName));
if (HSymVar.folder == H_NULL) return FALSE;
if ((pSymEntry = DerefSym(HSymVar)) == NULL) return FALSE;
Handle = pSymEntry->handle;
if (!(*HToESI(Handle) == STR_TAG)) return FALSE;
return *((unsigned char *)HeapDeref(Handle) + 2 + position);
}
short AMSStrToCStr(char *Str, const char *VarName) {
HSym HSymVar;
SYM_ENTRY *pSymEntry;
unsigned char *pFile;
HANDLE Handle;
short index = 0;
HSymVar = SymFind(SYMSTR(VarName));
if (HSymVar.folder == H_NULL) return FALSE;
if ((pSymEntry = DerefSym(HSymVar)) == NULL) return FALSE;
Handle = pSymEntry->handle;
if (!(*HToESI(Handle) == STR_TAG)) return FALSE;
pFile = (unsigned char *)HeapDeref(Handle) + 3;
while(*pFile) {
Str[index] = *pFile++;
index++;
}
Str[index] = 0;
return TRUE;
}
long AMSIntToCInt(const char *VarName) {
HSym HSymVar;
SYM_ENTRY *pSymEntry;
ESI Tag;
HSymVar = SymFind(SYMSTR(VarName));
if (HSymVar.folder == H_NULL) return FALSE;
if ((pSymEntry = DerefSym(HSymVar)) == NULL) return FALSE;
Tag = HToESI(pSymEntry->handle);
if (*Tag != POSINT_TAG && *Tag != NEGINT_TAG) return FALSE;
if (*Tag == POSINT_TAG) return GetIntArg(Tag);
else return -GetIntArg(Tag);
}
short CStrToAMSStr(const char *Str, const char *VarName) {
HANDLE Handle;
HSym HSymVar;
SYM_ENTRY *pSymEntry;
unsigned long StrLen = strlen(Str);
unsigned char *pFile;
unsigned short i;
if (!(Handle = HeapAlloc(StrLen + 5))) return FALSE;
HSymVar = SymAdd(SYMSTR(VarName));
if (HSymVar.folder == H_NULL) {
HeapFree(Handle);
return FALSE;
}
if ((pSymEntry = DerefSym(HSymVar)) == NULL) {
HeapFree(Handle);
return FALSE;
}
pSymEntry->handle = Handle;
pFile = (unsigned char *)HeapDeref(pSymEntry->handle);
if (StrLen + 3 <= 0xFF) {
*pFile++ = 0;
*pFile++ = StrLen + 3;
}
else {
*pFile++ = (StrLen + 3) / 0xFF;
*pFile++ = (StrLen + 3) % 0xFF - 1;
}
*pFile++ = 0;
for (i=0;i<StrLen;i++) {
*pFile++ = Str[i];
}
*pFile++ = 0;
*pFile++ = STR_TAG;
return TRUE;
}
.