skripsi-generator 1.0.0

data/lib/transformasi/web.rb

@@ -0,0 +1,34 @@
+require 'yaml'
+
+module SistemKebut
+  module Transformasi
+    class Web
+      def initialize(data)
+        @data = data
+        @jumlah = @data.length
+        @konten = nil
+      end
+
+      def kirim
+        angkat = YAML.dump(@data)
+        KebutSemalam::Web::WebGenerate.new(angkat).tap do |web|
+          @konten = web.konten
+        end
+        return self
+      end
+
+      def olah_data
+        return nil if @konten.nil?
+        keterangan = YAML.unsafe_load(@konten)
+        @jumlah.times do |i|
+          @data[i] = keterangan[i]
+        end
+        return nil
+      end
+
+      def self.kelola(data)
+        new(data).kirim.olah_data
+      end
+    end
+  end
+end

data/lib/xml/administrasi.rb

@@ -0,0 +1,124 @@
+module SistemKebut
+  module XML
+    class Regulator
+      def initialize(pelaku)
+        @praktisi = pelaku
+        @prima = {}
+      end
+
+      def saring
+        @praktisi.each { |pelaku| pelaku.saring(@prima) }
+        self
+      end
+
+      def perform
+        @prima.each_value { |pelaku| pelaku.perform }
+      end
+    end
+
+    class Pengepul
+      def initialize(xml)
+        @sasaran = xml
+      end
+
+      def xml?
+        return !@sasaran.is_a?(File)
+      end
+
+      def serialize
+        pembangun = method(:prosedur_kosong)
+        if @sasaran.is_a?(File)
+          pembangun = method(:prosedur_file)
+        else
+          pembangun = method(:prosedur_xml)
+        end
+        pembangun.call(@sasaran)
+      end
+
+      private
+      def prosedur_kosong(args)
+      end
+
+      def prosedur_xml(ori)
+        proses = proc {}
+        SistemKebut::XML::Builder.new(ori.root_element, &proses).build
+      end
+
+      def prosedur_file(pembuka)
+        pembuka.read.tap { pembuka.close }
+      end
+    end
+
+    class Eksportir
+      def initialize(b, &f)
+        @berkas = b
+        @fungsi = f
+        @lokasi = @berkas.lokasi
+      end
+
+      def saring(unik)
+        unik[@lokasi] = self
+      end
+
+      def perform
+        sasaran = Pengepul.new(@berkas.struktur)
+        @fungsi.call(@lokasi, sasaran)
+      end
+    end
+
+    class Administrasi
+      ACUAN = %q(<?xml version="1.0" encoding="UTF-8" standalone="yes"?>)
+
+      def initialize
+        @konten = []
+      end
+
+      def arsipkan(xml)
+        return false if @konten.find { |i| i.lokasi == xml.lokasi }
+        @konten.push(xml)
+        return true
+      end
+
+      def pasang(&blk)
+        return nil unless block_given?
+        praktisi = @konten.collect { |k| Eksportir.new(k, &blk) }
+        return Regulator.new(praktisi)
+      end
+
+      def taruh(zos, lokasi, arsip)
+        konten = nil
+        if lokasi == :LOKASI_WORD_DOCUMENT
+          webgen = KebutSemalam::Web::WebGenerate.new(arsip.serialize)
+          konten = webgen.konten
+        elsif arsip.xml?
+          konten = String.new
+            .concat(ACUAN)
+            .concat("\n")
+            .concat(arsip.serialize)
+        else
+          konten = arsip.serialize
+        end
+        zos.put_next_entry(lokasi)
+        zos.write(konten)
+      end
+
+      @instansi = Administrasi.new
+
+      def self.masukkan(xml)
+        return false unless xml.respond_to?(:lokasi)
+        return false unless xml.respond_to?(:struktur)
+        return true if @instansi.arsipkan(xml)
+        return false
+      end
+
+      def self.ekspor(berkas)
+        Zip::ZipOutputStream.open(berkas) do |zos|
+          praktisi = @instansi.pasang do |lokasi, arsip|
+            @instansi.taruh(zos, lokasi, arsip)
+          end
+          praktisi.saring.perform
+        end
+      end
+    end
+  end
+end

data/lib/xml/builder.rb

