QB64.org Forum

Active Forums => Programs => Topic started by: SMcNeill on September 19, 2018, 05:22:48 pm

Title: QB64 Modset by Steve
Post by: SMcNeill on September 19, 2018, 05:22:48 pm

Code: QB64: [Select]

1. _TITLE "QB64 $AUTOSAVE Mod"
2. $CONSOLE:ONLY
3. _CONSOLE ON
4. _DEST _CONSOLE
5. OPEN "source\qb64.bas" FOR BINARY AS #1
6. OPEN "source\qb64-MOD.bas" FOR OUTPUT AS #2
7.  
8. INPUT "Time before QB64 does an $AUTOSAVE for us (in minutes):"; AutoSaveTime
9.  
10.  
11. DO UNTIL EOF(1)
12.     LINE INPUT #1, text$
13.     IF INSTR(text$, "QB64 COMPILER ONCE ONLY SETUP CODE ENDS HERE") THEN
14.         PRINT #2, ""
15.         PRINT #2, "'************  START OF AUTOSAVE INITIALIZATION"
16.         PRINT #2, ""
17.         PRINT #2, "BackupTimer = _FREETIMER"
18.         PRINT #2, "BackupMinutes =" + STR$(AutoSaveTime) + " * 60 '60 seconds"
19.         PRINT #2, "ON TIMER(BackupTimer, BackupMinutes) Backup"
20.         PRINT #2, "IF NOT NoIDEMode THEN TIMER(BackupTimer) ON"
21.         PRINT #2, "DIM SHARED AutoSave AS INTEGER"
22.         PRINT #2, ""
23.         PRINT #2, ""
24.         PRINT #2, "'************  END OF AUTOSAVE INITIALIZATION"
25.     END IF
26.     IF INSTR(text$, "$VIRTUALKEYBOARD:ON") AND VKOfound = 0 THEN
27.         VKOfound = -1
28.         PRINT #2, "IF temp$ = " + CHR$(34) + "$AUTOSAVE" + CHR$(34) + " THEN AutoSave = -1: layout$ = " + CHR$(34) + "$AUTOSAVE" + CHR$(34) + ": GOTO finishedlinepp"
29.         PRINT #2, ""
30.         PRINT #2, ""
31.     END IF
32.  
33.     PRINT #2, text$
34.     IF INSTR(text$, "'clear/init variables") THEN PRINT #2, "AutoSave = 0"
35.     IF INSTR(text$, "a3u$ = UCASE$(a3$)") THEN PRINT #2, "IF a3u$ = " + CHR$(34) + "$AUTOSAVE" + CHR$(34) + " then GOTO finishednonexec"
36. LOOP
37. PRINT #2, ""
38. PRINT #2, ""
39. PRINT #2, "SUB Backup"
40. PRINT #2, "STATIC backidet$"
41. PRINT #2, "IF NOT Autosave THEN EXIT SUB"
42. PRINT #2, "IF _DIREXISTS(" + CHR$(34) + "internal\autosave" + CHR$(34) + ") THEN"
43. PRINT #2, "ELSE"
44. PRINT #2, "    MKDIR " + CHR$(34) + "internal\autosave" + CHR$(34)
45. PRINT #2, "END IF"
46. PRINT #2, "IF backidet$ <> idet$ THEN"
47. PRINT #2, "    IF ideprogname = " + CHR$(34) + CHR$(34) + " THEN"
48. PRINT #2, "        ProposedTitle$ = FindProposedTitle$"
49. PRINT #2, "        IF ProposedTitle$ = " + CHR$(34) + CHR$(34) + " THEN"
50. PRINT #2, "            savename$ = " + CHR$(34) + "untitled" + CHR$(34) + " + tempfolderindexstr$"
51. PRINT #2, "        ELSE"
52. PRINT #2, "            savename$ = ProposedTitle$ + " + CHR$(34) + ".bas" + CHR$(34)
53. PRINT #2, "        END IF"
54. PRINT #2, "    ELSE"
55. PRINT #2, "        savename$ = ideprogname"
56. PRINT #2, "    END IF"
57. PRINT #2, "    t$ = DATE$ + " + CHR$(34) + " - " + CHR$(34) + " + TIME$"
58. PRINT #2, "    DO"
59. PRINT #2, "        l = INSTR(t$, " + CHR$(34) + ":" + CHR$(34) + ")"
60. PRINT #2, "        MID$(t$, l) = " + CHR$(34) + "-" + CHR$(34)
61. PRINT #2, "    LOOP UNTIL l = 0"
62. PRINT #2, "    savename$ = " + CHR$(34) + "internal\autosave\" + CHR$(34) + " + savename$ + " + CHR$(34) + " (" + CHR$(34) + " + t$ + " + CHR$(34) + ") .bas" + CHR$(34)
63. PRINT #2, "    OPEN savename$ FOR OUTPUT AS #1510"
64. PRINT #2, "    FOR i = 1 TO iden"
65. PRINT #2, "        tempstring$ = idegetline(i)"
66. PRINT #2, "        PRINT #1510, tempstring$"
67. PRINT #2, "    NEXT"
68. PRINT #2, "    CLOSE #1510"
69. PRINT #2, ""
70. PRINT #2, "    backidet$ = idet$"
71. PRINT #2, "END IF"
72. PRINT #2, "END SUB"
73. CLOSE
74.  
75. SHELL "qb64 -x source\qb64-MOD.bas"
76. SHELL "qb64-MOD.exe"
77.  

