Attachment 148461 Details for Bug 194459 – fix shar installer

fix shar installer

shar_for_ru-emkatic-0.15 (text/plain), 12.04 KB, created by f0andrey on 2014-10-19 07:19:26 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: f0andrey

Created: 2014-10-19 07:19:26 UTC

Size: 12.04 KB

patch

obsolete

># This is a shell archive.  Save it in a file, remove anything before
># this line, and then unpack it by entering "sh file".  Note, it may
># create directories; files and directories will be owned by you and
># have default permissions.
>#
># This archive contains:
>#
>#	emkatic
>#	emkatic/Makefile
>#	emkatic/distinfo
>#	emkatic/pkg-message
>#	emkatic/pkg-plist
>#	emkatic/pkg-descr
>#	emkatic/files
>#	emkatic/files/patch-beeper.pas
>#	emkatic/files/patch-service.lfm
>#	emkatic/files/patch-portaudio.pas
>#
>echo c - emkatic
>mkdir -p emkatic > /dev/null 2>&1
>echo x - emkatic/Makefile
>sed 's/^X//' >emkatic/Makefile << '345b8289ed7687d48b8b98f0416969fe'
>X# Created by: Andrey Fesenko <andrey@bsdnir.info>
>X# $FreeBSD$
>X
>XPORTNAME=	emkatic
>XPORTVERSION=	0.15
>XCATEGORIES=	russian emulators
>XMASTER_SITES=	${MASTER_SITE_SOURCEFORGE}
>XMASTER_SITE_SUBDIR=     ${PORTNAME}/eMKatic%20Source
>XPKGNAMEPREFIX=  ru-
>XDISTNAME=	${PORTNAME}-${PORTVERSION}-src
>X
>XMAINTAINER=	andrey@bsdnir.info
>XCOMMENT=	Novosibirsk RPN programmable calculators Elektronika graphics emulator
>X
>XLICENSE=	GPLv3
>X
>XBUILD_DEPENDS=	lazbuild:${PORTSDIR}/editors/lazarus \
>X		fpcres:${PORTSDIR}/lang/fpc-utils
>X
>XUSE_FPC=	yes
>X
>XPROJECT_FILE=	emkatic.lpi
>XLAZARUS_VER=	1.2.4
>XLAZBUILD_CMD=	${LOCALBASE}/bin/lazbuild -d --pcp=${WRKSRC}/tmppcp
>XLAZARUS_DIR=	${LOCALBASE}/share/lazarus-${LAZARUS_VER}
>XBUILD_MODE=	SrcDist
>X
>XOPTIONS_DEFINE=	PORTAUDIO
>XOPTIONS_DEFAULT=        PORTAUDIO
>XPORTAUDIO_DESC= PortAudio library support
>X
>X.include <bsd.port.options.mk>
>X
>X.if ${PORT_OPTIONS:MPORTAUDIO}
>XRUN_DEPENDS=    portaudio2>0:${PORTSDIR}/audio/portaudio2
>XAUDIO= "portaudio2"
>XPORTAUDIOLIB=	portaudio2/libportaudio.so:${PORTSDIR}/audio/portaudio2
>X.endif
>X
>Xdo-build:
>X	@cd ${WRKSRC} && \
>X		${LAZBUILD_CMD} --bm="${BUILD_MODE}" --lazarusdir=${LAZARUS_DIR} ${PROJECT_FILE}
>X
>Xdo-install:
>X	@cd ${WRKSRC} && \
>X		${INSTALL_PROGRAM} emkatic ${STAGEDIR}${PREFIX}/bin
>X
>Xpost-install:
>X        @${CAT} ${PKGMESSAGE}
>X
>X.include <bsd.port.mk>
>345b8289ed7687d48b8b98f0416969fe
>echo x - emkatic/distinfo
>sed 's/^X//' >emkatic/distinfo << 'bffb16cf279fe25cd8b5854d089ab460'
>XSHA256 (emkatic-0.15-src.tar.gz) = 759e28e7f8c3557c46a4ef80f11b8a0a53a9ec3d7f732a542fddf63c22e6fd25
>XSIZE (emkatic-0.15-src.tar.gz) = 378440
>bffb16cf279fe25cd8b5854d089ab460
>echo x - emkatic/pkg-message
>sed 's/^X//' >emkatic/pkg-message << 'af0346416d07bfea9431264e3f8353bc'
>XSpeaker sound Support:
>X======================
>X
>XFor support speaker sound four user needs to be in the operator group and needs read and write permissions to the /dev/speaker device.
>X
>XLoad kernel modul:
>X
>X# kldload speaker
>X
>XAdd a user to a group operator's:
>X
>X% pw groupmod operator -m jerry
>X
>XUncomment the following lines in the file /etc/devfs.rules (create if it doesn't exist):
>X
>X# Allow members of group operator to cat things to the speaker
>Xown     speaker root:operator
>Xperm    speaker 0660
>X
>XThen restart devfs to load the new rules:
>X
>X% /etc/rc.d/devfs restart
>X
>XSound an eternal program
>X========================
>X
>XExternal program audio/beep (need load and confugured speaker, see Speaker sound)
>X
>XAt the setting of the emulator should specify:
>X
>Xbeep -p <Hz> <cs>
>X
>Xbeep -p 1 0
>X
>af0346416d07bfea9431264e3f8353bc
>echo x - emkatic/pkg-plist
>sed 's/^X//' >emkatic/pkg-plist << 'f5a0a0b0f6e5137d15cff983623b78a4'
>Xbin/emkatic
>f5a0a0b0f6e5137d15cff983623b78a4
>echo x - emkatic/pkg-descr
>sed 's/^X//' >emkatic/pkg-descr << '94d1503cc57140e8478401392776d8cc'
>XAn emulator for the Elektronika MK-152, MK-152M, MK-1152, MK-161 calculators.
>XElektronika MK this RPN programmable calculator now manufactured in the Russia,
>Xsuccessor serie RPN calculators which was manufactured in the Soviet Union.
>X
>XThe emulator supports theming (skins).
>XPossible to save and load program, calculate data and user data.
>X
>Xsupport only russian language
>X
>XWWW: http://sourceforge.net/projects/emkatic/
>94d1503cc57140e8478401392776d8cc
>echo c - emkatic/files
>mkdir -p emkatic/files > /dev/null 2>&1
>echo x - emkatic/files/patch-beeper.pas
>sed 's/^X//' >emkatic/files/patch-beeper.pas << '3d12c19e29d687cfd12f44ee517766f1'
>X--- beeper.pas	2014-10-12 10:54:47.000000000 +0400
>X+++ beeper.pas.patch.unix	2014-10-19 01:06:03.409613451 +0400
>X@@ -20,7 +20,9 @@
>X 
>X unit Beeper;
>X 
>X-{$mode objfpc}{$H+} {$DEFINE PCM}
>X+{$mode objfpc}{$H+}
>X+
>X+{$IFOPT R-} {$DEFINE PCM} {$ENDIF}
>X 
>X interface
>X 
>X@@ -29,17 +31,19 @@
>X      {$IFDEF PCM} ctypes, Math, PortAudio, {$ENDIF} Globe;
>X 
>X type
>X-  TBeepWay = (bwNone,bwExternalUtil,bwUnixKIOCSOUND,bwALSA,
>X-              bwWinIOCTL_BEEP_SET,bwWinBeepInThread,bwWinWaveOut,bwPCM);
>X+  TBeepWay = (bwNone,bwExternalUtil,bwUnixKIOCSOUND,bwWinIOCTL_BEEP_SET,
>X+              bwWinBeepInThread,bwPCM);
>X 
>X var
>X   BeepWay:TBeepWay=bwNone;
>X   II2BeepWay:array[0..integer(high(TBeepWay))] of TBeepWay;
>X   II2BeepPage:array[0..integer(high(TBeepWay))] of integer;
>X+  II2BeepId:array[0..integer(high(TBeepWay))] of string;
>X 
>X procedure InitBeeper(Way:TBeepWay);
>X procedure FinBeeper;
>X procedure InitBeepWayList;
>X+function BeepWayIndex(const Id:string):integer;
>X procedure Sound(Hz:integer);
>X procedure NoSound(ByTime:boolean=false);
>X 
>X@@ -68,9 +72,10 @@
>X {$ENDIF}
>X 
>X var
>X-  Beeping:boolean=false;
>X   ExtFreqPar,ExtDurPar:integer;
>X+  ExtDurUnits:(eduCenti,eduMilli);
>X   ExtBeforeFreq,ExtAfterFreq,ExtBeforeDur,ExtAfterDur:string;
>X+  Beeping:boolean=false;
>X {$IFDEF Win32} hBeep:cardinal; OwnBeepDevName:boolean; {$ENDIF}
>X {$IFDEF PCM}
>X   pcmStream:PPaStream;
>X@@ -99,27 +104,28 @@
>X end;
>X {$ENDIF}
>X 
>X-procedure AddWay(Way:TBeepWay; const Title,PageName:string);
>X+procedure AddWay(Way:TBeepWay; const Id,Title,PageName:string);
>X  var i,w:integer;
>X begin
>X-  w:=ServiceForm.BeepWayCombo.Items.Add(Title); II2BeepWay[w]:=Way;
>X+  w:=ServiceForm.BeepWayCombo.Items.Add(Title);
>X+  II2BeepWay[w]:=Way; II2BeepId[w]:=Id;
>X   with ServiceForm.BeepParPages do for i:=0 to PageCount-1 do
>X    if Page[i].Name=PageName then begin II2BeepPage[w]:=i; break end;
>X end;
>X 
>X procedure InitBeepWayList;
>X begin
>X-  AddWay(bwNone,'ÐÐµÐ· Ð·Ð²ÑÐºÐ°','BeepParNonePage');
>X-  AddWay(bwExternalUtil,'ÐÐ½ÐµÑÐ½ÑÑ Ð¿ÑÐ¾Ð³ÑÐ°Ð¼Ð¼Ð°','BeepParExtPage');
>X+  AddWay(bwNone,'none','ÐÐµÐ· Ð·Ð²ÑÐºÐ°','BeepParNonePage');
>X+  AddWay(bwExternalUtil,'util','ÐÐ½ÐµÑÐ½ÑÑ Ð¿ÑÐ¾Ð³ÑÐ°Ð¼Ð¼Ð°','BeepParExtPage');
>X {$IFDEF HaveKIOCSOUND}
>X-  AddWay(bwUnixKIOCSOUND,'KIOCSOUND','BeepParKIOCSoundPage');
>X+  AddWay(bwUnixKIOCSOUND,'kioc','KIOCSOUND','BeepParKIOCSoundPage');
>X {$ENDIF}
>X {$IFDEF Win32}
>X-  AddWay(bwWinIOCTL_BEEP_SET,'IOCTL_BEEP_SET (Ð ÐµÐºÐ¾Ð¼ÐµÐ½Ð´ÑÐµÑÑÑ)','BeepParNonePage');
>X-  AddWay(bwWinBeepInThread,'Ð¤ÑÐ½ÐºÑÐ¸Ñ Beep Ð² Ð¾ÑÐ´ÐµÐ»ÑÐ½Ð¾Ð¼ Ð¿Ð¾ÑÐ¾ÐºÐµ','BeepParNonePage');
>X+  AddWay(bwWinIOCTL_BEEP_SET,'ioc','IOCTL_BEEP_SET (Ð ÐµÐºÐ¾Ð¼ÐµÐ½Ð´ÑÐµÑÑÑ)','BeepParNonePage');
>X+  AddWay(bwWinBeepInThread,'beep','Ð¤ÑÐ½ÐºÑÐ¸Ñ Beep Ð² Ð¾ÑÐ´ÐµÐ»ÑÐ½Ð¾Ð¼ Ð¿Ð¾ÑÐ¾ÐºÐµ','BeepParNonePage');
>X {$ENDIF}
>X {$IFDEF PCM}
>X-  AddWay(bwPCM,'PCM-Ð°ÑÐ´Ð¸Ð¾ ÑÐµÑÐµÐ· Ð±Ð¸Ð±Ð»Ð¸Ð¾ÑÐµÐºÑ PortAudio','BeepParPCMPage');
>X+  AddWay(bwPCM,'pcm','PCM-Ð°ÑÐ´Ð¸Ð¾ ÑÐµÑÐµÐ· Ð±Ð¸Ð±Ð»Ð¸Ð¾ÑÐµÐºÑ PortAudio','BeepParPCMPage');
>X {$ENDIF}
>X end;
>X 
>X@@ -138,12 +144,22 @@
>X           s:=ExtractWord(i,Text,[#32]); Parameters.Add(s);
>X           j:=pos('<Hz>',s);
>X           if j>0 then begin
>X+            if ExtFreqPar>=0 then abort;
>X             ExtFreqPar:=i-2; ExtBeforeFreq:=copy(s,1,j-1);
>X             ExtAfterFreq:=copy(s,j+4,length(s)-j-3);
>X           end;
>X+          j:=pos('<cs>',s);
>X+          if j>0 then begin
>X+            if ExtDurPar>=0 then abort;
>X+            ExtDurUnits:=eduCenti; ExtDurPar:=i-2;
>X+            ExtBeforeDur:=copy(s,1,j-1);
>X+            ExtAfterDur:=copy(s,j+4,length(s)-j-3);
>X+          end;
>X           j:=pos('<ms>',s);
>X           if j>0 then begin
>X-            ExtDurPar:=i-2; ExtBeforeDur:=copy(s,1,j-1);
>X+            if ExtDurPar>=0 then abort;
>X+            ExtDurUnits:=eduMilli; ExtDurPar:=i-2;
>X+            ExtBeforeDur:=copy(s,1,j-1);
>X             ExtAfterDur:=copy(s,j+4,length(s)-j-3);
>X           end;
>X         end;
>X@@ -224,14 +240,28 @@
>X end;
>X {$ENDIF}
>X 
>X+function BeepWayIndex(const Id:string):integer;
>X+ var i:integer;
>X+begin
>X+  for i:=0 to ServiceForm.BeepWayCombo.Items.Count-1 do
>X+   if II2BeepId[i]=Id then exit(i);
>X+  result:=0;
>X+end;
>X+
>X procedure Sound(Hz:integer);
>X+ var i:integer;
>X begin
>X   try case BeepWay of
>X     bwExternalUtil: with MainForm.SoundProcess do begin
>X       if ExtFreqPar>=0 then
>X        Parameters[ExtFreqPar]:=ExtBeforeFreq+IntToStr(Hz)+ExtAfterFreq;
>X-      if ExtDurPar>=0 then
>X-       Parameters[ExtDurPar]:=ExtBeforeDur+IntToStr(R9052*10)+ExtAfterDur;
>X+      if ExtDurPar>=0 then begin
>X+        case ExtDurUnits of
>X+          eduCenti: i:=R9052;
>X+          eduMilli: i:=R9052*10;
>X+        end;
>X+        Parameters[ExtDurPar]:=ExtBeforeDur+IntToStr(i)+ExtAfterDur;
>X+      end;
>X       if Executable<>'' then Execute;
>X     end;
>X   {$IFDEF HaveKIOCSOUND}
>3d12c19e29d687cfd12f44ee517766f1
>echo x - emkatic/files/patch-service.lfm
>sed 's/^X//' >emkatic/files/patch-service.lfm << '2b3f04032fb42a86b5493bf9c2d5c08a'
>X--- service.lfm	2014-10-15 21:52:41.000000000 +0400
>X+++ service.lfm.patch.unix	2014-10-19 11:05:13.828136662 +0400
>X@@ -1,7 +1,7 @@
>X object ServiceForm: TServiceForm
>X-  Left = 1245
>X+  Left = 1310
>X   Height = 450
>X-  Top = 142
>X+  Top = 175
>X   Width = 608
>X   BorderIcons = [biSystemMenu]
>X   BorderStyle = bsDialog
>X@@ -11,7 +11,7 @@
>X   Font.Height = -15
>X   Font.Name = 'Arial'
>X   OnCreate = FormCreate
>X-  LCLVersion = '1.2.4.0'
>X+  LCLVersion = '1.2.6.0'
>X   object Pages: TPageControl
>X     Left = 0
>X     Height = 410
>X@@ -763,7 +763,7 @@
>X           Height = 147
>X           Top = 39
>X           Width = 584
>X-          PageIndex = 0
>X+          PageIndex = 1
>X           Align = alBottom
>X           TabOrder = 0
>X           TabStop = True
>X@@ -781,13 +781,13 @@
>X               EditLabel.AnchorSideRight.Side = asrBottom
>X               EditLabel.AnchorSideBottom.Control = SoundCmdEdit
>X               EditLabel.Left = 20
>X-              EditLabel.Height = 19
>X-              EditLabel.Top = 4
>X+              EditLabel.Height = 18
>X+              EditLabel.Top = 5
>X               EditLabel.Width = 544
>X               EditLabel.Caption = 'ÐÐ¾Ð¼Ð°Ð½Ð´Ð° Ð³ÐµÐ½ÐµÑÐ°ÑÐ¸Ð¸ Ð·Ð²ÑÐºÐ° *'
>X               EditLabel.ParentColor = False
>X               TabOrder = 0
>X-              Text = 'beep -f <Hz> -l <ms>'
>X+              Text = 'beep -p <Hz> <cs>'
>X             end
>X             object NoSoundCmdEdit: TLabeledEdit
>X               Left = 20
>X@@ -800,20 +800,20 @@
>X               EditLabel.AnchorSideRight.Side = asrBottom
>X               EditLabel.AnchorSideBottom.Control = NoSoundCmdEdit
>X               EditLabel.Left = 20
>X-              EditLabel.Height = 19
>X-              EditLabel.Top = 60
>X+              EditLabel.Height = 18
>X+              EditLabel.Top = 61
>X               EditLabel.Width = 544
>X               EditLabel.Caption = 'ÐÐ¾Ð¼Ð°Ð½Ð´Ð° Ð²ÑÐºÐ»ÑÑÐµÐ½Ð¸Ñ Ð·Ð²ÑÐºÐ°'
>X               EditLabel.ParentColor = False
>X               TabOrder = 1
>X-              Text = 'beep -f 1 -l 0'
>X+              Text = 'beep -p 1 0'
>X             end
>X             object Label14: TLabel
>X               Left = 24
>X-              Height = 19
>X+              Height = 18
>X               Top = 118
>X-              Width = 459
>X-              Caption = '*   <Hz>  â  ÑÐ°ÑÑÐ¾ÑÐ°;   <ms>  â  Ð´Ð»Ð¸ÑÐµÐ»ÑÐ½Ð¾ÑÑÑ (ÐµÑÐ»Ð¸ Ð½ÐµÐ¾Ð±ÑÐ¾Ð´Ð¸Ð¼Ð¾)'
>X+              Width = 500
>X+              Caption = '*   <Hz>  â  ÑÐ°ÑÑÐ¾ÑÐ°;   <cs>, <ms>  â  Ð´Ð»Ð¸ÑÐµÐ»ÑÐ½Ð¾ÑÑÑ (ÐµÑÐ»Ð¸ Ð½ÐµÐ¾Ð±ÑÐ¾Ð´Ð¸Ð¼Ð¾)'
>X               ParentColor = False
>X             end
>X           end
>2b3f04032fb42a86b5493bf9c2d5c08a
>echo x - emkatic/files/patch-portaudio.pas
>sed 's/^X//' >emkatic/files/patch-portaudio.pas << '7a9689179f2e7ee0b1b2423fae3b76a1'
>X--- portaudio.pas     2014-10-17 01:33:40.796719939 +0000
>X+++ portaudio.pas        2014-10-17 01:33:05.003608626 +0000
>X@@ -117,7 +117,7 @@
>X   LibName = 'libportaudio.2.dylib';
>X   {$LINKLIB libportaudio.2}
>X {$ELSEIF Defined(UNIX)}
>X-  LibName = 'libportaudio.so';
>X+  LibName = 'libportaudio.so.2';
>X {$IFEND}
>7a9689179f2e7ee0b1b2423fae3b76a1
>exit
>

Actions: View

Attachments on bug 194459: 148449 | 148450 | 148461 | 148488 | 148489 | 148747 | 148748