From 8bd4d8dd7c1241b73a7473cd35fae00b664bda05 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Wed, 3 Feb 2016 23:10:11 -0800 Subject: 2626 --- 022arithmetic.cc | 80 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 80 insertions(+) diff --git a/022arithmetic.cc b/022arithmetic.cc index dc191efa..badd298a 100644 --- a/022arithmetic.cc +++ b/022arithmetic.cc @@ -321,3 +321,83 @@ recipe main [ ] # integer division can't return floating-point infinity +error: main: divide by zero in '1:number <- divide-with-remainder 4, 0' + +//: Bitwise shifts + +:(before "End Primitive Recipe Declarations") +SHIFT_LEFT, +:(before "End Primitive Recipe Numbers") +put(Recipe_ordinal, "shift-left", SHIFT_LEFT); +:(before "End Primitive Recipe Checks") +case SHIFT_LEFT: { + if (SIZE(inst.ingredients) != 2) { + raise_error << maybe(get(Recipe, r).name) << "'shift-left' requires exactly two ingredients, but got '" << inst.to_string() << "'\n" << end(); + break; + } + if (!is_mu_number(inst.ingredients.at(0)) || !is_mu_number(inst.ingredients.at(1))) { + raise_error << maybe(get(Recipe, r).name) << "'shift-left' requires number ingredients, but got '" << inst.to_string() << "'\n" << end(); + break; + } + if (SIZE(inst.products) > 1) { + raise_error << maybe(get(Recipe, r).name) << "'shift-left' yields one product in '" << inst.to_string() << "'\n" << end(); + break; + } + if (!inst.products.empty() && !is_dummy(inst.products.at(0)) && !is_mu_number(inst.products.at(0))) { + raise_error << maybe(get(Recipe, r).name) << "'shift-left' should yield a number, but got " << inst.products.at(0).original_string << '\n' << end(); + goto finish_checking_instruction; + } + break; +} +:(before "End Primitive Recipe Implementations") +case SHIFT_LEFT: { + // ingredients must be integers + long long int a = static_cast(ingredients.at(0).at(0)); + long long int b = static_cast(ingredients.at(1).at(0)); + products.resize(1); + if (b < 0) { + raise_error << maybe(current_recipe_name()) << "second ingredient can't be negative in '" << current_instruction().to_string() << "'\n" << end(); + products.at(0).push_back(0); + break; + } + products.at(0).push_back(a< 1) { + raise_error << maybe(get(Recipe, r).name) << "'shift-right' yields one product in '" << inst.to_string() << "'\n" << end(); + break; + } + if (!inst.products.empty() && !is_dummy(inst.products.at(0)) && !is_mu_number(inst.products.at(0))) { + raise_error << maybe(get(Recipe, r).name) << "'shift-right' should yield a number, but got " << inst.products.at(0).original_string << '\n' << end(); + goto finish_checking_instruction; + } + break; +} +:(before "End Primitive Recipe Implementations") +case SHIFT_RIGHT: { + // ingredients must be integers + long long int a = static_cast(ingredients.at(0).at(0)); + long long int b = static_cast(ingredients.at(1).at(0)); + products.resize(1); + if (b < 0) { + raise_error << maybe(current_recipe_name()) << "second ingredient can't be negative in '" << current_instruction().to_string() << "'\n" << end(); + products.at(0).push_back(0); + break; + } + products.at(0).push_back(a>>b); + break; +} -- cgit 1.4.1-2-gfad0 9:02 +0200 general updates' href='/akspecs/ranger/commit/README?h=v1.9.0b1&id=7bf5f9672ee79489553506831b7cab54a8609077'>7bf5f967 ^ 
7dc8fef8 ^

d797d616 ^


712aa449

240394a4 ^

7bf5f967 ^

176e8a68 ^


e53b2228 ^

d797d616 ^


7bf5f967 ^


7dc8fef8 ^

4833bc23 ^


4ea0f69a ^


240394a4 ^


240394a4 ^


240394a4 ^

7dc8fef8 ^

9e89f023 ^

36e4e71e ^

20ab9343 ^


20ab9343 ^






4ea0f69a ^


240394a4 ^

7dc8fef8 ^

36e4e71e ^


4a383291 ^

78a7d762 ^

e952d6cb ^

78a7d762 ^

e952d6cb ^

4ea0f69a ^


7838675f ^


07069888 ^


07069888 ^

7838675f ^


1891697f ^

755e7df1 ^

a3d5f44b ^

66a8d4ff ^

7838675f ^

7dc8fef8 ^

80a93f0b ^

500cf259 ^


7dc8fef8 ^



80a93f0b ^

240394a4 ^




240394a4 ^

7dc8fef8 ^

240394a4 ^


96004e71 ^

240394a4 ^


96004e71 ^

240394a4 ^




e5fb3d74 ^

240394a4 ^


240394a4 ^

7dc8fef8 ^




7b33b517 ^


176e8a68 ^

7b33b517 ^

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

80
81

82

83
84
85
86

87

88
89

90

91
92
93
94

95
96

97

98