Branch: Tag:

2002-09-21

2002-09-21 15:08:31 by Martin Stjernholm <mast@lysator.liu.se>

Replaced use of local:: to access hidden class variables with this_program::.

Rev: lib/modules/ADT.pmod/Table.pmod:1.24
Rev: lib/modules/Filesystem.pmod/Tar.pmod:1.16
Rev: lib/modules/Protocols.pmod/HTTP.pmod/Query.pike:1.43
Rev: lib/modules/Protocols.pmod/Line.pmod:1.18
Rev: lib/modules/Standards.pmod/URI.pike:1.13
Rev: lib/modules/Tools.pmod/AutoDoc.pmod/CExtractor.pmod:1.15
Rev: lib/modules/Tools.pmod/AutoDoc.pmod/module.pmod:1.7
Rev: src/modules/Yp/module.pmod.in:1.17

1:   // Table.pmod by Fredrik Noring, 1998 - // $Id: Table.pmod,v 1.23 2002/02/26 02:19:40 nilsson Exp $ + // $Id: Table.pmod,v 1.24 2002/09/21 15:08:31 mast Exp $      #pike __REAL_VERSION__   #define TABLE_ERR(msg) error("(Table) "+msg+"\n")
117:    {    return (equal(Array.map(fields, lower_case),    Array.map(indices(table), lower_case)) && -  equal(local::table, values(table))); +  equal(this_program::table, values(table)));    }       //! This method appends two tables. The table given as an argument will be
128:    if(!equal(Array.map(indices(table), lower_case),    Array.map(fields, lower_case)))    TABLE_ERR("Table fields are not equal."); -  return copy(local::table+values(table), fields, types); +  return copy(this_program::table+values(table), fields, types);    }       //! This method appends two tables. The table given as an argument will be
136:    //! rows in both tables must be equal.    object append_right(object table)    { -  if(sizeof(table) != sizeof(local::table)) +  if(sizeof(table) != sizeof(this_program::table))    TABLE_ERR("Table sizes are not equal.");    array v = values(table); -  for(int r = 0; r < sizeof(local::table); r++) -  v[r] = local::table[r] + v[r]; +  for(int r = 0; r < sizeof(this_program::table); r++) +  v[r] = this_program::table[r] + v[r];    return copy(v, fields+indices(table), types+table->all_types());    }   
399:    if(!stringp(s))    TABLE_ERR("Field name not string");    -  local::table = copy_value(table); +  this_program::table = copy_value(table);    fields = copy_value(column_names);    types = allocate(sizeof(column_names));