- power botton
- Nov 2, 2011
-
|
My design is divine intellect on top of poo poo, uncompably brilliant.
I have an india-friend of the family call center prison guard.
God says... C:\TAD\Text\DARWIN.TXT
sewhere published on this curious subject; but to show how singular the laws are which determine the reproduction of animals under confinement, I may mention that carnivorous animals, even from the tropics, breed in this country pretty freely under confinement, with the exception of the plantigrades or bear family, which seldom produce young; whereas, carnivorous birds, with the rarest exception, hardly ever lay fertile eggs. Many exotic plants have pollen utterly worthless, in the same condition a
(USER WAS PUT ON PROBATION FOR THIS POST)
|
#
¿
Feb 3, 2017 00:52
|
|
- Adbot
-
ADBOT LOVES YOU
|
|
#
¿
May 14, 2024 19:02
|
|
- power botton
- Nov 2, 2011
-
|
this is some sample code to access god as I just did in C. maybe you could port this to lisp?
code:
#help_index "God"
U8 *TimeStampCB(CDoc *,CDocEntry *,CTask *mem_task)
{
U8 *st=MAlloc(64,mem_task);
StrPrint(st,"%X",GetTSC>>GOD_BAD_BITS);
return st;
}
U8 *KbdMsTimeCB(CDoc *,CDocEntry *,CTask *mem_task)
{
U8 *st=MAlloc(64,mem_task);
StrPrint(st,"%X",KbdMsEvtTime>>GOD_BAD_BITS);
return st;
}
I64 PopUpTimerOk(U8 *header=NULL,U8 *footer=NULL)
{
I64 i;
CDocEntry *doc_e;
CDoc *doc=DocNew;
if (header) DocPrint(doc,"%s",header);
doc_e=DocPrint(doc,"\nTimer:$TX+TC,\" \"$");
doc_e->tag_cb=&TimeStampCB;
doc_e=DocPrint(doc,"\nLatch:$TX+TC,\" \"$");
doc_e->tag_cb=&KbdMsTimeCB;
DocPrint(doc,"\n$CM+CX,0,4$$BT,\"OKAY\",LE=1$\n");
if (footer) DocPrint(doc,"%s",footer);
i=PopUpMenu(doc);
DocDel(doc);
return i;
}
I64 GodPick(U8 *msg=NULL)
{//GOD_GOOD_BITS
U8 *st=MStrPrint("%s\n\nPress $GREEN$OKAY$FG$ to generate \n"
"a random num from a timer.\n",msg);
PopUpTimerOk(st,"\n\nThe Holy Spirit can puppet you.\n\n");
Free(st);
return KbdMsEvtTime>>GOD_BAD_BITS;
}
public U0 GodBitsIns(I64 num_bits,I64 n)
{//Insert bits into God bit fifo.
I64 i;
for (i=0;i<num_bits;i++) {
FifoU8Ins(god.fifo,n&1);
n>>=1;
}
}
public U0 GodHexIns(U8 *st)
{//Insert hex record into God bit fifo.
U8 buf[2];
if (st) {
buf[1]=0;
while (*buf=*st++)
if (Bt(char_bmp_hex_numeric,*buf))
GodBitsIns(4,rev_bits_table[Str2I64(buf,16)]>>4);
}
}
public I64 GodBits(I64 num_bits,U8 *msg=NULL)
{//Return N bits. If low on entropy pop-up okay.
U8 b;
I64 res=0;
while (num_bits) {
if (FifoU8Rem(god.fifo,&b)) {
res=res<<1+b;
num_bits--;
} else
GodBitsIns(GOD_GOOD_BITS,GodPick(msg));
}
return res;
}
public I64 GodInit(U8 *files_find_mask="/Adam/God/Vocab.DD*",U8 *fu_flags=NULL)
{//Read God's vocab file for picking words.
I64 i,ch,fuf_flags=0;
U8 *buf,*ptr,*ptr2;
CDirEntry *tmpde,*tmpde1;
ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),"+r+f+F+T+O");
ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),fu_flags);
if (fuf_flags&~FUG_FILES_FIND)
throw('FUF');
Free(god.word_file_mask);
god.word_file_mask=StrNew(files_find_mask);
god.word_fuf_flags=fuf_flags;
tmpde=tmpde1=FilesFind(files_find_mask,fuf_flags);
i=0;
while (tmpde) {
if (buf=ptr=FileRead(tmpde->full_name)) {
while (*ptr) {
while (*ptr && !Bt(char_bmp_word,*ptr))
ptr++;
if (*ptr) {
ptr2=ptr;
while (*ptr && Bt(char_bmp_word,*ptr))
ptr++;
i++;
}
}
Free(buf);
}
tmpde=tmpde->next;
}
Free(god.words);
god.num_words=i;
god.words=MAlloc(i*sizeof(U8 *));
tmpde=tmpde1;
i=0;
while (tmpde) {
if (buf=ptr=FileRead(tmpde->full_name)) {
while (*ptr) {
while (*ptr && !Bt(char_bmp_word,*ptr))
ptr++;
if (*ptr) {
ptr2=ptr;
while (*ptr && Bt(char_bmp_word,*ptr))
ptr++;
ch=*ptr;
*ptr=0;
god.words[i++]=StrNew(ptr2);
*ptr=ch;
}
}
Free(buf);
}
tmpde=tmpde->next;
}
DirTreeDel(tmpde1);
return god.num_words;
} GodInit;
public U8 *GodWordStr(I64 bits=17)
{//Make God pick a word. Holy Spirit Instructions
if (god.num_words)
return god.words[GodBits(bits)%god.num_words];
else
return NULL;
}
public U0 GodWord(I64 bits=17)
{//Make God pick a word. Holy Spirit Instructions
if (god.num_words)
"%s ",god.words[GodBits(bits)%god.num_words];
}
public U0 GodBiblePassage(I64 num_lines=20)
{//Make God pick a Bible passage. Holy Spirit Instructions
I64 start=GodBits(21)%(ST_BIBLE_LINES-(num_lines-1))+1;
U8 *verse=BibleLine2Verse(start);
"%s\n\n",verse;
Free(verse);
BookLines(,start,num_lines);
}
|
#
¿
Feb 3, 2017 00:54
|
|