Pike-devel November 2020

pike-devel@lists.lysator.liu.se

3 participants
12 discussions

pike_frame->fun = FUNCTION_BUILTIN
by Arne Goedeke 16 Apr '26

16 Apr '26

In INIT, EXIT and some gc callbacks the fun in Pike_fp is set to FUNCTION_BUILTIN. there are some places in the code (e.g. ADT.List()->_get_iterator) where ->fun is used in INHERIT_FROM_INT et al, which segfaults (except with PIKE_DEBUG). I am not sure where to fix this. Should the *_FROM_INT macros check for FUNCTION_BUILTIN or is this better to be handled in the individual INIT/EXIT methods ? does anyone object to making ADT.Stack and ADT.Queue inherit ADT.List? arne

3 2

managing comport settings in linux
by Henrik Grubbstr�m (Lysator) ＠ Pike (-) developers forum 09 Apr '26

09 Apr '26

Not a good idea; the design philosophy of Pike is that Pike-level code should never be able to cause memory corruption at C-level. With ioctls there's no way to know what data a specific ioctl wants without reading the documentation for that specific ioctl for that specific OS. ioctls and fcntls are a way for device handlers to hook in APIs that aren't standard across all filedescriptors. / Henrik Grubbström (Lysator) Previous text: >2004-08-17 13:32: >Subject: managing comport settings in linux >-------------------------------------------------------------------- >What would be nice, is a way to define ioctl methods in >Pike. Perhaps something like > >object i = Stdio.IOCTL(4242 /* request_id */ ); >i->add_int_parameter(); >i->add_string_parameter(); >i->set_return_type(STRING); > >string ret = i(fd, 1, "somestring"); > > >That ought to be possible, or..? > > / Marcus Agehall (PacketFront) >

4 3

Re: Playing music using pike and SDL.
by Martin Nilsson (lvl 60) ＠ Pike (-) developers forum 13 Mar '26

13 Mar '26

Were you not able to get any C code to play through SDL either? Does your SDL library have a mixer compiled in it (I think it is optional)?

5 4

full MySQL 4.x support. or pike roadmap
by thomas.gusenleitner＠com-bet.com ＠ Pike developers forum 01 Mar '26

01 Mar '26

HI to all! mysql 4.x support works only with a mysql CFLAGS=-DUSE_OLD_FUNCTIONS is this correct ? are there plans to make a full 4.x support ? bye, thomas

4 4

Pike Meet-up 2018-Q1
by Henrik Grubbstr�m (Lysator) ＠ Pike (-) developers forum 20 Oct '21

20 Oct '21

Hi. At Pike Conference 2017 it was decided that we ought to hold a more informal meeting in Linköping ~ once every quarter. As the three month mark from the conference is coming up soon, it seems time to announce the first such meeting for 2018: Pike Meet-up 2018-Q1 Date: 2018-02-03 (Sat) Time: 10:00 - afternoon/evening Place: Roxen IS AB S:t Larsgatan 22A Linköping Welcome! /grubba

2 13

8.0 test suite failures: fork() + time on macOS 10.12+
by H William Welliver 05 Jan '21

05 Jan '21

2 2

SSL hang during handshake
by H William Welliver 25 Nov '20

25 Nov '20

Hi all- I’ve been doing some experiments with SNI and have noticed a potential problem: If SSL.Context->find_cert_domain() doesn’t return a matching certificate, the server handshake doesn’t complete. This causes the client to hang indefinitely. SSL.Context->add_cert() supports (but does not require) a fallback certificate to be specified. Because the server does not control the value it receives, an improperly configured SSL Context could cause a denial of service. I propose to change SSL.ServerConnection so that an alert message is sent if a certificate cannot be chosen. Does that seem like a reasonable approach? If I don’t hear any objections in the next day or so, I’ll add this to master and 8.0 (where the problem definitely exists). Bill

3 3

8.0 fixes for macOS/illumos
by H William Welliver 25 Nov '20

25 Nov '20

I think I’ve fixed the hang after fork() problem I reported earlier by having the mach clock service reinitialized after fork(). I also discovered that fs_event callbacks weren’t working on kqueue() based backends. I think I’ve fixed this as well, however while the _Stdio testsuite passes on its own, the kqueue tests fail when run in the scope of a full make verify. I’m not sure what to make of that, but I think it’s an edge case. I don’t think it’s related to fork()ing, as the poll device gets reopened after fork. If all goes well with pike farm, I’ll cherry pick these changes to master. I also back ported the fix for CritBit grubba mentioned a few days ago, and that seems to have fixed the problem on Solaris/illumos with old gmp. Bill

1 0

8.0 test suite failures: Critbit on illumos
by H William Welliver 21 Nov '20

