gettextpo 0.1.2 → 0.2.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 939f88fac034fa8ae14d06943e12163df3a34ca1797c625c7d5c6c591c18756b
-  data.tar.gz: 972a70b2e9f8c5c623e839a7e8c5d54e2b95cd62d1fe0d3f6c26fe4f3d53b429
+  metadata.gz: d84207e6d2a84f0dd156d3a0638c3637aa5ca90340c3806d384706ded2a974c2
+  data.tar.gz: 7228e514562ed2bd8ebcdbd5c2ba2dbfb7068d3865621bfde7780c93bf970676
 SHA512:
-  metadata.gz: 9d1f6fbf4c89921e78629b4f23b2f120671fb04db1dfcb09d73db5f28c6396d37f4bf792a9f69e034ce5ab077ac5c79b3d310beb0deb7707966be306065e8a2f
-  data.tar.gz: b9bdbc78813ad3e20c783e5a2745297624c7c629fc2b97a55081a5b7f904fa3be99df556dc0b6664199e4d71e2e4e02c0d59340129f6f273ff3ae2e8607de3ad
+  metadata.gz: df67f19d3165af0fd428092d2cc35aeb15a55f7300e14440c3cc12222795fd479c7621cb30baf4473768b674549511785b23803b953063621f2526e946d8382d
+  data.tar.gz: b6d7a3cc904323f13a9d971daad33f197b916d042b9c5bcb4d88d0dec295e2af1cdde36bd9b8405b5a614831a2b99667fd154ed3a68d51b4fa626fe8e3bedbe7

data/.clangd

@@ -0,0 +1,2 @@
+CompileFlags:
+  Add: [-DHAVE_PO_MESSAGE_GET_FORMAT]

data/.envrc

@@ -13,14 +13,7 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
-use guix \
-    clang \
-    gcc-toolchain \
-    ruby \
-    ruby-rake-compiler \
-    make \
-    gettext \
-    gdb
+use guix
 
 dotenv
 

data/.rdoc_options

@@ -5,3 +5,10 @@ exclude:
   - Rakefile
   - Gemfile
   - vendor
+  - test.cruby/**/*
+  - build_config.rb.lock
+  - mrbgem.rake
+  - mrblib/mrb_gettextpo.rb
+  - mrblib/mrb_gettextpo_version.rb
+  - manifest.scm
+  - ext/gettextpo/extconf.rb

data/CHANGELOG.md

@@ -2,6 +2,23 @@
 
 ## Unreleased
 
+## CRuby and mruby version 0.2.0 - 2026-03-15
+
+- CRuby and mruby: Add `GettextPO::Message#file_positions`,
+  `GettextPO::Message#workflow_flag?`,
+  `GettextPO::Message#update_workflow_flag`,
+  `GettextPO::Message#workflow_flag_iterator`,
+  `GettextPO::Message#sticky_flag?`,
+  `GettextPO::Message#update_sticky_flag`, and
+  `GettextPO::Message#sticky_flag_iterator` method.
+- CRuby and mruby: Add `GettextPO::FlagIterator#next` method (and the
+  class, which is `Enumerable`).
+- mruby: Requires GNU gettext 1.0 or later.
+
+## CRuby version 0.1.3
+
+- CRuby: Fix file not found case.
+
 ## CRuby version 0.1.2 and mruby version 0.1.0 - 2026-03-11
 
 - Add mruby version.

data/README.md

@@ -3,15 +3,15 @@
 This is a Ruby library for the GNU gettext PO files.  This is a C
 binding of the libgettextpo library, which is provided by the GNU
 gettext package.  The API of this gem is designed to promote Ruby's
-idiomatic coding style while avoiding memory safety.  Currently this
-supports both CRuby and mruby.
+idiomatic coding style while paying attensiton to memory safety.
+Currently this supports both CRuby and mruby.
 
 ## Installation
 
