OS/2 Shareware BBS: 18 REXX

home *** CD-ROM | disk | FTP | other *** search

/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / SHWINI.ZIP / SHOWINI.CMD < prev next >

Wrap

OS/2 REXX Batch file | 1992-06-01 | 125KB | 3,371 lines

/* program: showini.cmd type: REXXSAA-OS/2, OS/2 2.0 purpose: allow for viewing, editing, backing up & restoring of OS/2-INI-files version: 1.04 date: 1992-06-01 author: Rony G. Flatscher RONY@AWIWUW11.BITNET rony@wu-wien.ac.at usage: SHOWINI: allow to view, edit, print, backup, restore OS/2-INI-files (e.g. OS2.INI, OS2SYS.INI) showini ... allow to work interactively backing up: (backing up an OS/2-INI-file entirely) =========== showini /B ini-file ... Backup will be put in a newly created ini-file showini /BT ini-file ... Backup will be put in a newly created Text-file restoring: (resets values according to backup & deletes keys which are not saved in backup) ========== showini /R BKP-INI-file ... Restore from a backup-ini-file showini /RT BKP-TEXT-file ... Restore from a backup-Text-file updating: (just resets values according to backup) ========= showini /U BKP-INI-file ... Update from a backup-ini-file showini /UT BKP-TEXT-file ... Update from a backup-Text-file needs: all RxUtil-functions loaded, BOXEDIT.CMD 1) Working interactively with OS/2-INI-files ============================================ SHOWINI.CMD allows you to interactively a) view b) print to text-(ASCII)-file c) edit d) move/copy e) delete Toplevel entries ("Application entries") and key-entries in OS/2-INI-files. Just enter: showini Initially you will **not** see the menu choices for editing, moving/copying and deleting INI-entries for safety reasons. Also, you will get a choice to work with OS2.INI (USER) and OS2SYS.INI (SYSTEM). With "s" for scan you can have SHOWINI.CMD to automatically scan for valid OS/2-INI-files on all local and/or remote drives or a specific drive, it will successfully ignore Winodows-INI-files. Once you configure one of the above manipulative functions the configuration choice will be shown, if you reset them, it will not be shown anymore. Therefore you could safely leave this program on a machine for end-users. In order to activate the edit, move/copy and/or delete functions, you need to enter "c" (configure) on the main menu. This option will allways be accessible from the INI- and TopLevel-menus, no matter whether it is displayed or not. All these settings will be stored in OS2.INI under the TopLevel-entry called "RGF Showini.cmd". Hint: If there are many entries in an INI-file, use the MODE-command to get more lines or more columns and/or lines: e.g. "MODE co80,100" for 100 lines or "MODE co132,50" for 132 columns and 50 lines on an XGA-adapter Hint: Wherever it is possible from the program logic, you may immeditiately end SHOWINI.CMD by typing "q" (quit). Attention: if quitting the program, changes to the settings are not stored in OS2.INI. 2) Batchfile-commands ===================== SHOWINI.CMD allows for backing up and ***restoring*** INI-files while the system is running ! This means that you can backup even OS2.INI and OS2SYS.INI while the system is up and restore them from a backup while the system is running. SHOWINI.CMD automatically produces **10-generation** backups. a) BACKUP ========= syntax: showini /B INI-file showini /BT INI-file This will produce a backup-file, which is **allways** located in the drive and subdirectory of the given INI-file. If you do not give a drive and a path, SHOWINI.CMD assumes that your INI-file is located in the current drive and path. By default SHOWINI.CMD produces 10 generations of backup, thereafter deleting the oldest to make room for the new backup. Depending on the switch, /B or /BT, the backup file will be an OS/2-INI-file or a plain text-(ASCII)-file. Backups in the OS/2-INI-file format will have a filename which corresponds to the original file-name where the last letter will be replaced by the digits 0 thru 9, e.g. OS2.IN0, OS2.IN1, OS2.IN2, ..., OS2.IN9. Backups in the text-(ASCII)-file format will get a file-extension of TX0, TX1, TX2, .., TX9. examples: showini /b c:\os2\os2.ini ... make a backup, the resulting backup will be of type OS/2-INI, and will get a name of "c:\os2\os2.in0", ..., "c:\os2\os2.in9"; generations are counted from 0 to 9; subsequent backups will cause the backup numbered with 0 to be deleted, all others backups being renamed by subtracting one from their number, such that the backup to be generated will safely get the number 9 assigned. showini /bt os2sys.ini ... make a backup of the OS/2-INI-file called "os2sys.ini" located in the actual drive and path, the resulting backup will be of type TEXT (ASCII), and will get a name of "d:\os2\os2sys.tx0", ..., "d:\os2\os2sys.tx9", **if** the present drive and path is "D:\OS2"; generations are counted from 0 to 9; subsequent backups will cause the backup numbered with 0 to be deleted, all others backups being renamed by subtracting one from their number, such that the backup to be generated will safely get the number 9 assigned. b) RESTORE ========== syntax: showini /R backup-file showini /RT backup-file This will restore an OS/2-INI-file from the given backup-file, which is **allways** located in the drive and subdirectory of the INI-file to be restored. Depending on the switch, /R or /RT, the backup file will be an OS/2-INI-file or a plain text-(ASCII)-file. SHOWINI.CMD will use the filename information stored in the backup-file (in the case of an OS/2-INI-type backup, the original filename is stored in the TopLevel-entry "RGF Showini.cmd"), ***but*** will ignore the stored drive and path information, instead it will use the drive and path (for security reasons) given in the command-line (i.e. "backup-file") !!! If the text-backup-file (ASCII-file) contains blank lines or ones having a semicolon (;) as the first character, they will be ignored. ***Attention*** In the restore-mode all keys not being in the backup-file but existing in the INI-file will be ***deleted*** from the OS/2-INI-file, thereby producing an exact copy of the backup ! If you do not want this behavior use the update-mode, which just updates the TopLevels and Keys found in the backup-file. Hint: If you want to delete numerous keys or TopLevels, then make a text-backup (switch "/BT") and either delete or remark those lines with the appropriate entries and run a restore-operation (using any editor like EPM, which is my preferred one). examples: showini /r d:\apps\mamamia.in9 ... restore the OS/2-INI-file located in "D:\APPS", get the name of it from the backup "mamamia.in9", if not found, then assume that the INI-file is called "MAMAMIA.INI"; restore the INI-file from the backup, delete all TopLevels and keys in target which are not found in the backup. The backup is a true OS/2-INI-file and could therefore also be copied over the original OS/2-INI-file. Note: drive and path information stored in the backup are ignored for security reasons. showini /rt papatuo.tx0 ... restore the OS/2-INI-file located in the actual drive and subdirectory, get the name of it from the backup "papatuo.tx0". Restore the INI-file from the backup, delete all TopLevels and keys in target which are not found in the backup. The backup is a TXT-(ASCII)-file. Note: drive and path information stored in the backup are ignored for security reasons. c) UPDATE ========= syntax: showini /U backup-file showini /UT backup-file This will update an OS/2-INI-file with the information from the given backup-file, which is **allways** located in the drive and subdirectory of the INI-file to be restored. Depending on the switch, /U or /UT, the backup file will be an OS/2-INI-file or a plain text-(ASCII)-file. SHOWINI.CMD will use the filename information stored in the backup-file (in the case of an OS/2-INI-type backup, the original filename is stored in the TopLevel-entry "RGF Showini.cmd"), ***but*** will ignore the stored drive and path information, instead it will use the drive and path (for security reasons) given in the command-line (i.e. "backup-file") !!! If the text-backup-file (ASCII-file) contains blank lines or ones having a semicolon (;) as the first character, they will be ignored. examples: showini /u g:\aha\ok\epm.in3 ... restore the OS/2-INI-file located in "G:\AHA\OK", get the name of it from the backup "epm.in3", if not found, then assume that the INI-file is called "EPM.INI"; restore the INI-file from the backup. In contrast to the restore mode, superfluous TopLevels and keys in the target are ***not*** deleted! The backup is a true OS/2-INI-file and could therefore also be copied over the original OS/2-INI-file. Note: drive and path information stored in the backup are ignored for security reasons. showini /ut klondike.tx9 ... restore the OS/2-INI-file located in the actual drive and subdirectory, get the name of it from the backup "klondike.tx9", if not found, then assume that the INI-file is called "KLONDIKE.INI"; restore the INI-file from the backup, delete all TopLevels and keys in target which are not found in the backup. The backup is a TXT-(ASCII)-file. Note: drive and path information stored in the backup are ignored for security reasons. 3) EXIT-codes ============= 0 ... everything went o.k. -1 ... user aborted program -2 ... wrong switch or invalid filename -3 ... invalid backup-file 4) minimal layout of text-(ASCII)-backup-files ============================================== ; a line starting with a semi-column is a comment and is ignored ; blank lines are ignored as well ; the file entry must be included and be given before the TopLevel- and ; key-entries; it may span multiple lines (for long filenames) and has ; the principal layout ; ; "File [file name]" ; delimiter for the value is allways an opening and ending square ; bracket File [D:\work\klondike.ini] ; A TopLevel (application) entry starts with the keyword "Top"; is being ; followed by the datatype [A], [A0] or [H] for ASCII, ASCII-Z, resp. ; hexadecimal; the last entry is the value enclosed in square brackets. ; ; The same syntax applies to the key-names ("Key") and finally to the ; values themselves ("Val"). ; ; Any Value for TopLevel-names, Key-names and Key-values may span ; multiple lines; if so, subsequent lines must not contain a key-word, ; but the data-type and the value. Top [A] [PATIENCE] Key [A] [CardBack] ; the key-value is of ASCII-string, terminated by \0; note that the ; terminating '00'x is not contained within the value part: Val [A0] [2] ; the following key-value spans two lines: Key [A] [ColorSet] Val [A0] [13] [A0] [03] ; this is an example for hexadecimal values for all three, ;TopLevel-name, key-name and key-value: Top [H] [01020304050607] Key [H] [08091011] Val [H] [12131415] ; note values enclosed in the square-bracket-delimiters may contain ; square brackets themselves: Top [A] [This is another TopLevel-entry [yes, another]] Key [A] [This is another key-entry] Val [A] [This is a plain ASCII-entry.] Key [A] [This is the second key-entry, within this TopLevel.] Val [A0] [This is an ASCII-Z entry.] For further examples of the syntax of the text-(ASCII)-file see any printout or text-(ASCII)-backup. All rights reserved, copyrighted 1992, no guarantee that it works without errors, etc. etc. donated to the public domain granted that you are not charging anything (money etc.) for it and derivates based upon it, as you did not write it, etc. if that holds you may bundle it with commercial programs too you may freely distribute this program, granted that no changes are made to it Please, if you find an error, post me a message describing it, I will try to fix and rerelease it to the net. */ SIGNAL ON HALT CALL initialize /* initialize array "global." */ IF ARG() > 0 THEN /* arguments are given */ CALL backup_restore_update ARG(1) CALL show_inis /* show OS/2-INI-files */ CALL write_ini_settings /* write settings for this program */ EXIT 0 /* normal exit */ /****************************************************************/ INITIALIZE: PROCEDURE EXPOSE global. /* check whether RxFuncs are loaded, if not, load them */ IF RxFuncQuery('SysLoadFuncs') THEN DO /* load the load-function */ CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' /* load the Sys* utilities */ CALL SysLoadFuncs END /* define some ANSI.SYS-colors */ esc = '1B'x /* escape-char */ global. = "" /* define ANSI-colors */ global.iRedWhite = esc||"[31;47m" /* ANSI.SYS-control for red foreground */ global.iYellow = esc||"[33;40m" /* ANSI.SYS-control for yellow foreground */ global.iCyan = esc||"[36;40m" /* ANSI.SYS-control for cyan foreground */ global.iNormal = esc||"[0;40m" /* ANSI.SYS-control for resetting attributes to normal */ global.iScrLength = LENGTH(global.iRedWhite) /* hint for options */ global.defaultHint = global.iCyan || "(" || global.iYellow || "default" || global.iCyan || ")" /* hint for default yes or no */ global.yesHint = global.iCyan || " (" || global.iYellow || "Y" || global.iCyan || "/N) " || global.iYellow global.noHint = global.iCyan || " (Y/" || global.iYellow || "N" || global.iCyan || ") " || global.iYellow /* get screen dimensions */ PARSE VALUE SysTextScreenSize() WITH row columns global.iRows = row global.iColumns = columns global.iBlankLine = global.iRedWhite || RIGHT("", columns - 1) || global.iCyan global.iNonPrintable = XRANGE("00"x, "1F"x) || D2C(255) global.iFilter = COPIES("FA"x, 256) /* define leadin for menus */ global.enterString = global.iCyan || "Enter:" global.iYellow || "1" || global.iCyan || "-" || global.iYellow /* define data-type strings */ global.dType.H = "[H]" global.dType.H.long = "hexadecimal" global.dType.A = "[A]" global.dType.A.long = "ASCII" global.dType.A0 = "[A0]" global.dType.A0.long = "ASCII delimited by \0" global.dType.F = "[F]" global.dType.longest = 4 /* length of "[A0]" */ /* define leadins for printout */ global.format.forTop = "Top " global.format.forTop.Length = LENGTH(global.format.forTop) global.format.forTop.LeadIn = COPIES(" ", global.format.forTop.Length) global.format.forKey = " Key " global.format.forKey.Length = LENGTH(global.format.forKey) global.format.forKey.LeadIn = COPIES(" ", global.format.forKey.Length) global.format.forVal = " Val " global.format.forVal.Length = LENGTH(global.format.forVal) global.format.forVal.LeadIn = COPIES(" ", global.format.forVal.Length) /* define information for Level of depth */ global.depthOfOutput.T = "TopLevels only" global.depthOfOutput.K = "TopLevels + Keys" global.depthOfOutput.V = "TopLevels + Keys + Key-Values" /* define information for range of printout */ global.rangeOfPrintout.AI = "ALL OS/2-INI-files in hand" global.rangeOfPrintout.AT = "ALL TopLevel-entries" global.rangeOfPrintout.AK = "ONE TopLevel-entry, ALL keys" global.rangeOfPrintout.K = "ONE Key" /* define information for output type, if hexadecimal value in hand */ global.hextypeOfOutput.H = "hexadecimal-string only" global.hextypeOfOutput.F = "filtered ASCII-string only" global.hextypeOfOutput.B = "both, hexadecimal- and filtered ASCII-string" /* get defaults from previous settings of user from USER ("OS2.INI") */ global.config.showTopLevel = "RGF Showini.cmd" /* TopLevel name for this application */ global.config.add.indTopLevel = 0 /* configuration defaults */ global.config.add.indKey = 0 /* configuration defaults */ global.config.change.indKey = 0 /* configuration defaults */ global.config.delete.indAllKeys = 0 /* configuration defaults */ global.config.delete.indKey = 0 /* configuration defaults */ global.config.move.indAllKeys = 0 /* configuration defaults */ global.config.move.indKey = 0 /* configuration defaults */ global.config.copy.indAllKeys = 0 /* configuration defaults */ global.config.copy.indKey = 0 /* configuration defaults */ CALL read_ini_settings /* read previous values from USER */ CALL check_option_set /* show configuration option ? */ /* Keys for backup-entries into USER resp. backup */ global.bkp.iOName = "backup.info1.origName" global.bkp.iBName = "backup.info2.bkpName" global.bkp.iTLentries = "backup.info3.# of TopLevels" global.bkp.iDTimeStart = "backup.info4.date/time.start" global.bkp.iDTimeEnd = "backup.info5.date/time.end" RETURN /* check whether configuration-option should be displayed */ CHECK_OPTION_SET: PROCEDURE EXPOSE global. /* if any of the options are set, show configuration option in first menu */ global.showConfigure = global.config.add.indTopLevel | global.config.add.indKey | global.config.change.indKey |, global.config.delete.indAllKeys | global.config.delete.indKey | global.config.move.indAllKeys |, global.config.move.indKey | global.config.copy.indAllKeys | global.config.copy.indKey RETURN /* read settings stored in OS2.INI and define default settings */ READ_INI_SETTINGS: PROCEDURE EXPOSE global. tmp = SysIni("USER", global.config.showTopLevel,"add.TopLevel") IF tmp <>"ERROR:" THEN global.config.add.indTopLevel = tmp tmp = SysIni("USER", global.config.showTopLevel,"add.Key") IF tmp <>"ERROR:" THEN global.config.add.indKey = tmp tmp = SysIni("USER", global.config.showTopLevel,"change.Key") IF tmp <>"ERROR:" THEN global.config.change.indKey = tmp tmp = SysIni("USER", global.config.showTopLevel,"delete.AllKeys") IF tmp <>"ERROR:" THEN global.config.delete.indAllKeys = tmp tmp = SysIni("USER", global.config.showTopLevel,"delete.Key") IF tmp <>"ERROR:" THEN global.config.delete.indKey = tmp tmp = SysIni("USER", global.config.showTopLevel,"move.AllKeys") IF tmp <>"ERROR:" THEN global.config.move.indAllKeys = tmp tmp = SysIni("USER", global.config.showTopLevel,"move.Key") IF tmp <>"ERROR:" THEN global.config.move.indKey = tmp tmp = SysIni("USER", global.config.showTopLevel,"copy.AllKeys") IF tmp <>"ERROR:" THEN global.config.copy.indAllKeys = tmp tmp = SysIni("USER", global.config.showTopLevel,"copy.Key") IF tmp <>"ERROR:" THEN global.config.copy.indKey = tmp tmp = SysIni("USER", global.config.showTopLevel, "showDepth") IF tmp <> "ERROR:" THEN global.config.showDepth = tmp ELSE global.config.showDepth = "K" /* default: TopLevels + Keys to show in output */ tmp = SysIni("USER", global.config.showTopLevel, "showHexAs") IF tmp <> "ERROR:" THEN global.config.showHexAs = tmp ELSE global.config.showHexAs = "H" /* default: show them as hexadecimal-string */ tmp = SysIni("USER", global.config.showTopLevel, "showLineLength") IF tmp <> "ERROR:" THEN global.config.showLineLength = tmp IF tmp = "ERROR:" | tmp < "40" THEN global.config.showLineLength = 120 global.old.config.add.indTopLevel = global.config.add.indTopLevel global.old.config.add.indKey = global.config.add.indKey global.old.config.change.indKey = global.config.change.indKey global.old.config.delete.indAllKeys = global.config.delete.indAllKeys global.old.config.delete.indKey = global.config.delete.indKey global.old.config.move.indAllKeys = global.config.move.indAllKeys global.old.config.move.indKey = global.config.move.indKey global.old.config.copy.indAllKeys = global.config.copy.indAllKeys global.old.config.copy.indKey = global.config.copy.indKey global.old.config.showDepth = global.config.showDepth global.old.config.showHexAs = global.config.showHexAs global.old.config.showLineLength = global.config.showLineLength RETURN /* write settings into OS2.INI, if values were changed */ WRITE_INI_SETTINGS: PROCEDURE EXPOSE global. IF global.old.config.add.indTopLevel <> global.config.add.indTopLevel THEN CALL SysIni"USER", global.config.showTopLevel,"add.TopLevel", global.config.add.indTopLevel IF global.old.config.add.indKey <> global.config.add.indKey THEN CALL SysIni"USER", global.config.showTopLevel,"add.Key", global.config.add.indKey IF global.old.config.change.indKey <> global.config.change.indKey THEN CALL SysIni"USER", global.config.showTopLevel,"change.Key", global.config.change.indKey IF global.old.config.delete.indAllKeys <> global.config.delete.indAllKeys THEN CALL SysIni"USER", global.config.showTopLevel,"delete.AllKeys", global.config.delete.indAllKeys IF global.old.config.delete.indKey <> global.config.delete.indKey THEN CALL SysIni"USER", global.config.showTopLevel,"delete.Key", global.config.delete.indKey IF global.old.config.move.indAllKeys <> global.config.move.indAllKeys THEN CALL SysIni"USER", global.config.showTopLevel,"move.AllKeys", global.config.move.indAllKeys IF global.old.config.move.indKey <> global.config.move.indKey THEN CALL SysIni"USER", global.config.showTopLevel,"move.Key", global.config.move.indKey IF global.old.config.copy.indAllKeys <> global.config.copy.indAllKeys THEN CALL SysIni"USER", global.config.showTopLevel,"copy.AllKeys", global.config.copy.indAllKeys IF global.old.config.copy.indKey <> global.config.copy.indKey THEN CALL SysIni"USER", global.config.showTopLevel,"copy.Key", global.config.copy.indKey IF global.old.config.showDepth <> global.config.showDepth THEN CALL SysIni "USER", global.config.showTopLevel, "showDepth", global.config.showDepth IF global.old.config.showHexAs <> global.config.showHexAs THEN CALL SysIni "USER", global.config.showTopLevel, "showHexAs", global.config.showHexAs IF global.old.config.showLineLength <> global.config.showLineLength THEN CALL SysIni "USER", global.config.showTopLevel, "showLineLength", global.config.showLineLength RETURN /* show argument, if any, & get yes/no answer */ GET_YES_NO: PROCEDURE EXPOSE global. IF ARG(1) <> "" THEN CALL CHAROUT , ARG(1) CALL CHAROUT , global.iYellow answer = get_answer("QYN") CALL CHAROUT , global.iCyan SELECT WHEN answer = "Q" THEN SIGNAL halt WHEN answer = "1B"x THEN RETURN 0 /* abort module */ WHEN answer = "" THEN NOP /* do not change value */ OTHERWISE INTERPRET ARG(2) " = (answer = 'Y')" END RETURN 1 /* everything went o.k. */ /* allow changing the settings for menus */ SETTINGS_MENU: PROCEDURE EXPOSE global. SAY SAY SAY "Settings for menu abilities:" SAY tmp = "Allow adding a new TopLevel entry ?" IF global.config.add.indTopLevel THEN tmp = tmp global.yesHint ELSE tmp = tmp global.noHint IF \get_yes_no(tmp, "global.config.add.indTopLevel") THEN RETURN SAY tmp = "Allow deleting ALL Keys in a TopLevel (= deleting a TopLevel) ?" IF global.config.delete.indAllKeys THEN tmp = tmp global.yesHint ELSE tmp = tmp global.noHint IF \get_yes_no(tmp, "global.config.delete.indAllKeys") THEN RETURN tmp = "Allow moving ALL Keys to another TopLevel ?" IF global.config.move.indAllKeys THEN tmp = tmp global.yesHint ELSE tmp = tmp global.noHint IF \get_yes_no(tmp, "global.config.move.indAllKeys") THEN RETURN tmp = "Allow copying ALL Keys to another TopLevel ?" IF global.config.copy.indAllKeys THEN tmp = tmp global.yesHint ELSE tmp = tmp global.noHint IF \get_yes_no(tmp, "global.config.copy.indAllKeys") THEN RETURN SAY tmp = "Allow adding a new Key entry ?" IF global.config.add.indKey THEN tmp = tmp global.yesHint ELSE tmp = tmp global.noHint IF \get_yes_no(tmp, "global.config.add.indKey") THEN RETURN tmp = "Allow deleting a single Key ?" IF global.config.delete.indKey THEN tmp = tmp global.yesHint ELSE tmp = tmp global.noHint IF \get_yes_no(tmp, "global.config.delete.indKey") THEN RETURN tmp = "Allow moving a single Key ?" IF global.config.move.indKey THEN tmp = tmp global.yesHint ELSE tmp = tmp global.noHint IF \get_yes_no(tmp, "global.config.move.indKey") THEN RETURN tmp = "Allow copying a single Key ?" IF global.config.copy.indKey THEN tmp = tmp global.yesHint ELSE tmp = tmp global.noHint IF \get_yes_no(tmp, "global.config.copy.indKey") THEN RETURN tmp = "Allow changing (editing) a Key value ?" IF global.config.change.indKey THEN tmp = tmp global.yesHint ELSE tmp = tmp global.noHint IF \get_yes_no(tmp, "global.config.change.indKey") THEN RETURN RETURN /* allow changing the settings for printout */ SETTINGS_PRINTOUT: PROCEDURE EXPOSE global. SAY SAY "Settings for formatting the printout:" SAY /* how much information should be produced ? */ SAY global.iCyan || "How much information to include in output:" global.iYellow SAY choice = "" tmp = " " global.iYellow || "T" global.iCyan global.depthOfOutput.T IF global.config.showDepth = "T" THEN tmp = tmp global.defaultHint SAY tmp /* if no previous preferences, then this is the default */ tmp = " " global.iYellow || "K" global.iCyan global.depthOfOutput.K IF global.config.showDepth = "K" THEN tmp = tmp global.defaultHint SAY tmp tmp = " " global.iYellow || "V" global.iCyan global.depthOfOutput.V IF global.config.showDepth = "V" THEN tmp = tmp global.defaultHint SAY tmp SAY " " global.iCyan || " [Esc] to return" /* define choices and get answer from user */ CALL CHAROUT , global.iYellow answer = get_answer(choice || "TKVQ") CALL CHAROUT , global.iCyan SELECT WHEN answer = "1B"x THEN RETURN /* Escape was pressed */ WHEN answer = "Q" THEN SIGNAL halt WHEN answer = "" THEN NOP /* do not change present setting */ OTHERWISE global.config.showDepth = answer END /* should hex value be presented additionally with a filtered ASCII-string ? */ SAY global.iCyan || "hexadecimal values should be showed as:" SAY tmp = " " global.iYellow || "H" global.iCyan global.hextypeOfOutput.H IF global.config.showHexAs = "H" THEN tmp = tmp global.defaultHint SAY tmp tmp = " " global.iYellow || "F" global.iCyan global.hextypeOfOutput.F IF global.config.showHexAs = "F" THEN tmp = tmp global.defaultHint SAY tmp tmp = " " global.iYellow || "B" global.iCyan global.hextypeOfOutput.B IF global.config.showHexAs = "B" THEN tmp = tmp global.defaultHint SAY tmp SAY " " global.iCyan || " [Esc] to return" /* define choices and get answer from user */ CALL CHAROUT , global.iYellow answer = get_answer("HFBQ") CALL CHAROUT , global.iCyan SELECT WHEN answer = "1B"x THEN RETURN WHEN answer = "" THEN NOP WHEN answer = "Q" THEN SIGNAL halt OTHERWISE global.config.showHexAs = answer /* assign new value */ END /* get desired line-length */ DO FOREVER SAY global.iCyan || "How many characters per line (" || global.iYellow || global.config.showLineLength || global.iCyan "default, 40 minimum) ? " global.iYellow /* define choices and get answer from user */ CALL CHAROUT , global.iYellow answer = get_answer("Q", "999999") CALL CHAROUT , global.iCyan SELECT WHEN answer = "Q" THEN SIGNAL halt WHEN answer = "1B"x THEN RETURN WHEN answer = "" THEN LEAVE /* do not change setting */ OTHERWISE IF answer >= 40 THEN /* minimum line-length >= 40 characters */ DO global.config.showLineLength = answer /* new value */ LEAVE END END SAY CALL error_msg "A minimum line-length of 40 characrters is required !", "come back" SAY SAY "please retry." SAY END RETURN /* determine largest entry */ LARGEST_GENERIC: PROCEDURE EXPOSE global. stemIni. stemTopLevel. stemKey. largest = 0 dynCode = "DO i = 1 TO" ARG(1) || ".0;" dynCode = dynCode "largest = MAX(largest, LENGTH(" ARG(1) || ".i));" dynCode = dynCode "END;" dynCode = dynCode ARG(1) || ".iLargest = MIN(largest, (global.iColumns - (2+ LENGTH(" || ARG(1) || ".0))))" INTERPRET dynCode /* execute REXX-code in variable dynCode */ RETURN /* display stem-contents on screen */ SHOW_GENERIC: PROCEDURE EXPOSE global. stemIni. stemTopLevel. stemKey. stemName = ARG(1) tmpANSILength = global.iScrLength * 2 /* length of the two ANSI-color control chars */ dyncode = "nrLength = LENGTH(" || stemName || ".0);" dyncode = dyncode "columns = global.iColumns % (" || stemName || ".iLargest + nrLength + 2);" dyncode = dyncode "IF columns < 1 THEN columns = 1;" dynCode = dyncode "j = (" || stemName || ".0 + columns - 1) % columns;" dynCode = dynCode "DO i = 1 TO j;" dynCode = dynCode " tmp = '';" dynCode = dynCode " DO k = 1 TO columns;" /* m = (i - 1) * columns + k /* order in lines */ */ dynCode = dynCode " m = (k - 1) * j + i;" dynCode = dynCode " IF " stemName || ".m <> '' THEN;" dynCode = dynCode " tmp = tmp LEFT((global.iCyan || RIGHT(m, nrLength) global.iYellow || "stemName ||".m), (" stemName || ".iLargest + nrLength + 1 + tmpANSILength));" dynCode = dynCode " END;" dynCode = dynCode " CALL CHAROUT , tmp;" dynCode = dyncode " IF (LENGTH(tmp) - tmpANSILength * columns) < global.iColumns THEN SAY;" dynCode = dyncode "END" INTERPRET dynCode RETURN /* one of Knuth's algorithms to sort ARG(1) ... stemname of array to sort ARG(2) ... optional, if given, exact comparison (no forced uppercase), taking leading and trailing blanks into account */ SORT_GENERIC: PROCEDURE EXPOSE stemIni. stemTopLevel. stemKey. stemTargetTopLevel. stemTargetKey. /* define M for passes, build REXX-code */ dynCode = "M = 1; DO WHILE (9 * M + 4) <" ARG(1) || ".0 ; M = M * 3 + 1; END" INTERPRET dynCode /* execute REXX-code in variable dynCode */ /* sort stem, build REXX-code */ dynCode = "DO WHILE M > 0; K = " ARG(1) || ".0 - M; DO J = 1 TO K; Q = J;" dynCode = dynCode "DO WHILE Q > 0; L = Q + M;" IF ARG() < 2 THEN /* uppercase comparison, ignore leading and trailing blanks */ dynCode = dynCode "IF TRANSLATE(" || ARG(1) || ".Q) <= TRANSLATE(" || ARG(1) || ".L) THEN LEAVE;" ELSE /* exact comparison */ dynCode = dynCode "IF" ARG(1) || ".Q <<=" ARG(1) || ".L THEN LEAVE;" dynCode = dynCode "tmp =" ARG(1) || ".Q; tmp.origValue =" ARG(1) || ".Q.origValue;" dynCode = dynCode "tmp.type =" ARG(1) || ".Q.type; tmp.filterValue =" ARG(1) || ".Q.filterValue;" dynCode = dynCode ARG(1) || ".Q =" ARG(1) || ".L;" ARG(1) || ".Q.origValue =" ARG(1) || ".L.origValue;" dynCode = dynCode ARG(1) || ".Q.type =" ARG(1) || ".L.type;" ARG(1) || ".Q.filterValue =" ARG(1) || ".L.filterValue;" dynCode = dynCode ARG(1) || ".L = tmp;" ARG(1) || ".L.origValue = tmp.origValue;" dynCode = dynCode ARG(1) || ".L.type = tmp.type;" ARG(1) || ".L.filterValue = tmp.filterValue;" dynCode = dynCode "Q = Q - M; END; END; M = M % 3; END" INTERPRET dynCode /* execute REXX-code in variable dynCode */ RETURN /* get answer from user, if a 3rd argument is supplied, then force an entry ARG(1) ... string of valid letters ARG(2) ... upper bound of an arithmetic value ARG(3) ... if given, force user to enter at least one character */ GET_ANSWER: PROCEDURE EXPOSE global. validLetters = ARG(1) upperBound = ARG(2) /* 0 - upperBound */ i = 0 answer = "" DO FOREVER tmp = TRANSLATE(SysGetKey("noecho")) IF tmp = "0D"x THEN /* CR-was pressed */ DO IF ARG(3) = "" | i > 0 THEN LEAVE CALL BEEP 2000, 250 ITERATE END IF tmp = "1B"x THEN /* Escape was pressed */ DO answer = tmp LEAVE END IF tmp = "08"x THEN /* Backspace was pressed */ DO IF i = 0 THEN /* already at first position */ DO CALL BEEP 2000, 250 ITERATE END CALL CHAROUT , tmp /* backspace */ CALL CHAROUT , " " /* erase character */ CALL CHAROUT , tmp i = i - 1 IF i = 0 THEN answer = "" /* adjust value of answer */ ELSE answer = SUBSTR(answer, 1, i) ITERATE END IF POS(tmp, validLetters) > 0 THEN DO IF answer = "" THEN DO answer = tmp CALL CHAROUT , answer LEAVE END CALL BEEP 2000, 250 ITERATE END IF upperBound <> "" THEN DO IF i = 0 THEN DO IF POS(tmp, "0123456789") > 0 & tmp <= upperBound THEN DO CALL CHAROUT , tmp answer = tmp i = i + 1 IF answer = 0 | LENGTH(upperBound) = 1 | (answer || "0" > upperBound) THEN LEAVE ITERATE END END ELSE DO IF POS(tmp, "0123456789") > 0 THEN DO IF answer || tmp <= upperBound THEN DO CALL CHAROUT , tmp answer = answer || tmp i = i + 1 IF LENGTH(answer) = LENGTH(upperBound) | (answer || "0" > upperBound) THEN LEAVE ITERATE END END END END CALL BEEP 2000, 250 END SAY RETURN answer /* supply defaults */ INI_DEFAULT: PROCEDURE EXPOSE stemIni. global. DROP stemIni. stemIni. = "" IF ARG(1) = "1" THEN /* show user INI-names themselves */ DO stemIni.1 = "USER (OS2.INI)" /* OS2.INI */ stemIni.2 = "SYSTEM (OS2SYS.INI)"/* OS2SYS.INI */ END ELSE DO stemIni.1 = "USER" /* OS2.INI */ stemIni.2 = "SYSTEM" /* OS2SYS.INI */ END stemIni.0 = 2 /* number of elements in array */ /* /* debug */ stemIni.3 = "D:\work\klondike.ini" stemIni.0 = 3 */ CALL largest_generic("stemIni") RETURN SEARCH_INI: PROCEDURE EXPOSE global. stemIni. SAY SAY global.iCyan || "Enter:" SAY SAY " " global.iYellow "1" global.iCyan " to scan all attached drives" global.defaultHint SAY " " global.iYellow "2" global.iCyan " to scan all local drives" SAY " " global.iYellow "3" global.iCyan " to scan remote drives" SAY " " global.iYellow "->" global.iCyan 'or any valid drive letter from "' || global.iYellow || 'A' || global.iCyan || '"-"' || global.iYellow || 'Z' || global.iCyan || '"' /* allow for choices 1-3 and drive letters A-Z */ CALL CHAROUT , global.iYellow answer = get_answer("123ABCDEFGHIJKLMNOPQRSTUVWXYZ") CALL CHAROUT , global.iCyan SELECT WHEN answer = "1B"x THEN /* user aborted, return unchanged array */ RETURN WHEN answer = "1" | answer = "" THEN map = SysDriveMap(, "USED") /* get a list of all used drives */ WHEN answer = "2" THEN map = SysDriveMap(, "LOCAL") /* get a list of all local drives */ WHEN answer = "3" THEN map = SysDriveMap(, "REMOTE") /* get a list of all remote drives */ OTHERWISE map = answer || ":" /* drive - letter */ END /* drop existing array */ DROP stemIni. stemIni. = "" stemIni.0 = 0 DO WHILE map <> "" PARSE VAR map drive map SAY "scanning drive" global.iYellow ||drive||global.iCyan "for accessible INI-files..." CALL SysFileTree drive || "\*.ini", "file", "FSO" DO i = 1 TO file.0 /* check whether accessible from OS/2, i.e. an OS/2 INI-file */ ok = SysIni(file.i, 'ALL:', 'TopLevel') IF ok <> "ERROR:" & TopLevel.0 > 0 THEN DO SAY " file" global.iYellow || file.i || global.iCyan "found..." stemIni.0 = stemIni.0 + 1 j = stemIni.0 stemIni.j = file.i END END SAY END CALL largest_generic("stemIni") RETURN /* Display INI-files which are accessible */ SHOW_INIS: PROCEDURE EXPOSE global. stemIni. stemTopLevel. stemKey. stemIni.0 = 0 /* no INI-files initially, setup */ DO FOREVER IF WORD(stemIni.1, 1) = "USER" | stemIni.0 = 0 THEN CALL ini_default("1") /* show file-names of system-INIs */ SAY SAY global.iRedWhite || CENTER("accessible OS/2-INI-files", global.iColumns) || global.iCyan SAY SAY global.iCyan'The following' global.iYellow || stemIni.0 global.iCyan'OS/2 INI-files are accessible:' SAY CALL show_generic "stemIni" /* show stem contents */ IF WORD(stemIni.1, 1) = "USER" THEN /* if initial settings, then */ CALL ini_default /* get symbolic-names only for RxUtils-functions */ SAY tmp = global.enterString || stemIni.0 global.iCyan || 'to view INI-file,', global.iYellow || '0' || global.iCyan 'to end;', global.iYellow || 's' || global.iCyan || 'can drive[s] for INI-files,', global.iYellow || 'p' || global.iCyan || 'rint all INI-files' IF global.showConfigure THEN /* show configuration option ? */ tmp = tmp || ", " || global.iYellow || 'c' || global.iCyan || 'onfigure' SAY tmp /* define choices and upper numeric boundary and get answer from user */ CALL CHAROUT , global.iYellow answer = get_answer("PQCS", stemIni.0) CALL CHAROUT , global.iCyan SAY SELECT WHEN answer = "" | answer = 0 | answer = "1B"x THEN LEAVE WHEN answer = "Q" THEN SIGNAL halt WHEN answer = "C" THEN /* configure program */ DO CALL settings_printout CALL settings_menu CALL check_option_set /* show configuration option ? */ END WHEN answer = 'S' THEN /* search for all OS/2-INI-files */ CALL search_ini WHEN answer = 'P' THEN /* print all OS/2-INI-files */ CALL print OTHERWISE /* display top-levels of chosen INI-file */ DO CALL show_toplevel answer SAY END END SAY SAY END SAY global.iNormal RETURN /* read TopLevel-entries */ READ_TOPLEVEL: PROCEDURE EXPOSE stemIni. stemTopLevel. stemKey. global. DROP stemTopLevel. stemTopLevel. = "" iIni = ARG(1) ok = SysIni(stemIni.iIni, 'ALL:', 'stemTopLevel') IF ok = "ERROR:" THEN DO stemTopLevel.0 = 0 END ELSE DO i = 1 TO stemTopLevel.0 CALL check_value stemTopLevel.i /* determine and prepare value in hand */ stemTopLevel.i.origValue = stemTopLevel.i stemTopLevel.i = strings.displayValue stemTopLevel.i.type = strings.type stemTopLevel.i.filterValue = strings.filterValue END CALL largest_generic("stemTopLevel") RETURN /* ask for new TopLevel-name, return name, if it does not exist, NULL-string if it exists */ CREATE_NEW_TOPLEVEL: PROCEDURE EXPOSE global. stemIni. iniName = VALUE("stemIni." || ARG(1)) PARSE VALUE edit_value("A", "new Top-Level-name ('Application'):", , "H A", "Enter new Top-Level-Name") WITH tmpState tmpResult IF tmpState = "NOK" THEN RETURN "" /* user aborted entry */ /* check whether Top-Level exists already */ ok = SysIni(iniName, tmpResult, 'ALL:', 'stemKey') IF ok <> "ERROR:" THEN DO CALL check_value tmpResult CALL error_msg "TopLevel:" || global.iCyan "[" || global.iYellow || strings.displayValue || global.iCyan || "]" global.iRedWhite || "exists already !" RETURN "" END RETURN tmpResult /* ask for new Key-name, return name, if it does not exist, NULL-string if it exists */ CREATE_NEW_KEY: PROCEDURE EXPOSE global. stemIni. stemTopLevel. iniName = ARG(1) /* INI-name */ topName = ARG(2) /* Top Level name */ PARSE VALUE edit_value("A", "new Key-name:", , "H A", "Enter new Key-Name") WITH tmpState tmpResult IF tmpState = "NOK" THEN RETURN "" /* user aborted entry */ /* check whether Key exists already */ ok = SysIni(iniName, topName, tmpResult) IF ok <> "ERROR:" THEN DO CALL check_value tmpResult CALL error_msg "Key:" || global.iCyan "[" || global.iYellow || strings.displayValue || global.iCyan || "]" global.iRedWhite || "exists already !" RETURN "" END RETURN tmpResult /* Display TOPLEVEL-entries of chosen INI-file */ SHOW_TOPLEVEL: PROCEDURE EXPOSE global. stemIni. stemTopLevel. stemKey. iIni = ARG(1) filename = stemIni.iIni CALL read_toplevel(iIni) /* read all toplevel-entries */ global.TopLSortState = "U" /* unsorted */ DO FOREVER IF stemTopLevel.0 = 0 THEN DO END SAY SAY global.iRedWhite || CENTER("available TopLevel-entries (Application entries)", global.iColumns) || global.iCyan SAY SAY global.iCyan'INI-file:' global.iYellow ||filename SAY SAY global.iCyan'The following' global.iYellow||stemTopLevel.0 global.iCyan'TopLevel entries are available:' SAY CALL show_generic "stemTopLevel" /* show stem contents */ SAY choices = "CPSUQ" /* define choices */ tmp = global.enterString || stemTopLevel.0 global.iCyan || 'to view TopLevel-entries,', global.iYellow || '0' || global.iCyan 'to return;' IF global.config.add.indTopLevel THEN DO tmp = tmp global.iYellow || 'a' || global.iCyan || 'dd,' choices = choices || "A" /* add the adding choice */ END tmp = tmp global.iYellow || 's' || global.iCyan || 'ort,', global.iYellow || 'u' || global.iCyan || 'nsort,', global.iYellow || 'p' || global.iCyan || 'rint' SAY tmp /* define choices and upper numeric boundary and get answer from user */ CALL CHAROUT , global.iYellow answer = get_answer(choices, stemTopLevel.0) CALL CHAROUT , global.iCyan SAY SELECT WHEN answer = "" | answer = 0 | answer = "1B"x THEN LEAVE WHEN answer = "Q" THEN SIGNAL halt WHEN answer = 'P' THEN /* print all TopLevel-entries */ DO CALL print iIni /* all TopLevel-entries will be sorted */ IF global.TopLSortState = "U" THEN CALL read_toplevel(iIni) /* reread all toplevel-entries */ END WHEN answer = "C" THEN /* configure program */ DO CALL settings_printout CALL settings_menu CALL check_option_set /* show configuration option ? */ END WHEN answer = 'S' THEN /* sort TopLevel-entries */ DO CALL sort_generic "stemTopLevel" global.TopLSortState = "S" END WHEN answer = 'U' THEN /* unsort TopLevel-entries, i.e. reread */ DO CALL read_toplevel(iIni) /* read all toplevel-entries */ global.TopLSortState = "U" END WHEN answer = "A" THEN /* add a new key-entry */ DO newTopLevel = create_new_toplevel(iIni) IF newTopLevel = "" THEN ITERATE /* no entry, or exists already */ CALL check_value newTopLevel newTopLevel.displayValue = strings.displayValue SAY SAY "new Top-Level:" global.iRedWhite || newTopLevel.displayValue || global.iCyan SAY newKey = create_new_key(stemIni.iIni, newTopLevel) IF newKey = "" THEN ITERATE /* no entry, or exists already */ SAY SAY "new Top-Level:" global.iRedWhite || newTopLevel.displayValue || global.iCyan SAY CALL check_value newKey newKey.displayValue = strings.displayValue PARSE VALUE edit_value("A", "new value for Key:" global.iRedWhite || newKey.displayValue || global.iCyan, , , "Enter new Key-Value") WITH tmpState tmpResult IF tmpState = "NOK" THEN ITERATE newKeyValue = tmpResult val = SysIni(stemIni.iIni, newTopLevel, newKey, newKeyValue) CALL read_toplevel(iIni) /* read all toplevel-entries */ IF global.TopLSortState = "S" THEN CALL sort_generic "stemTopLevel" END OTHERWISE /* show keys of chosen TopLevel */ DO IF show_key(ARG(1), answer) THEN DO CALL read_toplevel(iIni) /* read all toplevel-entries */ IF global.TopLSortState = "S" THEN CALL sort_generic "stemTopLevel" END SAY END END SAY END SAY global.iNormal RETURN /* copy keys to another TopLevel */ COPY_KEYS: PROCEDURE EXPOSE global. stemIni. stemTopLevel. stemKey. iIni = ARG(1) /* OS/2-ini file */ iTopL = ARG(2) /* index into stemTopLevel */ all_keys = ARG(3) /* true if all keys to be copied, else false */ iKey = ARG(4) /* index into stemKey., if only one key is to be copied */ dirty = 0 /* reread TopLevel entries, if one was added as a target */ SAY DO FOREVER tmp = "copy" IF all_keys THEN tmp = tmp "ALL keys ... " ELSE tmp = tmp "key ... " SAY global.iRedWhite SAY tmp SAY global.iRedWhite || CENTER("available TopLevel-entries (Application entries)", global.iColumns) || global.iCyan SAY SAY global.iCyan'INI-file:' global.iYellow || stemIni.iIni SAY global.iCyan'TopLevel:' global.iYellow || stemTopLevel.iTopL IF \all_keys THEN /* single key, show it */ DO SAY global.iCyan' Key:' global.iYellow || stemKey.iKey END SAY SAY global.iCyan'The following' global.iYellow||stemTopLevel.0 global.iCyan'TopLevel entries are available:' SAY CALL show_generic "stemTopLevel" /* show stem contents */ SAY tmp = global.iCyan || "Enter the TopLevel you wish to" global.iYellow|| "copy" || global.iCyan "to:", global.iYellow || "1" || global.iCyan || "-" ||, global.iYellow|| stemTopLevel.0 global.iCyan || 'to identify target TopLevel,', global.iYellow || '0' || global.iCyan 'to return;', global.iYellow || 'c' || global.iCyan || 'reate new TopLevel' SAY tmp /* define choices and upper numeric boundary and get answer from user */ CALL CHAROUT , global.iYellow answer = get_answer("CQ", stemTopLevel.0) CALL CHAROUT , global.iCyan SAY SELECT WHEN answer = "" | answer = 0 | answer = "1B"x THEN LEAVE WHEN answer = "Q" THEN SIGNAL halt WHEN answer = "C" THEN /* create new TopLevel */ DO newTopLevel = create_new_toplevel(iIni) IF newTopLevel = "" THEN ITERATE /* no entry, or exists already */ CALL check_value newTopLevel SAY SAY "new Top-Level:" global.iRedWhite || strings.displayValue || global.iCyan SAY targetTopLevel = newTopLevel dirty = 1 /* reread TopLevels */ END WHEN answer = iTopL THEN /* target same as source ? */ DO CALL error_msg "Target TopLevel:" || global.iCyan "[" || global.iYellow || stemTopLevel.iTopL || global.iCyan || "]" global.iRedWhite || "same as source TopLevel !" ITERATE END OTHERWISE targetTopLevel = stemTopLevel.answer.origValue END /* copy keys to TopLevel */ SAY global.iCyan || "Copying keys into TopLevel [" || global.iYellow || stemTopLevel.answer || global.iCyan || "] ..." DO i = 1 TO stemKey.0 IF \all_keys THEN i = iKey /* assign key-index */ val = SysIni(stemIni.iIni, stemTopLevel.iTopL.origValue, stemKey.i.origValue) CALL SysIni stemIni.iIni, targetTopLevel, stemKey.i.origValue, val SAY global.iCyan"Key: [" || global.iYellow || stemKey.i || global.iCyan || "] copied." IF \all_keys THEN LEAVE /* leave loop prematurely */ END LEAVE END RETURN dirty /* move keys to another TopLevel, if only one key, then allow for renaming it */ MOVE_KEYS: PROCEDURE EXPOSE global. stemIni. stemTopLevel. stemKey. iIni = ARG(1) /* OS/2-ini file */ iTopL = ARG(2) /* index into stemTopLevel */ all_keys = ARG(3) /* true if all keys to be moved, else false */ iKey = ARG(4) /* index into stemKey., if only one key is to be moved */ TopLevelCreated = 0 /* was a new TopLevel created ? */ KeyMoved = 0 /* was a key moved ? */ SAY DO FOREVER tmp = "move" IF all_keys THEN tmp = tmp "ALL keys ... " ELSE tmp = tmp "key ... " SAY global.iRedWhite SAY tmp SAY global.iRedWhite || CENTER("available TopLevel-entries (Application entries)", global.iColumns) || global.iCyan SAY SAY global.iCyan'INI-file:' global.iYellow || stemIni.iIni SAY global.iCyan'TopLevel:' global.iYellow || stemTopLevel.iTopL IF \all_keys THEN /* single key, show it */ DO SAY global.iCyan' Key:' global.iYellow || stemKey.iKey END SAY SAY global.iCyan'The following' global.iYellow||stemTopLevel.0 global.iCyan'TopLevel entries are available:' SAY CALL show_generic "stemTopLevel" /* show stem contents */ SAY choices = "CQ" tmp = global.iCyan || "Enter the TopLevel you wish to" global.iYellow|| "move" IF all_keys THEN tmp = tmp || global.iCyan "these keys to:" ELSE tmp = tmp || global.iCyan "the key to:" tmp = tmp global.iYellow || "1" || global.iCyan || "-" ||, global.iYellow|| stemTopLevel.0 global.iCyan || 'to identify target TopLevel,', global.iYellow || '0' || global.iCyan 'to return;' IF \all_keys THEN DO tmp = tmp global.iYellow || 'r' || global.iCyan || 'ename key,' choices = choices || "R" END tmp = tmp global.iYellow || 'c' || global.iCyan || 'reate new TopLevel' SAY tmp /* define choices and upper numeric boundary and get answer from user */ CALL CHAROUT , global.iYellow answer = get_answer(choices, stemTopLevel.0) CALL CHAROUT , global.iCyan SAY SELECT WHEN answer = "" | answer = 0 | answer = "1B"x THEN LEAVE WHEN answer = "Q" THEN SIGNAL halt WHEN answer = "R" THEN /* just rename present key */ DO PARSE VALUE edit_value("E", stemKey.iKey, , "H A", "Enter new Key-Name") WITH tmpState tmpResult IF tmpState = "NOK" | tmpResult = "" THEN RETURN TopLevelCreated newKey = tmpResult CALL check_value newKey END WHEN answer = "C" THEN /* create new TopLevel */ DO newTopLevel = create_new_toplevel(iIni) IF newTopLevel = "" THEN ITERATE /* no entry, or exists already */ CALL check_value newTopLevel SAY SAY "new Top-Level:" global.iRedWhite || strings.displayValue || global.iCyan SAY targetTopLevel = newTopLevel targetTopLevel.displayValue = strings.displayValue TopLevelCreated = 1 END WHEN answer = iTopL THEN /* target same as source ? */ DO CALL error_msg "Target TopLevel:" || global.iCyan "[" || global.iYellow || stemTopLevel.iTopL || global.iCyan || "]" global.iRedWhite || "same as source TopLevel !" ITERATE END OTHERWISE DO targetTopLevel = stemTopLevel.answer.origValue targetTopLevel.displayValue = stemTopLevel.answer END END /* move keys to target TopLevel */ IF answer <> "R" THEN /* regular move */ DO SAY global.iCyan || "Moving keys into TopLevel [" || global.iYellow || targetTopLevel.displayValue || global.iCyan || "] ..." DO i = 1 TO stemKey.0 IF \all_keys THEN i = iKey /* move key in hand */ PARSE VALUE call_move_keys(stemIni.iIni, stemTopLevel.iTopL.origValue, targetTopLevel,, stemKey.i.origValue, stemKey.i), WITH TopSuccess keySuccess TopLevelCreated = TopLevelCreated | TopSuccess KeyMoved = KeyMoved | keySuccess IF \all_keys THEN LEAVE END END ELSE /* rename single key */ DO /* move key in hand */ i = iKey PARSE VALUE call_move_keys(stemIni.iIni,, stemTopLevel.iTopl.origValue, stemTopLevel.iTopl.origValue,, stemKey.i.origValue, strings.displayValue, newKey), WITH TopLevelCreated keySuccess END IF KeyMoved THEN /* at least one key was moved, reread keys into stemKey. */ DO CALL read_key iIni, iTopL IF global.KeySortState = "S" THEN /* resort */ CALL sort_generic "stemKey" RETURN TopLevelCreated END LEAVE END RETURN 0 /* no move took place, therefore no new TopLevel was created */ /* do the actual move-operation */ CALL_MOVE_KEYS: PROCEDURE EXPOSE global. iniFile = ARG(1) /* OS/2-INI-file */ sourceTopLevel = ARG(2) /* source */ targetTopLevel = ARG(3) /* target */ sourceKey = ARG(4) /* key */ sourceKeyDisplay = ARG(5) /* displayable string for key-name */ TopLevelCreated = 0 IF ARG() = 6 THEN /* only given, if a single key-move within the same target (rename of a key) */ targetKey = ARG(6) ELSE DO targetKey = sourceKey /* move to a different place, but leave key-name unchanged */ TopLevelCreated = 1 /* expect a succesful move into a new directory */ END KeyMoved = 1 /* expect a successful move */ /* present value of key */ val1 = SysIni(iniFile, sourceTopLevel, sourceKey) /* value of key in target, if it exists */ val2 = SysIni(iniFile, targetTopLevel, targetKey) IF val2 <> "ERROR:" THEN /* key exists in target ! */ DO CALL error_msg "Key:" || global.iCyan "[" || global.iYellow || sourceKeyDisplay || global.iCyan || "]" global.iRedWhite || "exists already, not moved.", "no wait" TopLevelCreated = 0 KeyMoved = 0 END ELSE DO /* create new key */ CALL SysIni iniFile, targetTopLevel, targetKey, val1 /* delete original key */ CALL SysIni iniFile, sourceTopLevel, sourceKey, "DELETE:" SAY global.iCyan"Key: [" || global.iYellow || sourceKeyDisplay || global.iCyan || "] moved." END RETURN TopLevelCreated KeyMoved /* read KEY-entries */ READ_KEY: PROCEDURE EXPOSE stemIni. stemTopLevel. stemKey. global. strings. DROP stemKey. stemKey. = "" iIni = ARG(1) iTopL = ARG(2) ok = SysIni(stemIni.iIni, stemTopLevel.iTopL.origValue, 'ALL:', 'stemKey') IF ok = "ERROR:" THEN DO stemKey.0 = 0 END ELSE DO i = 1 TO stemKey.0 CALL check_value stemKey.i /* determine and prepare value in hand */ stemKey.i.origValue = stemKey.i stemKey.i = strings.displayValue stemKey.i.type = strings.type stemKey.i.filterValue = strings.filterValue END CALL largest_generic("stemKey") RETURN /* Display KEY-entries of chosen INI-file */ SHOW_KEY: PROCEDURE EXPOSE global. stemIni. stemTopLevel. stemKey. iIni = ARG(1) iTopL = ARG(2) filename = stemIni.iIni TopLevel = stemTopLevel.iTopL CALL read_key iIni, iTopL global.KeySortState = "U" /* unsorted */ dirty = 0 /* everything o.k., no need to reread TopLevel */ DO FOREVER IF stemKey.0 = 0 THEN RETURN "1" /* no keys left, reread Top-Level entries */ SAY SAY global.iRedWhite || CENTER("available keys", global.iColumns) || global.iCyan SAY SAY global.iCyan'INI-file:' global.iYellow filename SAY global.iCyan'TopLevel:' global.iYellow TopLevel SAY SAY global.iCyan'The following' global.iYellow||stemKey.0 global.iCyan'Key entries are available:' SAY CALL show_generic "stemKey" /* show stem contents */ SAY choices = "PSUQ" /* define choices */ tmp = global.enterString || stemKey.0 global.iCyan || 'to view Key-value,', global.iYellow || '0' || global.iCyan 'to return;' IF global.config.add.indKey THEN DO tmp = tmp global.iYellow || 'a' || global.iCyan || 'dd,' choices = choices || "A" END IF global.config.delete.indAllKeys THEN DO tmp = tmp global.iYellow || 'd' || global.iCyan || 'elete ALL,' choices = choices || "D" END IF global.config.move.indAllKeys THEN DO tmp = tmp global.iYellow || 'm' || global.iCyan || 'ove ALL,' choices = choices || "M" END IF global.config.copy.indAllKeys THEN DO tmp = tmp global.iYellow || 'c' || global.iCyan || 'opy ALL,' choices = choices || "C" END tmp = tmp global.iYellow || 's' || global.iCyan || 'ort,', global.iYellow || 'u' || global.iCyan || 'nsort,', global.iYellow || 'p' || global.iCyan || 'rint' SAY tmp /* define choices and upper numeric boundary and get answer from user */ CALL CHAROUT , global.iYellow answer = get_answer(choices, stemKey.0) CALL CHAROUT , global.iCyan SAY SELECT WHEN answer = "" | answer = 0 | answer = "1B"x THEN LEAVE WHEN answer = "Q" THEN SIGNAL halt WHEN answer = 'P' THEN /* print all Key-entries of TopLevel */ DO CALL print iIni, iTopL IF global.KeySortState = "U" THEN /* reread all key-entries */ CALL read_key iIni, iTopL END WHEN answer = 'S' THEN /* sort key-entries */ DO CALL sort_generic "stemKey" global.KeySortState = "S" END WHEN answer = 'U' THEN /* unsort key-entries, i.e. reread them */ DO CALL read_key iIni, iTopL global.KeySortState = "U" END WHEN answer = "D" THEN /* delete all keys and TopLevel-entry */ DO CALL BEEP 2000, 250 CALL CHAROUT , global.iRedWhite || "Do you really wish to delete ALL KEYs ???" || global.noHint answer = get_answer("QYN") CALL CHAROUT , global.iCyan IF answer = "Q" THEN SIGNAL halt IF answer = "Y" THEN DO SAY global.iCyan || "Deleting ALL keys from TopLevel [" || global.iYellow || stemTopLevel.iTopL || global.iCyan || "] ..." val = SysIni(stemIni.iIni, stemTopLevel.iTopL.origValue, "DELETE:") SAY global.iCyan"done." RETURN "1" /* return to TopLevel-entries */ END END WHEN answer = "C" THEN /* copy all key entries to another TopLevel */ DO dirty = dirty | copy_keys(iIni, iTopL, "1") END WHEN answer = "M" THEN /* move all key entries to another TopLevel */ DO dirty = dirty | move_keys(iIni, iTopL, "1") END WHEN answer = "A" THEN /* add a new key-entry */ DO newKey = create_new_key(stemIni.iIni, stemTopLevel.iTopL.origValue) IF newKey = "" THEN ITERATE CALL check_value newKey newKey.displayValue = strings.displayValue PARSE VALUE edit_value("A", "new value for Key:" global.iRedWhite || newKey.displayValue || global.iCyan, , , "Enter new Key-Value") WITH tmpState tmpResult IF tmpState = "NOK" THEN ITERATE newKeyValue = tmpResult /* create new key */ val = SysIni(stemIni.iIni, stemTopLevel.iTopL.origValue, newKey, newKeyValue) CALL read_key iIni, iTopL /* reread keys */ IF global.KeySortState = "S" THEN CALL sort_generic "stemKey" END OTHERWISE /* display value of chosen key */ dirty = dirty | show_keyvalue(iIni, iTopL, answer) /* TopLevel created ? */ SAY END SAY END SAY global.iNormal RETURN dirty /* display value and allow for editing */ SHOW_KEYVALUE: PROCEDURE EXPOSE global. strings. stemIni. stemTopLevel. stemKey. iIni = ARG(1) iTopL = ARG(2) iKey = ARG(3) dirty = 0 /* change in key-names ? */ TopLevelCreated = 0 /* was a TopLevel created using copy, move ? */ filename = stemIni.iIni TopLevel = stemTopLevel.iTopL Key = stemKey.iKey val = SysIni(stemIni.iIni, stemTopLevel.iTopL.origValue, stemKey.iKey.origValue) CALL check_value val iType = strings.type /* type could be A, A0 or H */ value2show = strings.displayValue DO FOREVER SAY SAY global.iRedWhite || CENTER("key-value", global.iColumns) || global.iCyan SAY SAY global.iCyan'INI-file:' global.iYellow || filename SAY global.iCyan'TopLevel:' global.iYellow || TopLevel SAY global.iCyan' Key:' global.iYellow || Key global.iCyan SAY SAY "data type:" global.iYellow || global.dType.iType global.iCyan "(" ||, global.iYellow || global.dType.iType.long || global.iCyan || ")" SAY " value:" global.iNormal SAY global.iCyan || "[" || global.iYellow || value2show || global.iCyan || "]" SAY choices = "" SAY global.iCyan || "Enter:" SAY IF iType = "H" THEN DO choices = choices || "FH" SAY " " global.iYellow || "H" global.iCyan "to show value in hex-digits" SAY " " global.iYellow || "F" global.iCyan "to show filtered value" END IF global.config.change.indKey THEN DO SAY " " global.iYellow || "E" global.iCyan "to edit (change) key-value" choices = choices || "E" END IF global.config.delete.indKey THEN DO SAY " " global.iYellow || "D" global.iCyan "to delete key" choices = choices || "D" END IF global.config.move.indKey THEN DO SAY " " global.iYellow || "M" global.iCyan "to move/rename key" choices = choices || "M" END IF global.config.copy.indKey THEN DO SAY " " global.iYellow || "C" global.iCyan "to print key" choices = choices || "C" END SAY " " global.iYellow || "P" global.iCyan "to edit key-value" SAY " " global.iCyan || " [Esc] to return" /* define choices and get answer from user */ CALL CHAROUT , global.iYellow answer = get_answer(choices || "PQ") CALL CHAROUT , global.iCyan SELECT WHEN answer = "Q" THEN SIGNAL halt WHEN answer = "H" THEN value2show = strings.displayValue WHEN answer = 'P' THEN /* print the Key-value */ CALL print iIni, iTopL, iKey WHEN answer = "F" THEN value2show = strings.filterValue WHEN answer = "C" THEN /* copy key to another TopLevel */ DO TopLevelCreated = TopLevelCreated | copy_keys(iIni, iTopL, "0", iKey) END WHEN answer = "M" THEN /* move key to another TopLevel or rename it */ DO TopLevelCreated = TopLevelCreated | move_keys(iIni, iTopL, "0", iKey) dirty = 1 LEAVE END WHEN answer = "D" THEN /* delete key */ DO CALL BEEP 2000, 250 CALL CHAROUT , global.iRedWhite || "Do you really wish to delete this KEY ?" || global.noHint answer = get_answer("QYN") CALL CHAROUT , global.iCyan IF answer = "Q" THEN SIGNAL halt IF answer = "Y" THEN DO val = SysIni(stemIni.iIni, stemTopLevel.iTopL.origValue, stemKey.iKey.origValue, "DELETE:") dirty = 1 LEAVE END END WHEN answer = "E" THEN /* change key-value */ DO PARSE VALUE edit_value("E", val, , , "Enter new Key-Value") WITH tmpState tmpResult IF tmpState = "OK" THEN DO val = SysIni(stemIni.iIni, stemTopLevel.iTopL.origValue, stemKey.iKey.origValue, tmpResult) val = tmpResult END CALL check_value val iType = strings.type /* type could be A, A0 or H */ value2show = strings.displayValue choice = "" END OTHERWISE LEAVE END SAY END SAY IF dirty THEN /* was a key added, renamed/moved, deleted ? */ DO /* if so, reread keys */ CALL read_key iIni, iTopL IF global.KeySortState = "S" THEN /* resort keys */ CALL sort_generic "stemKey" END RETURN TopLevelCreated /* check data-type of argument and set up a structure containing different representations of it */ CHECK_VALUE: PROCEDURE EXPOSE global. strings. DROP strings. strings. = "" /* last character \0 ? */ IF SUBSTR(ARG(1), LENGTH(ARG(1)), 1) = "00"x THEN /* ASCIIZ ? */ DO work = SUBSTR(ARG(1), 1, LENGTH(ARG(1)) - 1) asciiz = "0" END ELSE DO work = ARG(1) asciiz = "" END ascii = (VERIFY(work, global.iNonPrintable, "Match") = 0) /* plain ASCII ? */ IF ascii THEN /* ASCII-type value in hand */ DO IF asciiz = "0" THEN strings.type = "A0" ELSE strings.type = "A" strings.displayValue = work END ELSE /* hexadecimal value in hand */ DO strings.type = "H" strings.displayValue = "x'" || C2X(ARG(1)) || "'" strings.filterValue = TRANSLATE(ARG(1), global.iFilter, global.iNonPrintable) END RETURN /* allow for adding or editing a value ARG(1) ... A to add, E to edit ARG(2) ... title ARG(3) ... optional, if given, then only ASCII-values allowed ARG(4) ... optional, if given, then only HEX- or ASCII-editing allowed (for TopLevels and keynames ARG(5) ... optional, if given, then the prompt for BOXEDIT */ EDIT_VALUE: PROCEDURE EXPOSE global. strings. editType = ARG(1) /* A add new, E edit existing */ editName = ARG(2) /* if adding new: TopLevel-entry or Key-entry if editing: value to be added */ editDataType = ARG(3) /* optional, determines data-type "A", "A0", "H" */ IF editType = "A" THEN DO DROP strings. strings. = "" tmpValue = "" IF ARG() = 3 THEN strings.type = editDataType ELSE choices = "12" SAY global.iCyan || "Defining:" global.iYellow || editName || global.iCyan SAY SAY "choose data type:" SAY SAY " " global.iYellow || "1" global.iCyan global.dtype.H.long SAY " " global.iYellow || "2" global.iCyan global.dtype.A.long global.defaultHint IF ARG() < 4 THEN /* ASCIIZ (A0) allowed ? */ DO SAY " " global.iYellow || "3" global.iCyan global.dtype.A0.long choices = choices || "3" END SAY " " global.iCyan || " [Esc] to return" /* define choices and get answer from user */ CALL CHAROUT , global.iYellow answer = get_answer("123Q") CALL CHAROUT , global.iCyan SELECT WHEN answer = "Q" THEN SIGNAL halt WHEN answer = "1" THEN strings.type = "H" WHEN answer = "2" | answer = "" THEN strings.type = "A" WHEN answer = "3" THEN strings.type = "A0" OTHERWISE RETURN "NOK" END DO END END ELSE /* editing mode */ DO val = editName CALL CHECK_VALUE val IF strings.type = "A" | strings.type = "A0" THEN DO IF ARG() = 3 THEN answer = SUBSTR(editDataType, 1, 1) ELSE DO SAY global.iCyan || "choose data type for editing:" SAY SAY " " global.iYellow || "H" global.iCyan global.dtype.H.long SAY " " global.iYellow || "A" global.iCyan global.dtype.A.long global.defaultHint SAY " " global.iCyan || " [Esc] to return" /* define choices and get answer from user */ CALL CHAROUT , global.iYellow answer = get_answer("HAQ") CALL CHAROUT , global.iCyan IF answer = "Q" THEN SIGNAL halt IF answer = "1B"x THEN RETURN "NOK" /* Escape was pressed */ END IF answer = "" | answer = "A" THEN /* edit as ASCII */ DO tmpValue = strings.displayValue END ELSE DO strings.type = "H" tmpValue = C2X(val) END END ELSE tmpValue = C2X(val) END tmpLength = LENGTH(tmpValue) neededRows = TRUNC(tmpLength / (global.iColumns - 2) + 0.9999) + 2 IF neededRows > global.iRows THEN DO SAY CALL error_msg "screen-size not large enough to edit value !" val = "NOK" END ELSE /* try to add four more empty lines */ DO DO 4 IF (neededRows + 1) < global.iRows THEN neededRows = neededRows + 1 ELSE LEAVE END /* get present position */ PARSE VALUE SysCurPos() WITH cursor_row cursor_col startingRow = cursor_row - neededRows IF startingRow < 0 THEN startingRow = 0 tmpType = "" /* ASCII-edit for default */ IF strings.type = "H" THEN tmptype = "H" editResult = boxedit((startingRow 0 (startingRow + neededRows - 1) (global.iColumns - 1)),, tmpValue, tmpType, ARG(5)) editResult = STRIP(editResult, "T") /* remove trailing blanks */ val = "NOK" IF editResult <> tmpValue THEN DO SELECT WHEN strings.type = "H" THEN val = "OK" X2C(editResult) WHEN strings.type = "A0" THEN val = "OK" editResult || "00"x OTHERWISE val = "OK" editResult END END END RETURN val /***********************************************************************************************/ /* print to file */ PRINT: PROCEDURE EXPOSE global. strings. stemIni. stemTopLevel. stemKey. iIni = ARG(1) /* INI-file to be printed */ iTopL = ARG(2) /* TopLevel to be printed */ iKey = ARG(3) /* Key to be printed */ IF global.iBackupMode = "" THEN /* prompt user */ DO SAY SAY "Following settings are active:" SAY SAY global.iCyan || "Level of information to produce:" global.iYellow || VALUE("global.depthOfOutput." || global.config.showDepth) SAY global.iCyan || "Hexadecimal values shown as: " global.iYellow || VALUE("global.hextypeOfOutput." || global.config.showHexAs) SAY global.iCyan || "Line length in characters: " global.iYellow || global.config.showLineLength SAY CALL CHAROUT , global.iCyan || "Do you wish to change these settings ?" global.noHint /* define choices and get answer from user */ CALL CHAROUT , global.iYellow answer = get_answer("YNQ") CALL CHAROUT , global.iCyan IF answer = "1B"x THEN RETURN 0 ELSE IF answer = "Q" THEN SIGNAL halt IF answer = "Y" THEN /* Yes, change the settings in effect */ DO CALL settings_printout END answer = "" /* output file exists, shall we append to it ? */ IF global.outFile <> "" THEN DO SAY SAY global.iCyan || "You printed already to file" global.iYellow || global.outFile || global.iCyan || "." SAY SAY global.iCyan || "Do you wish to append to it?" global.yesHint /* define choices and get answer from user */ CALL CHAROUT , global.iYellow answer = get_answer("YNQ") CALL CHAROUT , global.iCyan IF answer = "1B"x THEN RETURN 0 ELSE IF answer = "Q" THEN SIGNAL halt END IF answer = "N" | global.outFile = "" THEN /* get file name to print to */ IF \get_filename() THEN RETURN /* user aborted print-operation ? */ END /* o.k., now let us start producing the output ! */ SELECT WHEN ARG() = 0 THEN /* all INI-files to be printed */ DO DO i = 1 TO stemIni.0 CALL output_filename i, "AI" /* print file-name */ CALL read_toplevel i /* read top-levels */ CALL sort_generic "stemTopLevel" /* sort them */ DO j = 1 TO stemTopLevel.0 CALL output_topic j /* print topic-name */ IF POS(global.config.showDepth, "KV") > 0 THEN /* show more than TopLevel ? */ DO CALL read_key i, j /* read keys */ CALL sort_generic "stemKey" /* sort them */ DO k = 1 TO stemKey.0 CALL output_key k /* print key-name */ IF POS(global.config.showDepth, "V") > 0 THEN /* show key-values too ? */ DO /* get key-value */ val = SysIni(stemIni.i, stemTopLevel.j.origValue, stemKey.k.origValue) CALL output_val val /* print value */ END END CALL LINEOUT global.outFile, "" /* write empty line */ END END CALL LINEOUT global.outFile, "" /* write empty line */ END END WHEN ARG() = 1 THEN /* one INI-file, all TopLevels to be printed */ DO i = iIni CALL output_filename i, "AT" /* print file-name */ CALL sort_generic "stemTopLevel" /* sort them */ DO j = 1 TO stemTopLevel.0 CALL output_topic j /* print topic-name */ IF POS(global.config.showDepth, "KV") > 0 THEN /* show more than TopLevel ? */ DO CALL read_key i, j /* read keys */ CALL sort_generic "stemKey" /* sort them */ DO k = 1 TO stemKey.0 CALL output_key k /* print key-name */ IF POS(global.config.showDepth, "V") > 0 THEN /* show key-values too ? */ DO /* get key-value */ val = SysIni(stemIni.i, stemTopLevel.j.origValue, stemKey.k.origValue) CALL output_val val /* print value */ END END CALL LINEOUT global.outFile, "" /* write empty line */ END END CALL LINEOUT global.outFile, "" /* write empty line */ END WHEN ARG() = 2 THEN /* one INI-file, one TopLevel, all keys to be printed */ DO i = iIni j = iTopL CALL output_filename i, "AK" /* print file-name */ CALL output_topic j /* print topic-name */ CALL read_key i, j /* read keys */ CALL sort_generic "stemKey" /* sort them */ DO k = 1 TO stemKey.0 CALL output_key k /* print key-name */ IF POS(global.config.showDepth, "V") > 0 THEN /* show key-values too ? */ DO /* get key-value */ val = SysIni(stemIni.i, stemTopLevel.j.origValue, stemKey.k.origValue) CALL output_val val /* print value */ END END CALL LINEOUT global.outFile, "" /* write empty line */ END WHEN ARG() = 3 THEN /* one INI-file, one TopLevel, one key and its value to be printed */ DO i = iIni j = iTopL k = iKey CALL output_filename i, "K" /* print file-name */ CALL output_topic j /* print topic-name */ CALL output_key k /* print key-name */ /* get key-value */ val = SysIni(stemIni.i, stemTopLevel.j.origValue, stemKey.k.origValue) CALL output_val val /* print value */ CALL LINEOUT global.outFile, "" /* write empty line */ END OTHERWISE NOP END SAY CALL STREAM global.outFile, "C", "CLOSE" /* close output file */ RETURN /* write Filename into File, argument: index of INI-file to be processed */ OUTPUT_FILENAME: PROCEDURE EXPOSE global. stemIni. stemTopLevel. range = ARG(2) /* range of printout (all INIs, all TopLevels, all Keys, one Key) */ /* show date/time of printout */ tmp = LEFT("Date [" || DATE("S") TIME() || "] ", global.config.showLineLength, "=") CALL LINEOUT global.outFile, tmp CALL LINEOUT global.outFile, "" /* show range of printout */ tmp = LEFT("Range [" || VALUE("global.rangeOfPrintout." || range) || "] ", global.config.showLineLength, "=") CALL LINEOUT global.outFile, tmp /* show depth of information */ tmp = LEFT("Depth [" || VALUE("global.depthOfOutput." || global.config.showDepth) || "] ", global.config.showLineLength, "=") CALL LINEOUT global.outFile, tmp CALL LINEOUT global.outFile, "" /* show filename, no matter how long it is */ filename = "File [" || VALUE("stemIni." || ARG(1)) filler = " [" SAY filename || "]" tmp = "" /* filename can be arbitrarily long */ DO WHILE filename <> '' IF LENGTH(filename) >= global.config.showLineLength THEN DO tmp = SUBSTR(filename, 1, global.config.showLineLength - 1) || "]" filename = filler || SUBSTR(filename, global.config.showLineLength) END ELSE DO tmp = filename || "] " tmp = LEFT(tmp, global.config.showLineLength, "=") filename = "" END CALL LINEOUT global.outFile, tmp END /* show # of TopLevel entries */ tmp = LEFT("TopL# [" || stemTopLevel.0 "TopLevel(s)] ", global.config.showLineLength, "=") CALL LINEOUT global.outFile, tmp CALL LINEOUT global.outFile, "" /* empty line */ RETURN /* write TopLevel entry */ OUTPUT_TOPIC: PROCEDURE EXPOSE global. stemTopLevel. iInd = ARG(1) tmpDisplay = stemTopLevel.iInd tmpFiltered = "" SAY LEFT(global.format.forTop || "[" || tmpDisplay || "]", global.iColumns - 1) IF stemTopLevel.iInd.type = "H" THEN DO IF global.config.showHexAs = "H" | global.config.showHexAs = "B" THEN tmpDisplay = SUBSTR(tmpDISPLAY, 3, LENGTH(tmpDisplay) - 3) ELSE tmpDisplay = "" IF global.config.showHexAs = "F" | global.config.showHexAs = "B" THEN tmpFiltered = stemTopLevel.iInd.FilterValue END global.config.showDataLength = global.config.showLineLength - (global.format.forTop.Length + 7) /* "[A0] [" ..."]" longest append */ CALL print_go_do_it_finally_god_damn_it global.format.forTop, global.format.forTop.LeadIn, stemTopLevel.iInd.type, tmpDisplay, tmpFiltered RETURN /* write Key entry */ OUTPUT_KEY: PROCEDURE EXPOSE global. stemKey. iInd = ARG(1) tmpDisplay = stemKey.iInd tmpFiltered = "" SAY LEFT(global.format.forKey || "[" || tmpDisplay || "]", global.iColumns - 1) IF stemKey.iInd.type = "H" THEN DO IF global.config.showHexAs = "H" | global.config.showHexAs = "B" THEN tmpDisplay = SUBSTR(tmpDISPLAY, 3, LENGTH(tmpDisplay) - 3) ELSE tmpDisplay = "" IF global.config.showHexAs = "F" | global.config.showHexAs = "B" THEN tmpFiltered = stemKey.iInd.FilterValue END global.config.showDataLength = global.config.showLineLength - (global.format.forKey.Length + 7) /* "[A0] [" ..."]" longest append */ CALL print_go_do_it_finally_god_damn_it global.format.forKey, global.format.forKey.LeadIn, stemKey.iInd.type, tmpDisplay, tmpFiltered RETURN /* write Key value */ OUTPUT_VAL: PROCEDURE EXPOSE global. CALL check_value ARG(1) tmpDisplay = strings.DisplayValue tmpFiltered = "" IF strings.type = "H" THEN DO IF global.config.showHexAs = "H" | global.config.showHexAs = "B" THEN tmpDisplay = SUBSTR(tmpDISPLAY, 3, LENGTH(tmpDisplay) - 3) ELSE tmpDisplay = "" IF global.config.showHexAs = "F" | global.config.showHexAs = "B" THEN tmpFiltered = strings.FilterValue END global.config.showDataLength = global.config.showLineLength - (global.format.forVal.Length + 7) /* "[A0] [" ..."]" longest append */ CALL print_go_do_it_finally_god_damn_it global.format.forVal, global.format.forVal.LeadIn, strings.type, tmpDisplay, tmpFiltered RETURN PRINT_GO_DO_IT_FINALLY_GOD_DAMN_IT: PROCEDURE EXPOSE global. title = ARG(1) leadin = ARG(2) type = ARG(3) display = ARG(4) filtered = ARG(5) tmp1 = title type_name = LEFT(VALUE("global.dtype." || type), 4) || " [" DO WHILE display <> "" IF LENGTH(display) > global.config.showDataLength THEN DO tmp = SUBSTR(display, 1, global.config.showDataLength) display = SUBSTR(display, global.config.showDataLength + 1) END ELSE DO tmp = display display = "" END CALL LINEOUT global.outFile, tmp1 || type_name || tmp || "]" tmp1 = leadin END IF type = "H" & filtered <> "" THEN DO type_name = LEFT(VALUE("global.dtype." || "F"), 4) || " [" /* for ASCII-filtered strings */ DO WHILE filtered <> "" IF LENGTH(filtered) > global.config.showDataLength THEN DO tmp = SUBSTR(filtered, 1, global.config.showDataLength) filtered = SUBSTR(filtered, global.config.showDataLength + 1) END ELSE DO tmp = filtered filtered = "" END CALL LINEOUT global.outFile, tmp1 || type_name || tmp || "]" tmp1 = leadin END END RETURN /* ask user for the filename into which output should be printed */ GET_FILENAME: PROCEDURE EXPOSE global. IF global.outFile = "" THEN tmpResult = DIRECTORY() || "\" /* supply current directory as default */ ELSE tmpResult = global.outFile DO FOREVER SAY SAY "Enter file name:" SAY PARSE VALUE edit_value("E", tmpResult, "A", , "Enter new File-name") WITH tmpState tmpResult IF tmpState = "OK" THEN /* check whether file exists already */ DO IF STREAM(tmpResult, "C", "QUERY EXISTS") <> "" THEN DO CALL BEEP 2000, 250 SAY SAY global.iYellow || tmpResult || global.iCyan "exists already !" SAY SAY " " global.iYellow || "D" global.iCyan "delete existing file" SAY " " global.iYellow || "A" global.iCyan "append to existing file" SAY " " global.iCyan || " [Esc] to return" /* define choices and get answer from user */ CALL CHAROUT , global.iYellow answer = get_answer("DAQ", , "NO-CR") /* force an entry */ CALL CHAROUT , global.iCyan SELECT WHEN answer = "1B"x THEN RETURN 0 /* Escape was pressed */ WHEN answer = "Q" THEN SIGNAL halt WHEN answer = "D" THEN /* delete existing file */ DO ADDRESS CMD "@DEL" tmpResult /* let OS/2 erase it */ IF RC <> 0 THEN DO SAY CALL error_msg tmpResult || global.iCyan "could not be deleted, aborting..." RETURN 0 END END OTHERWISE NOP END LEAVE END ELSE /* file does not exist yet, create it */ DO IF STREAM(tmpResult, "C", "Open Write") <> "READY:" THEN /* error while creating file */ DO SAY CALL error_msg global.iYellow || tmpResult global.iRedWhite || "could not be created !" CALL CHAROUT , "Try another filename ?" global.yesHint answer = get_answer("YNQ") CALL CHAROUT , global.iCyan SELECT WHEN answer = "1B"x THEN RETURN 0 /* Escape was pressed */ WHEN answer = "Q" THEN SIGNAL halt WHEN answer = "Y" || answer = "" THEN ITERATE OTHERWISE RETURN 0 END END END END ELSE RETURN 0 LEAVE END global.outFile = tmpResult RETURN 1 /***********************************************************************************************/ /* display error message passed in ARG(1) if ARG(2) given, then do not prompt user for keyboard-input, return immediately */ ERROR_MSG: PROCEDURE EXPOSE global. SAY global.iRedWhite || ARG(1) global.iCyan IF ARG() = 1 THEN DO CALL BEEP 2000, 250 SAY "press any key to continue..." tmp = SysGetKey("NOECHO") /* IF TRANSLATE(tmp) = "Q" THEN SIGNAL halt /* quit immediately */ */ SAY END RETURN HALT: IF global.outFile <> "" THEN /* interrupted while writing to file */ DO CALL STREAM global.outFile, "C", "CLOSE" /* close file */ END SAY SAY global.iNormal || "User interrupted application." EXIT -1 /* user interrupt */ /* ********************** ********************** *********************** ****************** */ öööö BACKUP_RESTORE_UPDATE: PROCEDURE EXPOSE global. PARSE ARG WITH '/'switch filename /* check arguments */ switch = TRANSLATE(switch) global.iBackupMode = "Quiet !" /* check whether file exists */ IF filename = "" THEN sourceFile = "" ELSE sourceFile = STREAM(filename, "C", "QUERY EXISTS") /* debug */ say "**Debug: sourceFile >"sourceFile"<" say "**Debug: filename >"fileName"<" IF sourceFile = "" THEN DO SIGNAL usage END global.iBackupMode.iDrive = FILESPEC("drive", sourceFile) global.iBackupMode.iPath = FILESPEC("path", sourceFile) SELECT WHEN switch = "B" THEN /* backup to an OS2-INI-file */ DO SAY global.iCyan || "BACKUP-MODE: backup will be an OS/2-INI-file." || global.iNormal SAY global.bkpFileName = get_next_file(sourceFile) /* get name of the new backup-file */ CALL make_backup sourceFile, global.bkpFileName /* backup the INI-file */ END WHEN switch = "BT" THEN /* backup to an ASCII-file */ DO SAY global.iCyan || "BACKUP-MODE: backup will be an ASCII-file." || global.iNormal SAY CALL check_if_ini sourceFile /* backup-ASCII-file gets a file extension of "TXT", hence 10 backups from "TX0" thru "TX9" */ tmpName = FILESPEC("name", sourceFile) pointPos = LASTPOS(".", tmpName) IF pointPos = 0 THEN tmpName = tmpName || ".TXT" ELSE tmpName = SUBSTR(tmpName, 1, pointPos) || "txt" /* build name of the new backup-file */ global.outFile = get_next_file(global.iBackupMode.iDrive ||, global.iBackupMode.iPath ||, tmpName) stemIni.0 = 1 /* number of entries */ stemIni.1 = sourceFile /* assign OS/2-INI-file-name to be printed into an ASCII-file */ IF global.config.showDepth <> "V" THEN /* show everything ? */ global.config.showDepth = "V" /* set switch to show everything */ IF global.config.showHexAs = "F" THEN /* show filtered ASCII-string only ? */ global.config.showHexAs = "B" /* show both, hexadecimal and filtered value */ SAY SAY global.iCyan || "Source (OS/2-INI-file):" global.iYellow || sourceFile SAY global.iCyan || "Target (backup-file): " global.iYellow || global.outFile || global.iNormal SAY CALL read_toplevel 1 /* read & prepare TopLevel entries, do not sort them */ CALL print 1 /* call print-procedure, have all TopLevels printed */ CALL STREAM global.outFile, "C", "CLOSE" /* close output file */ END WHEN switch = "R" | switch = "U" THEN /* restore or update from an OS/2-INI-file */ DO IF switch = "R" THEN tmp = "RESTORE" ELSE tmp = "UPDATE" SAY global.iCyan || tmp || "-MODE: backup to read from will be an OS/2-INI-file." || global.iNormal SAY targetIni = getBkpData_Ini(sourceFile) /* get target INI-name from INI-bkp */ CALL ini_restore_from_ini sourceFile, targetIni, switch /* restore/update original */ CALL STREAM sourceFile, "C", "CLOSE" /* close input file */ END WHEN switch = "RT" | switch = "UT" THEN /* restore or update from an ASCII-file */ DO IF switch = "RT" THEN tmp = "RESTORE" ELSE tmp = "UPDATE" SAY global.iCyan || tmp || "-MODE: backup to read from will be an ASCII-file." || global.iNormal SAY CALL ini_restore_from_txt sourceFile, switch /* use ASCII-file for restore */ CALL STREAM sourceFile, "C", "CLOSE" /* close input file */ END OTHERWISE DO SAY global.iYellow || "Invalid argument!" global.iYellow || switch || global.iNormal SIGNAL USAGE END END EXIT 0 /* finished batch-mode */ /*************************************************************************************/ /* restores/updates from an INI-file if restore, then delete TopLevels and Keys in original which are not found in the backup */ INI_RESTORE_FROM_TXT: PROCEDURE EXPOSE global. bkpIniFile = ARG(1) switch = ARG(2) done = 0 line = "" /* get target filename */ DO WHILE LINES(bkpIniFile) > 0 IF line = "" & done THEN LEAVE line = LINEIN(bkpIniFile) PARSE VAR line key "[" value "]" rest IF SUBSTR(STRIP(key), 1, 1) = ";" THEN ITERATE /* ignore comments */ key = TRANSLATE(key) /* translate key into uppercase */ IF key = "FILE" THEN DO done = 1 IF rest <> "" THEN /* right square bracket part of filename ? */ DO right_bracket = LASTPOS("]", rest) IF right_bracket > 0 THEN DO value = value || "]" IF right_bracket > 1 THEN value = value || SUBSTR(rest, 1, right_bracket-1) END END targetIniFile = value /* now check, whether file spans multiple lines */ DO WHILE LINES(bkpIniFile) > 0 line = LINEIN(bkpIniFile) /* comment-line ? */ IF line = "" | SUBSTR(STRIP(line), 1, 1) = ";" THEN LEAVE /* finished reading filename */ PARSE VAR line key "[" value IF key <> "" THEN LEAVE /* TopL# - key comes along */ targetIniFile = targetIniFile || SUBSTR(value, 1, LASTPOS("]", value) - 1) END LEAVE END END IF \done THEN DO CALL BEEP 2500, 250 SAY global.iCyan || "ASCII-file" global.iYellow || bkpIniFile global.iRedWhite || "does not contain a vaild INI-backup !" || global.iNormal EXIT -3 END /******************************/ /* check validity of INI-file */ century = SUBSTR(DATE("S"), 1, 2) /* get century information */ /* file to restore must be in the same directory as backup */ tmpFile = global.iBackupMode.iDrive ||, global.iBackupMode.iPath ||, FILESPEC("name", targetIniFile) tmpResult = STREAM(tmpFile, "C", "QUERY EXISTS") IF tmpResult = "" THEN /* does not exist in backup directory */ DO CALL BEEP 2000, 250 SAY global.iCyan || "Target-INI-file:" global.iYellow || tmpFile global.iCyan || "not found!" || global.iNormal SAY tmp = "Create it ?" global.yesHint global.answer = 1 /* default to yes */ IF \get_yes_no(tmp, "global.answer") THEN EXIT -1 /* user aborted backup */ IF global.answer THEN origIniFile = tmpFile ELSE EXIT -1 /* user aborted backup */ END ELSE origIniFile = tmpResult /* get date/time of target, i.e. INI-file */ tmpDateTime = STREAM(origIniFile, "C", "QUERY DATETIME") IF tmpDateTime <> '' THEN DO /* make a sorted day from the American bound date-format ! */ PARSE VAR tmpDateTime month"-"day"-"year time tmpOrigDateTime = century || year || month || day time END ELSE tmpOrigDateTime = RIGHT("-", 8) RIGHT("-", 8) /* get date/time of backup */ tmpDateTime = STREAM(bkpIniFile, "C", "QUERY DATETIME") IF tmpDateTime <> '' THEN DO /* make a sorted day from the American bound date-format ! */ PARSE VAR tmpDateTime month"-"day"-"year time tmpBkpDateTime = century || year || month || day time END SAY global.iCyan || "Backup: (" || global.iYellow || tmpBkpDateTime || global.iCyan || ")" global.iYellow || bkpIniFile SAY global.iCyan || "Original: (" || global.iYellow || tmpOrigDateTime || global.iCyan || ")" global.iYellow || origIniFile || global.iNormal /***********/ /* restore */ DROP stemTopLevel. stemTopLevel. = "" stemTopLevel.0 = 0 /* no entries into this array */ DROP stemKey. stemKey. = "" stemKey.0 = 0 /* no entries into this array */ DROP tmp. tmp. = "" ITop = 0 iKey = 0 iVal = 0 DO WHILE LINES(bkpIniFile) > 0 line = LINEIN(bkpIniFile) /* read next line */ /* comment ? */ IF line = "" | SUBSTR(STRIP(line), 1, 1) = ";" THEN ITERATE /* iterate on empty line */ PARSE VAR line key "[" type "]" "[" value "]" rest type = TRANSLATE(type) /* translate types into uppercase */ IF type = "F" THEN ITERATE /* hexadecimal representation with filtered ASCII-strings is ignored */ key = TRANSLATE(key) /* translate keys into uppercase */ IF SUBSTR(type, 1, 1) = "A" THEN /* is value an ASCII-string ? */ IF rest <> "" THEN /* right square bracket is part of ASCII-string ! */ DO right_bracket = LASTPOS("]", rest) IF right_bracket > 0 THEN DO value = value || "]" IF right_bracket > 1 THEN value = value || SUBSTR(rest, 1, right_bracket-1) END END SELECT WHEN key <> "" THEN /* new Key */ DO SELECT WHEN key = "TOP" THEN DO IF iVal THEN DO IF iTop THEN /* same as previous TopLevel */ CALL update_ini origIniFile /* set value in hand */ ELSE CALL update_ini origIniFile, "new Top" /* set value in hand */ END SAY global.iCyan || "Toplevel #" global.iYellow || stemTopLevel.0 + 1 || global.iNormal IF stemKey.0 > 0 & switch = "RT" THEN /* restore mode, delete all keys not in backup of present TopLevel */ CALL delete_non_backedup_keys origIniFile, VALUE("stemTopLevel." || stemTopLevel.0) DROP stemKey. stemKey. = "" stemKey.0 = 0 /* no entries into this array */ tmp.toppy = value tmp.toppy.typeIndicator = type iTop = 0 iKey = 0 iVal = 0 END WHEN key = "KEY" THEN DO IF iVal THEN DO IF iTop THEN /* same as previous TopLevel */ CALL update_ini origIniFile /* set value in hand */ ELSE DO CALL update_ini origIniFile, "new Top" /* set value in hand */ iTop = 1 END END SAY global.iCyan || " Key #" global.iYellow || stemKey.0 + 1 || global.iNormal tmp.keyiy = value tmp.keyiy.typeIndicator = type iKey = 1 iVal = 0 END WHEN key = "VAL" THEN DO tmp.valuly = value tmp.valuly.typeIndicator = type iVal = 1 END OTHERWISE NOP END END OTHERWISE /* add the next piece to the value */ DO SELECT WHEN iVal THEN tmp.valuly = tmp.valuly || value WHEN iKey THEN tmp.keyiy = tmp.keyiy || value OTHERWISE tmp.toppy = tmp.toppy || value END END END END IF iVal THEN DO IF iTop THEN /* same as previous TopLevel */ CALL update_ini origIniFile /* set value in hand */ ELSE CALL update_ini origIniFile, "new Top" /* set value in hand */ END IF switch = "RT" THEN /* restore mode, delete all keys not in backup */ DO /* TopLevel in hand */ CALL delete_non_backedup_keys origIniFile, VALUE("stemTopLevel." || stemTopLevel.0) CALL delete_non_backedup_toplevels origIniFile END RETURN /* transform values, update stemTopLevel., stemKey., update target INI-file with new key if a second argument is given, then we have a new TopLevel being built, if there is an old one it has to be stored in the array */ UPDATE_INI: PROCEDURE EXPOSE global. stemTopLevel. stemKey. tmp. origIniFile = ARG(1) iTop = stemTopLevel.0 IF ARG() = 2 | iTop = 0 THEN /* build a new TopLevel ? */ DO iTop = iTop + 1 SELECT WHEN tmp.toppy.typeIndicator = "H" THEN /* hexadecimal value */ stemTopLevel.iTop = X2C(tmp.toppy) WHEN tmp.toppy.typeIndicator = "A" THEN stemTopLevel.iTop = tmp.toppy WHEN tmp.toppy.typeIndicator = "A0" THEN stemTopLevel.iTop = tmp.toppy || "00"x OTHERWISE /* illegal data-type */ RETURN END stemTopLevel.0 = iTop END iKey = stemKey.0 iKey = iKey + 1 stemKey.0 = iKey SELECT WHEN tmp.keyiy.typeIndicator = "H" THEN /* hexadecimal value */ stemKey.iKey = X2C(tmp.keyiy) WHEN tmp.keyiy.typeIndicator = "A" THEN stemKey.iKey = tmp.keyiy WHEN tmp.keyiy.typeIndicator = "A0" THEN stemKey.iKey = tmp.keyiy || "00"x OTHERWISE /* illegal data-type */ RETURN END SELECT WHEN tmp.valuly.typeIndicator = "H" THEN /* hexadecimal value */ value = X2C(tmp.valuly) WHEN tmp.valuly.typeIndicator = "A" THEN value = tmp.valuly WHEN tmp.valuly.typeIndicator = "A0" THEN value = tmp.valuly || "00"x OTHERWISE /* illegal data-type */ RETURN END CALL SysIni origIniFile, stemTopLevel.iTop, stemKey.iKey, value /* set new value */ RETURN /* restores/updates from an INI-file if restore, then delete TopLevels and Keys in original which are not found in the backup */ INI_RESTORE_FROM_INI: PROCEDURE EXPOSE global. sourceFile = ARG(1) /* backup-INI-file */ targetFile = ARG(2) switch = ARG(3) /* if "R", then delete superfluous TopLevels and Keys in the original */ CALL SysIni sourceFile, 'ALL:', 'stemTopLevel' DO i = 1 TO stemTopLevel.0 /* cycle thru all TopLevels */ DROP stemKey. stemKey. = "" SAY global.iCyan || "Toplevel #" global.iYellow || i global.iCyan || "of" global.iYellow || stemTopLevel.0 || global.iNormal CALL SysIni sourceFile, stemTopLevel.i, 'ALL:', 'stemKey' DO j = 1 TO stemKey.0 /* cycle thru all Keys */ SAY global.iCyan || " Key #" global.iYellow || j global.iCyan || "of" global.iYellow || stemKey.0 || global.iNormal value = SysIni(sourceFile, stemTopLevel.i, stemKey.j) /* get value */ tmp = SysIni(targetFile, stemTopLevel.i, stemKey.j, value) /* set value */ END IF switch = "R" THEN /* restore mode, delete all keys not in backup */ CALL delete_non_backedup_keys targetFile, stemTopLevel.i END IF switch = "R" THEN /* restore mode, delete all targets not in backup */ CALL delete_non_backedup_toplevels targetFile RETURN /* for restore-mode only: delete keys in target which are not in backup */ DELETE_NON_BACKEDUP_KEYS: PROCEDURE EXPOSE stemKey. stemTargetKey. global. targetFile = ARG(1) TopLevel = ARG(2) stemTargetKey. = "" CALL SysIni targetFile, TopLevel, "ALL:", "stemTargetKey" CALL sort_generic "stemKey", "EXACT" /* sort backup-keys */ CALL sort_generic "stemTargetKey", "EXACT" /* sort target-keys */ i = 1 j = 1 DO FOREVER /* delete keys, which cannot be found in the backup */ SELECT WHEN stemKey.i << stemTargetKey.j THEN /* delete superfluous keys */ DO IF i > stemKey.0 THEN DO DO k = j to stemTargetKey.0 CALL BEEP 2000, 100 SAY global.iCyan || "deleting key:" global.iYellow || stemTargetKey.k global.iNormal || global.iNormal CALL SysIni targetFile, TopLevel, stemTargetKey.k, "DELETE:" END LEAVE END ELSE /* duplicate in bkp-keys, if so it comes from TXT-file */ i = i + 1 END WHEN stemKey.i == stemTargetKey.j THEN /* identical, o.k. */ DO i = i + 1 j = j + 1 IF j > stemTargetKey.0 THEN LEAVE /* finished */ END OTHERWISE /* stemKey.i >> stemTargetKey.j THEN ... delete superfluous key */ DO CALL BEEP 2000, 100 SAY global.iCyan || "deleting key:" global.iYellow || stemTargetKey.j global.iNormal || global.iNormal CALL SysIni targetFile, TopLevel, stemTargetKey.j, "DELETE:" j = j + 1 END END END RETURN /* for restore-mode only: delete TopLevels in target which are not in backup */ DELETE_NON_BACKEDUP_TOPLEVELS: PROCEDURE EXPOSE stemTopLevel. global. targetFile = ARG(1) stemTargetTopLevel. = "" CALL SysIni targetFile, "ALL:", "stemTargetTopLevel" CALL sort_generic "stemTopLevel", "EXACT" /* sort backup-TopLevels */ CALL sort_generic "stemTargetTopLevel", "EXACT" /* sort target-TopLevels */ i = 1 j = 1 DO FOREVER /* delete TopLevels, which cannot be found in the backup */ SELECT WHEN stemTopLevel.i << stemTargetTopLevel.j THEN /* delete superfluos TopLevels */ DO IF i > stemTopLevel.0 THEN DO DO k = j TO stemTargetTopLevel.0 CALL BEEP 2000, 100 SAY global.iCyan || "deleting topLevel:" global.iYellow || stemTargetTopLevel.k || global.iNormal || global.iNormal CALL SysIni targetFile, stemTargetTopLevel.k, "DELETE:" END LEAVE END ELSE /* duplicate in bkp-toplevels, if so it comes from TXT-file */ i = i + 1 END WHEN stemTopLevel.i == stemTargetTopLevel.j THEN /* identical, o.k. */ DO i = i + 1 j = j + 1 IF j > stemTargetTopLevel.0 THEN LEAVE /* finished */ END OTHERWISE /* stemTopLevel.i >> stemTargetTopLevel.j THEN ... delete superfluous key */ DO CALL BEEP 2000, 100 SAY global.iCyan || "deleting topLevel:" global.iYellow || stemTargetTopLevel.j global.iNormal || global.iNormal CALL SysIni targetFile, stemTargetTopLevel.j, "DELETE:" j = j + 1 END END END RETURN /* check whether backup-file is a valid OS/2-INI-file, containing entries */ GETBKPDATA_INI: PROCEDURE EXPOSE global. bkpTopLevel. bkpIniFile = ARG(1) /* INI-file containing the backup-data */ CALL check_if_ini bkpIniFile /* check whether INI-file */ century = SUBSTR(DATE("S"), 1, 2) /* get century information */ tmpDateTime = STREAM(bkpIniFile, "C", "QUERY DATETIME") /* make a sorted day from the American bound date-format ! */ PARSE VAR tmpDateTime month"-"day"-"year time tmpBkpDateTime = century || year || month || day time origIniFile = SysIni(bkpIniFile, global.config.showTopLevel, global.bkp.iOName) IF origIniFile <> "ERROR:" THEN /* target must be in same directory as backup */ DO origIniFile = global.iBackupMode.iDrive ||, global.iBackupMode.iPath ||, FILESPEC("name", origIniFile) END IF origIniFile = "ERROR:" THEN /* backup was not produced by this program, maybe a copy */ DO tmpFile = FILESPEC("name", bkpIniFile) position = LASTPOS(".", tmpFile) /* get last dot in string */ IF position < 1 THEN tmpTargetFile = tmpFile || ".INI" ELSE tmpTargetFile = SUBSTR(tmpFile, 1, position) || "INI" origIniFile = global.iBackupMode.iDrive ||, global.iBackupMode.iPath ||, tmpTargetFile /* put target INI in backup-directory */ END tmpResult = STREAM(origIniFile, "C", "QUERY EXISTS") /* check whether INI-file exists */ IF tmpResult = "" THEN /* not found */ DO CALL BEEP 2000, 250 SAY global.iCyan || "Target-INI-file:" global.iYellow || origIniFile global.iCyan || "not found!" || global.iNormal SAY tmp = "Create it ?" global.yesHint global.answer = 1 /* default to yes */ IF \get_yes_no(tmp, "global.answer") | \global.answer THEN EXIT -1 /* user aborted backup */ END ELSE origIniFile = tmpResult tmpDateTime = STREAM(origIniFile, "C", "QUERY DATETIME") IF tmpDateTime <> '' THEN DO /* make a sorted day from the American bound date-format ! */ PARSE VAR tmpDateTime month"-"day"-"year time tmpOrigDateTime = century || year || month || day time END ELSE tmpOrigDateTime = RIGHT("-", 8) RIGHT("-", 8) SAY global.iCyan || "Backup: (" || global.iYellow || tmpBkpDateTime || global.iCyan || ")" global.iYellow || bkpIniFile SAY global.iCyan || "Original: (" || global.iYellow || tmpOrigDateTime || global.iCyan || ")" global.iYellow || origIniFile || global.iNormal RETURN origIniFile /* check whether file in hand is an INI-file */ CHECK_IF_INI: PROCEDURE EXPOSE bkpTopLevel. global. iniFile = ARG(1) /* not an OS/2-INI-file or empty ? */ val = 0 IF SysIni(iniFile, "ALL:", "bkpTopLevel") = "ERROR:" THEN val = -3 ELSE IF bkpTopLevel.0 = 0 THEN val = -3 IF val < 0 THEN /* not an OS/2 INI-file */ DO CALL BEEP 2000, 250 SAY global.iYellow || iniFile || global.iRedWhite || ": not an OS/2-INI-file !" || global.iNormal EXIT val END RETURN /* produce an OS/2-INI-backup-file */ MAKE_BACKUP: PROCEDURE EXPOSE global. bkpTopLevel. origIniFile = ARG(1) /* INI-file to be backed up */ bkpIniFile = ARG(2) /* name of backup-INI-file */ SAY SAY global.iCyan || "Source (OS/2-INI-file):" global.iYellow || origIniFile SAY global.iCyan || "Target (backup-file): " global.iYellow || bkpIniFile || global.iNormal SAY /* not an OS/2-INI-file or empty ? */ CALL check_if_ini origIniFile /* write information about backup-process and original file-name into INI-file */ CALL SysIni bkpIniFile, global.config.showTopLevel, global.bkp.iOName, origIniFile CALL SysIni bkpIniFile, global.config.showTopLevel, global.bkp.iBName, bkpIniFile CALL SysIni bkpIniFile, global.config.showTopLevel, global.bkp.iDTimeStart, DATE("S") TIME() CALL SysIni bkpIniFile, global.config.showTopLevel, global.bkp.iTLentries, bkpTopLevel.0 /* cycle thru TopLevel-entries */ DO i = 1 TO bkpTopLevel.0 IF SysIni(origIniFile, bkpTopLevel.i, "ALL:", "keys") <> "ERROR:" /* TopLevel not available anymore */ THEN DO DO j = 1 TO keys.0 /* cycle thru Key-entries */ val = SysIni(origIniFile, bkpTopLevel.i, keys.j) IF val <> "ERROR:" THEN /* key not available anymore */ DO SAY global.iCyan || " TopLevel #" global.iYellow || i global.iCyan || "of" global.iYellow || bkpTopLevel.0 global.iCyan || ", Key #" global.iYellow || j global.iCyan || "of" global.iYellow || keys.0 || global.iNormal CALL SysIni bkpIniFile, bkpTopLevel.i, keys.j, val END ELSE SAY global.iYellow || " ** error reading TopLevel #" global.iCyan || i || ", Key #" j || global.iNormal END END ELSE SAY global.iYellow || "*** error reading TopLevel #" global.iCyan || i || global.iNormal SAY END CALL SysIni bkpIniFile, global.config.showTopLevel, global.bkp.iDTimeEnd, DATE("S") TIME() SAY global.iCyan || "finished backup." || global.iNormal RETURN /* Backup-files contain at the last character position a number ranging from 0 (oldest) to 9 (youngest backup) */ GET_NEXT_FILE: PROCEDURE file = ARG(1) testname = SUBSTR(file, 1, LENGTH(file)-1) slot_found = -1 DO i = 0 TO 9 new_name = testname || i IF STREAM(new_name, "C", "QUERY EXISTS") <> new_name THEN DO slot_found = i LEAVE END END IF slot_found = -1 THEN /* no empty slot found, make room */ DO /* erase oldest backup and rename the existing ones */ CALL make_room testname ADDRESS CMD "@erase" '"' || testname || "0" || '"' /* erase oldest file */ DO i = 1 TO 9 ADDRESS CMD "@ren" '"' || testname || i || '" "' || FILESPEC("name", testname || (i - 1)) || '"' END new_name = testname || "9" /* new backup file */ END RETURN new_name USAGE: SAY "SHOWINI: allow to view, edit, print, backup, restore OS/2-INI-files" SAY " (e.g. OS2.INI, OS2SYS.INI)" SAY SAY "showini ... allow to work interactively" SAY SAY "backing up: (backing up an OS/2-INI-file entirely)" SAY "===========" SAY " showini /B ini-file ... Backup will be put in a newly created ini-file" SAY " showini /BT ini-file ... Backup will be put in a newly created Text-file" SAY SAY "restoring: (resets values according to backup & deletes keys which are not saved in backup)" SAY "==========" SAY " showini /R BKP-INI-file ... Restore from a backup-ini-file" SAY " showini /RT BKP-TEXT-file ... Restore from a backup-Text-file" SAY SAY "updating: (just resets values according to backup)" SAY "=========" SAY " showini /U BKP-INI-file ... Update from a backup-ini-file" SAY " showini /UT BKP-TEXT-file ... Update from a backup-Text-file" EXIT -2 /* wrong switch or wrong file */