(package
  (name "hello")
  (version "2.12")
  (source (origin
            (method url-fetch)
            (uri (string-append "mirror://gnu/hello/hello-"
                                version ".tar.gz"))
            (sha256
             (base32
              "0ssi1wpaf7plaswqqjwigppsg5f漖qyvr2as4wd1g"))))
  (build-system gnu-build-system)
  (home-page "https://www.gnu.org/software/hello/")
  (synopsis "Hello, GNU world: An example GNU package")
  (description "GNU Hello prints a friendly message.")
  (license license:gpl3+))

;; 注释以分号开头

;; 函数调用：(函数名 参数1 参数2 ...)
(string-append "hello" " " "world")  ; => "hello world"
(+ 1 2 3)                            ; => 6

;; 定义变量
(define name "vim")
(define version "9.0")

;; 列表
(list "git" "vim" "htop")

;; 引用（quote）：不求值
'(a b c)  ; => (a b c)

;; 函数定义
(define (greet name)
  (string-append "Hello, " name "!"))

(greet "Guix")  ; => "Hello, Guix!"

;; 条件表达式
(if (> 3 2)
    "yes"
    "no")  ; => "yes"

;; let 绑定
(let ((x 10)
      (y 20))
  (+ x y))  ; => 30

;; 字符串操作
(string-append "foo" "-" "bar")  ; => "foo-bar"
(string-length "hello")          ; => 5

;; 路径操作（Guix 内置）
(string-append "/gnu/store/" name "-" version)

;; use-modules：导入模块（类似 Python 的 import）
(use-modules (gnu packages vim)
             (gnu packages python)
             (guix gexp))

;; define-public：定义公共包（可被其他模块引用）
(define-public my-package
  (package ...))

;; origin：描述源码来源
(origin
  (method url-fetch)
  (uri "https://example.com/foo-1.0.tar.gz")
  (sha256 (base32 "0abc...")))

;; 查看源码哈希
;; $ guix download https://example.com/foo-1.0.tar.gz
;; 0abc...

(source (origin
          (method url-fetch)
          (uri (string-append "https://example.com/"
                              name "-" version ".tar.gz"))
          (sha256
           (base32 "1abc..."))))

# 使用 guix download 自动计算并显示哈希
guix download https://example.com/foo-1.0.tar.gz
# 输出：
# 1abc... (base32 hash)
# /gnu/store/...-foo-1.0.tar.gz

(source (origin
          (method git-fetch)
          (uri (git-reference
                (url "https://github.com/user/project")
                (commit "v1.0.0")))
          (sha256
           (base32 "0xyz..."))))

# 获取 Git 源码的哈希
guix download --git-fetch --commit=v1.0.0 \
  https://github.com/user/project

(source (origin
          (method url-fetch)
          (uri "https://example.com/foo-1.0.tar.gz")
          (sha256 (base32 "1abc..."))
          (patches (search-patches "foo-fix-build.patch"
                                   "foo-security-fix.patch"))
          (modules '((guix build utils)))
          (snippet '(begin
                      (delete-file "configure")
                      (copy-file "configure.ac" "configure")))))

(package
  (name "example")
  ;; ...
  (build-system gnu-build-system)
  (arguments
    (list
      #:configure-flags #~(list "--disable-static")
      #:make-flags #~(list "CC=gcc")
      #:phases
      #~(modify-phases %standard-phases
          (add-after 'unpack 'fix-paths
            (lambda* (#:key inputs #:allow-other-keys)
              (substitute* "src/main.c"
                (("/usr/local")
                 (assoc-ref outputs "out"))))))))
  ;; ...)

