TheGameCreators - CodeBase - W.U. Header / Audio Controller

Category: Input / Output

Version: 1.1

Information

Uploaded: 23rd Nov 2004 06:08

Modified: 23rd Nov 2004 06:47

Author: Anonymous Coder

Summary

A BOINC-SETI ACCESSORY which overwrites the XML WU header to a compatible format so the old "wu2wav.exe" program (by Jan Knutar) can recognize it. And it does all the WU's found in the BOINC SETI project folder. The program also recognizes directory paths in a home network via "\<name of computer><shared BOINC folder>...etc." - HAVE FUN!

Full Description

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem * Title  : BOINC W.U. HEADER / AUDIO CONTROLLER V.1.1

Rem * Author : TIMOTHY J. SAUNDERS

Rem * Date   : 2004

HIDE MOUSE

HERE$=GET DIR$()

IF PATH EXIST("WUdata")=0 THEN MAKE DIRECTORY "WUdata"

IF PATH EXIST("WUaudio")=0 THEN MAKE DIRECTORY "WUaudio"

CLS

PRINT "THE DarkBasic BOINC W.U. HEADER / AUDIO CONTROLLER"

PRINT "(by: Tim Saunders)"

PRINT "(DO NOT run this program if BOINC-SETI is running!)"

PRINT "(you can press 'esc' at anytime to end the program)"

IF FILE EXIST("WUpath.txt")=1

PRINT "WOULD YOU LIKE TO CHANGE THE BOINC W.U. DIRECTORY PATH? (Y/N)"

IF INKEY$()="Y" OR INKEY$()="y" THEN GOTO CHANGE

IF INKEY$()="N" OR INKEY$()="n" THEN GOTO NOCHANGE

LOOP

ELSE

GOTO NOCHANGE

ENDIF

CHANGE:

CHANGEBOINC=1

DELETE FILE "WUpath.txt"

NOCHANGE:

IF FILE EXIST("WUpath.txt")=0

SETUP:

PRINT "WHERE ARE THE BOINC-SETI W.U.'s LOCATED?"

PRINT "NORMAL DEFAULT PATH IS..."

PRINT "C:Program FilesBOINCprojectssetiathome.berkeley.edu"

PRINT "(enter 'D' to use the default location)"

INPUT "-> ",BOINC$

IF BOINC$="D" OR BOINC$="d" THEN BOINC$="C:Program FilesBOINCprojectssetiathome.berkeley.edu"

IF PATH EXIST(BOINC$)=0

PRINT "THAT LOCATION IS NOT VALID."

PRINT "PLEASE ENTER THE CORRECT PATH."

PRINT "(press any key)"

SUSPEND FOR KEY

CLS

GOTO SETUP

ELSE

GOSUB SAVEL

ENDIF

IF CHANGEBOINC=0

IF FILE EXIST("WUdatawu2wav.exe")=0

PRINT "INSERTING WU-2-WAV CONVERTER (by: Jan Knutar)..."

COPY FILE "wu2wav.exe","WUdatawu2wav.exe"

WAIT 3000

ENDIF

IF FILE EXIST("WUdatacorrect.dat")=0

PRINT "INSERTING CORRECTION FILE (by: Tim Saunders)..."

CAR$=(CHR$(13)+CHR$(10))

OPEN TO WRITE 1,"WUdatacorrect.dat"

WRITE STRING 1,CAR$+"nsamples=1048576"+CAR$

WRITE STRING 1,CAR$+"end_seti_header"

FOR CAR=1 TO 20

WRITE STRING 1,CAR$

NEXT CAR

CLOSE FILE 1

WAIT 3000

ENDIF

ELSE

PRINT "LOADING SAVED LOCATION..."

OPEN TO READ 1,"WUpath.txt"

READ STRING 1,BOINC$

CLOSE FILE 1

WAIT 3000

ENDIF

FOLDER=0

PRINT "DELETING ANY OLD DATA..."

FOR SELECT=1 TO 2

IF FOLDER=0

CD "WUaudio"

ELSE

CD HERE$+"WUdata"

ENDIF

FIND FIRST

REPEAT

IF GET FILE TYPE()=1 THEN GOTO SKIP

IF GET FILE TYPE()=0

NAMEA$=GET FILE NAME$()

IF NAMEA$="wu2wav.exe" THEN GOTO KEEP

IF NAMEA$="correct.dat" THEN GOTO KEEP

DELETE FILE NAMEA$

KEEP:

WAIT 500

ENDIF

SKIP:

FIND NEXT

UNTIL GET FILE TYPE()=-1

FOLDER=1

NEXT SELECT

PRINT "COPYING BOINC-SETI FOLDER CONTENTS..."

CD BOINC$

NUM=0

FIND FIRST

REPEAT

IF GET FILE TYPE()=1 THEN GOTO SKIP2

IF GET FILE TYPE()=0

NUM=NUM+1

NAMEA$=GET FILE NAME$()

NUM$=STR$(NUM)

NAMEB$=HERE$+"WUdata"+NUM$

COPY FILE NAMEA$,NAMEB$

ENDIF

SKIP2:

FIND NEXT

UNTIL GET FILE TYPE()=-1

WAIT 3000

PRINT "SCANNING AND ORGANIZING FILES..."

SCAN$=HERE$+"WUdata"

CD SCAN$

NUMB=0

FOR SCAN=1 TO NUM

NUM$=STR$(SCAN)

WUSIZE=FILE SIZE(NUM$)

OPEN TO READ 1,NUM$

READ STRING 1,TYPE$

CLOSE FILE 1

INVALID:

IF TYPE$="<workunit>"

