Re: [fpc-pascal] ARM compiler platforms

2005-07-07 Thread Florian Klaempfl
Marc Santhoff wrote:

> Hi,
> 
> since the website only seems to mention the Zaurus as device for running
> fpc and executing it's program i assume (cross)compiling at least works
> on linux.
> 
> What other op-sys's and devices are supported? Would any ARM-based
> handheld do?
> 
> How about embedded linux or the like? Or NetBSD?

What do you mean with supported? The current maintainers only supply arm-linux.
Yury Sidorov is working on arm-wince, it's on hello world level currently.

> 
> TIA,
> Marc
> 
> 
> 
> ___
> fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-pascal


___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


RE: [fpc-pascal] make install error

2005-07-07 Thread Lee, John
make cycle and make zipinstall both work fine here (today) on win32 v2.1.1 and 
v2.0.1 using fpc.zip in ftp... snapshot/source . If you want the runnable 
binaries the daily snapshots are now working again too...on 
ftp.../snapshot/v21/ or /v20 in fpc-*.zip (whole thing including ide), 
base*.zip (compiler & rtl).  

HTH

Regards John
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Steve
Williams
Sent: 06 July 2005 22:49
To: fpc-pascal
Subject: [fpc-pascal] make install error


I got the latest FPC source using Subversion on Win32.  Running make 
build in the root directory worked fine.  Running make install fails 
because cp.exe does not ignore hidden directories, therefore it tries to 
delete the Subversion .svn directories, which is bad.


c:/fpc/2.0.0/bin/i386-win32/cp.exe -Rfp tests/* /pp/examples/fcl
cp.exe: cannot remove old link to `/pp/examples/fcl/.svn/dir-prop-base':
Permission denied
cp.exe: cannot remove old link to `/pp/examples/fcl/.svn/dir-props':
Permission denied
cp.exe: cannot remove old link to `/pp/examples/fcl/.svn/dir-wcprops':
Permission denied
cp.exe: cannot remove old link to `/pp/examples/fcl/.svn/entries':
Permission denied
cp.exe: cannot remove old link to `/pp/examples/fcl/.svn/format':
Permission denied
cp.exe: cannot remove old link to
`/pp/examples/fcl/.svn/prop-base/Makefile.fpc.svn-base': Permission denied
cp.exe: cannot remove old link to
`/pp/examples/fcl/.svn/prop-base/Makefile.svn-base': Permission denied
cp.exe: cannot remove old link to
`/pp/examples/fcl/.svn/props/Makefile.fpc.svn-work': Permission denied
cp.exe: cannot remove old link to
`/pp/examples/fcl/.svn/props/Makefile.svn-work': Permission denied
cp.exe: cannot remove old link to `/pp/examples/fcl/.svn/README.txt':
Permission denied
cp.exe: cannot remove old link to
`/pp/examples/fcl/.svn/text-base/Makefile.fpc.svn-base': Permission denied
cp.exe: cannot remove old link to
`/pp/examples/fcl/.svn/text-base/Makefile.svn-base': Permission denied
cp.exe: cannot remove old link to
`/pp/examples/fcl/.svn/wcprops/Makefile.fpc.svn-work': Permission denied
cp.exe: cannot remove old link to
`/pp/examples/fcl/.svn/wcprops/Makefile.svn-work': Permission denied
make[4]: *** [fpc_exampleinstall] Error 1


-- 
Sly


This message and its attachments may contain legally privileged or confidential 
information. This message is intended for the use of the individual or entity 
to which it is addressed. If you are not the addressee indicated in this 
message, or the employee or agent responsible for delivering the message to the 
intended recipient, you may not copy or deliver this message or its attachments 
to anyone. Rather, you should permanently delete this message and its 
attachments and kindly notify the sender by reply e-mail. Any content of this 
message and its attachments, which does not relate to the official business of 
the sending company must be taken not to have been sent or endorsed by the 
sending company or any of its related entities. No warranty is made that the 
e-mail or attachment(s) are free from computer virus or other defect.


This e-mail and any attachment is for authorised use by the intended 
recipient(s) only. It may contain proprietary material, confidential 
information and/or be subject to legal privilege. It should not be copied, 
disclosed to, retained or used by, any other party. If you are not an intended 
recipient then please promptly delete this e-mail and any attachment and all 
copies and inform the sender. Thank you.

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


[fpc-pascal] Wrapping libInkLevel

2005-07-07 Thread A.J. Venter
Hi,
I've been trying to create a wrapper for libinklevel, h2pas with a fairly
standard set of options ran fine, the wrapper compiled once I commented a
double-definition for PInk_level, but on trying to use it, it throws a stack
exception:

I include the translated header file below, maybe somebody could point out
what's wrong ? I've spent some time trying to debug it but to no avail (I'm
also pretty sure that model is meant to be a Pchar);

TIA
A.J.


unit inklevel;
interface

{
  Automatically converted by H2Pas 0.99.16 from inklevel.h
  The following command line parameters were used:
-p
-T
-S
-c
-D
-l
libinklevel.so
inklevel.h
}

const
  External_library='libinklevel.so'; {Setup as you need}

{ Pointers to basic pascal types, inserted by h2pas conversion program.}
Type
  PLongint  = ^Longint;
  PSmallInt = ^SmallInt;
  PByte = ^Byte;
  PWord = ^Word;
  PDWord= ^DWord;
  PDouble   = ^Double;

{Type
Pink_level  = ^ink_level;}
{$IFDEF FPC}
{$PACKRECORDS C}
{$ENDIF}



{$ifndef INKLEVEL_H}
{$define INKLEVEL_H}
{$ifdef DEBUG}
{$include  /* for the debug printfs */}
{$endif}



