GDB SYSTEM

alias gdb_get {
  unset %str | var %i 1 | while (%i <= $lines($1)) {
    if ($left($read($1,%i),1) == $chr(60)) {
      set %table $right($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1))) - 1))
      if (%table == $2) {
        var %o $calc(%i + 1) | while (%o <= $lines($1)) {
          if ($left($read($1,%o),1) != $chr(60)) {
            if ($gettok($read($1,%o),1,61) == $3) {
              set %str $gettok($gettok($read($1,%o),2,61),$4,28)
              break
          } }
          else { break }
    inc %o } } }
  inc %i }
  return %str
}
alias gdb_put {
  unset %antvalue | unset %table
  if (!$gdb_table_exists($1,$2)) { write $1 < $+ $2 $+ > | write $1 $chr(32) }
  if ($gdb_get($1,$2,$3,1)) {
    var %i 1 | while (%i <= $lines($1)) {
      if ($left($read($1,%i),1) == $chr(60)) {
        set %table $right($left($read($1,%i),$calc($pos($read($1,%i),>,1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),>,1) - 1))) - 1))
        if ($2 == %table) {
          var %o = $calc(%i + 1) | while (%o <= $lines($1)) {
            if ($left($read($1,%o),1) != $chr(60)) {
              if ($gettok($read($1,%o),1,61) == $3) {
                set %antvalue $gdb_get($1,$2,$3,1-) | write -dl $+ %o $1
            write -il $+ %o $1 $3 $+ = $+ %antvalue $+ $chr(28) $+ $4- | break } }
      inc %o } } }
      inc %i
  } }
  else {
    var %i 1 | while (%i <= $lines($1)) {
      if ($left($read($1,%i),1) == $chr(60)) {
        set %table $right($left($read($1,%i),$calc($pos($read($1,%i),>,1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),>,1) - 1))) - 1))
        if ($2 == %table) {
          write -il $+ $calc(%i + 1) $1 $3 $+ = $+ $4- | break
      } }
      inc %i
} } }
alias gdb_table_exists {
  set %tableexists $false | var %i 1 | while (%i <= $lines($1)) {
    if ($left($read($1,%i),1) == $chr(60)) {
      set %table $right($left($read($1,%i),$calc($pos($read($1,%i),>,1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),>,1) - 1))) - 1))
    if ($2 == %table) { set %tableexists $true | break } }
  inc %i }
  return %tableexists
}
alias gdb_create_table {
  if (!$gdb_table_exists($1,$2)) { write $1 < $+ $2 $+ > | write $1 $chr(32) }
}
alias gdb_delete_item {
  var %i 1 | while (%i <= $lines($1)) {
    if ($left($read($1,%i),1) == $chr(60)) {
      set %table $right($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1))) - 1))
      if (%table == $2) {
        var %o = $calc(%i + 1) | while (%o <= $lines($1)) {
          if ($left($read($1,%o),1) != $chr(60)) { if ($gettok($read($1,%o),1,61) == $3) {
          write -dl $+ %o $1 | break } }
          else { break }
          inc %o
    } } }
    inc %i
} }
alias gdb_delete_value {
  var %i 1 | while (%i <= $lines($1)) {
    set %table $right($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1))) - 1))
    if (%table  == $2) {
      var %o = $calc(%i + 1) | while (%o <= $lines($1)) {
        if ($left($read($1,%o),1) != $chr(60)) { if ($gettok($read($1,%o),1,61) == $3) {
            write -l $+ %o $1 $3 $+ = $+ $deltok($gdb_get($1,$2,$3,1-),$4,28)
        break } }
        else { break }
        inc %o
    } }
    inc %i
} }
alias gdb_replace_value {
  var %i 1 | while (%i <= $lines($1)) {
    set %table $right($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1))) - 1))
    if (%table  == $2) {
      var %o = $calc(%i + 1) | while (%o <= $lines($1)) {
        if ($left($read($1,%o),1) != $chr(60)) { if ($gettok($read($1,%o),1,61) == $3) {
            write -l $+ %o $1 $3 $+ = $+ $puttok($gdb_get($1,$2,$3,1-),$5-,$4,28)
        break } }
        else { break }
        inc %o
    } }
    inc %i
} }
alias gdb_delete_table {
  unset %db | var %i 1 | while (%i <= $lines($1)) {
    set %table $right($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1))) - 1))
    if (%table  == $2) {
      set %db %i | var %o = $calc(%i + 1) | while (%o <= $lines($1)) {
        if ($left($read($1,%o),1) != $chr(60)) { write -dl $+ %o $1 | dec %o }
        else { break }
        inc %o
    } }
  inc %i }
if (%db) { write -dl $+ %db $1 } }

alias gdb_tables {
  ;$gdb_tables(fichier.gdb)
  unset %table_list | var %i 1 | var %tables 0 | while (%i <= $lines($1)) {
    if ($left($read($1,%i),1) == $chr(60)) {
      inc %tables
      set %table_list $addtok(%table_list,$right($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1))) - 1)),32)
    }
    inc %i
  }
  return %tables %table_list
}

alias gdb_items {
  ;$gdb_items(fichier.gdb,table)
  unset %items | unset %item_list | var %i 1 | while (%i <= $lines($1)) {
    if ($left($read($1,%i),1) == $chr(60)) {
      set %table $right($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1)),$calc($len($left($read($1,%i),$calc($pos($read($1,%i),$chr(62),1) - 1))) - 1))
      if (%table == $2) {
        var %o $calc(%i + 1) | var %items 0 | unset %item_list | while (%o <= $lines($1)) { if ($left($read($1,%o),1)) {
            if ($left($read($1,%o),1) != $chr(60)) { inc %items | set %item_list $addtok(%item_list,$gettok($read($1,%o),1,61),32) }
          else { break } }
    inc %o } } }
  inc %i }
return %items %item_list }