@@ -0,0 +1,269 @@
+require_relative '../sks/remote'
+require_relative '../sks/alat'
+require_relative '../adaptor/web_generate'
+require_relative 'administrasi'
+require_relative 'dasar'
+require_relative 'section'
+require_relative 'paragraph'
+require_relative 'media'
+
+module SistemKebut
+  module XML
+    class BuilderBlock < StandardError
+      def initialize
+        super("Block tidak tersedia!")
+      end
+    end
+
+    class BuilderOneRoot < StandardError
+      def initialize(meth)
+        super("#{meth} gagal. Root hanya boleh berjumlah 1 element!")
+      end
+    end
+
+    class IDNotFound < StandardError
+      def initialize(id)
+        super("Tidak bisa menemukan #{id}")
+      end
+    end
+
+    class LapisAdministrasi
+      include SistemKebut::Peralatan::RemoteSistem
+
+      attr_reader :lokasi, :struktur
+
+      def initialize(lks, obj)
+        @lokasi = terjemah(lks)
+        @struktur = obj
+      end
+
+      def catat_arsip
+        return nil unless inner_catat
+        return self
+      end
+
+      private
+      def inner_catat
+        SistemKebut::XML::Administrasi.masukkan(self)
+      end
+
+      def terjemah(v)
+        dapat = _t(v)
+        if dapat.nil?
+          raise SistemKebut::XML::IDNotFound.new(v)
+        else 
+          return dapat
+        end
+      end
+    end
+
+    class Element
+      include SistemKebut::Peralatan::RemoteSistem
+
+      attr_reader :namespace, :deep_namespace
+      def initialize(tag, *args)
+        @tag = tag
+        @konten = []
+        @namespace = nil
+        @deep_namespace = nil
+        @keterangan = args.collect { |i| urai(i) } .compact
+      end
+
+      def append(elm)
+        @konten.push(elm)
+        return nil
+      end
+
+      def child
+        @konten.length == 1 ? @konten.first : nil
+      end
+
+      def serialize(nokoxml, warisan=nil)
+        proses = proc { |i| i.is_a?(Hash) && i.has_key?(:_konten) }
+        dalam = @konten.select(&proses)
+        val = dalam.collect { |i| i[:_konten] } .join
+        @keterangan.delete_if do |i|
+          if i.is_a?(String)
+            val.concat(i)
+            next true
+          end
+        end
+        atribut = @keterangan.collect do |kumpulan|
+          hasil = {}
+          kumpulan.each_key do |ns|
+            case ns
+            when 'xmlns'
+              hasil['xmlns'] = kumpulan['xmlns']
+            when 'Ignorable'
+              hasil['mc:Ignorable'] = kumpulan['Ignorable']
+            when /^(?:pic|a|o|r|v|w|w10|wp|wps|wpg|mc|wp14|w14|w15)$/
+              hasil["xmlns:#{ns}"] = kumpulan[ns]
+            else
+              hasil[ns] = kumpulan[ns]
+            end
+          end
+          hasil
+        end
+        if @tag == :p
+          nokoxml.p do 
+            @konten.each do |i|
+              next if dalam.include?(i)
+              i.serialize(nokoxml)
+            end
+          end
+        else
+          ns = @namespace
+          ns = @deep_namespace if ns.nil?
+          ns = warisan if ns.nil?
+          elm = nokoxml.send(@tag, *atribut, val) do 
+            @konten.each do |i|
+              next if dalam.include?(i)
+              pewarisan = @deep_namespace
+              pewarisan = warisan if pewarisan.nil?
+              i.serialize(nokoxml, pewarisan)
+            end
+          end
+          unless ns.nil?
+            elm['skripsi-namespace'] = ns
+          end
+        end
+      end
+
+      private
+      def urai(obj)
+        case obj
+        when Symbol
+          return terjemah(obj)
+        when Hash
+          hasil = {}
+          key = :namespace
+          @namespace = obj.delete(key) if obj.has_key?(key)
+          key = :deep_namespace
+          @deep_namespace = obj.delete(key) if obj.has_key?(key)
+          key = :body
+          if obj.has_key?(key)
+            obj.delete(key).each do |k, v|
+              @konten.push(self.class.new(k, v))
+            end
+          end
+          obj.each do |k, v|
+            case v
+            when String, Symbol
+              hasil[terjemah(k)] = terjemah(v)
+            when Hash
+              @konten.push(self.class.new(k, v))
+            end
+          end
+          return hasil
+        when String
+          @konten.push({ _konten: obj })
+          return nil
+        when Array
+          obj.each do |elm|
+            if elm.is_a?(Hash)
+              elm.each do |k, v|
+                @konten.push(self.class.new(k, v))
+              end
+            end
+          end
+          return nil
+        end
+      end
+
+      def terjemah(v)
+        dapat = _t(v)
+        if dapat.nil?
+          raise IDNotFound.new(v)
+        else 
+          return dapat
+        end
+      end
+    end
+
+    class Builder
+      def initialize(r=nil)
+        @root = r
+        @kini = nil
+        if block_given?
+          yield(self)
+        else
+          raise BuilderBlock.new 
+        end
+      end
+
+      def root_element
+        return @root
+      end
+
+      def raw(elm)
+        return nil unless elm.is_a?(Element)
+        @kini.append(elm)
+      end
+
+      def catat_administrasi(id)
+        return LapisAdministrasi.new(id, self)
+      end
+
+      def build(tujuan=nil)
+        hasil = inner_build.doc.root
+        w_acme(hasil) if hasil.name == "document"
+        return case tujuan
+        when :xml; hasil.to_xml
+        else; hasil.serialize(save_with: 0)
+        end
+      end
+
+      def method_missing(nama, *args, &block)
+        inner_devel(nama, *args, &block)
+      end
+
+      private
+      def inner_build
+        Nokogiri::XML::Builder.new do |xml|
+          @root.serialize(xml)
+        end
+      end
+      
+      def inner_devel(nama, *args)
+        hulu = nil
+        induk = nil
+        if @root.nil?
+          @root = Element.new(nama, *args)
+          hulu = @root
+        elsif @kini.nil?
+          raise BuilderOneRoot.new(nama)
+        else
+          hulu = Element.new(nama, *args)
+          induk = @kini
+        end
+
+        if block_given?
+          dulu = @kini
+          @kini = hulu
+          yield
+          @kini = dulu
+        end
+
+        induk.append(hulu) unless induk.nil?
+        return hulu
+      end
+
+      def w_acme(root)
+        w = root.namespace_definitions.find { |n| n.prefix == 'w' }
+        proses = proc do |elm, proses|
+          if elm.has_attribute?('skripsi-namespace')
+            prefix = elm['skripsi-namespace']
+            elm.remove_attribute('skripsi-namespace')
+            ns = root.namespace_definitions
+              .find { |n| n.prefix == prefix }
+            elm.namespace = ns
+          else
+            elm.namespace = w
+          end
+          elm.children.each { |i| proses.call(i, proses) }
+        end
+        proses.call(root, proses)
+      end
+    end
+  end
+end

