eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing more tab/space issues

This commit is contained in:
mysticbbs 2012-02-27 18:38:09 -05:00
parent 19bdea67f5
commit 8460084849
4 changed files with 38 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
mystic/install.pas
View File

@ -45,19 +45,24 @@ Var
Begin
A := 1;
B := 25;
Repeat
If A > 1 Then Begin
Screen.WriteXY (1, A-1, 0, strRep(' ', 80));
Screen.WriteXY (1, B+1, 0, strRep(' ', 80));
End;
Screen.WriteXY (1, A, 8, 'ú-' + strRep('Ä', 75) + '--ú');
Screen.WriteXY (1, B, 8, 'ú-' + strRep('Ä', 75) + '--ú');
WaitMS(15);
Inc (A);
Dec (B);
Until A = 14;
A := 76;
Repeat
Dec (A, 2);
Screen.WriteXY (1, 13, 8, strPadC('ú-' + strRep('Ä', A) + '--ú', 80, ' '));

18
mystic/mpl_compile.pas
View File

@ -1415,13 +1415,13 @@ begin
end;
end;
Procedure TParserEngine.ParseVariable (vt : TIdentTypes);
Procedure TParserEngine.ParseVariable (VT: TIdentTypes);
Begin
if vt in vnums then ParseVarNumber else
if vt = iString then ParseVarString else
if vt = iChar then ParseVarChar Else
if vt = iBool then ParseVarBoolean else
if vt = iFile then Error(mpsInStatement,'');
If VT in vNums Then ParseVarNumber Else
If VT = iString Then ParseVarString Else
If VT = iChar Then ParseVarChar Else
If VT = iBool Then ParseVarBoolean Else
If VT = iFile Then Error(mpsInStatement,'');
End;
Procedure TParserEngine.ParseVariableInfo (Param: Boolean; IsRec: Boolean; Var Info: TParserVarInfoRec);
@ -1503,13 +1503,13 @@ Procedure TParserEngine.ParseVariableInfo (Param: Boolean; IsRec: Boolean; Var I
IdentStr := strLower(IdentStr);
// separate function?
If IdentStr = tkv[iString] Then Info.vType := iString Else
If IdentStr = tkv[iString ] Then Info.vType := iString Else
If IdentStr = tkv[iChar ] Then Info.vType := iChar Else
If IdentStr = tkv[iByte ] Then Info.vType := iByte Else
If IdentStr = tkv[iShort] Then Info.vType := iShort Else
If IdentStr = tkv[iShort ] Then Info.vType := iShort Else
If IdentStr = tkv[iWord ] Then Info.vType := iWord Else
If IdentStr = tkv[iInteger] Then Info.vType := iInteger Else
If IdentStr = tkv[iLongInt ] Then Info.vType := iLongInt Else
If IdentStr = tkv[iLongInt] Then Info.vType := iLongInt Else
If IdentStr = tkv[iReal ] Then Info.vType := iReal Else
If IdentStr = tkv[iBool ] Then Info.vType := iBool Else
If IdentStr = tkv[iFile ] Then Begin

6
mystic/mpl_types.pas
View File

@ -196,7 +196,8 @@ Const
':', 'function', 'array', 'case',
'of', '..', 'type', 'const',
'break', 'continue', 'uses', 'exit',
'$', 'and', 'or', 'xor', 'shl', 'shr'
'$', 'and', 'or', 'xor',
'shl', 'shr'
);
wTokensIPLC : TTokenWordType = (
@ -215,7 +216,8 @@ Const
':', 'func', 'array', 'switch',
'of', '..', 'type', 'const',
'break', 'continue', 'uses', 'exit',
'$', '&', '|', 'xor', '<<', '>>'
'$', '&', '|', 'xor',
'<<', '>>'
);
{$ENDIF}