ckb-script 0.107.0

CKB component to run the type/lock scripts.
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

#include "ckb_syscalls.h"

#ifdef DEBUG
#include <stdio.h>
#else
#define ckb_debug(...)
#define sprintf(...)
#endif

void try_pause() {
    syscall(2178, 0, 0, 0, 0, 0, 0);
}

int current_cycles() {
    return syscall(2042, 0, 0, 0, 0, 0, 0);
}

int main() {
#ifdef DEBUG
    char message[2048];
#endif
    int prev = current_cycles();
    int curr;
    for (int i=0; i<4096; i++) {
        curr = current_cycles();
        sprintf(message, "prev = %d, curr = %d", prev, curr); ckb_debug(message);
        if (i > 16) {
            try_pause();
        }
        if (curr <= prev) {
            return -1;
        }
        prev = curr;
    }
    return CKB_SUCCESS;
}