data/lib/xml/dasar.rb

@@ -0,0 +1,17 @@
+module SistemKebut
+  class PembangunXML
+    attr_reader :xml, :sumber
+    def initialize(obj)
+      @xml = obj
+    end
+
+    def build(s)
+      @sumber = s
+      return self
+    end
+
+    def start
+      raise 'No start here.'
+    end
+  end
+end

data/lib/xml/media.rb

@@ -0,0 +1,66 @@
+module SistemKebut
+  module Media
+    class XMLBuilder < SistemKebut::PembangunXML
+      STYLE = {
+        DIST_T: '0',
+        DIST_B: '0',
+        DIST_L: '114935',
+        DIST_R: '114935',
+        SIMPLE_POS: '0',
+        LOCKED: '0',
+        LAYOUT_IN_CELL: '0', 
+        ALLOW_OVERLAP: '1',
+        RELATIVE_HEIGHT: '2'
+      }.freeze
+
+      def start
+        xml.p do
+          xml.r do
+            xml.drawing do
+              xml.anchor(STYLE, deep_namespace: 'wp') do
+                xml.simplePos(ANCHOR_ATTR_X: '0', ANCHOR_ATTR_Y: '0')
+                xml.positionH(ANCHOR_ATTR_REL_FROM: :ANCHOR_ATTR_COLUMN) do
+                  xml.align('center')
+                end
+                xml.positionV(ANCHOR_ATTR_REL_FROM: :ANCHOR_ATTR_PARAGRAPH) do
+                  xml.posOffset('0')
+                end
+                xml.wrapSquare(ANCHOR_ATTR_WRAP_TEXT: :ANCHOR_ATTR_LARGEST)
+                xml.extent(ANCHOR_ATTR_CX: '3220995', ANCHOR_ATTR_CY: '3220995')
+                xml_graphic
+              end
+            end
+          end
+        end
+      end
+
+      def xml_graphic
+        xml.graphic(deep_namespace: 'a') do
+          xml.graphicData(ANCHOR_ATTR_URI: :DRAWING_PICTURE_VAL) do
+            xml.pic(namespace: 'pic') do
+              xml.nvPicPr(deep_namespace: 'pic') do
+                xml.cNvPr(ANCHOR_ATTR_ID: '0', ANCHOR_ATTR_NAME: :ANCHOR_NAME_VAL)
+                xml.cNvPicPr
+              end
+              xml.blipFill(ANCHOR_ATTR_ROT_WITH_SHAPE: '1', namespace: 'pic') do
+                xml.blip(ANCHOR_ATTR_EMBED: sumber.id, ANCHOR_ATTR_CSTATE: :ANCHOR_CSTATE_VAL)
+                xml.stretch do
+                  xml.fillRect
+                end
+              end
+              xml.spPr(namespace: 'pic') do
+                xml.xfrm do
+                  xml.off(ANCHOR_ATTR_X: '0', ANCHOR_ATTR_Y: '0')
+                  xml.ext(ANCHOR_ATTR_CX: '3220995', ANCHOR_ATTR_CY: '3220995')
+                end
+                xml.prstGeom(ANCHOR_ATTR_RST: :ANCHOR_RST_VAL) do
+                  xml.avLst
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+  end
+end

