home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / emerald / emrldsys.lha / Language / Compiler / Builtins / phoney_String.m < prev    next >
Encoding:
Text File  |  1990-08-16  |  2.6 KB  |  83 lines
  1. % 
  2. % @(#)phoney_String.m    1.2  3/4/88
  3. %
  4. export _StringObject to "Builtins"
  5.  
  6. const _StringObject == immutable object _StringObject
  7.   export getSignature, create, literal
  8.  
  9.   const StringType == immutable type StringType
  10.     function getElement [index : Integer] -> [e : Character]
  11.     function getSlice [lb : Integer, length : Integer] -> [a : String]
  12.     function || [o : String] -> [r : String]
  13.       % r <- self || o
  14.     function asString -> [r : String]
  15.       % r <- self
  16.     function > [o : String] -> [r : Boolean]
  17.       % r <- self > o
  18.     function >= [o : String] -> [r : Boolean]
  19.       % r <- self >= o
  20.     function < [o : String] -> [r : Boolean]
  21.       % r <- self < o
  22.     function <= [o : String] -> [r : Boolean]
  23.       % r <- self <= o
  24.     function = [o : String] -> [r : Boolean]
  25.       % r <- self = o
  26.     function != [o : String] -> [r : Boolean]
  27.       % r <- self != o
  28.     function length -> [ r : Integer ]
  29.     operation lowlevelsleazysetelement [Integer, Character]
  30.   end StringType
  31.   function getSignature -> [result : Signature]
  32.     result <- StringType
  33.   end getSignature
  34.   
  35.   function literal [rep : Any, offset : Integer, length : Integer]
  36.     -> [result : StringType]
  37.     result <- self.create[length]
  38.   end literal
  39.   function create [length : Integer] -> [result : StringType]
  40.     result <- immutable object aString
  41.       export getElement, getSlice, ||, asString, >, >=, <, <=, =, !=, length,
  42.         lowlevelsleazysetelement
  43.  
  44.       function getElement [index : Integer] -> [e : Character]
  45.     primitive 011 [e] <- [index]
  46.       end getElement
  47.       function getSlice [lb : Integer, length : Integer] -> [a : String]
  48.     primitive 111 [a] <- [lb, length]
  49.       end getSlice
  50.       function || [o : String] -> [r : String]
  51.     primitive 211 [r] <- [o]
  52.       end ||
  53.       function asString -> [r : String]
  54.     primitive 311 [r] <- []
  55.       end asString
  56.       function > [o : String] -> [r : Boolean]
  57.     primitive 411 [r] <- [o]
  58.       end >
  59.       function >= [o : String] -> [r : Boolean]
  60.     primitive 511 [r] <- [o]
  61.       end >=
  62.       function < [o : String] -> [r : Boolean]
  63.     primitive 611 [r] <- [o]
  64.       end <
  65.       function <= [o : String] -> [r : Boolean]
  66.     primitive 711 [r] <- [o]
  67.       end <=
  68.       function = [o : String] -> [r : Boolean]
  69.     primitive 811 [r] <- [o]
  70.       end =
  71.       function != [o : String] -> [r : Boolean]
  72.     primitive 911 [r] <- [o]
  73.       end !=
  74.       function length -> [ r : Integer ]
  75.     primitive 1011 [r] <- []
  76.       end length
  77.       operation lowlevelsleazysetelement [i : Integer, c : Character]
  78.     primitive 1111 [] <- [i, c]
  79.       end lowlevelsleazysetelement
  80.     end aString
  81.   end create
  82. end _StringObject
  83.