A slightly tweaked (and I think improved) version of the routine found here: http://qb64.freeforums.net/thread/67/qb64-autosave-mod

Read the major comments at the other thread; I'm not going to repeat them here again. 

The difference of this version and the one currently over at my backup forums?  This adds a new metacommand to QB64 which has to be present to enable the autosave routine to work.   Aptly enough, it's called "$AUTOSAVE"....

EDIT: Before I forget, it also allows the user to set the backup time for themselves, so they can backup at whatever interval they think is the most appropriate for their disk space and security needs.

I dunno if anyone else in the world is interested in this type of change for QB64, but I personally find these types of backup programs to be essential to my mental well being sometimes.  CTRL-Z is nice, but it has its limits with how far back it'll go, how much it can hold, and how many dang times it may need to be clicked to see which alteration killed the code I was working on.

Individual time/date stamped backups has saved me a lot of hassle in the past, and if it's something the rest of you guys might be interested in, you can now add the capability to QB64 anytime you wish (for both 32-bit and 64-bit versions).   ;)

*****************************
*****************************

Soon(tm), I'm going to work up another little script like this one to add the $REPLACE command (as discussed here: https://www.qb64.org/forum/index.php?topic=588.0 ) into folks' IDE who might be interested in it.

Then, those who like these abilities/changes, can have them for any version they want (even older versions, though I haven't tested to see how far back one could actually pop these into the IDE...  They may even work in SDL.  If not, they should with just a few minor tweaks for placement or directory paths/structure.)

It seems like the best of both worlds to me:  A way to add flexibility for the folks who would be interested in these thing; while keeping QB64 from "bloating" itself with new features that others might not find the least bit appealing. 

Title: Re: QB64 Mod: $AUTOSAVE
Post by: SMcNeill on September 19, 2018, 05:27:09 pm

Another side advantage to little scripts like this:  Folks who might be interested in making their own changes to QB64 can probably use it as a template to find WHERE to make the additions and alterations necessary for their own customization's.   :)

Title: Re: QB64 Mod: $AUTOSAVE
Post by: SMcNeill on September 21, 2018, 01:36:18 pm

Code: QB64: [Select]

1. _TITLE "QB64 $AUTOSAVE Mod"
2. $CONSOLE:ONLY
3. _CONSOLE ON
4. _DEST _CONSOLE
5. OPEN "source\qb64.bas" FOR BINARY AS #1
6. OPEN "source\qb64-MOD.bas" FOR OUTPUT AS #2
7.  
8. DO UNTIL EOF(1)
9.     LINE INPUT #1, text$
10.     IF INSTR(text$, "QB64 COMPILER ONCE ONLY SETUP CODE ENDS HERE") THEN
11.         PRINT #2, ""
12.         PRINT #2, "'************  START OF TIMED EVENTS INITIALIZATION"
13.         PRINT #2, ""
14.         PRINT #2, "TimeEvent = _FREETIMER"
15.         PRINT #2, "ON TIMER(TimeEvent, 1) TimedEvent 'A once a second timer"
16.         PRINT #2, "IF NOT NoIDEMode THEN TIMER(TimeEvent) ON"
17.         PRINT #2, "DIM SHARED AutoSave AS INTEGER, AutoSaveTimer AS DOUBLE "
18.         PRINT #2, ""
19.         PRINT #2, ""
20.         PRINT #2, "'************  END OF TIMED EVENTS INITIALIZATION"
21.     END IF
22.     IF INSTR(text$, "$VIRTUALKEYBOARD:ON") AND VKOfound = 0 THEN
23.         PRINT #2, "VKOfound = -1 'only the first time this appears in the code."
24.         PRINT #2, "IF LEFT$(temp$,10) = " + CHR$(34) + "$AUTOSAVE:" + CHR$(34) + " THEN "
25.         PRINT #2, "    AutoSave = -1"
26.         PRINT #2, "    temp1$ = MID$(temp$,11)"
27.         PRINT #2, "    l1 = INSTR(temp1$, " + CHR$(34) + "*" + CHR$(34) + ")"
28.         PRINT #2, "    IF l1 THEN"
29.         PRINT #2, "        AutoSaveTimer = VAL(LEFT$(temp1$,l1)) * VAL(MID$(temp1$,l1+1))"
30.         PRINT #2, "    ELSE"
31.         PRINT #2, "        AutoSaveTimer = VAL(MID$(temp$,11))"
32.         PRINT #2, "    END IF"
33.         PRINT #2, "    IF AutoSaveTimer = 0 THEN a$ = " + CHR$(34) + "ERROR: No Time Set on AutoSave" + CHR$(34) + ": GOTO errmes"
34.         PRINT #2, "    layout$ = " + CHR$(34) + "$AUTOSAVE:" + CHR$(34) + " + LTRIM$(STR$(AutoSaveTimer))"
35.         PRINT #2, "    GOTO finishedlinepp"
36.         PRINT #2, "END IF"
37.         PRINT #2, ""
38.         PRINT #2, ""
39.     END IF
40.  
41.     PRINT #2, text$
42.     IF INSTR(text$, "'clear/init variables") THEN PRINT #2, "AutoSave = 0"
43.     IF INSTR(text$, "a3u$ = UCASE$(a3$)") THEN PRINT #2, "IF LEFT$(a3u$,9) = " + CHR$(34) + "$AUTOSAVE" + CHR$(34) + " THEN GOTO finishednonexec"
44. LOOP
45. PRINT #2, ""
46. PRINT #2, ""
47. PRINT #2, "SUB TimedEvent"
48. PRINT #2, "STATIC backidet$, TimeElapsed AS _UNSIGNED LONG"
49. PRINT #2, "TimeElapsed = TimeElapsed +1"
50. PRINT #2, "IF NOT Autosave THEN EXIT SUB"
51. PRINT #2, "IF AutoSaveTimer = 0 THEN EXIT SUB"
52. PRINT #2, "IF TimeElapsed MOD AutoSaveTimer = 0 THEN"
53. PRINT #2, "  IF NOT _DIREXISTS(" + CHR$(34) + "internal\autosave" + CHR$(34) + ") THEN MKDIR " + CHR$(34) + "internal\autosave" + CHR$(34)
54. PRINT #2, "  IF backidet$ <> idet$ THEN"
55. PRINT #2, "    IF ideprogname = " + CHR$(34) + CHR$(34) + " THEN"
56. PRINT #2, "        ProposedTitle$ = FindProposedTitle$"
57. PRINT #2, "        IF ProposedTitle$ = " + CHR$(34) + CHR$(34) + " THEN"
58. PRINT #2, "            savename$ = " + CHR$(34) + "untitled" + CHR$(34) + " + tempfolderindexstr$"
59. PRINT #2, "        ELSE"
60. PRINT #2, "            savename$ = ProposedTitle$ + " + CHR$(34) + ".bas" + CHR$(34)
61. PRINT #2, "        END IF"
62. PRINT #2, "    ELSE"
63. PRINT #2, "        savename$ = ideprogname"
64. PRINT #2, "    END IF"
65. PRINT #2, "    t$ = DATE$ + " + CHR$(34) + " - " + CHR$(34) + " + TIME$"
66. PRINT #2, "    DO"
67. PRINT #2, "        l = INSTR(t$, " + CHR$(34) + ":" + CHR$(34) + ")"
68. PRINT #2, "        MID$(t$, l) = " + CHR$(34) + "-" + CHR$(34)
69. PRINT #2, "    LOOP UNTIL l = 0"
70. PRINT #2, "    savename$ = " + CHR$(34) + "internal\autosave\" + CHR$(34) + " + savename$ + " + CHR$(34) + " (" + CHR$(34) + " + t$ + " + CHR$(34) + ") .bas" + CHR$(34)
71. PRINT #2, "    OPEN savename$ FOR OUTPUT AS #1510"
72. PRINT #2, "    FOR i = 1 TO iden"
73. PRINT #2, "        tempstring$ = idegetline(i)"
74. PRINT #2, "        PRINT #1510, tempstring$"
75. PRINT #2, "    NEXT"
76. PRINT #2, "    CLOSE #1510"
77. PRINT #2, ""
78. PRINT #2, "    backidet$ = idet$"
79. PRINT #2, "  END IF"
80. PRINT #2, "END IF"
81. PRINT #2, "END SUB"
82. CLOSE
83.  
84. SHELL "qb64 -x source\qb64-MOD.bas"
85. SHELL "qb64-MOD.exe"
86.  

Another update to the routine here, to make it a little more flexible -- we can now set the amount of time IN PROGRAM and not need to set it in QB64.bas like the previous version above does.

NOTE:  Notice that I've configured this to run as a timed event which counts in SECONDS now, instead of MINUTES.  For testing purposes, all you need to do is set something incredibly fast such as $AUTOSAVE:1 and it'll save your work every second into separate, individual, time-stamped BAS files.

NOTE2:  I'm also lazy and don't want to calculate how many seconds are in a sequence of minutes.  If I want it to autosave my work every 27.2 minutes, how many seconds is that?  I dunno!  And, I don't want to have to get out a calculator to figure it out!!

So, this is a "smart" metacommand which calculates for us, as I'll illustrate below:

$AUTOSAVE:10      <--- This will autosave our work every 10 seconds into timestamped BAS files
$AUTOSAVE:60      <--- This will do it once a minute
$AUTOSAVE:27.2*60    <---  This will do it once every 27.2 minutes, AND it'll calculate that math and automagically replace the value for us so we can see how many seconds 27.2*60 is.

So, in the end, usage is now:

$AUTOSAVE:seconds

Just remember, seconds can include multiplication to be precalculated for us.  It doesn't do variables, addition, subtraction, or division -- JUST multiplication!  After all, if you're trying to divide the number of seconds you autosave, you're doing something wrong...

**********************
**********************

And just out of personal curiosity, am I the only person who is interested in such things?  These topics seldom ever get a response, so I'm often wondering if there's no need to bother sharing such code.  (I don't care though; I'll continue to share anyway, just so these little "Mod-Projects" are archived in various places across the net, and available to help me hunt them down for myself, if I ever need them again in the future.  Ptttttbbbttt!!)

Surely I'm not the only person out there to ever need/want to be able to have QB64 save my code at set intervals, for me??  The longer the project, the more I like/require things to be regularly backed up so I can maintain a working chain in case of total brain failure and code collapse.  Am I the only one who does this?  :P

Title: Re: QB64 Mod: $AUTOSAVE
Post by: freetrav on September 21, 2018, 02:11:11 pm

If you can tweak this to support addition and variables, then it becomes possible to do

MINUTES = 60
SECONDS = 1

$AUTOSAVE:2 *MINUTES + 30 *SECONDS

Alternatively, allow the parameter to parse for a colon (:), and each one multiplies by 60:

$AUTOSAVE:30 is every 30 seconds

$AUTOSAVE:2:30 is every two minutes thirty seconds - 150 seconds (2*60 + 30)

$AUTOSAVE:1:30:00 is every one hour thirty minutes - 5400 seconds (((1*60)+30)*60+0)

Title: Re: QB64 Mod: $AUTOSAVE
Post by: FellippeHeitor on September 21, 2018, 02:45:48 pm

Quote from: SMcNeill on September 21, 2018, 01:36:18 pm

And just out of personal curiosity, am I the only person who is interested in such things?  These topics seldom ever get a response, so I'm often wondering if there's no need to bother sharing such code.  (I don't care though; I'll continue to share anyway, just so these little "Mod-Projects" are archived in various places across the net, and available to help me hunt them down for myself, if I ever need them again in the future.  Ptttttbbbttt!!)

Surely I'm not the only person out there to ever need/want to be able to have QB64 save my code at set intervals, for me??  The longer the project, the more I like/require things to be regularly backed up so I can maintain a working chain in case of total brain failure and code collapse.  Am I the only one who does this?  :P

I've voiced my opinion on this particular mod the first time you came up with it a while back. My point was that the IDE already saves a snapshot with every keystroke we type and that was enough for me. At the time you argued that using multiple instances could hinder the ability to recover lost code etc.

I still don't think it's optimal to have a bunch of duplicates with minor differences in one's hard drive, but do respect others wanting it. I'm used to versioning control done differently.

Title: Re: QB64 Modset by Steve
Post by: SMcNeill on September 21, 2018, 03:36:51 pm

Code: QB64: [Select]

1. _TITLE "QB64 Modset by Steve"
2. OPEN "source\qb64.bas" FOR BINARY AS #1
3. OPEN "source\qb64-MOD.bas" FOR OUTPUT AS #2
4. DO
5.     CLS
6.     _LIMIT 30
7.     PRINT "TOGGLE the following settings below:"
8.     IF NOT autosave THEN PRINT "1) DON'T do the $AUTOSAVE mod" ELSE PRINT "1) Do the $AUTOSAVE mod"
9.     IF NOT showclock THEN PRINT "2) DON'T show a clock at the bottom of the screen." ELSE PRINT "2) Do show a clock at the bottom of the screen."
10.     PRINT
11.     PRINT "0) Make modifications as set above"
12.  
13.     i$ = INKEY$
14.     _KEYCLEAR
15.     SELECT CASE i$
16.         CASE "1", "!": autosave = NOT autosave
17.         CASE "2", "@": showclock = NOT showclock
18.         CASE "0", ")": EXIT DO
19.     END SELECT
20.     _DISPLAY
21. LOOP
22.  
23.  
24. DO UNTIL EOF(1)
25.     LINE INPUT #1, text$
26.     IF autosave OR showclock THEN
27.         IF INSTR(text$, "QB64 COMPILER ONCE ONLY SETUP CODE ENDS HERE") THEN
28.             PRINT #2, ""
29.             PRINT #2, "'************  START OF TIMED EVENTS INITIALIZATION"
30.             PRINT #2, ""
31.             PRINT #2, "TimeEvent = _FREETIMER"
32.             PRINT #2, "ON TIMER(TimeEvent, 1) TimedEvent 'A once a second timer"
33.             PRINT #2, "IF NOT NoIDEMode THEN TIMER(TimeEvent) ON"
34.             IF autosave THEN PRINT #2, "DIM SHARED AutoSave AS INTEGER, AutoSaveTimer AS DOUBLE "
35.             PRINT #2, ""
36.             PRINT #2, ""
37.             PRINT #2, "'************  END OF TIMED EVENTS INITIALIZATION"
38.         END IF
39.     END IF
40.     IF autosave THEN
41.         IF INSTR(text$, "$VIRTUALKEYBOARD:ON") AND VKOfound = 0 THEN
42.             PRINT #2, "VKOfound = -1 'only the first time this appears in the code."
43.             PRINT #2, "IF LEFT$(temp$,10) = " + CHR$(34) + "$AUTOSAVE:" + CHR$(34) + " THEN "
44.             PRINT #2, "    AutoSave = -1"
45.             PRINT #2, "    temp1$ = MID$(temp$,11)"
46.             PRINT #2, "    l1 = INSTR(temp1$, " + CHR$(34) + "*" + CHR$(34) + ")"
47.             PRINT #2, "    IF l1 THEN"
48.             PRINT #2, "        AutoSaveTimer = VAL(LEFT$(temp1$,l1)) * VAL(MID$(temp1$,l1+1))"
49.             PRINT #2, "    ELSE"
50.             PRINT #2, "        AutoSaveTimer = VAL(MID$(temp$,11))"
51.             PRINT #2, "    END IF"
52.             PRINT #2, "    IF AutoSaveTimer = 0 THEN a$ = " + CHR$(34) + "ERROR: No Time Set on AutoSave" + CHR$(34) + ": GOTO errmes"
53.             PRINT #2, "    layout$ = " + CHR$(34) + "$AUTOSAVE:" + CHR$(34) + " + LTRIM$(STR$(AutoSaveTimer))"
54.             PRINT #2, "    GOTO finishedlinepp"
55.             PRINT #2, "END IF"
56.             PRINT #2, ""
57.             PRINT #2, ""
58.         END IF
59.     END IF
60.     PRINT #2, text$
61.     IF autosave THEN
62.         IF INSTR(text$, "'clear/init variables") THEN PRINT #2, "AutoSave = 0"
63.         IF INSTR(text$, "a3u$ = UCASE$(a3$)") THEN PRINT #2, "IF LEFT$(a3u$,9) = " + CHR$(34) + "$AUTOSAVE" + CHR$(34) + " THEN GOTO finishednonexec"
64.     END IF
65. LOOP
66. IF autosave OR showclock THEN
67.     PRINT #2, ""
68.     PRINT #2, ""
69.     PRINT #2, "SUB TimedEvent"
70.     PRINT #2, "STATIC backidet$, TimeElapsed AS _UNSIGNED LONG"
71.     PRINT #2, "TimeElapsed = TimeElapsed +1"
72.     IF showclock THEN
73.         PRINT #2, "D = _DEST: DC = _DEFAULTCOLOR: BC = _BACKGROUNDCOLOR"
74.         PRINT #2, "_DEST 0: COLOR 0, 3"
75.         PRINT #2, "LOCATE idewy + idesubwindow, idewx - 32: PRINT TIME$;"
76.         PRINT #2, "LOCATE idecy - idesy + 3, maxLineNumberLength + idecx - idesx + 2"
77.         PRINT #2, "COLOR DC, BC: _DEST D"
78.     END IF
79.     IF autosave THEN
80.         PRINT #2, "IF NOT Autosave THEN EXIT SUB"
81.         PRINT #2, "IF AutoSaveTimer = 0 THEN EXIT SUB"
82.         PRINT #2, "IF TimeElapsed MOD AutoSaveTimer = 0 THEN"
83.         PRINT #2, "  IF NOT _DIREXISTS(" + CHR$(34) + "internal\autosave" + CHR$(34) + ") THEN MKDIR " + CHR$(34) + "internal\autosave" + CHR$(34)
84.         PRINT #2, "  IF backidet$ <> idet$ THEN"
85.         PRINT #2, "    IF ideprogname = " + CHR$(34) + CHR$(34) + " THEN"
86.         PRINT #2, "        ProposedTitle$ = FindProposedTitle$"
87.         PRINT #2, "        IF ProposedTitle$ = " + CHR$(34) + CHR$(34) + " THEN"
88.         PRINT #2, "            savename$ = " + CHR$(34) + "untitled" + CHR$(34) + " + tempfolderindexstr$"
89.         PRINT #2, "        ELSE"
90.         PRINT #2, "            savename$ = ProposedTitle$ + " + CHR$(34) + ".bas" + CHR$(34)
91.         PRINT #2, "        END IF"
92.         PRINT #2, "    ELSE"
93.         PRINT #2, "        savename$ = ideprogname"
94.         PRINT #2, "    END IF"
95.         PRINT #2, "    t$ = DATE$ + " + CHR$(34) + " - " + CHR$(34) + " + TIME$"
96.         PRINT #2, "    DO"
97.         PRINT #2, "        l = INSTR(t$, " + CHR$(34) + ":" + CHR$(34) + ")"
98.         PRINT #2, "        MID$(t$, l) = " + CHR$(34) + "-" + CHR$(34)
99.         PRINT #2, "    LOOP UNTIL l = 0"
100.         PRINT #2, "    savename$ = " + CHR$(34) + "internal\autosave\" + CHR$(34) + " + savename$ + " + CHR$(34) + " (" + CHR$(34) + " + t$ + " + CHR$(34) + ") .bas" + CHR$(34)
101.         PRINT #2, "    OPEN savename$ FOR OUTPUT AS #1510"
102.         PRINT #2, "    FOR i = 1 TO iden"
103.         PRINT #2, "        tempstring$ = idegetline(i)"
104.         PRINT #2, "        PRINT #1510, tempstring$"
105.         PRINT #2, "    NEXT"
106.         PRINT #2, "    CLOSE #1510"
107.         PRINT #2, ""
108.         PRINT #2, "    backidet$ = idet$"
109.         PRINT #2, "  END IF"
110.         PRINT #2, "END IF"
111.     END IF
112.     PRINT #2, "END SUB"
113. END IF
114. CLOSE
115.  
116. IF showclock THEN
117.     OPEN ".\source\ide\ide_methods.bas" FOR BINARY AS #1
118.     OPEN ".\source\ide\ide_temp.bas" FOR OUTPUT AS #2
119.     DO
120.         LINE INPUT #1, temp$
121.         IF flagset = 2 AND INSTR(temp$, "TIME$") = 0 THEN PRINT #2, "LOCATE idewy+ idesubwindow, idewx - 32: PRINT TIME$;"
122.         IF flagset = 2 THEN flagset = 3
123.         PRINT #2, temp$
124.         IF INSTR(temp$, "'update cursor pos in status bar") THEN flagset = 1
125.         IF INSTR(temp$, "PRINT a$;") THEN flagset = 2
126.     LOOP UNTIL EOF(1)
127.     CLOSE
128.     KILL ".\source\ide\ide_methods.bas"
129.     NAME ".\source\ide\ide_temp.bas" AS ".\source\ide\ide_methods.bas"
130. END IF
131.  
132.  
133.  
134. SHELL "qb64 -x source\qb64-MOD.bas"
135. SHELL "qb64-MOD.exe"
136. SYSTEM

We now have an install system which makes it even easier to install the various modifications which I like to tweak into my version of QB64.

Currently we have the $AUTOSAVE modification for folks who like that type of ability, and we now also have the ability to add a clock to the bottom of the IDE (something which I personally miss a lot).

Now, some of you might ask, "Why put a clock into a series of modifications like this, and not into the standard IDE?"

The reason for that is rather simple:  It's on ON TIMER event which could possibly lag down older computers which might be running QB64.  I have no issues with editing/coding/working in QB64 -- not even with something large like QB64.bas loaded into the editor -- but I'm worried that it could become an issue for others if it was standard for all downloads.

This offers the best option for users, I think:  Those who want a clock on the IDE can easily install one there.  If it causes lag or unresponsiveness for them, it's easy enough to get rid of -- just go back to QB64.exe instead of the QB64-Mod.exe which this builds for you.  :P

******************
******************

To do soon(tm):

Add a modification for the $REPLACE ability as I was speaking about elsewhere here on the forums.

Add an option for the SUB/FUNCTIONS to go anywhere in our code.  (This will require work with the autoformatter and spacing, so it may take a bit to perfect.)

Add the ability to instantly convert from 32-bit to 64-bit, for those who have the 64-bit compiler in the main folder when running the installation program. 

**********************
**********************

Eventually, the goal is to end up making this a one-stop shop for all the little modifications which I try to track and offer for various changes to QB64.  :)