-Prerequisites: `libgettextpo` library.  On Linux and similar systems,
-you should be able to install it as a distribution package on most
-platforms.  For example, on Ubuntu it was as follows
-(2026-03-07T15:48:13+09:00):
+Prerequisites: `libgettextpo` library (mruby: version 1.0 or later).
+On Linux and similar systems, you should be able to install it as a
+distribution package on most platforms.  For example, on Ubuntu it was
+as follows (2026-03-07T15:48:13+09:00):
 
 ``` shell
 apt search libgettextpo

data/ext/gettextpo/extconf.rb

@@ -22,8 +22,11 @@ require "mkmf"
 # selectively, or entirely remove this flag.
 append_cflags("-fvisibility=hidden")
 
-have_header("gettext-po.h") or raise "gettext-po.h not found"
+GETTEXTPO = "gettext-po.h"
+have_header(GETTEXTPO) or raise "gettext-po.h not found"
 have_library("gettextpo") or raise "gettextpo library not found"
-# TODO: check library function
+
+# Indicates 1.0 or later.  <https://savannah.gnu.org/news/?id=10853>
+have_func('po_message_get_format', GETTEXTPO)
 
 create_makefile("gettextpo/gettextpo")

data/ext/gettextpo/gettextpo.c

@@ -24,8 +24,15 @@
  */
 
 #include "gettextpo.h"
+#include <gettext-po.h>
 #include <ruby/internal/core/rdata.h>
-#include <ruby/internal/intern/variable.h>
+#include <ruby/internal/core/rstring.h>
+#include <ruby/internal/error.h>
+#include <ruby/internal/globals.h>
+#include <ruby/internal/intern/string.h>
+#include <ruby/internal/module.h>
+#include <ruby/internal/scan_args.h>
+#include <ruby/internal/special_consts.h>
 
 #define ERROR                                                                 \
   rb_const_get (rb_const_get (rb_cObject, rb_intern ("GettextPO")),           \
@@ -34,6 +41,7 @@
 VALUE rb_cMessage;
 VALUE rb_cMessageIterator;
 VALUE rb_cFilePos;
+VALUE rb_cFlagIterator;
 
 /* ********** error ********** */
 
@@ -162,6 +170,41 @@ static const struct po_xerror_handler gettextpo_xerror_handler = {
   .xerror2 = gettextpo_xerror2,
 };
 
+/**
+ * Document-class: GettextPO::FlagIterator
+ */
+
+void
+gettextpo_flag_iterator_free (void *iter)
+{
+  if (iter)
+    po_flag_iterator_free (iter);
+}
+
+static const rb_data_type_t gettextpo_po_flag_iterator_type = {
+  .wrap_struct_name = "gettextpo PO flag iterator",
+  .function = {
+    .dfree = gettextpo_flag_iterator_free,
+  },
+  .flags = RUBY_TYPED_FREE_IMMEDIATELY,
+};
+
+VALUE
+gettextpo_po_flag_iterator_alloc (VALUE self)
+{
+  return TypedData_Wrap_Struct (self, &gettextpo_po_flag_iterator_type, NULL);
+}
+
+static VALUE
+gettextpo_po_flag_iterator_m_next (VALUE self)
+{
+  const char *flag = po_flag_next (DATA_PTR (self));
+  if (flag)
+    return rb_str_new_cstr (flag);
+  else
+    rb_raise (rb_eStopIteration, "no more flag");
+}
+
 /**
  * Document-class: GettextPO::Message
  */
@@ -393,11 +436,90 @@ BOOL_GETTER (fuzzy);
  */
 BOOL_SETTER (fuzzy);
 
+#ifdef HAVE_PO_MESSAGE_GET_FORMAT
+#define FLAG_Q(name)                                                          \
+  static VALUE gettextpo_po_message_m_##name##_flag_q (VALUE self,            \
+                                                       VALUE flag)            \
+  {                                                                           \
+    return po_message_has_##name##_flag (DATA_PTR (self),                     \
+                                         StringValueCStr (flag))              \
+               ? Qtrue                                                        \
+               : Qfalse;                                                      \
+  }
+#define UPDATE_FLAG(name)                                                     \
+  static VALUE gettextpo_po_message_m_update_##name##_flag (                  \
+      int argc, VALUE *argv, VALUE self)                                      \
+  {                                                                           \
+    VALUE flag, kwargs;                                                       \
+    rb_scan_args (argc, argv, "1:", &flag, &kwargs);                          \
+    ID kwargs_ids[] = { rb_intern ("set") };                                  \
+    VALUE kwargs_vals[] = { Qundef };                                         \
+    rb_get_kwargs (kwargs, kwargs_ids, 0,                                     \
+                   sizeof (kwargs_ids) / sizeof (kwargs_ids[0]),              \
+                   kwargs_vals);                                              \
+                                                                              \
+    po_message_set_##name##_flag (DATA_PTR (self), StringValueCStr (flag),    \
+                                  RB_UNDEF_P (kwargs_vals[0])                 \
+                                      && RB_TEST (kwargs_vals[0]));           \
+    return Qnil;                                                              \
+  }
+#define FLAG_ITER(name)                                                       \
+  static VALUE gettextpo_po_message_m_##name##_flags_iterator (VALUE self)    \
+  {                                                                           \
+    VALUE iter = rb_obj_alloc (rb_cFlagIterator);                             \
+    DATA_PTR (iter) = po_message_##name##_flags_iterator (DATA_PTR (self));   \
+    return iter;                                                              \
+  }
+
+/**
+ * Document-method: workflow_flag?
+ * call-seq: workflow_flag? (flag)
+ */
+FLAG_Q (workflow);
+
+/**
+ * Document-method: update_workflow_flag
+ * call-seq: update_workflow_flag (flag, set: true)
+ */
+UPDATE_FLAG (workflow);
+
+/**
+ * Document-method: workflow_flag_iterator
+ */
+FLAG_ITER (workflow);
+
+/**
+ * call-seq: format (type)
+ *
+ * Returns +true+, +false+ (opposite), or +nil+ (none).
+ */
+static VALUE
+gettextpo_po_message_m_format (VALUE self, VALUE format)
+{
+  int result
+      = po_message_get_format (DATA_PTR (self), StringValueCStr (format));
+  switch (result)
+    {
+    case 1:
+      return Qtrue;
+      break;
+    case 0:
+      return Qfalse;
+      break;
+    case -1:
+      return Qnil;
+      break;
+    default:
+      rb_raise (ERROR, "unreachable");
+    }
+}
+#endif
+
 /**
  * call-seq: format? (type)
  */
 VALUE
-gettextpo_po_message_m_format (VALUE self, VALUE format)
+gettextpo_po_message_m_format_q (VALUE self, VALUE format)
 {
   return po_message_is_format (DATA_PTR (self), StringValueCStr (format))
              ? Qtrue
@@ -426,6 +548,25 @@ gettextpo_po_message_m_format_set (int argc, VALUE *argv, VALUE self)
   return Qnil;
 }
 
+#ifdef HAVE_PO_MESSAGE_GET_FORMAT
+/**
+ * Document-method: sticky_flag?
+ * call-seq: sticky_flag? (flag)
+ */
+FLAG_Q (sticky);
+
+/**
+ * Document-method: update_sticky_flag
+ * call-seq: update_sticky_flag (flag, set: true)
+ */
+UPDATE_FLAG (sticky);
+
+/**
+ * Document-method: sticky_flag_iterator
+ */
+FLAG_ITER (sticky);
+#endif
+
 /**
  * call-seq: range? (range)
  */
@@ -551,10 +692,17 @@ gettextpo_po_message_m_check_format (int argc, VALUE *argv, VALUE self)
 
 /* ********** file ********** */
 
+void
+gettextpo_file_free (void *file)
+{
+  if (file)
+    po_file_free (file);
+}
+
 static const rb_data_type_t gettextpo_po_file_type = {
   .wrap_struct_name = "gettextpo PO file",
   .function = {
-    .dfree = (void (*)(void *)) po_file_free,
+    .dfree = gettextpo_file_free,
   },
   .flags = RUBY_TYPED_FREE_IMMEDIATELY,
 };
@@ -602,13 +750,17 @@ gettextpo_po_file_m_read (int argc, VALUE *argv, VALUE klass)
     gettextpo_xerror_context.user_xerror = &kwargs_vals[0];
   if (kwargs_vals[1] != Qundef)
     gettextpo_xerror_context.user_xerror2 = &kwargs_vals[1];
-  /* TODO: po_file_read can return NULL when not found?  Also check
-     null at file free. */
-  DATA_PTR (self)
+  po_file_t file
       = po_file_read (StringValueCStr (filename), &gettextpo_xerror_handler);
-  if (gettextpo_xerror_context.error)
-    rb_raise (ERROR, "failed to read");
-  return self;
+  if (file)
+    {
+      DATA_PTR (self) = file;
+      if (gettextpo_xerror_context.error)
+        rb_raise (ERROR, "failed to read");
+      return self;
+    }
+  else
+    rb_raise (ERROR, "failed to read file, maybe file not found?");
 }
 
 /**
@@ -940,9 +1092,33 @@ Init_gettextpo (void)
   rb_define_method (rb_cMessage, "fuzzy?", gettextpo_po_message_m_fuzzy, 0);
   rb_define_method (rb_cMessage, "fuzzy=", gettextpo_po_message_m_fuzzy_set,
                     1);
-  rb_define_method (rb_cMessage, "format?", gettextpo_po_message_m_format, 1);
+
+#ifdef HAVE_PO_MESSAGE_GET_FORMAT
+  rb_define_method (rb_cMessage, "workflow_flag?",
+                    gettextpo_po_message_m_workflow_flag_q, 1);
+  rb_define_method (rb_cMessage, "update_workflow_flag",
+                    gettextpo_po_message_m_update_workflow_flag, -1);
+  rb_define_method (rb_cMessage, "workflow_flag_iterator",
+                    gettextpo_po_message_m_workflow_flags_iterator, 0);
+#endif
+
+  rb_define_method (rb_cMessage, "format?", gettextpo_po_message_m_format_q,
+                    1);
+#ifdef HAVE_PO_MESSAGE_GET_FORMAT
+  rb_define_method (rb_cMessage, "format", gettextpo_po_message_m_format, 1);
+#endif
   rb_define_method (rb_cMessage, "update_format",
                     gettextpo_po_message_m_format_set, -1);
+
+#ifdef HAVE_PO_MESSAGE_GET_FORMAT
+  rb_define_method (rb_cMessage, "sticky_flag?",
+                    gettextpo_po_message_m_sticky_flag_q, 1);
+  rb_define_method (rb_cMessage, "update_sticky_flag",
+                    gettextpo_po_message_m_update_sticky_flag, -1);
+  rb_define_method (rb_cMessage, "sticky_flag_iterator",
+                    gettextpo_po_message_m_sticky_flags_iterator, 0);
+#endif
+
   rb_define_method (rb_cMessage, "range?", gettextpo_po_message_m_range, 1);
   rb_define_method (rb_cMessage, "range=", gettextpo_po_message_m_range_set,
                     1);
@@ -968,4 +1144,9 @@ Init_gettextpo (void)
   rb_define_method (rb_cFilePos, "file", gettextpo_po_filepos_m_file, 0);
   rb_define_method (rb_cFilePos, "start_line",
                     gettextpo_po_filepos_m_start_line, 0);
+  rb_cFlagIterator
+      = rb_define_class_under (rb_mGettextPO, "FlagIterator", rb_cObject);
+  rb_define_alloc_func (rb_cFlagIterator, gettextpo_po_flag_iterator_alloc);
+  rb_define_method (rb_cFlagIterator, "next",
+                    gettextpo_po_flag_iterator_m_next, 0);
 }

data/lib/gettextpo/version.rb

@@ -19,5 +19,5 @@
 
 module GettextPO
   # Version of this gem.
-  VERSION = "0.1.2"
+  VERSION = "0.2.0"
 end

data/lib/gettextpo.rb

@@ -17,57 +17,4 @@
 
 require_relative "gettextpo/version"
 require_relative "gettextpo/gettextpo"
-
-# The main entrypoints to parse PO files are GettextPO::File.new and
-# GettextPO::File.read.
-#
-# == Error handling
-#
-# There are two kinds of errors in this gem.  The first is for
-# exception handlings of libgettextpo.  The second is regular error
-# raising from this gem.
-#
-# Some functions takes exception error handling paramters like
-# +xerror+ and +xerror2+.  These parameters expect +Proc+ object which
-# takes several parameters.  See also the description of
-# GettextPO::File.read method.  The +severity+ parameter among these
-# parameters is either SEVERITY_WARNING, SEVERITY_ERROR, or
-# SEVERITY_FATAL_ERROR.
-#
-# This gem normally raises +GettextPO::Error+ object, except for the
-# standard ones, +StopIteration+ for example.
-#
-module GettextPO
-  class Error < StandardError; end # :nodoc:
-
-  # This class doesn't provide the +new+ class method.  Refre to
-  # GettextPO::MessageIterator#next or
-  # GettextPO::MessageIterator#insert.
-  class Message
-    private_class_method :new
-  end
-
-  # This class doesn't provide the +new+ class method.  See also
-  # GettextPO::File#message_iterator.
-  class MessageIterator
-    private_class_method :new
-
-    def each # yields: message
-      while true
-        begin
-          yield self.next
-        rescue StopIteration
-          return self
-        end
-      end
-    end
-
-    include Enumerable
-  end
-
-  # This class doesn't provide the +new+ class method.  See also
-  # GettextPO::Message#filepos.
-  class FilePos
-    private_class_method :new
-  end
-end
+require_relative "../mrblib/mrb_gettextpo_common"

data/manifest.scm

@@ -0,0 +1,43 @@
+;; Copyright (C) 2026  gemmaro
+;;
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+(use-modules (guix packages)
+             (guix download)
+             (guix profiles)
+             (gnu packages gettext)
+             (gnu packages gdb)
+             (gnu packages commencement)
+             (gnu packages llvm)
+             (gnu packages ruby)
+             (gnu packages ruby-check)
+             (gnu packages base))
+
+(define-public gnu-gettext-1.0
+  (package/inherit gnu-gettext
+    (version "1.0")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnu/gettext/gettext-" version
+                                  ".tar.gz"))
+              (sha256 (base32
+                       "06jgjxnm5xhw0d0zwl9birlwfxfgfqhk9q029j3h9941r5wrpnc5"))))))
+
+(packages->manifest (list gnu-gettext-1.0
+                          gcc-toolchain
+                          gdb
+                          clang
+                          ruby-3.3
+                          ruby-rake-compiler
+                          gnu-make))

data/mrblib/mrb_gettextpo.rb

@@ -37,31 +37,7 @@ module GettextPO
     end
   end
 
-  class MessageIterator
-    def self.new
-      raise NoMethodError,
-            "please use other methods instead, such as GettextPO::File#message_iterator"
-    end
-
-    def each # yields: message
-      while true
-        begin
-          yield self.next
-        rescue StopIteration
-          return self
-        end
-      end
-    end
-
-    include Enumerable
-  end
-
   class Message
-    def self.new
-      raise NoMethodError,
-            "please use other methods instead, such as GettextPO::MessageIterator#next"
-    end
-
     # It seems that calling Proc with keyword arguments is not yet
     # supported.
     alias original_check_all check_all
@@ -79,11 +55,4 @@ module GettextPO
                             xerror2: xerror2 && Proc.new { |kwargs| xerror2.(**kwargs) })
     end
   end
-
-  class FilePos
-    def self.new
-      raise NoMethodError,
-            "please use other methods instead, such as GettextPO::Message#filepos"
-    end
-  end
 end

data/mrblib/mrb_gettextpo_common.rb

@@ -0,0 +1,111 @@
+#--
+# Copyright (C) 2026  gemmaro
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <https://www.gnu.org/licenses/>.
+#++
+
+# The main entrypoints to parse PO files are GettextPO::File.new and
+# GettextPO::File.read.
+#
+# == Error handling
+#
+# There are two kinds of errors in this gem.  The first is for
+# exception handlings of libgettextpo.  The second is regular error
+# raising from this gem.
+#
+# Some functions takes exception error handling paramters like
+# +xerror+ and +xerror2+.  These parameters expect +Proc+ object which
+# takes several parameters.  See also the description of
+# GettextPO::File.read method.  The +severity+ parameter among these
+# parameters is either SEVERITY_WARNING, SEVERITY_ERROR, or
+# SEVERITY_FATAL_ERROR.
+#
+# This gem normally raises +GettextPO::Error+ object, except for the
+# standard ones, +StopIteration+ for example.
+#
+module GettextPO
+  Error = Class.new(StandardError) # :nodoc:
+
+  # This class doesn't provide the +new+ class method.  See also
+  # GettextPO::File#message_iterator.
+  class MessageIterator
+    def self.new # :nodoc:
+      raise NoMethodError,
+            "please use other methods instead, such as GettextPO::File#message_iterator"
+    end
+
+    def each # yields: message
+      while true
+        begin
+          yield self.next
+        rescue StopIteration
+          return self
+        end
+      end
+    end
+
+    include Enumerable
+  end
+
+  # This class doesn't provide the +new+ class method.  Refer to
+  # GettextPO::MessageIterator#next or
+  # GettextPO::MessageIterator#insert.
+  class Message
+    def self.new # :nodoc:
+      raise NoMethodError,
+            "please use other methods instead, such as GettextPO::MessageIterator#next"
+    end
+
+    def file_positions
+      positions = []
+      index = 0
+      while (pos = filepos(index))
+        positions << pos
+        index += 1
+      end
+      positions
+    end
+  end
+
+  # This class doesn't provide the +new+ class method.  See also
+  # GettextPO::Message#filepos.
+  class FilePos
+    def self.new # :nodoc:
+      raise NoMethodError,
+            "please use other methods instead, such as GettextPO::Message#filepos"
+    end
+  end
+
+  # This class doesn't provide the +new+ class method.  See also
+  # GettextPO::Message#workflow_flag_iterator and
+  # GettextPO::Message#sticky_flag_iterator.
+  class FlagIterator
+    def self.new # :nodoc:
+      raise NoMethodError,
+            "please use other methods instead, such as GettextPO::Message#workflow_flag_iterator"
+    end
+
+    def each # yields: flag
+      while true
+        begin
+          yield self.next
+        rescue StopIteration
+          return self
+        end
+      end
+    end
+
+    include Enumerable
+  end
+end

data/mrblib/{version.rb → mrb_gettextpo_version.rb}

@@ -19,5 +19,5 @@
 
 module GettextPO
   # Version of this gem.
-  VERSION = "0.1.0"
+  VERSION = "0.2.0"
 end

data/src/mrb_gettextpo.c

@@ -37,9 +37,12 @@
 
 #define MODULE mrb_module_get_id (mrb, MRB_SYM (GettextPO))
 #define MESSAGE mrb_class_get_under_id (mrb, MODULE, MRB_SYM (Message))
+#define FLAG_ITERATOR                                                         \
+  mrb_class_get_under_id (mrb, MODULE, MRB_SYM (FlagIterator))
 #define ERROR mrb_class_get_under_id (mrb, MODULE, MRB_SYM (Error))
 
 #define NIL mrb_nil_value ()
+#define STOP_ITERATION mrb_class_get_id (mrb, MRB_SYM (StopIteration))
 
 static mrb_value
 gettextpo_m_header_entry_value (mrb_state *mrb, mrb_value klass)
@@ -70,6 +73,28 @@ gettextpo_m_header_with_updated_entry_value (mrb_state *mrb, mrb_value klass)
   return header_value;
 }
 
+static void
+gettextpo_flag_iterator_free (mrb_state *mrb, void *iter)
+{
+  if (iter)
+    po_flag_iterator_free (iter);
+}
+
+static const struct mrb_data_type gettextpo_flag_iterator_data_type = {
+  .struct_name = "gettextpo flag iterator",
+  .dfree = gettextpo_flag_iterator_free,
+};
+
+static mrb_value
+gettextpo_flag_iterator_m_next (mrb_state *mrb, mrb_value self)
+{
+  const char *flag = po_flag_next (DATA_PTR (self));
+  if (flag)
+    return mrb_str_new_cstr (mrb, flag);
+  else
+    mrb_raise (mrb, STOP_ITERATION, "no more flag");
+}
+
 static void
 gettextpo_message_free (mrb_state *mrb, void *message)
 {
@@ -179,8 +204,48 @@ BOOL_SETTER (obsolete);
 BOOL_GETTER (fuzzy);
 BOOL_SETTER (fuzzy);
 
+#define QUERY_FLAG(name)                                                      \
+  static mrb_value gettextpo_message_m_##name##_flag_q (mrb_state *mrb,       \
+                                                        mrb_value self)       \
+  {                                                                           \
+    char *flag = NULL;                                                        \
+    mrb_get_args (mrb, "z", &flag);                                           \
+                                                                              \
+    return mrb_bool_value (                                                   \
+        po_message_has_##name##_flag (DATA_PTR (self), flag));                \
+  }
+#define UPDATE_FLAG(name)                                                     \
+  static mrb_value gettextpo_message_m_##name##_flag_update (mrb_state *mrb,  \
+                                                             mrb_value self)  \
+  {                                                                           \
+    char *flag = NULL;                                                        \
+    mrb_sym table[] = { MRB_SYM (set) };                                      \
+    size_t num = sizeof (table) / sizeof (table[0]);                          \
+    mrb_value values[] = { mrb_undef_value () };                              \
+    mrb_kwargs kwargs = { .num = num, .table = table, .values = values };     \
+    mrb_get_args (mrb, "z:", &flag, &kwargs);                                 \
+                                                                              \
+    po_message_set_##name##_flag (DATA_PTR (self), flag,                      \
+                                  mrb_undef_p (values[0])                     \
+                                      || mrb_test (values[0]));               \
+    return mrb_nil_value ();                                                  \
+  }
+#define FLAG_ITERATOR_METHOD(name)                                            \
+  static mrb_value gettextpo_message_m_##name##_flag_iterator (               \
+      mrb_state *mrb, mrb_value self)                                         \
+  {                                                                           \
+    return mrb_obj_value (mrb_data_object_alloc (                             \
+        mrb, FLAG_ITERATOR,                                                   \
+        po_message_##name##_flags_iterator (DATA_PTR (self)),                 \
+        &gettextpo_flag_iterator_data_type));                                 \
+  }
+
+QUERY_FLAG (workflow);
+UPDATE_FLAG (workflow);
+FLAG_ITERATOR_METHOD (workflow);
+
 static mrb_value
-gettextpo_message_m_format (mrb_state *mrb, mrb_value self)
+gettextpo_message_m_format_q (mrb_state *mrb, mrb_value self)
 {
   char *format = NULL;
   mrb_get_args (mrb, "z", &format);
@@ -188,6 +253,28 @@ gettextpo_message_m_format (mrb_state *mrb, mrb_value self)
   return mrb_bool_value (po_message_is_format (DATA_PTR (self), format));
 }
 
+static mrb_value
+gettextpo_message_m_format (mrb_state *mrb, mrb_value self)
+{
+  char *format = NULL;
+  mrb_get_args (mrb, "z", &format);
+
+  switch (po_message_get_format (DATA_PTR (self), format))
+    {
+    case 1:
+      return mrb_true_value ();
+      break;
+    case 0:
+      return mrb_false_value ();
+      break;
+    case -1:
+      return mrb_nil_value ();
+      break;
+    default:
+      mrb_raise (mrb, ERROR, "unreachable");
+    }
+}
+
 static mrb_value
 gettextpo_message_m_format_set (mrb_state *mrb, mrb_value self)
 {
@@ -208,6 +295,10 @@ gettextpo_message_m_format_set (mrb_state *mrb, mrb_value self)
   return NIL;
 }
 
+QUERY_FLAG (sticky);
+UPDATE_FLAG (sticky);
+FLAG_ITERATOR_METHOD (sticky);
+
 static mrb_value
 gettextpo_message_m_range (mrb_state *mrb, mrb_value self)
 {
@@ -528,8 +619,7 @@ gettextpo_message_iterator_m_next (mrb_state *mrb, mrb_value message_iterator)
       return value;
     }
   else
-    mrb_raise (mrb, mrb_class_get_id (mrb, MRB_SYM (StopIteration)),
-               "end of PO message iterator");
+    mrb_raise (mrb, STOP_ITERATION, "end of PO message iterator");
 }
 
 static mrb_value
@@ -784,10 +874,32 @@ mrb_mruby_gettextpo_gem_init (mrb_state *const mrb)
                         gettextpo_message_m_fuzzy, MRB_ARGS_NONE ());
   mrb_define_method_id (mrb, mrb_cMessage, MRB_SYM_E (fuzzy),
                         gettextpo_message_m_fuzzy_set, MRB_ARGS_REQ (1));
+
+  mrb_define_method_id (mrb, mrb_cMessage, MRB_SYM_Q (workflow_flag),
+                        gettextpo_message_m_workflow_flag_q, MRB_ARGS_REQ (1));
+  mrb_define_method_id (mrb, mrb_cMessage, MRB_SYM (update_workflow_flag),
+                        gettextpo_message_m_workflow_flag_update,
+                        MRB_ARGS_ANY ());
+  mrb_define_method_id (mrb, mrb_cMessage, MRB_SYM (workflow_flag_iterator),
+                        gettextpo_message_m_workflow_flag_iterator,
+                        MRB_ARGS_NONE ());
+
   mrb_define_method_id (mrb, mrb_cMessage, MRB_SYM_Q (format),
+                        gettextpo_message_m_format_q, MRB_ARGS_REQ (1));
+  mrb_define_method_id (mrb, mrb_cMessage, MRB_SYM (format),
                         gettextpo_message_m_format, MRB_ARGS_REQ (1));
   mrb_define_method_id (mrb, mrb_cMessage, MRB_SYM (update_format),
                         gettextpo_message_m_format_set, MRB_ARGS_ANY ());
+
+  mrb_define_method_id (mrb, mrb_cMessage, MRB_SYM_Q (sticky_flag),
+                        gettextpo_message_m_sticky_flag_q, MRB_ARGS_REQ (1));
+  mrb_define_method_id (mrb, mrb_cMessage, MRB_SYM (update_sticky_flag),
+                        gettextpo_message_m_sticky_flag_update,
+                        MRB_ARGS_ANY ());
+  mrb_define_method_id (mrb, mrb_cMessage, MRB_SYM (sticky_flag_iterator),
+                        gettextpo_message_m_sticky_flag_iterator,
+                        MRB_ARGS_NONE ());
+
   mrb_define_method_id (mrb, mrb_cMessage, MRB_SYM_Q (range),
                         gettextpo_message_m_range, MRB_ARGS_REQ (1));
   mrb_define_method_id (mrb, mrb_cMessage, MRB_SYM_E (range),
@@ -816,6 +928,11 @@ mrb_mruby_gettextpo_gem_init (mrb_state *const mrb)
                         gettextpo_filepos_m_file, MRB_ARGS_NONE ());
   mrb_define_method_id (mrb, mrb_cFilePos, MRB_SYM (start_line),
                         gettextpo_filepos_m_start_line, MRB_ARGS_NONE ());
+  struct RClass *const mrb_cFlagIterator = mrb_define_class_under_id (
+      mrb, mrb_mGettextPO, MRB_SYM (FlagIterator), mrb->object_class);
+  MRB_SET_INSTANCE_TT (mrb_cFlagIterator, MRB_TT_CDATA);
+  mrb_define_method_id (mrb, mrb_cFlagIterator, MRB_SYM (next),
+                        gettextpo_flag_iterator_m_next, MRB_ARGS_NONE ());
   DONE;
 }
 

data/test.cruby/gettextpo_test.rb

@@ -28,6 +28,7 @@ class GettextPOTest < Test::Unit::TestCase
       check
       file
       filepos
+      flag
       format
       header
       message

metadata

@@ -1,13 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: gettextpo
 version: !ruby/object:Gem::Version
-  version: 0.1.2
+  version: 0.2.0
 platform: ruby
 authors:
 - gemmaro
+autorequire:
 bindir: bin
 cert_chain: []
-date: 1980-01-02 00:00:00.000000000 Z
+date: 2026-03-15 00:00:00.000000000 Z
 dependencies: []
 description: This gem is a Ruby library for the GNU gettext PO files.  This is a C
   binding of the libgettextpo library, which is part of the GNU gettext package.
@@ -19,6 +20,7 @@ extensions:
 extra_rdoc_files: []
 files:
 - ".clang-format"
+- ".clangd"
 - ".dir-locals.el"
 - ".env.example"
 - ".envrc"
@@ -34,9 +36,11 @@ files:
 - include/mrb_gettextpo.h
 - lib/gettextpo.rb
 - lib/gettextpo/version.rb
+- manifest.scm
 - mrbgem.rake
 - mrblib/mrb_gettextpo.rb
-- mrblib/version.rb
+- mrblib/mrb_gettextpo_common.rb
+- mrblib/mrb_gettextpo_version.rb
 - sig/gettextpo.rbs
 - src/mrb_gettextpo.c
 - test.cruby/gettextpo_test.rb
@@ -58,6 +62,7 @@ metadata:
   homepage_uri: https://git.disroot.org/gemmaro/ruby-gettextpo
   source_code_uri: https://git.disroot.org/gemmaro/ruby-gettextpo
   wiki_uri: https://git.disroot.org/gemmaro/ruby-gettextpo/wiki
+post_install_message:
 rdoc_options: []
 require_paths:
 - lib
@@ -71,8 +76,10 @@ required_rubygems_version: !ruby/object:Gem::Requirement
   - - ">="
     - !ruby/object:Gem::Version
       version: '0'
-requirements: []
-rubygems_version: 3.6.9
+requirements:
+- libgettextpo
+rubygems_version: 3.5.22
+signing_key:
 specification_version: 4
 summary: GNU gettext PO file parser library
 test_files: []