IF WUSIZE<102400

TYPE$="NULL"

PRINT "IGNORING INVALID FILE TYPE."

GOTO INVALID

ENDIF

NUMB=NUMB+1

NUMB$=(STR$(NUMB)+".dat")

RENAME FILE NUM$,NUMB$

ELSE

DELETE FILE NUM$

ENDIF

WAIT 500

NEXT SCAN

WAIT 3000

FOR ALTER=1 TO NUMB

STOP=0 : TRIP=0 : HEADER=0

CLS

DAT$=(STR$(ALTER)+".dat")

NEW$=("work_unit"+STR$(ALTER)+".sah")

PRINT "Working ",ALTER," of ",NUMB,"..."

PRINT "READING "+DAT$+" HEADER..."

OPEN TO READ 1,DAT$

REPEAT

READ BYTE 1,FA

FA$=CHR$(FA)

HEADER=HEADER+1

IF FA$=CHR$(34)

TRIP=TRIP+1

IF TRIP=6 THEN HEADER=HEADER+1 : STOP=1

ENDIF

UNTIL STOP=1

CLOSE FILE 1

WAIT 3000

OPEN TO READ 1,DAT$

OPEN TO READ 2,"correct.dat"

MAKE MEMBLOCK FROM FILE 1,1

MSIZE=GET MEMBLOCK SIZE(1)

PRINT "RECONSTRUCTING FILE WITH COMPATIBLE HEADER..."

PRINT "CONVERTING "+DAT$+" TO "+NEW$+" @ ",MSIZE," BYTES"

FOR POSITION=0 TO 20

READ BYTE 2,CORRECT

WRITE MEMBLOCK BYTE 1,POSITION,CORRECT

NEXT POSITION

HEND=HEADER-20

FOR POSITION=HEND TO HEADER

READ BYTE 2,CORRECT

WRITE MEMBLOCK BYTE 1,POSITION,CORRECT

NEXT POSITION

MSIZE=MSIZE-1

PEND=MSIZE-20

FOR POSITION=PEND TO MSIZE

READ BYTE 2,CORRECT

WRITE MEMBLOCK BYTE 1,POSITION,CORRECT

NEXT POSITION

OPEN TO WRITE 3,NEW$

WRITE MEMBLOCK 3,1

CLOSE FILE 1

CLOSE FILE 2

CLOSE FILE 3

IF MEMBLOCK EXIST(1)=1 THEN DELETE MEMBLOCK 1

WAIT 3000

NEXT ALTER

CLS

BACKDROP ON : COLOR BACKDROP 0 : SYNC ON

CAR$=(CHR$(13)+CHR$(10))

TRIGGER=TIMER()

LIVETIME=(TRIGGER+60000)

SET CURSOR 1,1

PRINT "RECONSTRUCTION OF ",NUMB," W.U.'s COMPLETE."

PRINT "DO YOU WANT TO CONVERT THEM TO AUDIO WAVE FILES? (Y/N)"

PRINT "(answering 'N' will end the program and will cause"

PRINT "reconstruction to occur again on the next run)"

PRINT "(if no answer is given in the next 60 seconds,"

PRINT "then the program will continue with the audio conversion)"

IF INKEY$()="N" OR INKEY$()="n" THEN GOTO NOAUDIOWAV

IF TIMER()>LIVETIME OR INKEY$()="Y" OR INKEY$()="y"

SYNC OFF : BACKDROP OFF : GOTO AUDIOWAV

ENDIF

PRINT INT((LIVETIME-TIMER())/1000)

SYNC

LOOP

AUDIOWAV:

SET WINDOW ON

ALWAYS ACTIVE ON

SET WINDOW TITLE "W.U.A. control"

FOR AUDIO=1 TO NUMB

CLS

NUMB$=("work_unit"+STR$(AUDIO)+".sah")

WUA$=(HERE$+"WUaudiowork_unit"+STR$(AUDIO)+".wav")

PRINT "BUILDING W.U. AUDIO FILE..."

PRINT "CONVERTING AND MOVING "+NUMB$+" TO 'WUaudio' FOLDER"

RENAME FILE NUMB$,"work_unit.sah"

WAIT 1000

EXECUTE FILE "wu2wav.exe","","",1

REPEAT : WAIT 1 : UNTIL FILE EXIST("work_unit.wav")=1

WAIT 1000

MOVE FILE "work_unit.wav",WUA$

WAIT 1000

DELETE FILE "work_unit.sah"

WAIT 1000

NEXT AUDIO

EXECUTE FILE HERE$+"WUaudio","","",0

MESSAGE$="YOUR W.U. AUDIO FILES ARE READY."+CAR$+"YOU CAN USE A NOISE REDUCTION PROGRAM TO LOWER THE 'WHITE NOISE' LEVEL."

EXIT PROMPT "W.U.A. CONTROL JOB COMPLETE",MESSAGE$

END

NOAUDIOWAV:

EXECUTE FILE HERE$+"WUdata","","",0

MESSAGE$="THE W.U. DATA FILES ARE AVAILABLE FOR INSPECTION NOW."+CAR$+"HAVE A NICE DAY."

EXIT PROMPT "W.U. DATA CONVERSION COMPLETE",MESSAGE$

END

SAVEL:

PRINT "SAVING LOCATION..."

OPEN TO WRITE 1,"WUpath.txt"

WRITE STRING 1,BOINC$

WRITE STRING 1,"DELETE THIS FILE 'WUpath.txt' TO RESET SETUP."

CLOSE FILE 1

WAIT 3000

RETURN

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	8

CodeBase - W.U. Header / Audio Controller

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments