gmane.comp.lang.pike.user

Abuse of thread kill() to achieve setjmp/longjmp

Chris Angelico — 2012-05-23T08:05:54

In playing around with some aspects of STONITH protection and
forbidden reconnects, I've set up a situation in which I conditionally
want to abort out of a pgsql reconnect hook back to almost the
top-level of the program, and then restart from there. My current
technique seems somewhat insane, so I'd appreciate any advice!

Sql.Sql db;
int main(int argc,array(string) argv)
{
db=Sql.Sql("pgsql://blahblah");
db->master_sql->set_notify_callback("_reconnect",recon,1);
while (Thread.Thread(doit)->wait()!=5);
return 0;
}
int doit()
{
//do stuff, lots of SQL queries
write("Done!\n");
return 5;
}
void recon(int pid,string cond,string extra)
{
/* if (whatever condition) */ this_thread()->kill();
}

If the thread is killed, wait() returns 0; if it ends normally, it
returns the thread's nonzero return value. By killing the thread and
starting over, I effectively execute a longjmp straight out of recon()
and back to the main routine. (I can't throw an exception, which is
the obvious thing to do here, because the

Stackoverflow question: how is pike different from C?

Martin Bähr — 2012-05-22T04:24:49

hi,

maybe some of you who are more knowlegeable about C can help answer this
question:

http://stackoverflow.com/questions/10307319/is-there-a-guide-to-ch-cint-or-pike-for-c-c-programmers

greetings, martin.

read callbacks

Lance Dillon — 2012-05-18T19:48:59

So I'm trying to implement a read_callback, and it is not doing quite what I want.

I have a class Connection, that creates a Transport object, that itself creates a Stdio.File object.  I pass a callback function like this, mostly:

class Connection {
    object transport;

    void create() {
        predef::write("before transport\n");
        transport=.Transport(read_cb);
        predef::write("after transport\n");
    }

    void read_cb(mixed in_str) {
        predef::write("Connection: in_str==%O\n",in_str);
    }
}


class Transport {
    function in_cb;
    Stdio.File con;

    void create(function in_read_cb) {
        in_cb=in_read_cb;
        con=Stdio.File();
        write("before set_read_callback\n");
        con->set_read_callback(read_cb);
        write("after set_read_callback\n");
        con->open_socket();
        con->connect(/* specific host and port */);
        write("before wri

multiple return types?

Lance Dillon — 2012-05-17T14:27:10

I have a class method that returns either an object (.Frame) or a mapping.  I have the function defined as such:

.Frame|mapping read_frame();

but when I try to define a variable:

.Frame|mapping start_frame;

I get the following error:

Connection.pike:45:syntax error, unexpected TOK_MAPPING_ID

However, if I change it to object instead of .Frame:

object|mapping start_frame;

It works fine.

Is this an error somewhere?  Or is that a syntax error on my part?

Crypto.MD5

Lance Dillon — 2012-05-15T15:12:15

I want to generate a hash exactly as md5sum would.  What would be the best way of doing that?  The docs don't seem to be that helpful.

http://pike.ida.liu.se/generated/manual/modref/ex/predef_3A_3A/Crypto/MD5.html

doesn't really say how to use it, other than it inherits from MD5_Info (Nettle.MD5_Info) and Hash (.Hash).

Nettle.MD5_Info just says it is an internal mixin class.
.Hash just says it is an abstract class, with only `()() listed, but it inherits Nettle.HashInfo
Nettle.HashInfo has block_size(), digest_size(), hash(), and name().

md5sum on a certain file game me:
2fcb2fbe1ff9e1dd6cfa10429879008

Crypto.MD5.hash() gave me "/\313/\276\37\371\341\335l\372\20B\230y\0\213"

I'm assuming there is some sort of transformation after Crypto.MD5.hash() to get the same result as md5sum, I just don't know what that is.

Actually, with a little experimenting, and looking at rfc1321 (http://www.ietf.org/rfc/rfc1321.txt), page 20, I came up with the following code.

string md5sum(string str) {
    string ha

Architecture mismatch between Pike and ODBC driver

Pontus Östlund — 2012-04-19T12:39:43

We're running Pike on a Windows 64-bit server and when I try to connect to
an ODBC resource I get the following error:

-1:IM014:[Microsoft][ODBC Driver Manager] The specified DSN contains an
architecture mismatch between the Driver and Application

I guess is due to the fact that Pike runs in 32-bit mode and the
ODBC-driver in 64-bit mode?
How do I solve it? Any ideas?

# Pontus

SQLite and pike strings in bindings

Marc Dirix — 2012-04-18T16:34:15

Is there a reason that pike strings are converted to "blob" when used in 
bindings for an SQLite query?
It seems k->val.u.string->size_shift always resolves to being 0, 
although I'm not sure where size_shift stands for, I've deduced from 
modules/_Roxen_roxen.c, line 318, that it should stand for 8-bit 
strings, correct?

But if it's an 8-bit string, why doesn't it get converted to TEXT?
What does size_shift=0,1 or 2 mean?

 > object db = Sql.Sql("sqlite://test.db");
 > db->query("create table abc (bla TEXT);");
(1) Result: 0
 > db->query("insert into abc (bla) values (:bar);",([":bar":"bar"]));
(2) Result: 0
 > db->query("select typeof(bla) from abc;");
(3) Result: ({ /* 1 element */
                 ([ /* 1 element */
                   "typeof(bla)": "blob"
                 ])
             })

I've found in sqlite.cmod:

       case T_STRING:
       {
         struct pike_string *s = k->val.u.string;
         switch(s->size_shift) {
         case 0:
           ERR( sqlite3_bind_blob(stmt, idx, s->str, s-

newbie questions - "finally", "amqp"

Oleksii Prudkyi — 2012-04-16T22:05:31

Hello,

trying to evaluate Pike and just interesting :

  - what is best way to emulate finally (i.e. try/finally) ?
as for me using of catch\throw will break a backtrace
and gc may delay destruction of object ...

- is here exists any amqp module for pike (compatible with rabbitmq) ?



Best regards,
Oleksii Prudkyi

Online docs of Pike

Stephen R. van den Berg — 2012-04-14T13:33:11

Is there a reason why the online docs of Pike are still of 7.8 release 116,
2008-12-31 ?
Could we please update this to a more recent Pike version?
Possibly even have a latest 7.8 and a latest 7.9 tree?

xml parse

Lance Dillon — 2012-04-11T18:07:17

I need to parse some xml into just an ordinary tree/mapping, like this:

<?xml version="1.0" encoding="UTF-8"?>
<reply>
<seq>0</seq>
<status>OK</ststus>
<contents><token>askldjfklasdfjlasdf</token>
<server_uuid>>some uuid data</server_uuid>
<plugin_set>201204110537</plugin_set>
<loaded_plugin_set>201204110537</loaded_plugin_set>
<scanner_boottime>1331388234</scanner_boottime>
<msp>FALSE</msp>
<user>
<name>ldillon</name>
<admin>TRUE</admin>
</user></contents>
</reply>

Into something like:
([ "reply":
    ([ "seq": 0,
        "status": "OK",
        "contents":
            ([ "token": "asldkfjlasdjl",
                "server_uuid": "some uuid data",
                "plugin_set": "201204110537",
                "loaded_plugin_set": "201204110537",
                "scanner_boottime": 1331388234, // or Calendar object
                "msp": "FALSE",    // or Val object
                "user":

calendar

Lance Dillon — 2012-04-10T20:12:18

Is there a good tutorial or document on using Calendar?  I can get a Calendar object with Calendar.Second(), or Calendar.dwim_day("1 jan 1970") or something like that, but I need to get the current time_t, and so far none of the format_*() methods of Calendar.Second are giving me what I need.

Thanks

big float and float parts

Lance Dillon — 2012-04-10T14:38:51

Several parts to this question.  I need to be able to get the parts of the float, the exponent, sign, and actual digits.  Is there an easy way (function, module, whatever) to do this, or will I have to write something to pull that out?


Also, is there a way to get float to use the Gmp mpf type, make it a big float, for greater precision?

When I tested, it didn't seem to use it:

(67) Result: 9.12384761289347e+21
(68) Result: 9.12384761289347e+21

Thanks

INT_MAX?

Lance Dillon — 2012-04-10T13:54:31

I'm writing a new Procotol module, but the protocol distinguishes between int and long (4 bytes and 8 bytes).  Is there an easy way to determine whether an int value (intp()==true) will fit in 4 bytes or 8?  Or if not, maybe INT_MAX is defined (possibly even LONG_MAX) and determine whether it is a native or bigint?

Thanks

autodoc fail

郭雪松 — 2012-04-10T07:22:40

Looks only happens when there is a class that has a setter or getter.
 
class Func(string daemon,string func,mixed ... args0){
        string `cmd(){
                werror("WARNING: Func.cmd deprecated.\n");
                return daemon;
        }
        string `cmd=(string s){
                werror("WARNING: Func.cmd deprecated.\n");
                return daemon=s;
        }
}
//! Return main thread.
Thread.Thread main_thread(){ }

[peterpan< at >brain brain5]$pike -x extract_autodoc run2.pike
Extracting file "run2.pike"...
PikeParser: expected ";", got "" (run2.pike:16)
/home/peterpan/pike/7.8.352/lib/modules/Tools.pmod/AutoDoc.pmod/PikeParser.pike:105: Tools.AutoDoc.PikeParser()->parseError("expected \";\", got \"\"")
/home/peterpan/pike/7.8.352/lib/modules/Tools.pmod/AutoDoc.pmod/PikeParser.pike:179: Tools.AutoDoc.PikeParser()->eat(";")
/home/peterpan/pike/7.8.352/lib/modules/Tools.pmod/AutoDoc.pmod/PikeExtractor.pmod:234: Tools.AutoDoc.PikeExtractor.Extractor()->parseAdjacentDecls(Tools.AutoDoc.PikePar

streaming_query() vs. big_query()

Stephen R. van den Berg — 2012-03-30T06:05:35

Looking over the Sql.Sql members once more, I notice streaming_query() again.
Can someone remind me why streaming_query() was needed even if we have
big_query()?
Was it because some/many applications assume that the database object
could be used to start a new query even though the result object was still
in use processing the results of the last query?

Parsing CSV with header row

Chris Angelico — 2012-03-14T03:22:01

I don't know if there's an easier way, but the one-liner of this code
tickled my weirdness sense :)

This function reads in a CSV file with a header row, and returns an
array of mappings of header to data.

array(mapping(string:string)) parsecsv(string filename)
{
Stdio.FILE f=Stdio.FILE(filename);
return Parser.Tabular(f,sprintf("[Tabular description
begin]\ncsv\n%{:%s[,]\n%}[Tabular description
end]",array_sscanf(f->gets(),"%{%*[\"]%s%*[\"]%*[,]%}")[0]))->fetch()->csv;
}

Input file:

"Asdf","Qwer","Zxcv"
"Hello","World","!"
1234,2345,3456
This,has,"a,comma"

Result:

({ /* 3 elements */
    ([ /* 3 elements */
      "Asdf": "Hello",
      "Qwer": "World",
      "Zxcv": "!"
    ]),
    ([ /* 3 elements */
      "Asdf": "1234",
      "Qwer": "2345",
      "Zxcv": "3456"
    ]),
    ([ /* 3 elements */
      "Asdf": "This",
      "Qwer": "has",
      "Zxcv": "a,comma"
    ])
})

Is it worth posting an example like this somewhere on the Parser.Tabular docs?

Chris Angelico

Image.ANY - SVG support

larcky — 2012-03-05T17:44:58

Hi
Is it possible to add SVG support to the Image.ANY module please?
Attached patch works for me at least until someone comes along with another
XML-based image format.  Thanks.
http://pike.1058338.n5.nabble.com/file/n5538267/mydiff mydiff 

--
View this message in context: http://pike.1058338.n5.nabble.com/Image-ANY-SVG-support-tp5538267p5538267.html
Sent from the Pike - User mailing list archive at Nabble.com.

MIME.pmod handles MSIE bug but Protocols.pmod/HTTP.pmod/Server.pmod/Request.pike never used it

郭雪松 — 2012-02-24T04:35:53

MIME.pmod says:
      // Check for MSIE:
      //
      // MSIE insists on sending the full local path to the file as
      // the "filename" parameter, but forgets to quote the backslashes.
      //
      // Heuristic:
      //   * If there are forward slashes, or properly quoted backslashes,
      //     everything's alright.
      //   * Note that UNC-paths (\\host\dir\file) look like they have
      //     a properly quoted backslash as the first character, so
      //     we disregard the first character.
      if ((param == "filename") && guess && entry2 &&
          !has_value(val, "/") && !has_value(val[1..], "\\") &&
          (sizeof(entry2) >= 3) && (entry2[1] == '=') &&
          (lower_case(entry2[0]) == param)) {
        val = map(entry2[2..], token_to_string) * "";
        if (has_value(val, "\\"))
          params[param] = val;
      }

Protocols.pmod/HTTP.pmod/Server.pmod/Request.pike called MIME.Message:
    MIME.Message messg = MIME.Message(body_raw, request_headers);

Protocols.pmod/HTTP

sizeof(string) == -1

Pontus Östlund — 2012-02-15T10:55:43

I stumbled upon a strange thing today which drove me nuts. I query an
Oracle database and get a recordset with mappings with two indices:

  NORMALTID which is a date
  VAERDE which is a float value as a string

When I was iterating over the recordset the loop got stuck for a while at
the last index and the program terminated (without any notice). So I traced
the output and saw that VAERDE in the last index was "" (an empty string).
So I added to the loop:

  if (row->VAERDE == "")
    break;

Nothing happened. So I tried

  if (!sizeof(row->VAERDE))
    break;

Nothing happened. So I traced the size of row->VAERDE and to my surprise it
returned -1:

  werror("%d\n", sizeof(row->VAERDE)) >> -1

So with

  if (row->VAERDE == -1)
    break;

the program continues and finish ok.

But why on earth does sizeof return -1 for a (seemingly) empty string?

# Pontus

module Search

郭雪松 — 2012-02-09T03:17:09

Hi,
 
Is there any example about howto use the module Search?

Guo Xuesong

Warnings from Parser.LR.GrammarParser

郭雪松 — 2012-02-08T05:30:46

Should I ignore these warnings?
 
Warning: repair: Repaired Shift-Reduce conflict on "RETURN"
Warning: repair: All conflicts removed!
Warning: repair: Repaired Reduce-Reduce conflict on "-"
Warning: repair: Repaired Reduce-Reduce conflict on "]"
Warning: repair: Repaired Reduce-Reduce conflict on ")"
Warning: repair: Repaired Reduce-Reduce conflict on ":"
Warning: repair: Repaired Reduce-Reduce conflict on "*"
Warning: repair: Repaired Reduce-Reduce conflict on "="
Warning: repair: Repaired Reduce-Reduce conflict on "!"
Warning: repair: Repaired Reduce-Reduce conflict on "token"
Warning: repair: All conflicts removed!
Warning: repair: Repaired Shift-Reduce-Reduce conflict on "-"
Warning: repair: Repaired Reduce-Reduce conflict on "]"
Warning: repair: Repaired Reduce-Reduce conflict on ")"
Warning: repair: Repaired Reduce-Reduce conflict on ":"
Warning: repair: Repaired Shift-Reduce-Reduce conflict on "*"
Warning: repair: Repaired Reduce-Reduce conflict on "="
Warning: repair: Repaired Reduce-Reduce conflict