Title: Re: QB64 Mod: $AUTOSAVE
Post by: Cobalt on September 21, 2018, 05:08:08 pm

Quote from: SMcNeill on September 21, 2018, 01:36:18 pm

... AND it'll calculate that math and automagically replace ...

"automagically"!?! I think that is going to be my new favorite word!

anywho, I see an autosave being a handy 'Option'. I wouldn't want some 2 or 3 line test crude being auto saved but would find it handy with longer more involved code, especially when more than one IDE open for testing host\client programs and tweaking them on the fly.

Title: Re: QB64 Modset by Steve
Post by: Pete on September 21, 2018, 05:24:23 pm

Beats autotragically. You need FreeBASIC for that. ;)

Here is another clock example that can run in the title bar. It is combined in an INPUT keyboard routine.

Code: QB64: [Select]

1. maxspaces% = 40
2. WIDTH 80, 25
3. DO
4.     CLS
5.     LOCATE 10, 5
6.     PRINT "Input Name: ";
7.     showcursor% = 7 ' Use 7 to show the cursor or zero to hide it. A value of 30 makes it a small square.
8.  
9.     CALL getinput(word$, maxspaces%, limitinput$, showcursor%, autoenter%)
10.  
11.     LOCATE 12, 5: PRINT "The input is now in the variable word$ as: "
12.     LOCATE 14, 41 - LEN(word$) / 2 ' Centers the print in the next line.
13.     PRINT word$
14.  
15.     ' Now here is another way to use the sub and keep the clock running.
16.     LOCATE 16, 5
17.     PRINT "Try again? Y/N "; ' Remember to always use a ";" after the print statement to keep your input on the same line.
18.     limitinput$ = "YyNn"
19.     autoenter% = 1 ' Automatically enter response after one key is pressed.
20.     maxspaces% = 10
21.     showcursor% = 0 ' Hide the cursor for yes/no responses.
22.  
23.     CALL getinput(word$, maxspaces%, limitinput$, showcursor%, autoenter%)
24.  
25.     limitinput$ = "" ' Always erase variable for other uses.
26.     autoenter% = 0 ' Always erase variable for other uses.
27.     IF LCASE$(word$) = "n" THEN END
28. LOOP
29.  
30. SUB getinput (word$, maxspaces%, limitinput$, showcursor%, autoenter%)
31. ' Input Statement with clock.
32. startpos% = POS(0)
33. endpos% = startpos% + maxspaces%
34. word$ = "" ' Erases last entry to begin next entry.
35. LOCATE , , 1, 7, showcursor%
36.  
37. DO
38.     IF TIME$ >= "12:00:00" THEN
39.         TIME1 = ASC(MID$(TIME$, 1, 1)) - 1
40.         TIME2 = ASC(MID$(TIME$, 2, 1)) - 2
41.         IF TIME2 < 48 THEN TIME2 = TIME2 + 10: TIME1 = TIME1 - 1
42.         TIMECONV$ = CHR$(TIME1) + CHR$(TIME2) + MID$(TIME$, 3, LEN(TIME$)) + " PM"
43.     ELSE
44.         TIMECONV$ = MID$(TIME$, 1, 8) + " AM"
45.     END IF
46.     IF MID$(TIMECONV$, 1, 2) = "00" THEN MID$(TIMECONV$, 1, 2) = "12"
47.     _TITLE SPACE$(61) + TIMECONV$
48.  
49.     ' KEY INPUT GOES HERE....................................................
50.  
51.     IF autoenter% THEN
52.         ' Used for a non-enter response, like answering yes or no.
53.         IF LEN(word$) = autoenter% THEN EXIT SUB
54.     END IF
55.  
56.     mykey$ = INKEY$
57.  
58.     IF mykey$ <> "" THEN
59.         yy% = CSRLIN: xx% = POS(0)
60.  
61.         SELECT CASE mykey$
62.             CASE CHR$(0) + "K"
63.                 mov% = -1: GOSUB action
64.             CASE CHR$(0) + "M"
65.                 mov% = 1: GOSUB action
66.             CASE CHR$(0) + "S"
67.                 GOSUB wash: GOSUB delete
68.             CASE CHR$(0) + "R"
69.                 IF ins% = 0 THEN ins% = -1 ELSE ins% = 0
70.                 IF ins% = 0 THEN LOCATE , , 1, 7, 7 ELSE LOCATE , , 1, 7, 30
71.             CASE CHR$(0) + "O"
72.                 IF word$ <> "" THEN LOCATE yy%, startpos% + LEN(word$)
73.             CASE CHR$(0) + "G"
74.                 LOCATE yy%, startpos%
75.             CASE CHR$(8)
76.                 IF xx% > startpos% THEN
77.                     LOCATE , POS(0) - 1
78.                     xx% = POS(0)
79.                     GOSUB wash: GOSUB delete
80.                 END IF
81.             CASE CHR$(13)
82.                 ' Exits the input sub back to your main program.
83.                 EXIT SUB
84.             CASE CHR$(27)
85.                 ' Quit and removes program winsow.
86.                 SYSTEM
87.             CASE CHR$(32) TO CHR$(126)
88.                 IF INSTR(limitinput$, mykey$) OR limitinput$ = "" THEN
89.                     key$ = mykey$
90.                     GOSUB action
91.                 ELSE
92.                     BEEP ' Input error, retry.
93.                 END IF
94.         END SELECT
95.         mov% = 0: key$ = ""
96.     END IF
97. LOOP
98.  
99. action:
100. IF POS(0) + mov% >= startpos% AND POS(0) + mov% < endpos% THEN
101.     DO
102.         IF key$ <> "" THEN
103.             SELECT CASE ins%
104.                 CASE 0
105.                     IF LEN(word$) + LEN(key$) > endpos% - startpos% THEN EXIT DO
106.                     word$ = MID$(word$, 1, POS(0) - startpos%) + key$ + MID$(word$, POS(0) - startpos% + 1)
107.                 CASE -1
108.                     word$ = MID$(word$, 1, POS(0) - startpos%) + key$ + MID$(word$, POS(0) - startpos% + 2)
109.             END SELECT
110.         END IF
111.         IF POS(0) - startpos% >= LEN(word$) - LEN(key$) AND key$ <> "" OR key$ = "" OR ins% = -1 THEN
112.             IF key$ = "" AND mov% = 1 THEN IF POS(0) - startpos% = LEN(word$) THEN EXIT DO
113.             LOCATE , POS(0) + mov%: PRINT key$;
114.         ELSE
115.             LOCATE yy%, startpos%: PRINT MID$(word$, 1, xx% - startpos%); key$;: xx2% = POS(0): PRINT MID$(word$, xx% - startpos% + 2);: LOCATE yy%, xx2%
116.         END IF
117.         EXIT DO
118.     LOOP
119. END IF
120. RETURN
121.  
122. wash:
123. IF POS(0) >= startpos% AND word$ <> "" AND POS(0) - startpos% < LEN(word$) THEN
124.     LOCATE yy%, startpos% + LEN(word$) - 1
125.     PRINT " ";
126.     LOCATE yy%, xx%
127. END IF
128. RETURN
129.  
130. delete:
131. IF POS(0) - startpos% = 0 THEN
132.     word$ = MID$(word$, 2)
133. ELSE
134.     word$ = MID$(word$, 1, POS(0) - startpos%) + MID$(word$, POS(0) - startpos% + 2)
135. END IF
136. PRINT MID$(word$, xx% - startpos% + 1);: LOCATE yy%, xx%
137. RETURN
138. END SUB
139.  

What I could see useful for the way I code is a progressive version SAVE AS option in an IDE. peteprog.bas is the original, my next save is "automagically" named peteprog-0002.bas and so on and so forth. Of course this leads to other considerations like what to do if the user opens up peteprog-0003.bas, an older version, and tries to save it? It should look to see what the last version was and add one to it but that would mean an edited older version just jumped in front of the latest version. Oh well, at least my ideas keep the people who make aspirin busy.

Text Only | Text with Attachments