[fpc-devel]fvision / IDE

[Alejandro Néstor Vargas]

El Sáb 10 Mar 2001 22:33, escribiste:

I am trying to compile the ide for linux. But before, I need to compile 
fvision under linux. But I found there is not code defined for "OS_LINUX", in 
example, the for function FileWrite there is code for windows and OS/2. When 
I tryed to compile fileio.pas I obtained the following result:


[root at anv fvision]# ppc386 fileio.pas
Free Pascal Compiler version 1.0.4 [2000/12/18] for i386
Copyright (c) 1993-2000 by Florian Klaempfl
Target OS: Linux for i386
Compiling fileio.pas
fileio.pas(76,2) Note: Stack check is global under Linux
fileio.pas(624,1) Fatal: Syntax error, BEGIN expected but END found


An example of a function that hasn't implementation for OS_LINUX is this:     
                                                                         

FUNCTION FileWrite (Handle: Word; Var Buf; Count: Sw_Word; Var Actual: 
Sw_Word): Word;

{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}
                               IMPLEMENTATION
{<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>}

{$IFDEF OS_WINDOWS}                                   { WIN/NT UNITS }

  {$IFNDEF PPC_SPEED}                                 { NON SPEED COMPILER }
    {$IFDEF PPC_FPC}                                  { FPC WINDOWS COMPILER }
    USES Windows;                                     { Standard unit }
    {$ELSE}                                           { NON FPC COMPILER }
    USES WinTypes, WinProcs;                          { Stardard units }
    {$ENDIF}
  TYPE LongWord = LongInt;                            { Type fixup }
  {$ELSE}                                             { SPEEDSOFT COMPILER }
  USES WinNT, WinBase;                                { Standard units }
  {$ENDIF}

{$ENDIF}

{$IFDEF OS_OS2}                                       { OS2 COMPILERS }

  {$IFDEF PPC_VIRTUAL}                                { VIRTUAL PASCAL UNITS }
  USES OS2Base;                                       { Standard unit }
  {$ENDIF}

  {$IFDEF PPC_SPEED}                                  { SPEED PASCAL UNITS }
  USES BseDos, Os2Def;                                { Standard units }
  {$ENDIF}

  {$IFDEF PPC_BPOS2}                                  { C'T PATCH TO BP UNITS 
}
  USES DosTypes, DosProcs;                            { Standard units }
  {$ENDIF}

{$ENDIF}


-- 
Alejandro Néstor Vargas
Departamento de Desarrollo
X Net Cuyo S.A.