21 Nov '20

I’m running builds of 8.0 to make sure we don’t have any major test failures, and I’ve run into a few problems so far. I’ll put them in separate emails so they are more manageable. If anyone can offer any assistance, that would be most appreciated. I can supply any info needed, up to getting you a logon to the systems in question. Next up are a series of Critbit failures on a current version of illumos: uname -a SunOS centaur 5.11 joyent_20201023T231824Z i86pc i386 i86pc Solaris ... Doing tests in post_modules/CritBit/testsuite (856 tests, pid 72180) /home/hww3/Pike-v8.0.1094/src/post_modules/CritBit/testsuite.in:203: Test 725 (shift 2) (CRNL) failed. 1: mixed a() { return GET_TREE(); } 2: mixed b() { return GET_TREE()->get_subtree(); } 3: o->a(): THE_TREE o->b(): ADT._CritBit.BigNumTree() /home/hww3/Pike-v8.0.1094/src/post_modules/CritBit/testsuite.in:203: Test 727 (shift 1) failed. 1: mixed a() { return GET_TREE(); } 2: mixed b() { return GET_TREE()->copy(); } 3: o->a(): THE_TREE o->b(): ADT._CritBit.BigNumTree() /home/hww3/Pike-v8.0.1094/src/post_modules/CritBit/testsuite.in:203: Test 729 (shift 0) (CRNL) failed. 1: mixed a() { return ADT.CritBit.BigNumTree()+GET_TREE(); } 2: mixed b() { return GET_TREE(); } 3: o->a(): ADT._CritBit.BigNumTree() o->b(): THE_TREE /home/hww3/Pike-v8.0.1094/src/post_modules/CritBit/testsuite.in:203: Test 731 (shift 2) (CRNL) failed. 1: mixed a() { return GET_TREE()+GET_TREE(); } 2: mixed b() { return GET_TREE(); } 3: o->a(): ADT._CritBit.BigNumTree() o->b(): THE_TREE /home/hww3/Pike-v8.0.1094/src/post_modules/CritBit/testsuite.in:203: Test 733 (shift 1) failed. 1: mixed a() { return GET_TREE()+ADT.CritBit.BigNumTree(); } 2: mixed b() { return GET_TREE(); } 3: o->a(): ADT._CritBit.BigNumTree() o->b(): THE_TREE /home/hww3/Pike-v8.0.1094/src/post_modules/CritBit/testsuite.in:203: Test 737 (shift 2) (CRNL) failed. 1: mixed a() { return GET_TREE()-ADT.CritBit.BigNumTree(); } 2: mixed b() { return GET_TREE(); } 3: o->a(): ADT._CritBit.BigNumTree() o->b(): THE_TREE /home/hww3/Pike-v8.0.1094/src/post_modules/CritBit/testsuite.in:203: Test 739 (shift 1) failed: Value mismatch: (3919933115663279717976 : 212) vs (3919933115663279717976 : 0) post_modules/CritBit/testsuite:10: testsuite()->a() test-install/pike/8.0.1094/lib/modules/Tools.pmod/Standalone.pmod/test_pike.pike:1109: /main()->main(4,({"/home/hww3/Pike-v8.0.1094/build/sunos-5.11-i86pc/test-install/pike/8.0.1094/lib/modules/Tools.pmod/Standalone.pmod/test_pike.pike",0,0,"post_modules/CritBit/testsuite"})) 1: mixed a() { 2: mapping m = GET_SAMPLE(); 3: object tree = GET_TREE(); 4: function sortfun = GET_SORTFUN(); 5: array a = GET_SORTED_A(); 6: 7: 8: foreach (GET_SAMPLE(); mixed a; mixed b) { 9: if (b != GET_TREE()[a]) 10: error("Value mismatch: (%O : %O) vs (%O : %O)\n", a, b, a, GET_TREE()[a]); 11: } 12: 13: return 1; 14: ; } 15: mixed b() { return 1; } 16: /home/hww3/Pike-v8.0.1094/src/post_modules/CritBit/testsuite.in:203: Test 742 (shift 1) (CRNL) failed: next(27670116110564327422) == 183517433417299474231880 should be 46116860184273879036 post_modules/CritBit/testsuite:15: testsuite()->a() test-install/pike/8.0.1094/lib/modules/Tools.pmod/Standalone.pmod/test_pike.pike:1109: /main()->main(4,({"/home/hww3/Pike-v8.0.1094/build/sunos-5.11-i86pc/test-install/pike/8.0.1094/lib/modules/Tools.pmod/Standalone.pmod/test_pike.pike",0,0,"post_modules/CritBit/testsuite"})) 1: mixed a() { 2: mapping m = GET_SAMPLE(); 3: object tree = GET_TREE(); 4: function sortfun = GET_SORTFUN(); 5: array a = GET_SORTED_A(); 6: 7: 8: tree = tree->copy(); 9: int i; 10: 11: for (i = 1; i < sizeof(a); i += 2) m_delete(tree, a[i]); 12: 13: for (i = 1; i+1 < sizeof(a); i += 2) { 14: if (tree->next(a[i]) != a[i+1]) 15: error("next(%O) == %O should be %O\n", a[i], tree->next(a[i]), a[i+1]); 16: if (tree->previous(a[i]) != a[i-1]) 17: error("previous(%O) == %O should be %O\n", a[i], tree->previous(a[i]), a[i-1]); 18: } 19: 20: return 1; 21: ; } 22: mixed b() { return 1; } 23: /home/hww3/Pike-v8.0.1094/src/post_modules/CritBit/testsuite.in:203: Test 743 (shift 2) (CRNL) failed: Key mismatch in range iterate(): (0 : 138350580552821637106) vs (0 : 9223372036854775808) post_modules/CritBit/testsuite:11: testsuite()->a() test-install/pike/8.0.1094/lib/modules/Tools.pmod/Standalone.pmod/test_pike.pike:1109: /main()->main(4,({"/home/hww3/Pike-v8.0.1094/build/sunos-5.11-i86pc/test-install/pike/8.0.1094/lib/modules/Tools.pmod/Standalone.pmod/test_pike.pike",0,0,"post_modules/CritBit/testsuite"})) 1: mixed a() { 2: mapping m = GET_SAMPLE(); 3: object tree = GET_TREE(); 4: function sortfun = GET_SORTFUN(); 5: array a = GET_SORTED_A(); 6: 7: 8: mixed t = GET_TREE()->first(); 9: foreach (GET_SORTED_A(); int i; mixed key) { 10: if (t != key) 11: error("Key mismatch in range iterate(): (%O : %O) vs (%O : %O)\n", i, t, i, key); 12: t = GET_TREE()->next(t); 13: if (GET_SAMPLE()[key] != GET_TREE()[key]) 14: error("Value mismatch in order: (%O : %O) vs (%O : %O)\n", key, GET_SAMPLE()[key], key, GET_TREE()[key]); 15: mixed nth = GET_TREE()->nth(i)[0]; 16: if (nth != key) 17: error("Value mismatch in nth(): (%O : %O) vs (%O : %O)\n", i, key, i, nth); 18: } 19: 20: 21: return 1; 22: ; } 23: mixed b() { return 1; } 24: /home/hww3/Pike-v8.0.1094/src/post_modules/CritBit/testsuite.in:203: Test 744 (shift 0) failed: Key mismatch in range iterate(): (0 : 9223372036854775808) vs (0 : 138350580552821637106) post_modules/CritBit/testsuite:12: testsuite()->test_range_operator(1) post_modules/CritBit/testsuite:22: testsuite()->a() test-install/pike/8.0.1094/lib/modules/Tools.pmod/Standalone.pmod/test_pike.pike:1109: /main()->main(4,({"/home/hww3/Pike-v8.0.1094/build/sunos-5.11-i86pc/test-install/pike/8.0.1094/lib/modules/Tools.pmod/Standalone.pmod/test_pike.pike",0,0,"post_modules/CritBit/testsuite"})) 1: mixed a() { 2: mapping m = GET_SAMPLE(); 3: object tree = GET_TREE(); 4: function sortfun = GET_SORTFUN(); 5: array a = GET_SORTED_A(); 6: 7: 8: void test_range_operator(int step) { 9: int i = (step < 0) ? sizeof(tree)-1 : 0; 10: foreach (tree->_get_iterator(step); mixed key; mixed value) { 11: if (GET_SORTED_A()[i] != key) 12: error("Key mismatch in range iterate(): (%O : %O) vs (%O : %O)\n", i, GET_SORTED_A()[i], i, key); 13: if (GET_SAMPLE()[GET_SORTED_A()[i] ] != value) 14: error("Value mismatch in range iterate(): (%O : %O) vs (%O : %O)\n", i, GET_SAMPLE()[GET_SORTED_A()[i] ], i, value); 15: i+=step; 16: } 17: 18: if (step > 0) test_range_operator(-step); 19: }; 20: 21: foreach (enumerate(40, 13, 1); ; int n) { 22: if (n) test_range_operator(n); 23: } 24: 25: return 1; 26: ; } 27: mixed b() { return 1; } 28: /home/hww3/Pike-v8.0.1094/src/post_modules/CritBit/testsuite.in:203: Test 745 (shift 1) failed: Key mismatch in range iterate(): (6940 : 128029627243581142976968) vs (6940 : 138350580552821637106) post_modules/CritBit/testsuite:15: testsuite()->test_range_operator(6940,8743,1597) post_modules/CritBit/testsuite:42: testsuite()->a() test-install/pike/8.0.1094/lib/modules/Tools.pmod/Standalone.pmod/test_pike.pike:1109: /main()->main(4,({"/home/hww3/Pike-v8.0.1094/build/sunos-5.11-i86pc/test-install/pike/8.0.1094/lib/modules/Tools.pmod/Standalone.pmod/test_pike.pike",0,0,"post_modules/CritBit/testsuite"})) 1: mixed a() { 2: mapping m = GET_SAMPLE(); 3: object tree = GET_TREE(); 4: function sortfun = GET_SORTFUN(); 5: array a = GET_SORTED_A(); 6: 7: 8: void test_range_operator(int start, int stop, int step) { 9: int i = start; 10: 11: if (step == 0) return; 12: 13: foreach (tree->_get_iterator(step, a[start], a[stop]); mixed key; mixed value) { 14: if (GET_SORTED_A()[i] != key) 15: error("Key mismatch in range iterate(): (%O : %O) vs (%O : %O)\n", i, GET_SORTED_A()[i], i, key); 16: if (GET_SAMPLE()[GET_SORTED_A()[i] ] != value) 17: error("Value mismatch in range iterate(): (%O : %O) vs (%O : %O)\n", i, GET_SAMPLE()[GET_SORTED_A()[i] ], i, value); 18: i+=step; 19: } 20: 21: #if constant(ADT.CritBit.Range) 22: object r = ADT.CritBit.Range(a[start], a[stop]); 23: object rs = ADT.CritBit.RangeSet(object_program(tree)); 24: rs[r] = 1; 25: foreach (a;; mixed key) { 26: if (equal(GET_SORTFUN()(({ key, r.b, r.a}))[1], key)) { 27: if (undefinedp(rs[key])) { 28: error("RangeSet error. %O not within [%O,%O]\n", key, r.a, r.b); 29: } 30: } else { 31: if (!undefinedp(rs[key])) { 32: error("RangeSet error. %O should not be within [%O,%O]\next: %O\n", key, r.a, r.b, rs->tree->next(key)); 33: } 34: } 35: } 36: #endif 37: }; 38: 39: for (int i = 0; i < 100; i++) { 40: int start = random(sizeof(a)); 41: int stop = start + random(sizeof(a)-start); 42: test_range_operator(start, stop, random(stop-start)); 43: } 44: 45: return 1; 46: ; } 47: mixed b() { return 1; } 48: /home/hww3/Pike-v8.0.1094/src/post_modules/CritBit/testsuite.in:203: Test 770 (shift 2) failed: Key mismatch in random delete. 44318302637087197752636 : 2402 vs 0 post_modules/CritBit/testsuite:10: testsuite()->a() test-install/pike/8.0.1094/lib/modules/Tools.pmod/Standalone.pmod/test_pike.pike:1109: /main()->main(4,({"/home/hww3/Pike-v8.0.1094/build/sunos-5.11-i86pc/test-install/pike/8.0.1094/lib/modules/Tools.pmod/Standalone.pmod/test_pike.pike",0,0,"post_modules/CritBit/testsuite"})) 1: mixed a() { 2: mapping m = GET_SAMPLE(); 3: object tree = GET_TREE(); 4: function sortfun = GET_SORTFUN(); 5: array a = GET_SORTED_A(); 6: 7: 8: foreach (tree; mixed key; mixed val) { 9: if (val != m[key]) 10: error("Key mismatch in random delete. %O : %O vs %O\n", key, val, m[key]); 11: array t = random(tree); 12: m_delete(tree, t[0]); 13: m_delete(m, t[0]); 14: if (!zero_type(tree[t[0] ])) error("m_delete failed in random delete (key: %O)\n", t[0]); 15: } 16: if (sizeof(m) != sizeof(tree)) { 17: error("Size mismatch after random delete. %O vs %O\n", sizeof(m), sizeof(tree)); 18: } 19: 20: return 1; 21: ; } 22: mixed b() { return 1; } 23: Subresult: 856 tests, 12 failed, 0 skipped

3 2

Pikefarm client
by Bertrand Lupart 18 Nov '20

18 Nov '20

Hello, What is the correct client for participating to the pikefarm ? The one listed on the website [1] seems outdated. I guess I should start with the one on GitHub ? [2] Thank you, [1] https://pike.lysator.liu.se/development/pikefarm/ <https://pike.lysator.liu.se/development/pikefarm/> [2] https://github.com/pikelang/xenofarm <https://github.com/pikelang/xenofarm> — Bertrand

1 1

2026

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

2002

Pike-devel November 2020