summaryrefslogtreecommitdiff
path: root/math/grpn/patches/patch-ao
blob: 4184679b249837ff1450a8662f2b462535d8b07b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
$NetBSD: patch-ao,v 1.1 2005/10/07 12:31:25 rillig Exp $

The patches patch-al upto patch-aq add the physical constants k, q, e0,
mu0, and c.

--- funcs.c.orig	Thu Apr  4 05:46:11 2002
+++ funcs.c	Fri Oct  7 14:24:25 2005
@@ -95,6 +95,71 @@ void PushStack(){
 
 }
 
+void BoltzmannStack(){
+   Number *n1;
+
+   finishEditor();
+
+   SaveStackState(0);
+
+   n1 = setNumberReal(newNumber(), realBoltzmann);
+   Push(n1);
+
+   UndoStackState(1);
+}
+
+void ChargeStack(){
+   Number *n1;
+
+   finishEditor();
+
+   SaveStackState(0);
+
+   n1 = setNumberReal(newNumber(), realCharge);
+   Push(n1);
+
+   UndoStackState(1);
+}
+
+void E0Stack(){
+   Number *n1;
+
+   finishEditor();
+
+   SaveStackState(0);
+
+   n1 = setNumberReal(newNumber(), realE0);
+   Push(n1);
+
+   UndoStackState(1);
+}
+
+void Mu0Stack(){
+   Number *n1;
+
+   finishEditor();
+
+   SaveStackState(0);
+
+   n1 = setNumberReal(newNumber(), realMu0);
+   Push(n1);
+
+   UndoStackState(1);
+}
+
+void LightSpeedStack(){
+   Number *n1;
+
+   finishEditor();
+
+   SaveStackState(0);
+
+   n1 = setNumberReal(newNumber(), realLightSpeed);
+   Push(n1);
+
+   UndoStackState(1);
+}
+
 void PiStack(){
    Number *n1;