rtl/SYSTEM.java

   1 public class SYSTEM
   2 {
   3         /* Каркас для фреймов процедур */
   4         public static abstract class FRAME
   5         {
   6                 public FRAME up;
   7         }
   8
   9         /* Длинна строки LEN(s$) */
  10         public static int LEN(byte[] x)
  11         {
  12                 int i = 0;
  13                 while(x[i] != 0)
  14                 {
  15                         i += 1;
  16                 }
  17                 return i;
  18         }
  19
  20         public static String STRING(byte[] x)
  21         {
  22                 return new String(x, 0, LEN(x));
  23         }
  24
  25         public static void COPY(byte[] x, byte[] v)
  26         {
  27                 int ix = LEN(x);
  28                 int iv = v.length - 1;
  29
  30                 int i = 0;
  31                 int len = (ix < iv) ? (ix) : (iv);
  32                 while(i < len)
  33                 {
  34                         v[i] = x[i];
  35                         i += 1;
  36                 }
  37                 v[i] = 0;
  38         }
  39
  40         public static int STRCMP(byte[] a, byte[] b)
  41         {
  42                 int i = 0;
  43                 while(a[i] != 0 && a[i] == b[i])
  44                 {
  45                         i += 1;
  46                 }
  47                 return a[i] - b[i];
  48         }
  49
  50         public static void HALT(long n)
  51         {
  52                 System.exit((int) n);
  53         }
  54
  55         public static void ASSERT(boolean x)
  56         {
  57                 assert x;
  58         }
  59
  60         public static void ASSERT(boolean x, long n)
  61         {
  62                 assert x : n;
  63         }
  64
  65         public static void TRAP(long n)
  66         {
  67                 if(n == -1)
  68                 {
  69                         throw new RuntimeException("CASE TRAP");
  70                 }
  71                 else if(n == -2)
  72                 {
  73                         throw new RuntimeException("WITH TRAP");
  74                 }
  75                 else if(n == -3)
  76                 {
  77                         throw new RuntimeException("NOT IMPLEMENTED");
  78                 }
  79                 else
  80                 {
  81                         throw new RuntimeException("TRAP CODE " + n);
  82                 }
  83         }
  84 }