Re: [Lazarus] does anyone remember polyglot?
waldo kitty wrote: On 7/22/2010 19:21, Marc Weustink wrote: waldo kitty wrote: does anyone remember polyglot? here's the sources to the 10th anniversary edition that i've had stashed away for quite some time ;) somehow i don't think it can be fitted into a lazarus GUI format too easily... not without some breakage... but i may be wrong about that... FPC should be able to digest and enjoy it, though... should being the operative word ;) :) if you compile with -Mtp it works i assume you're talking about raw FPC, right? ppc386 yes. wonder what the differences are that -Mtp must be used? Comment nesting: Compiling polyglot.txt polyglot.txt(47,8) Warning: Comment level 2 found polyglot.txt(49,75) Warning: Comment level 2 found polyglot.txt(76,1) Warning: Comment level 2 found polyglot.txt(77,1) Warning: Comment level 2 found polyglot.txt(78,1) Warning: Comment level 2 found polyglot.txt(78,75) Warning: Comment level 2 found polyglot.txt(83,76) Warning: Comment level 2 found polyglot.txt(85) Fatal: Unexpected end of file polyglot.txt(85) Fatal: Compilation aborted Marc -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] does anyone remember polyglot?
On 7/23/2010 14:35, Marc Weustink wrote: waldo kitty wrote: wonder what the differences are that -Mtp must be used? Comment nesting: Compiling polyglot.txt polyglot.txt(47,8) Warning: Comment level 2 found polyglot.txt(49,75) Warning: Comment level 2 found polyglot.txt(76,1) Warning: Comment level 2 found polyglot.txt(77,1) Warning: Comment level 2 found polyglot.txt(78,1) Warning: Comment level 2 found polyglot.txt(78,75) Warning: Comment level 2 found polyglot.txt(83,76) Warning: Comment level 2 found polyglot.txt(85) Fatal: Unexpected end of file polyglot.txt(85) Fatal: Compilation aborted ahhh... yes... because of FPCs ability of using different commenting formats... i forgot about that... yes, i can see where it would create a problem ;) -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
[Lazarus] does anyone remember polyglot?
does anyone remember polyglot? here's the sources to the 10th anniversary
edition that i've had stashed away for quite some time ;)
somehow i don't think it can be fitted into a lazarus GUI format too easily...
not without some breakage... but i may be wrong about that... FPC should be able
to digest and enjoy it, though... should being the operative word ;)
spacing is critical! there are NO tabs in this source...
(*O/*_/
Cu #%* )pop mark/CuG 4 def/# 2 def@@P[TX---P\P_SXPY!Ex(mx2ex(SX!Ex4P)Ex=
CuG #%* *+Ex=
CuG #%*--*+Ex=
CuG #%* POLYGLOT - a program in eight languages 15 February 1991 *+Ex=
CuG #%* 10th Anniversary Edition 1 December 2001 *+Ex=
CuG #%* *+Ex=
CuG #%* Written by Kevin Bungard, Peter Lisle, and Chris Tham *+Ex=
CuG #%* *+Ex=
CuG #%* Polyglot suports the following languages: *+Ex=
CuG #%* 1. COBOL (ANSI) *+Ex=
CuG #%* 2. Pascal (ISO) *+Ex=
CuG #%* 3. Fortran (ANSI, f77) *+Ex=
CuG #%* 4. C (ANSI-ish) *+Ex=
CuG #%* 5. PostScript*+Ex=
CuG #%* 6. Linux/Unix shell script (bash, sh, csh) *+Ex=
CuG #%* 7. x86 machine language (MS-DOS, Win32, Linux) *+Ex=
CuG #%* 8. Perl (version 5) *+Ex=
CuG #%* *+Ex=
CuG #%* Usage: *+Ex=
CuG #%* 1. Rename this file to polyglot.[cob|pas|f77|c|ps|sh|com|pl] *+Ex=
CuG #%* *+Ex=
CuG #%* 2. Compile and run with your favorite compiler and operating *+Ex=
CuG #%*system. *+Ex=
CuG #%* *+Ex=
CuG #%* Notes: *+Ex=
CuG #%* 1. We have attempted to use only standard language features. *+Ex=
CuG #%* *+Ex=
CuG #%* 2. Without the -traditional flag gcc will issue a warning. *+Ex=
CuG #%* *+Ex=
CuG #%* 3. When transferring from Unix to DOS make sure that a LF*+Ex=
CuG #%*is correctly translated into a CR/LF. *+Ex=
CuG #%* *+Ex=
CuG #%* 4. Keep the black lines at the start of the program. They*+Ex=
CuG #%*are important.*+Ex=
CuG #%* *+Ex=
CuG #%* 5. This text is a comment block in all eight languages. *+Ex=
CuG #%* *+Ex=
CuG #%* Please mail any comments, corrections or additions to *+Ex=
CuG #%* polyg...@ideology.com.au *+Ex=
CuG #%* *+Ex=
CuG #%*--*QuZ=
CuG #%* *+Ex=
CuG #%*!Mx)ExQX5ZZ5SSP5n*5X!)Ex+ExPQXH,B+ExP[-9A-9B(g?(gA'UTTER_XYZZXX!X *+
CuG #(* *(
C # */); /*(
C # *) programpolyglot (output); (*+
C # identification division.
C # program-id.polyglot.
C #
C # data division.
C # procedure division.
C #
C # * ))cleartomark /Bookman-Demi findfont 36 scalefont setfont (
C # * (
C #
C # * hello polyglots$
C # main.
C # perform
C /# * ) 2_$$; echo hello polyglots; rm _$$; exit;
C # * (
C #
C *0 ) unless print hello polyglots\n; __END__
print
C stop run.
-*,'hello polyglots'
C
C print.
C display hello polyglots. (
C */ int i;/*
C */ main () { /*
C */ i=printf (hello
Re: [Lazarus] does anyone remember polyglot?
waldo kitty wrote: does anyone remember polyglot? here's the sources to the 10th anniversary edition that i've had stashed away for quite some time ;) somehow i don't think it can be fitted into a lazarus GUI format too easily... not without some breakage... but i may be wrong about that... FPC should be able to digest and enjoy it, though... should being the operative word ;) :) if you compile with -Mtp it works Marc -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
Re: [Lazarus] does anyone remember polyglot?
On 7/22/2010 19:21, Marc Weustink wrote: waldo kitty wrote: does anyone remember polyglot? here's the sources to the 10th anniversary edition that i've had stashed away for quite some time ;) somehow i don't think it can be fitted into a lazarus GUI format too easily... not without some breakage... but i may be wrong about that... FPC should be able to digest and enjoy it, though... should being the operative word ;) :) if you compile with -Mtp it works i assume you're talking about raw FPC, right? wonder what the differences are that -Mtp must be used? yes, i've not tried it though i've had it forever... i haven't gone looking to see if there's an update version... guess maybe i should :P :D -- ___ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
