Files
harbour-core/contrib/hbunix/tests/getpid.prg
2013-10-09 20:08:24 +02:00

18 lines
230 B
Plaintext

/*
* Harbour Project source code:
*
* Copyright 2010 Viktor Szakats (vszakats.net/harbour)
* www - http://harbour-project.org
*
*/
#require "hbunix"
#include "simpleio.ch"
PROCEDURE Main()
? posix_getpid()
RETURN