/* $VER:dA->UU<-dIRECTOR 1.3 (18.07.96) (c) by Marcel Doering Ui, haste mein Code `rausgefunden oder wie ? Bitte nicht gleich alles klauen, kannst ja abguggen aber musst ja nicht einfach nur Deinen Namen hier drueber setzen. Thx. */ TRUE=1 FALSE=0 uselocale=TRUE IF ~SHOW('LIBRARIES','locale.library') THEN DO IF ~ADDLIB('locale.library',-10,-30,0) THEN DO SAY 'Couldn`t open !' uselocale=FALSE END END IF ~SHOW('LIBRARIES','tritonrexx.library') THEN DO IF ~ADDLIB('tritonrexx.library',10,-30,0) THEN DO SAY 'Kann die nicht öffnen !' EXIT(10) END END IF ~SHOW('LIBRARIES','rexxtricks.library') THEN DO IF ~ADDLIB('rexxtricks.library',2,-30,0) THEN DO SAY 'Kann die nicht öffnen !' Say 'Available on Aminet !' EXIT(10) END END IF ~SHOW('LIBRARIES','rexxsupport.library') THEN DO IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO SAY 'Kann die nicht öffnen ! ' EXIT(10) END END if ~exists('LIBS:rexxsupport.library') then do call open(output,'CON:0/100/350/50/Fehler !','W') writeln(output,'»*« dA->UU<-dIRECTOR - (c) by Marcel Döring »*«') writeln(output,'RexxSupport.library nicht gefunden !') delay(500) exit end writestr: catfile='ENVARC:dA->UU<-dIRECTOR.strings' if ~EXISTS('ENVARC:dA->UU<-dIRECTOR.strings') THEN DO call open(out,'CON:0/200/450/50/Locale-Support...','W') writeln(out,'Please Wait, initialising locale-support.') writeln(out,'Bitte warten, initialisiere Locale-Support.') call open(loc,catfile,'W') writeln(loc,'/* NEVER EDIT THIS FILE ! NIEMALS DIESE DATEI AENDERN !!!!') WriteCH(out,'.') writeln(loc,'** $VER: dA->UU<-dIRECTOR.strings V1.4 Locale-Support-File for dA->UU<-dIRECTOR (c) by M.Döring') WriteCH(out,'.') writeln(loc,'**') WriteCH(out,'.') writeln(loc,'** Locale-Support-File für dA->UU<-dIRECTOR (c) von Marcel Döring alle') WriteCH(out,'.') writeln(loc,'** Rechte vorbehalten') WriteCH(out,'.') writeln(loc,'*/') WriteCH(out,'.') writeln(loc,' ') WriteCH(out,'.') writeln(loc,'MSG_APPVER_STRING=0') WriteCH(out,'.') writeln(loc,'MSG_APPDATE_STRING=1') WriteCH(out,'.') writeln(loc,'MSG_NOREXXSUPPORT_STRING=2') WriteCH(out,'.') writeln(loc,'MSG_NOREXXTRICKS_STRING=3') WriteCH(out,'.') writeln(loc,'MSG_NOREXXTRITON_STRING=4') WriteCH(out,'.') writeln(loc,'MSG_REXXTRICKSVERSION_STRING=5') WriteCH(out,'.') writeln(loc,'MSG_UUENCODE_STRING=6') WriteCH(out,'.') writeln(loc,'MSG_UUDECODE_STRING=7') WriteCH(out,'.') writeln(loc,'MSG_LIGHT_STRING=8') WriteCH(out,'.') writeln(loc,'MSG_NORMAL_STRING=9') WriteCH(out,'.') writeln(loc,'MSG_MAXIMUM_STRING=10') WriteCH(out,'.') writeln(loc,'MSG_ABOUT_STRING=11') WriteCH(out,'.') writeln(loc,'MSG_ABOUTTRITON_STRING=12') WriteCH(out,'.') writeln(loc,'MSG_QUIT_STRING=13') WriteCH(out,'.') writeln(loc,'MSG_MODUS_STRING=14') WriteCH(out,'.') writeln(loc,'MSG_QUELLDAT_STRING=15') WriteCH(out,'.') writeln(loc,'MSG_ZIELVERZ_STRING=16') WriteCH(out,'.') writeln(loc,'MSG_SPLIT_STRING=17') WriteCH(out,'.') writeln(loc,'MSG_ERSTPACKEN_STRING=18') WriteCH(out,'.') writeln(loc,'MSG_PACKMODUS_STRING=19') WriteCH(out,'.') writeln(loc,'MSG_Q1_STRING=20') WriteCH(out,'.') writeln(loc,'MSG_Q2_STRING=21') WriteCH(out,'.') writeln(loc,'MSG_Q3_STRING=22') WriteCH(out,'.') writeln(loc,'MSG_Q5_STRING=23') WriteCH(out,'.') writeln(loc,'MSG_Q6_STRING=24') WriteCH(out,'.') writeln(loc,'MSG_Q7_STRING=25') WriteCH(out,'.') writeln(loc,'MSG_Q8_STRING=26') WriteCH(out,'.') writeln(loc,'MSG_Q9_STRING=27') WriteCH(out,'.') writeln(loc,'MSG_Q123_STRING=28') WriteCH(out,'.') writeln(loc,'MSG_Q124_STRING=29') WriteCH(out,'.') writeln(loc,'MSG_QR1_STRING=30') WriteCH(out,'.') writeln(loc,'MSG_QR2_STRING=31') WriteCH(out,'.') writeln(loc,'MSG_QR3_STRING=32') WriteCH(out,'.') writeln(loc,'MSG_QR4_STRING=33') WriteCH(out,'.') writeln(loc,'MSG_REALQUIT_STRING=34') WriteCH(out,'.') writeln(loc,'MSG_YESNO_STRING=35') WriteCH(out,'.') writeln(loc,'MSG_COSYSOP_STRING=36') WriteCH(out,'.') writeln(loc,'MSG_NOPACKER_STRING=37') WriteCH(out,'.') writeln(loc,'MSG_NOSOURCE_STRING=38') WriteCH(out,'.') writeln(loc,'MSG_NODEST_STRING=39') WriteCH(out,'.') writeln(loc,'MSG_ERRWITH1_STRING=40') WriteCH(out,'.') writeln(loc,'MSG_ERRWITH2_STRING=41') WriteCH(out,'.') writeln(loc,'MSG_ABORTWEITA_STRING=42') WriteCH(out,'.') writeln(loc,'MSG_BECAUSE_STRING=43') WriteCH(out,'.') writeln(loc,'MSG_ERRSPLIT_STRING=44') WriteCH(out,'.') writeln(loc,'MSG_NOLHA_STRING=45') WriteCH(out,'.') writeln(loc,'MSG_NOLZX_STRING=46') WriteCH(out,'.') writeln(loc,'MSG_READY_STRING=47') WriteCH(out,'.') writeln(loc,'MSG_UUENCODING_STRING=48') WriteCH(out,'.') writeln(loc,'MSG_UUDECODING_STRING=49') WriteCH(out,'.') writeln(loc,'MSG_PACKING_STRING=50') WriteCH(out,'.') writeln(loc,'MSG_SPLITTING_STRING=51') WriteCH(out,'.') writeln(loc,'MSG_PROGRESSBARQHELP_STRING=52') WriteCH(out,'.') writeln(loc,'MSG_INFOTEXTQHELP_STRING=53') WriteCH(out,'.') WriteLN(out,'50%') writeln(loc,'strings.0 = "dA->UU<-dIRECTOR 1.4 (c) by Marcel Doering"') WriteCH(out,'.') writeln(loc,'strings.1 = "22.7.1996"') WriteCH(out,'.') writeln(loc,'strings.2 = "No RexxSupport.library found !"') WriteCH(out,'.') writeln(loc,'strings.3 = "No RexxTricks.library V38.6> found !"') WriteCH(out,'.') writeln(loc,'strings.4 = "No TritonRexx.library found !"') WriteCH(out,'.') writeln(loc,'strings.5 = "You need RexxTricks.library 38.6 or better !"') WriteCH(out,'.') writeln(loc,'strings.6 = "UU-Encode"') WriteCH(out,'.') writeln(loc,'strings.7 = "UU-Decode"') WriteCH(out,'.') writeln(loc,'strings.8 = "Light"') WriteCH(out,'.') writeln(loc,'strings.9 = "Normal"') WriteCH(out,'.') writeln(loc,'strings.10 = "Maximum"') WriteCH(out,'.') writeln(loc,'strings.11 = "A_About"') WriteCH(out,'.') writeln(loc,'strings.12 = "T_About Triton"') WriteCH(out,'.') writeln(loc,'strings.13 = "Q_Quit"') WriteCH(out,'.') writeln(loc,'strings.14 = "M_ode:"') WriteCH(out,'.') writeln(loc,'strings.15 = " _Source(s):"') WriteCH(out,'.') writeln(loc,'strings.16 = " _Destination:"') WriteCH(out,'.') writeln(loc,'strings.17 = "_Split-Size: "') WriteCH(out,'.') writeln(loc,'strings.18 = "_Pack first ?"') WriteCH(out,'.') writeln(loc,'strings.19 = "_Crunchmode:"') WriteCH(out,'.') writeln(loc,'strings.20 = "This nice button gives you an filerequester."') WriteCH(out,'.') writeln(loc,'strings.21 = "Call XOX ++49 69 544912 ;)"') WriteCH(out,'.') writeln(loc,'strings.22 = "This button gives you an filerequester for the destination-directory"') WriteCH(out,'.') writeln(loc,'strings.23 = "If the checkmark ist set, the data will be packed before uuencoding"') WriteCH(out,'.') writeln(loc,'strings.24 = "Choose between UUEncoding/UUDecoding here."') WriteCH(out,'.') writeln(loc,'strings.25 = "Here are the files showed for en/decoding."') WriteCH(out,'.') writeln(loc,'strings.26 = "Here you can choose the packer for packing the files before encoding."') WriteCH(out,'.') writeln(loc,'strings.27 = "Set the packmode for the packer here. "') WriteCH(out,'.') writeln(loc,'strings.28 = "Specify the split-size for the uuencoded file here."') WriteCH(out,'.') writeln(loc,'strings.29 = "Here comes the destination-directory."') WriteCH(out,'.') writeln(loc,'strings.30 = "After closing this requester,"') WriteCH(out,'.') writeln(loc,'strings.31 = "the QuickHelp ist activated,"') WriteCH(out,'.') writeln(loc,'strings.32 = "move the requester above an object and let it there"') WriteCH(out,'.') writeln(loc,'strings.33 = "for 1-2 seconds, you`ll get an nice helptext then."') WriteCH(out,'.') writeln(loc,'strings.34 = "Do you really want to leave dA->UU<-dIRECTOR"') WriteCH(out,'.') writeln(loc,'strings.35 = "Yes|No"') WriteCH(out,'.') writeln(loc,'strings.36 = "CoSysop of X-cellence of X-ecution BBS:"') WriteCH(out,'.') writeln(loc,'strings.37 = "No packer chosen."') WriteCH(out,'.') writeln(loc,'strings.38 = "No source chosen"') WriteCH(out,'.') writeln(loc,'strings.39 = "No destination chosen"') WriteCH(out,'.') writeln(loc,'strings.40 = "Error with File"') WriteCH(out,'.') writeln(loc,'strings.41 = "!"') WriteCH(out,'.') writeln(loc,'strings.42 = "Abort|Continue"') WriteCH(out,'.') writeln(loc,'strings.43 = "Because:"') WriteCH(out,'.') writeln(loc,'strings.44 = "Only 0 (no split), 16, 32, 64, 128, 256 or 512 Kbytes splitting possible."') WriteCH(out,'.') writeln(loc,'strings.45 = "LHA wasn`t found."') WriteCH(out,'.') writeln(loc,'strings.46 = "LZX wasn`t found."') WriteCH(out,'.') writeln(loc,'strings.47 = "Ready"') WriteCH(out,'.') writeln(loc,'strings.48 = "UUEncoding..."') WriteCH(out,'.') writeln(loc,'strings.49 = "UUDecoding..."') WriteCH(out,'.') writeln(loc,'strings.50 = "Packing..."') WriteCH(out,'.') writeln(loc,'strings.51 = "Splitting..."') WriteCH(out,'.') writeln(loc,'strings.52 = "The progressbar shows you how far the actual operation already went."') WriteCH(out,'.') writeln(loc,'strings.53 = "The infotext shows you what`s happening."') WriteCH(out,'.') call close(loc) WriteLN(out,'100%') call close(out) if updatestr='Ja' then call finupdate END call open(loc,catfile,'R') dummy0=readln(loc) strver=readln(loc) call close(loc) if strver~='** $VER: dA->UU<-dIRECTOR.strings V1.4 Locale-Support-File for dA->UU<-dIRECTOR (c) by M.Döring' then do say "Die Locale-Support-Datei wird updated" say "Updating locale-support-file" delete('ENVARC:dA->UU<-dIRECTOR.strings') call writestr end finupdate: PARSE SOURCE . . . script . position = LASTPOS('/',script) IF position = 0 THEN position = LASTPOS(':',script) ELSE position = position-1 progdir = SUBSTR(script,1,position) IF ~loadrexx(catfile,'') THEN quit('Error initialising locale-support !'),10) IF uselocale THEN DO catalogfile = 'catalogs/deutsch/dA->UU<-dIRECTOR.catalog' IF RIGHT(progdir,1) = ':' THEN catalog = OPENCATALOG(progdir||'catalogs/deutsch/dA->UU<-dIRECTOR.catalog','english',0) ELSE catalog = OPENCATALOG(progdir||'/catalogs/deutsch/dA->UU<-dIRECTOR.catalog','english',0) IF catalog = 0 THEN catalog = OPENCATALOG('dA->UU<-dIRECTOR.catalog','english',0) END if ~exists('LIBS:tritonrexx.library') then do call open(output,'CON:0/100/350/50/Error !','W') writeln(output,'»*« dA->UU<-dIRECTOR - (c) by Marcel Döring »*«') writeln(output,localestring(MSG_NOTRITONREXX_STRING)) delay(500) exit end if ~exists('LIBS:RexxTricks.library') then do call open(output,'CON:0/100/350/50/Error !','W') writeln(output,'»*« dA->UU<-dIRECTOR - (c) by Marcel Döring »*«') writeln(output,localestring(MSG_NOREXXTRICKS_STRING)) delay(500) exit end versiontest=REXXTRICKSVERSION() version=LEFT(versiontest,2)||SUBSTR(versiontest,4,1) IF version<386 THEN DO call open(output,'CON:0/100/350/50/Error !','W') writeln(output,'»*« dA->UU<-dIRECTOR - (c) by Marcel Döring »*«') writeln(output,localestring(MSG_REXXTRICKSVERSION_STRING)) delay(500) exit end /*SIGNAL ON break_c SIGNAL ON failure SIGNAL ON halt SIGNAL ON ioerr SIGNAL ON syntax */ rtv=TritonRexxVersion() tv=TritonVersion() appver=localestring(MSG_APPVER_STRING) appdate=localestring(MSG_APPDATE_STRING) HelpBool = 0 nummer=0 modus=1 dateiop=1 datei=0 zpath='' splitdizzed=0 packfirst=0 packer='' pnum='1' nl='0a'x uucycle.0='2' uucycle.1=localestring(MSG_UUENCODE_STRING) uucycle.2=localestring(MSG_UUDECODE_STRING) dateienlist.0='0' packmodusc.0='3' packmodusc.1=localestring(MSG_LIGHT_STRING) packmodusc.2=localestring(MSG_NORMAL_STRING) packmodusc.3=localestring(MSG_MAXIMUM_STRING) MSG_READY=localestring(MSG_READY_STRING) MSG_UUENCODING=localestring(MSG_UUENCODING_STRING) MSG_UUDECODING=localestring(MSG_UUDECODING_STRING) MSG_PACKING=localestring(MSG_PACKING_STRING) MSG_SPLITTING=localestring(MSG_SPLITTING_STRING) windowtags = WindowID(1), QuickHelpOn(HelpBool), WindowFlags(TRWI_Backfill TRBF_SHINE), WindowBackFillFB, WindowTitle(appver), BeginMenu('Project'), MenuItem(localestring(MSG_ABOUT_STRING),91), MenuItem(localestring(MSG_ABOUTTRITON_STRING),92) ItemBarlabel, MenuItemC('U_QuickHelp',94) ItemBarlabel, MenuItem(localestring(MSG_QUIT_STRING),93), 'HorizGroupA', 'SpaceS', NamedFrameBox('dA->UU<-dIRECTOR'), 'VertGroupA', 'Space', 'HorizGroupAC', 'Space', TextID(localestring(MSG_MODUS_STRING),6), 'SpaceS', 'BeginLine', CycleGadget('uucycle',0,6), 'EndLine', 'Space', 'EndGroup', 'Space', LINE(TROF_HORIZ), 'Space', 'HorizGroupSA', TextID(localestring(MSG_QUELLDAT_STRING),1), 'SpaceB', 'EndGroup', 'LineArray', 'BeginLine', 'Space', GetDrawerButton(1), ListSS('dateienlist',7,0,0), 'EndLine', 'Space', 'EndGroup', 'SpaceS', LINE(TROF_HORIZ), 'Space', 'HorizGroupA', 'Space', TextID(localestring(MSG_ZIELVERZ_STRING),3), 'Space', GetDrawerButton(3), StringGadget('',124), 'SpaceS', 'EndGroup', 'SpaceS', 'HorizGroupA', 'Space', TextID(" "localestring(MSG_SPLIT_STRING),123), 'SpaceS', StringGadget('64',123), 'SpaceS', TextID(" Bytes",9997), 'SpaceS', 'EndGroup', 'SpaceS', 'VertGroupA', 'SpaceS', 'HorizGroupA', 'BeginLine', TextID(" "localestring(MSG_ERSTPACKEN_STRING),5), 'SpaceS', CheckBoxLEFT(5), Button('Packe_r',8), 'SpaceS', TextID(" "localestring(MSG_PACKMODUS_STRING)" ",9), CycleGadget('packmodusc',0,9), 'EndLine', 'EndGroup', 'SpaceS', 'EndGroup', 'SpaceS', 'HorizGroupA', 'SpaceS', Button('St_art',2), 'SpaceS', 'EndGroup', 'SpaceS', LINE(TROF_HORIZ), 'SpaceS', 'HorizGroupA', 'SpaceS', Progress(5,0,125), 'SpaceS', 'EndGroup', 'SpaceS', 'HorizGroupSA', TextN("0%"), 'SpaceB', TextN("25%"), 'SpaceB', TextN("50%"), 'SpaceB', TextN("75%"), 'SpaceB', TextN("100%"), 'EndGroup', 'SpaceS', LINE(TROF_HORIZ), 'SpaceS', 'HorizGroupA', 'SpaceS', ClippedTextID('Status:'MSG_READY,126), 'SpaceS', 'EndGroup', 'SpaceS', LINE(TROF_HORIZ), 'SpaceS', 'EndGroup', 'SpaceS', 'EndGroup', 'SpaceS', 'EndProject' app = TR_CREATEAPP('TRCA_Name dA->UU<-dIRECTOR', 'TRCA_LongName "UU-Utility"', 'TRCA_Info "Tool using UU."', 'TRCA_Version 1.2', 'TRCA_Release 1', 'TRCA_Date 18.7.96', 'TAG_END') IF app ~= '00000000'x THEN DO window = TR_OPENPROJECT(app,windowtags) IF window ~= '00000000'x THEN DO ende = 0 END main: DO WHILE ende ~= 1 CALL TR_WAIT(app,'') DO WHILE TR_HANDLEMSG(app,'event') IF event.trm_class = 'TRMS_NEWVALUE' THEN DO SELECT WHEN event.trm_id = 7 THEN DO numm = event.trm_data+1 datei = dateienlist.numm END WHEN event.trm_id = 9 THEN DO num = event.trm_data+1 pmodus = packmodusc.num pnum = num END WHEN event.trm_id = 5 THEN DO IF event.trm_data = 0 THEN packfirst=0 IF event.trm_data = 1 THEN packfirst=1 END WHEN event.trm_id = 6 THEN DO modusnummer = event.trm_data+1 modus=modusnummer if event.trm_data=1 then do CALL TR_SETATTRIBUTE(window,123,'TRAT_Disabled',1) CALL TR_SETATTRIBUTE(window,5,'TRAT_Disabled',1) CALL TR_SETATTRIBUTE(window,8,'TRAT_Disabled',1) CALL TR_SETATTRIBUTE(window,9,'TRAT_Disabled',1) splitdizzed=1 end if event.trm_data=0 then do CALL TR_SETATTRIBUTE(window,123,'TRAT_Disabled',0) CALL TR_SETATTRIBUTE(window,5,'TRAT_Disabled',0) CALL TR_SETATTRIBUTE(window,8,'TRAT_Disabled',0) CALL TR_SETATTRIBUTE(window,9,'TRAT_Disabled',0) splitdizzed=0 end END WHEN event.trm_id = 94 then do nummer = TR_GETATTRIBUTE(window,94,'TRAT_VALUE') CALL TR_SETATTRIBUTE(window,0,'TRWI_QuickHelp',nummer) CALL TR_SETATTRIBUTE(window,1,'TRDO_QuickHelpString',localestring(MSG_Q1_STRING)) CALL TR_SETATTRIBUTE(window,2,'TRDO_QuickHelpString',localestring(MSG_Q2_STRING)) CALL TR_SETATTRIBUTE(window,3,'TRDO_QuickHelpString',localestring(MSG_Q3_STRING)) CALL TR_SETATTRIBUTE(window,5,'TRDO_QuickHelpString',localestring(MSG_Q5_STRING)) CALL TR_SETATTRIBUTE(window,6,'TRDO_QuickHelpString',localestring(MSG_Q6_STRING)) CALL TR_SETATTRIBUTE(window,7,'TRDO_QuickHelpString',localestring(MSG_Q7_STRING)) CALL TR_SETATTRIBUTE(window,8,'TRDO_QuickHelpString',localestring(MSG_Q8_STRING)) CALL TR_SETATTRIBUTE(window,9,'TRDO_QuickHelpString',localestring(MSG_Q9_STRING)) CALL TR_SETATTRIBUTE(window,123,'TRDO_QuickHelpString',localestring(MSG_Q123_STRING)) CALL TR_SETATTRIBUTE(window,124,'TRDO_QuickHelpString',localestring(MSG_Q124_STRING)) CALL TR_SETATTRIBUTE(window,125,'TRDO_QuickHelpString',localestring(MSG_PROGRESSBARQHELP_STRING)) CALL TR_SETATTRIBUTE(window,126,'TRDO_QuickHelpString',localestring(MSG_INFOTEXTQHELP_STRING)) if nummer=1 then easyrequest(localestring(MSG_QR1_STRING)||'0a'x||localestring(MSG_QR2_STRING)||'0a'x||localestring(MSG_QR3_STRING)||'0a'x||localestring(MSG_QR4_STRING),'Okay',mainwindow) END WHEN event.trm_id = 123 then call checkbytes OTHERWISE NOP END END IF event.trm_class = 'TRMS_ACTION' THEN DO SELECT WHEN event.trm_id = 1 then call getfile WHEN event.trm_id = 2 then call start WHEN event.trm_id = 3 then call getzpath WHEN event.trm_id = 8 then call dogetpacker WHEN event.trm_id = 91 then call about WHEN event.trm_id = 92 then call tritoninfo WHEN event.trm_id = 93 then call quit OTHERWISE NOP END END IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN DO ende = 1 END END END CALL TR_CLOSEPROJECT(window) CALL TR_DELETEAPP(app) EXIT(0) easyrequest: PARSE ARG text,gadgets,project IF project ~= '00000000'x THEN tags = 'TREZ_LockProject' C2D(window) 'TREZ_Return 0 TREZ_ReqPos TRWP_CENTERDISPLAY TAG_END' else tags = 'TAG_END' RETURN(TR_EASYREQUEST(app,text,gadgets,tags)) quit: realquit=easyrequest(localestring(MSG_REALQUIT_STRING),localestring(MSG_YESNO_STRING),mainwindow) if realquit=1 THEN DO ende=1 return END getfile: boo2=ASL_RequestFile(window,'dateienlist',, "ASLFR_PubScreenName" '"Workbench"', "ASLFR_InitialDrawer" '"SYS:"', "ASLFR_InitialPattern" '""', "ASLFR_TitleText" '"Dateien auswählen..."', "ASLFR_DoMultiSelect" '"1"', "ASLFR_DrawersOnly" '"0"') if boo2=0 then RETURN dpath=dateienlist.1 if ~exists(dpath) then return IF RIGHT(dpath,Length(dpath)-Length(dpath)+1)=':' then return IF RIGHT(dpath,Length(dpath)-Length(dpath)+1)='/' then return destdir=dpath CALL TR_SETATTRIBUTE(window,7,'TROB_Listview',dateienlist) datei=1 call tr_setattribute(window,125,'TROB_Progress',dateienlist.0) call tr_setattribute(window,125,'trat_value',0) return TritonInfo: CALL TR_AUTOREQUEST(app,window,PubScreenName('workbench'), BeginRequester('About TriTon','TRWP_CENTERDISPLAY'), 'VertGroupA', 'Space', 'HorizSeparator', 'Space', NamedSeparator('About TriTon:'), 'Space', CenteredText('This application uses the Triton GUI creation system (c) by Stefan Zeiger'), 'Space', 'HorizSeparator', 'Space', CenteredText('**********************************************'), 'Space', 'Space', CenteredText('Triton'), 'Space', 'Space', CenteredText('An object oriented GUI creation system.'), 'Space', 'Space', CenteredText('Release 1.4'), 'Space', 'Space', CenteredText('(c) 1993-1995 Stefan Zeiger'), 'Space', 'Space', CenteredText('**********************************************'), 'Space', 'HorizSeparator', 'Space', 'EndGroup', 'BeginRequesterGads', CenteredButtonRE('Okay',10000), 'EndRequester') RETURN about: CALL TR_AUTOREQUEST(app,window,PubScreenName('workbench'), BeginRequester('About','TRWP_CENTERDISPLAY'), 'VertGroupA', 'Space', 'HorizSeparator', 'Space', NamedSeparator('dA->UU<-dIRECTOR'), 'Space', CenteredText('Status: FD'), 'Space', CenteredText('Version:' appver), 'Space', CenteredText('Released:' appdate), 'Space', CenteredText('(c) by Marcel Döring '), 'Space', CenteredText('e-Mail: DonDoringo@XOX.commo.mcnet.de'), 'Space', CenteredText(localestring(MSG_COSYSOP_STRING)), 'Space', CenteredText('++49 69/544912 28k8 V42bis'), 'Space', 'HorizSeparator', 'Space', NamedSeparator('Libraries:'), 'Space', CenteredText('Tritonrexx.library v.' rtv '(c) by Juergen Kohrmeyer.'), 'Space', CenteredText('Triton.library v.' tv '(c) by Stefan Zeiger.'), 'Space', CenteredText('RexxTricks.library (c) by Juergen Kohrmeyer'), 'Space', 'HorizSeparator', 'Space', 'EndGroup', 'BeginRequesterGads', CenteredButtonRE('Okay',10000), 'EndRequester') RETURN start: call dagads select when modus=1 then call gover when modus=2 then call goent OTHERWISE Say 'Internal Error !' END call engads return GOVER: if packfirst=1 then do LeftBorder = 0 TopBorder = 300 OutPutWidth = 500 OutPutHeight = 120 ScreenOutPut = 'CON:'LeftBorder'/'TopBorder'/'OutPutWidth'/'OutPutHeight'/dA->UU<-dIRECTOR.../SCREEN' PubScreen'/AUTO/CLOSE' CALL CLOSE('STDOUT') IF ~OPEN('STDOUT',ScreenOutPut,'W') THEN EXIT(10) CALL CLOSE('STDIN') CALL OPEN('STDIN','*','W') CALL PRAGMA('*','STDOUT') CALL PRAGMA('*','STDIN') if packer='' then do err=easyrequest(localestring(MSG_NOPACKER_STRING),'Okay',mainwindow) return end i=1 o=0 CALL TR_SETATTRIBUTE(window,7,'TRAT_Value','0') call tr_setattribute(window,126,'trat_text','Status: 'MSG_PACKING) if packer='LHA' then do do forever call tr_setattribute(window,125,'trat_value',i) datei=dateienlist.i fdat=FILEPART(datei) cmd='LHA a -'pnum' T:'fdat'.lha "'datei'"' datei='T:'fdat'.lha' dateienlist.i='T:'fdat'.lha' address command cmd i=i+1 if i=dateienlist.o+1 then break end end if packer='LZX' then do if pnum='3' then pnum='9' do forever call tr_setattribute(window,125,'trat_value',i) datei=dateienlist.i fdat=FILEPART(datei) cmd='LZX a -'pnum' T:'fdat'.lzx "'datei'"' datei='T:'fdat'.lzx' dateienlist.i='T:'fdat'.lzx' address command cmd i=i+1 if i=dateienlist.o+1 then break end end END limit=TR_GETATTRIBUTE(window,123,'TROB_String') if datei=0 then do err=easyrequest(localestring(MSG_NOSOURCE_STRING),'Okay',mainwindow) return end zpath=TR_GETATTRIBUTE(window,124,'TROB_String') if zpath='' then do err=easyrequest(localestring(MSG_NODEST_STRING),'Okay',mainwindow) return end abort=0 i=1 o=0 TR_SETATTRIBUTE(window,7,'TRAT_Value','0') call tr_setattribute(window,126,'trat_text','Status: 'MSG_UUENCODING'/'MSG_SPLITTING) call tr_setattribute(window,125,'trat_value',0) do forever call tr_setattribute(window,125,'trat_value',i) z1datei=FILEPART(dateienlist.i) zdatei=zpath''z1datei datei=dateienlist.i bool = UUENCODE(datei,zdatei,limit,S) if bool=0 then abort=easyrequest(localestring(MSG_ERRWITH1_STRING) datei localestring(MSG_ERRWITH2_STRING),localestring(MSG_ABORTWEITA_STRING),mainwindow) if abort=1 then break i=i+1 o=o+1 TR_SETATTRIBUTE(window,7,'TRAT_Value',o) if packfirst=1 then delete(datei) if i=dateienlist.0+1 then break end call tr_setattribute(window,126,'trat_text','Status: 'MSG_READY) RETURN GOENT: if datei=0 then do err=easyrequest(localestring(MSG_NOSOURCE_STRING),'Okay',mainwindow) return end zpath=TR_GETATTRIBUTE(window,124,'TROB_String') if zpath='' then do err=easyrequest(localestring(MSG_NODEST_STRING),'Okay',mainwindow) return end abort=0 i=1 o=0 TR_SETATTRIBUTE(window,7,'TRAT_Value','0') call tr_setattribute(window,126,'trat_text','Status: 'MSG_UUDECODING) call tr_setattribute(window,125,'trat_value',0) do forever call tr_setattribute(window,125,'trat_value',i) datei=dateienlist.i bool = UUDECODE(datei,zpath) if bool=0 then abort=easyrequest(localestring(MSG_ERRWITH1_STRING)||'0a'x||localestring(MSG_BECAUSE_STRING)' 'uuerror_text' ',localestring(MSG_ABORTWEITA_STRING),mainwindow) if abort=1 then break i=i+1 o=o+1 TR_SETATTRIBUTE(window,7,'TRAT_Value',o) if i=dateienlist.0+1 then break end call tr_setattribute(window,126,'trat_text','Status: 'MSG_READY) RETURN checkbytes: limit=TR_GETATTRIBUTE(window,123,'TROB_String') select when limit=0 then nop when limit=16 then nop when limit=32 then nop when limit=64 then nop when limit=128 then nop when limit=256 then nop when limit=512 then nop OTHERWISE DO easyrequest(localestring(MSG_ERRSPLIT_STRING),'Okay',mainwindow) limit=TR_SETATTRIBUTE(window,123,'TROB_String','64') END END RETURN getzpath: boo3=ASL_RequestFile(window,'mork',, "ASLFR_PubScreenName" '"Workbench"', "ASLFR_InitialDrawer" '"SYS:"', "ASLFR_InitialPattern" '""', "ASLFR_TitleText" '"Zielverzeichnis auswählen..."', "ASLFR_DrawersOnly" '"1"') if boo2=0 then RETURN zpath=mork.1 if ~exists(zpath) then return IF RIGHT(zpath,Length(zpath)-Length(zpath)+1)~=':' then zpath=zpath'/' if zpath ='Ram Disk:' then zpath='RAM:' TR_SETATTRIBUTE(window,124,'TROB_String',zpath) RETURN dagads: CALL TR_SETATTRIBUTE(window,1,'TRAT_Disabled',1) CALL TR_SETATTRIBUTE(window,2,'TRAT_Disabled',1) CALL TR_SETATTRIBUTE(window,3,'TRAT_Disabled',1) CALL TR_SETATTRIBUTE(window,5,'TRAT_Disabled',1) CALL TR_SETATTRIBUTE(window,6,'TRAT_Disabled',1) CALL TR_SETATTRIBUTE(window,7,'TRAT_Disabled',1) CALL TR_SETATTRIBUTE(window,8,'TRAT_Disabled',1) CALL TR_SETATTRIBUTE(window,9,'TRAT_Disabled',1) CALL TR_SETATTRIBUTE(window,123,'TRAT_Disabled',1) CALL TR_SETATTRIBUTE(window,124,'TRAT_Disabled',1) RETURN engads: CALL TR_SETATTRIBUTE(window,1,'TRAT_Disabled',0) CALL TR_SETATTRIBUTE(window,2,'TRAT_Disabled',0) CALL TR_SETATTRIBUTE(window,3,'TRAT_Disabled',0) if modus=1 then CALL TR_SETATTRIBUTE(window,5,'TRAT_Disabled',0) CALL TR_SETATTRIBUTE(window,6,'TRAT_Disabled',0) CALL TR_SETATTRIBUTE(window,7,'TRAT_Disabled',0) if modus=1 then CALL TR_SETATTRIBUTE(window,8,'TRAT_Disabled',0) if modus=1 then CALL TR_SETATTRIBUTE(window,9,'TRAT_Disabled',0) if splitdizzed=0 then CALL TR_SETATTRIBUTE(window,123,'TRAT_Disabled',0) CALL TR_SETATTRIBUTE(window,124,'TRAT_Disabled',0) RETURN break_c: Say 'Quitting dA->UU<-dIRECTOR' IF app ~= '00000000'x THEN CALL TR_DELETEAPP(app) EXIT(10) failure: halt: ioerr: syntax: CALL easyrequest('Error' rc 'in line' sigl ||NL|| SOURCELINE(sigl) ||NL|| ERRORTEXT(rc),'_Quit',mainwindow) IF app ~= '00000000'x THEN CALL TR_DELETEAPP(app) EXIT(10) dogetpacker: call TR_LOCKPROJECT(window) packer.0 = '2' if exists('C:LHA') then packer.1 = 'LHA' else packer.1 = localestring(MSG_NOLHA_STRING) if exists('C:LZX') then packer.2 = 'LZX' else packer.2 = localestring(MSG_NOLZX_STRING) auswindowtags = WindowID(2), WindowFlags(TRWI_Backfill TRBF_SHINE), WindowBackFillFB, WindowTitle('Packer'), 'HorizGroupA', 'Space', 'VertGroupA', 'Space', CenteredTextID("_Packer",1), 'Space', ListSS('packer',7,0,0), 'Space', 'EndGroup', 'Space', 'EndGroup', 'EndProject' ausapp = TR_CREATEAPP('TRCA_Name dA->UU<-dIRECTOR-Packer', 'TRCA_LongName "UU-Utility-Packer"', 'TRCA_Info "Tool using UU-Packer"', 'TRCA_Version 1.0', 'TRCA_Release 1', 'TRCA_Date 18.7.96', 'TAG_END') IF ausapp ~= '00000000'x THEN DO auswindow = TR_OPENPROJECT(ausapp,auswindowtags) IF auswindow ~= '00000000'x THEN DO ausende = 0 DO WHILE ausende ~= 1 CALL TR_WAIT(ausapp,'') DO WHILE TR_HANDLEMSG(ausapp,'event') IF event.trm_class = 'TRMS_NEWVALUE' THEN DO SELECT WHEN event.trm_id = 7 THEN DO nummer = event.trm_data+1 packer=packer.nummer END OTHERWISE NOP END END IF event.trm_class = 'TRMS_CLOSEWINDOW' THEN DO nummer = TR_GETATTRIBUTE(auswindow,7,'TRAT_Value')+1 packer=packer.nummer ausende = 1 END END END CALL TR_CLOSEPROJECT(auswindow) END CALL TR_DELETEAPP(ausapp) END CALL TR_UNLOCKPROJECT(window) call main localestring: PARSE ARG stringnumber IF uselocale THEN RETURN(GETCATALOGSTR(catalog,stringnumber,strings.stringnumber)) ELSE RETURN(strings.stringnumber) loadrexx: PARSE ARG dir,file,store IF dir ~= '' THEN DO IF RIGHT(dir,1) = ':' THEN file = dir||file ELSE file = dir||'/'||file END IF ~OPEN('rexxfile',file,'R') THEN RETURN(FALSE) rexxtext = READCH('rexxfile',64000) INTERPRET rexxtext CALL CLOSE('rexxfile') IF store ~= '' THEN INTERPRET store '= rexxtext' DROP rexxtext RETURN(TRUE)