const
   PARPORT = 1;
   USB = 2;

   RESPONSE_INVALID = 0;
   ONE_COLOR_FOUND = 1;
   ONE_BLACK_COLOR_FOUND = 2;
   TWO_COLORS_FOUND = 3;
   TWO_PHOTO_COLORS_FOUND = 4;
   THREE_COLORS_FOUND = 5;
   FOUR_COLORS_FOUND = 6;
   SIX_COLORS_FOUND = 7;
   SEVEN_COLORS_FOUND = 8;

   OK = 0;
   ERROR = -(1);
   DEV_PARPORT_INACCESSIBLE = -(2);
   DEV_LP_INACCESSIBLE = -(3);
   COULD_NOT_GET_DEVICE_ID = -(4);
   DEV_USB_LP_INACCESSIBLE = -(5);
   UNKNOWN_PORT_SPECIFIED = -(6);
   NO_PRINTER_FOUND = -(7);
   NO_DEVICE_CLASS_FOUND = -(8);
   NO_CMD_TAG_FOUND = -(9);
   PRINTER_NOT_SUPPORTED = -(10);
   NO_INK_LEVEL_FOUND = -(11);
   COULD_NOT_WRITE_TO_PRINTER = -(12);
   COULD_NOT_READ_FROM_PRINTER = -(13);
   COULD_NOT_PARSE_RESPONSE_FROM_PRINTER = -(14);
   MODEL_NAME_LENGTH = 100;
type
   Pink_level = ^Tink_level;
   Tink_level = record
model : array[0..(MODEL_NAME_LENGTH)-1] of byte;
_type : word;
black : word;
color : word;
cyan : word;
magenta : word;
yellow : word;
photo : word;
photocyan : word;
photomagenta : word;
photoyellow : word;
 end;


function get_ink_level(port:longint; portnumber:longint;
level:Pink_level):longint;cdecl;external External_library;


const
   BUFLEN = 1024;
   NR_TAGS = 15;
   OLD = 1;
   NEW = 2;
{$endif}

implementation


end.

---

___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal


Re: [fpc-pascal] ARM compiler platforms

2005-07-07 Thread Den Jean
On Wednesday 06 July 2005 07:32 am, Marc Santhoff wrote:
> Hi,
> 
> since the website only seems to mention the Zaurus as device for running
> fpc and executing it's program i assume (cross)compiling at least works
> on linux.
> 

For a sample application created with FPC take look at:

http://users.pandora.be/Jan.Van.hijfte/qtforfpc/qtedemo.html


___
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal