Data update

Task/History-variables/FreeBASIC/history-variables.basic

@@ -0,0 +1,60 @@
+REM  integer history variable
+
+Type HistoryInt
+    As Integer Ptr values
+    As Integer cnt
+    As Integer capacity
+End Type
+
+Function InitHistory() As HistoryInt Ptr
+    Dim As HistoryInt Ptr hist = Allocate(Sizeof(HistoryInt))
+    hist->capacity = 10
+    hist->values = Allocate(hist->capacity * Sizeof(Integer))
+    hist->cnt = 0
+    Return hist
+End Function
+
+Sub SetInt(hist As HistoryInt Ptr, value As Integer)
+    If hist->cnt >= hist->capacity Then
+        hist->capacity *= 2
+        hist->values = Reallocate(hist->values, hist->capacity * Sizeof(Integer))
+    End If
+
+    If hist->cnt = 0 Then
+        hist->values[hist->cnt] = 0
+        hist->cnt += 1
+    End If
+
+    hist->values[hist->cnt] = value
+    hist->cnt += 1
+End Sub
+
+Sub ShowHistory(hist As HistoryInt Ptr)
+    For i As Integer = 0 To hist->cnt - 1
+        Print hist->values[i]
+    Next
+End Sub
+
+Function UndoInt(hist As HistoryInt Ptr) As Integer
+    If hist->cnt <= 1 Then Return hist->values[0]
+    hist->cnt -= 1
+    Return hist->values[hist->cnt - 1]
+End Function
+
+' Main program
+Randomize Timer
+Dim As HistoryInt Ptr x = InitHistory()
+
+For i As Integer = 0 To 3
+    SetInt(x, Int(Rnd * 50) + 100)
+Next
+
+Print "x history:"
+ShowHistory(x)
+Print
+
+For i As Integer = 0 To 3
+    Print "undo, x ="; UndoInt(x)
+Next
+
+Sleep

Task/History-variables/Phix/history-variables-1.phix

@@ -1,15 +1,13 @@
--->
- <span style="color: #008080;">without</span> <span style="color: #008080;">js</span> <span style="color: #000080;font-style:italic;">-- (desktop/Phix only)</span>
- <span style="color: #004080;">sequence</span> <span style="color: #000000;">history</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span>
+without js -- (desktop/Phix only)
+sequence history = {}
 
- <span style="color: #008080;">type</span> <span style="color: #000000;">hvt</span><span style="color: #0000FF;">(</span><span style="color: #004080;">object</span> <span style="color: #000000;">o</span><span style="color: #0000FF;">)</span>
-     <span style="color: #000000;">history</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">history</span><span style="color: #0000FF;">,</span><span style="color: #000000;">o</span><span style="color: #0000FF;">)</span>
-     <span style="color: #008080;">return</span> <span style="color: #004600;">true</span>
- <span style="color: #008080;">end</span> <span style="color: #008080;">type</span>
+type hv(object o)
+    history = append(history,o)
+    return true
+end type
 
- <span style="color: #000000;">hvt</span> <span style="color: #000000;">test</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span>
- <span style="color: #000000;">test</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">2</span>
- <span style="color: #000000;">test</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">3</span>
- <span style="color: #0000FF;">?{</span><span style="color: #008000;">"current"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">test</span><span style="color: #0000FF;">}</span>
- <span style="color: #0000FF;">?{</span><span style="color: #008000;">"history"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">history</span><span style="color: #0000FF;">}</span>
-<!--
+hv test = 1
+test = 2
+test = 3
+?{"current",test}
+?{"history",history}

Task/History-variables/Phix/history-variables-2.phix

@@ -1,21 +1,19 @@
-(phixonline)-->
- <span style="color: #000080;font-style:italic;">-- history.e</span>
- <span style="color: #004080;">sequence</span> <span style="color: #000000;">histories</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{}</span>
+-- history.e
+sequence histories = {}
 
- <span style="color: #008080;">global</span> <span style="color: #008080;">function</span> <span style="color: #000000;">new_history_id</span><span style="color: #0000FF;">(</span><span style="color: #004080;">object</span> <span style="color: #000000;">v</span><span style="color: #0000FF;">)</span>
-     <span style="color: #000000;">histories</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">histories</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">v</span><span style="color: #0000FF;">})</span>
-     <span style="color: #008080;">return</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">histories</span><span style="color: #0000FF;">)</span>
- <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+global function new_history_id(object v)
+    histories = append(histories,{v})
+    return length(histories)
+end function
 
- <span style="color: #008080;">global</span> <span style="color: #008080;">procedure</span> <span style="color: #000000;">set_hv</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">hv</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">object</span> <span style="color: #000000;">v</span><span style="color: #0000FF;">)</span>
-     <span style="color: #000000;">histories</span><span style="color: #0000FF;">[</span><span style="color: #000000;">hv</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">append</span><span style="color: #0000FF;">(</span><span style="color: #000000;">histories</span><span style="color: #0000FF;">[</span><span style="color: #000000;">hv</span><span style="color: #0000FF;">],</span><span style="color: #000000;">v</span><span style="color: #0000FF;">)</span>
- <span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
+global procedure set_hv(integer hv, object v)
+    histories[hv] = append(histories[hv],v)
+end procedure
 
- <span style="color: #008080;">global</span> <span style="color: #008080;">function</span> <span style="color: #000000;">get_hv</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">hv</span><span style="color: #0000FF;">)</span>
-     <span style="color: #008080;">return</span> <span style="color: #000000;">histories</span><span style="color: #0000FF;">[</span><span style="color: #000000;">hv</span><span style="color: #0000FF;">][$]</span>
- <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
+global function get_hv(integer hv)
+    return histories[hv][$]
+end function
 
- <span style="color: #008080;">global</span> <span style="color: #008080;">function</span> <span style="color: #000000;">get_hv_full_history</span><span style="color: #0000FF;">(</span><span style="color: #004080;">integer</span> <span style="color: #000000;">hv</span><span style="color: #0000FF;">)</span>
-     <span style="color: #008080;">return</span> <span style="color: #000000;">histories</span><span style="color: #0000FF;">[</span><span style="color: #000000;">hv</span><span style="color: #0000FF;">]</span>
- <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
-<!--
+global function get_hv_full_history(integer hv)
+    return histories[hv]
+end function

Task/History-variables/Phix/history-variables-3.phix

@@ -1,9 +1,8 @@
-(phixonline)-->
- <span style="color: #008080;">include</span> <span style="color: #000000;">history</span><span style="color: #0000FF;">.</span><span style="color: #000000;">e</span>
+with javascript_semantics
+include history.e
 
- <span style="color: #008080;">constant</span> <span style="color: #000000;">test2</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">new_history_id</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
- <span style="color: #000000;">set_hv</span><span style="color: #0000FF;">(</span><span style="color: #000000;">test2</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">2</span><span style="color: #0000FF;">)</span>
- <span style="color: #000000;">set_hv</span><span style="color: #0000FF;">(</span><span style="color: #000000;">test2</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">3</span><span style="color: #0000FF;">)</span>
- <span style="color: #0000FF;">?{</span><span style="color: #008000;">"current"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">get_hv</span><span style="color: #0000FF;">(</span><span style="color: #000000;">test2</span><span style="color: #0000FF;">)}</span>
- <span style="color: #0000FF;">?{</span><span style="color: #008000;">"history"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">get_hv_full_history</span><span style="color: #0000FF;">(</span><span style="color: #000000;">test2</span><span style="color: #0000FF;">)}</span>
-<!--
+constant test2 = new_history_id(1)
+set_hv(test2, 2)
+set_hv(test2, 3)
+?{"current",get_hv(test2)}
+?{"history",get_hv_full_history(test2)}