update libpike

libpike/casino/casino.odin

@@ -0,0 +1,149 @@
+// SPDX-License-Identifer: MIT
+/* casino.odin
+ *
+ * Routines for handling card games
+ *
+ * Written by vx-clutch
+*/
+package casino
+
+import "core:fmt"
+import "core:math/rand"
+
+/*
+Type represeting a suit
+*/
+Suit :: enum {
+	CRUBS,
+	DIAMONDS,
+	HEARTS,
+	SPADES,
+}
+
+/*
+Type represeting a card
+*/
+Card :: struct {
+	rank: int,
+	suit: Suit,
+}
+
+/*
+Type represeting a deck of cards
+*/
+Deck :: struct {
+	cards:     [52]Card,
+	top_index: int,
+}
+
+/*
+Creates a well-ordered deck
+*/
+create_deck :: proc() -> Deck {
+	deck: Deck
+	deck.top_index = 0
+	for suit in Suit {
+		for rank in 1 ..= 13 {
+			deck.cards[deck.top_index] = Card{rank, suit}
+			deck.top_index += 1
+		}
+	}
+	deck.top_index = 0
+	return deck
+}
+
+CRUB :: "♣"
+DIAMOND :: "♦"
+HEART :: "♥️"
+SPADE :: "♠"
+
+/*
+Pretty print a card
+*/
+print_card :: proc(card: Card) {
+	switch card.suit {
+	case .CRUBS:
+		switch card.rank {
+		case 1:
+			fmt.printf("A%s", CRUB)
+		case 11:
+			fmt.printf("J%s", CRUB)
+		case 12:
+			fmt.printf("Q%s", CRUB)
+		case 13:
+			fmt.printf("K%s", CRUB)
+		case:
+			fmt.printf("%d%s", card.rank, CRUB)
+		}
+	case .DIAMONDS:
+		switch card.rank {
+		case 1:
+			fmt.printf("A%s", DIAMOND)
+		case 11:
+			fmt.printf("J%s", DIAMOND)
+		case 12:
+			fmt.printf("Q%s", DIAMOND)
+		case 13:
+			fmt.printf("K%s", DIAMOND)
+		case:
+			fmt.printf("%d%s", card.rank, DIAMOND)
+		}
+	case .HEARTS:
+		switch card.rank {
+		case 1:
+			fmt.printf("A%s", HEART)
+		case 11:
+			fmt.printf("J%s", HEART)
+		case 12:
+			fmt.printf("Q%s", HEART)
+		case 13:
+			fmt.printf("K%s", HEART)
+		case:
+			fmt.printf("%d%s", card.rank, HEART)
+		}
+	case .SPADES:
+		switch card.rank {
+		case 1:
+			fmt.printf("A%s", SPADE)
+		case 11:
+			fmt.printf("J%s", SPADE)
+		case 12:
+			fmt.printf("Q%s", SPADE)
+		case 13:
+			fmt.printf("K%s", SPADE)
+		case:
+			fmt.printf("%d%s", card.rank, SPADE)
+		}
+	}
+}
+
+/*
+Pretty print out the deck
+*/
+print_deck :: proc(deck: Deck) {
+	i := 0
+	for card in deck.cards {
+		if i >= 13 {
+			fmt.println("")
+			i = 0
+		}
+		print_card(card)
+		fmt.print(" ")
+		i += 1
+	}
+	fmt.println("")
+}
+
+/*
+Shuffles the deck
+*/
+shuffle :: proc(deck: ^Deck) {
+	rand.shuffle(deck^.cards[:])
+}
+
+/*
+Deal one card from the top of the deck
+*/
+deal_card :: proc(deck: ^Deck) -> Card {
+	return deck^.cards[deck^.top_index]
+}

libpike/poker/poker.odin

@@ -7,20 +7,8 @@
 */
 package poker
 
-import "core:fmt"
-import "core:math/rand"
-
 import "../log"
