> On Feb 3, 2018, at 1:26 AM, Bernd Oppolzer <bernd.oppol...@t-online.de> wrote:
>
> Thank you very much !
>
> A friend called Rene Jansen tried the compiler in May 2017
> on modern z/OS and MacOS, look here:
>
> http://bernd-oppolzer.de/job9i040.htm
>
> it worked without problems; only for MacOS we had to make a minor
> change, because colons in environment variable names are not allowed.
>
> I used the following syntax
>
> set DD:INPFILE = c:\work\pascal\work\inpfile.dat
>
> to assign physical file names to logical names from the Pascal program;
> because of the MacOS problem, I changed that to
>
> set DD_INPFILE = c:\work\pascal\work\inpfile.dat
>
> (the syntax to set environment variables may be different depending on
> platform).
>
> You can build a working MacOS version yourself; you only have to compile
> PCINT.C (the P-Code interpreter) on the target platform. Look at AW.CMD
> at the GitHub distribution to get an idea how to do it. You can download the
> whole Pascal system as a ZIP file from GitHub. (All you need is a C compiler
> on MacOS ... or on any other target platform. On the mainframe - MVS or CMS -
> the installation procedure is different, no C compiler needed).
>
> Kind regards
>
> Bernd
>
>
Well, that was fairly easy. :) Just a few warnings, but the executable
executes!
-Paul
iMac:Pascal-master paul$ ls *.c
oiscach.c pcint.c pcintcmp.c
iMac:Pascal-master paul$ cc -o pcint *.c
pcint.c:1863:34: warning: format specifies type 'short' but the argument has
type 'int' [-Wformat]
sprintf (buf, "WRX:%04hd", parm2);
~~~~~ ^~~~~
%04d
/Applications/Xcode.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX10.13.sdk/usr/include/secure/_stdio.h:47:56:
note:
expanded from macro 'sprintf'
__builtin___sprintf_chk (str, 0, __darwin_obsz(str), __VA_ARGS__)
^~~~~~~~~~~
pcint.c:3623:16: warning: format string is not a string literal (potentially
insecure)
[-Wformat-security]
BREMSE (errmsg);
^ ~~~~~~
pcint.c:3015:30: note: expanded from macro 'BREMSE'
fprintf (stderr, (x)); \
^~
pcint.c:3623:16: note: treat the string as an argument to avoid this
pcint.c:3015:30: note: expanded from macro 'BREMSE'
fprintf (stderr, (x)); \
^
pcint.c:7647:15: warning: format specifies type 'int' but the argument has type
'long' [-Wformat]
pcode - gs -> code0,
^~~~~~~~~~~~~~~~~~~
3 warnings generated.
pcintcmp.c:2187:34: warning: illegal character encoding in string literal
[-Winvalid-source-encoding]
"ᄔ<81><8E><99><9A>"
^~~~~~~~~~~~~~~~
pcintcmp.c:2212:34: warning: format specifies type 'int' but the argument has
type 'long'
[-Wformat]
fprintf (outfile, "%08d ", cp - origin);
~~~~ ^~~~~~~~~~~
%08ld
pcintcmp.c:2213:35: warning: format specifies type 'unsigned int' but the
argument has type 'long'
[-Wformat]
fprintf (outfile, "%08x: ", cp - origin);
~~~~ ^~~~~~~~~~~
%08lx
pcintcmp.c:2452:16: warning: format specifies type 'int' but the argument has
type 'long'
[-Wformat]
pcode - gs -> code0,
^~~~~~~~~~~~~~~~~~~
4 warnings generated.
iMac:Pascal-master paul$ ./pcint
PCINT (Build 1.0 Feb 3 2018 18:18:56)
Aufruf: PCINT <Parameter>
Die Reihenfolge der Parameter ist beliebig;
die einzelnen Parameter und ihre Bedeutung:
prr= PCODE-Eingabedatei
inc= Weitere PCODE-Dateien (Module)
pas= Pascal-Source (falls vorhanden)
out= Name der Ausgabedatei
sconst= Startadresse fuer Konstanten
files= maximale Anzahl Files
newheap= Platz fuer Heap (new Style)
sizecmd= maximale Groesse CMDLINE
debug= Debug-Schalter (J/N)
list= Listing gewuenscht (J/N)
string= Platz fuer String-Workarea
Defaults:
prr=
inc=
pas=
out=
sconst= 3000000
files= 100
newheap= 6000000
sizecmd= 512
debug= N
list= N
string= 1000000
iMac:Pascal-master paul$