data/lib/xml/paragraph.rb

@@ -0,0 +1,9 @@
+module SistemKebut
+  module Paragraph
+    class XMLBuilder < SistemKebut::PembangunXML
+      def start
+        xml.raw(sumber.struktur)
+      end
+    end
+  end
+end

data/lib/xml/section.rb

@@ -0,0 +1,84 @@
+module SistemKebut
+  module Section
+    class XMLBuilder < SistemKebut::PembangunXML
+      MARGIN = {
+        'w:left' => '1134', 
+        'w:right' => '1134', 
+        'w:gutter' => '0', 
+        'w:header' => '0', 
+        'w:top' => '1134', 
+        'w:footer' => '0', 
+        'w:bottom' => '1134'
+      }
+      GRID = {
+        'w:type' => 'default', 
+        'w:linePitch' => '600', 
+        'w:charSpace' => '32768'
+      }
+      
+      def self.default(xml)
+        xml.sectPr do 
+          xml.type('w:val' => 'nextPage')
+          xml.pgSz('w:w' => '11906', 'w:h' => '16838')
+          xml.pgMar(MARGIN)
+          xml.pgNumType('w:fmt' => 'decimal', 'w:start' => '64')
+          xml.formProt('w:val' => 'false')
+          xml.textDirection('w:val' => 'lrTb')
+          xml.docGrid(GRID)
+        end
+      end
+
+      def bet_pgSz(h)
+        { 'w:w' => h[:width].to_s, 'w:h' => h[:height].to_s }
+      end
+
+      def bet_pgMar(h)
+        return {
+          'w:left' => h[:left].to_s, 
+          'w:right' => h[:right].to_s, 
+          'w:gutter' => h[:gutter].to_s, 
+          'w:header' => h[:header].to_s, 
+          'w:top' => h[:top].to_s, 
+          'w:footer' => h[:footer].to_s, 
+          'w:bottom' => h[:bottom].to_s
+        }
+      end
+
+      def bet_pgNumType(h)
+        { 'w:fmt' => h[:fmt].to_s, 'w:start' => h[:start].to_s }
+      end
+
+      def bet_docGrid(h)
+        return {
+          'w:type' => h[:type].to_s, 
+          'w:linePitch' => h[:linePitch].to_s, 
+          'w:charSpace' => h[:charSpace].to_s
+        }
+      end
+
+      def start
+        xml.p do
+          xml.pPr do 
+            xml.pStyle('w:val' => 'Normal')
+            xml.bidi('w:val' => '0')
+            xml.rPr do 
+              font_style
+            end
+          end
+          xml_sectPr
+        end
+      end
+
+      def font_style
+        fstyle = SistemKebut::Paragraph::TNR
+        xml.rFonts('w:ascii' => fstyle, 'w:hAnsi' => fstyle)
+      end
+
+      def xml_sectPr
+        xml.r do 
+          xml.br('w:type' => 'page')
+        end
+      end
+    end
+  end
+end

data/src/jembatan.c

@@ -0,0 +1,34 @@
+#include <ruby.h>
+#include "skripsi.h"
+#include "urai.h"
+
+const char *webhost = "https://snailight.kupunyakucing.my.id";
+
+VALUE jembatan_untaian(VALUE self, VALUE idval) {
+  uint32_t id;
+  size_t panjang;
+  const char *simbol, *konten;
+  char tahan[256], *t;
+  // penjaga = buat_penjaga_sumber(SYM2ID(id));
+  // return rb_str_new2(urai_penjaga_string(penjaga));
+  if(rb_obj_is_instance_of(idval, rb_cSymbol)) {
+    simbol = rb_id2name(SYM2ID(idval));
+  } else if(rb_obj_is_instance_of(idval, rb_cString)) {
+    konten = RSTRING_PTR(idval);
+    panjang = RSTRING_LEN(idval);
+    tahan[panjang] = 0;
+    t = tahan;
+    while(panjang--) *t++ = *konten++;
+    simbol = tahan;
+  }
+  if(strcmp(simbol, "xmlns") == 0) return rb_sym_to_s(idval);
+  konten = urai_pen_penjaga_from_string(simbol);
+  if(!konten) return Qnil;
+  return rb_str_new2(konten);
+}
+
+void buat_jembatan(VALUE remote) {
+  VALUE klazz;
+  klazz = rb_define_class("JembatanC", rb_cObject);
+  rb_define_method(klazz, "untaian", jembatan_untaian, 1);
+}