about summary refs log blame commit diff stats
path: root/html/f2c-2.mu
blob: ded2a6408bfbda3da4f26beccbf489072e9b61cf (plain) (tree) 
abe78a52 ^









1
2
3
4
5
6
7
8
9









                              
# c = (f-32) * 5/9
def fahrenheit-to-celsius [
  local-scope
  f:number <- next-ingredient
  tmp:number <- subtract f, 32
  tmp <- multiply tmp, 5
  c:number <- divide tmp, 9
  return c
]
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-08-09 18:30:30 +0000
' href='#n58'>58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 
                                                 

                                                             
                     

 
                                                                                   









                                                                           
                                                                                                         



















                                                                                        
                                                                              

                                                         
                       




                                                     


































                                                                                                       
fn initialize-table _self: (addr table), n: int {
  var self/esi: (addr table) <- copy _self
  var data-ah/eax: (addr handle array bind) <- get self, data
  populate data-ah, n
}

fn bind-int-in-table _self: (addr table), key: (addr handle array byte), val: int {
  var self/esi: (addr table) <- copy _self
  var data-ah/esi: (addr handle array bind) <- get self, data
  var _data/eax: (addr array bind) <- lookup *data-ah
  var data/esi: (addr array bind) <- copy _data
  var next-empty-slot-index/eax: (offset bind) <- next-empty-slot data, key
  var dest/eax: (addr bind) <- index data, next-empty-slot-index
  make-binding dest, key, val
}

# manual test: full array of binds
fn next-empty-slot _data: (addr array bind), key: (addr handle array byte) -> result/eax: (offset bind) {
  var data/esi: (addr array bind) <- copy _data
  var len/ecx: int <- length data
  var i/edx: int <- copy 0
  $next-empty-slot:loop: {
    result <- compute-offset data, i
    compare i, len
    break-if->=
    {
      var target/esi: (addr bind) <- index data, result
      var target2/esi: (addr handle array byte) <- get target, key
      var target3/eax: (addr array byte) <- lookup *target2
      compare target3, 0
      break-if-= $next-empty-slot:loop
      # TODO: how to indicate that key already exists? we don't want to permit rebinding
    }
    i <- increment
    loop
  }
}

fn make-binding _self: (addr bind), key: (addr handle array byte), _val: int {
  var self/esi: (addr bind) <- copy _self
  var dest/eax: (addr handle array byte) <- get self, key
  copy-object key, dest
  var dest2/eax: (addr value) <- get self, value
  var dest3/eax: (addr int) <- get dest2, scalar-data
  var val/ecx: int <- copy _val
  copy-to *dest3, val
}

# TODO: supporting non-integers
# That'll require radical surgery.
fn lookup-binding _self: (addr table), key: (addr array byte) -> result/eax: int, found?/ecx: boolean {
  var self/esi: (addr table) <- copy _self
  var data-ah/esi: (addr handle array bind) <- get self, data
  var _data/eax: (addr array bind) <- lookup *data-ah
  var data/esi: (addr array bind) <- copy _data
  var len/edx: int <- length data
  var i/ebx: int <- copy 0
  found? <- copy 0  # false
  $lookup-binding:loop: {
    compare i, len
    break-if->=
    {
      var offset/edx: (offset bind) <- compute-offset data, i
      var target-bind/esi: (addr bind) <- index data, offset
      var target2/edx: (addr handle array byte) <- get target-bind, key
      var target3/eax: (addr array byte) <- lookup *target2
      compare target3, 0
      break-if-= $lookup-binding:loop
      var is-match?/eax: boolean <- string-equal? target3, key
      compare is-match?, 0  # false
      break-if-=
      # found
      found? <- copy 1  # true
      var dest2/eax: (addr value) <- get target-bind, value
      var dest3/eax: (addr int) <- get dest2, scalar-data
      result <- copy *dest3
      break $lookup-binding:loop
    }
    i <- increment
    loop
  }
}
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-08-09 18:30:28 +0000