Category:Polyglot:PL/I and PL/M: Difference between revisions

Content added Content deleted

Inline

@@ Line 130: / Line 130: @@
       return ( mod( a, b ) );
    end modf;
+   /* returns not p */
+   not:     procedure( p )returns( bit( 1 ) );
+      declare p bit( 1 );
+      return( ^ p );
+   end not;
    toupper: procedure( c )returns( character( 1 ) );
@@ Line 140: / Line 146: @@
 For PL/M, the following definitions would be used, with the appropiate subset cut-and-pasted into the programL
+<lang pli>
-<lang pli>   DECLARE BINARY LITERALLY 'ADDRESS', CHARACTER LITERALLY 'BYTE';
-   DECLARE SADDR  LITERALLY '.',       BIT       LITERALLY 'BYTE';
+   DECLARE BINARY LITERALLY 'ADDRESS', CHARACTER LITERALLY 'BYTE';
-   DECLARE FIXED  LITERALLY ' ',       RETURNS   LITERALLY ' ';
+   DECLARE FIXED  LITERALLY ' ',       BIT       LITERALLY 'BYTE';
-   DECLARE STATIC LITERALLY ' ';
+   DECLARE STATIC LITERALLY ' ',       RETURNS   LITERALLY ' ';
-   DECLARE TRUE   LITERALLY '1',       FALSE     LITERALLY '0';
+   DECLARE FALSE  LITERALLY '0',       TRUE LITERALLY '1';
+   DECLARE HBOUND LITERALLY 'LAST',    SADDR  LITERALLY '.';
    BDOSF: PROCEDURE( FN, ARG )BYTE;
                                DECLARE FN BYTE, ARG ADDRESS; GOTO 5;   END;