(arguments
  (list
    ;; 跳过测试（某些包的测试在沙箱中无法运行）
    #:tests? #f

    ;; 自定义 configure 参数
    #:configure-flags #~(list "--with-feature"
                              (string-append "--prefix=" #$output))

    ;; 自定义 make 参数
    #:make-flags #~(list (string-append "CC=" #$(cc-for-target)))

    ;; 修改构建阶段
    #:phases
    #~(modify-phases %standard-phases
        ;; 在 unpack 阶段之后执行
        (add-after 'unpack 'patch-source
          (lambda* (#:key inputs #:allow-other-keys)
            (substitute* "Makefile"
              (("/usr/bin/env python3")
               (which "python3")))))

        ;; 替换 install 阶段
        (replace 'install
          (lambda* (#:key outputs #:allow-other-keys)
            (let ((out (assoc-ref outputs "out")))
              (install-file "myapp" (string-append out "/bin"))))))))

(package
  ;; ...
  ;; 运行时依赖
  (inputs (list ncurses glib gtk))

  ;; 仅构建时依赖
  (native-inputs
    (list pkg-config
          autoconf
          automake
          python))  ; Python 仅在构建脚本中使用

  ;; 传播依赖：安装此包的用户也会得到这些包
  (propagated-inputs
    (list python-setuptools)))  ; Python 包通常需要 setuptools

(package
  (name "openssl")
  ;; ...
  (outputs '("out"    ; 运行时库和命令
             "doc"    ; 文档
             "dev"))) ; 头文件和 pkg-config

# 只安装运行时库
guix install openssl

# 安装开发头文件
guix install openssl:dev

(arguments
  (list
    #:make-flags
    #~(list (string-append "CC=" #$(cc-for-target)))))

(package
  (name "example")
  (version "1.2.3")
  ;; source 自动使用 version 字段
  (source (origin
            (method url-fetch)
            (uri (string-append "https://example.com/example-"
                                version ".tar.gz"))
            (sha256 (base32 "0abc..."))))
  ;; ...)

;; 开发版本
(version "1.2.3-rc1")

;; Git 快照
(version (git-version "1.2.3" revision commit))
;; 生成类似 "1.2.3-1.abc1234" 的版本号

# 查看通道中某个包的所有版本
guix show vim

# 查看特定包在 store 中的多个版本
guix package --list-installed | grep vim

(define-public my-c-tool
  (package
    (name "my-c-tool")
    (version "1.0.0")
    (source (origin
              (method url-fetch)
              (uri (string-append "https://example.com/my-c-tool-"
                                  version ".tar.gz"))
              (sha256
               (base32 "0abc123..."))))
    (build-system gnu-build-system)
    (native-inputs (list pkg-config))
    (inputs (list zlib libpng))
    (home-page "https://example.com/my-c-tool")
    (synopsis "A simple C tool for image processing")
    (description "My-C-Tool provides fast image compression
and decompression using zlib and libpng.")
    (license license:gpl3+)))

(define-public python-mylib
  (package
    (name "python-mylib")
    (version "2.1.0")
    (source (origin
              (method url-fetch)
              (uri (pypi-uri "mylib" version))
              (sha256
               (base32 "0def456..."))))
    (build-system python-build-system)
    (propagated-inputs
      (list python-numpy python-scipy))
    (native-inputs
      (list python-pytest))
    (home-page "https://pypi.org/project/mylib/")
    (synopsis "Scientific computing library")
    (description "MyLib provides numerical methods for
scientific computing applications.")
    (license license:bsd-3)))

(define-public my-rust-cli
  (package
    (name "my-rust-cli")
    (version "0.5.0")
    (source (origin
              (method url-fetch)
              (uri (crate-uri "my-rust-cli" version))
              (sha256
               (base32 "0ghi789..."))))
    (build-system cargo-build-system)
    (arguments
      (list
        #:cargo-inputs
        `(("rust-clap" ,rust-clap-4)
          ("rust-serde" ,rust-serde-1)
          ("rust-tokio" ,rust-tokio-1))))
    (home-page "https://github.com/user/my-rust-cli")
    (synopsis "Fast command-line tool written in Rust")
    (description "A blazing-fast CLI tool for data processing.")
    (license license:expat)))

# 构建包（不安装）
guix build my-package

# 构建并查看完整日志
guix build my-package -v 3

# 仅运行测试阶段
guix build my-package --with-tests

# 跳过测试
guix build my-package --without-tests

# 对包定义进行静态检查
guix lint my-package

# 检查内容包括：
# - 描述格式
# - 许可证是否正确
# - 主页是否可达
# - 版本是否有更新
# - 是否有已知安全漏洞

# 1. 编译通过
guix build my-package

# 2. Lint 检查
guix lint my-package

# 3. 风格检查
guix style my-package

# 4. 检查是否已有同名包
guix search ^my-package$

# 设置本地包定义路径
export GUIX_PACKAGE_PATH="$HOME/src/guix-packages:$GUIX_PACKAGE_PATH"

# 在该目录下创建模块结构
mkdir -p $HOME/src/guix-packages/myproject

;; $HOME/src/guix-packages/myproject/packages.scm
(define-module (myproject packages)
  #:use-module (guix packages)
  #:use-module (guix build-system gnu)
  #:use-module (guix gexp)
  #:use-module (guix licenses)
  #:use-module (guix download))

(define-public my-tool
  (package
    (name "my-tool")
    (version "1.0")
    (source (origin
              (method url-fetch)
              (uri (string-append "https://example.com/my-tool-"
                                  version ".tar.gz"))
              (sha256 (base32 "0abc..."))))
    (build-system gnu-build-system)
    (home-page "https://example.com")
    (synopsis "My tool")
    (description "A useful tool.")
    (license gpl3+)))

# 现在可以直接安装
guix install my-tool

# 或构建
guix build my-tool

# 临时添加包定义路径
guix build -L ~/src/guix-packages my-tool