-
+import "../casino"
-/*
-Type represeting a suit
-*/
-Suit :: enum {
-	CRUBS,
-	DIAMONDS,
-	HEARTS,
-	SPADES,
-}
 
 /*
 Type represeting a hand's rank
@@ -38,147 +26,11 @@ HandRank :: enum {
 	ROYAL,
 }
 
-/*
-Type represeting a card
-*/
-Card :: struct {
-	rank: int,
-	suit: Suit,
-}
-
 /*
 Type represeting a poker hand
 */
 Hand :: struct {
-	_: [5]Card,
+	_: [5]casino.Card,
-}
-
-/*
-Type represeting a deck of cards
-*/
-Deck :: struct {
-	cards:     [52]Card,
-	top_index: int,
-}
-
-/*
-Creates a well-ordered deck
-*/
-create_deck :: proc() -> Deck {
-	deck: Deck
-	deck.top_index = 0
-	for suit in Suit {
-		for rank in 1 ..= 13 {
-			deck.cards[deck.top_index] = Card{rank, suit}
-			deck.top_index += 1
-		}
-	}
-	deck.top_index = 0
-	return deck
-}
-
-CRUB :: "♣"
-DIAMOND :: "♦"
-HEART :: "♥️"
-SPADE :: "♠"
-
-/*
-Pretty print a card
-*/
-print_card :: proc(card: Card) {
-	switch card.suit {
-	case .CRUBS:
-		switch card.rank {
-		case 1:
-			fmt.printf("A%s", CRUB)
-		case 11:
-			fmt.printf("J%s", CRUB)
-		case 12:
-			fmt.printf("Q%s", CRUB)
-		case 13:
-			fmt.printf("K%s", CRUB)
-		case:
-			fmt.printf("%d%s", card.rank, CRUB)
-		}
-	case .DIAMONDS:
-		switch card.rank {
-		case 1:
-			fmt.printf("A%s", DIAMOND)
-		case 11:
-			fmt.printf("J%s", DIAMOND)
-		case 12:
-			fmt.printf("Q%s", DIAMOND)
-		case 13:
-			fmt.printf("K%s", DIAMOND)
-		case:
-			fmt.printf("%d%s", card.rank, DIAMOND)
-		}
-	case .HEARTS:
-		switch card.rank {
-		case 1:
-			fmt.printf("A%s", HEART)
-		case 11:
-			fmt.printf("J%s", HEART)
-		case 12:
-			fmt.printf("Q%s", HEART)
-		case 13:
-			fmt.printf("K%s", HEART)
-		case:
-			fmt.printf("%d%s", card.rank, HEART)
-		}
-	case .SPADES:
-		switch card.rank {
-		case 1:
-			fmt.printf("A%s", SPADE)
-		case 11:
-			fmt.printf("J%s", SPADE)
-		case 12:
-			fmt.printf("Q%s", SPADE)
-		case 13:
-			fmt.printf("K%s", SPADE)
-		case:
-			fmt.printf("%d%s", card.rank, SPADE)
-		}
-	}
-}
-
-/*
-Pretty print out the deck
-*/
-print_deck :: proc(deck: Deck) {
-	i := 0
-	for card in deck.cards {
-		if i >= 13 {
-			fmt.println("")
-			i = 0
-		}
-		print_card(card)
-		fmt.print(" ")
-		i += 1
-	}
-	fmt.println("")
-}
-
-/*
-Shuffles the deck
-*/
-shuffle :: proc(deck: ^Deck) {
-	rand.shuffle(deck^.cards[:])
-}
-
-/*
-Deal one card from the top of the deck
-*/
-deal_card :: proc(deck: ^Deck) -> Card {
-	return deck^.cards[deck^.top_index]
-}
-
-/*
-Deal a hand of size n
-*/
-deal_hand :: proc(d: Deck, n: int) -> Card {
-	log.printl("%s is NOT implemented", #procedure)
-	return Card{}
 }
 
 /*

main.odin

@@ -13,17 +13,16 @@
 
 package main
 
-import "core:fmt"
 
 import "libpike/log"
-import "libpike/poker"
+import "libpike/casino"
 
 main :: proc() {
 	log.printl("pike init")
 
-	deck := poker.create_deck()
+	deck := casino.create_deck()
 
-	// poker.shuffle(&deck)
+	casino.shuffle(&deck)
 
-	poker.print_deck(deck)
+	casino.print_deck(deck)
 }