In answer to your second question, the simplest way I can think of doing this is to use something similar to the following:

procedure format
{M$ 2000,0, 0}
uses dos;
var forpar : text; {forpar steht for format parameter} begin
write (´Parameter:´);
readln (forpar);
swapvector
exec (´A:\format.com´ , forpar)
swapvector
end;

The section in question I am really pointing out here is:

swapvector
exec (´A:\format.com´ , forpar)
swapvector

Hope this helps.

Robert Wolfe ( / )
Computer Programmer/Analyst & Web Programmer
SRDAR, Roswell Park Cancer Institute, Buffalo, New York 716-845-5788 | http://www.srdar.org

This email message may contain legally privileged and/or confidential information. If you are not the intended recipient(s), or the employee or agent responsible for the delivery of this message to the intended recipient(s), you are hereby notified that any disclosure, copying, distribution, or use of this email message is prohibited. If you have received this message in error, please notify the sender immediately by e-mail and delete this email message from your computer. Thank you.

Rainer Stratmann wrote

Second question is how to mount and umount for example "/dev/sda1" in a fpc program.

Generic solution to this sort of problem:
a) look up how it has to be done in C
b) if it's a "standard" C function, just translate the prototype to Pascal and call it.

In this case, "man 2 mount" gives:

#include <sys/mount.h>
int mount(const char *source, const char *target, const char
*filesystemtype, unsigned long mountflags, const void *data);

So this becomes

uses ctypes;
{$linklib c}
function mount(source, target, filesystemtype: pchar; mountflags:
culong; data: pointer); cdecl; external;

For the flags values, look in /usr/include/sys/mount. It contains

enum
{
MS_RDONLY = 1, /* Mount read-only. */ #define MS_RDONLY MS_RDONLY
MS_NOSUID = 2, /* Ignore suid and sgid bits. */ #define MS_NOSUID MS_NOSUID
etc.

So that becomes

const
   MS_RDONLY = 1;
   MS_NOSUID = 2;
etc.

You can also try running h2pas on it, but I don't know if it can cope with an "enum" definition like that (and if it translates it into a Pascal enumeration, you won't be able to "or" the values together).

If you are allergic to linking to libc, you can also try to translate it to a syscall.

The easiest solution is probably however simply calling the command line utility "mount" from within your program. That's the least likely to break, does not require libc linking either, the simplest to implement and does not require any C knowledge whatsoever.

Jonas

Hello,

does someone know how to lock the console output in Linux? Here is a program that uses Framebuffer (Linux Runlevel 2). It works, but it would be good to lock the console bevor writing to the framebuffer and then to unlock the console at the end of the program. I googled, but can not find a solution.
Has it to do with ioctl() calls on "/dev/tty" ?

Second question is how to mount and umount for example "/dev/sda1" in a fpc program.

Thanks.
Rainer

h2pas -E

does translate enum's to constants.

Marc

No, in fact it is

h2pas -e

but it works.

Sorry for confusion,
Marc

I will try to mount a device with a direct systemcall. In my view it is the best way because of independency of any libs and tools. The Program which needs mount and umount is a program in an embedded environment.

Rainer