mirror of
https://github.com/veden/Rampant.git
synced 2024-12-26 20:54:12 +02:00
119 lines
4.3 KiB
Bash
Executable File
119 lines
4.3 KiB
Bash
Executable File
#! /usr/bin/env racket
|
|
#lang racket
|
|
|
|
(require file/zip)
|
|
(require json)
|
|
(require "visualizer/visual.rkt")
|
|
(provide (all-from-out "visualizer/visual.rkt"))
|
|
|
|
(define modFolder "/mnt/gallery/gameFiles/factorio/mods/")
|
|
(define serverModFolder "/home/veden/Downloads/factorio/mods/")
|
|
(define packageName '())
|
|
(define configuration '())
|
|
|
|
(define (makeZip folder)
|
|
(clear)
|
|
|
|
(zip (string-append folder
|
|
packageName
|
|
".zip")
|
|
#:path-prefix packageName
|
|
(string->path "info.json")
|
|
(string->path "control.lua")
|
|
(string->path "data.lua")
|
|
(string->path "data-updates.lua")
|
|
(string->path "data-final-fixes.lua")
|
|
(string->path "COPYING")
|
|
(string->path "tests.lua")
|
|
(string->path "changelog.txt")
|
|
(string->path "settings.lua")
|
|
(string->path "README.md")
|
|
(string->path "thumbnail.png")
|
|
(string->path "NOTICE")
|
|
(string->path "libs")
|
|
(string->path "sounds")
|
|
(string->path "migrations")
|
|
(string->path "locale")
|
|
(string->path "graphics")
|
|
(string->path "prototypes")))
|
|
|
|
(define (copyFile fileName modFolder)
|
|
(copy-file (string->path fileName)
|
|
(string->path (string-append modFolder
|
|
packageName
|
|
"/"
|
|
fileName))))
|
|
|
|
(define (copyDirectory directoryName modFolder)
|
|
(copy-directory/files (string->path directoryName)
|
|
(string->path (string-append modFolder
|
|
packageName
|
|
"/"
|
|
directoryName))))
|
|
|
|
(define (copyFiles modFolder)
|
|
(let ((packagePath (string->path (string-append modFolder
|
|
packageName))))
|
|
(when (directory-exists? packagePath)
|
|
(delete-directory/files packagePath))
|
|
(sleep 0.1)
|
|
(make-directory packagePath)
|
|
(copyFile "control.lua" modFolder)
|
|
(copyFile "info.json" modFolder)
|
|
(copyFile "data.lua" modFolder)
|
|
(copyFile "COPYING" modFolder)
|
|
(copyFile "NOTICE" modFolder)
|
|
(copyFile "README.md" modFolder)
|
|
(copyFile "data-updates.lua" modFolder)
|
|
(copyFile "data-final-fixes.lua" modFolder)
|
|
(copyFile "settings.lua" modFolder)
|
|
(copyFile "changelog.txt" modFolder)
|
|
(copyFile "tests.lua" modFolder)
|
|
(copyFile "thumbnail.png" modFolder)
|
|
(copyDirectory "libs" modFolder)
|
|
(copyDirectory "locale" modFolder)
|
|
(copyDirectory "migrations" modFolder)
|
|
(copyDirectory "sounds" modFolder)
|
|
(copyDirectory "graphics" modFolder)
|
|
(copyDirectory "prototypes" modFolder)))
|
|
|
|
(define (set-metadata)
|
|
(set! configuration (call-with-input-file "info.json"
|
|
(lambda (port)
|
|
(string->jsexpr (port->string port)))))
|
|
(set! packageName (string-append (string-replace (hash-ref configuration 'name) " " "_")
|
|
"_"
|
|
(hash-ref configuration 'version))))
|
|
|
|
(define (copy)
|
|
(set-metadata)
|
|
(copyFiles modFolder)
|
|
(print (string-append "copying " (hash-ref configuration 'name) (hash-ref configuration 'version))))
|
|
|
|
(define (zipIt)
|
|
(set-metadata)
|
|
(makeZip modFolder)
|
|
(print (string-append "zipping " (hash-ref configuration 'name) (hash-ref configuration 'version))))
|
|
|
|
(define (clear)
|
|
(set-metadata)
|
|
(let ((packagePath (string->path (string-append modFolder
|
|
packageName
|
|
".zip")))
|
|
(unzippedPath (string->path (string-append modFolder
|
|
packageName))))
|
|
|
|
(when (directory-exists? unzippedPath)
|
|
(delete-directory/files unzippedPath))
|
|
|
|
(when (file-exists? packagePath)
|
|
(delete-file packagePath)))
|
|
(print (string-append "clearing " (hash-ref configuration 'name) (hash-ref configuration 'version))))
|
|
|
|
(let ((arg (vector-ref (current-command-line-arguments) 0)))
|
|
(cond ((equal? arg "copy") (copy))
|
|
((equal? arg "zip") (zipIt))
|
|
((equal? arg "clear") (clear))
|
|
((equal? arg "visualize") (visualize))
|
|
(else "Invalid command arg [copy,zip,clear,visualize]")))
|